Class TDBLabel3D (unit Da3dl) |
Inherits from
TLabel
constructor Create(AOwner: TComponent);
- TDBLabel3D } { Data Aware 3D Label } { Override the constructor to initialize variables
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
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
F3DLabelAbout : TDB3DLabAboutBox;
FDataLink : TFieldDataLink;
FTextStyle : TTextStyle;
Variables for properties
constructor Create(AOwner: TComponent);
TDBLabel3D } { Data Aware 3D Label } { Override the constructor to initialize variables
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
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
F3DLabelAbout : TDB3DLabAboutBox;
FDataLink : TFieldDataLink;
FTextStyle : TTextStyle;
Variables for properties