| Class TmoDBNav (unit Dbnavnew) |
TCustomPanel
TmoNavBtnSwitches
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure BtnClick(Index: TmoNavBtns);
destructor Destroy;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure SetButtonState(Index: TmoNavBtns; bEnable: Boolean);
procedure ActiveChanged;
procedure DataChanged;
procedure EditingChanged;
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: TDataSource;
function GetVisibleButtons: TmoBtnSet;Destroy
procedure InitButtons;
procedure InitHints;
procedure SetDataSource(Value: TDataSource);
procedure SetEnabled(Value: TmoBtnSet);
procedure SetHints(Value: TStrings);
procedure SetMaxSetMove(Value: Integer);
procedure SetMoveByAmount(Value: Integer);
procedure SetOrientation(Value: TmoNavOrientation);
procedure SetVisibleButtons(Value: TmoBtnSet);
procedure UpdateEnabled;
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property BookmarkMessage : String
property ConfirmCancel : Boolean
property ConfirmDelete : Boolean
property Ctl3D :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property MaxSetMove : Integer
property Orientation : TmoNavOrientation
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property SetMove : Integer
property ShowBookmarkMessage : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property VisibleBtns : TmoNavBtnSwitches
property EnabledButtons : TmoBtnSet
property VisibleButtons : TmoBtnSet| Events |
event OnClick : ENavClick
event OnDataChanged : TNotifyEvent
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEditingChanged : TNotifyEvent
event OnEndDrag :
event OnEnter :
event OnExit :
event OnLocate : ENavClick
event OnLocateNext : ENavClick
event OnLookupHelp : ENavClick
event OnResize : | Variables |
Buttons : array[TmoNavBtns] of TmoNavBtn;
ButtonHeight : Integer;
ButtonWidth : Integer;
FBookmark : TBookmark;
FBookmarkDs : TDataSet;
FBookmarkMessage : String;
FConfirmCancel : Boolean;
FConfirmDelete : Boolean;
FDataLink : TNavDataLink;
FEnabledButtons : TmoBtnSet;
FHints : TStrings;
FMaxSetMove : Integer;
FocusedButton : TmoNavBtns;
FOnDataChanged : TNotifyEvent;
FOnEditingChanged : TNotifyEvent;
FOnLocate : ENavClick;
FOnLocateNext : ENavClick;
FOnLookupHelp : ENavClick;
FOnNavClick : ENavClick;
FOrientation : TmoNavOrientation;
FSetMove : Integer;
FShowBookmarkMessage : Boolean;
FUserEnabledButtons : TmoBtnSet;
FVisibleButtons : TmoBtnSet;
FVisibleSwitches : TmoNavBtnSwitches;
MinBtnSize : TPoint;| Constructors |
constructor Create(AOwner: TComponent);SetSwitch} { TmoDBNav
| Functions |
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
| Properties |
property Align : New
property BookmarkMessage : StringNew
property ConfirmCancel : Boolean
property ConfirmDelete : BooleanNew
property Ctl3D :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property MaxSetMove : IntegerNew
property Orientation : TmoNavOrientationNew
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property SetMove : IntegerNew
property ShowBookmarkMessage : Boolean
property ShowHint : New
property TabOrder :
property TabStop :
property Visible :
property VisibleBtns : TmoNavBtnSwitchesNew - used to explicitly enable or disable a particular button, overriding its default state.
property EnabledButtons : TmoBtnSet
property VisibleButtons : TmoBtnSetNew - runtime readonly property that returns the set of enabled buttons.
| Events |
event OnClick : ENavClick
event OnDataChanged : TNotifyEventNew - proc to execute when OnDataChanged occurs.
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEditingChanged : TNotifyEventNew - proc to execute when OnEditingChanged occurs.
event OnEndDrag :
event OnEnter :
event OnExit :
event OnLocate : ENavClickNew - proc to execute when locate is clicked.
event OnLocateNext : ENavClickNew - proc to execute when LocateNext is clicked.
event OnLookupHelp : ENavClickNew - proc to execute when LookupHelp is clicked.
event OnResize : | Variables |
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;