Delphi使用VB6编写的ActiveX控件？？？_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi使用VB6编写的ActiveX控件？？？

作者：闵涛文章来源：闵涛的学习笔记点击数：1644 更新时间：2009/4/23 18:34:55

: Smallint; safecall;
    procedure Set_DrawMode(Param1: Smallint); safecall;
    function Get_FontStrikethru: WordBool; safecall;
    procedure Set_FontStrikethru(Param1: WordBool); safecall;
    function Get_FontUnderline: WordBool; safecall;
    procedure Set_FontUnderline(Param1: WordBool); safecall;
    property DrawWidth: OleVariant read Get_DrawWidth write Set_DrawWidth;
    property CurrentX: Single read Get_CurrentX write Set_CurrentX;
    property CurrentY: Single read Get_CurrentY write Set_CurrentY;
    property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
    property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
    property Font: IFontDisp read Get_Font write Set_Font;
    property FontName: OleVariant write Set_FontName;
    property FontSize: OleVariant write Set_FontSize;
    property FontBold: OleVariant write Set_FontBold;
    property FontItalic: OleVariant write Set_FontItalic;
    property PaperWidth: Single read Get_PaperWidth write Set_PaperWidth;
    property PaperHeight: Single read Get_PaperHeight write Set_PaperHeight;
    property ScaleHeight: Single read Get_ScaleHeight write Set_ScaleHeight;
    property ScaleWidth: Single read Get_ScaleWidth write Set_ScaleWidth;
    property DrawStyle: Smallint read Get_DrawStyle write Set_DrawStyle;
    property DrawMode: Smallint read Get_DrawMode write Set_DrawMode;
    property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
    property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
end;

// *********************************************************************//
// DispIntf: _prnviewDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {18CF3D27-3867-425A-BCE2-C754EE5FFE5A}
// *********************************************************************//
_prnviewDisp = dispinterface
    [''''{18CF3D27-3867-425A-BCE2-C754EE5FFE5A}'''']
    procedure PsetA(var X: OleVariant; var Y: OleVariant; var color: OleVariant); dispid 1610809362;
    function TextWidth(var str: WideString): Single; dispid 1610809363;
    function TextHeight(var str: WideString): Single; dispid 1610809364;
    procedure PaintPicture(var pic: IDispatch; var pLeft: OleVariant; var pTop: OleVariant;
                           var pWidth: OleVariant; var pHeight: OleVariant); dispid 1610809365;
    procedure Refresh; dispid 1610809366;
    procedure StartDoc(zm: OleVariant; Pw: OleVariant; Ph: OleVariant); dispid 1610809367;
    property DrawWidth: OleVariant dispid 1745027089;
    property CurrentX: Single dispid 1745027088;
    property CurrentY: Single dispid 1745027087;
    property BackColor: OLE_COLOR dispid 1745027086;
    property ForeColor: OLE_COLOR dispid 1745027085;
    property Font: IFontDisp dispid 1745027084;
    property FontName: OleVariant writeonly dispid 1745027083;
    property FontSize: OleVariant writeonly dispid 1745027082;
    property FontBold: OleVariant writeonly dispid 1745027081;
    property FontItalic: OleVariant writeonly dispid 1745027080;
    property PaperWidth: Single dispid 1745027079;
    property PaperHeight: Single dispid 1745027078;
    property ScaleHeight: Single dispid 1745027077;
    property ScaleWidth: Single dispid 1745027076;
    procedure CircleA(var bLeft: OleVariant; var bTop: OleVariant; var bRadius: OleVariant); dispid 1610809369;
    procedure PrintA(var PrintVar: OleVariant); dispid 1610809370;
    procedure BoxA(var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant;
                   var bTop1: OleVariant); dispid 1610809371;
    procedure BoxF(var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant;
                   var bTop1: OleVariant; var color: OleVariant); dispid 1610809372;
    procedure LineA(var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant;
                    var bTop1: OleVariant); dispid 1610809373;
    procedure Cls; dispid 1610809376;
    property DrawStyle: Smallint dispid 1745027075;
    property DrawMode: Smallint dispid 1745027074;
    property FontStrikethru: WordBool dispid 1745027073;
    property FontUnderline: WordBool dispid 1745027072;
end;

// *********************************************************************//
// DispIntf: __prnview
// Flags:     (4240) Hidden NonExtensible Dispatchable
// GUID:      {A47CD1BA-2E3A-4DCC-BE25-EA98C08DD135}
// *********************************************************************//
__prnview = dispinterface
    [''''{A47CD1BA-2E3A-4DCC-BE25-EA98C08DD135}'''']
    procedure MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single); dispid 1;
    procedure MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single); dispid 2;
    procedure MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single); dispid 3;
    procedure Click; dispid 4;
end;

implementation

uses ComObj;

end.

上一页 [1] [2]