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
constructor Create(AOwner: TComponent);
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);
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 :
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;
constructor Create(AOwner: TComponent);
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);
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 :
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;