Class TNaviBar (unit TNAVI) |
Inherits from
TcustomPanel
constructor Create(aOwner :tComponent);
Destructor Destroy;
procedure setit(const n : byte; b : boolean);
procedure itclick(Sender :tObject);
procedure SetButtons(value :boolean);
procedure SetActiveButton(value :BYTE);
procedure TNaviBar.
procedure WMresize(var Message: TWMsize);
property ActiveButton : BYTE
property Align :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property Caption :
property Color :
property Ctl3D :
property Cursor :
property Enabled :
property Height :
property Locked :
property ParentColor :
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
property Width :
event Onclick : tNotifyEvent
set button Save on or off} { property Saveoff : boolean read fButtonoff write SetButtons default true;
BTNS : ARRAY[1..NUMBTN] OF TSPEEDBUTTON;
{ property OnValueChange :tNotifyEvent;}
fActiveButton : BYTE;
fOnValueChange : tNotifyEvent;
constructor Create(aOwner :tComponent);
Destructor Destroy;
procedure setit(const n : byte; b : boolean);
procedure itclick(Sender :tObject);
procedure SetButtons(value :boolean);
procedure SetActiveButton(value :BYTE);
procedure TNaviBar.SetButtons(value :boolean);
begin
fButtonoff := value;
BTNS[4].enabled := fButtonoff;
{ invalidate;}
end;
procedure WMresize(var Message: TWMsize);
property ActiveButton : BYTE
property Align :
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property Caption :
property Color :
property Ctl3D :
property Cursor :
property Enabled :
property Height :
property Locked :
property ParentColor :
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
property Width :
event Onclick : tNotifyEvent
set button Save on or off} { property Saveoff : boolean read fButtonoff write SetButtons default true;
BTNS : ARRAY[1..NUMBTN] OF TSPEEDBUTTON;
{ property OnValueChange :tNotifyEvent;}
fActiveButton : BYTE;
fOnValueChange : tNotifyEvent;