procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;

procedure EventSinkChanged(const EventSink: IUnknown); override;

function Get_Active: WordBool; safecall; function Get_AutoScroll: WordBool; safecall; function Get_AutoSize: WordBool; safecall;

function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall

function Get_BiDiMode: TxBiDiMode; safecall;

function Get_Caption: Widestring; safecall;

function Get_Color: OLE_COLOR; safecall;

function Get_Cursor: Smallint; safecall;

function Get_DoubleBuffered: WordBool; safecall;

function Get_DropTarget: WordBool; safecall;

function Get_Enabled: WordBool; safecall;

function Get_Font: IFontDisp; safecall;

function Get_HelpFile: Widestring; safecall;

function Get_KeyPreview: WordBool; safecall;

function Get_PixelsPerInch: Integer; safecall;

function Get_PrintScale: TxPrintScale; safecall;

function Get_Scaled: WordBool; safecall;

function Get Visible: WordBool; safecall;

procedure _Set_Font(const Value: IFontDisp); safecall; procedure Set_AutoScroll(Value: WordBool); safecall; procedure Set_AutoSize(Value: WordBool); safecall;

procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall; procedure Set_BiDiMode(Value: TxBiDiMode); safecall;

procedure Set_Caption(const Value: Widestring); safecall; procedure Set_Color(Value: OLE_COLOR); safecall; procedure Set_Cursor(Value: Smallint); safecall; procedure Set_DoubleBuffered(Value: WordBool); safecall; procedure Set_DropTarget(Value: WordBool); safecall; procedure Set_Enabled(Value: WordBool); safecall; procedure Set_Font(const Value: IFontDisp); safecall; procedure Set_HelpFile(const Value: Widestring); safecall; procedure Set_KeyPreview(Value: WordBool); safecall; procedure Set_PixelsPerInch(Value: Integer); safecall; procedure Set_PrintScale(Value: TxPrintScale); safecall; procedure Set_Scaled(Value: WordBool); safecall; procedure Set_Visible(Value: WordBool); safecall; public { Public declarations } procedure Initialize; override; end;

implementation uses ComObj, ComServ; {$R *.DFM} { TActiveTable }

procedure TActiveTable.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);

begin

{ Define property pages here. Property pages are defined by calling DefinePropertyPage with the class id of the page. For example, DefinePropertyPage(Class_ActiveTablePage); } end;

procedure TActiveTable.EventSinkChanged(const EventSink: IUnknown); begin

FEvents := EventSink as IActiveTableEvents; end;

procedure TActiveTable. Initializer-begin

inherited Initialize;

OnActivate := ActivateEvent; OnClick := ClickEvent; OnCreate := CreateEvent; OnDblClick := DblClickEvent; OnDeactivate := DeactivateEvent; OnDestroy := DestroyEvent; OnKeyPress := KeyPressEvent; OnPaint := PaintEvent; end;

function TActiveTable.Get_Active: WordBool; begin

Result := Active; end;

function TActiveTable.Get_AutoScroll: WordBool; begin

Result := AutoScroll; end;

function TActiveTable.Get_AutoSize: WordBool; begin

Result := AutoSize; end;

function TActiveTable.Get_AxBorderStyle: TxActiveFormBorderStyle;