| Class TDBModeIndicator (unit Dbmode) |
TCustomLabel
| Constructors |
constructor Create(AOwner: TComponent);construct TDBModeIndicator
| Functions |
destructor Destroy;
procedure ActiveChange(Sender: TObject);
function GetDataSource: TDataSource;
procedure SetActive(Value: TColor);
procedure SetDataSource(Value: TDataSource);
procedure UpdateLabel;| Properties |
property Active : TColor
property Align :
property Alignment :
property AutoSize :
property Color :
property DataSource : TDataSource
property Dimmed : TColor
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Highlight : TColor
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Transparent :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FActive : TColor;
FDataLink : TFieldDataLink;
FDimmed : TColor;
FHighlight : TColor;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
construct TDBModeIndicator
| Functions |
destructor Destroy;destroy TDBModeIndicator
procedure ActiveChange(Sender: TObject);method to update the unpublished Caption property in response to a change in the DataSource
function GetDataSource: TDataSource;method to get DataSource from DataLink
procedure SetActive(Value: TColor);method to set active color - so the color changes when changed at design time
procedure SetDataSource(Value: TDataSource);method to set DataSource in DataLink
procedure UpdateLabel;procedure to update the label
| Properties |
property Active : TColor
property Align : Published declarations
property Alignment :
property AutoSize :
property Color : property Caption;
property DataSource : TDataSource
property Dimmed : TColor
property DragCursor :
property DragMode :
property Enabled :
property Font : property FocusControl;
property Highlight : TColor
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint : property ShowAccelChar;
property Transparent :
property Visible : | Events |
event OnClick : property WordWrap;
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FActive : TColor;
FDataLink : TFieldDataLink;Private declarations
FDimmed : TColor;
FHighlight : TColor;