| Class TDMNavigator (unit TDM) |
TCustomPanel
TDMNavigator
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure BtnClick(Index: TNavigateBtn);
destructor Destroy;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure ActiveChanged;
procedure DataChanged;
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: TDataSource;
procedure ImageListChange(Sender: TObject);
procedure InitButtons;
procedure InitHints;
procedure SetButtonGlyphs(Value: TImageList);
procedure SetDataSource(Value: TDataSource);
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 ButtonGlyphs : TImageList
property ConfirmDelete : Boolean
property Ctl3D :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property VisibleButtons : TButtonSet| Events |
event OnClick : ENavClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
event OnStartDrag : | Variables |
Buttons : array[TNavigateBtn] of TNavButton;
ButtonWidth : Integer;
FButtonGlyphs : TImageList;
FConfirmDelete : Boolean;
FDataLink : TNavDataLink;
FHints : TStrings;
FImageChangeLink : TChangeLink;
FocusedButton : TNavigateBtn;
FOnNavClick : ENavClick;
FVisibleButtons : TButtonSet;
MinBtnSize : TPoint;| Constructors |
constructor Create(AOwner: TComponent);{$R DBCTRLS} { TDMNavigator
| Functions |
procedure BtnClick(Index: TNavigateBtn);
destructor Destroy;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure ActiveChanged;
procedure DataChanged;
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);check for minimum size
procedure CMEnabledChanged(var Message: TMessage);
function GetDataSource: TDataSource;
procedure ImageListChange(Sender: TObject);Loop through all the available Navigator buttons and set } { their image according to the images in the TImageList } { component pointed to by FButtonGlyphs
procedure InitButtons;
procedure InitHints;
procedure SetButtonGlyphs(Value: TImageList);
procedure SetDataSource(Value: TDataSource);
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 ButtonGlyphs : TImageList
property ConfirmDelete : Boolean
property Ctl3D :
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Hints : TStrings
property ParentCtl3D :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property VisibleButtons : TButtonSet| Events |
event OnClick : ENavClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
event OnStartDrag : | Variables |
Buttons : array[TNavigateBtn] of TNavButton;
ButtonWidth : Integer;
FButtonGlyphs : TImageList;
FConfirmDelete : Boolean;
FDataLink : TNavDataLink;
FHints : TStrings;
FImageChangeLink : TChangeLink;
FocusedButton : TNavigateBtn;
FOnNavClick : ENavClick;
FVisibleButtons : TButtonSet;
MinBtnSize : TPoint;