Class TCustomDBToolbarButton97 (unit DB97Btn) |
Inherits from
TToolbarButton97
TCustomDBToolbarButton97
constructor Create(AOwner: TComponent);
- $R DBCTRLS} { uses DBCTRLS.
procedure Click;
destructor Destroy;
procedure DoAction;
DoAction Calls DoBeforeAction.
function CtrlNamePrefix: string;
procedure DefineProperties(Filer: TFiler);
function DoAskQuestion: Boolean;
Delphi >= 3.
procedure DoBeforeAction(var ActionIsDone: Boolean);
DoBeforeAction Calls the OnBeforeAction event:
procedure DoGetQuestion(var Question: string; var Buttons: TMsgDlgButtons;
var HelpCtx: Longint);
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
Change Hint if it was created by us automatically:
procedure Paint;
procedure UpdateEnabled;
Calculates property Enabled:
procedure CalcDisableReasons;
error: do nothing
function CalculateComponentName(NewButtonType: TDBButtonType;
var NewName: TComponentName): Boolean;
procedure CMEnabledChanged(var Message: TMessage);
function GetDataSource: TDataSource;
function GetDisabled: Boolean;
procedure GlyphChanged(Sender: TObject);
function HasStandardComponentName: Boolean;
function IsStoreGlyph: Boolean;
procedure LoadGlyph;
store only user-defined glyph:
procedure MenuItemClick(Sender: TObject);
function NumberOfStandardComponentName: Integer;
'DBToolbarButton97'
procedure ReadButtonEnabled(Reader: TReader);
procedure SetDataSource(Value: TDataSource);
procedure SetDBButtonType(Value: TDBButtonType);
don't change name if error occured, no warning
procedure SetDisabled(Value: Boolean);
procedure SetLanguage(Value: TDBButtonLanguage);
Change Hint if it was created by us automatically:
procedure SetMenuItem(Value: TMenuItem);
instead, call of OnClick is needed too
function StandardComponentName: TComponentName;
procedure TimerExpired(Sender: TObject);
FRepeatTimer.
procedure WriteButtonEnabled(Writer: TWriter);
property Glyph :
property ConfirmDelete : Boolean
possible published:
property DataButtonType : TDBButtonType
property DataSource : TDataSource
property Disabled : Boolean
property DisableReasons : TDBBDisableReasons
property Language : TDBButtonLanguage
property MenuItem : TMenuItem
property StoreGlyph : Boolean
For descentants:
event OnAfterAction : TAfterActionEvent
event OnBeforeAction : TBeforeActionEvent
event OnEnabledChanged : TNotifyEvent
event OnGetQuestion : TGetQuestionEvent
FOnAfterAction : TAfterActionEvent;
FButtonEnabled : Boolean;
FConfirmDelete : Boolean;
FCustomGlyph : Boolean;
FDataLink : TDBBtnDataLink;
FDBButtonType : TDBButtonType;
FDisableReasons : TDBBDisableReasons;
FInProcUpdateEnabled : Boolean;
FLanguage : TDBButtonLanguage;
FMenuItem : TMenuItem;
FOldOnGlyphChanged : TNotifyEvent;
FOnBeforeAction : TBeforeActionEvent;
FOnEnabledChanged : TNotifyEvent;
FOnGetQuestion : TGetQuestionEvent;
FOnMenuItemClick : TNotifyEvent;
FRepeatTimer : TTimer;
constructor Create(AOwner: TComponent);
$R DBCTRLS} { uses DBCTRLS.RES, but that is already linked by DB.PAS } (*
{$IFDEF WIN32}
{$R DBSBtn.d32} { 32-bit-DBSBtn.dcr is renamed to d32 }
{$ELSE DEF WIN32}
{$R DBSBtn.d16}
{$ENDIF DEF WIN32}
*) { TCustomDBToolbarButton97
procedure Click;
destructor Destroy;
procedure DoAction;
DoAction Calls DoBeforeAction.
Then it performs the standard-action if DataButtonType <> nbCustom.
Same as Click, but it does not call the OnClick event:
function CtrlNamePrefix: string;
procedure DefineProperties(Filer: TFiler);
function DoAskQuestion: Boolean;
Delphi >= 3.0:
procedure DoBeforeAction(var ActionIsDone: Boolean);
DoBeforeAction Calls the OnBeforeAction event:
procedure DoGetQuestion(var Question: string; var Buttons: TMsgDlgButtons;
var HelpCtx: Longint);
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
Change Hint if it was created by us automatically:
procedure Paint;
procedure UpdateEnabled;
Calculates property Enabled:
procedure CalcDisableReasons;
error: do nothing
function CalculateComponentName(NewButtonType: TDBButtonType;
var NewName: TComponentName): Boolean;
procedure CMEnabledChanged(var Message: TMessage);
function GetDataSource: TDataSource;
function GetDisabled: Boolean;
procedure GlyphChanged(Sender: TObject);
function HasStandardComponentName: Boolean;
function IsStoreGlyph: Boolean;
procedure LoadGlyph;
store only user-defined glyph:
procedure MenuItemClick(Sender: TObject);
function NumberOfStandardComponentName: Integer;
'DBToolbarButton97'
procedure ReadButtonEnabled(Reader: TReader);
procedure SetDataSource(Value: TDataSource);
procedure SetDBButtonType(Value: TDBButtonType);
don't change name if error occured, no warning
procedure SetDisabled(Value: Boolean);
procedure SetLanguage(Value: TDBButtonLanguage);
Change Hint if it was created by us automatically:
procedure SetMenuItem(Value: TMenuItem);
instead, call of OnClick is needed too
function StandardComponentName: TComponentName;
procedure TimerExpired(Sender: TObject);
FRepeatTimer.Enabled := Down; Down is NOT like TSpeedButton.Down
procedure WriteButtonEnabled(Writer: TWriter);
property Glyph :
property ConfirmDelete : Boolean
possible published:
property DataButtonType : TDBButtonType
property DataSource : TDataSource
property Disabled : Boolean
property DisableReasons : TDBBDisableReasons
property Language : TDBButtonLanguage
property MenuItem : TMenuItem
property StoreGlyph : Boolean
For descentants:
event OnAfterAction : TAfterActionEvent
event OnBeforeAction : TBeforeActionEvent
event OnEnabledChanged : TNotifyEvent
event OnGetQuestion : TGetQuestionEvent
FOnAfterAction : TAfterActionEvent;
FButtonEnabled : Boolean;
FConfirmDelete : Boolean;
FCustomGlyph : Boolean;
FDataLink : TDBBtnDataLink;
FDBButtonType : TDBButtonType;
FDisableReasons : TDBBDisableReasons;
FInProcUpdateEnabled : Boolean;
FLanguage : TDBButtonLanguage;
FMenuItem : TMenuItem;
FOldOnGlyphChanged : TNotifyEvent;
FOnBeforeAction : TBeforeActionEvent;
FOnEnabledChanged : TNotifyEvent;
FOnGetQuestion : TGetQuestionEvent;
FOnMenuItemClick : TNotifyEvent;
FRepeatTimer : TTimer;