| Class TButtonX (unit ButtonImpl1) |
TActiveXControl
IPersistPropertyBag
| Constructors |
| Functions |
procedure Click;
procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
procedure EventSinkChanged(const EventSink: IUnknown);
function Get_Cancel: WordBool;
function Get_Caption: WideString;
function Get_Cursor: Smallint;
function Get_Default: WordBool;
function Get_DragCursor: Smallint;
function Get_DragMode: TxDragMode;
function Get_Enabled: WordBool;
function Get_Font: Font;
function Get_Visible: WordBool;
procedure InitializeControl;TButtonX
function IPersistPropertyBag.Load = PersistPropertyBagLoad;
function IPersistPropertyBag.Save = PersistPropertyBagSave;
function PersistPropertyBagLoad(const pPropBag: IPropertyBag;
const pErrorLog: IErrorLog): HResult;
function PersistPropertyBagSave(const pPropBag: IPropertyBag; fClearDirty: BOOL;
fSaveAllProperties: BOOL): HResult;
procedure Set_Cancel(Value: WordBool);
procedure Set_Caption(const Value: WideString);
procedure Set_Cursor(Value: Smallint);
procedure Set_Default(Value: WordBool);
procedure Set_DragCursor(Value: Smallint);
procedure Set_DragMode(Value: TxDragMode);
procedure Set_Enabled(Value: WordBool);
procedure Set_Font(const Value: Font);
procedure Set_Visible(Value: WordBool);
procedure ClickEvent(Sender: TObject);
procedure KeyPressEvent(Sender: TObject; var Key: Char);| Properties |
| Events |
| Variables |
FDelphiControl : TButton;
FEvents : IButtonXEvents;| Constructors |
| Functions |
procedure Click;
procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
procedure EventSinkChanged(const EventSink: IUnknown);
function Get_Cancel: WordBool;Define property pages here. Property pages are defined by calling DefinePropertyPage with the class id of the page. For example, DefinePropertyPage(Class_ButtonXPage);
function Get_Caption: WideString;
function Get_Cursor: Smallint;
function Get_Default: WordBool;
function Get_DragCursor: Smallint;
function Get_DragMode: TxDragMode;
function Get_Enabled: WordBool;
function Get_Font: Font;
function Get_Visible: WordBool;
procedure InitializeControl;Protected declarations
TButtonX
function IPersistPropertyBag.Load = PersistPropertyBagLoad;IPersistPropertyBag
function IPersistPropertyBag.Save = PersistPropertyBagSave;
function PersistPropertyBagLoad(const pPropBag: IPropertyBag;
const pErrorLog: IErrorLog): HResult;
function PersistPropertyBagSave(const pPropBag: IPropertyBag; fClearDirty: BOOL;
fSaveAllProperties: BOOL): HResult;we could add font special styles, too
procedure Set_Cancel(Value: WordBool);
procedure Set_Caption(const Value: WideString);
procedure Set_Cursor(Value: Smallint);
procedure Set_Default(Value: WordBool);
procedure Set_DragCursor(Value: Smallint);
procedure Set_DragMode(Value: TxDragMode);
procedure Set_Enabled(Value: WordBool);
procedure Set_Font(const Value: Font);
procedure Set_Visible(Value: WordBool);
procedure ClickEvent(Sender: TObject);
procedure KeyPressEvent(Sender: TObject; var Key: Char);| Properties |
| Events |
| Variables |
FDelphiControl : TButton;Private declarations
FEvents : IButtonXEvents;