Class TCustomNavigator (unit Navigate)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TNavigator



Functions

destructor Destroy;

initialize default hints

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure AdjustSize(var W: Integer; var H: Integer);


procedure BtnClick(Sender: TObject);


function GetBtnGlyph(AIndex: integer): TBitMap;

add button to string list object

procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;

Protected declarations

procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ClearButtons;

initialize any non-default hints

procedure InitButtons;

free all buttons

procedure InitHints;

set result equal to temp, don't use Assign we don't want a copy

procedure SetButtons(Value: TStringList);


procedure SetGlyphs(Value: TBitMap);

initialize

procedure SetHints(Value: TStrings);

initialize

procedure SetUseCaptions(Value: boolean);

initialize

procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties

property Buttons : TStringList


property Glyphs : TBitMap


property Hints : TStrings


property UseCaptions : boolean


Events

event OnBtnClick : TNavClick


Variables

ButtonHeight : Integer;


ButtonWidth : Integer;


FButtons : TStringList;

Private declarations

FGlyphs : TBitMap;


FHints : TStrings;


FocusedButton : integer;


FOnNavClick : TNavClick;


FUseCaptions : boolean;


MinBtnSize : TPoint;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TNavigator


Functions


destructor Destroy;

initialize default hints


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure AdjustSize(var W: Integer; var H: Integer);


procedure BtnClick(Sender: TObject);


function GetBtnGlyph(AIndex: integer): TBitMap;

add button to string list object


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;

Protected declarations


procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ClearButtons;

initialize any non-default hints


procedure InitButtons;

free all buttons


procedure InitHints;

set result equal to temp, don't use Assign we don't want a copy


procedure SetButtons(Value: TStringList);


procedure SetGlyphs(Value: TBitMap);

initialize


procedure SetHints(Value: TStrings);

initialize


procedure SetUseCaptions(Value: boolean);

initialize


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties


property Buttons : TStringList


property Glyphs : TBitMap


property Hints : TStrings


property UseCaptions : boolean


Events


event OnBtnClick : TNavClick


Variables


ButtonHeight : Integer;


ButtonWidth : Integer;


FButtons : TStringList;

Private declarations


FGlyphs : TBitMap;


FHints : TStrings;


FocusedButton : integer;


FOnNavClick : TNavClick;


FUseCaptions : boolean;


MinBtnSize : TPoint;