| Class TNaviBar (unit TNAVI) |
TcustomPanel
| Constructors |
constructor Create(aOwner :tComponent);| Functions |
Destructor Destroy;
procedure setit(const n : byte; b : boolean);
procedure itclick(Sender :tObject);
procedure SetActiveButton(value :BYTE);
procedure WMresize(var Message: TWMsize);| Properties |
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 : | Events |
event Onclick : tNotifyEvent| Variables |
BTNS : ARRAY[1..NUMBTN] OF TSPEEDBUTTON;
fActiveButton : BYTE;
fOnValueChange : tNotifyEvent;| Constructors |
constructor Create(aOwner :tComponent);| Functions |
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);| Properties |
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 : | Events |
event Onclick : tNotifyEventset button Save on or off} { property Saveoff : boolean read fButtonoff write SetButtons default true;
| Variables |
BTNS : ARRAY[1..NUMBTN] OF TSPEEDBUTTON;{ property OnValueChange :tNotifyEvent;}
fActiveButton : BYTE;
fOnValueChange : tNotifyEvent;