Class tDbNav97 (unit DbNav97) |
Inherits from
TCustomPanel
tDbNav97
constructor Create(AOwner: TComponent);
- *********************** tDbNav97 component
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);
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
event OnClick : EVertNavClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
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;
constructor Create(AOwner: TComponent);
*********************** tDbNav97 component
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);
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
event OnClick : EVertNavClick
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnResize :
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;