Class TButtonX (unit ButtonImpl1)

Inherits from

TActiveXControl

IButtonX

IPersistPropertyBag

Constructors



Functions

procedure Click;


procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);


procedure EventSinkChanged(const EventSink: IUnknown);


function Get_Cancel: WordBool;

Define property pages here.

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;



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;