| Class TMarker (unit ZoomDisp) |
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);
procedure UpdatePos;
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;