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

Constructors


constructor Create( AOwner:TComponent );



Functions

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);


Properties

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 :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FDataLink : TFieldDatalink;

Private declarations


Constructors


constructor Create( AOwner:TComponent );


Functions


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);


Properties


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 :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FDataLink : TFieldDatalink;

Private declarations