Class TGMSStickyLabel (unit GMSLabel)

Inherits from

TLabel

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;



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;