Class TOEDBNavigator (unit oenav) |
Inherits from
TCustomPanel
TOEDBNavigator
constructor Create(AOwner: TComponent);
- If the user hasn't assigned anything to the insert then exit
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);
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
event OnClick : ENavClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
event OnReturnToBrowse : TNotifyEvent
event OnStartDrag :
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;
constructor Create(AOwner: TComponent);
If the user hasn't assigned anything to the insert then exit
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);
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
event OnClick : ENavClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
event OnReturnToBrowse : TNotifyEvent
event OnStartDrag :
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;