| Class TGMSStickyLabel (unit GMSLabel) |
TLabel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
Procedure _ReAlign;
procedure CheckForControl;On change of position check for controls to attach to
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetParent(AParent: TWinControl);
procedure WndProc(var Message: TMessage);On Move/Size message call _ReAlign to keep us aligned!
procedure AttachedWndProc(var Message: TMessage);Make method Instance
procedure SetAlignPos(Value: TAlignPos);
Procedure SetAlignPosGap(Value: Integer);
Procedure SetAlignTo(Value: TAlignTo);
procedure SetAttachTo(Value: TWinControl);
Procedure SetGap(Value: Integer);| Properties |
property _AlignPos : TAlignPos
property _AlignPosGap : integer
property _AlignTo : TAlignTo
property _AttachTo : TWinControl
property _Gap : Integer| Events |
| Variables |
FAlignPos : TAlignPos;
FAlignPosGap : integer;
FAlignTo : TAlignTo;
FAttachedInstance : Pointer;
FAttachTo : TWinControl;
FDefAttachedProc : Pointer;
FGap : Integer;
FRealigning : Boolean;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;Make Instance out of method
Procedure _ReAlign;
procedure CheckForControl;Procedure ErrFile(sString: String);
On change of position check for controls to attach to
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetParent(AParent: TWinControl);ErrFile('Asked to attach to '+Name+#13+#13);
procedure WndProc(var Message: TMessage);Override WndProc
On Move/Size message call _ReAlign to keep us aligned!
procedure AttachedWndProc(var Message: TMessage);New Attached controls WndProc
Make method Instance
procedure SetAlignPos(Value: TAlignPos);
Procedure SetAlignPosGap(Value: Integer);
Procedure SetAlignTo(Value: TAlignTo);GMS if assigned back to the same component it will realign itself
procedure SetAttachTo(Value: TWinControl);dont forget to check if indeed it is FAttachTo that is being removed
Procedure SetGap(Value: Integer);| Properties |
property _AlignPos : TAlignPos
property _AlignPosGap : integer
property _AlignTo : TAlignTo
property _AttachTo : TWinControl
property _Gap : Integer| Events |
| Variables |
FAlignPos : TAlignPos;
FAlignPosGap : integer;
FAlignTo : TAlignTo;
FAttachedInstance : Pointer;
FAttachTo : TWinControl;
FDefAttachedProc : Pointer;
FGap : Integer;
FRealigning : Boolean;