Class TBoxCaption (unit BoxCap)

Inherits from

TBoxLabel

Constructors


constructor Create( AOwner:TComponent );



Functions

procedure Notification( AComp: TComponent; Operation: TOperation );

Public declarations

procedure ShiftLabel;


procedure Paint;

Protected declarations

procedure CMEnabledChanged(var Message: TMessage);


procedure SetAttach( Value: TAlignLabel );


procedure SetHook( Control: TControl );


Properties

property AttachTo : TAlignLabel

Published declarations

property Hook : TControl


Events

Variables

FAttachTo : TAlignLabel;

Private declarations

FHook : TControl;


OldFontColor : TColor;



Constructors


constructor Create( AOwner:TComponent );


Functions


procedure Notification( AComp: TComponent; Operation: TOperation );

Public declarations


procedure ShiftLabel;


procedure Paint;

Protected declarations


procedure CMEnabledChanged(var Message: TMessage);


procedure SetAttach( Value: TAlignLabel );


procedure SetHook( Control: TControl );


Properties


property AttachTo : TAlignLabel

Published declarations


property Hook : TControl


Events


Variables


FAttachTo : TAlignLabel;

Private declarations


FHook : TControl;


OldFontColor : TColor;