Class TMyDBNavigator97 (unit MyDbNav97)

Inherits from

TComponentForm

Constructors


constructor Create (AOwner : TComponent);



Functions

procedure ButtonBookmarkClick(Sender: TObject);


procedure NavigatorBeforeProcessClick(Sender: TObject; Button: TNavigateBtn);


procedure NavigatorChanged(Sender: TObject);


procedure NavigatorClick(Sender: TObject; Button: TNavigateBtn);


destructor Destroy;


procedure FreeBookmark;


procedure CreateWnd;


procedure Loaded;


procedure Notification (AComponent : TComponent; AOperation : TOperation);


function GetConfirmDelete : boolean;


function GetDataSource : TDataSource;


function GetEnabled : boolean;


function GetGlyph (index : integer) : TBitmap;


function GetHints : TStrings;


function GetNumGlyphs (index : integer) : integer;


procedure SetConfirmDelete (Value : boolean);


procedure SetDataSource (Value : TDataSource);


procedure SetEnabled (Value : boolean);


procedure SetGlyph (index : integer; Value : TBitmap);


procedure SetHints (Value : TStrings);


procedure SetNumGlyphs (index, value : integer);


procedure SetVisibleButtons (Btns : TMyButtonSet97);


procedure UpdateButtons;


procedure UpdateEnabled;


procedure WMSize (var Msg : TMessage);


Properties

property Align :


property BeforeProcessClick : TMyNavClick97

Event Handlers

property ConfirmDelete : boolean


property Cursor :


property DataSource : TDataSource


property Enabled : boolean


property GlyphBookmark : TBitmap


property GlyphCancel : TBitmap


property GlyphDelete : TBitmap


property GlyphEdit : TBitmap


property GlyphFirst : TBitmap


property GlyphInsert : TBitmap


property GlyphLast : TBitmap


property GlyphNext : TBitmap


property GlyphPost : TBitmap


property GlyphPrior : TBitmap


property GlyphRefresh : TBitmap


property Hints : TStrings


property NumGlyphsBookmark : integer


property NumGlyphsCancel : integer


property NumGlyphsDelete : integer


property NumGlyphsEdit : integer


property NumGlyphsFirst : integer


property NumGlyphsInsert : integer


property NumGlyphsLast : integer


property NumGlyphsNext : integer


property NumGlyphsPost : integer


property NumGlyphsPrior : integer


property NumGlyphsRefresh : integer


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property VisibleButtons : TMyButtonSet97


Events

event OnClick : TMyNavClick97


event OnDblClick :


event OnResize :


Variables

ButtonBookmark : TToolbarButton97;


ButtonCancel : TToolbarButton97;


ButtonDelete : TToolbarButton97;


ButtonEdit : TToolbarButton97;


ButtonFirst : TToolbarButton97;


ButtonInsert : TToolbarButton97;


ButtonLast : TToolbarButton97;


ButtonNext : TToolbarButton97;


ButtonPost : TToolbarButton97;


ButtonPrior : TToolbarButton97;


ButtonRefresh : TToolbarButton97;


Navigator : TExtendedDBNavigator;


PanelPrincipal : TPanel;


Bookmark : TBookmark;


Buttons : array [low (TMyNavigateBtn97)..high (TMyNavigateBtn97)] of TToolbarButton97;


FBeforeProcessClick : TMyNavClick97;


FOnClick : TMyNavClick97;


FVisibleButtons : TMyButtonSet97;



Constructors


constructor Create (AOwner : TComponent);


Functions


procedure ButtonBookmarkClick(Sender: TObject);


procedure NavigatorBeforeProcessClick(Sender: TObject; Button: TNavigateBtn);


procedure NavigatorChanged(Sender: TObject);


procedure NavigatorClick(Sender: TObject; Button: TNavigateBtn);


destructor Destroy;


procedure FreeBookmark;


procedure CreateWnd;


procedure Loaded;


procedure Notification (AComponent : TComponent; AOperation : TOperation);


function GetConfirmDelete : boolean;


function GetDataSource : TDataSource;


function GetEnabled : boolean;


function GetGlyph (index : integer) : TBitmap;


function GetHints : TStrings;


function GetNumGlyphs (index : integer) : integer;


procedure SetConfirmDelete (Value : boolean);


procedure SetDataSource (Value : TDataSource);


procedure SetEnabled (Value : boolean);


procedure SetGlyph (index : integer; Value : TBitmap);


procedure SetHints (Value : TStrings);


procedure SetNumGlyphs (index, value : integer);


procedure SetVisibleButtons (Btns : TMyButtonSet97);


procedure UpdateButtons;


procedure UpdateEnabled;


procedure WMSize (var Msg : TMessage);


Properties


property Align :


property BeforeProcessClick : TMyNavClick97

Event Handlers


property ConfirmDelete : boolean


property Cursor :


property DataSource : TDataSource


property Enabled : boolean


property GlyphBookmark : TBitmap


property GlyphCancel : TBitmap


property GlyphDelete : TBitmap


property GlyphEdit : TBitmap


property GlyphFirst : TBitmap


property GlyphInsert : TBitmap


property GlyphLast : TBitmap


property GlyphNext : TBitmap


property GlyphPost : TBitmap


property GlyphPrior : TBitmap


property GlyphRefresh : TBitmap


property Hints : TStrings


property NumGlyphsBookmark : integer


property NumGlyphsCancel : integer


property NumGlyphsDelete : integer


property NumGlyphsEdit : integer


property NumGlyphsFirst : integer


property NumGlyphsInsert : integer


property NumGlyphsLast : integer


property NumGlyphsNext : integer


property NumGlyphsPost : integer


property NumGlyphsPrior : integer


property NumGlyphsRefresh : integer


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property VisibleButtons : TMyButtonSet97


Events


event OnClick : TMyNavClick97


event OnDblClick :


event OnResize :


Variables


ButtonBookmark : TToolbarButton97;


ButtonCancel : TToolbarButton97;


ButtonDelete : TToolbarButton97;


ButtonEdit : TToolbarButton97;


ButtonFirst : TToolbarButton97;


ButtonInsert : TToolbarButton97;


ButtonLast : TToolbarButton97;


ButtonNext : TToolbarButton97;


ButtonPost : TToolbarButton97;


ButtonPrior : TToolbarButton97;


ButtonRefresh : TToolbarButton97;


Navigator : TExtendedDBNavigator;


PanelPrincipal : TPanel;


Bookmark : TBookmark;


Buttons : array [low (TMyNavigateBtn97)..high (TMyNavigateBtn97)] of TToolbarButton97;


FBeforeProcessClick : TMyNavClick97;


FOnClick : TMyNavClick97;


FVisibleButtons : TMyButtonSet97;