Class TATStatusbar (unit ATStatusbar)

Inherits from

TStatusBar

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Delay(MSecs: Integer);


destructor Destroy;

Don't wait 1 second to display the time

procedure Play(Freq: Word; MSecs: Integer);

allowing access to other controls, etc.

procedure Stop;


procedure Timer;


function GetPort(address: Word): Word;


procedure NoSound;


procedure SetBeepTime(Value : Integer);

This one to update the language

procedure SetDDate(Value : Boolean);

So you don't have to wait 1 second

procedure SetDDay(Value : Boolean);

So you don't have to wait 1 second

procedure SetDLanguage(Value : TDayLanguage);


procedure SetDTime(Value : Boolean);

<\

So you don't have to wait 1 second


procedure SetInterval(Value : Integer);

====================================================} { A resize is called after the object is created.

procedure SetOnAlarm(Value: TNotifyEvent);


procedure SetOnTimer(Value: TNotifyEvent);


procedure SetPort(address, value: Word);


procedure SetProgress(Value : Integer);

BeepTime in MSec

procedure ShowDateTime;

So you don't have to wait 1 second

procedure Sound(Freq: Word);


procedure UpdateTimer;

Timer

procedure WMSize(var Message: TWMSize);

Resize event

procedure WndProc(var Msg: TMessage);


Properties

property Alarm : TAlarm


property AlarmTime : string


property AlarmType : TAlarmType


property Align :


property Beep : TBeep


property BeepFreq : Word


property BeepTime : Integer


property Cursor :


property DayLanguage : TDayLanguage


property DisplayDate : Boolean


property DisplayDay : Boolean


property DisplayTime : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Height :


property HelpContext :


property Hint :


property Interval : integer


property Left :


property Name :


property Panels :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property Progress : Integer


property ProgressColor : TColor


property ShowHint :


property SimplePanel :


property SimpleText :


property SizeGrip :


property Tag :


property Top :


property Visible :


property Width :


property TimerID : TTimerID


Events

event OnAlarm : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawPanel :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize : TNotifyEvent


event OnStartDrag :


event OnTimer : TNotifyEvent


Variables

FAlarm : TAlarm;


FAlarmTime : string;


FAlarmType : TAlarmType;


FBeep : TBeep;


FBeepFreq : Word;


FBeepTime : Integer;


FDayLanguage : TDayLanguage;


FDisplayDate : Boolean;


FDisplayDay : Boolean;


FDisplayTime : Boolean;


FInterval : integer;


FOnAlarm : TNotifyEvent;


FOnResize : TNotifyEvent;


FOnTimer : TNotifyEvent;


FProgress : Integer;


FProgresscolor : TColor;


FRing : Boolean;


FTimerID : integer;


FWindowHandle : HWND;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Delay(MSecs: Integer);


destructor Destroy;

Don't wait 1 second to display the time


procedure Play(Freq: Word; MSecs: Integer);

allowing access to other controls, etc.


procedure Stop;


procedure Timer;


function GetPort(address: Word): Word;


procedure NoSound;


procedure SetBeepTime(Value : Integer);

This one to update the language


procedure SetDDate(Value : Boolean);

So you don't have to wait 1 second


procedure SetDDay(Value : Boolean);

So you don't have to wait 1 second


procedure SetDLanguage(Value : TDayLanguage);


procedure SetDTime(Value : Boolean);

<\

So you don't have to wait 1 second


procedure SetInterval(Value : Integer);

====================================================} { A resize is called after the object is created. } { If desired, the name can be set here. } { } { } {----------------------------------------------------} { } { If you don't want it automatically named } { "StatusBar", comment out the following line } { } {====================================================


procedure SetOnAlarm(Value: TNotifyEvent);


procedure SetOnTimer(Value: TNotifyEvent);


procedure SetPort(address, value: Word);


procedure SetProgress(Value : Integer);

BeepTime in MSec


procedure ShowDateTime;

So you don't have to wait 1 second


procedure Sound(Freq: Word);


procedure UpdateTimer;

Timer


procedure WMSize(var Message: TWMSize);

Resize event


procedure WndProc(var Msg: TMessage);


Properties


property Alarm : TAlarm


property AlarmTime : string


property AlarmType : TAlarmType


property Align :


property Beep : TBeep


property BeepFreq : Word


property BeepTime : Integer


property Cursor :


property DayLanguage : TDayLanguage


property DisplayDate : Boolean


property DisplayDay : Boolean


property DisplayTime : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Height :


property HelpContext :


property Hint :


property Interval : integer


property Left :


property Name :


property Panels :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property Progress : Integer


property ProgressColor : TColor


property ShowHint :


property SimplePanel :


property SimpleText :


property SizeGrip :


property Tag :


property Top :


property Visible :


property Width :


property TimerID : TTimerID


Events


event OnAlarm : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawPanel :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize : TNotifyEvent


event OnStartDrag :


event OnTimer : TNotifyEvent


Variables


FAlarm : TAlarm;


FAlarmTime : string;


FAlarmType : TAlarmType;


FBeep : TBeep;


FBeepFreq : Word;


FBeepTime : Integer;


FDayLanguage : TDayLanguage;


FDisplayDate : Boolean;


FDisplayDay : Boolean;


FDisplayTime : Boolean;


FInterval : integer;


FOnAlarm : TNotifyEvent;


FOnResize : TNotifyEvent;


FOnTimer : TNotifyEvent;


FProgress : Integer;


FProgresscolor : TColor;


FRing : Boolean;


FTimerID : integer;


FWindowHandle : HWND;