Class TOEDBNavigator (unit oenav)

Inherits from

TCustomPanel

TOEDBNavigator

Constructors


constructor Create(AOwner: TComponent);

If the user hasn't assigned anything to the insert then exit


Functions

procedure BtnClick(Index: TNavigateBtn);


destructor Destroy;

, nbEdit

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure ActiveChanged;

Buttons[nbRefresh].

procedure DataChanged;


procedure DoBrowse;


procedure DoInsert;


procedure DoMove(Index: TNavigateBtn);

case

procedure EditingChanged;

FDataLink.

procedure GetChildren(Proc: TGetChildProc);


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;


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


procedure AdjustSize (var W: Integer; var H: Integer);


procedure BtnMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Click(Sender: TObject);

check for minimum size

procedure CMEnabledChanged(var Message: TMessage);


function GetDataSource: TOEExtHstmt;


procedure InitButtons;


procedure InitHints;

!!! Force creation of speedbutton images !!!

procedure SetDataSource(Value: TOEExtHstmt);


procedure SetHints(Value: TStrings);


procedure SetVisible(Value: TButtonSet);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);

case

procedure WMSize(var Message: TWMSize);


Properties

property Align :

nbEdit

property ConfirmDelete : Boolean


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Hints : TStrings


property Inserting : Boolean

property OnInsert: TOnInsertEvent read FOnInsert write FOnInsert; property AfterInsert: TNotifyEvent read FAfterInsert write FAfterInsert;

property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property VisibleButtons : TButtonSet


property DataSource : TOEExtHstmt

MUST Be set at run time

Events

event OnClick : ENavClick


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnResize :


event OnReturnToBrowse : TNotifyEvent


event OnStartDrag :


Variables

Buttons : array[TNavigateBtn] of TOENavButton;


ButtonWidth : Integer;


FConfirmDelete : Boolean;


FDataLink : TOENavDataLink;


FHints : TStrings;


FInserting : Boolean;

FOnInsert: TOnInsertEvent;

FocusedButton : TNavigateBtn;


FOnNavClick : ENavClick;


FReturnToBrowse : TNotifyEvent;


FVisibleButtons : TButtonSet;


MinBtnSize : TPoint;



Constructors


constructor Create(AOwner: TComponent);

If the user hasn't assigned anything to the insert then exit


Functions


procedure BtnClick(Index: TNavigateBtn);


destructor Destroy;

, nbEdit


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure ActiveChanged;

Buttons[nbRefresh].Enabled := CanModify;{not (FDataLink.DataSet is TQuery);


procedure DataChanged;


procedure DoBrowse;


procedure DoInsert;


procedure DoMove(Index: TNavigateBtn);

case


procedure EditingChanged;

FDataLink.DataSet.CanModify and not (FDataLink.DataSource.BOF and FDataLink.DataSource.EOF


procedure GetChildren(Proc: TGetChildProc);


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;


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


procedure AdjustSize (var W: Integer; var H: Integer);


procedure BtnMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Click(Sender: TObject);

check for minimum size


procedure CMEnabledChanged(var Message: TMessage);


function GetDataSource: TOEExtHstmt;


procedure InitButtons;


procedure InitHints;

!!! Force creation of speedbutton images !!!


procedure SetDataSource(Value: TOEExtHstmt);


procedure SetHints(Value: TStrings);


procedure SetVisible(Value: TButtonSet);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);

case


procedure WMSize(var Message: TWMSize);


Properties


property Align :

nbEdit


property ConfirmDelete : Boolean


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Hints : TStrings


property Inserting : Boolean

property OnInsert: TOnInsertEvent read FOnInsert write FOnInsert; property AfterInsert: TNotifyEvent read FAfterInsert write FAfterInsert;


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property VisibleButtons : TButtonSet


property DataSource : TOEExtHstmt

MUST Be set at run time


Events


event OnClick : ENavClick


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnResize :


event OnReturnToBrowse : TNotifyEvent


event OnStartDrag :


Variables


Buttons : array[TNavigateBtn] of TOENavButton;


ButtonWidth : Integer;


FConfirmDelete : Boolean;


FDataLink : TOENavDataLink;


FHints : TStrings;


FInserting : Boolean;

FOnInsert: TOnInsertEvent;


FocusedButton : TNavigateBtn;


FOnNavClick : ENavClick;


FReturnToBrowse : TNotifyEvent;


FVisibleButtons : TButtonSet;


MinBtnSize : TPoint;