Class tDbNav97 (unit DbNav97)

Inherits from

TCustomPanel

tDbNav97

Constructors


constructor Create(AOwner: TComponent);

*********************** tDbNav97 component


Functions

procedure BtnClick(Index: tNavigateBtn);


destructor Destroy;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

vertical: ((FDirection=dirAuto) and (W < H)) or (FDirection=dirVertical

procedure ActiveChanged;


procedure DataChanged;


procedure EditingChanged;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure Paint;


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);


procedure FEnableBitmaps(Value: Boolean);


procedure FEnableCaptions(Value: Boolean);


procedure FSetBackground(value: TBitmap);


procedure FSetBackType(Value : tNavBackType);

caption inactive

procedure FSetBtnType(Value : tNavBtnType);


procedure FSetDirection(Value : tNavDirection);


function GetDataSource: TDataSource;


procedure InitButtons;


procedure InitCaptions;

Buttons[J].

procedure InitHints;


procedure LoadBitmaps (Btn : tNavBtn97; BtnType : pChar);

not in version 1.

procedure SetCaptions(Value: TStrings);


procedure SetCaptionStyle(Value : TExplorerButtonLayout);


procedure SetDataSource(Value: TDataSource);


procedure SetHints(Value: TStrings);

Buttons[J].

procedure SetVisible(Value: TVertButtonSet);


procedure UnLoadbitmaps (Btn : tNavBtn97);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties

property About : TAboutMeProperty


property Align :


property Background : TBitmap


property BackgroundStyle : tNavBackType


property Captions : TStrings


property CaptionStyle : TExplorerButtonLayout


property ConfirmDelete : Boolean


property Ctl3D :


property DataSource : TDataSource


property Direction : tNavDirection


property DragCursor :


property DragMode :


property Enabled :


property Hints : TStrings


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Style : tNavBtnType


property TabOrder :


property TabStop :


property Visible :


property VisibleButtons : TVertButtonSet


Events

event OnClick : EVertNavClick


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnResize :


Variables

Buttons : array[tNavigateBtn] of tNavBtn97;


ButtonHeight : Integer;


ButtonWidth : Integer;


FAbout : TAboutMeProperty;


FBackground : tBitmap;


FBackType : tNavBackType;


FBtnType : tNavBtnType;


FCaptions : TStrings;


FCaptionStyle : TExplorerButtonLayout;


FConfirmDelete : Boolean;


FDataLink : tNavDatalink;


FDirection : tNavDirection;


FHints : TStrings;


FocusedButton : tNavigateBtn;


FOnNavClick : EVertNavClick;


FVisibleButtons : TVertButtonSet;


MinBtnSize : TPoint;



Constructors


constructor Create(AOwner: TComponent);

*********************** tDbNav97 component


Functions


procedure BtnClick(Index: tNavigateBtn);


destructor Destroy;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

vertical: ((FDirection=dirAuto) and (W < H)) or (FDirection=dirVertical


procedure ActiveChanged;


procedure DataChanged;


procedure EditingChanged;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure Paint;


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);


procedure FEnableBitmaps(Value: Boolean);


procedure FEnableCaptions(Value: Boolean);


procedure FSetBackground(value: TBitmap);


procedure FSetBackType(Value : tNavBackType);

caption inactive


procedure FSetBtnType(Value : tNavBtnType);


procedure FSetDirection(Value : tNavDirection);


function GetDataSource: TDataSource;


procedure InitButtons;


procedure InitCaptions;

Buttons[J].Hint := LoadResString(BtnHintId[J]);


procedure InitHints;


procedure LoadBitmaps (Btn : tNavBtn97; BtnType : pChar);

not in version 1.4b; added by me


procedure SetCaptions(Value: TStrings);


procedure SetCaptionStyle(Value : TExplorerButtonLayout);


procedure SetDataSource(Value: TDataSource);


procedure SetHints(Value: TStrings);

Buttons[J].Caption := LoadResString(BtnHintId[J]);


procedure SetVisible(Value: TVertButtonSet);


procedure UnLoadbitmaps (Btn : tNavBtn97);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties


property About : TAboutMeProperty


property Align :


property Background : TBitmap


property BackgroundStyle : tNavBackType


property Captions : TStrings


property CaptionStyle : TExplorerButtonLayout


property ConfirmDelete : Boolean


property Ctl3D :


property DataSource : TDataSource


property Direction : tNavDirection


property DragCursor :


property DragMode :


property Enabled :


property Hints : TStrings


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Style : tNavBtnType


property TabOrder :


property TabStop :


property Visible :


property VisibleButtons : TVertButtonSet


Events


event OnClick : EVertNavClick


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnResize :


Variables


Buttons : array[tNavigateBtn] of tNavBtn97;


ButtonHeight : Integer;


ButtonWidth : Integer;


FAbout : TAboutMeProperty;


FBackground : tBitmap;


FBackType : tNavBackType;


FBtnType : tNavBtnType;


FCaptions : TStrings;


FCaptionStyle : TExplorerButtonLayout;


FConfirmDelete : Boolean;


FDataLink : tNavDatalink;


FDirection : tNavDirection;


FHints : TStrings;


FocusedButton : tNavigateBtn;


FOnNavClick : EVertNavClick;


FVisibleButtons : TVertButtonSet;


MinBtnSize : TPoint;