| Class TStatus (unit ScriptSt) |
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;
procedure SetupPanel(ThePanel: TPanel; WidthMask: String);
procedure SetupPanelFields(ThePanel: TPanel);
procedure UpdateStatusBar(Sender: TObject);
procedure CMFontChanged(var Message: TMessage);
Function GetCaption: String;
procedure SetCaption(A: String);
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;