home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Ocx / Servers / vbide97.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  78KB  |  1,604 lines
  1. unit VBIDE97;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11  $
  15. // File generated on 6/3/99 9:50:11 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\typelib\VBEEXT1.olb (1)
  19. // IID\LCID: {0002E157-0000-0000-C000-000000000046}\0
  20. // Helpfile: C:\Program Files\Common Files\Microsoft Shared\VBA\VEENOB3.HLP
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  23. //   (2) v2.0 Office, (D:\Program Files\Microsoft Office\Office\mso97.dll)
  24. // Parent TypeLibrary:
  25. //   (0) v8.0 Word, (typelibraries\word8.olb)
  26. // Errors:
  27. //   Hint: TypeInfo 'Property' changed to 'Property_'
  28. //   Hint: Member 'Type' of 'Window' changed to 'Type_'
  29. //   Hint: Member 'Type' of '_VBComponent' changed to 'Type_'
  30. //   Hint: Member 'Object' of 'Property' changed to 'Object_'
  31. //   Hint: Parameter 'String' of _CodeModule.AddFromString changed to 'String_'
  32. //   Hint: Parameter 'String' of _CodeModule.Lines changed to 'String_'
  33. //   Hint: Parameter 'String' of _CodeModule.InsertLines changed to 'String_'
  34. //   Hint: Parameter 'String' of _CodeModule.ReplaceLine changed to 'String_'
  35. //   Hint: Member 'Type' of 'Reference' changed to 'Type_'
  36. // ************************************************************************ //
  37. interface
  38.  
  39. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, 
  40.   Office97;
  41.  
  42. // *********************************************************************//
  43. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  44. //   Type Libraries     : LIBID_xxxx                                      
  45. //   CoClasses          : CLASS_xxxx                                      
  46. //   DISPInterfaces     : DIID_xxxx                                       
  47. //   Non-DISP interfaces: IID_xxxx                                        
  48. // *********************************************************************//
  49. const
  50.   // TypeLibrary Major and minor versions
  51.   VBIDEMajorVersion = 5;
  52.   VBIDEMinorVersion = 0;
  53.  
  54.   LIBID_VBIDE: TGUID = '{0002E157-0000-0000-C000-000000000046}';
  55.  
  56.   IID_Application: TGUID = '{0002E158-0000-0000-C000-000000000046}';
  57.   IID_VBE: TGUID = '{0002E166-0000-0000-C000-000000000046}';
  58.   IID_Window: TGUID = '{0002E16B-0000-0000-C000-000000000046}';
  59.   IID__Windows: TGUID = '{0002E16A-0000-0000-C000-000000000046}';
  60.   CLASS_Windows: TGUID = '{0002E185-0000-0000-C000-000000000046}';
  61.   IID__LinkedWindows: TGUID = '{0002E16C-0000-0000-C000-000000000046}';
  62.   CLASS_LinkedWindows: TGUID = '{0002E187-0000-0000-C000-000000000046}';
  63.   IID_Events: TGUID = '{0002E167-0000-0000-C000-000000000046}';
  64.   IID__VBProjectsEvents: TGUID = '{0002E113-0000-0000-C000-000000000046}';
  65.   DIID__dispVBProjectsEvents: TGUID = '{0002E103-0000-0000-C000-000000000046}';
  66.   IID__VBComponentsEvents: TGUID = '{0002E115-0000-0000-C000-000000000046}';
  67.   DIID__dispVBComponentsEvents: TGUID = '{0002E116-0000-0000-C000-000000000046}';
  68.   IID__ReferencesEvents: TGUID = '{0002E11A-0000-0000-C000-000000000046}';
  69.   DIID__dispReferencesEvents: TGUID = '{0002E118-0000-0000-C000-000000000046}';
  70.   CLASS_ReferencesEvents: TGUID = '{0002E119-0000-0000-C000-000000000046}';
  71.   IID__CommandBarControlEvents: TGUID = '{0002E130-0000-0000-C000-000000000046}';
  72.   DIID__dispCommandBarControlEvents: TGUID = '{0002E131-0000-0000-C000-000000000046}';
  73.   CLASS_CommandBarEvents: TGUID = '{0002E132-0000-0000-C000-000000000046}';
  74.   IID__ProjectTemplate: TGUID = '{0002E159-0000-0000-C000-000000000046}';
  75.   CLASS_ProjectTemplate: TGUID = '{32CDF9E0-1602-11CE-BFDC-08002B2B8CDA}';
  76.   IID__VBProject: TGUID = '{0002E160-0000-0000-C000-000000000046}';
  77.   CLASS_VBProject: TGUID = '{0002E169-0000-0000-C000-000000000046}';
  78.   IID__VBProjects: TGUID = '{0002E165-0000-0000-C000-000000000046}';
  79.   CLASS_VBProjects: TGUID = '{0002E101-0000-0000-C000-000000000046}';
  80.   IID_SelectedComponents: TGUID = '{BE39F3D4-1B13-11D0-887F-00A0C90F2744}';
  81.   IID__Components: TGUID = '{0002E161-0000-0000-C000-000000000046}';
  82.   CLASS_Components: TGUID = '{BE39F3D6-1B13-11D0-887F-00A0C90F2744}';
  83.   IID__VBComponents: TGUID = '{0002E162-0000-0000-C000-000000000046}';
  84.   CLASS_VBComponents: TGUID = '{BE39F3D7-1B13-11D0-887F-00A0C90F2744}';
  85.   IID__Component: TGUID = '{0002E163-0000-0000-C000-000000000046}';
  86.   CLASS_Component: TGUID = '{BE39F3D8-1B13-11D0-887F-00A0C90F2744}';
  87.   IID__VBComponent: TGUID = '{0002E164-0000-0000-C000-000000000046}';
  88.   CLASS_VBComponent: TGUID = '{BE39F3DA-1B13-11D0-887F-00A0C90F2744}';
  89.   IID_Property_: TGUID = '{0002E18C-0000-0000-C000-000000000046}';
  90.   IID__Properties: TGUID = '{0002E188-0000-0000-C000-000000000046}';
  91.   CLASS_Properties: TGUID = '{0002E18B-0000-0000-C000-000000000046}';
  92.   IID__CodeModule: TGUID = '{0002E16E-0000-0000-C000-000000000046}';
  93.   CLASS_CodeModule: TGUID = '{0002E170-0000-0000-C000-000000000046}';
  94.   IID__CodePanes: TGUID = '{0002E172-0000-0000-C000-000000000046}';
  95.   CLASS_CodePanes: TGUID = '{0002E174-0000-0000-C000-000000000046}';
  96.   IID__CodePane: TGUID = '{0002E176-0000-0000-C000-000000000046}';
  97.   CLASS_CodePane: TGUID = '{0002E178-0000-0000-C000-000000000046}';
  98.   IID__References: TGUID = '{0002E17A-0000-0000-C000-000000000046}';
  99.   IID_Reference: TGUID = '{0002E17E-0000-0000-C000-000000000046}';
  100.   DIID__dispReferences_Events: TGUID = '{CDDE3804-2064-11CF-867F-00AA005FF34A}';
  101.   CLASS_References: TGUID = '{0002E17C-0000-0000-C000-000000000046}';
  102.  
  103. // *********************************************************************//
  104. // Declaration of Enumerations defined in Type Library                    
  105. // *********************************************************************//
  106. // vbextFileTypes constants
  107. type
  108.   vbextFileTypes = TOleEnum;
  109. const
  110.   vbextFileTypeForm = $00000000;
  111.   vbextFileTypeModule = $00000001;
  112.   vbextFileTypeClass = $00000002;
  113.   vbextFileTypeProject = $00000003;
  114.   vbextFileTypeExe = $00000004;
  115.   vbextFileTypeFrx = $00000005;
  116.   vbextFileTypeRes = $00000006;
  117.   vbextFileTypeUserControl = $00000007;
  118.   vbextFileTypePropertyPage = $00000008;
  119.   vbextFileTypeDocObject = $00000009;
  120.   vbextFileTypeBinary = $0000000A;
  121.   vbextFileTypeGroupProject = $0000000B;
  122.   vbextFileTypeDesigners = $0000000C;
  123.  
  124. // vbext_WindowType constants
  125. type
  126.   vbext_WindowType = TOleEnum;
  127. const
  128.   vbext_wt_CodeWindow = $00000000;
  129.   vbext_wt_Designer = $00000001;
  130.   vbext_wt_Browser = $00000002;
  131.   vbext_wt_Watch = $00000003;
  132.   vbext_wt_Locals = $00000004;
  133.   vbext_wt_Immediate = $00000005;
  134.   vbext_wt_ProjectWindow = $00000006;
  135.   vbext_wt_PropertyWindow = $00000007;
  136.   vbext_wt_Find = $00000008;
  137.   vbext_wt_FindReplace = $00000009;
  138.   vbext_wt_LinkedWindowFrame = $0000000B;
  139.   vbext_wt_MainWindow = $0000000C;
  140.   vbext_wt_ToolWindow = $0000000F;
  141.  
  142. // vbext_WindowState constants
  143. type
  144.   vbext_WindowState = TOleEnum;
  145. const
  146.   vbext_ws_Normal = $00000000;
  147.   vbext_ws_Minimize = $00000001;
  148.   vbext_ws_Maximize = $00000002;
  149.  
  150. // vbext_ProjectProtection constants
  151. type
  152.   vbext_ProjectProtection = TOleEnum;
  153. const
  154.   vbext_pp_none = $00000000;
  155.   vbext_pp_locked = $00000001;
  156.  
  157. // vbext_VBAMode constants
  158. type
  159.   vbext_VBAMode = TOleEnum;
  160. const
  161.   vbext_vm_Run = $00000000;
  162.   vbext_vm_Break = $00000001;
  163.   vbext_vm_Design = $00000002;
  164.  
  165. // vbext_ComponentType constants
  166. type
  167.   vbext_ComponentType = TOleEnum;
  168. const
  169.   vbext_ct_StdModule = $00000001;
  170.   vbext_ct_ClassModule = $00000002;
  171.   vbext_ct_MSForm = $00000003;
  172.   vbext_ct_Document = $00000064;
  173.  
  174. // vbext_ProcKind constants
  175. type
  176.   vbext_ProcKind = TOleEnum;
  177. const
  178.   vbext_pk_Proc = $00000000;
  179.   vbext_pk_Let = $00000001;
  180.   vbext_pk_Set = $00000002;
  181.   vbext_pk_Get = $00000003;
  182.  
  183. // vbext_CodePaneview constants
  184. type
  185.   vbext_CodePaneview = TOleEnum;
  186. const
  187.   vbext_cv_ProcedureView = $00000000;
  188.   vbext_cv_FullModuleView = $00000001;
  189.  
  190. // vbext_RefKind constants
  191. type
  192.   vbext_RefKind = TOleEnum;
  193. const
  194.   vbext_rk_TypeLib = $00000000;
  195.   vbext_rk_Project = $00000001;
  196.  
  197. type
  198.  
  199. // *********************************************************************//
  200. // Forward declaration of types defined in TypeLibrary                    
  201. // *********************************************************************//
  202.   Application = interface;
  203.   ApplicationDisp = dispinterface;
  204.   VBE = interface;
  205.   VBEDisp = dispinterface;
  206.   Window = interface;
  207.   WindowDisp = dispinterface;
  208.   _Windows = interface;
  209.   _WindowsDisp = dispinterface;
  210.   _LinkedWindows = interface;
  211.   _LinkedWindowsDisp = dispinterface;
  212.   Events = interface;
  213.   EventsDisp = dispinterface;
  214.   _VBProjectsEvents = interface;
  215.   _dispVBProjectsEvents = dispinterface;
  216.   _VBComponentsEvents = interface;
  217.   _dispVBComponentsEvents = dispinterface;
  218.   _ReferencesEvents = interface;
  219.   _dispReferencesEvents = dispinterface;
  220.   _CommandBarControlEvents = interface;
  221.   _dispCommandBarControlEvents = dispinterface;
  222.   _ProjectTemplate = interface;
  223.   _ProjectTemplateDisp = dispinterface;
  224.   _VBProject = interface;
  225.   _VBProjectDisp = dispinterface;
  226.   _VBProjects = interface;
  227.   _VBProjectsDisp = dispinterface;
  228.   SelectedComponents = interface;
  229.   SelectedComponentsDisp = dispinterface;
  230.   _Components = interface;
  231.   _ComponentsDisp = dispinterface;
  232.   _VBComponents = interface;
  233.   _VBComponentsDisp = dispinterface;
  234.   _Component = interface;
  235.   _ComponentDisp = dispinterface;
  236.   _VBComponent = interface;
  237.   _VBComponentDisp = dispinterface;
  238.   Property_ = interface;
  239.   Property_Disp = dispinterface;
  240.   _Properties = interface;
  241.   _PropertiesDisp = dispinterface;
  242.   _CodeModule = interface;
  243.   _CodeModuleDisp = dispinterface;
  244.   _CodePanes = interface;
  245.   _CodePanesDisp = dispinterface;
  246.   _CodePane = interface;
  247.   _CodePaneDisp = dispinterface;
  248.   _References = interface;
  249.   _ReferencesDisp = dispinterface;
  250.   Reference = interface;
  251.   ReferenceDisp = dispinterface;
  252.   _dispReferences_Events = dispinterface;
  253.  
  254. // *********************************************************************//
  255. // Declaration of CoClasses defined in Type Library                       
  256. // (NOTE: Here we map each CoClass to its Default Interface)              
  257. // *********************************************************************//
  258.   Windows = _Windows;
  259.   LinkedWindows = _LinkedWindows;
  260.   ReferencesEvents = _ReferencesEvents;
  261.   CommandBarEvents = _CommandBarControlEvents;
  262.   ProjectTemplate = _ProjectTemplate;
  263.   VBProject = _VBProject;
  264.   VBProjects = _VBProjects;
  265.   Components = _Components;
  266.   VBComponents = _VBComponents;
  267.   Component = _Component;
  268.   VBComponent = _VBComponent;
  269.   Properties = _Properties;
  270.   CodeModule = _CodeModule;
  271.   CodePanes = _CodePanes;
  272.   CodePane = _CodePane;
  273.   References = _References;
  274.  
  275.  
  276. // *********************************************************************//
  277. // Declaration of structures, unions and aliases.                         
  278. // *********************************************************************//
  279.   PWordBool1 = ^WordBool; {*}
  280.  
  281.  
  282. // *********************************************************************//
  283. // Interface: Application
  284. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  285. // GUID:      {0002E158-0000-0000-C000-000000000046}
  286. // *********************************************************************//
  287.   Application = interface(IDispatch)
  288.     ['{0002E158-0000-0000-C000-000000000046}']
  289.     function  Get_Version: WideString; safecall;
  290.     property Version: WideString read Get_Version;
  291.   end;
  292.  
  293. // *********************************************************************//
  294. // DispIntf:  ApplicationDisp
  295. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  296. // GUID:      {0002E158-0000-0000-C000-000000000046}
  297. // *********************************************************************//
  298.   ApplicationDisp = dispinterface
  299.     ['{0002E158-0000-0000-C000-000000000046}']
  300.     property Version: WideString readonly dispid 100;
  301.   end;
  302.  
  303. // *********************************************************************//
  304. // Interface: VBE
  305. // Flags:     (4416) Dual OleAutomation Dispatchable
  306. // GUID:      {0002E166-0000-0000-C000-000000000046}
  307. // *********************************************************************//
  308.   VBE = interface(Application)
  309.     ['{0002E166-0000-0000-C000-000000000046}']
  310.     function  Get_VBProjects: VBProjects; safecall;
  311.     function  Get_CommandBars: CommandBars; safecall;
  312.     function  Get_CodePanes: CodePanes; safecall;
  313.     function  Get_Windows: Windows; safecall;
  314.     function  Get_Events: Events; safecall;
  315.     function  Get_ActiveVBProject: VBProject; safecall;
  316.     procedure Set_ActiveVBProject(const lppptReturn: VBProject); safecall;
  317.     function  Get_SelectedVBComponent: VBComponent; safecall;
  318.     function  Get_MainWindow: Window; safecall;
  319.     function  Get_ActiveWindow: Window; safecall;
  320.     function  Get_ActiveCodePane: CodePane; safecall;
  321.     procedure Set_ActiveCodePane(const ppCodePane: CodePane); safecall;
  322.     property VBProjects: VBProjects read Get_VBProjects;
  323.     property CommandBars: CommandBars read Get_CommandBars;
  324.     property CodePanes: CodePanes read Get_CodePanes;
  325.     property Windows: Windows read Get_Windows;
  326.     property Events: Events read Get_Events;
  327.     property ActiveVBProject: VBProject read Get_ActiveVBProject write Set_ActiveVBProject;
  328.     property SelectedVBComponent: VBComponent read Get_SelectedVBComponent;
  329.     property MainWindow: Window read Get_MainWindow;
  330.     property ActiveWindow: Window read Get_ActiveWindow;
  331.     property ActiveCodePane: CodePane read Get_ActiveCodePane write Set_ActiveCodePane;
  332.   end;
  333.  
  334. // *********************************************************************//
  335. // DispIntf:  VBEDisp
  336. // Flags:     (4416) Dual OleAutomation Dispatchable
  337. // GUID:      {0002E166-0000-0000-C000-000000000046}
  338. // *********************************************************************//
  339.   VBEDisp = dispinterface
  340.     ['{0002E166-0000-0000-C000-000000000046}']
  341.     property VBProjects: VBProjects readonly dispid 107;
  342.     property CommandBars: CommandBars readonly dispid 108;
  343.     property CodePanes: CodePanes readonly dispid 109;
  344.     property Windows: Windows readonly dispid 110;
  345.     property Events: Events readonly dispid 111;
  346.     property ActiveVBProject: VBProject dispid 201;
  347.     property SelectedVBComponent: VBComponent readonly dispid 202;
  348.     property MainWindow: Window readonly dispid 204;
  349.     property ActiveWindow: Window readonly dispid 205;
  350.     property ActiveCodePane: CodePane dispid 206;
  351.     property Version: WideString readonly dispid 100;
  352.   end;
  353.  
  354. // *********************************************************************//
  355. // Interface: Window
  356. // Flags:     (4416) Dual OleAutomation Dispatchable
  357. // GUID:      {0002E16B-0000-0000-C000-000000000046}
  358. // *********************************************************************//
  359.   Window = interface(IDispatch)
  360.     ['{0002E16B-0000-0000-C000-000000000046}']
  361.     function  Get_VBE: VBE; safecall;
  362.     function  Get_Collection: Windows; safecall;
  363.     procedure Close; safecall;
  364.     function  Get_Caption: WideString; safecall;
  365.     function  Get_Visible: WordBool; safecall;
  366.     procedure Set_Visible(pfVisible: WordBool); safecall;
  367.     function  Get_Left: Integer; safecall;
  368.     procedure Set_Left(plLeft: Integer); safecall;
  369.     function  Get_Top: Integer; safecall;
  370.     procedure Set_Top(plTop: Integer); safecall;
  371.     function  Get_Width: Integer; safecall;
  372.     procedure Set_Width(plWidth: Integer); safecall;
  373.     function  Get_Height: Integer; safecall;
  374.     procedure Set_Height(plHeight: Integer); safecall;
  375.     function  Get_WindowState: vbext_WindowState; safecall;
  376.     procedure Set_WindowState(plWindowState: vbext_WindowState); safecall;
  377.     procedure SetFocus; safecall;
  378.     function  Get_Type_: vbext_WindowType; safecall;
  379.     procedure SetKind(eKind: vbext_WindowType); safecall;
  380.     function  Get_LinkedWindows: LinkedWindows; safecall;
  381.     function  Get_LinkedWindowFrame: Window; safecall;
  382.     procedure Detach; safecall;
  383.     procedure Attach(lWindowHandle: Integer); safecall;
  384.     function  Get_HWnd: Integer; safecall;
  385.     property VBE: VBE read Get_VBE;
  386.     property Collection: Windows read Get_Collection;
  387.     property Caption: WideString read Get_Caption;
  388.     property Visible: WordBool read Get_Visible write Set_Visible;
  389.     property Left: Integer read Get_Left write Set_Left;
  390.     property Top: Integer read Get_Top write Set_Top;
  391.     property Width: Integer read Get_Width write Set_Width;
  392.     property Height: Integer read Get_Height write Set_Height;
  393.     property WindowState: vbext_WindowState read Get_WindowState write Set_WindowState;
  394.     property Type_: vbext_WindowType read Get_Type_;
  395.     property LinkedWindows: LinkedWindows read Get_LinkedWindows;
  396.     property LinkedWindowFrame: Window read Get_LinkedWindowFrame;
  397.     property HWnd: Integer read Get_HWnd;
  398.   end;
  399.  
  400. // *********************************************************************//
  401. // DispIntf:  WindowDisp
  402. // Flags:     (4416) Dual OleAutomation Dispatchable
  403. // GUID:      {0002E16B-0000-0000-C000-000000000046}
  404. // *********************************************************************//
  405.   WindowDisp = dispinterface
  406.     ['{0002E16B-0000-0000-C000-000000000046}']
  407.     property VBE: VBE readonly dispid 1;
  408.     property Collection: Windows readonly dispid 2;
  409.     procedure Close; dispid 99;
  410.     property Caption: WideString readonly dispid 100;
  411.     property Visible: WordBool dispid 106;
  412.     property Left: Integer dispid 101;
  413.     property Top: Integer dispid 103;
  414.     property Width: Integer dispid 105;
  415.     property Height: Integer dispid 107;
  416.     property WindowState: vbext_WindowState dispid 109;
  417.     procedure SetFocus; dispid 111;
  418.     property Type_: vbext_WindowType readonly dispid 112;
  419.     procedure SetKind(eKind: vbext_WindowType); dispid 113;
  420.     property LinkedWindows: LinkedWindows readonly dispid 116;
  421.     property LinkedWindowFrame: Window readonly dispid 117;
  422.     procedure Detach; dispid 118;
  423.     procedure Attach(lWindowHandle: Integer); dispid 119;
  424.     property HWnd: Integer readonly dispid 120;
  425.   end;
  426.  
  427. // *********************************************************************//
  428. // Interface: _Windows
  429. // Flags:     (4416) Dual OleAutomation Dispatchable
  430. // GUID:      {0002E16A-0000-0000-C000-000000000046}
  431. // *********************************************************************//
  432.   _Windows = interface(IDispatch)
  433.     ['{0002E16A-0000-0000-C000-000000000046}']
  434.     function  Get_VBE: VBE; safecall;
  435.     function  Get_Parent: Application; safecall;
  436.     function  Item(index: OleVariant): Window; safecall;
  437.     function  Get_Count: Integer; safecall;
  438.     function  _NewEnum: IUnknown; safecall;
  439.     property VBE: VBE read Get_VBE;
  440.     property Parent: Application read Get_Parent;
  441.     property Count: Integer read Get_Count;
  442.   end;
  443.  
  444. // *********************************************************************//
  445. // DispIntf:  _WindowsDisp
  446. // Flags:     (4416) Dual OleAutomation Dispatchable
  447. // GUID:      {0002E16A-0000-0000-C000-000000000046}
  448. // *********************************************************************//
  449.   _WindowsDisp = dispinterface
  450.     ['{0002E16A-0000-0000-C000-000000000046}']
  451.     property VBE: VBE readonly dispid 1;
  452.     property Parent: Application readonly dispid 2;
  453.     function  Item(index: OleVariant): Window; dispid 0;
  454.     property Count: Integer readonly dispid 201;
  455.     function  _NewEnum: IUnknown; dispid -4;
  456.   end;
  457.  
  458. // *********************************************************************//
  459. // Interface: _LinkedWindows
  460. // Flags:     (4416) Dual OleAutomation Dispatchable
  461. // GUID:      {0002E16C-0000-0000-C000-000000000046}
  462. // *********************************************************************//
  463.   _LinkedWindows = interface(IDispatch)
  464.     ['{0002E16C-0000-0000-C000-000000000046}']
  465.     function  Get_VBE: VBE; safecall;
  466.     function  Get_Parent: Window; safecall;
  467.     function  Item(index: OleVariant): Window; safecall;
  468.     function  Get_Count: Integer; safecall;
  469.     function  _NewEnum: IUnknown; safecall;
  470.     procedure Remove(const Window: Window); safecall;
  471.     procedure Add(const Window: Window); safecall;
  472.     property VBE: VBE read Get_VBE;
  473.     property Parent: Window read Get_Parent;
  474.     property Count: Integer read Get_Count;
  475.   end;
  476.  
  477. // *********************************************************************//
  478. // DispIntf:  _LinkedWindowsDisp
  479. // Flags:     (4416) Dual OleAutomation Dispatchable
  480. // GUID:      {0002E16C-0000-0000-C000-000000000046}
  481. // *********************************************************************//
  482.   _LinkedWindowsDisp = dispinterface
  483.     ['{0002E16C-0000-0000-C000-000000000046}']
  484.     property VBE: VBE readonly dispid 1;
  485.     property Parent: Window readonly dispid 2;
  486.     function  Item(index: OleVariant): Window; dispid 0;
  487.     property Count: Integer readonly dispid 201;
  488.     function  _NewEnum: IUnknown; dispid -4;
  489.     procedure Remove(const Window: Window); dispid 202;
  490.     procedure Add(const Window: Window); dispid 203;
  491.   end;
  492.  
  493. // *********************************************************************//
  494. // Interface: Events
  495. // Flags:     (4416) Dual OleAutomation Dispatchable
  496. // GUID:      {0002E167-0000-0000-C000-000000000046}
  497. // *********************************************************************//
  498.   Events = interface(IDispatch)
  499.     ['{0002E167-0000-0000-C000-000000000046}']
  500.     function  Get_ReferencesEvents(const VBProject: VBProject): ReferencesEvents; safecall;
  501.     function  Get_CommandBarEvents(const CommandBarControl: IDispatch): CommandBarEvents; safecall;
  502.     property ReferencesEvents[const VBProject: VBProject]: ReferencesEvents read Get_ReferencesEvents;
  503.     property CommandBarEvents[const CommandBarControl: IDispatch]: CommandBarEvents read Get_CommandBarEvents;
  504.   end;
  505.  
  506. // *********************************************************************//
  507. // DispIntf:  EventsDisp
  508. // Flags:     (4416) Dual OleAutomation Dispatchable
  509. // GUID:      {0002E167-0000-0000-C000-000000000046}
  510. // *********************************************************************//
  511.   EventsDisp = dispinterface
  512.     ['{0002E167-0000-0000-C000-000000000046}']
  513.     property ReferencesEvents[const VBProject: VBProject]: ReferencesEvents readonly dispid 202;
  514.     property CommandBarEvents[const CommandBarControl: IDispatch]: CommandBarEvents readonly dispid 205;
  515.   end;
  516.  
  517. // *********************************************************************//
  518. // Interface: _VBProjectsEvents
  519. // Flags:     (256) OleAutomation
  520. // GUID:      {0002E113-0000-0000-C000-000000000046}
  521. // *********************************************************************//
  522.   _VBProjectsEvents = interface(IUnknown)
  523.     ['{0002E113-0000-0000-C000-000000000046}']
  524.   end;
  525.  
  526. // *********************************************************************//
  527. // DispIntf:  _dispVBProjectsEvents
  528. // Flags:     (4096) Dispatchable
  529. // GUID:      {0002E103-0000-0000-C000-000000000046}
  530. // *********************************************************************//
  531.   _dispVBProjectsEvents = dispinterface
  532.     ['{0002E103-0000-0000-C000-000000000046}']
  533.     procedure ItemAdded(const VBProject: VBProject); dispid 1;
  534.     procedure ItemRemoved(const VBProject: VBProject); dispid 2;
  535.     procedure ItemRenamed(const VBProject: VBProject; const OldName: WideString); dispid 3;
  536.     procedure ItemActivated(const VBProject: VBProject); dispid 4;
  537.   end;
  538.  
  539. // *********************************************************************//
  540. // Interface: _VBComponentsEvents
  541. // Flags:     (256) OleAutomation
  542. // GUID:      {0002E115-0000-0000-C000-000000000046}
  543. // *********************************************************************//
  544.   _VBComponentsEvents = interface(IUnknown)
  545.     ['{0002E115-0000-0000-C000-000000000046}']
  546.   end;
  547.  
  548. // *********************************************************************//
  549. // DispIntf:  _dispVBComponentsEvents
  550. // Flags:     (4096) Dispatchable
  551. // GUID:      {0002E116-0000-0000-C000-000000000046}
  552. // *********************************************************************//
  553.   _dispVBComponentsEvents = dispinterface
  554.     ['{0002E116-0000-0000-C000-000000000046}']
  555.     procedure ItemAdded(const VBComponent: VBComponent); dispid 1;
  556.     procedure ItemRemoved(const VBComponent: VBComponent); dispid 2;
  557.     procedure ItemRenamed(const VBComponent: VBComponent; const OldName: WideString); dispid 3;
  558.     procedure ItemSelected(const VBComponent: VBComponent); dispid 4;
  559.     procedure ItemActivated(const VBComponent: VBComponent); dispid 5;
  560.     procedure ItemReloaded(const VBComponent: VBComponent); dispid 6;
  561.   end;
  562.  
  563. // *********************************************************************//
  564. // Interface: _ReferencesEvents
  565. // Flags:     (256) OleAutomation
  566. // GUID:      {0002E11A-0000-0000-C000-000000000046}
  567. // *********************************************************************//
  568.   _ReferencesEvents = interface(IUnknown)
  569.     ['{0002E11A-0000-0000-C000-000000000046}']
  570.   end;
  571.  
  572. // *********************************************************************//
  573. // DispIntf:  _dispReferencesEvents
  574. // Flags:     (4096) Dispatchable
  575. // GUID:      {0002E118-0000-0000-C000-000000000046}
  576. // *********************************************************************//
  577.   _dispReferencesEvents = dispinterface
  578.     ['{0002E118-0000-0000-C000-000000000046}']
  579.     procedure ItemAdded(const Reference: Reference); dispid 1;
  580.     procedure ItemRemoved(const Reference: Reference); dispid 2;
  581.   end;
  582.  
  583. // *********************************************************************//
  584. // Interface: _CommandBarControlEvents
  585. // Flags:     (256) OleAutomation
  586. // GUID:      {0002E130-0000-0000-C000-000000000046}
  587. // *********************************************************************//
  588.   _CommandBarControlEvents = interface(IUnknown)
  589.     ['{0002E130-0000-0000-C000-000000000046}']
  590.   end;
  591.  
  592. // *********************************************************************//
  593. // DispIntf:  _dispCommandBarControlEvents
  594. // Flags:     (4096) Dispatchable
  595. // GUID:      {0002E131-0000-0000-C000-000000000046}
  596. // *********************************************************************//
  597.   _dispCommandBarControlEvents = dispinterface
  598.     ['{0002E131-0000-0000-C000-000000000046}']
  599.     procedure Click(const CommandBarControl: IDispatch; var handled: WordBool; 
  600.                     var CancelDefault: WordBool); dispid 1;
  601.   end;
  602.  
  603. // *********************************************************************//
  604. // Interface: _ProjectTemplate
  605. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  606. // GUID:      {0002E159-0000-0000-C000-000000000046}
  607. // *********************************************************************//
  608.   _ProjectTemplate = interface(IDispatch)
  609.     ['{0002E159-0000-0000-C000-000000000046}']
  610.     function  Get_Application: Application; safecall;
  611.     function  Get_Parent: Application; safecall;
  612.     property Application: Application read Get_Application;
  613.     property Parent: Application read Get_Parent;
  614.   end;
  615.  
  616. // *********************************************************************//
  617. // DispIntf:  _ProjectTemplateDisp
  618. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  619. // GUID:      {0002E159-0000-0000-C000-000000000046}
  620. // *********************************************************************//
  621.   _ProjectTemplateDisp = dispinterface
  622.     ['{0002E159-0000-0000-C000-000000000046}']
  623.     property Application: Application readonly dispid 1;
  624.     property Parent: Application readonly dispid 2;
  625.   end;
  626.  
  627. // *********************************************************************//
  628. // Interface: _VBProject
  629. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  630. // GUID:      {0002E160-0000-0000-C000-000000000046}
  631. // *********************************************************************//
  632.   _VBProject = interface(_ProjectTemplate)
  633.     ['{0002E160-0000-0000-C000-000000000046}']
  634.     function  Get_HelpFile: WideString; safecall;
  635.     procedure Set_HelpFile(const lpbstrHelpFile: WideString); safecall;
  636.     function  Get_HelpContextID: Integer; safecall;
  637.     procedure Set_HelpContextID(lpdwContextID: Integer); safecall;
  638.     function  Get_Description: WideString; safecall;
  639.     procedure Set_Description(const lpbstrDescription: WideString); safecall;
  640.     function  Get_Mode: vbext_VBAMode; safecall;
  641.     function  Get_References: References; safecall;
  642.     function  Get_Name: WideString; safecall;
  643.     procedure Set_Name(const lpbstrName: WideString); safecall;
  644.     function  Get_VBE: VBE; safecall;
  645.     function  Get_Collection: VBProjects; safecall;
  646.     function  Get_Protection: vbext_ProjectProtection; safecall;
  647.     function  Get_Saved: WordBool; safecall;
  648.     function  Get_VBComponents: VBComponents; safecall;
  649.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  650.     property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
  651.     property Description: WideString read Get_Description write Set_Description;
  652.     property Mode: vbext_VBAMode read Get_Mode;
  653.     property References: References read Get_References;
  654.     property Name: WideString read Get_Name write Set_Name;
  655.     property VBE: VBE read Get_VBE;
  656.     property Collection: VBProjects read Get_Collection;
  657.     property Protection: vbext_ProjectProtection read Get_Protection;
  658.     property Saved: WordBool read Get_Saved;
  659.     property VBComponents: VBComponents read Get_VBComponents;
  660.   end;
  661.  
  662. // *********************************************************************//
  663. // DispIntf:  _VBProjectDisp
  664. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  665. // GUID:      {0002E160-0000-0000-C000-000000000046}
  666. // *********************************************************************//
  667.   _VBProjectDisp = dispinterface
  668.     ['{0002E160-0000-0000-C000-000000000046}']
  669.     property HelpFile: WideString dispid 116;
  670.     property HelpContextID: Integer dispid 117;
  671.     property Description: WideString dispid 118;
  672.     property Mode: vbext_VBAMode readonly dispid 119;
  673.     property References: References readonly dispid 120;
  674.     property Name: WideString dispid 121;
  675.     property VBE: VBE readonly dispid 122;
  676.     property Collection: VBProjects readonly dispid 123;
  677.     property Protection: vbext_ProjectProtection readonly dispid 131;
  678.     property Saved: WordBool readonly dispid 133;
  679.     property VBComponents: VBComponents readonly dispid 135;
  680.     property Application: Application readonly dispid 1;
  681.     property Parent: Application readonly dispid 2;
  682.   end;
  683.  
  684. // *********************************************************************//
  685. // Interface: _VBProjects
  686. // Flags:     (4416) Dual OleAutomation Dispatchable
  687. // GUID:      {0002E165-0000-0000-C000-000000000046}
  688. // *********************************************************************//
  689.   _VBProjects = interface(IDispatch)
  690.     ['{0002E165-0000-0000-C000-000000000046}']
  691.     function  Item(index: OleVariant): VBProject; safecall;
  692.     function  Get_VBE: VBE; safecall;
  693.     function  Get_Parent: VBE; safecall;
  694.     function  Get_Count: Integer; safecall;
  695.     function  _NewEnum: IUnknown; safecall;
  696.     property VBE: VBE read Get_VBE;
  697.     property Parent: VBE read Get_Parent;
  698.     property Count: Integer read Get_Count;
  699.   end;
  700.  
  701. // *********************************************************************//
  702. // DispIntf:  _VBProjectsDisp
  703. // Flags:     (4416) Dual OleAutomation Dispatchable
  704. // GUID:      {0002E165-0000-0000-C000-000000000046}
  705. // *********************************************************************//
  706.   _VBProjectsDisp = dispinterface
  707.     ['{0002E165-0000-0000-C000-000000000046}']
  708.     function  Item(index: OleVariant): VBProject; dispid 0;
  709.     property VBE: VBE readonly dispid 20;
  710.     property Parent: VBE readonly dispid 2;
  711.     property Count: Integer readonly dispid 10;
  712.     function  _NewEnum: IUnknown; dispid -4;
  713.   end;
  714.  
  715. // *********************************************************************//
  716. // Interface: SelectedComponents
  717. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  718. // GUID:      {BE39F3D4-1B13-11D0-887F-00A0C90F2744}
  719. // *********************************************************************//
  720.   SelectedComponents = interface(IDispatch)
  721.     ['{BE39F3D4-1B13-11D0-887F-00A0C90F2744}']
  722.     function  Item(index: SYSINT): Component; safecall;
  723.     function  Get_Application: Application; safecall;
  724.     function  Get_Parent: VBProject; safecall;
  725.     function  Get_Count: Integer; safecall;
  726.     function  _NewEnum: IUnknown; safecall;
  727.     property Application: Application read Get_Application;
  728.     property Parent: VBProject read Get_Parent;
  729.     property Count: Integer read Get_Count;
  730.   end;
  731.  
  732. // *********************************************************************//
  733. // DispIntf:  SelectedComponentsDisp
  734. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  735. // GUID:      {BE39F3D4-1B13-11D0-887F-00A0C90F2744}
  736. // *********************************************************************//
  737.   SelectedComponentsDisp = dispinterface
  738.     ['{BE39F3D4-1B13-11D0-887F-00A0C90F2744}']
  739.     function  Item(index: SYSINT): Component; dispid 0;
  740.     property Application: Application readonly dispid 1;
  741.     property Parent: VBProject readonly dispid 2;
  742.     property Count: Integer readonly dispid 10;
  743.     function  _NewEnum: IUnknown; dispid -4;
  744.   end;
  745.  
  746. // *********************************************************************//
  747. // Interface: _Components
  748. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  749. // GUID:      {0002E161-0000-0000-C000-000000000046}
  750. // *********************************************************************//
  751.   _Components = interface(IDispatch)
  752.     ['{0002E161-0000-0000-C000-000000000046}']
  753.     function  Item(index: OleVariant): Component; safecall;
  754.     function  Get_Application: Application; safecall;
  755.     function  Get_Parent: VBProject; safecall;
  756.     function  Get_Count: Integer; safecall;
  757.     function  _NewEnum: IUnknown; safecall;
  758.     procedure Remove(const Component: Component); safecall;
  759.     function  Add(ComponentType: vbext_ComponentType): Component; safecall;
  760.     function  Import(const FileName: WideString): Component; safecall;
  761.     function  Get_VBE: VBE; safecall;
  762.     property Application: Application read Get_Application;
  763.     property Parent: VBProject read Get_Parent;
  764.     property Count: Integer read Get_Count;
  765.     property VBE: VBE read Get_VBE;
  766.   end;
  767.  
  768. // *********************************************************************//
  769. // DispIntf:  _ComponentsDisp
  770. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  771. // GUID:      {0002E161-0000-0000-C000-000000000046}
  772. // *********************************************************************//
  773.   _ComponentsDisp = dispinterface
  774.     ['{0002E161-0000-0000-C000-000000000046}']
  775.     function  Item(index: OleVariant): Component; dispid 0;
  776.     property Application: Application readonly dispid 1;
  777.     property Parent: VBProject readonly dispid 2;
  778.     property Count: Integer readonly dispid 10;
  779.     function  _NewEnum: IUnknown; dispid -4;
  780.     procedure Remove(const Component: Component); dispid 11;
  781.     function  Add(ComponentType: vbext_ComponentType): Component; dispid 12;
  782.     function  Import(const FileName: WideString): Component; dispid 13;
  783.     property VBE: VBE readonly dispid 20;
  784.   end;
  785.  
  786. // *********************************************************************//
  787. // Interface: _VBComponents
  788. // Flags:     (4416) Dual OleAutomation Dispatchable
  789. // GUID:      {0002E162-0000-0000-C000-000000000046}
  790. // *********************************************************************//
  791.   _VBComponents = interface(IDispatch)
  792.     ['{0002E162-0000-0000-C000-000000000046}']
  793.     function  Item(index: OleVariant): VBComponent; safecall;
  794.     function  Get_Parent: VBProject; safecall;
  795.     function  Get_Count: Integer; safecall;
  796.     function  _NewEnum: IUnknown; safecall;
  797.     procedure Remove(const VBComponent: VBComponent); safecall;
  798.     function  Add(ComponentType: vbext_ComponentType): VBComponent; safecall;
  799.     function  Import(const FileName: WideString): VBComponent; safecall;
  800.     function  Get_VBE: VBE; safecall;
  801.     property Parent: VBProject read Get_Parent;
  802.     property Count: Integer read Get_Count;
  803.     property VBE: VBE read Get_VBE;
  804.   end;
  805.  
  806. // *********************************************************************//
  807. // DispIntf:  _VBComponentsDisp
  808. // Flags:     (4416) Dual OleAutomation Dispatchable
  809. // GUID:      {0002E162-0000-0000-C000-000000000046}
  810. // *********************************************************************//
  811.   _VBComponentsDisp = dispinterface
  812.     ['{0002E162-0000-0000-C000-000000000046}']
  813.     function  Item(index: OleVariant): VBComponent; dispid 0;
  814.     property Parent: VBProject readonly dispid 2;
  815.     property Count: Integer readonly dispid 10;
  816.     function  _NewEnum: IUnknown; dispid -4;
  817.     procedure Remove(const VBComponent: VBComponent); dispid 11;
  818.     function  Add(ComponentType: vbext_ComponentType): VBComponent; dispid 12;
  819.     function  Import(const FileName: WideString): VBComponent; dispid 13;
  820.     property VBE: VBE readonly dispid 20;
  821.   end;
  822.  
  823. // *********************************************************************//
  824. // Interface: _Component
  825. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  826. // GUID:      {0002E163-0000-0000-C000-000000000046}
  827. // *********************************************************************//
  828.   _Component = interface(IDispatch)
  829.     ['{0002E163-0000-0000-C000-000000000046}']
  830.     function  Get_Application: Application; safecall;
  831.     function  Get_Parent: Components; safecall;
  832.     function  Get_IsDirty: WordBool; safecall;
  833.     procedure Set_IsDirty(lpfReturn: WordBool); safecall;
  834.     function  Get_Name: WideString; safecall;
  835.     procedure Set_Name(const pbstrReturn: WideString); safecall;
  836.     property Application: Application read Get_Application;
  837.     property Parent: Components read Get_Parent;
  838.     property IsDirty: WordBool read Get_IsDirty write Set_IsDirty;
  839.     property Name: WideString read Get_Name write Set_Name;
  840.   end;
  841.  
  842. // *********************************************************************//
  843. // DispIntf:  _ComponentDisp
  844. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  845. // GUID:      {0002E163-0000-0000-C000-000000000046}
  846. // *********************************************************************//
  847.   _ComponentDisp = dispinterface
  848.     ['{0002E163-0000-0000-C000-000000000046}']
  849.     property Application: Application readonly dispid 1;
  850.     property Parent: Components readonly dispid 2;
  851.     property IsDirty: WordBool dispid 10;
  852.     property Name: WideString dispid 48;
  853.   end;
  854.  
  855. // *********************************************************************//
  856. // Interface: _VBComponent
  857. // Flags:     (4416) Dual OleAutomation Dispatchable
  858. // GUID:      {0002E164-0000-0000-C000-000000000046}
  859. // *********************************************************************//
  860.   _VBComponent = interface(IDispatch)
  861.     ['{0002E164-0000-0000-C000-000000000046}']
  862.     function  Get_Saved: WordBool; safecall;
  863.     function  Get_Name: WideString; safecall;
  864.     procedure Set_Name(const pbstrReturn: WideString); safecall;
  865.     function  Get_Designer: IDispatch; safecall;
  866.     function  Get_CodeModule: CodeModule; safecall;
  867.     function  Get_Type_: vbext_ComponentType; safecall;
  868.     procedure Export(const FileName: WideString); safecall;
  869.     function  Get_VBE: VBE; safecall;
  870.     function  Get_Collection: VBComponents; safecall;
  871.     function  Get_HasOpenDesigner: WordBool; safecall;
  872.     function  Get_Properties: Properties; safecall;
  873.     function  DesignerWindow: Window; safecall;
  874.     procedure Activate; safecall;
  875.     property Saved: WordBool read Get_Saved;
  876.     property Name: WideString read Get_Name write Set_Name;
  877.     property Designer: IDispatch read Get_Designer;
  878.     property CodeModule: CodeModule read Get_CodeModule;
  879.     property Type_: vbext_ComponentType read Get_Type_;
  880.     property VBE: VBE read Get_VBE;
  881.     property Collection: VBComponents read Get_Collection;
  882.     property HasOpenDesigner: WordBool read Get_HasOpenDesigner;
  883.     property Properties: Properties read Get_Properties;
  884.   end;
  885.  
  886. // *********************************************************************//
  887. // DispIntf:  _VBComponentDisp
  888. // Flags:     (4416) Dual OleAutomation Dispatchable
  889. // GUID:      {0002E164-0000-0000-C000-000000000046}
  890. // *********************************************************************//
  891.   _VBComponentDisp = dispinterface
  892.     ['{0002E164-0000-0000-C000-000000000046}']
  893.     property Saved: WordBool readonly dispid 10;
  894.     property Name: WideString dispid 48;
  895.     property Designer: IDispatch readonly dispid 49;
  896.     property CodeModule: CodeModule readonly dispid 50;
  897.     property Type_: vbext_ComponentType readonly dispid 51;
  898.     procedure Export(const FileName: WideString); dispid 52;
  899.     property VBE: VBE readonly dispid 53;
  900.     property Collection: VBComponents readonly dispid 54;
  901.     property HasOpenDesigner: WordBool readonly dispid 55;
  902.     property Properties: Properties readonly dispid 56;
  903.     function  DesignerWindow: Window; dispid 57;
  904.     procedure Activate; dispid 60;
  905.   end;
  906.  
  907. // *********************************************************************//
  908. // Interface: Property_
  909. // Flags:     (4416) Dual OleAutomation Dispatchable
  910. // GUID:      {0002E18C-0000-0000-C000-000000000046}
  911. // *********************************************************************//
  912.   Property_ = interface(IDispatch)
  913.     ['{0002E18C-0000-0000-C000-000000000046}']
  914.     function  Get_Value: OleVariant; safecall;
  915.     procedure Set_Value(lppvReturn: OleVariant); safecall;
  916.     function  Get_IndexedValue(Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  917.                                Index4: OleVariant): OleVariant; safecall;
  918.     procedure Set_IndexedValue(Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  919.                                Index4: OleVariant; lppvReturn: OleVariant); safecall;
  920.     function  Get_NumIndices: Smallint; safecall;
  921.     function  Get_Application: Application; safecall;
  922.     function  Get_Parent: Properties; safecall;
  923.     function  Get_Name: WideString; safecall;
  924.     function  Get_VBE: VBE; safecall;
  925.     function  Get_Collection: Properties; safecall;
  926.     function  Get_Object_: IUnknown; safecall;
  927.     procedure Set_Object_(const lppunk: IUnknown); safecall;
  928.     property Value: OleVariant read Get_Value write Set_Value;
  929.     property IndexedValue[Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  930.                           Index4: OleVariant]: OleVariant read Get_IndexedValue write Set_IndexedValue;
  931.     property NumIndices: Smallint read Get_NumIndices;
  932.     property Application: Application read Get_Application;
  933.     property Parent: Properties read Get_Parent;
  934.     property Name: WideString read Get_Name;
  935.     property VBE: VBE read Get_VBE;
  936.     property Collection: Properties read Get_Collection;
  937.     property Object_: IUnknown read Get_Object_ write Set_Object_;
  938.   end;
  939.  
  940. // *********************************************************************//
  941. // DispIntf:  Property_Disp
  942. // Flags:     (4416) Dual OleAutomation Dispatchable
  943. // GUID:      {0002E18C-0000-0000-C000-000000000046}
  944. // *********************************************************************//
  945.   Property_Disp = dispinterface
  946.     ['{0002E18C-0000-0000-C000-000000000046}']
  947.     property Value: OleVariant dispid 0;
  948.     property IndexedValue[Index1: OleVariant; Index2: OleVariant; Index3: OleVariant; 
  949.                           Index4: OleVariant]: OleVariant dispid 3;
  950.     property NumIndices: Smallint readonly dispid 4;
  951.     property Application: Application readonly dispid 1;
  952.     property Parent: Properties readonly dispid 2;
  953.     property Name: WideString readonly dispid 40;
  954.     property VBE: VBE readonly dispid 41;
  955.     property Collection: Properties readonly dispid 42;
  956.     property Object_: IUnknown dispid 45;
  957.   end;
  958.  
  959. // *********************************************************************//
  960. // Interface: _Properties
  961. // Flags:     (4416) Dual OleAutomation Dispatchable
  962. // GUID:      {0002E188-0000-0000-C000-000000000046}
  963. // *********************************************************************//
  964.   _Properties = interface(IDispatch)
  965.     ['{0002E188-0000-0000-C000-000000000046}']
  966.     function  Item(index: OleVariant): Property_; safecall;
  967.     function  Get_Application: Application; safecall;
  968.     function  Get_Parent: IDispatch; safecall;
  969.     function  Get_Count: Integer; safecall;
  970.     function  _NewEnum: IUnknown; safecall;
  971.     function  Get_VBE: VBE; safecall;
  972.     property Application: Application read Get_Application;
  973.     property Parent: IDispatch read Get_Parent;
  974.     property Count: Integer read Get_Count;
  975.     property VBE: VBE read Get_VBE;
  976.   end;
  977.  
  978. // *********************************************************************//
  979. // DispIntf:  _PropertiesDisp
  980. // Flags:     (4416) Dual OleAutomation Dispatchable
  981. // GUID:      {0002E188-0000-0000-C000-000000000046}
  982. // *********************************************************************//
  983.   _PropertiesDisp = dispinterface
  984.     ['{0002E188-0000-0000-C000-000000000046}']
  985.     function  Item(index: OleVariant): Property_; dispid 0;
  986.     property Application: Application readonly dispid 1;
  987.     property Parent: IDispatch readonly dispid 2;
  988.     property Count: Integer readonly dispid 40;
  989.     function  _NewEnum: IUnknown; dispid -4;
  990.     property VBE: VBE readonly dispid 10;
  991.   end;
  992.  
  993. // *********************************************************************//
  994. // Interface: _CodeModule
  995. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  996. // GUID:      {0002E16E-0000-0000-C000-000000000046}
  997. // *********************************************************************//
  998.   _CodeModule = interface(IDispatch)
  999.     ['{0002E16E-0000-0000-C000-000000000046}']
  1000.     function  Get_Parent: VBComponent; safecall;
  1001.     function  Get_VBE: VBE; safecall;
  1002.     function  Get_Name: WideString; safecall;
  1003.     procedure Set_Name(const pbstrName: WideString); safecall;
  1004.     procedure AddFromString(const String_: WideString); safecall;
  1005.     procedure AddFromFile(const FileName: WideString); safecall;
  1006.     function  Get_Lines(StartLine: Integer; Count: Integer): WideString; safecall;
  1007.     function  Get_CountOfLines: Integer; safecall;
  1008.     procedure InsertLines(Line: Integer; const String_: WideString); safecall;
  1009.     procedure DeleteLines(StartLine: Integer; Count: Integer); safecall;
  1010.     procedure ReplaceLine(Line: Integer; const String_: WideString); safecall;
  1011.     function  Get_ProcStartLine(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
  1012.     function  Get_ProcCountLines(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
  1013.     function  Get_ProcBodyLine(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
  1014.     function  Get_ProcOfLine(Line: Integer; out ProcKind: vbext_ProcKind): WideString; safecall;
  1015.     function  Get_CountOfDeclarationLines: Integer; safecall;
  1016.     function  CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; safecall;
  1017.     function  Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  1018.                    var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  1019.                    MatchCase: WordBool; PatternSearch: WordBool): WordBool; safecall;
  1020.     function  Get_CodePane: CodePane; safecall;
  1021.     property Parent: VBComponent read Get_Parent;
  1022.     property VBE: VBE read Get_VBE;
  1023.     property Name: WideString read Get_Name write Set_Name;
  1024.     property Lines[StartLine: Integer; Count: Integer]: WideString read Get_Lines;
  1025.     property CountOfLines: Integer read Get_CountOfLines;
  1026.     property ProcStartLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcStartLine;
  1027.     property ProcCountLines[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcCountLines;
  1028.     property ProcBodyLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcBodyLine;
  1029.     property ProcOfLine[Line: Integer; out ProcKind: vbext_ProcKind]: WideString read Get_ProcOfLine;
  1030.     property CountOfDeclarationLines: Integer read Get_CountOfDeclarationLines;
  1031.     property CodePane: CodePane read Get_CodePane;
  1032.   end;
  1033.  
  1034. // *********************************************************************//
  1035. // DispIntf:  _CodeModuleDisp
  1036. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1037. // GUID:      {0002E16E-0000-0000-C000-000000000046}
  1038. // *********************************************************************//
  1039.   _CodeModuleDisp = dispinterface
  1040.     ['{0002E16E-0000-0000-C000-000000000046}']
  1041.     property Parent: VBComponent readonly dispid 1610743808;
  1042.     property VBE: VBE readonly dispid 1610743809;
  1043.     property Name: WideString dispid 0;
  1044.     procedure AddFromString(const String_: WideString); dispid 1610743812;
  1045.     procedure AddFromFile(const FileName: WideString); dispid 1610743813;
  1046.     property Lines[StartLine: Integer; Count: Integer]: WideString readonly dispid 1610743814;
  1047.     property CountOfLines: Integer readonly dispid 1610743815;
  1048.     procedure InsertLines(Line: Integer; const String_: WideString); dispid 1610743816;
  1049.     procedure DeleteLines(StartLine: Integer; Count: Integer); dispid 1610743817;
  1050.     procedure ReplaceLine(Line: Integer; const String_: WideString); dispid 1610743818;
  1051.     property ProcStartLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743819;
  1052.     property ProcCountLines[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743820;
  1053.     property ProcBodyLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743821;
  1054.     property ProcOfLine[Line: Integer; out ProcKind: vbext_ProcKind]: WideString readonly dispid 1610743822;
  1055.     property CountOfDeclarationLines: Integer readonly dispid 1610743823;
  1056.     function  CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; dispid 1610743824;
  1057.     function  Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  1058.                    var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  1059.                    MatchCase: WordBool; PatternSearch: WordBool): WordBool; dispid 1610743825;
  1060.     property CodePane: CodePane readonly dispid 1610743826;
  1061.   end;
  1062.  
  1063. // *********************************************************************//
  1064. // Interface: _CodePanes
  1065. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1066. // GUID:      {0002E172-0000-0000-C000-000000000046}
  1067. // *********************************************************************//
  1068.   _CodePanes = interface(IDispatch)
  1069.     ['{0002E172-0000-0000-C000-000000000046}']
  1070.     function  Get_Parent: VBE; safecall;
  1071.     function  Get_VBE: VBE; safecall;
  1072.     function  Item(index: OleVariant): CodePane; safecall;
  1073.     function  Get_Count: Integer; safecall;
  1074.     function  _NewEnum: IUnknown; safecall;
  1075.     function  Get_Current: CodePane; safecall;
  1076.     procedure Set_Current(const CodePane: CodePane); safecall;
  1077.     property Parent: VBE read Get_Parent;
  1078.     property VBE: VBE read Get_VBE;
  1079.     property Count: Integer read Get_Count;
  1080.     property Current: CodePane read Get_Current write Set_Current;
  1081.   end;
  1082.  
  1083. // *********************************************************************//
  1084. // DispIntf:  _CodePanesDisp
  1085. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1086. // GUID:      {0002E172-0000-0000-C000-000000000046}
  1087. // *********************************************************************//
  1088.   _CodePanesDisp = dispinterface
  1089.     ['{0002E172-0000-0000-C000-000000000046}']
  1090.     property Parent: VBE readonly dispid 1610743808;
  1091.     property VBE: VBE readonly dispid 1610743809;
  1092.     function  Item(index: OleVariant): CodePane; dispid 0;
  1093.     property Count: Integer readonly dispid 1610743811;
  1094.     function  _NewEnum: IUnknown; dispid -4;
  1095.     property Current: CodePane dispid 1610743813;
  1096.   end;
  1097.  
  1098. // *********************************************************************//
  1099. // Interface: _CodePane
  1100. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1101. // GUID:      {0002E176-0000-0000-C000-000000000046}
  1102. // *********************************************************************//
  1103.   _CodePane = interface(IDispatch)
  1104.     ['{0002E176-0000-0000-C000-000000000046}']
  1105.     function  Get_Collection: CodePanes; safecall;
  1106.     function  Get_VBE: VBE; safecall;
  1107.     function  Get_Window: Window; safecall;
  1108.     procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer; 
  1109.                            out EndColumn: Integer); safecall;
  1110.     procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer; 
  1111.                            EndColumn: Integer); safecall;
  1112.     function  Get_TopLine: Integer; safecall;
  1113.     procedure Set_TopLine(TopLine: Integer); safecall;
  1114.     function  Get_CountOfVisibleLines: Integer; safecall;
  1115.     function  Get_CodeModule: CodeModule; safecall;
  1116.     procedure Show; safecall;
  1117.     function  Get_CodePaneView: vbext_CodePaneview; safecall;
  1118.     property Collection: CodePanes read Get_Collection;
  1119.     property VBE: VBE read Get_VBE;
  1120.     property Window: Window read Get_Window;
  1121.     property TopLine: Integer read Get_TopLine write Set_TopLine;
  1122.     property CountOfVisibleLines: Integer read Get_CountOfVisibleLines;
  1123.     property CodeModule: CodeModule read Get_CodeModule;
  1124.     property CodePaneView: vbext_CodePaneview read Get_CodePaneView;
  1125.   end;
  1126.  
  1127. // *********************************************************************//
  1128. // DispIntf:  _CodePaneDisp
  1129. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1130. // GUID:      {0002E176-0000-0000-C000-000000000046}
  1131. // *********************************************************************//
  1132.   _CodePaneDisp = dispinterface
  1133.     ['{0002E176-0000-0000-C000-000000000046}']
  1134.     property Collection: CodePanes readonly dispid 1610743808;
  1135.     property VBE: VBE readonly dispid 1610743809;
  1136.     property Window: Window readonly dispid 1610743810;
  1137.     procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer; 
  1138.                            out EndColumn: Integer); dispid 1610743811;
  1139.     procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer; 
  1140.                            EndColumn: Integer); dispid 1610743812;
  1141.     property TopLine: Integer dispid 1610743813;
  1142.     property CountOfVisibleLines: Integer readonly dispid 1610743815;
  1143.     property CodeModule: CodeModule readonly dispid 1610743816;
  1144.     procedure Show; dispid 1610743817;
  1145.     property CodePaneView: vbext_CodePaneview readonly dispid 1610743818;
  1146.   end;
  1147.  
  1148. // *********************************************************************//
  1149. // Interface: _References
  1150. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1151. // GUID:      {0002E17A-0000-0000-C000-000000000046}
  1152. // *********************************************************************//
  1153.   _References = interface(IDispatch)
  1154.     ['{0002E17A-0000-0000-C000-000000000046}']
  1155.     function  Get_Parent: VBProject; safecall;
  1156.     function  Get_VBE: VBE; safecall;
  1157.     function  Item(index: OleVariant): Reference; safecall;
  1158.     function  Get_Count: Integer; safecall;
  1159.     function  _NewEnum: IUnknown; safecall;
  1160.     function  AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference; safecall;
  1161.     function  AddFromFile(const FileName: WideString): Reference; safecall;
  1162.     procedure Remove(const Reference: Reference); safecall;
  1163.     property Parent: VBProject read Get_Parent;
  1164.     property VBE: VBE read Get_VBE;
  1165.     property Count: Integer read Get_Count;
  1166.   end;
  1167.  
  1168. // *********************************************************************//
  1169. // DispIntf:  _ReferencesDisp
  1170. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1171. // GUID:      {0002E17A-0000-0000-C000-000000000046}
  1172. // *********************************************************************//
  1173.   _ReferencesDisp = dispinterface
  1174.     ['{0002E17A-0000-0000-C000-000000000046}']
  1175.     property Parent: VBProject readonly dispid 1610743808;
  1176.     property VBE: VBE readonly dispid 1610743809;
  1177.     function  Item(index: OleVariant): Reference; dispid 0;
  1178.     property Count: Integer readonly dispid 1610743811;
  1179.     function  _NewEnum: IUnknown; dispid -4;
  1180.     function  AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference; dispid 1610743813;
  1181.     function  AddFromFile(const FileName: WideString): Reference; dispid 1610743814;
  1182.     procedure Remove(const Reference: Reference); dispid 1610743815;
  1183.   end;
  1184.  
  1185. // *********************************************************************//
  1186. // Interface: Reference
  1187. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1188. // GUID:      {0002E17E-0000-0000-C000-000000000046}
  1189. // *********************************************************************//
  1190.   Reference = interface(IDispatch)
  1191.     ['{0002E17E-0000-0000-C000-000000000046}']
  1192.     function  Get_Collection: References; safecall;
  1193.     function  Get_VBE: VBE; safecall;
  1194.     function  Get_Name: WideString; safecall;
  1195.     function  Get_Guid: WideString; safecall;
  1196.     function  Get_Major: Integer; safecall;
  1197.     function  Get_Minor: Integer; safecall;
  1198.     function  Get_FullPath: WideString; safecall;
  1199.     function  Get_BuiltIn: WordBool; safecall;
  1200.     function  Get_IsBroken: WordBool; safecall;
  1201.     function  Get_Type_: vbext_RefKind; safecall;
  1202.     function  Get_Description: WideString; safecall;
  1203.     property Collection: References read Get_Collection;
  1204.     property VBE: VBE read Get_VBE;
  1205.     property Name: WideString read Get_Name;
  1206.     property Guid: WideString read Get_Guid;
  1207.     property Major: Integer read Get_Major;
  1208.     property Minor: Integer read Get_Minor;
  1209.     property FullPath: WideString read Get_FullPath;
  1210.     property BuiltIn: WordBool read Get_BuiltIn;
  1211.     property IsBroken: WordBool read Get_IsBroken;
  1212.     property Type_: vbext_RefKind read Get_Type_;
  1213.     property Description: WideString read Get_Description;
  1214.   end;
  1215.  
  1216. // *********************************************************************//
  1217. // DispIntf:  ReferenceDisp
  1218. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1219. // GUID:      {0002E17E-0000-0000-C000-000000000046}
  1220. // *********************************************************************//
  1221.   ReferenceDisp = dispinterface
  1222.     ['{0002E17E-0000-0000-C000-000000000046}']
  1223.     property Collection: References readonly dispid 1610743808;
  1224.     property VBE: VBE readonly dispid 1610743809;
  1225.     property Name: WideString readonly dispid 1610743810;
  1226.     property Guid: WideString readonly dispid 1610743811;
  1227.     property Major: Integer readonly dispid 1610743812;
  1228.     property Minor: Integer readonly dispid 1610743813;
  1229.     property FullPath: WideString readonly dispid 1610743814;
  1230.     property BuiltIn: WordBool readonly dispid 1610743815;
  1231.     property IsBroken: WordBool readonly dispid 1610743816;
  1232.     property Type_: vbext_RefKind readonly dispid 1610743817;
  1233.     property Description: WideString readonly dispid 1610743818;
  1234.   end;
  1235.  
  1236. // *********************************************************************//
  1237. // DispIntf:  _dispReferences_Events
  1238. // Flags:     (4240) Hidden NonExtensible Dispatchable
  1239. // GUID:      {CDDE3804-2064-11CF-867F-00AA005FF34A}
  1240. // *********************************************************************//
  1241.   _dispReferences_Events = dispinterface
  1242.     ['{CDDE3804-2064-11CF-867F-00AA005FF34A}']
  1243.     procedure ItemAdded(const Reference: Reference); dispid 0;
  1244.     procedure ItemRemoved(const Reference: Reference); dispid 1;
  1245.   end;
  1246.  
  1247. // *********************************************************************//
  1248. // The Class CoWindows provides a Create and CreateRemote method to          
  1249. // create instances of the default interface _Windows exposed by              
  1250. // the CoClass Windows. The functions are intended to be used by             
  1251. // clients wishing to automate the CoClass objects exposed by the         
  1252. // server of this typelibrary.                                            
  1253. // *********************************************************************//
  1254.   CoWindows = class
  1255.     class function Create: _Windows;
  1256.     class function CreateRemote(const MachineName: string): _Windows;
  1257.   end;
  1258.  
  1259. // *********************************************************************//
  1260. // The Class CoLinkedWindows provides a Create and CreateRemote method to          
  1261. // create instances of the default interface _LinkedWindows exposed by              
  1262. // the CoClass LinkedWindows. The functions are intended to be used by             
  1263. // clients wishing to automate the CoClass objects exposed by the         
  1264. // server of this typelibrary.                                            
  1265. // *********************************************************************//
  1266.   CoLinkedWindows = class
  1267.     class function Create: _LinkedWindows;
  1268.     class function CreateRemote(const MachineName: string): _LinkedWindows;
  1269.   end;
  1270.  
  1271. // *********************************************************************//
  1272. // The Class CoReferencesEvents provides a Create and CreateRemote method to          
  1273. // create instances of the default interface _ReferencesEvents exposed by              
  1274. // the CoClass ReferencesEvents. The functions are intended to be used by             
  1275. // clients wishing to automate the CoClass objects exposed by the         
  1276. // server of this typelibrary.                                            
  1277. // *********************************************************************//
  1278.   CoReferencesEvents = class
  1279.     class function Create: _ReferencesEvents;
  1280.     class function CreateRemote(const MachineName: string): _ReferencesEvents;
  1281.   end;
  1282.  
  1283. // *********************************************************************//
  1284. // The Class CoCommandBarEvents provides a Create and CreateRemote method to          
  1285. // create instances of the default interface _CommandBarControlEvents exposed by              
  1286. // the CoClass CommandBarEvents. The functions are intended to be used by             
  1287. // clients wishing to automate the CoClass objects exposed by the         
  1288. // server of this typelibrary.                                            
  1289. // *********************************************************************//
  1290.   CoCommandBarEvents = class
  1291.     class function Create: _CommandBarControlEvents;
  1292.     class function CreateRemote(const MachineName: string): _CommandBarControlEvents;
  1293.   end;
  1294.  
  1295. // *********************************************************************//
  1296. // The Class CoProjectTemplate provides a Create and CreateRemote method to          
  1297. // create instances of the default interface _ProjectTemplate exposed by              
  1298. // the CoClass ProjectTemplate. The functions are intended to be used by             
  1299. // clients wishing to automate the CoClass objects exposed by the         
  1300. // server of this typelibrary.                                            
  1301. // *********************************************************************//
  1302.   CoProjectTemplate = class
  1303.     class function Create: _ProjectTemplate;
  1304.     class function CreateRemote(const MachineName: string): _ProjectTemplate;
  1305.   end;
  1306.  
  1307. // *********************************************************************//
  1308. // The Class CoVBProject provides a Create and CreateRemote method to          
  1309. // create instances of the default interface _VBProject exposed by              
  1310. // the CoClass VBProject. The functions are intended to be used by             
  1311. // clients wishing to automate the CoClass objects exposed by the         
  1312. // server of this typelibrary.                                            
  1313. // *********************************************************************//
  1314.   CoVBProject = class
  1315.     class function Create: _VBProject;
  1316.     class function CreateRemote(const MachineName: string): _VBProject;
  1317.   end;
  1318.  
  1319. // *********************************************************************//
  1320. // The Class CoVBProjects provides a Create and CreateRemote method to          
  1321. // create instances of the default interface _VBProjects exposed by              
  1322. // the CoClass VBProjects. The functions are intended to be used by             
  1323. // clients wishing to automate the CoClass objects exposed by the         
  1324. // server of this typelibrary.                                            
  1325. // *********************************************************************//
  1326.   CoVBProjects = class
  1327.     class function Create: _VBProjects;
  1328.     class function CreateRemote(const MachineName: string): _VBProjects;
  1329.   end;
  1330.  
  1331. // *********************************************************************//
  1332. // The Class CoComponents provides a Create and CreateRemote method to          
  1333. // create instances of the default interface _Components exposed by              
  1334. // the CoClass Components. The functions are intended to be used by             
  1335. // clients wishing to automate the CoClass objects exposed by the         
  1336. // server of this typelibrary.                                            
  1337. // *********************************************************************//
  1338.   CoComponents = class
  1339.     class function Create: _Components;
  1340.     class function CreateRemote(const MachineName: string): _Components;
  1341.   end;
  1342.  
  1343. // *********************************************************************//
  1344. // The Class CoVBComponents provides a Create and CreateRemote method to          
  1345. // create instances of the default interface _VBComponents exposed by              
  1346. // the CoClass VBComponents. The functions are intended to be used by             
  1347. // clients wishing to automate the CoClass objects exposed by the         
  1348. // server of this typelibrary.                                            
  1349. // *********************************************************************//
  1350.   CoVBComponents = class
  1351.     class function Create: _VBComponents;
  1352.     class function CreateRemote(const MachineName: string): _VBComponents;
  1353.   end;
  1354.  
  1355. // *********************************************************************//
  1356. // The Class CoComponent provides a Create and CreateRemote method to          
  1357. // create instances of the default interface _Component exposed by              
  1358. // the CoClass Component. The functions are intended to be used by             
  1359. // clients wishing to automate the CoClass objects exposed by the         
  1360. // server of this typelibrary.                                            
  1361. // *********************************************************************//
  1362.   CoComponent = class
  1363.     class function Create: _Component;
  1364.     class function CreateRemote(const MachineName: string): _Component;
  1365.   end;
  1366.  
  1367. // *********************************************************************//
  1368. // The Class CoVBComponent provides a Create and CreateRemote method to          
  1369. // create instances of the default interface _VBComponent exposed by              
  1370. // the CoClass VBComponent. The functions are intended to be used by             
  1371. // clients wishing to automate the CoClass objects exposed by the         
  1372. // server of this typelibrary.                                            
  1373. // *********************************************************************//
  1374.   CoVBComponent = class
  1375.     class function Create: _VBComponent;
  1376.     class function CreateRemote(const MachineName: string): _VBComponent;
  1377.   end;
  1378.  
  1379. // *********************************************************************//
  1380. // The Class CoProperties provides a Create and CreateRemote method to          
  1381. // create instances of the default interface _Properties exposed by              
  1382. // the CoClass Properties. The functions are intended to be used by             
  1383. // clients wishing to automate the CoClass objects exposed by the         
  1384. // server of this typelibrary.                                            
  1385. // *********************************************************************//
  1386.   CoProperties = class
  1387.     class function Create: _Properties;
  1388.     class function CreateRemote(const MachineName: string): _Properties;
  1389.   end;
  1390.  
  1391. // *********************************************************************//
  1392. // The Class CoCodeModule provides a Create and CreateRemote method to          
  1393. // create instances of the default interface _CodeModule exposed by              
  1394. // the CoClass CodeModule. The functions are intended to be used by             
  1395. // clients wishing to automate the CoClass objects exposed by the         
  1396. // server of this typelibrary.                                            
  1397. // *********************************************************************//
  1398.   CoCodeModule = class
  1399.     class function Create: _CodeModule;
  1400.     class function CreateRemote(const MachineName: string): _CodeModule;
  1401.   end;
  1402.  
  1403. // *********************************************************************//
  1404. // The Class CoCodePanes provides a Create and CreateRemote method to          
  1405. // create instances of the default interface _CodePanes exposed by              
  1406. // the CoClass CodePanes. The functions are intended to be used by             
  1407. // clients wishing to automate the CoClass objects exposed by the         
  1408. // server of this typelibrary.                                            
  1409. // *********************************************************************//
  1410.   CoCodePanes = class
  1411.     class function Create: _CodePanes;
  1412.     class function CreateRemote(const MachineName: string): _CodePanes;
  1413.   end;
  1414.  
  1415. // *********************************************************************//
  1416. // The Class CoCodePane provides a Create and CreateRemote method to          
  1417. // create instances of the default interface _CodePane exposed by              
  1418. // the CoClass CodePane. The functions are intended to be used by             
  1419. // clients wishing to automate the CoClass objects exposed by the         
  1420. // server of this typelibrary.                                            
  1421. // *********************************************************************//
  1422.   CoCodePane = class
  1423.     class function Create: _CodePane;
  1424.     class function CreateRemote(const MachineName: string): _CodePane;
  1425.   end;
  1426.  
  1427. // *********************************************************************//
  1428. // The Class CoReferences provides a Create and CreateRemote method to          
  1429. // create instances of the default interface _References exposed by              
  1430. // the CoClass References. The functions are intended to be used by             
  1431. // clients wishing to automate the CoClass objects exposed by the         
  1432. // server of this typelibrary.                                            
  1433. // *********************************************************************//
  1434.   CoReferences = class
  1435.     class function Create: _References;
  1436.     class function CreateRemote(const MachineName: string): _References;
  1437.   end;
  1438.  
  1439. implementation
  1440.  
  1441. uses ComObj;
  1442.  
  1443. class function CoWindows.Create: _Windows;
  1444. begin
  1445.   Result := CreateComObject(CLASS_Windows) as _Windows;
  1446. end;
  1447.  
  1448. class function CoWindows.CreateRemote(const MachineName: string): _Windows;
  1449. begin
  1450.   Result := CreateRemoteComObject(MachineName, CLASS_Windows) as _Windows;
  1451. end;
  1452.  
  1453. class function CoLinkedWindows.Create: _LinkedWindows;
  1454. begin
  1455.   Result := CreateComObject(CLASS_LinkedWindows) as _LinkedWindows;
  1456. end;
  1457.  
  1458. class function CoLinkedWindows.CreateRemote(const MachineName: string): _LinkedWindows;
  1459. begin
  1460.   Result := CreateRemoteComObject(MachineName, CLASS_LinkedWindows) as _LinkedWindows;
  1461. end;
  1462.  
  1463. class function CoReferencesEvents.Create: _ReferencesEvents;
  1464. begin
  1465.   Result := CreateComObject(CLASS_ReferencesEvents) as _ReferencesEvents;
  1466. end;
  1467.  
  1468. class function CoReferencesEvents.CreateRemote(const MachineName: string): _ReferencesEvents;
  1469. begin
  1470.   Result := CreateRemoteComObject(MachineName, CLASS_ReferencesEvents) as _ReferencesEvents;
  1471. end;
  1472.  
  1473. class function CoCommandBarEvents.Create: _CommandBarControlEvents;
  1474. begin
  1475.   Result := CreateComObject(CLASS_CommandBarEvents) as _CommandBarControlEvents;
  1476. end;
  1477.  
  1478. class function CoCommandBarEvents.CreateRemote(const MachineName: string): _CommandBarControlEvents;
  1479. begin
  1480.   Result := CreateRemoteComObject(MachineName, CLASS_CommandBarEvents) as _CommandBarControlEvents;
  1481. end;
  1482.  
  1483. class function CoProjectTemplate.Create: _ProjectTemplate;
  1484. begin
  1485.   Result := CreateComObject(CLASS_ProjectTemplate) as _ProjectTemplate;
  1486. end;
  1487.  
  1488. class function CoProjectTemplate.CreateRemote(const MachineName: string): _ProjectTemplate;
  1489. begin
  1490.   Result := CreateRemoteComObject(MachineName, CLASS_ProjectTemplate) as _ProjectTemplate;
  1491. end;
  1492.  
  1493. class function CoVBProject.Create: _VBProject;
  1494. begin
  1495.   Result := CreateComObject(CLASS_VBProject) as _VBProject;
  1496. end;
  1497.  
  1498. class function CoVBProject.CreateRemote(const MachineName: string): _VBProject;
  1499. begin
  1500.   Result := CreateRemoteComObject(MachineName, CLASS_VBProject) as _VBProject;
  1501. end;
  1502.  
  1503. class function CoVBProjects.Create: _VBProjects;
  1504. begin
  1505.   Result := CreateComObject(CLASS_VBProjects) as _VBProjects;
  1506. end;
  1507.  
  1508. class function CoVBProjects.CreateRemote(const MachineName: string): _VBProjects;
  1509. begin
  1510.   Result := CreateRemoteComObject(MachineName, CLASS_VBProjects) as _VBProjects;
  1511. end;
  1512.  
  1513. class function CoComponents.Create: _Components;
  1514. begin
  1515.   Result := CreateComObject(CLASS_Components) as _Components;
  1516. end;
  1517.  
  1518. class function CoComponents.CreateRemote(const MachineName: string): _Components;
  1519. begin
  1520.   Result := CreateRemoteComObject(MachineName, CLASS_Components) as _Components;
  1521. end;
  1522.  
  1523. class function CoVBComponents.Create: _VBComponents;
  1524. begin
  1525.   Result := CreateComObject(CLASS_VBComponents) as _VBComponents;
  1526. end;
  1527.  
  1528. class function CoVBComponents.CreateRemote(const MachineName: string): _VBComponents;
  1529. begin
  1530.   Result := CreateRemoteComObject(MachineName, CLASS_VBComponents) as _VBComponents;
  1531. end;
  1532.  
  1533. class function CoComponent.Create: _Component;
  1534. begin
  1535.   Result := CreateComObject(CLASS_Component) as _Component;
  1536. end;
  1537.  
  1538. class function CoComponent.CreateRemote(const MachineName: string): _Component;
  1539. begin
  1540.   Result := CreateRemoteComObject(MachineName, CLASS_Component) as _Component;
  1541. end;
  1542.  
  1543. class function CoVBComponent.Create: _VBComponent;
  1544. begin
  1545.   Result := CreateComObject(CLASS_VBComponent) as _VBComponent;
  1546. end;
  1547.  
  1548. class function CoVBComponent.CreateRemote(const MachineName: string): _VBComponent;
  1549. begin
  1550.   Result := CreateRemoteComObject(MachineName, CLASS_VBComponent) as _VBComponent;
  1551. end;
  1552.  
  1553. class function CoProperties.Create: _Properties;
  1554. begin
  1555.   Result := CreateComObject(CLASS_Properties) as _Properties;
  1556. end;
  1557.  
  1558. class function CoProperties.CreateRemote(const MachineName: string): _Properties;
  1559. begin
  1560.   Result := CreateRemoteComObject(MachineName, CLASS_Properties) as _Properties;
  1561. end;
  1562.  
  1563. class function CoCodeModule.Create: _CodeModule;
  1564. begin
  1565.   Result := CreateComObject(CLASS_CodeModule) as _CodeModule;
  1566. end;
  1567.  
  1568. class function CoCodeModule.CreateRemote(const MachineName: string): _CodeModule;
  1569. begin
  1570.   Result := CreateRemoteComObject(MachineName, CLASS_CodeModule) as _CodeModule;
  1571. end;
  1572.  
  1573. class function CoCodePanes.Create: _CodePanes;
  1574. begin
  1575.   Result := CreateComObject(CLASS_CodePanes) as _CodePanes;
  1576. end;
  1577.  
  1578. class function CoCodePanes.CreateRemote(const MachineName: string): _CodePanes;
  1579. begin
  1580.   Result := CreateRemoteComObject(MachineName, CLASS_CodePanes) as _CodePanes;
  1581. end;
  1582.  
  1583. class function CoCodePane.Create: _CodePane;
  1584. begin
  1585.   Result := CreateComObject(CLASS_CodePane) as _CodePane;
  1586. end;
  1587.  
  1588. class function CoCodePane.CreateRemote(const MachineName: string): _CodePane;
  1589. begin
  1590.   Result := CreateRemoteComObject(MachineName, CLASS_CodePane) as _CodePane;
  1591. end;
  1592.  
  1593. class function CoReferences.Create: _References;
  1594. begin
  1595.   Result := CreateComObject(CLASS_References) as _References;
  1596. end;
  1597.  
  1598. class function CoReferences.CreateRemote(const MachineName: string): _References;
  1599. begin
  1600.   Result := CreateRemoteComObject(MachineName, CLASS_References) as _References;
  1601. end;
  1602.  
  1603. end.
  1604.