| Class TGPDBNavigator97 (unit GPDBNav97) |
TCustomPanel
TGPDBNavigator97
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure BtnClick(Index: TNavigateBtn);
destructor Destroy;
procedure SetBounds(ALeft,ATop,AWidth,AHeight: Integer);
procedure ActiveChanged;
procedure DataChanged;
procedure EditingChanged;
procedure GetChildren(Proc: TGetChildProc);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetParent(AParent: TWinControl);
procedure AdjustSize(var W: Integer; var H: Integer);
procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
procedure Click(Sender: TObject);
procedure CMEnabledChanged(var Message: TMessage);
function GetDataSource: TDataSource;
function GetGlyph(index: integer): TBitmap;
procedure InitButtons;
procedure InitCaptions;
procedure InitFont;
procedure InitGlyphNumber;
procedure InitHints;
procedure SetCaptions(Value: TStrings);
procedure SetDataSource(Value: TDataSource);
procedure SetDisplayMode (Value: TButtonDisplayMode);
procedure SetEnabled(Value: TButtonSet);
procedure SetGlyph(index: integer; Value: TBitmap);
procedure SetHints(Value: TStrings);
procedure SetOpaque(Value: Boolean);
procedure SetVisible(Value: TButtonSet);
procedure SetWordWrap (Value: Boolean);
procedure WMEraseBackground(var Message: TWMEraseBkgnd);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property Captions : TStrings
property ConfirmDelete : Boolean
property DataSource : TDataSource
property DisplayMode : TButtonDisplayMode
property Enabled :
property EnabledButtons : TButtonSet
property Font :
property GlyphCancelBtn : TBitmap
property GlyphDeleteBtn : TBitmap
property GlyphEditBtn : TBitmap
property GlyphFirstBtn : TBitmap
property GlyphInsertBtn : TBitmap
property GlyphLastBtn : TBitmap
property GlyphNextBtn : TBitmap
property GlyphPostBtn : TBitmap
property GlyphPriorBtn : TBitmap
property GlyphRefreshBtn : TBitmap
property Hints : TStrings
property Opaque : Boolean
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
property VisibleButtons : TButtonSet
property WordWrap : Boolean| Events |
event OnResize : | Variables |
Buttons : array[TNavigateBtn] of TGPNavButton97;
ButtonWidth : Integer;
FCaptions : TStrings;
FConfirmDelete : Boolean;
FDataLink : TGPNavDataLink97;
FDisplayMode : TButtonDisplayMode;
FEnabledButtons : TButtonSet;
FHints : TStrings;
FocusedButton : TNavigateBtn;
FOnNavClick : ENavClick;
FOpaque : Boolean;
FVisibleButtons : TButtonSet;
FWordWrap : Boolean;
MinBtnSize : TPoint;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure BtnClick(Index: TNavigateBtn);
destructor Destroy;
procedure SetBounds(ALeft,ATop,AWidth,AHeight: Integer);
procedure ActiveChanged;
procedure DataChanged;
procedure EditingChanged;
procedure GetChildren(Proc: TGetChildProc);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetParent(AParent: TWinControl);+++
procedure AdjustSize(var W: Integer; var H: Integer);
procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
procedure Click(Sender: TObject);
procedure CMEnabledChanged(var Message: TMessage);
function GetDataSource: TDataSource;
function GetGlyph(index: integer): TBitmap;
procedure InitButtons;
procedure InitCaptions;
procedure InitFont;
procedure InitGlyphNumber;
procedure InitHints;+++ Changed resource name, and added IFDEF } {$IFDEF GPDBNav97Delphi3
procedure SetCaptions(Value: TStrings);
procedure SetDataSource(Value: TDataSource);
procedure SetDisplayMode (Value: TButtonDisplayMode);
procedure SetEnabled(Value: TButtonSet);
procedure SetGlyph(index: integer; Value: TBitmap);
procedure SetHints(Value: TStrings);following line added so that default hints correctly appear on buttons when Hints property is unassigned
procedure SetOpaque(Value: Boolean);
procedure SetVisible(Value: TButtonSet);
procedure SetWordWrap (Value: Boolean);+++
procedure WMEraseBackground(var Message: TWMEraseBkgnd);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property Captions : TStrings
property ConfirmDelete : Boolean
property DataSource : TDataSource
property DisplayMode : TButtonDisplayMode
property Enabled :
property EnabledButtons : TButtonSet
property Font :
property GlyphCancelBtn : TBitmap
property GlyphDeleteBtn : TBitmap
property GlyphEditBtn : TBitmap
property GlyphFirstBtn : TBitmap
property GlyphInsertBtn : TBitmap
property GlyphLastBtn : TBitmap
property GlyphNextBtn : TBitmap
property GlyphPostBtn : TBitmap
property GlyphPriorBtn : TBitmap
property GlyphRefreshBtn : TBitmap
property Hints : TStrings
property Opaque : Boolean
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
property VisibleButtons : TButtonSet
property WordWrap : Boolean| Events |
event OnResize : | Variables |
Buttons : array[TNavigateBtn] of TGPNavButton97;
ButtonWidth : Integer;
FCaptions : TStrings;
FConfirmDelete : Boolean;
FDataLink : TGPNavDataLink97;
FDisplayMode : TButtonDisplayMode;
FEnabledButtons : TButtonSet;
FHints : TStrings;
FocusedButton : TNavigateBtn;
FOnNavClick : ENavClick;
FOpaque : Boolean;
FVisibleButtons : TButtonSet;
FWordWrap : Boolean;
MinBtnSize : TPoint;