Class TmoDBNav (unit Dbnavnew) |
Inherits from
TCustomPanel
TmoNavBtnSwitches
constructor Create(AOwner: TComponent);
- SetSwitch} { TmoDBNav
procedure BtnClick(Index: TmoNavBtns);
SetMoveByAmount
destructor Destroy;
Create
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
AdjustSize
procedure SetButtonState(Index: TmoNavBtns; bEnable: Boolean);
BtnNavClick
procedure ActiveChanged;
EditingChanged
procedure DataChanged;
WMGetDlgCode
procedure EditingChanged;
UpdateEnabled
procedure KeyDown(var Key: Word; Shift: TShiftState);
WMKillFocus
procedure Loaded;
GetDataSource
procedure Notification(AComponent: TComponent;
Operation: TOperation);
SetHints
procedure AdjustSize (var W: Integer; var H: Integer);
New - used to set SetMove.
procedure BtnMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Click
procedure Click(Sender: TObject);
WMSize
procedure CMEnabledChanged(var Message: TMessage);
ActiveChanged
function GetDataSource: TDataSource;
New - function called by
TmoNavBtnSwitches to change the set of visible buttons.
function GetVisibleButtons: TmoBtnSet;
# of records to move on NextSet/PriorSetDestroy
procedure InitButtons;
SetOrientation
procedure InitHints;
InitButtons
procedure SetDataSource(Value: TDataSource);
CMEnabledChanged
procedure SetEnabled(Value: TmoBtnSet);
Notification
procedure SetHints(Value: TStrings);
InitHints
procedure SetMaxSetMove(Value: Integer);
BtnMouseDown
procedure SetMoveByAmount(Value: Integer);
New - used to set FMaxSetMove.
procedure SetOrientation(Value: TmoNavOrientation);
SetVisibleButtons
procedure SetVisibleButtons(Value: TmoBtnSet);
New - Function to be called by
TmoNavBtnSwitches to determine which buttons are enabled.
procedure UpdateEnabled;
DataChanged
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
KeyDown
procedure WMKillFocus(var Message: TWMKillFocus);
WMSetFocus
procedure WMSetFocus(var Message: TWMSetFocus);
SetButtonState
procedure WMSize(var Message: TWMSize);
New - used to change
the orientation from horizontal to vertical or vice-versa.
property Align :
New
property BookmarkMessage : String
New
property ConfirmCancel : Boolean
property ConfirmDelete : Boolean
New
property Ctl3D :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property MaxSetMove : Integer
New
property Orientation : TmoNavOrientation
New
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property SetMove : Integer
New
property ShowBookmarkMessage : Boolean
property ShowHint :
New
property TabOrder :
property TabStop :
property Visible :
property VisibleBtns : TmoNavBtnSwitches
New - used
to explicitly enable or disable a particular button, overriding its
default state.
property EnabledButtons : TmoBtnSet
property VisibleButtons : TmoBtnSet
New - runtime
readonly property that returns the set of enabled buttons.
event OnClick : ENavClick
event OnDataChanged : TNotifyEvent
New - proc to execute when OnDataChanged occurs.
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEditingChanged : TNotifyEvent
New - proc to execute when OnEditingChanged occurs.
event OnEndDrag :
event OnEnter :
event OnExit :
event OnLocate : ENavClick
New - proc to execute when locate is clicked.
event OnLocateNext : ENavClick
New - proc to execute when LocateNext is clicked.
event OnLookupHelp : ENavClick
New - proc to execute when LookupHelp is clicked.
event OnResize :
Buttons : array[TmoNavBtns] of TmoNavBtn;
New - used to update the set of enabled buttons
when they are enabled or disabled.
ButtonHeight : Integer;
ButtonWidth : Integer;
FBookmark : TBookmark;
New - horizontal or vertical.
FBookmarkDs : TDataSet;
New - this is the message that is displayed if
FShowBookmarkMessage is true and the user clicks the Goto Bookmark button
while on a different dataset than that on which the bookmark was set.
FBookmarkMessage : String;
New - indicates whether or not a message
should be displayed when the user clicks Goto Bookmark while on a dataset
other than that on which the bookmark was set.
FConfirmCancel : Boolean;
FConfirmDelete : Boolean;
New - displays a confirmation dialog when the user
tries to cancel a record, much like ConfirmDelete.
FDataLink : TNavDataLink;
New - the dataset for which the bookmark was set.
FEnabledButtons : TmoBtnSet;
FHints : TStrings;
FMaxSetMove : Integer;
FocusedButton : TmoNavBtns;
New - procedure to be executed when the
EditingChanged event of the navigator occurs.
FOnDataChanged : TNotifyEvent;
New - procedure to be executed when the
locatenext button is clicked.
FOnEditingChanged : TNotifyEvent;
New - procedure to be executed when the
DataChanged event of the navigator occurs.
FOnLocate : ENavClick;
New - procedure to be executed when the
lookuphelp button is clicked.
FOnLocateNext : ENavClick;
New - procedure to be executed when the
locate button is clicked.
FOnLookupHelp : ENavClick;
FOnNavClick : ENavClick;
FOrientation : TmoNavOrientation;
New - Used to set the visiblebtns
property at design time.
FSetMove : Integer;
New - max # of records to move on NextSet/PriorSet.
FShowBookmarkMessage : Boolean;
New
FUserEnabledButtons : TmoBtnSet;
New - specifies which of the visible buttons
are enabled.
FVisibleButtons : TmoBtnSet;
Specifies which of the buttons have been
explicitly enabled by the user.
FVisibleSwitches : TmoNavBtnSwitches;
MinBtnSize : TPoint;
constructor Create(AOwner: TComponent);
SetSwitch} { TmoDBNav
procedure BtnClick(Index: TmoNavBtns);
SetMoveByAmount
destructor Destroy;
Create
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
AdjustSize
procedure SetButtonState(Index: TmoNavBtns; bEnable: Boolean);
BtnNavClick
procedure ActiveChanged;
EditingChanged
procedure DataChanged;
WMGetDlgCode
procedure EditingChanged;
UpdateEnabled
procedure KeyDown(var Key: Word; Shift: TShiftState);
WMKillFocus
procedure Loaded;
GetDataSource
procedure Notification(AComponent: TComponent;
Operation: TOperation);
SetHints
procedure AdjustSize (var W: Integer; var H: Integer);
New - used to set SetMove.
SetEnabled
procedure BtnMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Click
procedure Click(Sender: TObject);
WMSize
procedure CMEnabledChanged(var Message: TMessage);
ActiveChanged
function GetDataSource: TDataSource;
New - function called by
TmoNavBtnSwitches to change the set of visible buttons.
SetDataSource
function GetVisibleButtons: TmoBtnSet;
# of records to move on NextSet/PriorSet
Destroy
procedure InitButtons;
SetOrientation
procedure InitHints;
InitButtons
procedure SetDataSource(Value: TDataSource);
CMEnabledChanged
procedure SetEnabled(Value: TmoBtnSet);
Notification
procedure SetHints(Value: TStrings);
InitHints
procedure SetMaxSetMove(Value: Integer);
BtnMouseDown
procedure SetMoveByAmount(Value: Integer);
New - used to set FMaxSetMove.
SetMaxSetMove
procedure SetOrientation(Value: TmoNavOrientation);
SetVisibleButtons
procedure SetVisibleButtons(Value: TmoBtnSet);
New - Function to be called by
TmoNavBtnSwitches to determine which buttons are enabled.
GetVisibleButtons
procedure UpdateEnabled;
DataChanged
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
KeyDown
procedure WMKillFocus(var Message: TWMKillFocus);
WMSetFocus
procedure WMSetFocus(var Message: TWMSetFocus);
SetButtonState
procedure WMSize(var Message: TWMSize);
New - used to change
the orientation from horizontal to vertical or vice-versa.
SetBounds
property Align :
New
property BookmarkMessage : String
New
property ConfirmCancel : Boolean
property ConfirmDelete : Boolean
New
property Ctl3D :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property MaxSetMove : Integer
New
property Orientation : TmoNavOrientation
New
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property SetMove : Integer
New
property ShowBookmarkMessage : Boolean
property ShowHint :
New
property TabOrder :
property TabStop :
property Visible :
property VisibleBtns : TmoNavBtnSwitches
New - used
to explicitly enable or disable a particular button, overriding its
default state.
property EnabledButtons : TmoBtnSet
property VisibleButtons : TmoBtnSet
New - runtime
readonly property that returns the set of enabled buttons.
event OnClick : ENavClick
event OnDataChanged : TNotifyEvent
New - proc to execute when OnDataChanged occurs.
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEditingChanged : TNotifyEvent
New - proc to execute when OnEditingChanged occurs.
event OnEndDrag :
event OnEnter :
event OnExit :
event OnLocate : ENavClick
New - proc to execute when locate is clicked.
event OnLocateNext : ENavClick
New - proc to execute when LocateNext is clicked.
event OnLookupHelp : ENavClick
New - proc to execute when LookupHelp is clicked.
event OnResize :
Buttons : array[TmoNavBtns] of TmoNavBtn;
New - used to update the set of enabled buttons
when they are enabled or disabled.
ButtonHeight : Integer;
ButtonWidth : Integer;
FBookmark : TBookmark;
New - horizontal or vertical. Extra code
is in the procedure AdjustSize.
FBookmarkDs : TDataSet;
New - this is the message that is displayed if
FShowBookmarkMessage is true and the user clicks the Goto Bookmark button
while on a different dataset than that on which the bookmark was set.
FBookmarkMessage : String;
New - indicates whether or not a message
should be displayed when the user clicks Goto Bookmark while on a dataset
other than that on which the bookmark was set.
FConfirmCancel : Boolean;
FConfirmDelete : Boolean;
New - displays a confirmation dialog when the user
tries to cancel a record, much like ConfirmDelete.
FDataLink : TNavDataLink;
New - the dataset for which the bookmark was set.
FEnabledButtons : TmoBtnSet;
FHints : TStrings;
FMaxSetMove : Integer;
FocusedButton : TmoNavBtns;
New - procedure to be executed when the
EditingChanged event of the navigator occurs.
FOnDataChanged : TNotifyEvent;
New - procedure to be executed when the
locatenext button is clicked. Nothing will happen if there is no procedure
for this event.
FOnEditingChanged : TNotifyEvent;
New - procedure to be executed when the
DataChanged event of the navigator occurs.
FOnLocate : ENavClick;
New - procedure to be executed when the
lookuphelp button is clicked. Nothing will happen if there is no procedure
for this event.
FOnLocateNext : ENavClick;
New - procedure to be executed when the
locate button is clicked. Nothing will happen if there is no procedure
for this event.
FOnLookupHelp : ENavClick;
FOnNavClick : ENavClick;
FOrientation : TmoNavOrientation;
New - Used to set the visiblebtns
property at design time. This is necessary because you can't publish a set
property that has more than 16 elements.
FSetMove : Integer;
New - max # of records to move on NextSet/PriorSet.
Checked in SetMoveByAmount.
FShowBookmarkMessage : Boolean;
New
FUserEnabledButtons : TmoBtnSet;
New - specifies which of the visible buttons
are enabled.
FVisibleButtons : TmoBtnSet;
Specifies which of the buttons have been
explicitly enabled by the user.
FVisibleSwitches : TmoNavBtnSwitches;
MinBtnSize : TPoint;