| Class TOEDBNavigator (unit oenav) |
TCustomPanel
TOEDBNavigator
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure BtnClick(Index: TNavigateBtn);
destructor Destroy;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure ActiveChanged;
procedure DataChanged;
procedure DoBrowse;
procedure DoInsert;
procedure DoMove(Index: TNavigateBtn);
procedure EditingChanged;
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);
procedure CMEnabledChanged(var Message: TMessage);
function GetDataSource: TOEExtHstmt;
procedure InitButtons;
procedure InitHints;
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);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property ConfirmDelete : Boolean
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property Inserting : Boolean
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property VisibleButtons : TButtonSet
property DataSource : TOEExtHstmt| 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;
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 : Booleanproperty 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 : TOEExtHstmtMUST 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;