[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]
{
Author: Craig Ward
Copyright: none - public domain
Date: 20/5/96
Version: 1.0
Overview: Status bar
Notes: The captions for each panel (stored within the wrapper component),
can be accessed via their index. The indices are:
[0] status panel
[1] caps-lock panel
[2] num-lock panel
[3] scroll-lock panel
[4] time panel
The component will automatically check for the state of the caps-lock,
num-lock, and scroll-lock keys, plus, it will also display the current
time (all achieved through a private TTimer). Furthermore, the
component will also automatically display any application hint, by
setting the application's OnHint method to the custom method that
is used by the TTimer.
*******************************************************************************}
unit Cwstatus;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls;
type
{container object for panels}
TStatusPanel = class(TPanel)
private
{ Private declarations }
FStatusPanel: TPanel; {the comment panel}
FCapsPanel: TPanel; {the caps-lock panel}
FNumPanel: TPanel; {the num-lock panel}
FScrollPanel: TPanel; {the scroll-lock panel}
FTimePanel: TPanel; {the time panel}
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
end;
{wrapper for component}
TcwStatusBar = Class(TWinControl)
StatusPanel: TStatusPanel;
FTimer: TTimer;
private
function GetCaption(Index: Integer): string;
procedure SetCaption(Index: Integer; Cap: string);
procedure mTimer(sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Captions[Index: Integer]: string read GetCaption write SetCaption;
published
property Font;
property ParentFont;
property Align;
end;
procedure Register;
implementation
{***VCL Preferences************************************************************}
{constructor -
note: panels created in reverse order}
constructor TStatusPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Align := alBottom; {default to bottom of form}
{create time panel}
FTimePanel := TPanel.Create(self);
with FTimePanel do
begin
Parent := self; {set parent to self}
width := 65;
Align := alRight; {set alignment to right}
BevelOuter := bvLowered; {set bevel appearances}
BevelInner := bvLowered;
Caption := 'Time'; {set caption text}
Alignment := taLeftJustify; {left-justify caption}
ParentFont := true; {assume the parent's font}
end;
{create scroll-lock panel}
FScrollPanel := TPanel.Create(self);
with FScrollPanel do
begin
Parent := self; {set parent to self}
width := 40;
Align := alRight; {set alignment to right}
BevelOuter := bvLowered; {set bevel appearances}
BevelInner := bvLowered;
Caption := 'Scroll'; {set caption text}
Alignment := taLeftJustify; {left-justify caption}
ParentFont := true; {assume the parent's font}
end;
{create num-lock panel}
FNumPanel := TPanel.Create(self);
with FNumPanel do
begin
Parent := self; {set parent to self}
width := 40;
Align := alRight; {set alignment to right}
BevelOuter := bvLowered; {set bevel appearances}
BevelInner := bvLowered;
Caption := 'Num'; {set caption text}
Alignment := taLeftJustify; {left-justify caption}
ParentFont := true; {assume the parent's font}
end;
{create caps-lock panel}
FCapsPanel := TPanel.Create(self);
with FCapsPanel do
begin
Parent := self; {set parent to self}
width := 40;
Align := alRight; {set alignment to right}
BevelOuter := bvLowered; {set bevel appearances}
BevelInner := bvLowered;
Caption := 'Caps'; {set caption text}
Alignment := taLeftJustify; {left-justify caption}
ParentFont := true; {assume the parent's font}
end;
{create comment panel}
FStatusPanel := TPanel.Create(self);
with FStatusPanel do
begin
Parent := self; {set parent to self}
Align := alClient; {set alignment to client}
BevelOuter := bvLowered; {set bevel appearances}
BevelInner := bvLowered;
Caption := 'Status Panel'; {set caption text}
Alignment := taLeftJustify; {left-justify caption}
ParentFont := true; {assume the parent's font}
end;
end;
{constructor - for wrapper}
constructor TcwStatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{create status-panel}
Align := alBottom; {default to alBottom}
StatusPanel := TStatusPanel.Create(self); {create a TStatusPanel instance}
with StatusPanel do
begin
Parent := self; {set parent to self}
Align := alClient; {set alignment to client}
end;
Height := 25;
{create TTimer}
FTimer := TTimer.create(self);
with FTimer do
begin
OnTimer := mTimer;
interval := 250; {update panels quarter of a second}
enabled := true;
end;
{set application's OnHint to the custom method, used by the TTimer. This will
force the application, when a hint is encountered, to be displayed in the
panel.}
application.onHint := mTimer;
{call timer method - this ensures that the application will open with a
status-bar that is configured and running}
mTimer(self);
end;
{destructor - for wrapper}
destructor TcwStatusBar.Destroy;
begin
inherited Destroy;
end;
{return caption (of panel in index)}
function TcwStatusBar.GetCaption(Index: Integer): string;
begin
case Index of
0: result := StatusPanel.FStatusPanel.caption;
1: result := StatusPanel.FCapsPanel.caption;
2: result := StatusPanel.FNumPanel.caption;
3: result := StatusPanel.FScrollPanel.caption;
4: result := StatusPanel.FTimePanel.caption;
{ Show error if any other Index was entered }
else MessageDlg('Invalid Index Value', mtWarning, [mbOk], 0);
end;
end;
{set caption (of panel in index)}
procedure TcwStatusBar.SetCaption(Index: Integer; Cap: string);
begin
case Index of
0: StatusPanel.FStatusPanel.Caption := cap;
1: StatusPanel.FCapsPanel.Caption := cap;
2: StatusPanel.FNumPanel.caption := cap;
3: StatusPanel.FScrollPanel.caption := cap;
4: StatusPanel.FTimePanel.caption := cap;
{ Show an error if any other Index was entered }
else MessageDlg('Invalid Index Value', mtWarning, [mbOk], 0);
end;
end;
{register}
procedure Register;
begin
RegisterComponents('cw_apps', [TcwStatusBar]);
end;
{***custom routines************************************************************}
{on timer, update captions}
procedure TcwStatusBar.mTimer(sender: TObject);
begin
{set hint}
Captions[0] := ' '+application.hint;
{set caps lock}
if GetKeyState(VK_CAPITAL) <> 0 then
Captions[1] := ' CAP'
else
Captions[1] := '';
{set num lock}
if GetKeyState(VK_NUMLOCK) <> 0 then
Captions[2] := ' NUM'
else
Captions[2] := '';
{set scroll lock}
if GetKeyState(VK_SCROLL) <> 0 then
Captions[3] := ' SCRL'
else
Captions[3] := '';
{set time}
Captions[4] := ' '+TimeToStr(now);
end;
{}
end.
[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]