| Class TLblEdit (unit Ef_Edit) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function HasLabel:Boolean;
procedure SetLabelRelPosition(ALeft,ATop:Integer);
procedure CheckLabelRelPos(NewPosition:Boolean; ALabelWidth:Integer);
procedure DestroyLabel;
procedure DrawLabel;
function GetLabelCaption:string;
procedure InitLabel;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure OnLabelNewBounds(Sender: TObject);
procedure RunTimeLoaded;
procedure SetAddColon(SetOn:Boolean);
procedure SetBounds(ALeft,ATop,AWidth,AHeight:Integer);
procedure SetLabel(ALabel:TLabel);
procedure SetLabelCaption(const AString:string);
procedure SetLabelPos(APos:TLabelPos);
procedure SetLabelRelLeft(Value:Integer);
procedure SetLabelRelTop(Value:Integer);
procedure SetMargin(AMargin:Integer);
procedure SetName(const NewName: TComponentName);
procedure VisibleChanging;
procedure WMEnable(var Msg:TMessage);| 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;