Class TStatus (unit ScriptSt)

Inherits from

TCustomPanel

Renamed from Status.pas 6/7/1998 Paul Rice to avoid conflict with George Roberts' work. From: Unofitial Delphi Magazine URL: http://www.doit.com/delphi/home.html

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

Updates will occur twice a second

procedure SetupPanel(ThePanel: TPanel; WidthMask: String);

Set all these true so they reflect the settings of the TStatus

procedure SetupPanelFields(ThePanel: TPanel);


procedure UpdateStatusBar(Sender: TObject);

This procedure sets the captions appropriately

procedure CMFontChanged(var Message: TMessage);

This allows font changes to be detected so the panels will be adjusted

Function GetCaption: String;


procedure SetCaption(A: String);

When we set or get the TStatus caption, it is affecting the HelpPanel caption instead

procedure SetDate(A: Boolean);


procedure SetKeys(A: Boolean);


procedure SetResources(A: Boolean);


procedure SetTime(A: Boolean);


Properties

property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Caption : string


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentCtl3d :


property ParentFont :


property ParentShowHint :


property PopUpMenu :


property ShowDate : Boolean


property ShowHint :


property ShowKeys : Boolean


property ShowResources : Boolean


property ShowTime : Boolean


property Visible :


Events

Variables

CapPanel : TPanel;


DateTimePanel : TPanel;


FDate : Boolean;


FKeys : Boolean;


FResources : Boolean;


FTime : Boolean;


FTimer : TTimer;


HelpPanel : TPanel;


InsPanel : TPanel;


NumPanel : TPanel;


ResGauge : TGauge;


ResPanel : TPanel;


UpdateWidth : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

Updates will occur twice a second


procedure SetupPanel(ThePanel: TPanel; WidthMask: String);

Set all these true so they reflect the settings of the TStatus


procedure SetupPanelFields(ThePanel: TPanel);


procedure UpdateStatusBar(Sender: TObject);

This procedure sets the captions appropriately


procedure CMFontChanged(var Message: TMessage);

This allows font changes to be detected so the panels will be adjusted


Function GetCaption: String;


procedure SetCaption(A: String);

When we set or get the TStatus caption, it is affecting the HelpPanel caption instead


procedure SetDate(A: Boolean);


procedure SetKeys(A: Boolean);


procedure SetResources(A: Boolean);


procedure SetTime(A: Boolean);


Properties


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Caption : string


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentCtl3d :


property ParentFont :


property ParentShowHint :


property PopUpMenu :


property ShowDate : Boolean


property ShowHint :


property ShowKeys : Boolean


property ShowResources : Boolean


property ShowTime : Boolean


property Visible :


Events


Variables


CapPanel : TPanel;


DateTimePanel : TPanel;


FDate : Boolean;


FKeys : Boolean;


FResources : Boolean;


FTime : Boolean;


FTimer : TTimer;


HelpPanel : TPanel;


InsPanel : TPanel;


NumPanel : TPanel;


ResGauge : TGauge;


ResPanel : TPanel;


UpdateWidth : Boolean;