Class TLblEdit (unit Ef_Edit) |
Inherits from
TEicEdit
constructor Create(AOwner: TComponent);
destructor Destroy;
Set default property values
function HasLabel:Boolean;
redraw it
procedure SetLabelRelPosition(ALeft,ATop:Integer);
procedure CheckLabelRelPos(NewPosition:Boolean; ALabelWidth:Integer);
Removes the added colon
procedure DestroyLabel;
procedure DrawLabel;
The redefined method makes sure the label is hidden or shown
together with the input control
function GetLabelCaption:string;
Changing the caption provokes the OnNewBounds event
procedure InitLabel;
Change label name if it is based on input component name
procedure Notification(AComponent: TComponent; Operation: TOperation);
This notifies us whenever the label's position or size changes
procedure OnLabelNewBounds(Sender: TObject);
If our attached label is being destroyed, then set its pointer to nil
procedure RunTimeLoaded;
procedure SetAddColon(SetOn:Boolean);
procedure SetBounds(ALeft,ATop,AWidth,AHeight:Integer);
This procedure is called whenever the value of the Enable property changes
procedure SetLabel(ALabel:TLabel);
procedure SetLabelCaption(const AString:string);
Set label visibility as the input control
procedure SetLabelPos(APos:TLabelPos);
procedure SetLabelRelLeft(Value:Integer);
Check if new label caption has a colon and adjust colon property
procedure SetLabelRelTop(Value:Integer);
procedure SetMargin(AMargin:Integer);
Sets most appropriate margin at when label position property
is changed at design time
procedure SetName(const NewName: TComponentName);
Redraw label whenever input component is moved or resized
procedure VisibleChanging;
unfortunately, setting false usually hides standard labels
procedure WMEnable(var Msg:TMessage);
This executes Notification method
property LabelColon : Boolean
property LabelComponent : TLabel
property LabelMargin : Integer
property LabelPos : TLabelPos
property LabelRelLeft : Integer
property LabelRelTop : Integer
property LabelText : string
FAddColon : Boolean;
FLabel : TLabel;
FLabelPos : TLabelPos;
FLabelRelLeft : Integer;
FLabelRelTop : Integer;
FMargin : Integer;
FRepositionLabel : Boolean;
constructor Create(AOwner: TComponent);
destructor Destroy;
Set default property values
function HasLabel:Boolean;
redraw it
procedure SetLabelRelPosition(ALeft,ATop:Integer);
procedure CheckLabelRelPos(NewPosition:Boolean; ALabelWidth:Integer);
Removes the added colon
procedure DestroyLabel;
procedure DrawLabel;
The redefined method makes sure the label is hidden or shown
together with the input control
function GetLabelCaption:string;
Changing the caption provokes the OnNewBounds event
procedure InitLabel;
Change label name if it is based on input component name
procedure Notification(AComponent: TComponent; Operation: TOperation);
This notifies us whenever the label's position or size changes
procedure OnLabelNewBounds(Sender: TObject);
If our attached label is being destroyed, then set its pointer to nil
procedure RunTimeLoaded;
procedure SetAddColon(SetOn:Boolean);
procedure SetBounds(ALeft,ATop,AWidth,AHeight:Integer);
This procedure is called whenever the value of the Enable property changes
procedure SetLabel(ALabel:TLabel);
procedure SetLabelCaption(const AString:string);
Set label visibility as the input control
procedure SetLabelPos(APos:TLabelPos);
procedure SetLabelRelLeft(Value:Integer);
Check if new label caption has a colon and adjust colon property
procedure SetLabelRelTop(Value:Integer);
procedure SetMargin(AMargin:Integer);
Sets most appropriate margin at when label position property
is changed at design time
procedure SetName(const NewName: TComponentName);
Redraw label whenever input component is moved or resized
procedure VisibleChanging;
unfortunately, setting false usually hides standard labels
procedure WMEnable(var Msg:TMessage);
This executes Notification method
property LabelColon : Boolean
property LabelComponent : TLabel
property LabelMargin : Integer
property LabelPos : TLabelPos
property LabelRelLeft : Integer
property LabelRelTop : Integer
property LabelText : string
FAddColon : Boolean;
FLabel : TLabel;
FLabelPos : TLabelPos;
FLabelRelLeft : Integer;
FLabelRelTop : Integer;
FMargin : Integer;
FRepositionLabel : Boolean;