| Class TCustomNavigator (unit Navigate) |
TCustomPanel
| Constructors |
constructor Create(AOwner: TComponent);TNavigator
| Functions |
destructor Destroy;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure AdjustSize(var W: Integer; var H: Integer);
procedure BtnClick(Sender: TObject);
function GetBtnGlyph(AIndex: integer): TBitMap;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
procedure BtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ClearButtons;
procedure InitButtons;
procedure InitHints;
procedure SetButtons(Value: TStringList);
procedure SetGlyphs(Value: TBitMap);
procedure SetHints(Value: TStrings);
procedure SetUseCaptions(Value: boolean);
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;
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;