Class TNaviBar (unit TNAVI)

Inherits from

TcustomPanel

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.

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

set 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;



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 : tNotifyEvent

set 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;