Class TLblEdit (unit Ef_Edit)

Inherits from

TEicEdit

Constructors


constructor Create(AOwner: TComponent);



Functions

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

Properties

property LabelColon : Boolean


property LabelComponent : TLabel


property LabelMargin : Integer


property LabelPos : TLabelPos


property LabelRelLeft : Integer


property LabelRelTop : Integer


property LabelText : string


Events

Variables

FAddColon : Boolean;


FLabel : TLabel;


FLabelPos : TLabelPos;


FLabelRelLeft : Integer;


FLabelRelTop : Integer;


FMargin : Integer;


FRepositionLabel : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


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


Properties


property LabelColon : Boolean


property LabelComponent : TLabel


property LabelMargin : Integer


property LabelPos : TLabelPos


property LabelRelLeft : Integer


property LabelRelTop : Integer


property LabelText : string


Events


Variables


FAddColon : Boolean;


FLabel : TLabel;


FLabelPos : TLabelPos;


FLabelRelLeft : Integer;


FLabelRelTop : Integer;


FMargin : Integer;


FRepositionLabel : Boolean;