| Class TCustomDBBitBtn (unit DBBBtn) |
TBitBtn
TCustomDBBitBtn
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Click;
destructor Destroy;
procedure DoAction;
function CtrlNamePrefix: string;
procedure DefineProperties(Filer: TFiler);
function DoAskQuestion: Boolean;
procedure DoBeforeAction(var ActionIsDone: Boolean);
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);
procedure UpdateEnabled;
procedure CalcDisableReasons;
function CalculateComponentName(NewButtonType: TDBButtonType;
var NewName: TComponentName): Boolean;
procedure CMEnabledChanged(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
function GetDataSource: TDataSource;
function GetDisabled: Boolean;
procedure GlyphChanged(Sender: TObject);
function HasStandardComponentName: Boolean;
function IsStoreGlyph: Boolean;
procedure LoadGlyph;
procedure MenuItemClick(Sender: TObject);
function NumberOfStandardComponentName: Integer;
procedure ReadButtonEnabled(Reader: TReader);
procedure SetDataSource(Value: TDataSource);
procedure SetDBButtonType(Value: TDBButtonType);
procedure SetDisabled(Value: Boolean);
procedure SetLanguage(Value: TDBButtonLanguage);
procedure SetMenuItem(Value: TMenuItem);
function StandardComponentName: TComponentName;
procedure TimerExpired(Sender: TObject);
procedure WriteButtonEnabled(Writer: TWriter);| Properties |
property Glyph :
property ConfirmDelete : Boolean
property DataButtonType : TDBButtonType
property DataSource : TDataSource
property Disabled : Boolean
property DisableReasons : TDBBDisableReasons
property Language : TDBButtonLanguage
property MenuItem : TMenuItem
property StoreGlyph : Boolean| 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);TCustomDBBitBtn
| 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 caption if it was created by us automatically:
procedure UpdateEnabled;Calculates property Enabled:
procedure CalcDisableReasons;error: do nothing
function CalculateComponentName(NewButtonType: TDBButtonType;
var NewName: TComponentName): Boolean;
procedure CMEnabledChanged(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
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;'DBNavigationButton'
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 caption 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 : Booleanpossible published:
property DataButtonType : TDBButtonType
property DataSource : TDataSource
property Disabled : Boolean
property DisableReasons : TDBBDisableReasons
property Language : TDBButtonLanguage
property MenuItem : TMenuItem
property StoreGlyph : BooleanFor 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;