Class TDBBoxLabel (unit dbbxlbl) |
Inherits from
TCustomBoxLabel
This code is provided as is with no warranty. I will make additions and corrections as time permits. Feel free to drop me a line if you want something added. New versions will be posted on the web at the Tangent Technologies, Inc WEB page at www.mindspring.com/~tti Have Fun! Nick Hustak President, Tangent Technologies, Inc TTI@mindspring.com www.mindspring.com/~tti 770-427-2118 CSERVE: 72134,123 President, Atlanta Delphi Developers Group www.mindspring.com/~addg
constructor Create( AOwner:TComponent );
destructor Destroy;
function GetLabelText: String;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
Protected declarations
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
property Align :
property Alignment :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property Color :
property DataField : string
Published declarations
property DataSource : TDataSource
property Decimals :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Height :
property HorizontalAlign :
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopUpMenu :
property TextBorder :
property Width :
property WordWrap :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FDataLink : TFieldDatalink;
Private declarations
constructor Create( AOwner:TComponent );
destructor Destroy;
function GetLabelText: String;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
Protected declarations
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
property Align :
property Alignment :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property Color :
property DataField : string
Published declarations
property DataSource : TDataSource
property Decimals :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Height :
property HorizontalAlign :
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopUpMenu :
property TextBorder :
property Width :
property WordWrap :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FDataLink : TFieldDatalink;
Private declarations