Class TGMSStickyLabel (unit GMSLabel) |
Inherits from
TLabel
constructor Create(AOwner: TComponent);
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);
property _AlignPos : TAlignPos
property _AlignPosGap : integer
property _AlignTo : TAlignTo
property _AttachTo : TWinControl
property _Gap : Integer
FAlignPos : TAlignPos;
FAlignPosGap : integer;
FAlignTo : TAlignTo;
FAttachedInstance : Pointer;
FAttachTo : TWinControl;
FDefAttachedProc : Pointer;
FGap : Integer;
FRealigning : Boolean;
constructor Create(AOwner: TComponent);
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);
property _AlignPos : TAlignPos
property _AlignPosGap : integer
property _AlignTo : TAlignTo
property _AttachTo : TWinControl
property _Gap : Integer
FAlignPos : TAlignPos;
FAlignPosGap : integer;
FAlignTo : TAlignTo;
FAttachedInstance : Pointer;
FAttachTo : TWinControl;
FDefAttachedProc : Pointer;
FGap : Integer;
FRealigning : Boolean;