| Class TDBLabel3D (unit Da3dl) |
TLabel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Paint;
procedure SetTextStyle( Value : TTextStyle );Set the 3-D style of the label
procedure DataChange(Sender: TObject);
procedure DrawLabel3D(var TextRect: TRect; SpecialFlags: Word);Draw the text and the 3-D bevel
function GetDataField: string;Get database field
function GetDataSource: TDataSource;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);| Properties |
property About : TDB3DLabAboutBox
property DataField : string
property DataSource : TDataSource
property TextStyle : TTextStyle| Events |
| Variables |
F3DLabelAbout : TDB3DLabAboutBox;
FDataLink : TFieldDataLink;
FTextStyle : TTextStyle;| 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 : TDB3DLabAboutBoxAboutBox
property DataField : stringField in the database table
property DataSource : TDataSourceDatasource attached to the database table
property TextStyle : TTextStyleStyle of the 3-D label
| Events |
| Variables |
F3DLabelAbout : TDB3DLabAboutBox;
FDataLink : TFieldDataLink;
FTextStyle : TTextStyle;Variables for properties