The following is the WJPRNView_tlb.pas file that I am in VB6, registration and import the development environment of Delphi5, Delphi generated wjPrnView_tlb.PAS file, did not generate the TwjPrnView class, no registration panel, can not be used, do you have a method?
Unit wjPrnView_tlb;
// ******************************************************** *********************** / // Warning // ------- // The Types Declared in this File WERE generated from Data read from a // type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the type Library Editor activated while editing the // Type Library, The Contents of this file will be regenerated and all //manual modifications will be lost. // ****************************************** ******************************************************* //
// PastLWTR: $ REVISION: 1.88.1.0.1.0 $ // file generated on 2004-06-11 14:04:44 from Type Library Described Below.
// ******************************************************** *********************** //// type lib: e: /R95/wjPrnView.ocx (1) // iid / lcid: {D72F975E -72DC-11D6-923D-00E04CE8FBA7} / 0 // HelpFile: // DEPNDLST: / / (1) V2.0 stdole, (C: /Winnt/System32/stdole2.tlb) // (2) V4.0 STDVCL (C: /winnt/system32/stdvcl40.dll) // ************************************************** *********************************************** / / {$ typedaddress off} // Unit Must Be Compiled WITHOUT TYPE-CHECKED POINTERS. Interface
Uses Windows, ActiveX, Classes, Graphics, Oleserver, Olectrls, STDVCL;
// ******************************************************** ********************* //// guids declared in the Typelibrary. FOLLOWING Prefixes Are Used: // type libraries: libid_xxxx // Coclasses: class_xxxx // DISPINTERFCES : DIID_XXXX // Non-DISP Interfaces: IID_XXX // ****************************************************** **************************************** // const // Typelibrary Major and minor version = 29; wjPRNVIEWMINORVERSION = 0; libid_wjPrnView : Tguid = '{D72F975E-72DC-11D6-923D-00E04CE8FBA7}';
IID__prnview: TGUID = '{18CF3D27-3867-425A-BCE2-C754EE5FFE5A}'; DIID___prnview: TGUID = '{A47CD1BA-2E3A-4DCC-BE25-EA98C08DD135}'; CLASS_prnview: TGUID = '{D72F9760-72DC-11D6-923D- 00E04CE8FBA7} '; Type
// ******************************************************** ******************** / / // forward Declaration of type defined in typeLibrary // ***************** *********************************************************** *** // _PRNVIEW = Interface; _PRNVIEWDISP = Dispinterface; __PRNVIEW = DISPINTERFACE
// ******************************************************** ********************* / // Declaration of Coclasses Defined in Type Library // (NOTE: Here We Map Each Coclass To Its Default Interface) // * *********************************************************** ****************** // PRNVIEW = _PRNVIEW;
// ******************************************************** ******************** ////interface: _PRNVIEW / / FLAGS: (4560) Hidden Dual Nonextensible oleautomation dispatchable // guid: {18cf3d27-3867-425a -BCE2-C754EE5FFE5A} // *************************************************** *********************************** / / _PRNVIEW = Interface (IDispatch) ['{18CF3D27-3867-425A-BCE2-C754EE5FFE5A}'] Procedure PsetA (var X: OleVariant; var Y: OleVariant; var color: OleVariant); safecall; function TextWidth (var str: WideString): Single; safecall; function TextHeight (var str: WideString): Single; safecall; procedure PaintPicture (var pic: IDispatch; var pLeft: OleVariant; var pTop: OleVariant; var pWidth: OleVariant; var pHeight: OleVariant); safecall; procedure Refresh; safecall; procedure StartDoc (zm: OleVariant; Pw: OleVariant; Ph: OleVariant); safecall; Function GET_DRAWWIDTH: Olevariant; SaFECALL; Procedure Set_DrawWidth (VAR param1: olevariant); SaFecall; F unction Get_CurrentX: Single; safecall; procedure Set_CurrentX (Param1: Single); safecall; function Get_CurrentY: Single; safecall; procedure Set_CurrentY (Param1: Single); safecall; function Get_BackColor: OLE_COLOR; safecall; procedure Set_BackColor (Param1: OLE_COLOR); safecall ; function Get_ForeColor: OLE_COLOR; safecall; procedure Set_ForeColor (Param1: OLE_COLOR); safecall; function get_Font: IFontDisp; safecall; procedure Set_Font (const Param1: IFontDisp); safecall; procedure Set_FontName (var Param1: OleVariant); safecall; procedure Set_FontSize ( Var param1: olevariant; saFECALL; Procedure set_fontbold (var param1: olevariant); SaFECALL;
procedure Set_FontItalic (var Param1: OleVariant); safecall; function Get_PaperWidth: Single; safecall; procedure Set_PaperWidth (var Param1: Single); safecall; function Get_PaperHeight: Single; safecall; procedure Set_PaperHeight (var Param1: Single); safecall; function Get_ScaleHeight: Single; safecall; procedure Set_ScaleHeight (Param1: Single); safecall; function Get_ScaleWidth: Single; safecall; procedure Set_ScaleWidth (Param1: Single); safecall; procedure CircleA (var bLeft: OleVariant; var bTop: OleVariant; var bRadius: OleVariant); safecall; procedure PrintA (var PrintVar: OleVariant); safecall; procedure BoxA (var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant; var bTop1: OleVariant); safecall; procedure BoxF (var bLeft: OleVariant; var bTop: Olevariant; var blet1: olevariant; var color: olevariant; saFECALL; Procedure Linea (var bleft: olevariant; var btop: olevar iant; var bLeft1: OleVariant; var bTop1: OleVariant); safecall; procedure Cls; safecall; function Get_DrawStyle: Smallint; safecall; procedure Set_DrawStyle (Param1: Smallint); safecall; function Get_DrawMode: 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_FontSt RikeThru; Property Fontunderline: WordBool Read_Fontunderline Write Set_FontunderLine;
// ******************************************************** ******************** / /// 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; Prope rty 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 Di SPATchable // guid: {a47cd1ba-2e3a-4dcc-be25-ea98c08dd135} // ****************************************** ********************************************** / / __PRNVIEW = Dispinterface [{A47CD1BA-2E3A-4DCC -BE25-EA98C08DD135} '] Procedure Mousemove (Var Shift: Smallint; VAR X: SINGLE; VAR Y: SINGLE); DISPID 1; Procedure Mouseup (Var Shift: Smallint; Var Shift: Smallint; var x: SINGLE; VAR Y: SINGLE); DISPID 2; Procedure MouseDown (Var Shift: Smallint; Var x: Single; VAR Y: SINGLE); DISPID 3; Procedure Click; DISPID 4;
IMPLEMENTATION
Uses comobj;
End.
