Class TMarker (unit ZoomDisp)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure AssignTo(Dest: TPersistent);


destructor Destroy;


function HotSpot: TPoint;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ParentInvalidate;


procedure SetInheritedVisible(Value: Boolean);


procedure SetParent(AParent: TWinControl);

raises exception if AParent is no TCustomZoomDisplay

procedure UpdatePos;

Updates both world and device position

procedure UpdatePosition;


procedure CMColorChanged(var Message: TMessage);


procedure DoEndDrag(Target: TObject; X, Y: Integer);


procedure DoStartDrag(var DragObject: TDragObject);


procedure SetKind(Value: TMarkerKind);


procedure SetPosition(Value: TWorldCoord);


procedure SetShowPosition(Value: Boolean);


procedure SetVisible(Value: Boolean);


procedure TimerExpired(Sender: TObject);


Properties

property Color :


property Cursor :


property DragCursor :


property ID : Integer


property Kind : TMarkerKind


property Locked : Boolean


property Marked : TObject


property PopupMenu :


property Position : TWorldCoord


property ShowHint :


property ShowPosition : Boolean


property Visible :


Events

event OnEndDrag :


event OnPosChange : TMarkerPosEvent


Variables

FHighLightColor : TColor;


FID : Integer;


FKind : TMarkerKind;


FLocked : Boolean;


FMarked : TObject;


FOnPosChange : TMarkerPosEvent;


FPosition : TWorldCoord;


FRepeatTimer : TTimer;


FShadowColor : TColor;


FShowPosition : Boolean;


FVisible : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure AssignTo(Dest: TPersistent);


destructor Destroy;


function HotSpot: TPoint;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ParentInvalidate;


procedure SetInheritedVisible(Value: Boolean);


procedure SetParent(AParent: TWinControl);

raises exception if AParent is no TCustomZoomDisplay


procedure UpdatePos;

Updates both world and device position


procedure UpdatePosition;


procedure CMColorChanged(var Message: TMessage);


procedure DoEndDrag(Target: TObject; X, Y: Integer);


procedure DoStartDrag(var DragObject: TDragObject);


procedure SetKind(Value: TMarkerKind);


procedure SetPosition(Value: TWorldCoord);


procedure SetShowPosition(Value: Boolean);


procedure SetVisible(Value: Boolean);


procedure TimerExpired(Sender: TObject);


Properties


property Color :


property Cursor :


property DragCursor :


property ID : Integer


property Kind : TMarkerKind


property Locked : Boolean


property Marked : TObject


property PopupMenu :


property Position : TWorldCoord


property ShowHint :


property ShowPosition : Boolean


property Visible :


Events


event OnEndDrag :


event OnPosChange : TMarkerPosEvent


Variables


FHighLightColor : TColor;


FID : Integer;


FKind : TMarkerKind;


FLocked : Boolean;


FMarked : TObject;


FOnPosChange : TMarkerPosEvent;


FPosition : TWorldCoord;


FRepeatTimer : TTimer;


FShadowColor : TColor;


FShowPosition : Boolean;


FVisible : Boolean;