Class TExtendedDBNavigator (unit Mydbnav)

Inherits from

TMyDBNavigator

Constructors


constructor Create (AOwner : TComponent);

TExtendedDBNavigator


Functions

destructor Destroy;


procedure Loaded;


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


function GetEnabled : boolean;


procedure MyBtnClick (Sender : TObject);


function ReadButton (Index : integer) : TControl;


function ReadDataSource : TDataSource;


procedure SetEnabled (value : boolean);


procedure UpdateStateOfButtons;


procedure WriteButton (Index : integer; AButton : TControl);


procedure WriteDataSource (ADataSource : TDataSource);


Properties

property ButtonCancel : TControl


property ButtonDelete : TControl


property ButtonEdit : TControl


property ButtonFirst : TControl


property ButtonInsert : TControl


property ButtonLast : TControl


property ButtonNext : TControl


property ButtonPost : TControl


property ButtonPrior : TControl


property ButtonRefresh : TControl


property DataSource : TDataSource


property Enabled : boolean


Events

event OnActiveChanged : TNotifyEvent


event OnDataSetChanged : TNotifyEvent


event OnEditingChanged : TNotifyEvent


Variables

FActiveChanged : TNotifyEvent;


FDataLink : TMyNavDataLink;


FDataSetChanged : TNotifyEvent;


FEditingChanged : TNotifyEvent;


FMethods : array [low (TNavigateBtn)..high (TNavigateBtn)] of TNotifyEvent;


FNewButtons : array [low (TNavigateBtn)..high (TNavigateBtn)] of TControl;



Constructors


constructor Create (AOwner : TComponent);

TExtendedDBNavigator


Functions


destructor Destroy;


procedure Loaded;


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


function GetEnabled : boolean;


procedure MyBtnClick (Sender : TObject);


function ReadButton (Index : integer) : TControl;


function ReadDataSource : TDataSource;


procedure SetEnabled (value : boolean);


procedure UpdateStateOfButtons;


procedure WriteButton (Index : integer; AButton : TControl);


procedure WriteDataSource (ADataSource : TDataSource);


Properties


property ButtonCancel : TControl


property ButtonDelete : TControl


property ButtonEdit : TControl


property ButtonFirst : TControl


property ButtonInsert : TControl


property ButtonLast : TControl


property ButtonNext : TControl


property ButtonPost : TControl


property ButtonPrior : TControl


property ButtonRefresh : TControl


property DataSource : TDataSource


property Enabled : boolean


Events


event OnActiveChanged : TNotifyEvent


event OnDataSetChanged : TNotifyEvent


event OnEditingChanged : TNotifyEvent


Variables


FActiveChanged : TNotifyEvent;


FDataLink : TMyNavDataLink;


FDataSetChanged : TNotifyEvent;


FEditingChanged : TNotifyEvent;


FMethods : array [low (TNavigateBtn)..high (TNavigateBtn)] of TNotifyEvent;


FNewButtons : array [low (TNavigateBtn)..high (TNavigateBtn)] of TControl;