Class TGPDBNavigator97 (unit GPDBNav97)

Inherits from

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;

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



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;