Class TmoDBNav (unit Dbnavnew)

Inherits from

TCustomPanel

TmoNavBtnSwitches

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.

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/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.

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.

Properties

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.

Events

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 :


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.

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;



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 : 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.


Events


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 :


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;