Class TDMNavigator (unit TDM)

Inherits from

TCustomPanel

TDMNavigator

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;



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;