Class TDBModeIndicator (unit Dbmode)

Inherits from

TCustomLabel

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;



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;