Class TDBLabel3D (unit Da3dl)

Inherits from

TLabel

Constructors


constructor Create(AOwner: TComponent);

TDBLabel3D } { Data Aware 3D Label } { Override the constructor to initialize variables


Functions

destructor Destroy;

Override the destructor to destroy variables

procedure Paint;

Paint 3-D Label

procedure SetTextStyle( Value : TTextStyle );

Procedure to set the text style

Set the 3-D style of the label


procedure DataChange(Sender: TObject);

Set caption when data changes

procedure DrawLabel3D(var TextRect: TRect; SpecialFlags: Word);

Procedure to draw the 3-D label

Draw the text and the 3-D bevel


function GetDataField: string;

Procedures for setting property values

Get database field


function GetDataSource: TDataSource;

Get datasource

procedure SetDataField(const Value: string);

Set database field

procedure SetDataSource(Value: TDataSource);

Set datasource

Properties

property About : TDB3DLabAboutBox

AboutBox

property DataField : string

Field in the database table

property DataSource : TDataSource

Datasource attached to the database table

property TextStyle : TTextStyle

Style of the 3-D label

Events

Variables

F3DLabelAbout : TDB3DLabAboutBox;


FDataLink : TFieldDataLink;


FTextStyle : TTextStyle;

Variables for properties


Constructors


constructor Create(AOwner: TComponent);

TDBLabel3D } { Data Aware 3D Label } { Override the constructor to initialize variables


Functions


destructor Destroy;

Override the destructor to destroy variables


procedure Paint;

Paint 3-D Label


procedure SetTextStyle( Value : TTextStyle );

Procedure to set the text style

Set the 3-D style of the label


procedure DataChange(Sender: TObject);

Set caption when data changes


procedure DrawLabel3D(var TextRect: TRect; SpecialFlags: Word);

Procedure to draw the 3-D label

Draw the text and the 3-D bevel


function GetDataField: string;

Procedures for setting property values

Get database field


function GetDataSource: TDataSource;

Get datasource


procedure SetDataField(const Value: string);

Set database field


procedure SetDataSource(Value: TDataSource);

Set datasource


Properties


property About : TDB3DLabAboutBox

AboutBox


property DataField : string

Field in the database table


property DataSource : TDataSource

Datasource attached to the database table


property TextStyle : TTextStyle

Style of the 3-D label


Events


Variables


F3DLabelAbout : TDB3DLabAboutBox;


FDataLink : TFieldDataLink;


FTextStyle : TTextStyle;

Variables for properties