Class TCustomDBSpeedButton (unit DBSBtn)

Inherits from

TSpeedButton

TCustomDBSpeedButton } {$IFDEF DBSpeedButton

Constructors


constructor Create(AOwner: TComponent);

TCustomDBSpeedButton


Functions

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;

'DBSpeedButton'

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


function StandardComponentName: TComponentName;


procedure TimerExpired(Sender: TObject);


procedure WriteButtonEnabled(Writer: TWriter);


Properties

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:

Events

event OnAfterAction : TAfterActionEvent


event OnBeforeAction : TBeforeActionEvent


event OnEnabledChanged : TNotifyEvent


event OnGetQuestion : TGetQuestionEvent


Variables

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;



Constructors


constructor Create(AOwner: TComponent);

TCustomDBSpeedButton


Functions


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;

'DBSpeedButton'


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


function StandardComponentName: TComponentName;


procedure TimerExpired(Sender: TObject);


procedure WriteButtonEnabled(Writer: TWriter);


Properties


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:


Events


event OnAfterAction : TAfterActionEvent


event OnBeforeAction : TBeforeActionEvent


event OnEnabledChanged : TNotifyEvent


event OnGetQuestion : TGetQuestionEvent


Variables


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;