home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Ocx / Servers / msppt8.pas < prev    next >
Pascal/Delphi Source File  |  1999-06-03  |  428KB  |  9,079 lines
  1. unit msppt8;
  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.10  $
  15. // File generated on 6/3/99 9:50:08 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: typelibraries\msppt8.olb (1)
  19. // IID\LCID: {91493440-5A91-11CF-8700-00AA0060263B}\0
  20. // Helpfile: C:\typelib\VBAPPT8.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. //   (3) v5.0 VBIDE, (C:\typelib\VBEEXT1.olb)
  25. //   (4) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
  26. // Errors:
  27. //   Hint: Symbol 'Application' renamed to 'PowerPointApplication'
  28. //   Hint: Symbol 'Presentation' renamed to 'PowerPointPresentation'
  29. //   Hint: Symbol 'Slide' renamed to 'PowerPointSlide'
  30. //   Hint: Symbol 'OLEControl' renamed to 'OLECtrl'
  31. //   Hint: Parameter 'Type' of _Application.FileDialog changed to 'Type_'
  32. //   Hint: Member 'Type' of 'ColorFormat' changed to 'Type_'
  33. //   Hint: Parameter 'Type' of ColorFormat.Type changed to 'Type_'
  34. //   Hint: Member 'Type' of 'Selection' changed to 'Type_'
  35. //   Hint: Parameter 'Type' of Selection.Type changed to 'Type_'
  36. //   Hint: Member 'Type' of 'View' changed to 'Type_'
  37. //   Hint: Parameter 'Type' of View.Type changed to 'Type_'
  38. //   Hint: Parameter 'End' of PrintRanges.Add changed to 'End_'
  39. //   Hint: Member 'End' of 'PrintRange' changed to 'End_'
  40. //   Hint: Parameter 'End' of PrintRange.End changed to 'End_'
  41. //   Hint: Member 'Type' of 'Hyperlink' changed to 'Type_'
  42. //   Hint: Parameter 'Type' of Hyperlink.Type changed to 'Type_'
  43. //   Hint: Parameter 'Type' of ExtraColors.Add changed to 'Type_'
  44. //   Hint: Member 'Type' of 'SoundEffect' changed to 'Type_'
  45. //   Hint: Parameter 'Type' of SoundEffect.Type changed to 'Type_'
  46. //   Hint: Parameter 'Type' of SoundEffect.Type changed to 'Type_'
  47. //   Hint: Member 'Type' of 'SoundFormat' changed to 'Type_'
  48. //   Hint: Parameter 'Type' of SoundFormat.Type changed to 'Type_'
  49. //   Hint: Parameter 'Type' of Shapes.AddCallout changed to 'Type_'
  50. //   Hint: Parameter 'Type' of Shapes.AddConnector changed to 'Type_'
  51. //   Hint: Parameter 'Label' of Shapes.AddLabel changed to 'Label_'
  52. //   Hint: Parameter 'Type' of Shapes.AddShape changed to 'Type_'
  53. //   Hint: Parameter 'Type' of Shapes.AddPlaceholder changed to 'Type_'
  54. //   Hint: Member 'Type' of 'PlaceholderFormat' changed to 'Type_'
  55. //   Hint: Parameter 'Type' of PlaceholderFormat.Type changed to 'Type_'
  56. //   Hint: Member 'Type' of 'Shape' changed to 'Type_'
  57. //   Hint: Parameter 'Type' of Shape.Type changed to 'Type_'
  58. //   Hint: Member 'Type' of 'ShapeRange' changed to 'Type_'
  59. //   Hint: Parameter 'Type' of ShapeRange.Type changed to 'Type_'
  60. //   Hint: Member 'Type' of 'FillFormat' changed to 'Type_'
  61. //   Hint: Parameter 'Type' of FillFormat.Type changed to 'Type_'
  62. //   Hint: Member 'Type' of 'ShadowFormat' changed to 'Type_'
  63. //   Hint: Parameter 'Type' of ShadowFormat.Type changed to 'Type_'
  64. //   Hint: Parameter 'Type' of ShadowFormat.Type changed to 'Type_'
  65. //   Hint: Member 'Type' of 'ConnectorFormat' changed to 'Type_'
  66. //   Hint: Parameter 'Type' of ConnectorFormat.Type changed to 'Type_'
  67. //   Hint: Parameter 'Type' of ConnectorFormat.Type changed to 'Type_'
  68. //   Hint: Member 'Type' of 'CalloutFormat' changed to 'Type_'
  69. //   Hint: Parameter 'Type' of CalloutFormat.Type changed to 'Type_'
  70. //   Hint: Parameter 'Type' of CalloutFormat.Type changed to 'Type_'
  71. //   Hint: Member 'Object' of 'OLEFormat' changed to 'Object_'
  72. //   Hint: Parameter 'Object' of OLEFormat.Object changed to 'Object_'
  73. //   Hint: Parameter 'Type' of TextRange.ChangeCase changed to 'Type_'
  74. //   Hint: Parameter 'Type' of TabStops.Add changed to 'Type_'
  75. //   Hint: Member 'Type' of 'TabStop' changed to 'Type_'
  76. //   Hint: Parameter 'Type' of TabStop.Type changed to 'Type_'
  77. //   Hint: Parameter 'Type' of TabStop.Type changed to 'Type_'
  78. //   Hint: Parameter 'Type' of TextStyles.Item changed to 'Type_'
  79. //   Hint: Parameter 'To' of _Presentation.PrintOut changed to 'To_'
  80. //   Hint: Parameter 'Type' of PPDialogs.RunCharacterAlert changed to 'Type_'
  81. //   Hint: Parameter 'Type' of PPAlert.Run changed to 'Type_'
  82. //   Hint: Member 'Label' of 'PPControl' changed to 'Label_'
  83. //   Hint: Parameter 'Label' of PPControl.Label changed to 'Label_'
  84. //   Hint: Parameter 'Label' of PPControl.Label changed to 'Label_'
  85. //   Hint: Parameter 'String' of PPStrings.Add changed to 'String_'
  86. //   Hint: Parameter 'String' of PPStrings.Insert changed to 'String_'
  87. //   Hint: Symbol 'Application' renamed to 'PowerPointApplication'
  88. //   Hint: Symbol 'Presentation' renamed to 'PowerPointPresentation'
  89. //   Hint: Symbol 'Slide' renamed to 'PowerPointSlide'
  90. //   Hint: Symbol 'OLEControl' renamed to 'OLECtrl'
  91. //   Hint: Member 'Type' of 'ColorFormat' changed to 'Type_'
  92. //   Hint: Member 'Type' of 'Selection' changed to 'Type_'
  93. //   Hint: Member 'Type' of 'View' changed to 'Type_'
  94. //   Hint: Member 'End' of 'PrintRange' changed to 'End_'
  95. //   Hint: Member 'Type' of 'Hyperlink' changed to 'Type_'
  96. //   Hint: Member 'Type' of 'SoundEffect' changed to 'Type_'
  97. //   Hint: Member 'Type' of 'SoundFormat' changed to 'Type_'
  98. //   Hint: Member 'Type' of 'PlaceholderFormat' changed to 'Type_'
  99. //   Hint: Member 'Type' of 'Shape' changed to 'Type_'
  100. //   Hint: Member 'Type' of 'ShapeRange' changed to 'Type_'
  101. //   Hint: Member 'Type' of 'FillFormat' changed to 'Type_'
  102. //   Hint: Member 'Type' of 'ShadowFormat' changed to 'Type_'
  103. //   Hint: Member 'Type' of 'ConnectorFormat' changed to 'Type_'
  104. //   Hint: Member 'Type' of 'CalloutFormat' changed to 'Type_'
  105. //   Hint: Member 'Object' of 'OLEFormat' changed to 'Object_'
  106. //   Hint: Member 'Type' of 'TabStop' changed to 'Type_'
  107. //   Hint: Member 'Label' of 'PPControl' changed to 'Label_'
  108. // ************************************************************************ //
  109. interface
  110.  
  111. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, 
  112.   Office97, VBIDE97;
  113.  
  114. // *********************************************************************//
  115. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  116. //   Type Libraries     : LIBID_xxxx                                      
  117. //   CoClasses          : CLASS_xxxx                                      
  118. //   DISPInterfaces     : DIID_xxxx                                       
  119. //   Non-DISP interfaces: IID_xxxx                                        
  120. // *********************************************************************//
  121. const
  122.   // TypeLibrary Major and minor versions
  123.   PowerPointMajorVersion = 2;
  124.   PowerPointMinorVersion = 5;
  125.  
  126.   LIBID_PowerPoint: TGUID = '{91493440-5A91-11CF-8700-00AA0060263B}';
  127.  
  128.   IID_Collection: TGUID = '{91493450-5A91-11CF-8700-00AA0060263B}';
  129.   IID__Application: TGUID = '{91493442-5A91-11CF-8700-00AA0060263B}';
  130.   IID__Global: TGUID = '{91493451-5A91-11CF-8700-00AA0060263B}';
  131.   CLASS_PowerPointApplication: TGUID = '{91493441-5A91-11CF-8700-00AA0060263B}';
  132.   CLASS_Global: TGUID = '{91493443-5A91-11CF-8700-00AA0060263B}';
  133.   IID_ColorFormat: TGUID = '{91493452-5A91-11CF-8700-00AA0060263B}';
  134.   IID_SlideShowWindow: TGUID = '{91493453-5A91-11CF-8700-00AA0060263B}';
  135.   IID_Selection: TGUID = '{91493454-5A91-11CF-8700-00AA0060263B}';
  136.   IID_DocumentWindows: TGUID = '{91493455-5A91-11CF-8700-00AA0060263B}';
  137.   IID_SlideShowWindows: TGUID = '{91493456-5A91-11CF-8700-00AA0060263B}';
  138.   IID_DocumentWindow: TGUID = '{91493457-5A91-11CF-8700-00AA0060263B}';
  139.   IID_View: TGUID = '{91493458-5A91-11CF-8700-00AA0060263B}';
  140.   IID_SlideShowView: TGUID = '{91493459-5A91-11CF-8700-00AA0060263B}';
  141.   IID_SlideShowSettings: TGUID = '{9149345A-5A91-11CF-8700-00AA0060263B}';
  142.   IID_NamedSlideShows: TGUID = '{9149345B-5A91-11CF-8700-00AA0060263B}';
  143.   IID_NamedSlideShow: TGUID = '{9149345C-5A91-11CF-8700-00AA0060263B}';
  144.   IID_PrintOptions: TGUID = '{9149345D-5A91-11CF-8700-00AA0060263B}';
  145.   IID_PrintRanges: TGUID = '{9149345E-5A91-11CF-8700-00AA0060263B}';
  146.   IID_PrintRange: TGUID = '{9149345F-5A91-11CF-8700-00AA0060263B}';
  147.   IID_AddIns: TGUID = '{91493460-5A91-11CF-8700-00AA0060263B}';
  148.   IID_AddIn: TGUID = '{91493461-5A91-11CF-8700-00AA0060263B}';
  149.   IID_Presentations: TGUID = '{91493462-5A91-11CF-8700-00AA0060263B}';
  150.   IID_PresEvents: TGUID = '{91493463-5A91-11CF-8700-00AA0060263B}';
  151.   IID__Presentation: TGUID = '{9149349D-5A91-11CF-8700-00AA0060263B}';
  152.   IID_Hyperlinks: TGUID = '{91493464-5A91-11CF-8700-00AA0060263B}';
  153.   IID_Hyperlink: TGUID = '{91493465-5A91-11CF-8700-00AA0060263B}';
  154.   IID_PageSetup: TGUID = '{91493466-5A91-11CF-8700-00AA0060263B}';
  155.   IID_Fonts: TGUID = '{91493467-5A91-11CF-8700-00AA0060263B}';
  156.   IID_ExtraColors: TGUID = '{91493468-5A91-11CF-8700-00AA0060263B}';
  157.   IID_Slides: TGUID = '{91493469-5A91-11CF-8700-00AA0060263B}';
  158.   IID__Slide: TGUID = '{9149346A-5A91-11CF-8700-00AA0060263B}';
  159.   IID_SlideRange: TGUID = '{9149346B-5A91-11CF-8700-00AA0060263B}';
  160.   IID_Master: TGUID = '{9149346C-5A91-11CF-8700-00AA0060263B}';
  161.   IID_SldEvents: TGUID = '{9149346D-5A91-11CF-8700-00AA0060263B}';
  162.   CLASS_PowerPointSlide: TGUID = '{91493445-5A91-11CF-8700-00AA0060263B}';
  163.   IID_ColorSchemes: TGUID = '{9149346E-5A91-11CF-8700-00AA0060263B}';
  164.   IID_ColorScheme: TGUID = '{9149346F-5A91-11CF-8700-00AA0060263B}';
  165.   IID_RGBColor: TGUID = '{91493470-5A91-11CF-8700-00AA0060263B}';
  166.   IID_SlideShowTransition: TGUID = '{91493471-5A91-11CF-8700-00AA0060263B}';
  167.   IID_SoundEffect: TGUID = '{91493472-5A91-11CF-8700-00AA0060263B}';
  168.   IID_SoundFormat: TGUID = '{91493473-5A91-11CF-8700-00AA0060263B}';
  169.   IID_HeadersFooters: TGUID = '{91493474-5A91-11CF-8700-00AA0060263B}';
  170.   IID_Shapes: TGUID = '{91493475-5A91-11CF-8700-00AA0060263B}';
  171.   IID_Placeholders: TGUID = '{91493476-5A91-11CF-8700-00AA0060263B}';
  172.   IID_PlaceholderFormat: TGUID = '{91493477-5A91-11CF-8700-00AA0060263B}';
  173.   IID_FreeformBuilder: TGUID = '{91493478-5A91-11CF-8700-00AA0060263B}';
  174.   IID_Shape: TGUID = '{91493479-5A91-11CF-8700-00AA0060263B}';
  175.   IID_ShapeRange: TGUID = '{9149347A-5A91-11CF-8700-00AA0060263B}';
  176.   IID_GroupShapes: TGUID = '{9149347B-5A91-11CF-8700-00AA0060263B}';
  177.   IID_Adjustments: TGUID = '{9149347C-5A91-11CF-8700-00AA0060263B}';
  178.   IID_PictureFormat: TGUID = '{9149347D-5A91-11CF-8700-00AA0060263B}';
  179.   IID_FillFormat: TGUID = '{9149347E-5A91-11CF-8700-00AA0060263B}';
  180.   IID_LineFormat: TGUID = '{9149347F-5A91-11CF-8700-00AA0060263B}';
  181.   IID_ShadowFormat: TGUID = '{91493480-5A91-11CF-8700-00AA0060263B}';
  182.   IID_ConnectorFormat: TGUID = '{91493481-5A91-11CF-8700-00AA0060263B}';
  183.   IID_TextEffectFormat: TGUID = '{91493482-5A91-11CF-8700-00AA0060263B}';
  184.   IID_ThreeDFormat: TGUID = '{91493483-5A91-11CF-8700-00AA0060263B}';
  185.   IID_TextFrame: TGUID = '{91493484-5A91-11CF-8700-00AA0060263B}';
  186.   IID_CalloutFormat: TGUID = '{91493485-5A91-11CF-8700-00AA0060263B}';
  187.   IID_ShapeNodes: TGUID = '{91493486-5A91-11CF-8700-00AA0060263B}';
  188.   IID_ShapeNode: TGUID = '{91493487-5A91-11CF-8700-00AA0060263B}';
  189.   IID_OLEFormat: TGUID = '{91493488-5A91-11CF-8700-00AA0060263B}';
  190.   IID_LinkFormat: TGUID = '{91493489-5A91-11CF-8700-00AA0060263B}';
  191.   IID_ObjectVerbs: TGUID = '{9149348A-5A91-11CF-8700-00AA0060263B}';
  192.   IID_AnimationSettings: TGUID = '{9149348B-5A91-11CF-8700-00AA0060263B}';
  193.   IID_ActionSettings: TGUID = '{9149348C-5A91-11CF-8700-00AA0060263B}';
  194.   IID_ActionSetting: TGUID = '{9149348D-5A91-11CF-8700-00AA0060263B}';
  195.   IID_PlaySettings: TGUID = '{9149348E-5A91-11CF-8700-00AA0060263B}';
  196.   IID_TextRange: TGUID = '{9149348F-5A91-11CF-8700-00AA0060263B}';
  197.   IID_Ruler: TGUID = '{91493490-5A91-11CF-8700-00AA0060263B}';
  198.   IID_RulerLevels: TGUID = '{91493491-5A91-11CF-8700-00AA0060263B}';
  199.   IID_RulerLevel: TGUID = '{91493492-5A91-11CF-8700-00AA0060263B}';
  200.   IID_TabStops: TGUID = '{91493493-5A91-11CF-8700-00AA0060263B}';
  201.   IID_TabStop: TGUID = '{91493494-5A91-11CF-8700-00AA0060263B}';
  202.   IID_Font: TGUID = '{91493495-5A91-11CF-8700-00AA0060263B}';
  203.   IID_ParagraphFormat: TGUID = '{91493496-5A91-11CF-8700-00AA0060263B}';
  204.   IID_BulletFormat: TGUID = '{91493497-5A91-11CF-8700-00AA0060263B}';
  205.   IID_TextStyles: TGUID = '{91493498-5A91-11CF-8700-00AA0060263B}';
  206.   IID_TextStyle: TGUID = '{91493499-5A91-11CF-8700-00AA0060263B}';
  207.   IID_TextStyleLevels: TGUID = '{9149349A-5A91-11CF-8700-00AA0060263B}';
  208.   IID_TextStyleLevel: TGUID = '{9149349B-5A91-11CF-8700-00AA0060263B}';
  209.   IID_HeaderFooter: TGUID = '{9149349C-5A91-11CF-8700-00AA0060263B}';
  210.   CLASS_PowerPointPresentation: TGUID = '{91493444-5A91-11CF-8700-00AA0060263B}';
  211.   IID_PPDialogs: TGUID = '{9149349E-5A91-11CF-8700-00AA0060263B}';
  212.   IID_PPAlert: TGUID = '{9149349F-5A91-11CF-8700-00AA0060263B}';
  213.   IID_PPDialog: TGUID = '{914934A0-5A91-11CF-8700-00AA0060263B}';
  214.   IID_PPTabSheet: TGUID = '{914934A1-5A91-11CF-8700-00AA0060263B}';
  215.   IID_PPControls: TGUID = '{914934A2-5A91-11CF-8700-00AA0060263B}';
  216.   IID_PPTabSheets: TGUID = '{914934A3-5A91-11CF-8700-00AA0060263B}';
  217.   IID_PPControl: TGUID = '{914934A4-5A91-11CF-8700-00AA0060263B}';
  218.   IID_PPPushButton: TGUID = '{914934A5-5A91-11CF-8700-00AA0060263B}';
  219.   IID_PPToggleButton: TGUID = '{914934A6-5A91-11CF-8700-00AA0060263B}';
  220.   IID_PPBitmapButton: TGUID = '{914934A7-5A91-11CF-8700-00AA0060263B}';
  221.   IID_PPListBox: TGUID = '{914934A8-5A91-11CF-8700-00AA0060263B}';
  222.   IID_PPStrings: TGUID = '{914934A9-5A91-11CF-8700-00AA0060263B}';
  223.   IID_PPCheckBox: TGUID = '{914934AA-5A91-11CF-8700-00AA0060263B}';
  224.   IID_PPRadioCluster: TGUID = '{914934AB-5A91-11CF-8700-00AA0060263B}';
  225.   IID_PPStaticText: TGUID = '{914934AC-5A91-11CF-8700-00AA0060263B}';
  226.   IID_PPEditText: TGUID = '{914934AD-5A91-11CF-8700-00AA0060263B}';
  227.   IID_PPIcon: TGUID = '{914934AE-5A91-11CF-8700-00AA0060263B}';
  228.   IID_PPBitmap: TGUID = '{914934AF-5A91-11CF-8700-00AA0060263B}';
  229.   IID_PPSpinner: TGUID = '{914934B0-5A91-11CF-8700-00AA0060263B}';
  230.   IID_PPScrollBar: TGUID = '{914934B1-5A91-11CF-8700-00AA0060263B}';
  231.   IID_PPGroupBox: TGUID = '{914934B2-5A91-11CF-8700-00AA0060263B}';
  232.   IID_PPFrame: TGUID = '{914934B3-5A91-11CF-8700-00AA0060263B}';
  233.   IID_PPTabControl: TGUID = '{914934B4-5A91-11CF-8700-00AA0060263B}';
  234.   IID_PPDropDown: TGUID = '{914934B5-5A91-11CF-8700-00AA0060263B}';
  235.   IID_PPDropDownEdit: TGUID = '{914934B6-5A91-11CF-8700-00AA0060263B}';
  236.   IID_PPSlideMiniature: TGUID = '{914934B7-5A91-11CF-8700-00AA0060263B}';
  237.   IID_PPRadioButton: TGUID = '{914934B8-5A91-11CF-8700-00AA0060263B}';
  238.   IID_Tags: TGUID = '{914934B9-5A91-11CF-8700-00AA0060263B}';
  239.   IID_FileDialogFileList: TGUID = '{914934BA-5A91-11CF-8700-00AA0060263B}';
  240.   IID_FileDialogExtension: TGUID = '{914934BB-5A91-11CF-8700-00AA0060263B}';
  241.   IID_FileDialogExtensionList: TGUID = '{914934BC-5A91-11CF-8700-00AA0060263B}';
  242.   IID_FileDialog: TGUID = '{914934BD-5A91-11CF-8700-00AA0060263B}';
  243.   IID_MouseTracker: TGUID = '{914934BE-5A91-11CF-8700-00AA0060263B}';
  244.   IID_MouseDownHandler: TGUID = '{914934BF-5A91-11CF-8700-00AA0060263B}';
  245.   IID_OCXExtender: TGUID = '{914934C0-5A91-11CF-8700-00AA0060263B}';
  246.   IID_OCXExtenderEvents: TGUID = '{914934C1-5A91-11CF-8700-00AA0060263B}';
  247.   CLASS_OLECtrl: TGUID = '{91493446-5A91-11CF-8700-00AA0060263B}';
  248.  
  249. // *********************************************************************//
  250. // Declaration of Enumerations defined in Type Library                    
  251. // *********************************************************************//
  252. // PpWindowState constants
  253. type
  254.   PpWindowState = TOleEnum;
  255. const
  256.   ppWindowNormal = $00000001;
  257.   ppWindowMinimized = $00000002;
  258.   ppWindowMaximized = $00000003;
  259.  
  260. // PpArrangeStyle constants
  261. type
  262.   PpArrangeStyle = TOleEnum;
  263. const
  264.   ppArrangeTiled = $00000001;
  265.   ppArrangeCascade = $00000002;
  266.  
  267. // PpViewType constants
  268. type
  269.   PpViewType = TOleEnum;
  270. const
  271.   ppViewSlide = $00000001;
  272.   ppViewSlideMaster = $00000002;
  273.   ppViewNotesPage = $00000003;
  274.   ppViewHandoutMaster = $00000004;
  275.   ppViewNotesMaster = $00000005;
  276.   ppViewOutline = $00000006;
  277.   ppViewSlideSorter = $00000007;
  278.   ppViewTitleMaster = $00000008;
  279.  
  280. // PpColorSchemeIndex constants
  281. type
  282.   PpColorSchemeIndex = TOleEnum;
  283. const
  284.   ppSchemeColorMixed = $FFFFFFFE;
  285.   ppNotSchemeColor = $00000000;
  286.   ppBackground = $00000001;
  287.   ppForeground = $00000002;
  288.   ppShadow = $00000003;
  289.   ppTitle = $00000004;
  290.   ppFill = $00000005;
  291.   ppAccent1 = $00000006;
  292.   ppAccent2 = $00000007;
  293.   ppAccent3 = $00000008;
  294.  
  295. // PpSlideSizeType constants
  296. type
  297.   PpSlideSizeType = TOleEnum;
  298. const
  299.   ppSlideSizeOnScreen = $00000001;
  300.   ppSlideSizeLetterPaper = $00000002;
  301.   ppSlideSizeA4Paper = $00000003;
  302.   ppSlideSize35MM = $00000004;
  303.   ppSlideSizeOverhead = $00000005;
  304.   ppSlideSizeBanner = $00000006;
  305.   ppSlideSizeCustom = $00000007;
  306.  
  307. // PpSaveAsFileType constants
  308. type
  309.   PpSaveAsFileType = TOleEnum;
  310. const
  311.   ppSaveAsPresentation = $00000001;
  312.   ppSaveAsPowerPoint7 = $00000002;
  313.   ppSaveAsPowerPoint4 = $00000003;
  314.   ppSaveAsPowerPoint3 = $00000004;
  315.   ppSaveAsTemplate = $00000005;
  316.   ppSaveAsRTF = $00000006;
  317.   ppSaveAsShow = $00000007;
  318.   ppSaveAsAddIn = $00000008;
  319.   ppSaveAsWizard = $00000009;
  320.   ppSaveAsPowerPoint4FarEast = $0000000A;
  321.   ppSaveAsDefault = $0000000B;
  322.  
  323. // PpTextStyleType constants
  324. type
  325.   PpTextStyleType = TOleEnum;
  326. const
  327.   ppDefaultStyle = $00000001;
  328.   ppTitleStyle = $00000002;
  329.   ppBodyStyle = $00000003;
  330.  
  331. // PpSlideLayout constants
  332. type
  333.   PpSlideLayout = TOleEnum;
  334. const
  335.   ppLayoutMixed = $FFFFFFFE;
  336.   ppLayoutTitle = $00000001;
  337.   ppLayoutText = $00000002;
  338.   ppLayoutTwoColumnText = $00000003;
  339.   ppLayoutTable = $00000004;
  340.   ppLayoutTextAndChart = $00000005;
  341.   ppLayoutChartAndText = $00000006;
  342.   ppLayoutOrgchart = $00000007;
  343.   ppLayoutChart = $00000008;
  344.   ppLayoutTextAndClipart = $00000009;
  345.   ppLayoutClipartAndText = $0000000A;
  346.   ppLayoutTitleOnly = $0000000B;
  347.   ppLayoutBlank = $0000000C;
  348.   ppLayoutTextAndObject = $0000000D;
  349.   ppLayoutObjectAndText = $0000000E;
  350.   ppLayoutLargeObject = $0000000F;
  351.   ppLayoutObject = $00000010;
  352.   ppLayoutTextAndMediaClip = $00000011;
  353.   ppLayoutMediaClipAndText = $00000012;
  354.   ppLayoutObjectOverText = $00000013;
  355.   ppLayoutTextOverObject = $00000014;
  356.   ppLayoutTextAndTwoObjects = $00000015;
  357.   ppLayoutTwoObjectsAndText = $00000016;
  358.   ppLayoutTwoObjectsOverText = $00000017;
  359.   ppLayoutFourObjects = $00000018;
  360.   ppLayoutVerticalText = $00000019;
  361.   ppLayoutClipArtAndVerticalText = $0000001A;
  362.   ppLayoutVerticalTitleAndText = $0000001B;
  363.   ppLayoutVerticalTitleAndTextOverChart = $0000001C;
  364.  
  365. // PpEntryEffect constants
  366. type
  367.   PpEntryEffect = TOleEnum;
  368. const
  369.   ppEffectMixed = $FFFFFFFE;
  370.   ppEffectNone = $00000000;
  371.   ppEffectCut = $00000101;
  372.   ppEffectCutThroughBlack = $00000102;
  373.   ppEffectRandom = $00000201;
  374.   ppEffectBlindsHorizontal = $00000301;
  375.   ppEffectBlindsVertical = $00000302;
  376.   ppEffectCheckerboardAcross = $00000401;
  377.   ppEffectCheckerboardDown = $00000402;
  378.   ppEffectCoverLeft = $00000501;
  379.   ppEffectCoverUp = $00000502;
  380.   ppEffectCoverRight = $00000503;
  381.   ppEffectCoverDown = $00000504;
  382.   ppEffectCoverLeftUp = $00000505;
  383.   ppEffectCoverRightUp = $00000506;
  384.   ppEffectCoverLeftDown = $00000507;
  385.   ppEffectCoverRightDown = $00000508;
  386.   ppEffectDissolve = $00000601;
  387.   ppEffectFade = $00000701;
  388.   ppEffectUncoverLeft = $00000801;
  389.   ppEffectUncoverUp = $00000802;
  390.   ppEffectUncoverRight = $00000803;
  391.   ppEffectUncoverDown = $00000804;
  392.   ppEffectUncoverLeftUp = $00000805;
  393.   ppEffectUncoverRightUp = $00000806;
  394.   ppEffectUncoverLeftDown = $00000807;
  395.   ppEffectUncoverRightDown = $00000808;
  396.   ppEffectRandomBarsHorizontal = $00000901;
  397.   ppEffectRandomBarsVertical = $00000902;
  398.   ppEffectStripsUpLeft = $00000A01;
  399.   ppEffectStripsUpRight = $00000A02;
  400.   ppEffectStripsDownLeft = $00000A03;
  401.   ppEffectStripsDownRight = $00000A04;
  402.   ppEffectStripsLeftUp = $00000A05;
  403.   ppEffectStripsRightUp = $00000A06;
  404.   ppEffectStripsLeftDown = $00000A07;
  405.   ppEffectStripsRightDown = $00000A08;
  406.   ppEffectWipeLeft = $00000B01;
  407.   ppEffectWipeUp = $00000B02;
  408.   ppEffectWipeRight = $00000B03;
  409.   ppEffectWipeDown = $00000B04;
  410.   ppEffectBoxOut = $00000C01;
  411.   ppEffectBoxIn = $00000C02;
  412.   ppEffectFlyFromLeft = $00000D01;
  413.   ppEffectFlyFromTop = $00000D02;
  414.   ppEffectFlyFromRight = $00000D03;
  415.   ppEffectFlyFromBottom = $00000D04;
  416.   ppEffectFlyFromTopLeft = $00000D05;
  417.   ppEffectFlyFromTopRight = $00000D06;
  418.   ppEffectFlyFromBottomLeft = $00000D07;
  419.   ppEffectFlyFromBottomRight = $00000D08;
  420.   ppEffectPeekFromLeft = $00000D09;
  421.   ppEffectPeekFromDown = $00000D0A;
  422.   ppEffectPeekFromRight = $00000D0B;
  423.   ppEffectPeekFromUp = $00000D0C;
  424.   ppEffectCrawlFromLeft = $00000D0D;
  425.   ppEffectCrawlFromUp = $00000D0E;
  426.   ppEffectCrawlFromRight = $00000D0F;
  427.   ppEffectCrawlFromDown = $00000D10;
  428.   ppEffectZoomIn = $00000D11;
  429.   ppEffectZoomInSlightly = $00000D12;
  430.   ppEffectZoomOut = $00000D13;
  431.   ppEffectZoomOutSlightly = $00000D14;
  432.   ppEffectZoomCenter = $00000D15;
  433.   ppEffectZoomBottom = $00000D16;
  434.   ppEffectStretchAcross = $00000D17;
  435.   ppEffectStretchLeft = $00000D18;
  436.   ppEffectStretchUp = $00000D19;
  437.   ppEffectStretchRight = $00000D1A;
  438.   ppEffectStretchDown = $00000D1B;
  439.   ppEffectSwivel = $00000D1C;
  440.   ppEffectSpiral = $00000D1D;
  441.   ppEffectSplitHorizontalOut = $00000E01;
  442.   ppEffectSplitHorizontalIn = $00000E02;
  443.   ppEffectSplitVerticalOut = $00000E03;
  444.   ppEffectSplitVerticalIn = $00000E04;
  445.   ppEffectFlashOnceFast = $00000F01;
  446.   ppEffectFlashOnceMedium = $00000F02;
  447.   ppEffectFlashOnceSlow = $00000F03;
  448.   ppEffectAppear = $00000F04;
  449.  
  450. // PpTextLevelEffect constants
  451. type
  452.   PpTextLevelEffect = TOleEnum;
  453. const
  454.   ppAnimateLevelMixed = $FFFFFFFE;
  455.   ppAnimateLevelNone = $00000000;
  456.   ppAnimateByFirstLevel = $00000001;
  457.   ppAnimateBySecondLevel = $00000002;
  458.   ppAnimateByThirdLevel = $00000003;
  459.   ppAnimateByFourthLevel = $00000004;
  460.   ppAnimateByFifthLevel = $00000005;
  461.   ppAnimateByAllLevels = $00000010;
  462.  
  463. // PpTextUnitEffect constants
  464. type
  465.   PpTextUnitEffect = TOleEnum;
  466. const
  467.   ppAnimateUnitMixed = $FFFFFFFE;
  468.   ppAnimateByParagraph = $00000000;
  469.   ppAnimateByWord = $00000001;
  470.   ppAnimateByCharacter = $00000002;
  471.  
  472. // PpChartUnitEffect constants
  473. type
  474.   PpChartUnitEffect = TOleEnum;
  475. const
  476.   ppAnimateChartMixed = $FFFFFFFE;
  477.   ppAnimateBySeries = $00000001;
  478.   ppAnimateByCategory = $00000002;
  479.   ppAnimateBySeriesElements = $00000003;
  480.   ppAnimateByCategoryElements = $00000004;
  481.  
  482. // PpAfterEffect constants
  483. type
  484.   PpAfterEffect = TOleEnum;
  485. const
  486.   ppAfterEffectMixed = $FFFFFFFE;
  487.   ppAfterEffectNothing = $00000000;
  488.   ppAfterEffectHide = $00000001;
  489.   ppAfterEffectDim = $00000002;
  490.   ppAfterEffectHideOnClick = $00000003;
  491.  
  492. // PpAdvanceMode constants
  493. type
  494.   PpAdvanceMode = TOleEnum;
  495. const
  496.   ppAdvanceModeMixed = $FFFFFFFE;
  497.   ppAdvanceOnClick = $00000001;
  498.   ppAdvanceOnTime = $00000002;
  499.  
  500. // PpSoundEffectType constants
  501. type
  502.   PpSoundEffectType = TOleEnum;
  503. const
  504.   ppSoundEffectsMixed = $FFFFFFFE;
  505.   ppSoundNone = $00000000;
  506.   ppSoundStopPrevious = $00000001;
  507.   ppSoundFile = $00000002;
  508.  
  509. // PpFollowColors constants
  510. type
  511.   PpFollowColors = TOleEnum;
  512. const
  513.   ppFollowColorsMixed = $FFFFFFFE;
  514.   ppFollowColorsNone = $00000000;
  515.   ppFollowColorsScheme = $00000001;
  516.   ppFollowColorsTextAndBackground = $00000002;
  517.  
  518. // PpUpdateOption constants
  519. type
  520.   PpUpdateOption = TOleEnum;
  521. const
  522.   ppUpdateOptionMixed = $FFFFFFFE;
  523.   ppUpdateOptionManual = $00000001;
  524.   ppUpdateOptionAutomatic = $00000002;
  525.  
  526. // PpParagraphAlignment constants
  527. type
  528.   PpParagraphAlignment = TOleEnum;
  529. const
  530.   ppAlignmentMixed = $FFFFFFFE;
  531.   ppAlignLeft = $00000001;
  532.   ppAlignCenter = $00000002;
  533.   ppAlignRight = $00000003;
  534.   ppAlignJustify = $00000004;
  535.   ppAlignDistribute = $00000005;
  536.  
  537. // PpBaselineAlignment constants
  538. type
  539.   PpBaselineAlignment = TOleEnum;
  540. const
  541.   ppBaselineAlignMixed = $FFFFFFFE;
  542.   ppBaselineAlignBaseline = $00000001;
  543.   ppBaselineAlignTop = $00000002;
  544.   ppBaselineAlignCenter = $00000003;
  545.   ppBaselineAlignFarEast50 = $00000004;
  546.  
  547. // PpTabStopType constants
  548. type
  549.   PpTabStopType = TOleEnum;
  550. const
  551.   ppTabStopMixed = $FFFFFFFE;
  552.   ppTabStopLeft = $00000001;
  553.   ppTabStopCenter = $00000002;
  554.   ppTabStopRight = $00000003;
  555.   ppTabStopDecimal = $00000004;
  556.  
  557. // PpIndentControl constants
  558. type
  559.   PpIndentControl = TOleEnum;
  560. const
  561.   ppIndentControlMixed = $FFFFFFFE;
  562.   ppIndentReplaceAttr = $00000001;
  563.   ppIndentKeepAttr = $00000002;
  564.  
  565. // PpChangeCase constants
  566. type
  567.   PpChangeCase = TOleEnum;
  568. const
  569.   ppCaseSentence = $00000001;
  570.   ppCaseLower = $00000002;
  571.   ppCaseUpper = $00000003;
  572.   ppCaseTitle = $00000004;
  573.   ppCaseToggle = $00000005;
  574.  
  575. // PpDialogMode constants
  576. type
  577.   PpDialogMode = TOleEnum;
  578. const
  579.   ppDialogModeMixed = $FFFFFFFE;
  580.   ppDialogModeless = $00000000;
  581.   ppDialogModal = $00000001;
  582.  
  583. // PpDialogStyle constants
  584. type
  585.   PpDialogStyle = TOleEnum;
  586. const
  587.   ppDialogStyleMixed = $FFFFFFFE;
  588.   ppDialogStandard = $00000001;
  589.   ppDialogTabbed = $00000002;
  590.  
  591. // PpDialogPositioning constants
  592. type
  593.   PpDialogPositioning = TOleEnum;
  594. const
  595.   ppDialogPositionNormal = $00000001;
  596.   ppDialogPositionCenterParent = $00000002;
  597.   ppDialogPositionCenterScreen = $00000003;
  598.   ppDialogPositionRememberLast = $00000004;
  599.  
  600. // PpDialogFontStyle constants
  601. type
  602.   PpDialogFontStyle = TOleEnum;
  603. const
  604.   ppDialogFontStyleMixed = $FFFFFFFE;
  605.   ppDialogSmall = $FFFFFFFF;
  606.   ppDialogItalic = $00000000;
  607.  
  608. // PpScrollBarStyle constants
  609. type
  610.   PpScrollBarStyle = TOleEnum;
  611. const
  612.   ppScrollBarVertical = $00000000;
  613.   ppScrollBarHorizontal = $00000001;
  614.  
  615. // PpListBoxSelectionStyle constants
  616. type
  617.   PpListBoxSelectionStyle = TOleEnum;
  618. const
  619.   ppListBoxSingle = $00000000;
  620.   ppListBoxMulti = $00000001;
  621.  
  622. // PpListBoxAbbreviationStyle constants
  623. type
  624.   PpListBoxAbbreviationStyle = TOleEnum;
  625. const
  626.   ppListBoxAbbreviationNone = $00000000;
  627.   ppListBoxAbbreviationTruncation = $00000001;
  628.   ppListBoxAbbreviationTruncationWithEllipsis = $00000002;
  629.   ppListBoxAbbreviationFileNames = $00000003;
  630.  
  631. // PpAlertType constants
  632. type
  633.   PpAlertType = TOleEnum;
  634. const
  635.   ppAlertTypeOK = $00000000;
  636.   ppAlertTypeOKCANCEL = $00000001;
  637.   ppAlertTypeYESNO = $00000002;
  638.   ppAlertTypeYESNOCANCEL = $00000003;
  639.   ppAlertTypeBACKNEXTCLOSE = $00000004;
  640.   ppAlertTypeRETRYCANCEL = $00000005;
  641.   ppAlertTypeABORTRETRYIGNORE = $00000006;
  642.  
  643. // PpAlertButton constants
  644. type
  645.   PpAlertButton = TOleEnum;
  646. const
  647.   ppAlertButtonCLOSE = $00000000;
  648.   ppAlertButtonSNOOZE = $00000001;
  649.   ppAlertButtonSEARCH = $00000002;
  650.   ppAlertButtonIGNORE = $00000003;
  651.   ppAlertButtonABORT = $00000004;
  652.   ppAlertButtonRETRY = $00000005;
  653.   ppAlertButtonNEXT = $00000006;
  654.   ppAlertButtonBACK = $00000007;
  655.   ppAlertButtonNO = $00000008;
  656.   ppAlertButtonYES = $00000009;
  657.   ppAlertButtonCANCEL = $0000000A;
  658.   ppAlertButtonOK = $0000000B;
  659.   ppAlertButtonNULL = $0000000C;
  660.  
  661. // PpAlertIcon constants
  662. type
  663.   PpAlertIcon = TOleEnum;
  664. const
  665.   ppAlertIconQuestionMark = $00000000;
  666.   ppAlertIconNote = $00000001;
  667.   ppAlertIconCaution = $00000002;
  668.   ppAlertIconStop = $00000003;
  669.  
  670. // PpSlideShowPointerType constants
  671. type
  672.   PpSlideShowPointerType = TOleEnum;
  673. const
  674.   ppSlideShowPointerNone = $00000000;
  675.   ppSlideShowPointerArrow = $00000001;
  676.   ppSlideShowPointerPen = $00000002;
  677.   ppSlideShowPointerAlwaysHidden = $00000003;
  678.  
  679. // PpSlideShowState constants
  680. type
  681.   PpSlideShowState = TOleEnum;
  682. const
  683.   ppSlideShowRunning = $00000001;
  684.   ppSlideShowPaused = $00000002;
  685.   ppSlideShowBlackScreen = $00000003;
  686.   ppSlideShowWhiteScreen = $00000004;
  687.   ppSlideShowDone = $00000005;
  688.  
  689. // PpSlideShowAdvanceMode constants
  690. type
  691.   PpSlideShowAdvanceMode = TOleEnum;
  692. const
  693.   ppSlideShowManualAdvance = $00000001;
  694.   ppSlideShowUseSlideTimings = $00000002;
  695.   ppSlideShowRehearseNewTimings = $00000003;
  696.  
  697. // PpFileDialogType constants
  698. type
  699.   PpFileDialogType = TOleEnum;
  700. const
  701.   ppFileDialogOpen = $00000001;
  702.   ppFileDialogSave = $00000002;
  703.  
  704. // PpFileDialogView constants
  705. type
  706.   PpFileDialogView = TOleEnum;
  707. const
  708.   ppFileDialogViewDetails = $00000001;
  709.   ppFileDialogViewPreview = $00000002;
  710.   ppFileDialogViewProperties = $00000003;
  711.   ppFileDialogViewList = $00000004;
  712.  
  713. // PpPrintOutputType constants
  714. type
  715.   PpPrintOutputType = TOleEnum;
  716. const
  717.   ppPrintOutputSlides = $00000001;
  718.   ppPrintOutputTwoSlideHandouts = $00000002;
  719.   ppPrintOutputThreeSlideHandouts = $00000003;
  720.   ppPrintOutputSixSlideHandouts = $00000004;
  721.   ppPrintOutputNotesPages = $00000005;
  722.   ppPrintOutputOutline = $00000006;
  723.   ppPrintOutputBuildSlides = $00000007;
  724.  
  725. // PpPrintColorType constants
  726. type
  727.   PpPrintColorType = TOleEnum;
  728. const
  729.   ppPrintColor = $00000001;
  730.   ppPrintBlackAndWhite = $00000002;
  731.   ppPrintPureBlackAndWhite = $00000003;
  732.  
  733. // PpSelectionType constants
  734. type
  735.   PpSelectionType = TOleEnum;
  736. const
  737.   ppSelectionNone = $00000000;
  738.   ppSelectionSlides = $00000001;
  739.   ppSelectionShapes = $00000002;
  740.   ppSelectionText = $00000003;
  741.  
  742. // PpDirection constants
  743. type
  744.   PpDirection = TOleEnum;
  745. const
  746.   ppDirectionMixed = $FFFFFFFE;
  747.   ppDirectionLeftToRight = $00000001;
  748.   ppDirectionRightToLeft = $00000002;
  749.  
  750. // PpDateTimeFormat constants
  751. type
  752.   PpDateTimeFormat = TOleEnum;
  753. const
  754.   ppDateTimeFormatMixed = $FFFFFFFE;
  755.   ppDateTimeMdyy = $00000001;
  756.   ppDateTimeddddMMMMddyyyy = $00000002;
  757.   ppDateTimedMMMMyyyy = $00000003;
  758.   ppDateTimeMMMMdyyyy = $00000004;
  759.   ppDateTimedMMMyy = $00000005;
  760.   ppDateTimeMMMMyy = $00000006;
  761.   ppDateTimeMMyy = $00000007;
  762.   ppDateTimeMMddyyHmm = $00000008;
  763.   ppDateTimeMMddyyhmmAMPM = $00000009;
  764.   ppDateTimeHmm = $0000000A;
  765.   ppDateTimeHmmss = $0000000B;
  766.   ppDateTimehmmAMPM = $0000000C;
  767.   ppDateTimehmmssAMPM = $0000000D;
  768.  
  769. // PpTransitionSpeed constants
  770. type
  771.   PpTransitionSpeed = TOleEnum;
  772. const
  773.   ppTransitionSpeedMixed = $FFFFFFFE;
  774.   ppTransitionSpeedSlow = $00000001;
  775.   ppTransitionSpeedMedium = $00000002;
  776.   ppTransitionSpeedFast = $00000003;
  777.  
  778. // PpMouseActivation constants
  779. type
  780.   PpMouseActivation = TOleEnum;
  781. const
  782.   ppMouseClick = $00000001;
  783.   ppMouseOver = $00000002;
  784.  
  785. // PpActionType constants
  786. type
  787.   PpActionType = TOleEnum;
  788. const
  789.   ppActionMixed = $FFFFFFFE;
  790.   ppActionNone = $00000000;
  791.   ppActionNextSlide = $00000001;
  792.   ppActionPreviousSlide = $00000002;
  793.   ppActionFirstSlide = $00000003;
  794.   ppActionLastSlide = $00000004;
  795.   ppActionLastSlideViewed = $00000005;
  796.   ppActionEndShow = $00000006;
  797.   ppActionHyperlink = $00000007;
  798.   ppActionRunMacro = $00000008;
  799.   ppActionRunProgram = $00000009;
  800.   ppActionNamedSlideShow = $0000000A;
  801.   ppActionOLEVerb = $0000000B;
  802.   ppActionPlay = $0000000C;
  803.  
  804. // PpPlaceholderType constants
  805. type
  806.   PpPlaceholderType = TOleEnum;
  807. const
  808.   ppPlaceholderMixed = $FFFFFFFE;
  809.   ppPlaceholderTitle = $00000001;
  810.   ppPlaceholderBody = $00000002;
  811.   ppPlaceholderCenterTitle = $00000003;
  812.   ppPlaceholderSubtitle = $00000004;
  813.   ppPlaceholderVerticalTitle = $00000005;
  814.   ppPlaceholderVerticalBody = $00000006;
  815.   ppPlaceholderObject = $00000007;
  816.   ppPlaceholderChart = $00000008;
  817.   ppPlaceholderBitmap = $00000009;
  818.   ppPlaceholderMediaClip = $0000000A;
  819.   ppPlaceholderOrgChart = $0000000B;
  820.   ppPlaceholderTable = $0000000C;
  821.   ppPlaceholderSlideNumber = $0000000D;
  822.   ppPlaceholderHeader = $0000000E;
  823.   ppPlaceholderFooter = $0000000F;
  824.   ppPlaceholderDate = $00000010;
  825.  
  826. // PpSlideShowType constants
  827. type
  828.   PpSlideShowType = TOleEnum;
  829. const
  830.   ppShowTypeSpeaker = $00000001;
  831.   ppShowTypeWindow = $00000002;
  832.   ppShowTypeKiosk = $00000003;
  833.  
  834. // PpPrintRangeType constants
  835. type
  836.   PpPrintRangeType = TOleEnum;
  837. const
  838.   ppPrintAll = $00000001;
  839.   ppPrintSelection = $00000002;
  840.   ppPrintCurrent = $00000003;
  841.   ppPrintSlideRange = $00000004;
  842.   ppPrintNamedSlideShow = $00000005;
  843.  
  844. // PpAutoSize constants
  845. type
  846.   PpAutoSize = TOleEnum;
  847. const
  848.   ppAutoSizeMixed = $FFFFFFFE;
  849.   ppAutoSizeNone = $00000000;
  850.   ppAutoSizeShapeToFitText = $00000001;
  851.  
  852. // PpMediaType constants
  853. type
  854.   PpMediaType = TOleEnum;
  855. const
  856.   ppMediaTypeMixed = $FFFFFFFE;
  857.   ppMediaTypeOther = $00000001;
  858.   ppMediaTypeSound = $00000002;
  859.   ppMediaTypeMovie = $00000003;
  860.  
  861. // PpSoundFormatType constants
  862. type
  863.   PpSoundFormatType = TOleEnum;
  864. const
  865.   ppSoundFormatMixed = $FFFFFFFE;
  866.   ppSoundFormatNone = $00000000;
  867.   ppSoundFormatWAV = $00000001;
  868.   ppSoundFormatMIDI = $00000002;
  869.   ppSoundFormatCDAudio = $00000003;
  870.  
  871. // PpFarEastLineBreakLevel constants
  872. type
  873.   PpFarEastLineBreakLevel = TOleEnum;
  874. const
  875.   ppFarEastLineBreakLevelNormal = $00000001;
  876.   ppFarEastLineBreakLevelStrict = $00000002;
  877.   ppFarEastLineBreakLevelCustom = $00000003;
  878.  
  879. // PpSlideShowRangeType constants
  880. type
  881.   PpSlideShowRangeType = TOleEnum;
  882. const
  883.   ppShowAll = $00000001;
  884.   ppShowSlideRange = $00000002;
  885.   ppShowNamedSlideShow = $00000003;
  886.  
  887. type
  888.  
  889. // *********************************************************************//
  890. // Forward declaration of types defined in TypeLibrary                    
  891. // *********************************************************************//
  892.   Collection = interface;
  893.   CollectionDisp = dispinterface;
  894.   _Application = interface;
  895.   _ApplicationDisp = dispinterface;
  896.   _Global = interface;
  897.   _GlobalDisp = dispinterface;
  898.   ColorFormat = interface;
  899.   ColorFormatDisp = dispinterface;
  900.   SlideShowWindow = interface;
  901.   SlideShowWindowDisp = dispinterface;
  902.   Selection = interface;
  903.   SelectionDisp = dispinterface;
  904.   DocumentWindows = interface;
  905.   DocumentWindowsDisp = dispinterface;
  906.   SlideShowWindows = interface;
  907.   SlideShowWindowsDisp = dispinterface;
  908.   DocumentWindow = interface;
  909.   DocumentWindowDisp = dispinterface;
  910.   View = interface;
  911.   ViewDisp = dispinterface;
  912.   SlideShowView = interface;
  913.   SlideShowViewDisp = dispinterface;
  914.   SlideShowSettings = interface;
  915.   SlideShowSettingsDisp = dispinterface;
  916.   NamedSlideShows = interface;
  917.   NamedSlideShowsDisp = dispinterface;
  918.   NamedSlideShow = interface;
  919.   NamedSlideShowDisp = dispinterface;
  920.   PrintOptions = interface;
  921.   PrintOptionsDisp = dispinterface;
  922.   PrintRanges = interface;
  923.   PrintRangesDisp = dispinterface;
  924.   PrintRange = interface;
  925.   PrintRangeDisp = dispinterface;
  926.   AddIns = interface;
  927.   AddInsDisp = dispinterface;
  928.   AddIn = interface;
  929.   AddInDisp = dispinterface;
  930.   Presentations = interface;
  931.   PresentationsDisp = dispinterface;
  932.   PresEvents = interface;
  933.   _Presentation = interface;
  934.   _PresentationDisp = dispinterface;
  935.   Hyperlinks = interface;
  936.   HyperlinksDisp = dispinterface;
  937.   Hyperlink = interface;
  938.   HyperlinkDisp = dispinterface;
  939.   PageSetup = interface;
  940.   PageSetupDisp = dispinterface;
  941.   Fonts = interface;
  942.   FontsDisp = dispinterface;
  943.   ExtraColors = interface;
  944.   ExtraColorsDisp = dispinterface;
  945.   Slides = interface;
  946.   SlidesDisp = dispinterface;
  947.   _Slide = interface;
  948.   _SlideDisp = dispinterface;
  949.   SlideRange = interface;
  950.   SlideRangeDisp = dispinterface;
  951.   Master = interface;
  952.   MasterDisp = dispinterface;
  953.   SldEvents = interface;
  954.   ColorSchemes = interface;
  955.   ColorSchemesDisp = dispinterface;
  956.   ColorScheme = interface;
  957.   ColorSchemeDisp = dispinterface;
  958.   RGBColor = interface;
  959.   RGBColorDisp = dispinterface;
  960.   SlideShowTransition = interface;
  961.   SlideShowTransitionDisp = dispinterface;
  962.   SoundEffect = interface;
  963.   SoundEffectDisp = dispinterface;
  964.   SoundFormat = interface;
  965.   SoundFormatDisp = dispinterface;
  966.   HeadersFooters = interface;
  967.   HeadersFootersDisp = dispinterface;
  968.   Shapes = interface;
  969.   ShapesDisp = dispinterface;
  970.   Placeholders = interface;
  971.   PlaceholdersDisp = dispinterface;
  972.   PlaceholderFormat = interface;
  973.   PlaceholderFormatDisp = dispinterface;
  974.   FreeformBuilder = interface;
  975.   FreeformBuilderDisp = dispinterface;
  976.   Shape = interface;
  977.   ShapeDisp = dispinterface;
  978.   ShapeRange = interface;
  979.   ShapeRangeDisp = dispinterface;
  980.   GroupShapes = interface;
  981.   GroupShapesDisp = dispinterface;
  982.   Adjustments = interface;
  983.   AdjustmentsDisp = dispinterface;
  984.   PictureFormat = interface;
  985.   PictureFormatDisp = dispinterface;
  986.   FillFormat = interface;
  987.   FillFormatDisp = dispinterface;
  988.   LineFormat = interface;
  989.   LineFormatDisp = dispinterface;
  990.   ShadowFormat = interface;
  991.   ShadowFormatDisp = dispinterface;
  992.   ConnectorFormat = interface;
  993.   ConnectorFormatDisp = dispinterface;
  994.   TextEffectFormat = interface;
  995.   TextEffectFormatDisp = dispinterface;
  996.   ThreeDFormat = interface;
  997.   ThreeDFormatDisp = dispinterface;
  998.   TextFrame = interface;
  999.   TextFrameDisp = dispinterface;
  1000.   CalloutFormat = interface;
  1001.   CalloutFormatDisp = dispinterface;
  1002.   ShapeNodes = interface;
  1003.   ShapeNodesDisp = dispinterface;
  1004.   ShapeNode = interface;
  1005.   ShapeNodeDisp = dispinterface;
  1006.   OLEFormat = interface;
  1007.   OLEFormatDisp = dispinterface;
  1008.   LinkFormat = interface;
  1009.   LinkFormatDisp = dispinterface;
  1010.   ObjectVerbs = interface;
  1011.   ObjectVerbsDisp = dispinterface;
  1012.   AnimationSettings = interface;
  1013.   AnimationSettingsDisp = dispinterface;
  1014.   ActionSettings = interface;
  1015.   ActionSettingsDisp = dispinterface;
  1016.   ActionSetting = interface;
  1017.   ActionSettingDisp = dispinterface;
  1018.   PlaySettings = interface;
  1019.   PlaySettingsDisp = dispinterface;
  1020.   TextRange = interface;
  1021.   TextRangeDisp = dispinterface;
  1022.   Ruler = interface;
  1023.   RulerDisp = dispinterface;
  1024.   RulerLevels = interface;
  1025.   RulerLevelsDisp = dispinterface;
  1026.   RulerLevel = interface;
  1027.   RulerLevelDisp = dispinterface;
  1028.   TabStops = interface;
  1029.   TabStopsDisp = dispinterface;
  1030.   TabStop = interface;
  1031.   TabStopDisp = dispinterface;
  1032.   Font = interface;
  1033.   FontDisp = dispinterface;
  1034.   ParagraphFormat = interface;
  1035.   ParagraphFormatDisp = dispinterface;
  1036.   BulletFormat = interface;
  1037.   BulletFormatDisp = dispinterface;
  1038.   TextStyles = interface;
  1039.   TextStylesDisp = dispinterface;
  1040.   TextStyle = interface;
  1041.   TextStyleDisp = dispinterface;
  1042.   TextStyleLevels = interface;
  1043.   TextStyleLevelsDisp = dispinterface;
  1044.   TextStyleLevel = interface;
  1045.   TextStyleLevelDisp = dispinterface;
  1046.   HeaderFooter = interface;
  1047.   HeaderFooterDisp = dispinterface;
  1048.   PPDialogs = interface;
  1049.   PPDialogsDisp = dispinterface;
  1050.   PPAlert = interface;
  1051.   PPAlertDisp = dispinterface;
  1052.   PPDialog = interface;
  1053.   PPDialogDisp = dispinterface;
  1054.   PPTabSheet = interface;
  1055.   PPTabSheetDisp = dispinterface;
  1056.   PPControls = interface;
  1057.   PPControlsDisp = dispinterface;
  1058.   PPTabSheets = interface;
  1059.   PPTabSheetsDisp = dispinterface;
  1060.   PPControl = interface;
  1061.   PPControlDisp = dispinterface;
  1062.   PPPushButton = interface;
  1063.   PPPushButtonDisp = dispinterface;
  1064.   PPToggleButton = interface;
  1065.   PPToggleButtonDisp = dispinterface;
  1066.   PPBitmapButton = interface;
  1067.   PPBitmapButtonDisp = dispinterface;
  1068.   PPListBox = interface;
  1069.   PPListBoxDisp = dispinterface;
  1070.   PPStrings = interface;
  1071.   PPStringsDisp = dispinterface;
  1072.   PPCheckBox = interface;
  1073.   PPCheckBoxDisp = dispinterface;
  1074.   PPRadioCluster = interface;
  1075.   PPRadioClusterDisp = dispinterface;
  1076.   PPStaticText = interface;
  1077.   PPStaticTextDisp = dispinterface;
  1078.   PPEditText = interface;
  1079.   PPEditTextDisp = dispinterface;
  1080.   PPIcon = interface;
  1081.   PPIconDisp = dispinterface;
  1082.   PPBitmap = interface;
  1083.   PPBitmapDisp = dispinterface;
  1084.   PPSpinner = interface;
  1085.   PPSpinnerDisp = dispinterface;
  1086.   PPScrollBar = interface;
  1087.   PPScrollBarDisp = dispinterface;
  1088.   PPGroupBox = interface;
  1089.   PPGroupBoxDisp = dispinterface;
  1090.   PPFrame = interface;
  1091.   PPFrameDisp = dispinterface;
  1092.   PPTabControl = interface;
  1093.   PPTabControlDisp = dispinterface;
  1094.   PPDropDown = interface;
  1095.   PPDropDownDisp = dispinterface;
  1096.   PPDropDownEdit = interface;
  1097.   PPDropDownEditDisp = dispinterface;
  1098.   PPSlideMiniature = interface;
  1099.   PPSlideMiniatureDisp = dispinterface;
  1100.   PPRadioButton = interface;
  1101.   PPRadioButtonDisp = dispinterface;
  1102.   Tags = interface;
  1103.   TagsDisp = dispinterface;
  1104.   FileDialogFileList = interface;
  1105.   FileDialogFileListDisp = dispinterface;
  1106.   FileDialogExtension = interface;
  1107.   FileDialogExtensionDisp = dispinterface;
  1108.   FileDialogExtensionList = interface;
  1109.   FileDialogExtensionListDisp = dispinterface;
  1110.   FileDialog = interface;
  1111.   FileDialogDisp = dispinterface;
  1112.   MouseTracker = interface;
  1113.   MouseDownHandler = interface;
  1114.   OCXExtender = interface;
  1115.   OCXExtenderDisp = dispinterface;
  1116.   OCXExtenderEvents = interface;
  1117.  
  1118. // *********************************************************************//
  1119. // Declaration of CoClasses defined in Type Library                       
  1120. // (NOTE: Here we map each CoClass to its Default Interface)              
  1121. // *********************************************************************//
  1122.   PowerPointApplication = _Application;
  1123.   Global = _Global;
  1124.   PowerPointSlide = _Slide;
  1125.   PowerPointPresentation = _Presentation;
  1126.   OLECtrl = OCXExtender;
  1127.  
  1128.  
  1129. // *********************************************************************//
  1130. // Declaration of structures, unions and aliases.                         
  1131. // *********************************************************************//
  1132.   PPSafeArray1 = ^PSafeArray; {*}
  1133.   POleVariant1 = ^OleVariant; {*}
  1134.   PSingle1 = ^Single; {*}
  1135.  
  1136.  
  1137. // *********************************************************************//
  1138. // Interface: Collection
  1139. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1140. // GUID:      {91493450-5A91-11CF-8700-00AA0060263B}
  1141. // *********************************************************************//
  1142.   Collection = interface(IDispatch)
  1143.     ['{91493450-5A91-11CF-8700-00AA0060263B}']
  1144.     function  Get__NewEnum: IUnknown; safecall;
  1145.     function  _Index(index: SYSINT): OleVariant; safecall;
  1146.     function  Get_Count: Integer; safecall;
  1147.     property _NewEnum: IUnknown read Get__NewEnum;
  1148.     property Count: Integer read Get_Count;
  1149.   end;
  1150.  
  1151. // *********************************************************************//
  1152. // DispIntf:  CollectionDisp
  1153. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1154. // GUID:      {91493450-5A91-11CF-8700-00AA0060263B}
  1155. // *********************************************************************//
  1156.   CollectionDisp = dispinterface
  1157.     ['{91493450-5A91-11CF-8700-00AA0060263B}']
  1158.     property _NewEnum: IUnknown readonly dispid -4;
  1159.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  1160.     property Count: Integer readonly dispid 11;
  1161.   end;
  1162.  
  1163. // *********************************************************************//
  1164. // Interface: _Application
  1165. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1166. // GUID:      {91493442-5A91-11CF-8700-00AA0060263B}
  1167. // *********************************************************************//
  1168.   _Application = interface(IDispatch)
  1169.     ['{91493442-5A91-11CF-8700-00AA0060263B}']
  1170.     function  Get_Presentations: Presentations; safecall;
  1171.     function  Get_Windows: DocumentWindows; safecall;
  1172.     function  Get_Dialogs: PPDialogs; safecall;
  1173.     function  Get_ActiveWindow: DocumentWindow; safecall;
  1174.     function  Get_ActivePresentation: PowerPointPresentation; safecall;
  1175.     function  Get_SlideShowWindows: SlideShowWindows; safecall;
  1176.     function  Get_CommandBars: CommandBars; safecall;
  1177.     function  Get_Path: WideString; safecall;
  1178.     function  Get_Name: WideString; safecall;
  1179.     function  Get_Caption: WideString; safecall;
  1180.     procedure Set_Caption(const Caption: WideString); safecall;
  1181.     function  Get_Assistant: Assistant; safecall;
  1182.     function  Get_FileSearch: FileSearch; safecall;
  1183.     function  Get_FileFind: IFind; safecall;
  1184.     function  Get_Build: WideString; safecall;
  1185.     function  Get_Version: WideString; safecall;
  1186.     function  Get_OperatingSystem: WideString; safecall;
  1187.     function  Get_ActivePrinter: WideString; safecall;
  1188.     function  Get_Creator: Integer; safecall;
  1189.     function  Get_AddIns: AddIns; safecall;
  1190.     function  Get_VBE: VBE; safecall;
  1191.     procedure Help(const HelpFile: WideString; ContextID: SYSINT); safecall;
  1192.     procedure Quit; safecall;
  1193.     function  Run(const MacroName: WideString; var safeArrayOfParams: PSafeArray): OleVariant; safecall;
  1194.     function  FileDialog(Type_: PpFileDialogType): FileDialog; safecall;
  1195.     procedure LaunchSpelling(const pWindow: DocumentWindow); safecall;
  1196.     function  Get_Left: Single; safecall;
  1197.     procedure Set_Left(Left: Single); safecall;
  1198.     function  Get_Top: Single; safecall;
  1199.     procedure Set_Top(Top: Single); safecall;
  1200.     function  Get_Width: Single; safecall;
  1201.     procedure Set_Width(Width: Single); safecall;
  1202.     function  Get_Height: Single; safecall;
  1203.     procedure Set_Height(Height: Single); safecall;
  1204.     function  Get_WindowState: PpWindowState; safecall;
  1205.     procedure Set_WindowState(WindowState: PpWindowState); safecall;
  1206.     function  Get_Visible: MsoTriState; safecall;
  1207.     procedure Set_Visible(Visible: MsoTriState); safecall;
  1208.     function  Get_HWND: Integer; safecall;
  1209.     function  Get_Active: MsoTriState; safecall;
  1210.     procedure Activate; safecall;
  1211.     property Presentations: Presentations read Get_Presentations;
  1212.     property Windows: DocumentWindows read Get_Windows;
  1213.     property Dialogs: PPDialogs read Get_Dialogs;
  1214.     property ActiveWindow: DocumentWindow read Get_ActiveWindow;
  1215.     property ActivePresentation: PowerPointPresentation read Get_ActivePresentation;
  1216.     property SlideShowWindows: SlideShowWindows read Get_SlideShowWindows;
  1217.     property CommandBars: CommandBars read Get_CommandBars;
  1218.     property Path: WideString read Get_Path;
  1219.     property Name: WideString read Get_Name;
  1220.     property Caption: WideString read Get_Caption write Set_Caption;
  1221.     property Assistant: Assistant read Get_Assistant;
  1222.     property FileSearch: FileSearch read Get_FileSearch;
  1223.     property FileFind: IFind read Get_FileFind;
  1224.     property Build: WideString read Get_Build;
  1225.     property Version: WideString read Get_Version;
  1226.     property OperatingSystem: WideString read Get_OperatingSystem;
  1227.     property ActivePrinter: WideString read Get_ActivePrinter;
  1228.     property Creator: Integer read Get_Creator;
  1229.     property AddIns: AddIns read Get_AddIns;
  1230.     property VBE: VBE read Get_VBE;
  1231.     property Left: Single read Get_Left write Set_Left;
  1232.     property Top: Single read Get_Top write Set_Top;
  1233.     property Width: Single read Get_Width write Set_Width;
  1234.     property Height: Single read Get_Height write Set_Height;
  1235.     property WindowState: PpWindowState read Get_WindowState write Set_WindowState;
  1236.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  1237.     property HWND: Integer read Get_HWND;
  1238.     property Active: MsoTriState read Get_Active;
  1239.   end;
  1240.  
  1241. // *********************************************************************//
  1242. // DispIntf:  _ApplicationDisp
  1243. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1244. // GUID:      {91493442-5A91-11CF-8700-00AA0060263B}
  1245. // *********************************************************************//
  1246.   _ApplicationDisp = dispinterface
  1247.     ['{91493442-5A91-11CF-8700-00AA0060263B}']
  1248.     property Presentations: Presentations readonly dispid 2001;
  1249.     property Windows: DocumentWindows readonly dispid 2002;
  1250.     property Dialogs: PPDialogs readonly dispid 2003;
  1251.     property ActiveWindow: DocumentWindow readonly dispid 2004;
  1252.     property ActivePresentation: PowerPointPresentation readonly dispid 2005;
  1253.     property SlideShowWindows: SlideShowWindows readonly dispid 2006;
  1254.     property CommandBars: CommandBars readonly dispid 2007;
  1255.     property Path: WideString readonly dispid 2008;
  1256.     property Name: WideString readonly dispid 0;
  1257.     property Caption: WideString dispid 2009;
  1258.     property Assistant: Assistant readonly dispid 2010;
  1259.     property FileSearch: FileSearch readonly dispid 2011;
  1260.     property FileFind: IFind readonly dispid 2012;
  1261.     property Build: WideString readonly dispid 2013;
  1262.     property Version: WideString readonly dispid 2014;
  1263.     property OperatingSystem: WideString readonly dispid 2015;
  1264.     property ActivePrinter: WideString readonly dispid 2016;
  1265.     property Creator: Integer readonly dispid 2017;
  1266.     property AddIns: AddIns readonly dispid 2018;
  1267.     property VBE: VBE readonly dispid 2019;
  1268.     procedure Help(const HelpFile: WideString; ContextID: SYSINT); dispid 2020;
  1269.     procedure Quit; dispid 2021;
  1270.     function  Run(const MacroName: WideString; var safeArrayOfParams: {??PSafeArray} OleVariant): OleVariant; dispid 2022;
  1271.     function  FileDialog(Type_: PpFileDialogType): FileDialog; dispid 2023;
  1272.     procedure LaunchSpelling(const pWindow: DocumentWindow); dispid 2024;
  1273.     property Left: Single dispid 2025;
  1274.     property Top: Single dispid 2026;
  1275.     property Width: Single dispid 2027;
  1276.     property Height: Single dispid 2028;
  1277.     property WindowState: PpWindowState dispid 2029;
  1278.     property Visible: MsoTriState dispid 2030;
  1279.     property HWND: Integer readonly dispid 2031;
  1280.     property Active: MsoTriState readonly dispid 2032;
  1281.     procedure Activate; dispid 2033;
  1282.   end;
  1283.  
  1284. // *********************************************************************//
  1285. // Interface: _Global
  1286. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1287. // GUID:      {91493451-5A91-11CF-8700-00AA0060263B}
  1288. // *********************************************************************//
  1289.   _Global = interface(IDispatch)
  1290.     ['{91493451-5A91-11CF-8700-00AA0060263B}']
  1291.     function  Get_ActivePresentation: PowerPointPresentation; safecall;
  1292.     function  Get_ActiveWindow: DocumentWindow; safecall;
  1293.     function  Get_AddIns: AddIns; safecall;
  1294.     function  Get_Application: IDispatch; safecall;
  1295.     function  Get_Assistant: Assistant; safecall;
  1296.     function  Get_Dialogs: PPDialogs; safecall;
  1297.     function  Get_Presentations: Presentations; safecall;
  1298.     function  Get_SlideShowWindows: SlideShowWindows; safecall;
  1299.     function  Get_Windows: DocumentWindows; safecall;
  1300.     function  Get_CommandBars: CommandBars; safecall;
  1301.     property ActivePresentation: PowerPointPresentation read Get_ActivePresentation;
  1302.     property ActiveWindow: DocumentWindow read Get_ActiveWindow;
  1303.     property AddIns: AddIns read Get_AddIns;
  1304.     property Application: IDispatch read Get_Application;
  1305.     property Assistant: Assistant read Get_Assistant;
  1306.     property Dialogs: PPDialogs read Get_Dialogs;
  1307.     property Presentations: Presentations read Get_Presentations;
  1308.     property SlideShowWindows: SlideShowWindows read Get_SlideShowWindows;
  1309.     property Windows: DocumentWindows read Get_Windows;
  1310.     property CommandBars: CommandBars read Get_CommandBars;
  1311.   end;
  1312.  
  1313. // *********************************************************************//
  1314. // DispIntf:  _GlobalDisp
  1315. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1316. // GUID:      {91493451-5A91-11CF-8700-00AA0060263B}
  1317. // *********************************************************************//
  1318.   _GlobalDisp = dispinterface
  1319.     ['{91493451-5A91-11CF-8700-00AA0060263B}']
  1320.     property ActivePresentation: PowerPointPresentation readonly dispid 2001;
  1321.     property ActiveWindow: DocumentWindow readonly dispid 2002;
  1322.     property AddIns: AddIns readonly dispid 2003;
  1323.     property Application: IDispatch readonly dispid 2004;
  1324.     property Assistant: Assistant readonly dispid 2005;
  1325.     property Dialogs: PPDialogs readonly dispid 2006;
  1326.     property Presentations: Presentations readonly dispid 2007;
  1327.     property SlideShowWindows: SlideShowWindows readonly dispid 2008;
  1328.     property Windows: DocumentWindows readonly dispid 2009;
  1329.     property CommandBars: CommandBars readonly dispid 2010;
  1330.   end;
  1331.  
  1332. // *********************************************************************//
  1333. // Interface: ColorFormat
  1334. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1335. // GUID:      {91493452-5A91-11CF-8700-00AA0060263B}
  1336. // *********************************************************************//
  1337.   ColorFormat = interface(IDispatch)
  1338.     ['{91493452-5A91-11CF-8700-00AA0060263B}']
  1339.     function  Get_Application: IDispatch; safecall;
  1340.     function  Get_Creator: Integer; safecall;
  1341.     function  Get_Parent: IDispatch; safecall;
  1342.     function  Get_RGB: MsoRGBType; safecall;
  1343.     procedure Set_RGB(RGB: MsoRGBType); safecall;
  1344.     function  Get_Type_: MsoColorType; safecall;
  1345.     function  Get_SchemeColor: PpColorSchemeIndex; safecall;
  1346.     procedure Set_SchemeColor(SchemeColor: PpColorSchemeIndex); safecall;
  1347.     property Application: IDispatch read Get_Application;
  1348.     property Creator: Integer read Get_Creator;
  1349.     property Parent: IDispatch read Get_Parent;
  1350.     property RGB: MsoRGBType read Get_RGB write Set_RGB;
  1351.     property Type_: MsoColorType read Get_Type_;
  1352.     property SchemeColor: PpColorSchemeIndex read Get_SchemeColor write Set_SchemeColor;
  1353.   end;
  1354.  
  1355. // *********************************************************************//
  1356. // DispIntf:  ColorFormatDisp
  1357. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1358. // GUID:      {91493452-5A91-11CF-8700-00AA0060263B}
  1359. // *********************************************************************//
  1360.   ColorFormatDisp = dispinterface
  1361.     ['{91493452-5A91-11CF-8700-00AA0060263B}']
  1362.     property Application: IDispatch readonly dispid 2001;
  1363.     property Creator: Integer readonly dispid 2002;
  1364.     property Parent: IDispatch readonly dispid 1;
  1365.     property RGB: MsoRGBType dispid 0;
  1366.     property Type_: MsoColorType readonly dispid 101;
  1367.     property SchemeColor: PpColorSchemeIndex dispid 2003;
  1368.   end;
  1369.  
  1370. // *********************************************************************//
  1371. // Interface: SlideShowWindow
  1372. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1373. // GUID:      {91493453-5A91-11CF-8700-00AA0060263B}
  1374. // *********************************************************************//
  1375.   SlideShowWindow = interface(IDispatch)
  1376.     ['{91493453-5A91-11CF-8700-00AA0060263B}']
  1377.     function  Get_Application: IDispatch; safecall;
  1378.     function  Get_Parent: IDispatch; safecall;
  1379.     function  Get_View: SlideShowView; safecall;
  1380.     function  Get_Presentation: PowerPointPresentation; safecall;
  1381.     function  Get_IsFullScreen: MsoTriState; safecall;
  1382.     function  Get_Left: Single; safecall;
  1383.     procedure Set_Left(Left: Single); safecall;
  1384.     function  Get_Top: Single; safecall;
  1385.     procedure Set_Top(Top: Single); safecall;
  1386.     function  Get_Width: Single; safecall;
  1387.     procedure Set_Width(Width: Single); safecall;
  1388.     function  Get_Height: Single; safecall;
  1389.     procedure Set_Height(Height: Single); safecall;
  1390.     function  Get_HWND: Integer; safecall;
  1391.     function  Get_Active: MsoTriState; safecall;
  1392.     procedure Activate; safecall;
  1393.     property Application: IDispatch read Get_Application;
  1394.     property Parent: IDispatch read Get_Parent;
  1395.     property View: SlideShowView read Get_View;
  1396.     property Presentation: PowerPointPresentation read Get_Presentation;
  1397.     property IsFullScreen: MsoTriState read Get_IsFullScreen;
  1398.     property Left: Single read Get_Left write Set_Left;
  1399.     property Top: Single read Get_Top write Set_Top;
  1400.     property Width: Single read Get_Width write Set_Width;
  1401.     property Height: Single read Get_Height write Set_Height;
  1402.     property HWND: Integer read Get_HWND;
  1403.     property Active: MsoTriState read Get_Active;
  1404.   end;
  1405.  
  1406. // *********************************************************************//
  1407. // DispIntf:  SlideShowWindowDisp
  1408. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1409. // GUID:      {91493453-5A91-11CF-8700-00AA0060263B}
  1410. // *********************************************************************//
  1411.   SlideShowWindowDisp = dispinterface
  1412.     ['{91493453-5A91-11CF-8700-00AA0060263B}']
  1413.     property Application: IDispatch readonly dispid 2001;
  1414.     property Parent: IDispatch readonly dispid 2002;
  1415.     property View: SlideShowView readonly dispid 2003;
  1416.     property Presentation: PowerPointPresentation readonly dispid 2004;
  1417.     property IsFullScreen: MsoTriState readonly dispid 2005;
  1418.     property Left: Single dispid 2006;
  1419.     property Top: Single dispid 2007;
  1420.     property Width: Single dispid 2008;
  1421.     property Height: Single dispid 2009;
  1422.     property HWND: Integer readonly dispid 2010;
  1423.     property Active: MsoTriState readonly dispid 2011;
  1424.     procedure Activate; dispid 2012;
  1425.   end;
  1426.  
  1427. // *********************************************************************//
  1428. // Interface: Selection
  1429. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1430. // GUID:      {91493454-5A91-11CF-8700-00AA0060263B}
  1431. // *********************************************************************//
  1432.   Selection = interface(IDispatch)
  1433.     ['{91493454-5A91-11CF-8700-00AA0060263B}']
  1434.     function  Get_Application: IDispatch; safecall;
  1435.     function  Get_Parent: IDispatch; safecall;
  1436.     procedure Cut; safecall;
  1437.     procedure Copy; safecall;
  1438.     procedure Delete; safecall;
  1439.     procedure Unselect; safecall;
  1440.     function  Get_Type_: PpSelectionType; safecall;
  1441.     function  Get_SlideRange: SlideRange; safecall;
  1442.     function  Get_ShapeRange: ShapeRange; safecall;
  1443.     function  Get_TextRange: TextRange; safecall;
  1444.     property Application: IDispatch read Get_Application;
  1445.     property Parent: IDispatch read Get_Parent;
  1446.     property Type_: PpSelectionType read Get_Type_;
  1447.     property SlideRange: SlideRange read Get_SlideRange;
  1448.     property ShapeRange: ShapeRange read Get_ShapeRange;
  1449.     property TextRange: TextRange read Get_TextRange;
  1450.   end;
  1451.  
  1452. // *********************************************************************//
  1453. // DispIntf:  SelectionDisp
  1454. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1455. // GUID:      {91493454-5A91-11CF-8700-00AA0060263B}
  1456. // *********************************************************************//
  1457.   SelectionDisp = dispinterface
  1458.     ['{91493454-5A91-11CF-8700-00AA0060263B}']
  1459.     property Application: IDispatch readonly dispid 2001;
  1460.     property Parent: IDispatch readonly dispid 2002;
  1461.     procedure Cut; dispid 2003;
  1462.     procedure Copy; dispid 2004;
  1463.     procedure Delete; dispid 2005;
  1464.     procedure Unselect; dispid 2006;
  1465.     property Type_: PpSelectionType readonly dispid 2007;
  1466.     property SlideRange: SlideRange readonly dispid 2008;
  1467.     property ShapeRange: ShapeRange readonly dispid 2009;
  1468.     property TextRange: TextRange readonly dispid 2010;
  1469.   end;
  1470.  
  1471. // *********************************************************************//
  1472. // Interface: DocumentWindows
  1473. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1474. // GUID:      {91493455-5A91-11CF-8700-00AA0060263B}
  1475. // *********************************************************************//
  1476.   DocumentWindows = interface(Collection)
  1477.     ['{91493455-5A91-11CF-8700-00AA0060263B}']
  1478.     function  Get_Application: IDispatch; safecall;
  1479.     function  Get_Parent: IDispatch; safecall;
  1480.     function  Item(index: SYSINT): DocumentWindow; safecall;
  1481.     procedure Arrange(arrangeStyle: PpArrangeStyle); safecall;
  1482.     property Application: IDispatch read Get_Application;
  1483.     property Parent: IDispatch read Get_Parent;
  1484.   end;
  1485.  
  1486. // *********************************************************************//
  1487. // DispIntf:  DocumentWindowsDisp
  1488. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1489. // GUID:      {91493455-5A91-11CF-8700-00AA0060263B}
  1490. // *********************************************************************//
  1491.   DocumentWindowsDisp = dispinterface
  1492.     ['{91493455-5A91-11CF-8700-00AA0060263B}']
  1493.     property Application: IDispatch readonly dispid 2001;
  1494.     property Parent: IDispatch readonly dispid 2002;
  1495.     function  Item(index: SYSINT): DocumentWindow; dispid 0;
  1496.     procedure Arrange(arrangeStyle: PpArrangeStyle); dispid 2003;
  1497.     property _NewEnum: IUnknown readonly dispid -4;
  1498.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  1499.     property Count: Integer readonly dispid 11;
  1500.   end;
  1501.  
  1502. // *********************************************************************//
  1503. // Interface: SlideShowWindows
  1504. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1505. // GUID:      {91493456-5A91-11CF-8700-00AA0060263B}
  1506. // *********************************************************************//
  1507.   SlideShowWindows = interface(Collection)
  1508.     ['{91493456-5A91-11CF-8700-00AA0060263B}']
  1509.     function  Get_Application: IDispatch; safecall;
  1510.     function  Get_Parent: IDispatch; safecall;
  1511.     function  Item(index: SYSINT): SlideShowWindow; safecall;
  1512.     property Application: IDispatch read Get_Application;
  1513.     property Parent: IDispatch read Get_Parent;
  1514.   end;
  1515.  
  1516. // *********************************************************************//
  1517. // DispIntf:  SlideShowWindowsDisp
  1518. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1519. // GUID:      {91493456-5A91-11CF-8700-00AA0060263B}
  1520. // *********************************************************************//
  1521.   SlideShowWindowsDisp = dispinterface
  1522.     ['{91493456-5A91-11CF-8700-00AA0060263B}']
  1523.     property Application: IDispatch readonly dispid 2001;
  1524.     property Parent: IDispatch readonly dispid 2002;
  1525.     function  Item(index: SYSINT): SlideShowWindow; dispid 0;
  1526.     property _NewEnum: IUnknown readonly dispid -4;
  1527.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  1528.     property Count: Integer readonly dispid 11;
  1529.   end;
  1530.  
  1531. // *********************************************************************//
  1532. // Interface: DocumentWindow
  1533. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1534. // GUID:      {91493457-5A91-11CF-8700-00AA0060263B}
  1535. // *********************************************************************//
  1536.   DocumentWindow = interface(IDispatch)
  1537.     ['{91493457-5A91-11CF-8700-00AA0060263B}']
  1538.     function  Get_Application: IDispatch; safecall;
  1539.     function  Get_Parent: IDispatch; safecall;
  1540.     function  Get_Selection: Selection; safecall;
  1541.     function  Get_View: View; safecall;
  1542.     function  Get_Presentation: PowerPointPresentation; safecall;
  1543.     function  Get_ViewType: PpViewType; safecall;
  1544.     procedure Set_ViewType(ViewType: PpViewType); safecall;
  1545.     function  Get_BlackAndWhite: MsoTriState; safecall;
  1546.     procedure Set_BlackAndWhite(BlackAndWhite: MsoTriState); safecall;
  1547.     function  Get_Active: MsoTriState; safecall;
  1548.     function  Get_WindowState: PpWindowState; safecall;
  1549.     procedure Set_WindowState(WindowState: PpWindowState); safecall;
  1550.     function  Get_Caption: WideString; safecall;
  1551.     function  Get_Left: Single; safecall;
  1552.     procedure Set_Left(Left: Single); safecall;
  1553.     function  Get_Top: Single; safecall;
  1554.     procedure Set_Top(Top: Single); safecall;
  1555.     function  Get_Width: Single; safecall;
  1556.     procedure Set_Width(Width: Single); safecall;
  1557.     function  Get_Height: Single; safecall;
  1558.     procedure Set_Height(Height: Single); safecall;
  1559.     procedure FitToPage; safecall;
  1560.     procedure Activate; safecall;
  1561.     procedure LargeScroll(Down: SYSINT; Up: SYSINT; ToRight: SYSINT; ToLeft: SYSINT); safecall;
  1562.     procedure SmallScroll(Down: SYSINT; Up: SYSINT; ToRight: SYSINT; ToLeft: SYSINT); safecall;
  1563.     function  NewWindow: DocumentWindow; safecall;
  1564.     procedure Close; safecall;
  1565.     function  Get_HWND: Integer; safecall;
  1566.     property Application: IDispatch read Get_Application;
  1567.     property Parent: IDispatch read Get_Parent;
  1568.     property Selection: Selection read Get_Selection;
  1569.     property View: View read Get_View;
  1570.     property Presentation: PowerPointPresentation read Get_Presentation;
  1571.     property ViewType: PpViewType read Get_ViewType write Set_ViewType;
  1572.     property BlackAndWhite: MsoTriState read Get_BlackAndWhite write Set_BlackAndWhite;
  1573.     property Active: MsoTriState read Get_Active;
  1574.     property WindowState: PpWindowState read Get_WindowState write Set_WindowState;
  1575.     property Caption: WideString read Get_Caption;
  1576.     property Left: Single read Get_Left write Set_Left;
  1577.     property Top: Single read Get_Top write Set_Top;
  1578.     property Width: Single read Get_Width write Set_Width;
  1579.     property Height: Single read Get_Height write Set_Height;
  1580.     property HWND: Integer read Get_HWND;
  1581.   end;
  1582.  
  1583. // *********************************************************************//
  1584. // DispIntf:  DocumentWindowDisp
  1585. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1586. // GUID:      {91493457-5A91-11CF-8700-00AA0060263B}
  1587. // *********************************************************************//
  1588.   DocumentWindowDisp = dispinterface
  1589.     ['{91493457-5A91-11CF-8700-00AA0060263B}']
  1590.     property Application: IDispatch readonly dispid 2001;
  1591.     property Parent: IDispatch readonly dispid 2002;
  1592.     property Selection: Selection readonly dispid 2003;
  1593.     property View: View readonly dispid 2004;
  1594.     property Presentation: PowerPointPresentation readonly dispid 2005;
  1595.     property ViewType: PpViewType dispid 2006;
  1596.     property BlackAndWhite: MsoTriState dispid 2007;
  1597.     property Active: MsoTriState readonly dispid 2008;
  1598.     property WindowState: PpWindowState dispid 2009;
  1599.     property Caption: WideString readonly dispid 0;
  1600.     property Left: Single dispid 2010;
  1601.     property Top: Single dispid 2011;
  1602.     property Width: Single dispid 2012;
  1603.     property Height: Single dispid 2013;
  1604.     procedure FitToPage; dispid 2014;
  1605.     procedure Activate; dispid 2015;
  1606.     procedure LargeScroll(Down: SYSINT; Up: SYSINT; ToRight: SYSINT; ToLeft: SYSINT); dispid 2016;
  1607.     procedure SmallScroll(Down: SYSINT; Up: SYSINT; ToRight: SYSINT; ToLeft: SYSINT); dispid 2017;
  1608.     function  NewWindow: DocumentWindow; dispid 2018;
  1609.     procedure Close; dispid 2019;
  1610.     property HWND: Integer readonly dispid 2020;
  1611.   end;
  1612.  
  1613. // *********************************************************************//
  1614. // Interface: View
  1615. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1616. // GUID:      {91493458-5A91-11CF-8700-00AA0060263B}
  1617. // *********************************************************************//
  1618.   View = interface(IDispatch)
  1619.     ['{91493458-5A91-11CF-8700-00AA0060263B}']
  1620.     function  Get_Application: IDispatch; safecall;
  1621.     function  Get_Parent: IDispatch; safecall;
  1622.     function  Get_Type_: PpViewType; safecall;
  1623.     function  Get_Zoom: SYSINT; safecall;
  1624.     procedure Set_Zoom(Zoom: SYSINT); safecall;
  1625.     procedure Paste; safecall;
  1626.     function  Get_Slide: IDispatch; safecall;
  1627.     procedure Set_Slide(const Slide: IDispatch); safecall;
  1628.     procedure GotoSlide(index: SYSINT); safecall;
  1629.     function  Get_DisplaySlideMiniature: MsoTriState; safecall;
  1630.     procedure Set_DisplaySlideMiniature(DisplaySlideMiniature: MsoTriState); safecall;
  1631.     function  Get_ZoomToFit: MsoTriState; safecall;
  1632.     procedure Set_ZoomToFit(ZoomToFit: MsoTriState); safecall;
  1633.     property Application: IDispatch read Get_Application;
  1634.     property Parent: IDispatch read Get_Parent;
  1635.     property Type_: PpViewType read Get_Type_;
  1636.     property Zoom: SYSINT read Get_Zoom write Set_Zoom;
  1637.     property Slide: IDispatch read Get_Slide write Set_Slide;
  1638.     property DisplaySlideMiniature: MsoTriState read Get_DisplaySlideMiniature write Set_DisplaySlideMiniature;
  1639.     property ZoomToFit: MsoTriState read Get_ZoomToFit write Set_ZoomToFit;
  1640.   end;
  1641.  
  1642. // *********************************************************************//
  1643. // DispIntf:  ViewDisp
  1644. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1645. // GUID:      {91493458-5A91-11CF-8700-00AA0060263B}
  1646. // *********************************************************************//
  1647.   ViewDisp = dispinterface
  1648.     ['{91493458-5A91-11CF-8700-00AA0060263B}']
  1649.     property Application: IDispatch readonly dispid 2001;
  1650.     property Parent: IDispatch readonly dispid 2002;
  1651.     property Type_: PpViewType readonly dispid 2003;
  1652.     property Zoom: SYSINT dispid 2004;
  1653.     procedure Paste; dispid 2005;
  1654.     property Slide: IDispatch dispid 2006;
  1655.     procedure GotoSlide(index: SYSINT); dispid 2007;
  1656.     property DisplaySlideMiniature: MsoTriState dispid 2008;
  1657.     property ZoomToFit: MsoTriState dispid 2009;
  1658.   end;
  1659.  
  1660. // *********************************************************************//
  1661. // Interface: SlideShowView
  1662. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1663. // GUID:      {91493459-5A91-11CF-8700-00AA0060263B}
  1664. // *********************************************************************//
  1665.   SlideShowView = interface(IDispatch)
  1666.     ['{91493459-5A91-11CF-8700-00AA0060263B}']
  1667.     function  Get_Application: IDispatch; safecall;
  1668.     function  Get_Parent: IDispatch; safecall;
  1669.     function  Get_Zoom: SYSINT; safecall;
  1670.     function  Get_Slide: PowerPointSlide; safecall;
  1671.     function  Get_PointerType: PpSlideShowPointerType; safecall;
  1672.     procedure Set_PointerType(PointerType: PpSlideShowPointerType); safecall;
  1673.     function  Get_State: PpSlideShowState; safecall;
  1674.     procedure Set_State(State: PpSlideShowState); safecall;
  1675.     function  Get_AcceleratorsEnabled: MsoTriState; safecall;
  1676.     procedure Set_AcceleratorsEnabled(AcceleratorsEnabled: MsoTriState); safecall;
  1677.     function  Get_PresentationElapsedTime: Single; safecall;
  1678.     function  Get_SlideElapsedTime: Single; safecall;
  1679.     procedure Set_SlideElapsedTime(SlideElapsedTime: Single); safecall;
  1680.     function  Get_LastSlideViewed: PowerPointSlide; safecall;
  1681.     function  Get_AdvanceMode: PpSlideShowAdvanceMode; safecall;
  1682.     function  Get_PointerColor: ColorFormat; safecall;
  1683.     function  Get_IsNamedShow: MsoTriState; safecall;
  1684.     function  Get_SlideShowName: WideString; safecall;
  1685.     procedure DrawLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single); safecall;
  1686.     procedure EraseDrawing; safecall;
  1687.     procedure First; safecall;
  1688.     procedure Last; safecall;
  1689.     procedure Next; safecall;
  1690.     procedure Previous; safecall;
  1691.     procedure GotoSlide(index: SYSINT; ResetSlide: MsoTriState); safecall;
  1692.     procedure GotoNamedShow(const SlideShowName: WideString); safecall;
  1693.     procedure EndNamedShow; safecall;
  1694.     procedure ResetSlideTime; safecall;
  1695.     procedure Exit; safecall;
  1696.     procedure InstallTracker(const pTracker: MouseTracker; Presenter: MsoTriState); safecall;
  1697.     function  Get_CurrentShowPosition: SYSINT; safecall;
  1698.     property Application: IDispatch read Get_Application;
  1699.     property Parent: IDispatch read Get_Parent;
  1700.     property Zoom: SYSINT read Get_Zoom;
  1701.     property Slide: PowerPointSlide read Get_Slide;
  1702.     property PointerType: PpSlideShowPointerType read Get_PointerType write Set_PointerType;
  1703.     property State: PpSlideShowState read Get_State write Set_State;
  1704.     property AcceleratorsEnabled: MsoTriState read Get_AcceleratorsEnabled write Set_AcceleratorsEnabled;
  1705.     property PresentationElapsedTime: Single read Get_PresentationElapsedTime;
  1706.     property SlideElapsedTime: Single read Get_SlideElapsedTime write Set_SlideElapsedTime;
  1707.     property LastSlideViewed: PowerPointSlide read Get_LastSlideViewed;
  1708.     property AdvanceMode: PpSlideShowAdvanceMode read Get_AdvanceMode;
  1709.     property PointerColor: ColorFormat read Get_PointerColor;
  1710.     property IsNamedShow: MsoTriState read Get_IsNamedShow;
  1711.     property SlideShowName: WideString read Get_SlideShowName;
  1712.     property CurrentShowPosition: SYSINT read Get_CurrentShowPosition;
  1713.   end;
  1714.  
  1715. // *********************************************************************//
  1716. // DispIntf:  SlideShowViewDisp
  1717. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1718. // GUID:      {91493459-5A91-11CF-8700-00AA0060263B}
  1719. // *********************************************************************//
  1720.   SlideShowViewDisp = dispinterface
  1721.     ['{91493459-5A91-11CF-8700-00AA0060263B}']
  1722.     property Application: IDispatch readonly dispid 2001;
  1723.     property Parent: IDispatch readonly dispid 2002;
  1724.     property Zoom: SYSINT readonly dispid 2003;
  1725.     property Slide: PowerPointSlide readonly dispid 2004;
  1726.     property PointerType: PpSlideShowPointerType dispid 2005;
  1727.     property State: PpSlideShowState dispid 2006;
  1728.     property AcceleratorsEnabled: MsoTriState dispid 2007;
  1729.     property PresentationElapsedTime: Single readonly dispid 2008;
  1730.     property SlideElapsedTime: Single dispid 2009;
  1731.     property LastSlideViewed: PowerPointSlide readonly dispid 2010;
  1732.     property AdvanceMode: PpSlideShowAdvanceMode readonly dispid 2011;
  1733.     property PointerColor: ColorFormat readonly dispid 2012;
  1734.     property IsNamedShow: MsoTriState readonly dispid 2013;
  1735.     property SlideShowName: WideString readonly dispid 2014;
  1736.     procedure DrawLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single); dispid 2015;
  1737.     procedure EraseDrawing; dispid 2016;
  1738.     procedure First; dispid 2017;
  1739.     procedure Last; dispid 2018;
  1740.     procedure Next; dispid 2019;
  1741.     procedure Previous; dispid 2020;
  1742.     procedure GotoSlide(index: SYSINT; ResetSlide: MsoTriState); dispid 2021;
  1743.     procedure GotoNamedShow(const SlideShowName: WideString); dispid 2022;
  1744.     procedure EndNamedShow; dispid 2023;
  1745.     procedure ResetSlideTime; dispid 2024;
  1746.     procedure Exit; dispid 2025;
  1747.     procedure InstallTracker(const pTracker: MouseTracker; Presenter: MsoTriState); dispid 2026;
  1748.     property CurrentShowPosition: SYSINT readonly dispid 2027;
  1749.   end;
  1750.  
  1751. // *********************************************************************//
  1752. // Interface: SlideShowSettings
  1753. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1754. // GUID:      {9149345A-5A91-11CF-8700-00AA0060263B}
  1755. // *********************************************************************//
  1756.   SlideShowSettings = interface(IDispatch)
  1757.     ['{9149345A-5A91-11CF-8700-00AA0060263B}']
  1758.     function  Get_Application: IDispatch; safecall;
  1759.     function  Get_Parent: IDispatch; safecall;
  1760.     function  Get_PointerColor: ColorFormat; safecall;
  1761.     function  Get_NamedSlideShows: NamedSlideShows; safecall;
  1762.     function  Get_StartingSlide: SYSINT; safecall;
  1763.     procedure Set_StartingSlide(StartingSlide: SYSINT); safecall;
  1764.     function  Get_EndingSlide: SYSINT; safecall;
  1765.     procedure Set_EndingSlide(EndingSlide: SYSINT); safecall;
  1766.     function  Get_AdvanceMode: PpSlideShowAdvanceMode; safecall;
  1767.     procedure Set_AdvanceMode(AdvanceMode: PpSlideShowAdvanceMode); safecall;
  1768.     function  Run: SlideShowWindow; safecall;
  1769.     function  Get_LoopUntilStopped: MsoTriState; safecall;
  1770.     procedure Set_LoopUntilStopped(LoopUntilStopped: MsoTriState); safecall;
  1771.     function  Get_ShowType: PpSlideShowType; safecall;
  1772.     procedure Set_ShowType(ShowType: PpSlideShowType); safecall;
  1773.     function  Get_ShowWithNarration: MsoTriState; safecall;
  1774.     procedure Set_ShowWithNarration(ShowWithNarration: MsoTriState); safecall;
  1775.     function  Get_ShowWithAnimation: MsoTriState; safecall;
  1776.     procedure Set_ShowWithAnimation(ShowWithAnimation: MsoTriState); safecall;
  1777.     function  Get_SlideShowName: WideString; safecall;
  1778.     procedure Set_SlideShowName(const SlideShowName: WideString); safecall;
  1779.     function  Get_RangeType: PpSlideShowRangeType; safecall;
  1780.     procedure Set_RangeType(RangeType: PpSlideShowRangeType); safecall;
  1781.     property Application: IDispatch read Get_Application;
  1782.     property Parent: IDispatch read Get_Parent;
  1783.     property PointerColor: ColorFormat read Get_PointerColor;
  1784.     property NamedSlideShows: NamedSlideShows read Get_NamedSlideShows;
  1785.     property StartingSlide: SYSINT read Get_StartingSlide write Set_StartingSlide;
  1786.     property EndingSlide: SYSINT read Get_EndingSlide write Set_EndingSlide;
  1787.     property AdvanceMode: PpSlideShowAdvanceMode read Get_AdvanceMode write Set_AdvanceMode;
  1788.     property LoopUntilStopped: MsoTriState read Get_LoopUntilStopped write Set_LoopUntilStopped;
  1789.     property ShowType: PpSlideShowType read Get_ShowType write Set_ShowType;
  1790.     property ShowWithNarration: MsoTriState read Get_ShowWithNarration write Set_ShowWithNarration;
  1791.     property ShowWithAnimation: MsoTriState read Get_ShowWithAnimation write Set_ShowWithAnimation;
  1792.     property SlideShowName: WideString read Get_SlideShowName write Set_SlideShowName;
  1793.     property RangeType: PpSlideShowRangeType read Get_RangeType write Set_RangeType;
  1794.   end;
  1795.  
  1796. // *********************************************************************//
  1797. // DispIntf:  SlideShowSettingsDisp
  1798. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1799. // GUID:      {9149345A-5A91-11CF-8700-00AA0060263B}
  1800. // *********************************************************************//
  1801.   SlideShowSettingsDisp = dispinterface
  1802.     ['{9149345A-5A91-11CF-8700-00AA0060263B}']
  1803.     property Application: IDispatch readonly dispid 2001;
  1804.     property Parent: IDispatch readonly dispid 2002;
  1805.     property PointerColor: ColorFormat readonly dispid 2003;
  1806.     property NamedSlideShows: NamedSlideShows readonly dispid 2004;
  1807.     property StartingSlide: SYSINT dispid 2005;
  1808.     property EndingSlide: SYSINT dispid 2006;
  1809.     property AdvanceMode: PpSlideShowAdvanceMode dispid 2007;
  1810.     function  Run: SlideShowWindow; dispid 2008;
  1811.     property LoopUntilStopped: MsoTriState dispid 2009;
  1812.     property ShowType: PpSlideShowType dispid 2010;
  1813.     property ShowWithNarration: MsoTriState dispid 2011;
  1814.     property ShowWithAnimation: MsoTriState dispid 2012;
  1815.     property SlideShowName: WideString dispid 2013;
  1816.     property RangeType: PpSlideShowRangeType dispid 2014;
  1817.   end;
  1818.  
  1819. // *********************************************************************//
  1820. // Interface: NamedSlideShows
  1821. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1822. // GUID:      {9149345B-5A91-11CF-8700-00AA0060263B}
  1823. // *********************************************************************//
  1824.   NamedSlideShows = interface(Collection)
  1825.     ['{9149345B-5A91-11CF-8700-00AA0060263B}']
  1826.     function  Get_Application: IDispatch; safecall;
  1827.     function  Get_Parent: IDispatch; safecall;
  1828.     function  Item(index: OleVariant): NamedSlideShow; safecall;
  1829.     function  Add(const Name: WideString; safeArrayOfSlideIDs: OleVariant): NamedSlideShow; safecall;
  1830.     property Application: IDispatch read Get_Application;
  1831.     property Parent: IDispatch read Get_Parent;
  1832.   end;
  1833.  
  1834. // *********************************************************************//
  1835. // DispIntf:  NamedSlideShowsDisp
  1836. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1837. // GUID:      {9149345B-5A91-11CF-8700-00AA0060263B}
  1838. // *********************************************************************//
  1839.   NamedSlideShowsDisp = dispinterface
  1840.     ['{9149345B-5A91-11CF-8700-00AA0060263B}']
  1841.     property Application: IDispatch readonly dispid 2001;
  1842.     property Parent: IDispatch readonly dispid 2002;
  1843.     function  Item(index: OleVariant): NamedSlideShow; dispid 0;
  1844.     function  Add(const Name: WideString; safeArrayOfSlideIDs: OleVariant): NamedSlideShow; dispid 2003;
  1845.     property _NewEnum: IUnknown readonly dispid -4;
  1846.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  1847.     property Count: Integer readonly dispid 11;
  1848.   end;
  1849.  
  1850. // *********************************************************************//
  1851. // Interface: NamedSlideShow
  1852. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1853. // GUID:      {9149345C-5A91-11CF-8700-00AA0060263B}
  1854. // *********************************************************************//
  1855.   NamedSlideShow = interface(IDispatch)
  1856.     ['{9149345C-5A91-11CF-8700-00AA0060263B}']
  1857.     function  Get_Application: IDispatch; safecall;
  1858.     function  Get_Parent: IDispatch; safecall;
  1859.     function  Get_Name: WideString; safecall;
  1860.     procedure Delete; safecall;
  1861.     function  Get_SlideIDs: OleVariant; safecall;
  1862.     function  Get_Count: Integer; safecall;
  1863.     property Application: IDispatch read Get_Application;
  1864.     property Parent: IDispatch read Get_Parent;
  1865.     property Name: WideString read Get_Name;
  1866.     property SlideIDs: OleVariant read Get_SlideIDs;
  1867.     property Count: Integer read Get_Count;
  1868.   end;
  1869.  
  1870. // *********************************************************************//
  1871. // DispIntf:  NamedSlideShowDisp
  1872. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1873. // GUID:      {9149345C-5A91-11CF-8700-00AA0060263B}
  1874. // *********************************************************************//
  1875.   NamedSlideShowDisp = dispinterface
  1876.     ['{9149345C-5A91-11CF-8700-00AA0060263B}']
  1877.     property Application: IDispatch readonly dispid 2001;
  1878.     property Parent: IDispatch readonly dispid 2002;
  1879.     property Name: WideString readonly dispid 2003;
  1880.     procedure Delete; dispid 2004;
  1881.     property SlideIDs: OleVariant readonly dispid 2005;
  1882.     property Count: Integer readonly dispid 2006;
  1883.   end;
  1884.  
  1885. // *********************************************************************//
  1886. // Interface: PrintOptions
  1887. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1888. // GUID:      {9149345D-5A91-11CF-8700-00AA0060263B}
  1889. // *********************************************************************//
  1890.   PrintOptions = interface(IDispatch)
  1891.     ['{9149345D-5A91-11CF-8700-00AA0060263B}']
  1892.     function  Get_Application: IDispatch; safecall;
  1893.     function  Get_PrintColorType: PpPrintColorType; safecall;
  1894.     procedure Set_PrintColorType(PrintColorType: PpPrintColorType); safecall;
  1895.     function  Get_Collate: MsoTriState; safecall;
  1896.     procedure Set_Collate(Collate: MsoTriState); safecall;
  1897.     function  Get_FitToPage: MsoTriState; safecall;
  1898.     procedure Set_FitToPage(FitToPage: MsoTriState); safecall;
  1899.     function  Get_FrameSlides: MsoTriState; safecall;
  1900.     procedure Set_FrameSlides(FrameSlides: MsoTriState); safecall;
  1901.     function  Get_NumberOfCopies: SYSINT; safecall;
  1902.     procedure Set_NumberOfCopies(NumberOfCopies: SYSINT); safecall;
  1903.     function  Get_OutputType: PpPrintOutputType; safecall;
  1904.     procedure Set_OutputType(OutputType: PpPrintOutputType); safecall;
  1905.     function  Get_Parent: IDispatch; safecall;
  1906.     function  Get_PrintHiddenSlides: MsoTriState; safecall;
  1907.     procedure Set_PrintHiddenSlides(PrintHiddenSlides: MsoTriState); safecall;
  1908.     function  Get_PrintInBackground: MsoTriState; safecall;
  1909.     procedure Set_PrintInBackground(PrintInBackground: MsoTriState); safecall;
  1910.     function  Get_RangeType: PpPrintRangeType; safecall;
  1911.     procedure Set_RangeType(RangeType: PpPrintRangeType); safecall;
  1912.     function  Get_Ranges: PrintRanges; safecall;
  1913.     function  Get_PrintFontsAsGraphics: MsoTriState; safecall;
  1914.     procedure Set_PrintFontsAsGraphics(PrintFontsAsGraphics: MsoTriState); safecall;
  1915.     function  Get_SlideShowName: WideString; safecall;
  1916.     procedure Set_SlideShowName(const SlideShowName: WideString); safecall;
  1917.     function  Get_ActivePrinter: WideString; safecall;
  1918.     procedure Set_ActivePrinter(const ActivePrinter: WideString); safecall;
  1919.     property Application: IDispatch read Get_Application;
  1920.     property PrintColorType: PpPrintColorType read Get_PrintColorType write Set_PrintColorType;
  1921.     property Collate: MsoTriState read Get_Collate write Set_Collate;
  1922.     property FitToPage: MsoTriState read Get_FitToPage write Set_FitToPage;
  1923.     property FrameSlides: MsoTriState read Get_FrameSlides write Set_FrameSlides;
  1924.     property NumberOfCopies: SYSINT read Get_NumberOfCopies write Set_NumberOfCopies;
  1925.     property OutputType: PpPrintOutputType read Get_OutputType write Set_OutputType;
  1926.     property Parent: IDispatch read Get_Parent;
  1927.     property PrintHiddenSlides: MsoTriState read Get_PrintHiddenSlides write Set_PrintHiddenSlides;
  1928.     property PrintInBackground: MsoTriState read Get_PrintInBackground write Set_PrintInBackground;
  1929.     property RangeType: PpPrintRangeType read Get_RangeType write Set_RangeType;
  1930.     property Ranges: PrintRanges read Get_Ranges;
  1931.     property PrintFontsAsGraphics: MsoTriState read Get_PrintFontsAsGraphics write Set_PrintFontsAsGraphics;
  1932.     property SlideShowName: WideString read Get_SlideShowName write Set_SlideShowName;
  1933.     property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
  1934.   end;
  1935.  
  1936. // *********************************************************************//
  1937. // DispIntf:  PrintOptionsDisp
  1938. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1939. // GUID:      {9149345D-5A91-11CF-8700-00AA0060263B}
  1940. // *********************************************************************//
  1941.   PrintOptionsDisp = dispinterface
  1942.     ['{9149345D-5A91-11CF-8700-00AA0060263B}']
  1943.     property Application: IDispatch readonly dispid 2001;
  1944.     property PrintColorType: PpPrintColorType dispid 2002;
  1945.     property Collate: MsoTriState dispid 2003;
  1946.     property FitToPage: MsoTriState dispid 2004;
  1947.     property FrameSlides: MsoTriState dispid 2005;
  1948.     property NumberOfCopies: SYSINT dispid 2006;
  1949.     property OutputType: PpPrintOutputType dispid 2007;
  1950.     property Parent: IDispatch readonly dispid 2008;
  1951.     property PrintHiddenSlides: MsoTriState dispid 2009;
  1952.     property PrintInBackground: MsoTriState dispid 2010;
  1953.     property RangeType: PpPrintRangeType dispid 2011;
  1954.     property Ranges: PrintRanges readonly dispid 2012;
  1955.     property PrintFontsAsGraphics: MsoTriState dispid 2013;
  1956.     property SlideShowName: WideString dispid 2014;
  1957.     property ActivePrinter: WideString dispid 2015;
  1958.   end;
  1959.  
  1960. // *********************************************************************//
  1961. // Interface: PrintRanges
  1962. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1963. // GUID:      {9149345E-5A91-11CF-8700-00AA0060263B}
  1964. // *********************************************************************//
  1965.   PrintRanges = interface(Collection)
  1966.     ['{9149345E-5A91-11CF-8700-00AA0060263B}']
  1967.     function  Add(Start: SYSINT; End_: SYSINT): PrintRange; safecall;
  1968.     function  Get_Application: IDispatch; safecall;
  1969.     procedure ClearAll; safecall;
  1970.     function  Item(index: SYSINT): PrintRange; safecall;
  1971.     function  Get_Parent: IDispatch; safecall;
  1972.     property Application: IDispatch read Get_Application;
  1973.     property Parent: IDispatch read Get_Parent;
  1974.   end;
  1975.  
  1976. // *********************************************************************//
  1977. // DispIntf:  PrintRangesDisp
  1978. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1979. // GUID:      {9149345E-5A91-11CF-8700-00AA0060263B}
  1980. // *********************************************************************//
  1981.   PrintRangesDisp = dispinterface
  1982.     ['{9149345E-5A91-11CF-8700-00AA0060263B}']
  1983.     function  Add(Start: SYSINT; End_: SYSINT): PrintRange; dispid 2001;
  1984.     property Application: IDispatch readonly dispid 2002;
  1985.     procedure ClearAll; dispid 2003;
  1986.     function  Item(index: SYSINT): PrintRange; dispid 0;
  1987.     property Parent: IDispatch readonly dispid 2004;
  1988.     property _NewEnum: IUnknown readonly dispid -4;
  1989.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  1990.     property Count: Integer readonly dispid 11;
  1991.   end;
  1992.  
  1993. // *********************************************************************//
  1994. // Interface: PrintRange
  1995. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1996. // GUID:      {9149345F-5A91-11CF-8700-00AA0060263B}
  1997. // *********************************************************************//
  1998.   PrintRange = interface(IDispatch)
  1999.     ['{9149345F-5A91-11CF-8700-00AA0060263B}']
  2000.     function  Get_Application: IDispatch; safecall;
  2001.     function  Get_Parent: IDispatch; safecall;
  2002.     function  Get_Start: SYSINT; safecall;
  2003.     function  Get_End_: SYSINT; safecall;
  2004.     procedure Delete; safecall;
  2005.     property Application: IDispatch read Get_Application;
  2006.     property Parent: IDispatch read Get_Parent;
  2007.     property Start: SYSINT read Get_Start;
  2008.     property End_: SYSINT read Get_End_;
  2009.   end;
  2010.  
  2011. // *********************************************************************//
  2012. // DispIntf:  PrintRangeDisp
  2013. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2014. // GUID:      {9149345F-5A91-11CF-8700-00AA0060263B}
  2015. // *********************************************************************//
  2016.   PrintRangeDisp = dispinterface
  2017.     ['{9149345F-5A91-11CF-8700-00AA0060263B}']
  2018.     property Application: IDispatch readonly dispid 2001;
  2019.     property Parent: IDispatch readonly dispid 2002;
  2020.     property Start: SYSINT readonly dispid 2003;
  2021.     property End_: SYSINT readonly dispid 2004;
  2022.     procedure Delete; dispid 2005;
  2023.   end;
  2024.  
  2025. // *********************************************************************//
  2026. // Interface: AddIns
  2027. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2028. // GUID:      {91493460-5A91-11CF-8700-00AA0060263B}
  2029. // *********************************************************************//
  2030.   AddIns = interface(Collection)
  2031.     ['{91493460-5A91-11CF-8700-00AA0060263B}']
  2032.     function  Get_Application: IDispatch; safecall;
  2033.     function  Get_Parent: IDispatch; safecall;
  2034.     function  Item(var index: OleVariant): AddIn; safecall;
  2035.     function  Add(const FileName: WideString): AddIn; safecall;
  2036.     procedure Remove(var index: OleVariant); safecall;
  2037.     property Application: IDispatch read Get_Application;
  2038.     property Parent: IDispatch read Get_Parent;
  2039.   end;
  2040.  
  2041. // *********************************************************************//
  2042. // DispIntf:  AddInsDisp
  2043. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2044. // GUID:      {91493460-5A91-11CF-8700-00AA0060263B}
  2045. // *********************************************************************//
  2046.   AddInsDisp = dispinterface
  2047.     ['{91493460-5A91-11CF-8700-00AA0060263B}']
  2048.     property Application: IDispatch readonly dispid 2001;
  2049.     property Parent: IDispatch readonly dispid 2002;
  2050.     function  Item(var index: OleVariant): AddIn; dispid 0;
  2051.     function  Add(const FileName: WideString): AddIn; dispid 2003;
  2052.     procedure Remove(var index: OleVariant); dispid 2004;
  2053.     property _NewEnum: IUnknown readonly dispid -4;
  2054.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2055.     property Count: Integer readonly dispid 11;
  2056.   end;
  2057.  
  2058. // *********************************************************************//
  2059. // Interface: AddIn
  2060. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2061. // GUID:      {91493461-5A91-11CF-8700-00AA0060263B}
  2062. // *********************************************************************//
  2063.   AddIn = interface(IDispatch)
  2064.     ['{91493461-5A91-11CF-8700-00AA0060263B}']
  2065.     function  Get_Application: IDispatch; safecall;
  2066.     function  Get_Parent: IDispatch; safecall;
  2067.     function  Get_FullName: WideString; safecall;
  2068.     function  Get_Name: WideString; safecall;
  2069.     function  Get_Path: WideString; safecall;
  2070.     function  Get_Registered: MsoTriState; safecall;
  2071.     procedure Set_Registered(Registered: MsoTriState); safecall;
  2072.     function  Get_AutoLoad: MsoTriState; safecall;
  2073.     procedure Set_AutoLoad(AutoLoad: MsoTriState); safecall;
  2074.     function  Get_Loaded: MsoTriState; safecall;
  2075.     procedure Set_Loaded(Loaded: MsoTriState); safecall;
  2076.     function  Get_DisplayAlerts: MsoTriState; safecall;
  2077.     procedure Set_DisplayAlerts(DisplayAlerts: MsoTriState); safecall;
  2078.     function  Get_RegisteredInHKLM: MsoTriState; safecall;
  2079.     property Application: IDispatch read Get_Application;
  2080.     property Parent: IDispatch read Get_Parent;
  2081.     property FullName: WideString read Get_FullName;
  2082.     property Name: WideString read Get_Name;
  2083.     property Path: WideString read Get_Path;
  2084.     property Registered: MsoTriState read Get_Registered write Set_Registered;
  2085.     property AutoLoad: MsoTriState read Get_AutoLoad write Set_AutoLoad;
  2086.     property Loaded: MsoTriState read Get_Loaded write Set_Loaded;
  2087.     property DisplayAlerts: MsoTriState read Get_DisplayAlerts write Set_DisplayAlerts;
  2088.     property RegisteredInHKLM: MsoTriState read Get_RegisteredInHKLM;
  2089.   end;
  2090.  
  2091. // *********************************************************************//
  2092. // DispIntf:  AddInDisp
  2093. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2094. // GUID:      {91493461-5A91-11CF-8700-00AA0060263B}
  2095. // *********************************************************************//
  2096.   AddInDisp = dispinterface
  2097.     ['{91493461-5A91-11CF-8700-00AA0060263B}']
  2098.     property Application: IDispatch readonly dispid 2001;
  2099.     property Parent: IDispatch readonly dispid 2002;
  2100.     property FullName: WideString readonly dispid 2003;
  2101.     property Name: WideString readonly dispid 2004;
  2102.     property Path: WideString readonly dispid 2005;
  2103.     property Registered: MsoTriState dispid 2006;
  2104.     property AutoLoad: MsoTriState dispid 2007;
  2105.     property Loaded: MsoTriState dispid 2008;
  2106.     property DisplayAlerts: MsoTriState dispid 2009;
  2107.     property RegisteredInHKLM: MsoTriState readonly dispid 2010;
  2108.   end;
  2109.  
  2110. // *********************************************************************//
  2111. // Interface: Presentations
  2112. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2113. // GUID:      {91493462-5A91-11CF-8700-00AA0060263B}
  2114. // *********************************************************************//
  2115.   Presentations = interface(Collection)
  2116.     ['{91493462-5A91-11CF-8700-00AA0060263B}']
  2117.     function  Get_Application: IDispatch; safecall;
  2118.     function  Get_Parent: IDispatch; safecall;
  2119.     function  Item(index: OleVariant): PowerPointPresentation; safecall;
  2120.     function  Add(WithWindow: MsoTriState): PowerPointPresentation; safecall;
  2121.     function  Open(const FileName: WideString; ReadOnly: MsoTriState; Untitled: MsoTriState; 
  2122.                    WithWindow: MsoTriState): PowerPointPresentation; safecall;
  2123.     property Application: IDispatch read Get_Application;
  2124.     property Parent: IDispatch read Get_Parent;
  2125.   end;
  2126.  
  2127. // *********************************************************************//
  2128. // DispIntf:  PresentationsDisp
  2129. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2130. // GUID:      {91493462-5A91-11CF-8700-00AA0060263B}
  2131. // *********************************************************************//
  2132.   PresentationsDisp = dispinterface
  2133.     ['{91493462-5A91-11CF-8700-00AA0060263B}']
  2134.     property Application: IDispatch readonly dispid 2001;
  2135.     property Parent: IDispatch readonly dispid 2002;
  2136.     function  Item(index: OleVariant): PowerPointPresentation; dispid 0;
  2137.     function  Add(WithWindow: MsoTriState): PowerPointPresentation; dispid 2003;
  2138.     function  Open(const FileName: WideString; ReadOnly: MsoTriState; Untitled: MsoTriState; 
  2139.                    WithWindow: MsoTriState): PowerPointPresentation; dispid 2004;
  2140.     property _NewEnum: IUnknown readonly dispid -4;
  2141.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2142.     property Count: Integer readonly dispid 11;
  2143.   end;
  2144.  
  2145. // *********************************************************************//
  2146. // Interface: PresEvents
  2147. // Flags:     (16) Hidden
  2148. // GUID:      {91493463-5A91-11CF-8700-00AA0060263B}
  2149. // *********************************************************************//
  2150.   PresEvents = interface(IUnknown)
  2151.     ['{91493463-5A91-11CF-8700-00AA0060263B}']
  2152.   end;
  2153.  
  2154. // *********************************************************************//
  2155. // Interface: _Presentation
  2156. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2157. // GUID:      {9149349D-5A91-11CF-8700-00AA0060263B}
  2158. // *********************************************************************//
  2159.   _Presentation = interface(IDispatch)
  2160.     ['{9149349D-5A91-11CF-8700-00AA0060263B}']
  2161.     function  Get_Application: IDispatch; safecall;
  2162.     function  Get_Parent: IDispatch; safecall;
  2163.     function  Get_SlideMaster: Master; safecall;
  2164.     function  Get_TitleMaster: Master; safecall;
  2165.     function  Get_HasTitleMaster: MsoTriState; safecall;
  2166.     function  AddTitleMaster: Master; safecall;
  2167.     procedure ApplyTemplate(const FileName: WideString); safecall;
  2168.     function  Get_TemplateName: WideString; safecall;
  2169.     function  Get_NotesMaster: Master; safecall;
  2170.     function  Get_HandoutMaster: Master; safecall;
  2171.     function  Get_Slides: Slides; safecall;
  2172.     function  Get_PageSetup: PageSetup; safecall;
  2173.     function  Get_ColorSchemes: ColorSchemes; safecall;
  2174.     function  Get_ExtraColors: ExtraColors; safecall;
  2175.     function  Get_SlideShowSettings: SlideShowSettings; safecall;
  2176.     function  Get_Fonts: Fonts; safecall;
  2177.     function  Get_Windows: DocumentWindows; safecall;
  2178.     function  Get_Tags: Tags; safecall;
  2179.     function  Get_DefaultShape: Shape; safecall;
  2180.     function  Get_BuiltInDocumentProperties: IDispatch; safecall;
  2181.     function  Get_CustomDocumentProperties: IDispatch; safecall;
  2182.     function  Get_VBProject: VBProject; safecall;
  2183.     function  Get_ReadOnly: MsoTriState; safecall;
  2184.     function  Get_FullName: WideString; safecall;
  2185.     function  Get_Name: WideString; safecall;
  2186.     function  Get_Path: WideString; safecall;
  2187.     function  Get_Saved: MsoTriState; safecall;
  2188.     procedure Set_Saved(Saved: MsoTriState); safecall;
  2189.     function  Get_LayoutDirection: PpDirection; safecall;
  2190.     procedure Set_LayoutDirection(LayoutDirection: PpDirection); safecall;
  2191.     function  NewWindow: DocumentWindow; safecall;
  2192.     procedure FollowHyperlink(const Address: WideString; const SubAddress: WideString; 
  2193.                               NewWindow: WordBool; AddHistory: WordBool; 
  2194.                               const ExtraInfo: WideString; Method: MsoExtraInfoMethod; 
  2195.                               const HeaderInfo: WideString); safecall;
  2196.     procedure AddToFavorites; safecall;
  2197.     procedure Unused; safecall;
  2198.     function  Get_PrintOptions: PrintOptions; safecall;
  2199.     procedure PrintOut(From: SYSINT; To_: SYSINT; const PrintToFile: WideString; Copies: SYSINT; 
  2200.                        Collate: MsoTriState); safecall;
  2201.     procedure Save; safecall;
  2202.     procedure SaveAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  2203.                      EmbedTrueTypeFonts: MsoTriState); safecall;
  2204.     procedure SaveCopyAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  2205.                          EmbedTrueTypeFonts: MsoTriState); safecall;
  2206.     procedure Export(const Path: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  2207.                      ScaleHeight: SYSINT); safecall;
  2208.     procedure Close; safecall;
  2209.     procedure SetUndoText(const Text: WideString); safecall;
  2210.     function  Get_Container: IDispatch; safecall;
  2211.     function  Get_DisplayComments: MsoTriState; safecall;
  2212.     procedure Set_DisplayComments(DisplayComments: MsoTriState); safecall;
  2213.     function  Get_FarEastLineBreakLevel: PpFarEastLineBreakLevel; safecall;
  2214.     procedure Set_FarEastLineBreakLevel(FarEastLineBreakLevel: PpFarEastLineBreakLevel); safecall;
  2215.     function  Get_NoLineBreakBefore: WideString; safecall;
  2216.     procedure Set_NoLineBreakBefore(const NoLineBreakBefore: WideString); safecall;
  2217.     function  Get_NoLineBreakAfter: WideString; safecall;
  2218.     procedure Set_NoLineBreakAfter(const NoLineBreakAfter: WideString); safecall;
  2219.     procedure UpdateLinks; safecall;
  2220.     function  Get_SlideShowWindow: SlideShowWindow; safecall;
  2221.     property Application: IDispatch read Get_Application;
  2222.     property Parent: IDispatch read Get_Parent;
  2223.     property SlideMaster: Master read Get_SlideMaster;
  2224.     property TitleMaster: Master read Get_TitleMaster;
  2225.     property HasTitleMaster: MsoTriState read Get_HasTitleMaster;
  2226.     property TemplateName: WideString read Get_TemplateName;
  2227.     property NotesMaster: Master read Get_NotesMaster;
  2228.     property HandoutMaster: Master read Get_HandoutMaster;
  2229.     property Slides: Slides read Get_Slides;
  2230.     property PageSetup: PageSetup read Get_PageSetup;
  2231.     property ColorSchemes: ColorSchemes read Get_ColorSchemes;
  2232.     property ExtraColors: ExtraColors read Get_ExtraColors;
  2233.     property SlideShowSettings: SlideShowSettings read Get_SlideShowSettings;
  2234.     property Fonts: Fonts read Get_Fonts;
  2235.     property Windows: DocumentWindows read Get_Windows;
  2236.     property Tags: Tags read Get_Tags;
  2237.     property DefaultShape: Shape read Get_DefaultShape;
  2238.     property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
  2239.     property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
  2240.     property VBProject: VBProject read Get_VBProject;
  2241.     property ReadOnly: MsoTriState read Get_ReadOnly;
  2242.     property FullName: WideString read Get_FullName;
  2243.     property Name: WideString read Get_Name;
  2244.     property Path: WideString read Get_Path;
  2245.     property Saved: MsoTriState read Get_Saved write Set_Saved;
  2246.     property LayoutDirection: PpDirection read Get_LayoutDirection write Set_LayoutDirection;
  2247.     property PrintOptions: PrintOptions read Get_PrintOptions;
  2248.     property Container: IDispatch read Get_Container;
  2249.     property DisplayComments: MsoTriState read Get_DisplayComments write Set_DisplayComments;
  2250.     property FarEastLineBreakLevel: PpFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
  2251.     property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
  2252.     property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
  2253.     property SlideShowWindow: SlideShowWindow read Get_SlideShowWindow;
  2254.   end;
  2255.  
  2256. // *********************************************************************//
  2257. // DispIntf:  _PresentationDisp
  2258. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2259. // GUID:      {9149349D-5A91-11CF-8700-00AA0060263B}
  2260. // *********************************************************************//
  2261.   _PresentationDisp = dispinterface
  2262.     ['{9149349D-5A91-11CF-8700-00AA0060263B}']
  2263.     property Application: IDispatch readonly dispid 2001;
  2264.     property Parent: IDispatch readonly dispid 2002;
  2265.     property SlideMaster: Master readonly dispid 2003;
  2266.     property TitleMaster: Master readonly dispid 2004;
  2267.     property HasTitleMaster: MsoTriState readonly dispid 2005;
  2268.     function  AddTitleMaster: Master; dispid 2006;
  2269.     procedure ApplyTemplate(const FileName: WideString); dispid 2007;
  2270.     property TemplateName: WideString readonly dispid 2008;
  2271.     property NotesMaster: Master readonly dispid 2009;
  2272.     property HandoutMaster: Master readonly dispid 2010;
  2273.     property Slides: Slides readonly dispid 2011;
  2274.     property PageSetup: PageSetup readonly dispid 2012;
  2275.     property ColorSchemes: ColorSchemes readonly dispid 2013;
  2276.     property ExtraColors: ExtraColors readonly dispid 2014;
  2277.     property SlideShowSettings: SlideShowSettings readonly dispid 2015;
  2278.     property Fonts: Fonts readonly dispid 2016;
  2279.     property Windows: DocumentWindows readonly dispid 2017;
  2280.     property Tags: Tags readonly dispid 2018;
  2281.     property DefaultShape: Shape readonly dispid 2019;
  2282.     property BuiltInDocumentProperties: IDispatch readonly dispid 2020;
  2283.     property CustomDocumentProperties: IDispatch readonly dispid 2021;
  2284.     property VBProject: VBProject readonly dispid 2022;
  2285.     property ReadOnly: MsoTriState readonly dispid 2023;
  2286.     property FullName: WideString readonly dispid 2024;
  2287.     property Name: WideString readonly dispid 2025;
  2288.     property Path: WideString readonly dispid 2026;
  2289.     property Saved: MsoTriState dispid 2027;
  2290.     property LayoutDirection: PpDirection dispid 2028;
  2291.     function  NewWindow: DocumentWindow; dispid 2029;
  2292.     procedure FollowHyperlink(const Address: WideString; const SubAddress: WideString; 
  2293.                               NewWindow: WordBool; AddHistory: WordBool; 
  2294.                               const ExtraInfo: WideString; Method: MsoExtraInfoMethod; 
  2295.                               const HeaderInfo: WideString); dispid 2030;
  2296.     procedure AddToFavorites; dispid 2031;
  2297.     procedure Unused; dispid 2032;
  2298.     property PrintOptions: PrintOptions readonly dispid 2033;
  2299.     procedure PrintOut(From: SYSINT; To_: SYSINT; const PrintToFile: WideString; Copies: SYSINT; 
  2300.                        Collate: MsoTriState); dispid 2034;
  2301.     procedure Save; dispid 2035;
  2302.     procedure SaveAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  2303.                      EmbedTrueTypeFonts: MsoTriState); dispid 2036;
  2304.     procedure SaveCopyAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  2305.                          EmbedTrueTypeFonts: MsoTriState); dispid 2037;
  2306.     procedure Export(const Path: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  2307.                      ScaleHeight: SYSINT); dispid 2038;
  2308.     procedure Close; dispid 2039;
  2309.     procedure SetUndoText(const Text: WideString); dispid 2040;
  2310.     property Container: IDispatch readonly dispid 2041;
  2311.     property DisplayComments: MsoTriState dispid 2042;
  2312.     property FarEastLineBreakLevel: PpFarEastLineBreakLevel dispid 2043;
  2313.     property NoLineBreakBefore: WideString dispid 2044;
  2314.     property NoLineBreakAfter: WideString dispid 2045;
  2315.     procedure UpdateLinks; dispid 2046;
  2316.     property SlideShowWindow: SlideShowWindow readonly dispid 2047;
  2317.   end;
  2318.  
  2319. // *********************************************************************//
  2320. // Interface: Hyperlinks
  2321. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2322. // GUID:      {91493464-5A91-11CF-8700-00AA0060263B}
  2323. // *********************************************************************//
  2324.   Hyperlinks = interface(Collection)
  2325.     ['{91493464-5A91-11CF-8700-00AA0060263B}']
  2326.     function  Get_Application: IDispatch; safecall;
  2327.     function  Get_Parent: IDispatch; safecall;
  2328.     function  Item(index: SYSINT): Hyperlink; safecall;
  2329.     property Application: IDispatch read Get_Application;
  2330.     property Parent: IDispatch read Get_Parent;
  2331.   end;
  2332.  
  2333. // *********************************************************************//
  2334. // DispIntf:  HyperlinksDisp
  2335. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2336. // GUID:      {91493464-5A91-11CF-8700-00AA0060263B}
  2337. // *********************************************************************//
  2338.   HyperlinksDisp = dispinterface
  2339.     ['{91493464-5A91-11CF-8700-00AA0060263B}']
  2340.     property Application: IDispatch readonly dispid 2001;
  2341.     property Parent: IDispatch readonly dispid 2002;
  2342.     function  Item(index: SYSINT): Hyperlink; dispid 0;
  2343.     property _NewEnum: IUnknown readonly dispid -4;
  2344.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2345.     property Count: Integer readonly dispid 11;
  2346.   end;
  2347.  
  2348. // *********************************************************************//
  2349. // Interface: Hyperlink
  2350. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2351. // GUID:      {91493465-5A91-11CF-8700-00AA0060263B}
  2352. // *********************************************************************//
  2353.   Hyperlink = interface(IDispatch)
  2354.     ['{91493465-5A91-11CF-8700-00AA0060263B}']
  2355.     function  Get_Application: IDispatch; safecall;
  2356.     function  Get_Parent: IDispatch; safecall;
  2357.     function  Get_Type_: MsoHyperlinkType; safecall;
  2358.     function  Get_Address: WideString; safecall;
  2359.     procedure Set_Address(const Address: WideString); safecall;
  2360.     function  Get_SubAddress: WideString; safecall;
  2361.     procedure Set_SubAddress(const SubAddress: WideString); safecall;
  2362.     procedure AddToFavorites; safecall;
  2363.     property Application: IDispatch read Get_Application;
  2364.     property Parent: IDispatch read Get_Parent;
  2365.     property Type_: MsoHyperlinkType read Get_Type_;
  2366.     property Address: WideString read Get_Address write Set_Address;
  2367.     property SubAddress: WideString read Get_SubAddress write Set_SubAddress;
  2368.   end;
  2369.  
  2370. // *********************************************************************//
  2371. // DispIntf:  HyperlinkDisp
  2372. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2373. // GUID:      {91493465-5A91-11CF-8700-00AA0060263B}
  2374. // *********************************************************************//
  2375.   HyperlinkDisp = dispinterface
  2376.     ['{91493465-5A91-11CF-8700-00AA0060263B}']
  2377.     property Application: IDispatch readonly dispid 2001;
  2378.     property Parent: IDispatch readonly dispid 2002;
  2379.     property Type_: MsoHyperlinkType readonly dispid 2003;
  2380.     property Address: WideString dispid 2004;
  2381.     property SubAddress: WideString dispid 2005;
  2382.     procedure AddToFavorites; dispid 2006;
  2383.   end;
  2384.  
  2385. // *********************************************************************//
  2386. // Interface: PageSetup
  2387. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2388. // GUID:      {91493466-5A91-11CF-8700-00AA0060263B}
  2389. // *********************************************************************//
  2390.   PageSetup = interface(IDispatch)
  2391.     ['{91493466-5A91-11CF-8700-00AA0060263B}']
  2392.     function  Get_Application: IDispatch; safecall;
  2393.     function  Get_Parent: IDispatch; safecall;
  2394.     function  Get_FirstSlideNumber: SYSINT; safecall;
  2395.     procedure Set_FirstSlideNumber(FirstSlideNumber: SYSINT); safecall;
  2396.     function  Get_SlideHeight: Single; safecall;
  2397.     procedure Set_SlideHeight(SlideHeight: Single); safecall;
  2398.     function  Get_SlideWidth: Single; safecall;
  2399.     procedure Set_SlideWidth(SlideWidth: Single); safecall;
  2400.     function  Get_SlideSize: PpSlideSizeType; safecall;
  2401.     procedure Set_SlideSize(SlideSize: PpSlideSizeType); safecall;
  2402.     function  Get_NotesOrientation: MsoOrientation; safecall;
  2403.     procedure Set_NotesOrientation(NotesOrientation: MsoOrientation); safecall;
  2404.     function  Get_SlideOrientation: MsoOrientation; safecall;
  2405.     procedure Set_SlideOrientation(SlideOrientation: MsoOrientation); safecall;
  2406.     property Application: IDispatch read Get_Application;
  2407.     property Parent: IDispatch read Get_Parent;
  2408.     property FirstSlideNumber: SYSINT read Get_FirstSlideNumber write Set_FirstSlideNumber;
  2409.     property SlideHeight: Single read Get_SlideHeight write Set_SlideHeight;
  2410.     property SlideWidth: Single read Get_SlideWidth write Set_SlideWidth;
  2411.     property SlideSize: PpSlideSizeType read Get_SlideSize write Set_SlideSize;
  2412.     property NotesOrientation: MsoOrientation read Get_NotesOrientation write Set_NotesOrientation;
  2413.     property SlideOrientation: MsoOrientation read Get_SlideOrientation write Set_SlideOrientation;
  2414.   end;
  2415.  
  2416. // *********************************************************************//
  2417. // DispIntf:  PageSetupDisp
  2418. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2419. // GUID:      {91493466-5A91-11CF-8700-00AA0060263B}
  2420. // *********************************************************************//
  2421.   PageSetupDisp = dispinterface
  2422.     ['{91493466-5A91-11CF-8700-00AA0060263B}']
  2423.     property Application: IDispatch readonly dispid 2001;
  2424.     property Parent: IDispatch readonly dispid 2002;
  2425.     property FirstSlideNumber: SYSINT dispid 2003;
  2426.     property SlideHeight: Single dispid 2004;
  2427.     property SlideWidth: Single dispid 2005;
  2428.     property SlideSize: PpSlideSizeType dispid 2006;
  2429.     property NotesOrientation: MsoOrientation dispid 2007;
  2430.     property SlideOrientation: MsoOrientation dispid 2008;
  2431.   end;
  2432.  
  2433. // *********************************************************************//
  2434. // Interface: Fonts
  2435. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2436. // GUID:      {91493467-5A91-11CF-8700-00AA0060263B}
  2437. // *********************************************************************//
  2438.   Fonts = interface(Collection)
  2439.     ['{91493467-5A91-11CF-8700-00AA0060263B}']
  2440.     function  Get_Application: IDispatch; safecall;
  2441.     function  Get_Parent: IDispatch; safecall;
  2442.     function  Item(index: OleVariant): Font; safecall;
  2443.     procedure Replace(const Original: WideString; const Replacement: WideString); safecall;
  2444.     property Application: IDispatch read Get_Application;
  2445.     property Parent: IDispatch read Get_Parent;
  2446.   end;
  2447.  
  2448. // *********************************************************************//
  2449. // DispIntf:  FontsDisp
  2450. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2451. // GUID:      {91493467-5A91-11CF-8700-00AA0060263B}
  2452. // *********************************************************************//
  2453.   FontsDisp = dispinterface
  2454.     ['{91493467-5A91-11CF-8700-00AA0060263B}']
  2455.     property Application: IDispatch readonly dispid 2001;
  2456.     property Parent: IDispatch readonly dispid 2002;
  2457.     function  Item(index: OleVariant): Font; dispid 0;
  2458.     procedure Replace(const Original: WideString; const Replacement: WideString); dispid 2003;
  2459.     property _NewEnum: IUnknown readonly dispid -4;
  2460.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2461.     property Count: Integer readonly dispid 11;
  2462.   end;
  2463.  
  2464. // *********************************************************************//
  2465. // Interface: ExtraColors
  2466. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2467. // GUID:      {91493468-5A91-11CF-8700-00AA0060263B}
  2468. // *********************************************************************//
  2469.   ExtraColors = interface(Collection)
  2470.     ['{91493468-5A91-11CF-8700-00AA0060263B}']
  2471.     function  Get_Application: IDispatch; safecall;
  2472.     function  Get_Parent: IDispatch; safecall;
  2473.     function  Item(index: SYSINT): MsoRGBType; safecall;
  2474.     procedure Add(Type_: MsoRGBType); safecall;
  2475.     property Application: IDispatch read Get_Application;
  2476.     property Parent: IDispatch read Get_Parent;
  2477.   end;
  2478.  
  2479. // *********************************************************************//
  2480. // DispIntf:  ExtraColorsDisp
  2481. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2482. // GUID:      {91493468-5A91-11CF-8700-00AA0060263B}
  2483. // *********************************************************************//
  2484.   ExtraColorsDisp = dispinterface
  2485.     ['{91493468-5A91-11CF-8700-00AA0060263B}']
  2486.     property Application: IDispatch readonly dispid 2001;
  2487.     property Parent: IDispatch readonly dispid 2002;
  2488.     function  Item(index: SYSINT): MsoRGBType; dispid 0;
  2489.     procedure Add(Type_: MsoRGBType); dispid 2003;
  2490.     property _NewEnum: IUnknown readonly dispid -4;
  2491.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2492.     property Count: Integer readonly dispid 11;
  2493.   end;
  2494.  
  2495. // *********************************************************************//
  2496. // Interface: Slides
  2497. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2498. // GUID:      {91493469-5A91-11CF-8700-00AA0060263B}
  2499. // *********************************************************************//
  2500.   Slides = interface(Collection)
  2501.     ['{91493469-5A91-11CF-8700-00AA0060263B}']
  2502.     function  Get_Application: IDispatch; safecall;
  2503.     function  Get_Parent: IDispatch; safecall;
  2504.     function  Item(index: OleVariant): PowerPointSlide; safecall;
  2505.     function  FindBySlideID(SlideID: Integer): PowerPointSlide; safecall;
  2506.     function  Add(index: SYSINT; Layout: PpSlideLayout): PowerPointSlide; safecall;
  2507.     function  InsertFromFile(const FileName: WideString; index: SYSINT; SlideStart: SYSINT; 
  2508.                              SlideEnd: SYSINT): SYSINT; safecall;
  2509.     function  Range(index: OleVariant): SlideRange; safecall;
  2510.     function  Paste(index: SYSINT): SlideRange; safecall;
  2511.     property Application: IDispatch read Get_Application;
  2512.     property Parent: IDispatch read Get_Parent;
  2513.   end;
  2514.  
  2515. // *********************************************************************//
  2516. // DispIntf:  SlidesDisp
  2517. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2518. // GUID:      {91493469-5A91-11CF-8700-00AA0060263B}
  2519. // *********************************************************************//
  2520.   SlidesDisp = dispinterface
  2521.     ['{91493469-5A91-11CF-8700-00AA0060263B}']
  2522.     property Application: IDispatch readonly dispid 2001;
  2523.     property Parent: IDispatch readonly dispid 2002;
  2524.     function  Item(index: OleVariant): PowerPointSlide; dispid 0;
  2525.     function  FindBySlideID(SlideID: Integer): PowerPointSlide; dispid 2003;
  2526.     function  Add(index: SYSINT; Layout: PpSlideLayout): PowerPointSlide; dispid 2004;
  2527.     function  InsertFromFile(const FileName: WideString; index: SYSINT; SlideStart: SYSINT; 
  2528.                              SlideEnd: SYSINT): SYSINT; dispid 2005;
  2529.     function  Range(index: OleVariant): SlideRange; dispid 2006;
  2530.     function  Paste(index: SYSINT): SlideRange; dispid 2007;
  2531.     property _NewEnum: IUnknown readonly dispid -4;
  2532.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2533.     property Count: Integer readonly dispid 11;
  2534.   end;
  2535.  
  2536. // *********************************************************************//
  2537. // Interface: _Slide
  2538. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2539. // GUID:      {9149346A-5A91-11CF-8700-00AA0060263B}
  2540. // *********************************************************************//
  2541.   _Slide = interface(IDispatch)
  2542.     ['{9149346A-5A91-11CF-8700-00AA0060263B}']
  2543.     function  Get_Application: IDispatch; safecall;
  2544.     function  Get_Parent: IDispatch; safecall;
  2545.     function  Get_Shapes: Shapes; safecall;
  2546.     function  Get_HeadersFooters: HeadersFooters; safecall;
  2547.     function  Get_SlideShowTransition: SlideShowTransition; safecall;
  2548.     function  Get_ColorScheme: ColorScheme; safecall;
  2549.     procedure Set_ColorScheme(const ColorScheme: ColorScheme); safecall;
  2550.     function  Get_Background: ShapeRange; safecall;
  2551.     function  Get_Name: WideString; safecall;
  2552.     procedure Set_Name(const Name: WideString); safecall;
  2553.     function  Get_SlideID: Integer; safecall;
  2554.     function  Get_PrintSteps: SYSINT; safecall;
  2555.     procedure Select; safecall;
  2556.     procedure Cut; safecall;
  2557.     procedure Copy; safecall;
  2558.     function  Get_Layout: PpSlideLayout; safecall;
  2559.     procedure Set_Layout(Layout: PpSlideLayout); safecall;
  2560.     function  Duplicate: SlideRange; safecall;
  2561.     procedure Delete; safecall;
  2562.     function  Get_Tags: Tags; safecall;
  2563.     function  Get_SlideIndex: SYSINT; safecall;
  2564.     function  Get_SlideNumber: SYSINT; safecall;
  2565.     function  Get_DisplayMasterShapes: MsoTriState; safecall;
  2566.     procedure Set_DisplayMasterShapes(DisplayMasterShapes: MsoTriState); safecall;
  2567.     function  Get_FollowMasterBackground: MsoTriState; safecall;
  2568.     procedure Set_FollowMasterBackground(FollowMasterBackground: MsoTriState); safecall;
  2569.     function  Get_NotesPage: SlideRange; safecall;
  2570.     function  Get_Master: Master; safecall;
  2571.     function  Get_Hyperlinks: Hyperlinks; safecall;
  2572.     procedure Export(const FileName: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  2573.                      ScaleHeight: SYSINT); safecall;
  2574.     property Application: IDispatch read Get_Application;
  2575.     property Parent: IDispatch read Get_Parent;
  2576.     property Shapes: Shapes read Get_Shapes;
  2577.     property HeadersFooters: HeadersFooters read Get_HeadersFooters;
  2578.     property SlideShowTransition: SlideShowTransition read Get_SlideShowTransition;
  2579.     property ColorScheme: ColorScheme read Get_ColorScheme write Set_ColorScheme;
  2580.     property Background: ShapeRange read Get_Background;
  2581.     property Name: WideString read Get_Name write Set_Name;
  2582.     property SlideID: Integer read Get_SlideID;
  2583.     property PrintSteps: SYSINT read Get_PrintSteps;
  2584.     property Layout: PpSlideLayout read Get_Layout write Set_Layout;
  2585.     property Tags: Tags read Get_Tags;
  2586.     property SlideIndex: SYSINT read Get_SlideIndex;
  2587.     property SlideNumber: SYSINT read Get_SlideNumber;
  2588.     property DisplayMasterShapes: MsoTriState read Get_DisplayMasterShapes write Set_DisplayMasterShapes;
  2589.     property FollowMasterBackground: MsoTriState read Get_FollowMasterBackground write Set_FollowMasterBackground;
  2590.     property NotesPage: SlideRange read Get_NotesPage;
  2591.     property Master: Master read Get_Master;
  2592.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  2593.   end;
  2594.  
  2595. // *********************************************************************//
  2596. // DispIntf:  _SlideDisp
  2597. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2598. // GUID:      {9149346A-5A91-11CF-8700-00AA0060263B}
  2599. // *********************************************************************//
  2600.   _SlideDisp = dispinterface
  2601.     ['{9149346A-5A91-11CF-8700-00AA0060263B}']
  2602.     property Application: IDispatch readonly dispid 2001;
  2603.     property Parent: IDispatch readonly dispid 2002;
  2604.     property Shapes: Shapes readonly dispid 2003;
  2605.     property HeadersFooters: HeadersFooters readonly dispid 2004;
  2606.     property SlideShowTransition: SlideShowTransition readonly dispid 2005;
  2607.     property ColorScheme: ColorScheme dispid 2006;
  2608.     property Background: ShapeRange readonly dispid 2007;
  2609.     property Name: WideString dispid 2008;
  2610.     property SlideID: Integer readonly dispid 2009;
  2611.     property PrintSteps: SYSINT readonly dispid 2010;
  2612.     procedure Select; dispid 2011;
  2613.     procedure Cut; dispid 2012;
  2614.     procedure Copy; dispid 2013;
  2615.     property Layout: PpSlideLayout dispid 2014;
  2616.     function  Duplicate: SlideRange; dispid 2015;
  2617.     procedure Delete; dispid 2016;
  2618.     property Tags: Tags readonly dispid 2017;
  2619.     property SlideIndex: SYSINT readonly dispid 2018;
  2620.     property SlideNumber: SYSINT readonly dispid 2019;
  2621.     property DisplayMasterShapes: MsoTriState dispid 2020;
  2622.     property FollowMasterBackground: MsoTriState dispid 2021;
  2623.     property NotesPage: SlideRange readonly dispid 2022;
  2624.     property Master: Master readonly dispid 2023;
  2625.     property Hyperlinks: Hyperlinks readonly dispid 2024;
  2626.     procedure Export(const FileName: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  2627.                      ScaleHeight: SYSINT); dispid 2025;
  2628.   end;
  2629.  
  2630. // *********************************************************************//
  2631. // Interface: SlideRange
  2632. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2633. // GUID:      {9149346B-5A91-11CF-8700-00AA0060263B}
  2634. // *********************************************************************//
  2635.   SlideRange = interface(IDispatch)
  2636.     ['{9149346B-5A91-11CF-8700-00AA0060263B}']
  2637.     function  Get_Application: IDispatch; safecall;
  2638.     function  Get_Parent: IDispatch; safecall;
  2639.     function  Get_Shapes: Shapes; safecall;
  2640.     function  Get_HeadersFooters: HeadersFooters; safecall;
  2641.     function  Get_SlideShowTransition: SlideShowTransition; safecall;
  2642.     function  Get_ColorScheme: ColorScheme; safecall;
  2643.     procedure Set_ColorScheme(const ColorScheme: ColorScheme); safecall;
  2644.     function  Get_Background: ShapeRange; safecall;
  2645.     function  Get_Name: WideString; safecall;
  2646.     procedure Set_Name(const Name: WideString); safecall;
  2647.     function  Get_SlideID: Integer; safecall;
  2648.     function  Get_PrintSteps: SYSINT; safecall;
  2649.     procedure Select; safecall;
  2650.     procedure Cut; safecall;
  2651.     procedure Copy; safecall;
  2652.     function  Get_Layout: PpSlideLayout; safecall;
  2653.     procedure Set_Layout(Layout: PpSlideLayout); safecall;
  2654.     function  Duplicate: SlideRange; safecall;
  2655.     procedure Delete; safecall;
  2656.     function  Get_Tags: Tags; safecall;
  2657.     function  Get_SlideIndex: SYSINT; safecall;
  2658.     function  Get_SlideNumber: SYSINT; safecall;
  2659.     function  Get_DisplayMasterShapes: MsoTriState; safecall;
  2660.     procedure Set_DisplayMasterShapes(DisplayMasterShapes: MsoTriState); safecall;
  2661.     function  Get_FollowMasterBackground: MsoTriState; safecall;
  2662.     procedure Set_FollowMasterBackground(FollowMasterBackground: MsoTriState); safecall;
  2663.     function  Get_NotesPage: SlideRange; safecall;
  2664.     function  Get_Master: Master; safecall;
  2665.     function  Get_Hyperlinks: Hyperlinks; safecall;
  2666.     procedure Export(const FileName: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  2667.                      ScaleHeight: SYSINT); safecall;
  2668.     function  Item(index: OleVariant): PowerPointSlide; safecall;
  2669.     function  Get__NewEnum: IUnknown; safecall;
  2670.     function  _Index(index: SYSINT): OleVariant; safecall;
  2671.     function  Get_Count: Integer; safecall;
  2672.     property Application: IDispatch read Get_Application;
  2673.     property Parent: IDispatch read Get_Parent;
  2674.     property Shapes: Shapes read Get_Shapes;
  2675.     property HeadersFooters: HeadersFooters read Get_HeadersFooters;
  2676.     property SlideShowTransition: SlideShowTransition read Get_SlideShowTransition;
  2677.     property ColorScheme: ColorScheme read Get_ColorScheme write Set_ColorScheme;
  2678.     property Background: ShapeRange read Get_Background;
  2679.     property Name: WideString read Get_Name write Set_Name;
  2680.     property SlideID: Integer read Get_SlideID;
  2681.     property PrintSteps: SYSINT read Get_PrintSteps;
  2682.     property Layout: PpSlideLayout read Get_Layout write Set_Layout;
  2683.     property Tags: Tags read Get_Tags;
  2684.     property SlideIndex: SYSINT read Get_SlideIndex;
  2685.     property SlideNumber: SYSINT read Get_SlideNumber;
  2686.     property DisplayMasterShapes: MsoTriState read Get_DisplayMasterShapes write Set_DisplayMasterShapes;
  2687.     property FollowMasterBackground: MsoTriState read Get_FollowMasterBackground write Set_FollowMasterBackground;
  2688.     property NotesPage: SlideRange read Get_NotesPage;
  2689.     property Master: Master read Get_Master;
  2690.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  2691.     property _NewEnum: IUnknown read Get__NewEnum;
  2692.     property Count: Integer read Get_Count;
  2693.   end;
  2694.  
  2695. // *********************************************************************//
  2696. // DispIntf:  SlideRangeDisp
  2697. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2698. // GUID:      {9149346B-5A91-11CF-8700-00AA0060263B}
  2699. // *********************************************************************//
  2700.   SlideRangeDisp = dispinterface
  2701.     ['{9149346B-5A91-11CF-8700-00AA0060263B}']
  2702.     property Application: IDispatch readonly dispid 2001;
  2703.     property Parent: IDispatch readonly dispid 2002;
  2704.     property Shapes: Shapes readonly dispid 2003;
  2705.     property HeadersFooters: HeadersFooters readonly dispid 2004;
  2706.     property SlideShowTransition: SlideShowTransition readonly dispid 2005;
  2707.     property ColorScheme: ColorScheme dispid 2006;
  2708.     property Background: ShapeRange readonly dispid 2007;
  2709.     property Name: WideString dispid 2008;
  2710.     property SlideID: Integer readonly dispid 2009;
  2711.     property PrintSteps: SYSINT readonly dispid 2010;
  2712.     procedure Select; dispid 2011;
  2713.     procedure Cut; dispid 2012;
  2714.     procedure Copy; dispid 2013;
  2715.     property Layout: PpSlideLayout dispid 2014;
  2716.     function  Duplicate: SlideRange; dispid 2015;
  2717.     procedure Delete; dispid 2016;
  2718.     property Tags: Tags readonly dispid 2017;
  2719.     property SlideIndex: SYSINT readonly dispid 2018;
  2720.     property SlideNumber: SYSINT readonly dispid 2019;
  2721.     property DisplayMasterShapes: MsoTriState dispid 2020;
  2722.     property FollowMasterBackground: MsoTriState dispid 2021;
  2723.     property NotesPage: SlideRange readonly dispid 2022;
  2724.     property Master: Master readonly dispid 2023;
  2725.     property Hyperlinks: Hyperlinks readonly dispid 2024;
  2726.     procedure Export(const FileName: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  2727.                      ScaleHeight: SYSINT); dispid 2025;
  2728.     function  Item(index: OleVariant): PowerPointSlide; dispid 0;
  2729.     property _NewEnum: IUnknown readonly dispid -4;
  2730.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2731.     property Count: Integer readonly dispid 11;
  2732.   end;
  2733.  
  2734. // *********************************************************************//
  2735. // Interface: Master
  2736. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2737. // GUID:      {9149346C-5A91-11CF-8700-00AA0060263B}
  2738. // *********************************************************************//
  2739.   Master = interface(IDispatch)
  2740.     ['{9149346C-5A91-11CF-8700-00AA0060263B}']
  2741.     function  Get_Application: IDispatch; safecall;
  2742.     function  Get_Parent: IDispatch; safecall;
  2743.     function  Get_Shapes: Shapes; safecall;
  2744.     function  Get_HeadersFooters: HeadersFooters; safecall;
  2745.     function  Get_ColorScheme: ColorScheme; safecall;
  2746.     procedure Set_ColorScheme(const ColorScheme: ColorScheme); safecall;
  2747.     function  Get_Background: ShapeRange; safecall;
  2748.     function  Get_Name: WideString; safecall;
  2749.     procedure Set_Name(const Name: WideString); safecall;
  2750.     procedure Delete; safecall;
  2751.     function  Get_Height: Single; safecall;
  2752.     function  Get_Width: Single; safecall;
  2753.     function  Get_TextStyles: TextStyles; safecall;
  2754.     function  Get_Hyperlinks: Hyperlinks; safecall;
  2755.     property Application: IDispatch read Get_Application;
  2756.     property Parent: IDispatch read Get_Parent;
  2757.     property Shapes: Shapes read Get_Shapes;
  2758.     property HeadersFooters: HeadersFooters read Get_HeadersFooters;
  2759.     property ColorScheme: ColorScheme read Get_ColorScheme write Set_ColorScheme;
  2760.     property Background: ShapeRange read Get_Background;
  2761.     property Name: WideString read Get_Name write Set_Name;
  2762.     property Height: Single read Get_Height;
  2763.     property Width: Single read Get_Width;
  2764.     property TextStyles: TextStyles read Get_TextStyles;
  2765.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  2766.   end;
  2767.  
  2768. // *********************************************************************//
  2769. // DispIntf:  MasterDisp
  2770. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2771. // GUID:      {9149346C-5A91-11CF-8700-00AA0060263B}
  2772. // *********************************************************************//
  2773.   MasterDisp = dispinterface
  2774.     ['{9149346C-5A91-11CF-8700-00AA0060263B}']
  2775.     property Application: IDispatch readonly dispid 2001;
  2776.     property Parent: IDispatch readonly dispid 2002;
  2777.     property Shapes: Shapes readonly dispid 2003;
  2778.     property HeadersFooters: HeadersFooters readonly dispid 2004;
  2779.     property ColorScheme: ColorScheme dispid 2005;
  2780.     property Background: ShapeRange readonly dispid 2006;
  2781.     property Name: WideString dispid 2007;
  2782.     procedure Delete; dispid 2008;
  2783.     property Height: Single readonly dispid 2009;
  2784.     property Width: Single readonly dispid 2010;
  2785.     property TextStyles: TextStyles readonly dispid 2011;
  2786.     property Hyperlinks: Hyperlinks readonly dispid 2012;
  2787.   end;
  2788.  
  2789. // *********************************************************************//
  2790. // Interface: SldEvents
  2791. // Flags:     (16) Hidden
  2792. // GUID:      {9149346D-5A91-11CF-8700-00AA0060263B}
  2793. // *********************************************************************//
  2794.   SldEvents = interface(IUnknown)
  2795.     ['{9149346D-5A91-11CF-8700-00AA0060263B}']
  2796.   end;
  2797.  
  2798. // *********************************************************************//
  2799. // Interface: ColorSchemes
  2800. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2801. // GUID:      {9149346E-5A91-11CF-8700-00AA0060263B}
  2802. // *********************************************************************//
  2803.   ColorSchemes = interface(Collection)
  2804.     ['{9149346E-5A91-11CF-8700-00AA0060263B}']
  2805.     function  Get_Application: IDispatch; safecall;
  2806.     function  Get_Parent: IDispatch; safecall;
  2807.     function  Item(index: SYSINT): ColorScheme; safecall;
  2808.     function  Add(const Scheme: ColorScheme): ColorScheme; safecall;
  2809.     property Application: IDispatch read Get_Application;
  2810.     property Parent: IDispatch read Get_Parent;
  2811.   end;
  2812.  
  2813. // *********************************************************************//
  2814. // DispIntf:  ColorSchemesDisp
  2815. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2816. // GUID:      {9149346E-5A91-11CF-8700-00AA0060263B}
  2817. // *********************************************************************//
  2818.   ColorSchemesDisp = dispinterface
  2819.     ['{9149346E-5A91-11CF-8700-00AA0060263B}']
  2820.     property Application: IDispatch readonly dispid 2001;
  2821.     property Parent: IDispatch readonly dispid 2002;
  2822.     function  Item(index: SYSINT): ColorScheme; dispid 0;
  2823.     function  Add(const Scheme: ColorScheme): ColorScheme; dispid 2003;
  2824.     property _NewEnum: IUnknown readonly dispid -4;
  2825.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2826.     property Count: Integer readonly dispid 11;
  2827.   end;
  2828.  
  2829. // *********************************************************************//
  2830. // Interface: ColorScheme
  2831. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2832. // GUID:      {9149346F-5A91-11CF-8700-00AA0060263B}
  2833. // *********************************************************************//
  2834.   ColorScheme = interface(Collection)
  2835.     ['{9149346F-5A91-11CF-8700-00AA0060263B}']
  2836.     function  Get_Application: IDispatch; safecall;
  2837.     function  Get_Parent: IDispatch; safecall;
  2838.     function  Colors(SchemeColor: PpColorSchemeIndex): RGBColor; safecall;
  2839.     procedure Delete; safecall;
  2840.     property Application: IDispatch read Get_Application;
  2841.     property Parent: IDispatch read Get_Parent;
  2842.   end;
  2843.  
  2844. // *********************************************************************//
  2845. // DispIntf:  ColorSchemeDisp
  2846. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2847. // GUID:      {9149346F-5A91-11CF-8700-00AA0060263B}
  2848. // *********************************************************************//
  2849.   ColorSchemeDisp = dispinterface
  2850.     ['{9149346F-5A91-11CF-8700-00AA0060263B}']
  2851.     property Application: IDispatch readonly dispid 2001;
  2852.     property Parent: IDispatch readonly dispid 2002;
  2853.     function  Colors(SchemeColor: PpColorSchemeIndex): RGBColor; dispid 0;
  2854.     procedure Delete; dispid 2003;
  2855.     property _NewEnum: IUnknown readonly dispid -4;
  2856.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  2857.     property Count: Integer readonly dispid 11;
  2858.   end;
  2859.  
  2860. // *********************************************************************//
  2861. // Interface: RGBColor
  2862. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2863. // GUID:      {91493470-5A91-11CF-8700-00AA0060263B}
  2864. // *********************************************************************//
  2865.   RGBColor = interface(IDispatch)
  2866.     ['{91493470-5A91-11CF-8700-00AA0060263B}']
  2867.     function  Get_Application: IDispatch; safecall;
  2868.     function  Get_Parent: IDispatch; safecall;
  2869.     function  Get_RGB: MsoRGBType; safecall;
  2870.     procedure Set_RGB(RGB: MsoRGBType); safecall;
  2871.     property Application: IDispatch read Get_Application;
  2872.     property Parent: IDispatch read Get_Parent;
  2873.     property RGB: MsoRGBType read Get_RGB write Set_RGB;
  2874.   end;
  2875.  
  2876. // *********************************************************************//
  2877. // DispIntf:  RGBColorDisp
  2878. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2879. // GUID:      {91493470-5A91-11CF-8700-00AA0060263B}
  2880. // *********************************************************************//
  2881.   RGBColorDisp = dispinterface
  2882.     ['{91493470-5A91-11CF-8700-00AA0060263B}']
  2883.     property Application: IDispatch readonly dispid 2001;
  2884.     property Parent: IDispatch readonly dispid 2002;
  2885.     property RGB: MsoRGBType dispid 0;
  2886.   end;
  2887.  
  2888. // *********************************************************************//
  2889. // Interface: SlideShowTransition
  2890. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2891. // GUID:      {91493471-5A91-11CF-8700-00AA0060263B}
  2892. // *********************************************************************//
  2893.   SlideShowTransition = interface(IDispatch)
  2894.     ['{91493471-5A91-11CF-8700-00AA0060263B}']
  2895.     function  Get_Application: IDispatch; safecall;
  2896.     function  Get_Parent: IDispatch; safecall;
  2897.     function  Get_AdvanceOnClick: MsoTriState; safecall;
  2898.     procedure Set_AdvanceOnClick(AdvanceOnClick: MsoTriState); safecall;
  2899.     function  Get_AdvanceOnTime: MsoTriState; safecall;
  2900.     procedure Set_AdvanceOnTime(AdvanceOnTime: MsoTriState); safecall;
  2901.     function  Get_AdvanceTime: Single; safecall;
  2902.     procedure Set_AdvanceTime(AdvanceTime: Single); safecall;
  2903.     function  Get_EntryEffect: PpEntryEffect; safecall;
  2904.     procedure Set_EntryEffect(EntryEffect: PpEntryEffect); safecall;
  2905.     function  Get_Hidden: MsoTriState; safecall;
  2906.     procedure Set_Hidden(Hidden: MsoTriState); safecall;
  2907.     function  Get_LoopSoundUntilNext: MsoTriState; safecall;
  2908.     procedure Set_LoopSoundUntilNext(LoopSoundUntilNext: MsoTriState); safecall;
  2909.     function  Get_SoundEffect: SoundEffect; safecall;
  2910.     function  Get_Speed: PpTransitionSpeed; safecall;
  2911.     procedure Set_Speed(Speed: PpTransitionSpeed); safecall;
  2912.     property Application: IDispatch read Get_Application;
  2913.     property Parent: IDispatch read Get_Parent;
  2914.     property AdvanceOnClick: MsoTriState read Get_AdvanceOnClick write Set_AdvanceOnClick;
  2915.     property AdvanceOnTime: MsoTriState read Get_AdvanceOnTime write Set_AdvanceOnTime;
  2916.     property AdvanceTime: Single read Get_AdvanceTime write Set_AdvanceTime;
  2917.     property EntryEffect: PpEntryEffect read Get_EntryEffect write Set_EntryEffect;
  2918.     property Hidden: MsoTriState read Get_Hidden write Set_Hidden;
  2919.     property LoopSoundUntilNext: MsoTriState read Get_LoopSoundUntilNext write Set_LoopSoundUntilNext;
  2920.     property SoundEffect: SoundEffect read Get_SoundEffect;
  2921.     property Speed: PpTransitionSpeed read Get_Speed write Set_Speed;
  2922.   end;
  2923.  
  2924. // *********************************************************************//
  2925. // DispIntf:  SlideShowTransitionDisp
  2926. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2927. // GUID:      {91493471-5A91-11CF-8700-00AA0060263B}
  2928. // *********************************************************************//
  2929.   SlideShowTransitionDisp = dispinterface
  2930.     ['{91493471-5A91-11CF-8700-00AA0060263B}']
  2931.     property Application: IDispatch readonly dispid 2001;
  2932.     property Parent: IDispatch readonly dispid 2002;
  2933.     property AdvanceOnClick: MsoTriState dispid 2003;
  2934.     property AdvanceOnTime: MsoTriState dispid 2004;
  2935.     property AdvanceTime: Single dispid 2005;
  2936.     property EntryEffect: PpEntryEffect dispid 2006;
  2937.     property Hidden: MsoTriState dispid 2007;
  2938.     property LoopSoundUntilNext: MsoTriState dispid 2008;
  2939.     property SoundEffect: SoundEffect readonly dispid 2009;
  2940.     property Speed: PpTransitionSpeed dispid 2010;
  2941.   end;
  2942.  
  2943. // *********************************************************************//
  2944. // Interface: SoundEffect
  2945. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2946. // GUID:      {91493472-5A91-11CF-8700-00AA0060263B}
  2947. // *********************************************************************//
  2948.   SoundEffect = interface(IDispatch)
  2949.     ['{91493472-5A91-11CF-8700-00AA0060263B}']
  2950.     function  Get_Application: IDispatch; safecall;
  2951.     function  Get_Parent: IDispatch; safecall;
  2952.     function  Get_Name: WideString; safecall;
  2953.     procedure Set_Name(const Name: WideString); safecall;
  2954.     function  Get_Type_: PpSoundEffectType; safecall;
  2955.     procedure Set_Type_(Type_: PpSoundEffectType); safecall;
  2956.     procedure ImportFromFile(const FileName: WideString); safecall;
  2957.     procedure Play; safecall;
  2958.     property Application: IDispatch read Get_Application;
  2959.     property Parent: IDispatch read Get_Parent;
  2960.     property Name: WideString read Get_Name write Set_Name;
  2961.     property Type_: PpSoundEffectType read Get_Type_ write Set_Type_;
  2962.   end;
  2963.  
  2964. // *********************************************************************//
  2965. // DispIntf:  SoundEffectDisp
  2966. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2967. // GUID:      {91493472-5A91-11CF-8700-00AA0060263B}
  2968. // *********************************************************************//
  2969.   SoundEffectDisp = dispinterface
  2970.     ['{91493472-5A91-11CF-8700-00AA0060263B}']
  2971.     property Application: IDispatch readonly dispid 2001;
  2972.     property Parent: IDispatch readonly dispid 2002;
  2973.     property Name: WideString dispid 2003;
  2974.     property Type_: PpSoundEffectType dispid 2004;
  2975.     procedure ImportFromFile(const FileName: WideString); dispid 2005;
  2976.     procedure Play; dispid 2006;
  2977.   end;
  2978.  
  2979. // *********************************************************************//
  2980. // Interface: SoundFormat
  2981. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2982. // GUID:      {91493473-5A91-11CF-8700-00AA0060263B}
  2983. // *********************************************************************//
  2984.   SoundFormat = interface(IDispatch)
  2985.     ['{91493473-5A91-11CF-8700-00AA0060263B}']
  2986.     procedure Play; safecall;
  2987.     procedure Import(const FileName: WideString); safecall;
  2988.     function  Export(const FileName: WideString): PpSoundFormatType; safecall;
  2989.     function  Get_Type_: PpSoundFormatType; safecall;
  2990.     function  Get_SourceFullName: WideString; safecall;
  2991.     property Type_: PpSoundFormatType read Get_Type_;
  2992.     property SourceFullName: WideString read Get_SourceFullName;
  2993.   end;
  2994.  
  2995. // *********************************************************************//
  2996. // DispIntf:  SoundFormatDisp
  2997. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2998. // GUID:      {91493473-5A91-11CF-8700-00AA0060263B}
  2999. // *********************************************************************//
  3000.   SoundFormatDisp = dispinterface
  3001.     ['{91493473-5A91-11CF-8700-00AA0060263B}']
  3002.     procedure Play; dispid 2000;
  3003.     procedure Import(const FileName: WideString); dispid 2001;
  3004.     function  Export(const FileName: WideString): PpSoundFormatType; dispid 2002;
  3005.     property Type_: PpSoundFormatType readonly dispid 2003;
  3006.     property SourceFullName: WideString readonly dispid 2004;
  3007.   end;
  3008.  
  3009. // *********************************************************************//
  3010. // Interface: HeadersFooters
  3011. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3012. // GUID:      {91493474-5A91-11CF-8700-00AA0060263B}
  3013. // *********************************************************************//
  3014.   HeadersFooters = interface(IDispatch)
  3015.     ['{91493474-5A91-11CF-8700-00AA0060263B}']
  3016.     function  Get_Application: IDispatch; safecall;
  3017.     function  Get_Parent: IDispatch; safecall;
  3018.     function  Get_DateAndTime: HeaderFooter; safecall;
  3019.     function  Get_SlideNumber: HeaderFooter; safecall;
  3020.     function  Get_Header: HeaderFooter; safecall;
  3021.     function  Get_Footer: HeaderFooter; safecall;
  3022.     function  Get_DisplayOnTitleSlide: MsoTriState; safecall;
  3023.     procedure Set_DisplayOnTitleSlide(DisplayOnTitleSlide: MsoTriState); safecall;
  3024.     procedure Clear; safecall;
  3025.     property Application: IDispatch read Get_Application;
  3026.     property Parent: IDispatch read Get_Parent;
  3027.     property DateAndTime: HeaderFooter read Get_DateAndTime;
  3028.     property SlideNumber: HeaderFooter read Get_SlideNumber;
  3029.     property Header: HeaderFooter read Get_Header;
  3030.     property Footer: HeaderFooter read Get_Footer;
  3031.     property DisplayOnTitleSlide: MsoTriState read Get_DisplayOnTitleSlide write Set_DisplayOnTitleSlide;
  3032.   end;
  3033.  
  3034. // *********************************************************************//
  3035. // DispIntf:  HeadersFootersDisp
  3036. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3037. // GUID:      {91493474-5A91-11CF-8700-00AA0060263B}
  3038. // *********************************************************************//
  3039.   HeadersFootersDisp = dispinterface
  3040.     ['{91493474-5A91-11CF-8700-00AA0060263B}']
  3041.     property Application: IDispatch readonly dispid 2001;
  3042.     property Parent: IDispatch readonly dispid 2002;
  3043.     property DateAndTime: HeaderFooter readonly dispid 2003;
  3044.     property SlideNumber: HeaderFooter readonly dispid 2004;
  3045.     property Header: HeaderFooter readonly dispid 2005;
  3046.     property Footer: HeaderFooter readonly dispid 2006;
  3047.     property DisplayOnTitleSlide: MsoTriState dispid 2007;
  3048.     procedure Clear; dispid 2008;
  3049.   end;
  3050.  
  3051. // *********************************************************************//
  3052. // Interface: Shapes
  3053. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3054. // GUID:      {91493475-5A91-11CF-8700-00AA0060263B}
  3055. // *********************************************************************//
  3056.   Shapes = interface(IDispatch)
  3057.     ['{91493475-5A91-11CF-8700-00AA0060263B}']
  3058.     function  Get_Application: IDispatch; safecall;
  3059.     function  Get_Creator: Integer; safecall;
  3060.     function  Get_Parent: IDispatch; safecall;
  3061.     function  Get_Count: SYSINT; safecall;
  3062.     function  Item(index: OleVariant): Shape; safecall;
  3063.     function  Get__NewEnum: IUnknown; safecall;
  3064.     function  AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  3065.                          Height: Single): Shape; safecall;
  3066.     function  AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  3067.                            EndY: Single): Shape; safecall;
  3068.     function  AddCurve(SafeArrayOfPoints: OleVariant): Shape; safecall;
  3069.     function  AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3070.                        Height: Single): Shape; safecall;
  3071.     function  AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; safecall;
  3072.     function  AddPicture(const FileName: WideString; LinkToFile: MsoTriState; 
  3073.                          SaveWithDocument: MsoTriState; Left: Single; Top: Single; Width: Single; 
  3074.                          Height: Single): Shape; safecall;
  3075.     function  AddPolyline(SafeArrayOfPoints: OleVariant): Shape; safecall;
  3076.     function  AddShape(Type_: MsoAutoShapeType; Left: Single; Top: Single; Width: Single; 
  3077.                        Height: Single): Shape; safecall;
  3078.     function  AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  3079.                             const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  3080.                             FontItalic: MsoTriState; Left: Single; Top: Single): Shape; safecall;
  3081.     function  AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3082.                          Height: Single): Shape; safecall;
  3083.     function  BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; safecall;
  3084.     procedure SelectAll; safecall;
  3085.     function  Range(index: OleVariant): ShapeRange; safecall;
  3086.     function  Get_HasTitle: MsoTriState; safecall;
  3087.     function  AddTitle: Shape; safecall;
  3088.     function  Get_Title: Shape; safecall;
  3089.     function  Get_Placeholders: Placeholders; safecall;
  3090.     function  AddOLEObject(Left: Single; Top: Single; Width: Single; Height: Single; 
  3091.                            const ClassName: WideString; const FileName: WideString; 
  3092.                            DisplayAsIcon: MsoTriState; const IconFileName: WideString; 
  3093.                            IconIndex: SYSINT; const IconLabel: WideString; Link: MsoTriState): Shape; safecall;
  3094.     function  AddComment(Left: Single; Top: Single; Width: Single; Height: Single): Shape; safecall;
  3095.     function  AddPlaceholder(Type_: PpPlaceholderType; Left: Single; Top: Single; Width: Single; 
  3096.                              Height: Single): Shape; safecall;
  3097.     function  AddMediaObject(const FileName: WideString; Left: Single; Top: Single; Width: Single; 
  3098.                              Height: Single): Shape; safecall;
  3099.     function  Paste: ShapeRange; safecall;
  3100.     property Application: IDispatch read Get_Application;
  3101.     property Creator: Integer read Get_Creator;
  3102.     property Parent: IDispatch read Get_Parent;
  3103.     property Count: SYSINT read Get_Count;
  3104.     property _NewEnum: IUnknown read Get__NewEnum;
  3105.     property HasTitle: MsoTriState read Get_HasTitle;
  3106.     property Title: Shape read Get_Title;
  3107.     property Placeholders: Placeholders read Get_Placeholders;
  3108.   end;
  3109.  
  3110. // *********************************************************************//
  3111. // DispIntf:  ShapesDisp
  3112. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3113. // GUID:      {91493475-5A91-11CF-8700-00AA0060263B}
  3114. // *********************************************************************//
  3115.   ShapesDisp = dispinterface
  3116.     ['{91493475-5A91-11CF-8700-00AA0060263B}']
  3117.     property Application: IDispatch readonly dispid 2001;
  3118.     property Creator: Integer readonly dispid 2002;
  3119.     property Parent: IDispatch readonly dispid 1;
  3120.     property Count: SYSINT readonly dispid 2;
  3121.     function  Item(index: OleVariant): Shape; dispid 0;
  3122.     property _NewEnum: IUnknown readonly dispid -4;
  3123.     function  AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  3124.                          Height: Single): Shape; dispid 10;
  3125.     function  AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  3126.                            EndY: Single): Shape; dispid 11;
  3127.     function  AddCurve(SafeArrayOfPoints: OleVariant): Shape; dispid 12;
  3128.     function  AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3129.                        Height: Single): Shape; dispid 13;
  3130.     function  AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; dispid 14;
  3131.     function  AddPicture(const FileName: WideString; LinkToFile: MsoTriState; 
  3132.                          SaveWithDocument: MsoTriState; Left: Single; Top: Single; Width: Single; 
  3133.                          Height: Single): Shape; dispid 15;
  3134.     function  AddPolyline(SafeArrayOfPoints: OleVariant): Shape; dispid 16;
  3135.     function  AddShape(Type_: MsoAutoShapeType; Left: Single; Top: Single; Width: Single; 
  3136.                        Height: Single): Shape; dispid 17;
  3137.     function  AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  3138.                             const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  3139.                             FontItalic: MsoTriState; Left: Single; Top: Single): Shape; dispid 18;
  3140.     function  AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3141.                          Height: Single): Shape; dispid 19;
  3142.     function  BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; dispid 20;
  3143.     procedure SelectAll; dispid 22;
  3144.     function  Range(index: OleVariant): ShapeRange; dispid 2003;
  3145.     property HasTitle: MsoTriState readonly dispid 2004;
  3146.     function  AddTitle: Shape; dispid 2005;
  3147.     property Title: Shape readonly dispid 2006;
  3148.     property Placeholders: Placeholders readonly dispid 2007;
  3149.     function  AddOLEObject(Left: Single; Top: Single; Width: Single; Height: Single; 
  3150.                            const ClassName: WideString; const FileName: WideString; 
  3151.                            DisplayAsIcon: MsoTriState; const IconFileName: WideString; 
  3152.                            IconIndex: SYSINT; const IconLabel: WideString; Link: MsoTriState): Shape; dispid 2008;
  3153.     function  AddComment(Left: Single; Top: Single; Width: Single; Height: Single): Shape; dispid 2009;
  3154.     function  AddPlaceholder(Type_: PpPlaceholderType; Left: Single; Top: Single; Width: Single; 
  3155.                              Height: Single): Shape; dispid 2010;
  3156.     function  AddMediaObject(const FileName: WideString; Left: Single; Top: Single; Width: Single; 
  3157.                              Height: Single): Shape; dispid 2011;
  3158.     function  Paste: ShapeRange; dispid 2012;
  3159.   end;
  3160.  
  3161. // *********************************************************************//
  3162. // Interface: Placeholders
  3163. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3164. // GUID:      {91493476-5A91-11CF-8700-00AA0060263B}
  3165. // *********************************************************************//
  3166.   Placeholders = interface(Collection)
  3167.     ['{91493476-5A91-11CF-8700-00AA0060263B}']
  3168.     function  Get_Application: IDispatch; safecall;
  3169.     function  Get_Parent: IDispatch; safecall;
  3170.     function  Item(index: SYSINT): Shape; safecall;
  3171.     property Application: IDispatch read Get_Application;
  3172.     property Parent: IDispatch read Get_Parent;
  3173.   end;
  3174.  
  3175. // *********************************************************************//
  3176. // DispIntf:  PlaceholdersDisp
  3177. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3178. // GUID:      {91493476-5A91-11CF-8700-00AA0060263B}
  3179. // *********************************************************************//
  3180.   PlaceholdersDisp = dispinterface
  3181.     ['{91493476-5A91-11CF-8700-00AA0060263B}']
  3182.     property Application: IDispatch readonly dispid 2001;
  3183.     property Parent: IDispatch readonly dispid 2002;
  3184.     function  Item(index: SYSINT): Shape; dispid 0;
  3185.     property _NewEnum: IUnknown readonly dispid -4;
  3186.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  3187.     property Count: Integer readonly dispid 11;
  3188.   end;
  3189.  
  3190. // *********************************************************************//
  3191. // Interface: PlaceholderFormat
  3192. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3193. // GUID:      {91493477-5A91-11CF-8700-00AA0060263B}
  3194. // *********************************************************************//
  3195.   PlaceholderFormat = interface(IDispatch)
  3196.     ['{91493477-5A91-11CF-8700-00AA0060263B}']
  3197.     function  Get_Application: IDispatch; safecall;
  3198.     function  Get_Parent: IDispatch; safecall;
  3199.     function  Get_Type_: PpPlaceholderType; safecall;
  3200.     property Application: IDispatch read Get_Application;
  3201.     property Parent: IDispatch read Get_Parent;
  3202.     property Type_: PpPlaceholderType read Get_Type_;
  3203.   end;
  3204.  
  3205. // *********************************************************************//
  3206. // DispIntf:  PlaceholderFormatDisp
  3207. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3208. // GUID:      {91493477-5A91-11CF-8700-00AA0060263B}
  3209. // *********************************************************************//
  3210.   PlaceholderFormatDisp = dispinterface
  3211.     ['{91493477-5A91-11CF-8700-00AA0060263B}']
  3212.     property Application: IDispatch readonly dispid 2001;
  3213.     property Parent: IDispatch readonly dispid 2002;
  3214.     property Type_: PpPlaceholderType readonly dispid 2003;
  3215.   end;
  3216.  
  3217. // *********************************************************************//
  3218. // Interface: FreeformBuilder
  3219. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3220. // GUID:      {91493478-5A91-11CF-8700-00AA0060263B}
  3221. // *********************************************************************//
  3222.   FreeformBuilder = interface(IDispatch)
  3223.     ['{91493478-5A91-11CF-8700-00AA0060263B}']
  3224.     function  Get_Application: IDispatch; safecall;
  3225.     function  Get_Creator: Integer; safecall;
  3226.     function  Get_Parent: IDispatch; safecall;
  3227.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  3228.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  3229.     function  ConvertToShape: Shape; safecall;
  3230.     property Application: IDispatch read Get_Application;
  3231.     property Creator: Integer read Get_Creator;
  3232.     property Parent: IDispatch read Get_Parent;
  3233.   end;
  3234.  
  3235. // *********************************************************************//
  3236. // DispIntf:  FreeformBuilderDisp
  3237. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3238. // GUID:      {91493478-5A91-11CF-8700-00AA0060263B}
  3239. // *********************************************************************//
  3240.   FreeformBuilderDisp = dispinterface
  3241.     ['{91493478-5A91-11CF-8700-00AA0060263B}']
  3242.     property Application: IDispatch readonly dispid 2001;
  3243.     property Creator: Integer readonly dispid 2002;
  3244.     property Parent: IDispatch readonly dispid 1;
  3245.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  3246.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 10;
  3247.     function  ConvertToShape: Shape; dispid 11;
  3248.   end;
  3249.  
  3250. // *********************************************************************//
  3251. // Interface: Shape
  3252. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3253. // GUID:      {91493479-5A91-11CF-8700-00AA0060263B}
  3254. // *********************************************************************//
  3255.   Shape = interface(IDispatch)
  3256.     ['{91493479-5A91-11CF-8700-00AA0060263B}']
  3257.     function  Get_Application: IDispatch; safecall;
  3258.     function  Get_Creator: Integer; safecall;
  3259.     function  Get_Parent: IDispatch; safecall;
  3260.     procedure Apply; safecall;
  3261.     procedure Delete; safecall;
  3262.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  3263.     procedure IncrementLeft(Increment: Single); safecall;
  3264.     procedure IncrementRotation(Increment: Single); safecall;
  3265.     procedure IncrementTop(Increment: Single); safecall;
  3266.     procedure PickUp; safecall;
  3267.     procedure RerouteConnections; safecall;
  3268.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3269.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3270.     procedure SetShapesDefaultProperties; safecall;
  3271.     function  Ungroup: ShapeRange; safecall;
  3272.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  3273.     function  Get_Adjustments: Adjustments; safecall;
  3274.     function  Get_AutoShapeType: MsoAutoShapeType; safecall;
  3275.     procedure Set_AutoShapeType(AutoShapeType: MsoAutoShapeType); safecall;
  3276.     function  Get_BlackWhiteMode: MsoBlackWhiteMode; safecall;
  3277.     procedure Set_BlackWhiteMode(BlackWhiteMode: MsoBlackWhiteMode); safecall;
  3278.     function  Get_Callout: CalloutFormat; safecall;
  3279.     function  Get_ConnectionSiteCount: SYSINT; safecall;
  3280.     function  Get_Connector: MsoTriState; safecall;
  3281.     function  Get_ConnectorFormat: ConnectorFormat; safecall;
  3282.     function  Get_Fill: FillFormat; safecall;
  3283.     function  Get_GroupItems: GroupShapes; safecall;
  3284.     function  Get_Height: Single; safecall;
  3285.     procedure Set_Height(Height: Single); safecall;
  3286.     function  Get_HorizontalFlip: MsoTriState; safecall;
  3287.     function  Get_Left: Single; safecall;
  3288.     procedure Set_Left(Left: Single); safecall;
  3289.     function  Get_Line: LineFormat; safecall;
  3290.     function  Get_LockAspectRatio: MsoTriState; safecall;
  3291.     procedure Set_LockAspectRatio(LockAspectRatio: MsoTriState); safecall;
  3292.     function  Get_Name: WideString; safecall;
  3293.     procedure Set_Name(const Name: WideString); safecall;
  3294.     function  Get_Nodes: ShapeNodes; safecall;
  3295.     function  Get_Rotation: Single; safecall;
  3296.     procedure Set_Rotation(Rotation: Single); safecall;
  3297.     function  Get_PictureFormat: PictureFormat; safecall;
  3298.     function  Get_Shadow: ShadowFormat; safecall;
  3299.     function  Get_TextEffect: TextEffectFormat; safecall;
  3300.     function  Get_TextFrame: TextFrame; safecall;
  3301.     function  Get_ThreeD: ThreeDFormat; safecall;
  3302.     function  Get_Top: Single; safecall;
  3303.     procedure Set_Top(Top: Single); safecall;
  3304.     function  Get_Type_: MsoShapeType; safecall;
  3305.     function  Get_VerticalFlip: MsoTriState; safecall;
  3306.     function  Get_Vertices: OleVariant; safecall;
  3307.     function  Get_Visible: MsoTriState; safecall;
  3308.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3309.     function  Get_Width: Single; safecall;
  3310.     procedure Set_Width(Width: Single); safecall;
  3311.     function  Get_ZOrderPosition: SYSINT; safecall;
  3312.     function  Get_OLEFormat: OLEFormat; safecall;
  3313.     function  Get_LinkFormat: LinkFormat; safecall;
  3314.     function  Get_PlaceholderFormat: PlaceholderFormat; safecall;
  3315.     function  Get_AnimationSettings: AnimationSettings; safecall;
  3316.     function  Get_ActionSettings: ActionSettings; safecall;
  3317.     function  Get_Tags: Tags; safecall;
  3318.     procedure Cut; safecall;
  3319.     procedure Copy; safecall;
  3320.     procedure Select(Replace: MsoTriState); safecall;
  3321.     function  Duplicate: ShapeRange; safecall;
  3322.     function  Get_MediaType: PpMediaType; safecall;
  3323.     function  Get_HasTextFrame: MsoTriState; safecall;
  3324.     function  Get_SoundFormat: SoundFormat; safecall;
  3325.     property Application: IDispatch read Get_Application;
  3326.     property Creator: Integer read Get_Creator;
  3327.     property Parent: IDispatch read Get_Parent;
  3328.     property Adjustments: Adjustments read Get_Adjustments;
  3329.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  3330.     property BlackWhiteMode: MsoBlackWhiteMode read Get_BlackWhiteMode write Set_BlackWhiteMode;
  3331.     property Callout: CalloutFormat read Get_Callout;
  3332.     property ConnectionSiteCount: SYSINT read Get_ConnectionSiteCount;
  3333.     property Connector: MsoTriState read Get_Connector;
  3334.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  3335.     property Fill: FillFormat read Get_Fill;
  3336.     property GroupItems: GroupShapes read Get_GroupItems;
  3337.     property Height: Single read Get_Height write Set_Height;
  3338.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  3339.     property Left: Single read Get_Left write Set_Left;
  3340.     property Line: LineFormat read Get_Line;
  3341.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  3342.     property Name: WideString read Get_Name write Set_Name;
  3343.     property Nodes: ShapeNodes read Get_Nodes;
  3344.     property Rotation: Single read Get_Rotation write Set_Rotation;
  3345.     property PictureFormat: PictureFormat read Get_PictureFormat;
  3346.     property Shadow: ShadowFormat read Get_Shadow;
  3347.     property TextEffect: TextEffectFormat read Get_TextEffect;
  3348.     property TextFrame: TextFrame read Get_TextFrame;
  3349.     property ThreeD: ThreeDFormat read Get_ThreeD;
  3350.     property Top: Single read Get_Top write Set_Top;
  3351.     property Type_: MsoShapeType read Get_Type_;
  3352.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  3353.     property Vertices: OleVariant read Get_Vertices;
  3354.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3355.     property Width: Single read Get_Width write Set_Width;
  3356.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  3357.     property OLEFormat: OLEFormat read Get_OLEFormat;
  3358.     property LinkFormat: LinkFormat read Get_LinkFormat;
  3359.     property PlaceholderFormat: PlaceholderFormat read Get_PlaceholderFormat;
  3360.     property AnimationSettings: AnimationSettings read Get_AnimationSettings;
  3361.     property ActionSettings: ActionSettings read Get_ActionSettings;
  3362.     property Tags: Tags read Get_Tags;
  3363.     property MediaType: PpMediaType read Get_MediaType;
  3364.     property HasTextFrame: MsoTriState read Get_HasTextFrame;
  3365.     property SoundFormat: SoundFormat read Get_SoundFormat;
  3366.   end;
  3367.  
  3368. // *********************************************************************//
  3369. // DispIntf:  ShapeDisp
  3370. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3371. // GUID:      {91493479-5A91-11CF-8700-00AA0060263B}
  3372. // *********************************************************************//
  3373.   ShapeDisp = dispinterface
  3374.     ['{91493479-5A91-11CF-8700-00AA0060263B}']
  3375.     property Application: IDispatch readonly dispid 2001;
  3376.     property Creator: Integer readonly dispid 2002;
  3377.     property Parent: IDispatch readonly dispid 1;
  3378.     procedure Apply; dispid 10;
  3379.     procedure Delete; dispid 11;
  3380.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 13;
  3381.     procedure IncrementLeft(Increment: Single); dispid 14;
  3382.     procedure IncrementRotation(Increment: Single); dispid 15;
  3383.     procedure IncrementTop(Increment: Single); dispid 16;
  3384.     procedure PickUp; dispid 17;
  3385.     procedure RerouteConnections; dispid 18;
  3386.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 19;
  3387.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 20;
  3388.     procedure SetShapesDefaultProperties; dispid 22;
  3389.     function  Ungroup: ShapeRange; dispid 23;
  3390.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 24;
  3391.     property Adjustments: Adjustments readonly dispid 100;
  3392.     property AutoShapeType: MsoAutoShapeType dispid 101;
  3393.     property BlackWhiteMode: MsoBlackWhiteMode dispid 102;
  3394.     property Callout: CalloutFormat readonly dispid 103;
  3395.     property ConnectionSiteCount: SYSINT readonly dispid 104;
  3396.     property Connector: MsoTriState readonly dispid 105;
  3397.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  3398.     property Fill: FillFormat readonly dispid 107;
  3399.     property GroupItems: GroupShapes readonly dispid 108;
  3400.     property Height: Single dispid 109;
  3401.     property HorizontalFlip: MsoTriState readonly dispid 110;
  3402.     property Left: Single dispid 111;
  3403.     property Line: LineFormat readonly dispid 112;
  3404.     property LockAspectRatio: MsoTriState dispid 113;
  3405.     property Name: WideString dispid 115;
  3406.     property Nodes: ShapeNodes readonly dispid 116;
  3407.     property Rotation: Single dispid 117;
  3408.     property PictureFormat: PictureFormat readonly dispid 118;
  3409.     property Shadow: ShadowFormat readonly dispid 119;
  3410.     property TextEffect: TextEffectFormat readonly dispid 120;
  3411.     property TextFrame: TextFrame readonly dispid 121;
  3412.     property ThreeD: ThreeDFormat readonly dispid 122;
  3413.     property Top: Single dispid 123;
  3414.     property Type_: MsoShapeType readonly dispid 124;
  3415.     property VerticalFlip: MsoTriState readonly dispid 125;
  3416.     property Vertices: OleVariant readonly dispid 126;
  3417.     property Visible: MsoTriState dispid 127;
  3418.     property Width: Single dispid 128;
  3419.     property ZOrderPosition: SYSINT readonly dispid 129;
  3420.     property OLEFormat: OLEFormat readonly dispid 2003;
  3421.     property LinkFormat: LinkFormat readonly dispid 2004;
  3422.     property PlaceholderFormat: PlaceholderFormat readonly dispid 2005;
  3423.     property AnimationSettings: AnimationSettings readonly dispid 2006;
  3424.     property ActionSettings: ActionSettings readonly dispid 2007;
  3425.     property Tags: Tags readonly dispid 2008;
  3426.     procedure Cut; dispid 2009;
  3427.     procedure Copy; dispid 2010;
  3428.     procedure Select(Replace: MsoTriState); dispid 2011;
  3429.     function  Duplicate: ShapeRange; dispid 2012;
  3430.     property MediaType: PpMediaType readonly dispid 2013;
  3431.     property HasTextFrame: MsoTriState readonly dispid 2014;
  3432.     property SoundFormat: SoundFormat readonly dispid 2015;
  3433.   end;
  3434.  
  3435. // *********************************************************************//
  3436. // Interface: ShapeRange
  3437. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3438. // GUID:      {9149347A-5A91-11CF-8700-00AA0060263B}
  3439. // *********************************************************************//
  3440.   ShapeRange = interface(IDispatch)
  3441.     ['{9149347A-5A91-11CF-8700-00AA0060263B}']
  3442.     function  Get_Application: IDispatch; safecall;
  3443.     function  Get_Creator: Integer; safecall;
  3444.     function  Get_Parent: IDispatch; safecall;
  3445.     procedure Apply; safecall;
  3446.     procedure Delete; safecall;
  3447.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  3448.     procedure IncrementLeft(Increment: Single); safecall;
  3449.     procedure IncrementRotation(Increment: Single); safecall;
  3450.     procedure IncrementTop(Increment: Single); safecall;
  3451.     procedure PickUp; safecall;
  3452.     procedure RerouteConnections; safecall;
  3453.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3454.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3455.     procedure SetShapesDefaultProperties; safecall;
  3456.     function  Ungroup: ShapeRange; safecall;
  3457.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  3458.     function  Get_Adjustments: Adjustments; safecall;
  3459.     function  Get_AutoShapeType: MsoAutoShapeType; safecall;
  3460.     procedure Set_AutoShapeType(AutoShapeType: MsoAutoShapeType); safecall;
  3461.     function  Get_BlackWhiteMode: MsoBlackWhiteMode; safecall;
  3462.     procedure Set_BlackWhiteMode(BlackWhiteMode: MsoBlackWhiteMode); safecall;
  3463.     function  Get_Callout: CalloutFormat; safecall;
  3464.     function  Get_ConnectionSiteCount: SYSINT; safecall;
  3465.     function  Get_Connector: MsoTriState; safecall;
  3466.     function  Get_ConnectorFormat: ConnectorFormat; safecall;
  3467.     function  Get_Fill: FillFormat; safecall;
  3468.     function  Get_GroupItems: GroupShapes; safecall;
  3469.     function  Get_Height: Single; safecall;
  3470.     procedure Set_Height(Height: Single); safecall;
  3471.     function  Get_HorizontalFlip: MsoTriState; safecall;
  3472.     function  Get_Left: Single; safecall;
  3473.     procedure Set_Left(Left: Single); safecall;
  3474.     function  Get_Line: LineFormat; safecall;
  3475.     function  Get_LockAspectRatio: MsoTriState; safecall;
  3476.     procedure Set_LockAspectRatio(LockAspectRatio: MsoTriState); safecall;
  3477.     function  Get_Name: WideString; safecall;
  3478.     procedure Set_Name(const Name: WideString); safecall;
  3479.     function  Get_Nodes: ShapeNodes; safecall;
  3480.     function  Get_Rotation: Single; safecall;
  3481.     procedure Set_Rotation(Rotation: Single); safecall;
  3482.     function  Get_PictureFormat: PictureFormat; safecall;
  3483.     function  Get_Shadow: ShadowFormat; safecall;
  3484.     function  Get_TextEffect: TextEffectFormat; safecall;
  3485.     function  Get_TextFrame: TextFrame; safecall;
  3486.     function  Get_ThreeD: ThreeDFormat; safecall;
  3487.     function  Get_Top: Single; safecall;
  3488.     procedure Set_Top(Top: Single); safecall;
  3489.     function  Get_Type_: MsoShapeType; safecall;
  3490.     function  Get_VerticalFlip: MsoTriState; safecall;
  3491.     function  Get_Vertices: OleVariant; safecall;
  3492.     function  Get_Visible: MsoTriState; safecall;
  3493.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3494.     function  Get_Width: Single; safecall;
  3495.     procedure Set_Width(Width: Single); safecall;
  3496.     function  Get_ZOrderPosition: SYSINT; safecall;
  3497.     function  Get_OLEFormat: OLEFormat; safecall;
  3498.     function  Get_LinkFormat: LinkFormat; safecall;
  3499.     function  Get_PlaceholderFormat: PlaceholderFormat; safecall;
  3500.     function  Get_AnimationSettings: AnimationSettings; safecall;
  3501.     function  Get_ActionSettings: ActionSettings; safecall;
  3502.     function  Get_Tags: Tags; safecall;
  3503.     procedure Cut; safecall;
  3504.     procedure Copy; safecall;
  3505.     procedure Select(Replace: MsoTriState); safecall;
  3506.     function  Duplicate: ShapeRange; safecall;
  3507.     function  Get_MediaType: PpMediaType; safecall;
  3508.     function  Get_HasTextFrame: MsoTriState; safecall;
  3509.     function  Get_SoundFormat: SoundFormat; safecall;
  3510.     function  Item(index: OleVariant): Shape; safecall;
  3511.     function  Get__NewEnum: IUnknown; safecall;
  3512.     function  _Index(index: SYSINT): OleVariant; safecall;
  3513.     function  Get_Count: Integer; safecall;
  3514.     function  Group: Shape; safecall;
  3515.     function  Regroup: Shape; safecall;
  3516.     procedure Align(AlignCmd: MsoAlignCmd; RelativeTo: MsoTriState); safecall;
  3517.     procedure Distribute(DistributeCmd: MsoDistributeCmd; RelativeTo: MsoTriState); safecall;
  3518.     procedure GetPolygonalRepresentation(maxPointsInBuffer: LongWord; var pPoints: Single; 
  3519.                                          out numPointsInPolygon: LongWord; out IsOpen: MsoTriState); safecall;
  3520.     property Application: IDispatch read Get_Application;
  3521.     property Creator: Integer read Get_Creator;
  3522.     property Parent: IDispatch read Get_Parent;
  3523.     property Adjustments: Adjustments read Get_Adjustments;
  3524.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  3525.     property BlackWhiteMode: MsoBlackWhiteMode read Get_BlackWhiteMode write Set_BlackWhiteMode;
  3526.     property Callout: CalloutFormat read Get_Callout;
  3527.     property ConnectionSiteCount: SYSINT read Get_ConnectionSiteCount;
  3528.     property Connector: MsoTriState read Get_Connector;
  3529.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  3530.     property Fill: FillFormat read Get_Fill;
  3531.     property GroupItems: GroupShapes read Get_GroupItems;
  3532.     property Height: Single read Get_Height write Set_Height;
  3533.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  3534.     property Left: Single read Get_Left write Set_Left;
  3535.     property Line: LineFormat read Get_Line;
  3536.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  3537.     property Name: WideString read Get_Name write Set_Name;
  3538.     property Nodes: ShapeNodes read Get_Nodes;
  3539.     property Rotation: Single read Get_Rotation write Set_Rotation;
  3540.     property PictureFormat: PictureFormat read Get_PictureFormat;
  3541.     property Shadow: ShadowFormat read Get_Shadow;
  3542.     property TextEffect: TextEffectFormat read Get_TextEffect;
  3543.     property TextFrame: TextFrame read Get_TextFrame;
  3544.     property ThreeD: ThreeDFormat read Get_ThreeD;
  3545.     property Top: Single read Get_Top write Set_Top;
  3546.     property Type_: MsoShapeType read Get_Type_;
  3547.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  3548.     property Vertices: OleVariant read Get_Vertices;
  3549.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3550.     property Width: Single read Get_Width write Set_Width;
  3551.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  3552.     property OLEFormat: OLEFormat read Get_OLEFormat;
  3553.     property LinkFormat: LinkFormat read Get_LinkFormat;
  3554.     property PlaceholderFormat: PlaceholderFormat read Get_PlaceholderFormat;
  3555.     property AnimationSettings: AnimationSettings read Get_AnimationSettings;
  3556.     property ActionSettings: ActionSettings read Get_ActionSettings;
  3557.     property Tags: Tags read Get_Tags;
  3558.     property MediaType: PpMediaType read Get_MediaType;
  3559.     property HasTextFrame: MsoTriState read Get_HasTextFrame;
  3560.     property SoundFormat: SoundFormat read Get_SoundFormat;
  3561.     property _NewEnum: IUnknown read Get__NewEnum;
  3562.     property Count: Integer read Get_Count;
  3563.   end;
  3564.  
  3565. // *********************************************************************//
  3566. // DispIntf:  ShapeRangeDisp
  3567. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3568. // GUID:      {9149347A-5A91-11CF-8700-00AA0060263B}
  3569. // *********************************************************************//
  3570.   ShapeRangeDisp = dispinterface
  3571.     ['{9149347A-5A91-11CF-8700-00AA0060263B}']
  3572.     property Application: IDispatch readonly dispid 2001;
  3573.     property Creator: Integer readonly dispid 2002;
  3574.     property Parent: IDispatch readonly dispid 1;
  3575.     procedure Apply; dispid 10;
  3576.     procedure Delete; dispid 11;
  3577.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 13;
  3578.     procedure IncrementLeft(Increment: Single); dispid 14;
  3579.     procedure IncrementRotation(Increment: Single); dispid 15;
  3580.     procedure IncrementTop(Increment: Single); dispid 16;
  3581.     procedure PickUp; dispid 17;
  3582.     procedure RerouteConnections; dispid 18;
  3583.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 19;
  3584.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 20;
  3585.     procedure SetShapesDefaultProperties; dispid 22;
  3586.     function  Ungroup: ShapeRange; dispid 23;
  3587.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 24;
  3588.     property Adjustments: Adjustments readonly dispid 100;
  3589.     property AutoShapeType: MsoAutoShapeType dispid 101;
  3590.     property BlackWhiteMode: MsoBlackWhiteMode dispid 102;
  3591.     property Callout: CalloutFormat readonly dispid 103;
  3592.     property ConnectionSiteCount: SYSINT readonly dispid 104;
  3593.     property Connector: MsoTriState readonly dispid 105;
  3594.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  3595.     property Fill: FillFormat readonly dispid 107;
  3596.     property GroupItems: GroupShapes readonly dispid 108;
  3597.     property Height: Single dispid 109;
  3598.     property HorizontalFlip: MsoTriState readonly dispid 110;
  3599.     property Left: Single dispid 111;
  3600.     property Line: LineFormat readonly dispid 112;
  3601.     property LockAspectRatio: MsoTriState dispid 113;
  3602.     property Name: WideString dispid 115;
  3603.     property Nodes: ShapeNodes readonly dispid 116;
  3604.     property Rotation: Single dispid 117;
  3605.     property PictureFormat: PictureFormat readonly dispid 118;
  3606.     property Shadow: ShadowFormat readonly dispid 119;
  3607.     property TextEffect: TextEffectFormat readonly dispid 120;
  3608.     property TextFrame: TextFrame readonly dispid 121;
  3609.     property ThreeD: ThreeDFormat readonly dispid 122;
  3610.     property Top: Single dispid 123;
  3611.     property Type_: MsoShapeType readonly dispid 124;
  3612.     property VerticalFlip: MsoTriState readonly dispid 125;
  3613.     property Vertices: OleVariant readonly dispid 126;
  3614.     property Visible: MsoTriState dispid 127;
  3615.     property Width: Single dispid 128;
  3616.     property ZOrderPosition: SYSINT readonly dispid 129;
  3617.     property OLEFormat: OLEFormat readonly dispid 2003;
  3618.     property LinkFormat: LinkFormat readonly dispid 2004;
  3619.     property PlaceholderFormat: PlaceholderFormat readonly dispid 2005;
  3620.     property AnimationSettings: AnimationSettings readonly dispid 2006;
  3621.     property ActionSettings: ActionSettings readonly dispid 2007;
  3622.     property Tags: Tags readonly dispid 2008;
  3623.     procedure Cut; dispid 2009;
  3624.     procedure Copy; dispid 2010;
  3625.     procedure Select(Replace: MsoTriState); dispid 2011;
  3626.     function  Duplicate: ShapeRange; dispid 2012;
  3627.     property MediaType: PpMediaType readonly dispid 2013;
  3628.     property HasTextFrame: MsoTriState readonly dispid 2014;
  3629.     property SoundFormat: SoundFormat readonly dispid 2015;
  3630.     function  Item(index: OleVariant): Shape; dispid 0;
  3631.     property _NewEnum: IUnknown readonly dispid -4;
  3632.     function  _Index(index: SYSINT): OleVariant; dispid 8;
  3633.     property Count: Integer readonly dispid 9;
  3634.     function  Group: Shape; dispid 2016;
  3635.     function  Regroup: Shape; dispid 2017;
  3636.     procedure Align(AlignCmd: MsoAlignCmd; RelativeTo: MsoTriState); dispid 2018;
  3637.     procedure Distribute(DistributeCmd: MsoDistributeCmd; RelativeTo: MsoTriState); dispid 2019;
  3638.     procedure GetPolygonalRepresentation(maxPointsInBuffer: LongWord; var pPoints: Single; 
  3639.                                          out numPointsInPolygon: LongWord; out IsOpen: MsoTriState); dispid 2020;
  3640.   end;
  3641.  
  3642. // *********************************************************************//
  3643. // Interface: GroupShapes
  3644. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3645. // GUID:      {9149347B-5A91-11CF-8700-00AA0060263B}
  3646. // *********************************************************************//
  3647.   GroupShapes = interface(IDispatch)
  3648.     ['{9149347B-5A91-11CF-8700-00AA0060263B}']
  3649.     function  Get_Application: IDispatch; safecall;
  3650.     function  Get_Creator: Integer; safecall;
  3651.     function  Get_Parent: IDispatch; safecall;
  3652.     function  Get_Count: SYSINT; safecall;
  3653.     function  Item(index: OleVariant): Shape; safecall;
  3654.     function  Get__NewEnum: IUnknown; safecall;
  3655.     property Application: IDispatch read Get_Application;
  3656.     property Creator: Integer read Get_Creator;
  3657.     property Parent: IDispatch read Get_Parent;
  3658.     property Count: SYSINT read Get_Count;
  3659.     property _NewEnum: IUnknown read Get__NewEnum;
  3660.   end;
  3661.  
  3662. // *********************************************************************//
  3663. // DispIntf:  GroupShapesDisp
  3664. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3665. // GUID:      {9149347B-5A91-11CF-8700-00AA0060263B}
  3666. // *********************************************************************//
  3667.   GroupShapesDisp = dispinterface
  3668.     ['{9149347B-5A91-11CF-8700-00AA0060263B}']
  3669.     property Application: IDispatch readonly dispid 2001;
  3670.     property Creator: Integer readonly dispid 2002;
  3671.     property Parent: IDispatch readonly dispid 1;
  3672.     property Count: SYSINT readonly dispid 2;
  3673.     function  Item(index: OleVariant): Shape; dispid 0;
  3674.     property _NewEnum: IUnknown readonly dispid -4;
  3675.   end;
  3676.  
  3677. // *********************************************************************//
  3678. // Interface: Adjustments
  3679. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3680. // GUID:      {9149347C-5A91-11CF-8700-00AA0060263B}
  3681. // *********************************************************************//
  3682.   Adjustments = interface(IDispatch)
  3683.     ['{9149347C-5A91-11CF-8700-00AA0060263B}']
  3684.     function  Get_Application: IDispatch; safecall;
  3685.     function  Get_Creator: Integer; safecall;
  3686.     function  Get_Parent: IDispatch; safecall;
  3687.     function  Get_Count: SYSINT; safecall;
  3688.     function  Get_Item(index: SYSINT): Single; safecall;
  3689.     procedure Set_Item(index: SYSINT; Val: Single); safecall;
  3690.     property Application: IDispatch read Get_Application;
  3691.     property Creator: Integer read Get_Creator;
  3692.     property Parent: IDispatch read Get_Parent;
  3693.     property Count: SYSINT read Get_Count;
  3694.     property Item[index: SYSINT]: Single read Get_Item write Set_Item; default;
  3695.   end;
  3696.  
  3697. // *********************************************************************//
  3698. // DispIntf:  AdjustmentsDisp
  3699. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3700. // GUID:      {9149347C-5A91-11CF-8700-00AA0060263B}
  3701. // *********************************************************************//
  3702.   AdjustmentsDisp = dispinterface
  3703.     ['{9149347C-5A91-11CF-8700-00AA0060263B}']
  3704.     property Application: IDispatch readonly dispid 2001;
  3705.     property Creator: Integer readonly dispid 2002;
  3706.     property Parent: IDispatch readonly dispid 1;
  3707.     property Count: SYSINT readonly dispid 2;
  3708.     property Item[index: SYSINT]: Single dispid 0; default;
  3709.   end;
  3710.  
  3711. // *********************************************************************//
  3712. // Interface: PictureFormat
  3713. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3714. // GUID:      {9149347D-5A91-11CF-8700-00AA0060263B}
  3715. // *********************************************************************//
  3716.   PictureFormat = interface(IDispatch)
  3717.     ['{9149347D-5A91-11CF-8700-00AA0060263B}']
  3718.     function  Get_Application: IDispatch; safecall;
  3719.     function  Get_Creator: Integer; safecall;
  3720.     function  Get_Parent: IDispatch; safecall;
  3721.     procedure IncrementBrightness(Increment: Single); safecall;
  3722.     procedure IncrementContrast(Increment: Single); safecall;
  3723.     function  Get_Brightness: Single; safecall;
  3724.     procedure Set_Brightness(Brightness: Single); safecall;
  3725.     function  Get_ColorType: MsoPictureColorType; safecall;
  3726.     procedure Set_ColorType(ColorType: MsoPictureColorType); safecall;
  3727.     function  Get_Contrast: Single; safecall;
  3728.     procedure Set_Contrast(Contrast: Single); safecall;
  3729.     function  Get_CropBottom: Single; safecall;
  3730.     procedure Set_CropBottom(CropBottom: Single); safecall;
  3731.     function  Get_CropLeft: Single; safecall;
  3732.     procedure Set_CropLeft(CropLeft: Single); safecall;
  3733.     function  Get_CropRight: Single; safecall;
  3734.     procedure Set_CropRight(CropRight: Single); safecall;
  3735.     function  Get_CropTop: Single; safecall;
  3736.     procedure Set_CropTop(CropTop: Single); safecall;
  3737.     function  Get_TransparencyColor: MsoRGBType; safecall;
  3738.     procedure Set_TransparencyColor(TransparencyColor: MsoRGBType); safecall;
  3739.     function  Get_TransparentBackground: MsoTriState; safecall;
  3740.     procedure Set_TransparentBackground(TransparentBackground: MsoTriState); safecall;
  3741.     property Application: IDispatch read Get_Application;
  3742.     property Creator: Integer read Get_Creator;
  3743.     property Parent: IDispatch read Get_Parent;
  3744.     property Brightness: Single read Get_Brightness write Set_Brightness;
  3745.     property ColorType: MsoPictureColorType read Get_ColorType write Set_ColorType;
  3746.     property Contrast: Single read Get_Contrast write Set_Contrast;
  3747.     property CropBottom: Single read Get_CropBottom write Set_CropBottom;
  3748.     property CropLeft: Single read Get_CropLeft write Set_CropLeft;
  3749.     property CropRight: Single read Get_CropRight write Set_CropRight;
  3750.     property CropTop: Single read Get_CropTop write Set_CropTop;
  3751.     property TransparencyColor: MsoRGBType read Get_TransparencyColor write Set_TransparencyColor;
  3752.     property TransparentBackground: MsoTriState read Get_TransparentBackground write Set_TransparentBackground;
  3753.   end;
  3754.  
  3755. // *********************************************************************//
  3756. // DispIntf:  PictureFormatDisp
  3757. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3758. // GUID:      {9149347D-5A91-11CF-8700-00AA0060263B}
  3759. // *********************************************************************//
  3760.   PictureFormatDisp = dispinterface
  3761.     ['{9149347D-5A91-11CF-8700-00AA0060263B}']
  3762.     property Application: IDispatch readonly dispid 2001;
  3763.     property Creator: Integer readonly dispid 2002;
  3764.     property Parent: IDispatch readonly dispid 1;
  3765.     procedure IncrementBrightness(Increment: Single); dispid 10;
  3766.     procedure IncrementContrast(Increment: Single); dispid 11;
  3767.     property Brightness: Single dispid 100;
  3768.     property ColorType: MsoPictureColorType dispid 101;
  3769.     property Contrast: Single dispid 102;
  3770.     property CropBottom: Single dispid 103;
  3771.     property CropLeft: Single dispid 104;
  3772.     property CropRight: Single dispid 105;
  3773.     property CropTop: Single dispid 106;
  3774.     property TransparencyColor: MsoRGBType dispid 107;
  3775.     property TransparentBackground: MsoTriState dispid 108;
  3776.   end;
  3777.  
  3778. // *********************************************************************//
  3779. // Interface: FillFormat
  3780. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3781. // GUID:      {9149347E-5A91-11CF-8700-00AA0060263B}
  3782. // *********************************************************************//
  3783.   FillFormat = interface(IDispatch)
  3784.     ['{9149347E-5A91-11CF-8700-00AA0060263B}']
  3785.     function  Get_Application: IDispatch; safecall;
  3786.     function  Get_Creator: Integer; safecall;
  3787.     function  Get_Parent: IDispatch; safecall;
  3788.     procedure Background; safecall;
  3789.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: SYSINT; Degree: Single); safecall;
  3790.     procedure Patterned(Pattern: MsoPatternType); safecall;
  3791.     procedure PresetGradient(Style: MsoGradientStyle; Variant: SYSINT; 
  3792.                              PresetGradientType: MsoPresetGradientType); safecall;
  3793.     procedure PresetTextured(PresetTexture: MsoPresetTexture); safecall;
  3794.     procedure Solid; safecall;
  3795.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: SYSINT); safecall;
  3796.     procedure UserPicture(const PictureFile: WideString); safecall;
  3797.     procedure UserTextured(const TextureFile: WideString); safecall;
  3798.     function  Get_BackColor: ColorFormat; safecall;
  3799.     procedure Set_BackColor(const BackColor: ColorFormat); safecall;
  3800.     function  Get_ForeColor: ColorFormat; safecall;
  3801.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  3802.     function  Get_GradientColorType: MsoGradientColorType; safecall;
  3803.     function  Get_GradientDegree: Single; safecall;
  3804.     function  Get_GradientStyle: MsoGradientStyle; safecall;
  3805.     function  Get_GradientVariant: SYSINT; safecall;
  3806.     function  Get_Pattern: MsoPatternType; safecall;
  3807.     function  Get_PresetGradientType: MsoPresetGradientType; safecall;
  3808.     function  Get_PresetTexture: MsoPresetTexture; safecall;
  3809.     function  Get_TextureName: WideString; safecall;
  3810.     function  Get_TextureType: MsoTextureType; safecall;
  3811.     function  Get_Transparency: Single; safecall;
  3812.     procedure Set_Transparency(Transparency: Single); safecall;
  3813.     function  Get_Type_: MsoFillType; safecall;
  3814.     function  Get_Visible: MsoTriState; safecall;
  3815.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3816.     property Application: IDispatch read Get_Application;
  3817.     property Creator: Integer read Get_Creator;
  3818.     property Parent: IDispatch read Get_Parent;
  3819.     property BackColor: ColorFormat read Get_BackColor write Set_BackColor;
  3820.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  3821.     property GradientColorType: MsoGradientColorType read Get_GradientColorType;
  3822.     property GradientDegree: Single read Get_GradientDegree;
  3823.     property GradientStyle: MsoGradientStyle read Get_GradientStyle;
  3824.     property GradientVariant: SYSINT read Get_GradientVariant;
  3825.     property Pattern: MsoPatternType read Get_Pattern;
  3826.     property PresetGradientType: MsoPresetGradientType read Get_PresetGradientType;
  3827.     property PresetTexture: MsoPresetTexture read Get_PresetTexture;
  3828.     property TextureName: WideString read Get_TextureName;
  3829.     property TextureType: MsoTextureType read Get_TextureType;
  3830.     property Transparency: Single read Get_Transparency write Set_Transparency;
  3831.     property Type_: MsoFillType read Get_Type_;
  3832.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3833.   end;
  3834.  
  3835. // *********************************************************************//
  3836. // DispIntf:  FillFormatDisp
  3837. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3838. // GUID:      {9149347E-5A91-11CF-8700-00AA0060263B}
  3839. // *********************************************************************//
  3840.   FillFormatDisp = dispinterface
  3841.     ['{9149347E-5A91-11CF-8700-00AA0060263B}']
  3842.     property Application: IDispatch readonly dispid 2001;
  3843.     property Creator: Integer readonly dispid 2002;
  3844.     property Parent: IDispatch readonly dispid 1;
  3845.     procedure Background; dispid 10;
  3846.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: SYSINT; Degree: Single); dispid 11;
  3847.     procedure Patterned(Pattern: MsoPatternType); dispid 12;
  3848.     procedure PresetGradient(Style: MsoGradientStyle; Variant: SYSINT; 
  3849.                              PresetGradientType: MsoPresetGradientType); dispid 13;
  3850.     procedure PresetTextured(PresetTexture: MsoPresetTexture); dispid 14;
  3851.     procedure Solid; dispid 15;
  3852.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: SYSINT); dispid 16;
  3853.     procedure UserPicture(const PictureFile: WideString); dispid 17;
  3854.     procedure UserTextured(const TextureFile: WideString); dispid 18;
  3855.     property BackColor: ColorFormat dispid 100;
  3856.     property ForeColor: ColorFormat dispid 101;
  3857.     property GradientColorType: MsoGradientColorType readonly dispid 102;
  3858.     property GradientDegree: Single readonly dispid 103;
  3859.     property GradientStyle: MsoGradientStyle readonly dispid 104;
  3860.     property GradientVariant: SYSINT readonly dispid 105;
  3861.     property Pattern: MsoPatternType readonly dispid 106;
  3862.     property PresetGradientType: MsoPresetGradientType readonly dispid 107;
  3863.     property PresetTexture: MsoPresetTexture readonly dispid 108;
  3864.     property TextureName: WideString readonly dispid 109;
  3865.     property TextureType: MsoTextureType readonly dispid 110;
  3866.     property Transparency: Single dispid 111;
  3867.     property Type_: MsoFillType readonly dispid 112;
  3868.     property Visible: MsoTriState dispid 113;
  3869.   end;
  3870.  
  3871. // *********************************************************************//
  3872. // Interface: LineFormat
  3873. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3874. // GUID:      {9149347F-5A91-11CF-8700-00AA0060263B}
  3875. // *********************************************************************//
  3876.   LineFormat = interface(IDispatch)
  3877.     ['{9149347F-5A91-11CF-8700-00AA0060263B}']
  3878.     function  Get_Application: IDispatch; safecall;
  3879.     function  Get_Creator: Integer; safecall;
  3880.     function  Get_Parent: IDispatch; safecall;
  3881.     function  Get_BackColor: ColorFormat; safecall;
  3882.     procedure Set_BackColor(const BackColor: ColorFormat); safecall;
  3883.     function  Get_BeginArrowheadLength: MsoArrowheadLength; safecall;
  3884.     procedure Set_BeginArrowheadLength(BeginArrowheadLength: MsoArrowheadLength); safecall;
  3885.     function  Get_BeginArrowheadStyle: MsoArrowheadStyle; safecall;
  3886.     procedure Set_BeginArrowheadStyle(BeginArrowheadStyle: MsoArrowheadStyle); safecall;
  3887.     function  Get_BeginArrowheadWidth: MsoArrowheadWidth; safecall;
  3888.     procedure Set_BeginArrowheadWidth(BeginArrowheadWidth: MsoArrowheadWidth); safecall;
  3889.     function  Get_DashStyle: MsoLineDashStyle; safecall;
  3890.     procedure Set_DashStyle(DashStyle: MsoLineDashStyle); safecall;
  3891.     function  Get_EndArrowheadLength: MsoArrowheadLength; safecall;
  3892.     procedure Set_EndArrowheadLength(EndArrowheadLength: MsoArrowheadLength); safecall;
  3893.     function  Get_EndArrowheadStyle: MsoArrowheadStyle; safecall;
  3894.     procedure Set_EndArrowheadStyle(EndArrowheadStyle: MsoArrowheadStyle); safecall;
  3895.     function  Get_EndArrowheadWidth: MsoArrowheadWidth; safecall;
  3896.     procedure Set_EndArrowheadWidth(EndArrowheadWidth: MsoArrowheadWidth); safecall;
  3897.     function  Get_ForeColor: ColorFormat; safecall;
  3898.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  3899.     function  Get_Pattern: MsoPatternType; safecall;
  3900.     procedure Set_Pattern(Pattern: MsoPatternType); safecall;
  3901.     function  Get_Style: MsoLineStyle; safecall;
  3902.     procedure Set_Style(Style: MsoLineStyle); safecall;
  3903.     function  Get_Transparency: Single; safecall;
  3904.     procedure Set_Transparency(Transparency: Single); safecall;
  3905.     function  Get_Visible: MsoTriState; safecall;
  3906.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3907.     function  Get_Weight: Single; safecall;
  3908.     procedure Set_Weight(Weight: Single); safecall;
  3909.     property Application: IDispatch read Get_Application;
  3910.     property Creator: Integer read Get_Creator;
  3911.     property Parent: IDispatch read Get_Parent;
  3912.     property BackColor: ColorFormat read Get_BackColor write Set_BackColor;
  3913.     property BeginArrowheadLength: MsoArrowheadLength read Get_BeginArrowheadLength write Set_BeginArrowheadLength;
  3914.     property BeginArrowheadStyle: MsoArrowheadStyle read Get_BeginArrowheadStyle write Set_BeginArrowheadStyle;
  3915.     property BeginArrowheadWidth: MsoArrowheadWidth read Get_BeginArrowheadWidth write Set_BeginArrowheadWidth;
  3916.     property DashStyle: MsoLineDashStyle read Get_DashStyle write Set_DashStyle;
  3917.     property EndArrowheadLength: MsoArrowheadLength read Get_EndArrowheadLength write Set_EndArrowheadLength;
  3918.     property EndArrowheadStyle: MsoArrowheadStyle read Get_EndArrowheadStyle write Set_EndArrowheadStyle;
  3919.     property EndArrowheadWidth: MsoArrowheadWidth read Get_EndArrowheadWidth write Set_EndArrowheadWidth;
  3920.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  3921.     property Pattern: MsoPatternType read Get_Pattern write Set_Pattern;
  3922.     property Style: MsoLineStyle read Get_Style write Set_Style;
  3923.     property Transparency: Single read Get_Transparency write Set_Transparency;
  3924.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3925.     property Weight: Single read Get_Weight write Set_Weight;
  3926.   end;
  3927.  
  3928. // *********************************************************************//
  3929. // DispIntf:  LineFormatDisp
  3930. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3931. // GUID:      {9149347F-5A91-11CF-8700-00AA0060263B}
  3932. // *********************************************************************//
  3933.   LineFormatDisp = dispinterface
  3934.     ['{9149347F-5A91-11CF-8700-00AA0060263B}']
  3935.     property Application: IDispatch readonly dispid 2001;
  3936.     property Creator: Integer readonly dispid 2002;
  3937.     property Parent: IDispatch readonly dispid 1;
  3938.     property BackColor: ColorFormat dispid 100;
  3939.     property BeginArrowheadLength: MsoArrowheadLength dispid 101;
  3940.     property BeginArrowheadStyle: MsoArrowheadStyle dispid 102;
  3941.     property BeginArrowheadWidth: MsoArrowheadWidth dispid 103;
  3942.     property DashStyle: MsoLineDashStyle dispid 104;
  3943.     property EndArrowheadLength: MsoArrowheadLength dispid 105;
  3944.     property EndArrowheadStyle: MsoArrowheadStyle dispid 106;
  3945.     property EndArrowheadWidth: MsoArrowheadWidth dispid 107;
  3946.     property ForeColor: ColorFormat dispid 108;
  3947.     property Pattern: MsoPatternType dispid 109;
  3948.     property Style: MsoLineStyle dispid 110;
  3949.     property Transparency: Single dispid 111;
  3950.     property Visible: MsoTriState dispid 112;
  3951.     property Weight: Single dispid 113;
  3952.   end;
  3953.  
  3954. // *********************************************************************//
  3955. // Interface: ShadowFormat
  3956. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3957. // GUID:      {91493480-5A91-11CF-8700-00AA0060263B}
  3958. // *********************************************************************//
  3959.   ShadowFormat = interface(IDispatch)
  3960.     ['{91493480-5A91-11CF-8700-00AA0060263B}']
  3961.     function  Get_Application: IDispatch; safecall;
  3962.     function  Get_Creator: Integer; safecall;
  3963.     function  Get_Parent: IDispatch; safecall;
  3964.     procedure IncrementOffsetX(Increment: Single); safecall;
  3965.     procedure IncrementOffsetY(Increment: Single); safecall;
  3966.     function  Get_ForeColor: ColorFormat; safecall;
  3967.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  3968.     function  Get_Obscured: MsoTriState; safecall;
  3969.     procedure Set_Obscured(Obscured: MsoTriState); safecall;
  3970.     function  Get_OffsetX: Single; safecall;
  3971.     procedure Set_OffsetX(OffsetX: Single); safecall;
  3972.     function  Get_OffsetY: Single; safecall;
  3973.     procedure Set_OffsetY(OffsetY: Single); safecall;
  3974.     function  Get_Transparency: Single; safecall;
  3975.     procedure Set_Transparency(Transparency: Single); safecall;
  3976.     function  Get_Type_: MsoShadowType; safecall;
  3977.     procedure Set_Type_(Type_: MsoShadowType); safecall;
  3978.     function  Get_Visible: MsoTriState; safecall;
  3979.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3980.     property Application: IDispatch read Get_Application;
  3981.     property Creator: Integer read Get_Creator;
  3982.     property Parent: IDispatch read Get_Parent;
  3983.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  3984.     property Obscured: MsoTriState read Get_Obscured write Set_Obscured;
  3985.     property OffsetX: Single read Get_OffsetX write Set_OffsetX;
  3986.     property OffsetY: Single read Get_OffsetY write Set_OffsetY;
  3987.     property Transparency: Single read Get_Transparency write Set_Transparency;
  3988.     property Type_: MsoShadowType read Get_Type_ write Set_Type_;
  3989.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3990.   end;
  3991.  
  3992. // *********************************************************************//
  3993. // DispIntf:  ShadowFormatDisp
  3994. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3995. // GUID:      {91493480-5A91-11CF-8700-00AA0060263B}
  3996. // *********************************************************************//
  3997.   ShadowFormatDisp = dispinterface
  3998.     ['{91493480-5A91-11CF-8700-00AA0060263B}']
  3999.     property Application: IDispatch readonly dispid 2001;
  4000.     property Creator: Integer readonly dispid 2002;
  4001.     property Parent: IDispatch readonly dispid 1;
  4002.     procedure IncrementOffsetX(Increment: Single); dispid 10;
  4003.     procedure IncrementOffsetY(Increment: Single); dispid 11;
  4004.     property ForeColor: ColorFormat dispid 100;
  4005.     property Obscured: MsoTriState dispid 101;
  4006.     property OffsetX: Single dispid 102;
  4007.     property OffsetY: Single dispid 103;
  4008.     property Transparency: Single dispid 104;
  4009.     property Type_: MsoShadowType dispid 105;
  4010.     property Visible: MsoTriState dispid 106;
  4011.   end;
  4012.  
  4013. // *********************************************************************//
  4014. // Interface: ConnectorFormat
  4015. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4016. // GUID:      {91493481-5A91-11CF-8700-00AA0060263B}
  4017. // *********************************************************************//
  4018.   ConnectorFormat = interface(IDispatch)
  4019.     ['{91493481-5A91-11CF-8700-00AA0060263B}']
  4020.     function  Get_Application: IDispatch; safecall;
  4021.     function  Get_Creator: Integer; safecall;
  4022.     function  Get_Parent: IDispatch; safecall;
  4023.     procedure BeginConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); safecall;
  4024.     procedure BeginDisconnect; safecall;
  4025.     procedure EndConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); safecall;
  4026.     procedure EndDisconnect; safecall;
  4027.     function  Get_BeginConnected: MsoTriState; safecall;
  4028.     function  Get_BeginConnectedShape: Shape; safecall;
  4029.     function  Get_BeginConnectionSite: SYSINT; safecall;
  4030.     function  Get_EndConnected: MsoTriState; safecall;
  4031.     function  Get_EndConnectedShape: Shape; safecall;
  4032.     function  Get_EndConnectionSite: SYSINT; safecall;
  4033.     function  Get_Type_: MsoConnectorType; safecall;
  4034.     procedure Set_Type_(Type_: MsoConnectorType); safecall;
  4035.     property Application: IDispatch read Get_Application;
  4036.     property Creator: Integer read Get_Creator;
  4037.     property Parent: IDispatch read Get_Parent;
  4038.     property BeginConnected: MsoTriState read Get_BeginConnected;
  4039.     property BeginConnectedShape: Shape read Get_BeginConnectedShape;
  4040.     property BeginConnectionSite: SYSINT read Get_BeginConnectionSite;
  4041.     property EndConnected: MsoTriState read Get_EndConnected;
  4042.     property EndConnectedShape: Shape read Get_EndConnectedShape;
  4043.     property EndConnectionSite: SYSINT read Get_EndConnectionSite;
  4044.     property Type_: MsoConnectorType read Get_Type_ write Set_Type_;
  4045.   end;
  4046.  
  4047. // *********************************************************************//
  4048. // DispIntf:  ConnectorFormatDisp
  4049. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4050. // GUID:      {91493481-5A91-11CF-8700-00AA0060263B}
  4051. // *********************************************************************//
  4052.   ConnectorFormatDisp = dispinterface
  4053.     ['{91493481-5A91-11CF-8700-00AA0060263B}']
  4054.     property Application: IDispatch readonly dispid 2001;
  4055.     property Creator: Integer readonly dispid 2002;
  4056.     property Parent: IDispatch readonly dispid 1;
  4057.     procedure BeginConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); dispid 10;
  4058.     procedure BeginDisconnect; dispid 11;
  4059.     procedure EndConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); dispid 12;
  4060.     procedure EndDisconnect; dispid 13;
  4061.     property BeginConnected: MsoTriState readonly dispid 100;
  4062.     property BeginConnectedShape: Shape readonly dispid 101;
  4063.     property BeginConnectionSite: SYSINT readonly dispid 102;
  4064.     property EndConnected: MsoTriState readonly dispid 103;
  4065.     property EndConnectedShape: Shape readonly dispid 104;
  4066.     property EndConnectionSite: SYSINT readonly dispid 105;
  4067.     property Type_: MsoConnectorType dispid 106;
  4068.   end;
  4069.  
  4070. // *********************************************************************//
  4071. // Interface: TextEffectFormat
  4072. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4073. // GUID:      {91493482-5A91-11CF-8700-00AA0060263B}
  4074. // *********************************************************************//
  4075.   TextEffectFormat = interface(IDispatch)
  4076.     ['{91493482-5A91-11CF-8700-00AA0060263B}']
  4077.     function  Get_Application: IDispatch; safecall;
  4078.     function  Get_Creator: Integer; safecall;
  4079.     function  Get_Parent: IDispatch; safecall;
  4080.     procedure ToggleVerticalText; safecall;
  4081.     function  Get_Alignment: MsoTextEffectAlignment; safecall;
  4082.     procedure Set_Alignment(Alignment: MsoTextEffectAlignment); safecall;
  4083.     function  Get_FontBold: MsoTriState; safecall;
  4084.     procedure Set_FontBold(FontBold: MsoTriState); safecall;
  4085.     function  Get_FontItalic: MsoTriState; safecall;
  4086.     procedure Set_FontItalic(FontItalic: MsoTriState); safecall;
  4087.     function  Get_FontName: WideString; safecall;
  4088.     procedure Set_FontName(const FontName: WideString); safecall;
  4089.     function  Get_FontSize: Single; safecall;
  4090.     procedure Set_FontSize(FontSize: Single); safecall;
  4091.     function  Get_KernedPairs: MsoTriState; safecall;
  4092.     procedure Set_KernedPairs(KernedPairs: MsoTriState); safecall;
  4093.     function  Get_NormalizedHeight: MsoTriState; safecall;
  4094.     procedure Set_NormalizedHeight(NormalizedHeight: MsoTriState); safecall;
  4095.     function  Get_PresetShape: MsoPresetTextEffectShape; safecall;
  4096.     procedure Set_PresetShape(PresetShape: MsoPresetTextEffectShape); safecall;
  4097.     function  Get_PresetTextEffect: MsoPresetTextEffect; safecall;
  4098.     procedure Set_PresetTextEffect(Preset: MsoPresetTextEffect); safecall;
  4099.     function  Get_RotatedChars: MsoTriState; safecall;
  4100.     procedure Set_RotatedChars(RotatedChars: MsoTriState); safecall;
  4101.     function  Get_Text: WideString; safecall;
  4102.     procedure Set_Text(const Text: WideString); safecall;
  4103.     function  Get_Tracking: Single; safecall;
  4104.     procedure Set_Tracking(Tracking: Single); safecall;
  4105.     property Application: IDispatch read Get_Application;
  4106.     property Creator: Integer read Get_Creator;
  4107.     property Parent: IDispatch read Get_Parent;
  4108.     property Alignment: MsoTextEffectAlignment read Get_Alignment write Set_Alignment;
  4109.     property FontBold: MsoTriState read Get_FontBold write Set_FontBold;
  4110.     property FontItalic: MsoTriState read Get_FontItalic write Set_FontItalic;
  4111.     property FontName: WideString read Get_FontName write Set_FontName;
  4112.     property FontSize: Single read Get_FontSize write Set_FontSize;
  4113.     property KernedPairs: MsoTriState read Get_KernedPairs write Set_KernedPairs;
  4114.     property NormalizedHeight: MsoTriState read Get_NormalizedHeight write Set_NormalizedHeight;
  4115.     property PresetShape: MsoPresetTextEffectShape read Get_PresetShape write Set_PresetShape;
  4116.     property PresetTextEffect: MsoPresetTextEffect read Get_PresetTextEffect write Set_PresetTextEffect;
  4117.     property RotatedChars: MsoTriState read Get_RotatedChars write Set_RotatedChars;
  4118.     property Text: WideString read Get_Text write Set_Text;
  4119.     property Tracking: Single read Get_Tracking write Set_Tracking;
  4120.   end;
  4121.  
  4122. // *********************************************************************//
  4123. // DispIntf:  TextEffectFormatDisp
  4124. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4125. // GUID:      {91493482-5A91-11CF-8700-00AA0060263B}
  4126. // *********************************************************************//
  4127.   TextEffectFormatDisp = dispinterface
  4128.     ['{91493482-5A91-11CF-8700-00AA0060263B}']
  4129.     property Application: IDispatch readonly dispid 2001;
  4130.     property Creator: Integer readonly dispid 2002;
  4131.     property Parent: IDispatch readonly dispid 1;
  4132.     procedure ToggleVerticalText; dispid 10;
  4133.     property Alignment: MsoTextEffectAlignment dispid 100;
  4134.     property FontBold: MsoTriState dispid 101;
  4135.     property FontItalic: MsoTriState dispid 102;
  4136.     property FontName: WideString dispid 103;
  4137.     property FontSize: Single dispid 104;
  4138.     property KernedPairs: MsoTriState dispid 105;
  4139.     property NormalizedHeight: MsoTriState dispid 106;
  4140.     property PresetShape: MsoPresetTextEffectShape dispid 107;
  4141.     property PresetTextEffect: MsoPresetTextEffect dispid 108;
  4142.     property RotatedChars: MsoTriState dispid 109;
  4143.     property Text: WideString dispid 110;
  4144.     property Tracking: Single dispid 111;
  4145.   end;
  4146.  
  4147. // *********************************************************************//
  4148. // Interface: ThreeDFormat
  4149. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4150. // GUID:      {91493483-5A91-11CF-8700-00AA0060263B}
  4151. // *********************************************************************//
  4152.   ThreeDFormat = interface(IDispatch)
  4153.     ['{91493483-5A91-11CF-8700-00AA0060263B}']
  4154.     function  Get_Application: IDispatch; safecall;
  4155.     function  Get_Creator: Integer; safecall;
  4156.     function  Get_Parent: IDispatch; safecall;
  4157.     procedure IncrementRotationX(Increment: Single); safecall;
  4158.     procedure IncrementRotationY(Increment: Single); safecall;
  4159.     procedure ResetRotation; safecall;
  4160.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); safecall;
  4161.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); safecall;
  4162.     function  Get_Depth: Single; safecall;
  4163.     procedure Set_Depth(Depth: Single); safecall;
  4164.     function  Get_ExtrusionColor: ColorFormat; safecall;
  4165.     function  Get_ExtrusionColorType: MsoExtrusionColorType; safecall;
  4166.     procedure Set_ExtrusionColorType(ExtrusionColorType: MsoExtrusionColorType); safecall;
  4167.     function  Get_Perspective: MsoTriState; safecall;
  4168.     procedure Set_Perspective(Perspective: MsoTriState); safecall;
  4169.     function  Get_PresetExtrusionDirection: MsoPresetExtrusionDirection; safecall;
  4170.     function  Get_PresetLightingDirection: MsoPresetLightingDirection; safecall;
  4171.     procedure Set_PresetLightingDirection(PresetLightingDirection: MsoPresetLightingDirection); safecall;
  4172.     function  Get_PresetLightingSoftness: MsoPresetLightingSoftness; safecall;
  4173.     procedure Set_PresetLightingSoftness(PresetLightingSoftness: MsoPresetLightingSoftness); safecall;
  4174.     function  Get_PresetMaterial: MsoPresetMaterial; safecall;
  4175.     procedure Set_PresetMaterial(PresetMaterial: MsoPresetMaterial); safecall;
  4176.     function  Get_PresetThreeDFormat: MsoPresetThreeDFormat; safecall;
  4177.     function  Get_RotationX: Single; safecall;
  4178.     procedure Set_RotationX(RotationX: Single); safecall;
  4179.     function  Get_RotationY: Single; safecall;
  4180.     procedure Set_RotationY(RotationY: Single); safecall;
  4181.     function  Get_Visible: MsoTriState; safecall;
  4182.     procedure Set_Visible(Visible: MsoTriState); safecall;
  4183.     property Application: IDispatch read Get_Application;
  4184.     property Creator: Integer read Get_Creator;
  4185.     property Parent: IDispatch read Get_Parent;
  4186.     property Depth: Single read Get_Depth write Set_Depth;
  4187.     property ExtrusionColor: ColorFormat read Get_ExtrusionColor;
  4188.     property ExtrusionColorType: MsoExtrusionColorType read Get_ExtrusionColorType write Set_ExtrusionColorType;
  4189.     property Perspective: MsoTriState read Get_Perspective write Set_Perspective;
  4190.     property PresetExtrusionDirection: MsoPresetExtrusionDirection read Get_PresetExtrusionDirection;
  4191.     property PresetLightingDirection: MsoPresetLightingDirection read Get_PresetLightingDirection write Set_PresetLightingDirection;
  4192.     property PresetLightingSoftness: MsoPresetLightingSoftness read Get_PresetLightingSoftness write Set_PresetLightingSoftness;
  4193.     property PresetMaterial: MsoPresetMaterial read Get_PresetMaterial write Set_PresetMaterial;
  4194.     property PresetThreeDFormat: MsoPresetThreeDFormat read Get_PresetThreeDFormat;
  4195.     property RotationX: Single read Get_RotationX write Set_RotationX;
  4196.     property RotationY: Single read Get_RotationY write Set_RotationY;
  4197.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  4198.   end;
  4199.  
  4200. // *********************************************************************//
  4201. // DispIntf:  ThreeDFormatDisp
  4202. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4203. // GUID:      {91493483-5A91-11CF-8700-00AA0060263B}
  4204. // *********************************************************************//
  4205.   ThreeDFormatDisp = dispinterface
  4206.     ['{91493483-5A91-11CF-8700-00AA0060263B}']
  4207.     property Application: IDispatch readonly dispid 2001;
  4208.     property Creator: Integer readonly dispid 2002;
  4209.     property Parent: IDispatch readonly dispid 1;
  4210.     procedure IncrementRotationX(Increment: Single); dispid 10;
  4211.     procedure IncrementRotationY(Increment: Single); dispid 11;
  4212.     procedure ResetRotation; dispid 12;
  4213.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); dispid 13;
  4214.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); dispid 14;
  4215.     property Depth: Single dispid 100;
  4216.     property ExtrusionColor: ColorFormat readonly dispid 101;
  4217.     property ExtrusionColorType: MsoExtrusionColorType dispid 102;
  4218.     property Perspective: MsoTriState dispid 103;
  4219.     property PresetExtrusionDirection: MsoPresetExtrusionDirection readonly dispid 104;
  4220.     property PresetLightingDirection: MsoPresetLightingDirection dispid 105;
  4221.     property PresetLightingSoftness: MsoPresetLightingSoftness dispid 106;
  4222.     property PresetMaterial: MsoPresetMaterial dispid 107;
  4223.     property PresetThreeDFormat: MsoPresetThreeDFormat readonly dispid 108;
  4224.     property RotationX: Single dispid 109;
  4225.     property RotationY: Single dispid 110;
  4226.     property Visible: MsoTriState dispid 111;
  4227.   end;
  4228.  
  4229. // *********************************************************************//
  4230. // Interface: TextFrame
  4231. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4232. // GUID:      {91493484-5A91-11CF-8700-00AA0060263B}
  4233. // *********************************************************************//
  4234.   TextFrame = interface(IDispatch)
  4235.     ['{91493484-5A91-11CF-8700-00AA0060263B}']
  4236.     function  Get_Application: IDispatch; safecall;
  4237.     function  Get_Creator: Integer; safecall;
  4238.     function  Get_Parent: IDispatch; safecall;
  4239.     function  Get_MarginBottom: Single; safecall;
  4240.     procedure Set_MarginBottom(MarginBottom: Single); safecall;
  4241.     function  Get_MarginLeft: Single; safecall;
  4242.     procedure Set_MarginLeft(MarginLeft: Single); safecall;
  4243.     function  Get_MarginRight: Single; safecall;
  4244.     procedure Set_MarginRight(MarginRight: Single); safecall;
  4245.     function  Get_MarginTop: Single; safecall;
  4246.     procedure Set_MarginTop(MarginTop: Single); safecall;
  4247.     function  Get_Orientation: MsoTextOrientation; safecall;
  4248.     procedure Set_Orientation(Orientation: MsoTextOrientation); safecall;
  4249.     function  Get_HasText: MsoTriState; safecall;
  4250.     function  Get_TextRange: TextRange; safecall;
  4251.     function  Get_Ruler: Ruler; safecall;
  4252.     function  Get_HorizontalAnchor: MsoHorizontalAnchor; safecall;
  4253.     procedure Set_HorizontalAnchor(HorizontalAnchor: MsoHorizontalAnchor); safecall;
  4254.     function  Get_VerticalAnchor: MsoVerticalAnchor; safecall;
  4255.     procedure Set_VerticalAnchor(VerticalAnchor: MsoVerticalAnchor); safecall;
  4256.     function  Get_AutoSize: PpAutoSize; safecall;
  4257.     procedure Set_AutoSize(AutoSize: PpAutoSize); safecall;
  4258.     function  Get_WordWrap: MsoTriState; safecall;
  4259.     procedure Set_WordWrap(WordWrap: MsoTriState); safecall;
  4260.     procedure DeleteText; safecall;
  4261.     property Application: IDispatch read Get_Application;
  4262.     property Creator: Integer read Get_Creator;
  4263.     property Parent: IDispatch read Get_Parent;
  4264.     property MarginBottom: Single read Get_MarginBottom write Set_MarginBottom;
  4265.     property MarginLeft: Single read Get_MarginLeft write Set_MarginLeft;
  4266.     property MarginRight: Single read Get_MarginRight write Set_MarginRight;
  4267.     property MarginTop: Single read Get_MarginTop write Set_MarginTop;
  4268.     property Orientation: MsoTextOrientation read Get_Orientation write Set_Orientation;
  4269.     property HasText: MsoTriState read Get_HasText;
  4270.     property TextRange: TextRange read Get_TextRange;
  4271.     property Ruler: Ruler read Get_Ruler;
  4272.     property HorizontalAnchor: MsoHorizontalAnchor read Get_HorizontalAnchor write Set_HorizontalAnchor;
  4273.     property VerticalAnchor: MsoVerticalAnchor read Get_VerticalAnchor write Set_VerticalAnchor;
  4274.     property AutoSize: PpAutoSize read Get_AutoSize write Set_AutoSize;
  4275.     property WordWrap: MsoTriState read Get_WordWrap write Set_WordWrap;
  4276.   end;
  4277.  
  4278. // *********************************************************************//
  4279. // DispIntf:  TextFrameDisp
  4280. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4281. // GUID:      {91493484-5A91-11CF-8700-00AA0060263B}
  4282. // *********************************************************************//
  4283.   TextFrameDisp = dispinterface
  4284.     ['{91493484-5A91-11CF-8700-00AA0060263B}']
  4285.     property Application: IDispatch readonly dispid 2001;
  4286.     property Creator: Integer readonly dispid 2002;
  4287.     property Parent: IDispatch readonly dispid 1;
  4288.     property MarginBottom: Single dispid 100;
  4289.     property MarginLeft: Single dispid 101;
  4290.     property MarginRight: Single dispid 102;
  4291.     property MarginTop: Single dispid 103;
  4292.     property Orientation: MsoTextOrientation dispid 104;
  4293.     property HasText: MsoTriState readonly dispid 2003;
  4294.     property TextRange: TextRange readonly dispid 2004;
  4295.     property Ruler: Ruler readonly dispid 2005;
  4296.     property HorizontalAnchor: MsoHorizontalAnchor dispid 2006;
  4297.     property VerticalAnchor: MsoVerticalAnchor dispid 2007;
  4298.     property AutoSize: PpAutoSize dispid 2008;
  4299.     property WordWrap: MsoTriState dispid 2009;
  4300.     procedure DeleteText; dispid 2010;
  4301.   end;
  4302.  
  4303. // *********************************************************************//
  4304. // Interface: CalloutFormat
  4305. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4306. // GUID:      {91493485-5A91-11CF-8700-00AA0060263B}
  4307. // *********************************************************************//
  4308.   CalloutFormat = interface(IDispatch)
  4309.     ['{91493485-5A91-11CF-8700-00AA0060263B}']
  4310.     function  Get_Application: IDispatch; safecall;
  4311.     function  Get_Creator: Integer; safecall;
  4312.     function  Get_Parent: IDispatch; safecall;
  4313.     procedure AutomaticLength; safecall;
  4314.     procedure CustomDrop(Drop: Single); safecall;
  4315.     procedure CustomLength(Length: Single); safecall;
  4316.     procedure PresetDrop(DropType: MsoCalloutDropType); safecall;
  4317.     function  Get_Accent: MsoTriState; safecall;
  4318.     procedure Set_Accent(Accent: MsoTriState); safecall;
  4319.     function  Get_Angle: MsoCalloutAngleType; safecall;
  4320.     procedure Set_Angle(Angle: MsoCalloutAngleType); safecall;
  4321.     function  Get_AutoAttach: MsoTriState; safecall;
  4322.     procedure Set_AutoAttach(AutoAttach: MsoTriState); safecall;
  4323.     function  Get_AutoLength: MsoTriState; safecall;
  4324.     function  Get_Border: MsoTriState; safecall;
  4325.     procedure Set_Border(Border: MsoTriState); safecall;
  4326.     function  Get_Drop: Single; safecall;
  4327.     function  Get_DropType: MsoCalloutDropType; safecall;
  4328.     function  Get_Gap: Single; safecall;
  4329.     procedure Set_Gap(Gap: Single); safecall;
  4330.     function  Get_Length: Single; safecall;
  4331.     function  Get_Type_: MsoCalloutType; safecall;
  4332.     procedure Set_Type_(Type_: MsoCalloutType); safecall;
  4333.     property Application: IDispatch read Get_Application;
  4334.     property Creator: Integer read Get_Creator;
  4335.     property Parent: IDispatch read Get_Parent;
  4336.     property Accent: MsoTriState read Get_Accent write Set_Accent;
  4337.     property Angle: MsoCalloutAngleType read Get_Angle write Set_Angle;
  4338.     property AutoAttach: MsoTriState read Get_AutoAttach write Set_AutoAttach;
  4339.     property AutoLength: MsoTriState read Get_AutoLength;
  4340.     property Border: MsoTriState read Get_Border write Set_Border;
  4341.     property Drop: Single read Get_Drop;
  4342.     property DropType: MsoCalloutDropType read Get_DropType;
  4343.     property Gap: Single read Get_Gap write Set_Gap;
  4344.     property Length: Single read Get_Length;
  4345.     property Type_: MsoCalloutType read Get_Type_ write Set_Type_;
  4346.   end;
  4347.  
  4348. // *********************************************************************//
  4349. // DispIntf:  CalloutFormatDisp
  4350. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4351. // GUID:      {91493485-5A91-11CF-8700-00AA0060263B}
  4352. // *********************************************************************//
  4353.   CalloutFormatDisp = dispinterface
  4354.     ['{91493485-5A91-11CF-8700-00AA0060263B}']
  4355.     property Application: IDispatch readonly dispid 2001;
  4356.     property Creator: Integer readonly dispid 2002;
  4357.     property Parent: IDispatch readonly dispid 1;
  4358.     procedure AutomaticLength; dispid 10;
  4359.     procedure CustomDrop(Drop: Single); dispid 11;
  4360.     procedure CustomLength(Length: Single); dispid 12;
  4361.     procedure PresetDrop(DropType: MsoCalloutDropType); dispid 13;
  4362.     property Accent: MsoTriState dispid 100;
  4363.     property Angle: MsoCalloutAngleType dispid 101;
  4364.     property AutoAttach: MsoTriState dispid 102;
  4365.     property AutoLength: MsoTriState readonly dispid 103;
  4366.     property Border: MsoTriState dispid 104;
  4367.     property Drop: Single readonly dispid 105;
  4368.     property DropType: MsoCalloutDropType readonly dispid 106;
  4369.     property Gap: Single dispid 107;
  4370.     property Length: Single readonly dispid 108;
  4371.     property Type_: MsoCalloutType dispid 109;
  4372.   end;
  4373.  
  4374. // *********************************************************************//
  4375. // Interface: ShapeNodes
  4376. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4377. // GUID:      {91493486-5A91-11CF-8700-00AA0060263B}
  4378. // *********************************************************************//
  4379.   ShapeNodes = interface(IDispatch)
  4380.     ['{91493486-5A91-11CF-8700-00AA0060263B}']
  4381.     function  Get_Application: IDispatch; safecall;
  4382.     function  Get_Creator: Integer; safecall;
  4383.     function  Get_Parent: IDispatch; safecall;
  4384.     function  Get_Count: SYSINT; safecall;
  4385.     function  Item(index: OleVariant): ShapeNode; safecall;
  4386.     function  Get__NewEnum: IUnknown; safecall;
  4387.     procedure Delete(index: SYSINT); safecall;
  4388.     procedure Insert(index: SYSINT; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  4389.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  4390.     procedure SetEditingType(index: SYSINT; EditingType: MsoEditingType); safecall;
  4391.     procedure SetPosition(index: SYSINT; X1: Single; Y1: Single); safecall;
  4392.     procedure SetSegmentType(index: SYSINT; SegmentType: MsoSegmentType); safecall;
  4393.     property Application: IDispatch read Get_Application;
  4394.     property Creator: Integer read Get_Creator;
  4395.     property Parent: IDispatch read Get_Parent;
  4396.     property Count: SYSINT read Get_Count;
  4397.     property _NewEnum: IUnknown read Get__NewEnum;
  4398.   end;
  4399.  
  4400. // *********************************************************************//
  4401. // DispIntf:  ShapeNodesDisp
  4402. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4403. // GUID:      {91493486-5A91-11CF-8700-00AA0060263B}
  4404. // *********************************************************************//
  4405.   ShapeNodesDisp = dispinterface
  4406.     ['{91493486-5A91-11CF-8700-00AA0060263B}']
  4407.     property Application: IDispatch readonly dispid 2001;
  4408.     property Creator: Integer readonly dispid 2002;
  4409.     property Parent: IDispatch readonly dispid 1;
  4410.     property Count: SYSINT readonly dispid 2;
  4411.     function  Item(index: OleVariant): ShapeNode; dispid 0;
  4412.     property _NewEnum: IUnknown readonly dispid -4;
  4413.     procedure Delete(index: SYSINT); dispid 11;
  4414.     procedure Insert(index: SYSINT; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  4415.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 12;
  4416.     procedure SetEditingType(index: SYSINT; EditingType: MsoEditingType); dispid 13;
  4417.     procedure SetPosition(index: SYSINT; X1: Single; Y1: Single); dispid 14;
  4418.     procedure SetSegmentType(index: SYSINT; SegmentType: MsoSegmentType); dispid 15;
  4419.   end;
  4420.  
  4421. // *********************************************************************//
  4422. // Interface: ShapeNode
  4423. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4424. // GUID:      {91493487-5A91-11CF-8700-00AA0060263B}
  4425. // *********************************************************************//
  4426.   ShapeNode = interface(IDispatch)
  4427.     ['{91493487-5A91-11CF-8700-00AA0060263B}']
  4428.     function  Get_Application: IDispatch; safecall;
  4429.     function  Get_Creator: Integer; safecall;
  4430.     function  Get_Parent: IDispatch; safecall;
  4431.     function  Get_EditingType: MsoEditingType; safecall;
  4432.     function  Get_Points: OleVariant; safecall;
  4433.     function  Get_SegmentType: MsoSegmentType; safecall;
  4434.     property Application: IDispatch read Get_Application;
  4435.     property Creator: Integer read Get_Creator;
  4436.     property Parent: IDispatch read Get_Parent;
  4437.     property EditingType: MsoEditingType read Get_EditingType;
  4438.     property Points: OleVariant read Get_Points;
  4439.     property SegmentType: MsoSegmentType read Get_SegmentType;
  4440.   end;
  4441.  
  4442. // *********************************************************************//
  4443. // DispIntf:  ShapeNodeDisp
  4444. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4445. // GUID:      {91493487-5A91-11CF-8700-00AA0060263B}
  4446. // *********************************************************************//
  4447.   ShapeNodeDisp = dispinterface
  4448.     ['{91493487-5A91-11CF-8700-00AA0060263B}']
  4449.     property Application: IDispatch readonly dispid 2001;
  4450.     property Creator: Integer readonly dispid 2002;
  4451.     property Parent: IDispatch readonly dispid 1;
  4452.     property EditingType: MsoEditingType readonly dispid 100;
  4453.     property Points: OleVariant readonly dispid 101;
  4454.     property SegmentType: MsoSegmentType readonly dispid 102;
  4455.   end;
  4456.  
  4457. // *********************************************************************//
  4458. // Interface: OLEFormat
  4459. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4460. // GUID:      {91493488-5A91-11CF-8700-00AA0060263B}
  4461. // *********************************************************************//
  4462.   OLEFormat = interface(IDispatch)
  4463.     ['{91493488-5A91-11CF-8700-00AA0060263B}']
  4464.     function  Get_Application: IDispatch; safecall;
  4465.     function  Get_Parent: IDispatch; safecall;
  4466.     function  Get_ObjectVerbs: ObjectVerbs; safecall;
  4467.     function  Get_Object_: IDispatch; safecall;
  4468.     function  Get_ProgID: WideString; safecall;
  4469.     function  Get_FollowColors: PpFollowColors; safecall;
  4470.     procedure Set_FollowColors(FollowColors: PpFollowColors); safecall;
  4471.     procedure DoVerb(index: SYSINT); safecall;
  4472.     procedure Activate; safecall;
  4473.     property Application: IDispatch read Get_Application;
  4474.     property Parent: IDispatch read Get_Parent;
  4475.     property ObjectVerbs: ObjectVerbs read Get_ObjectVerbs;
  4476.     property Object_: IDispatch read Get_Object_;
  4477.     property ProgID: WideString read Get_ProgID;
  4478.     property FollowColors: PpFollowColors read Get_FollowColors write Set_FollowColors;
  4479.   end;
  4480.  
  4481. // *********************************************************************//
  4482. // DispIntf:  OLEFormatDisp
  4483. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4484. // GUID:      {91493488-5A91-11CF-8700-00AA0060263B}
  4485. // *********************************************************************//
  4486.   OLEFormatDisp = dispinterface
  4487.     ['{91493488-5A91-11CF-8700-00AA0060263B}']
  4488.     property Application: IDispatch readonly dispid 2001;
  4489.     property Parent: IDispatch readonly dispid 2002;
  4490.     property ObjectVerbs: ObjectVerbs readonly dispid 2003;
  4491.     property Object_: IDispatch readonly dispid 2004;
  4492.     property ProgID: WideString readonly dispid 2005;
  4493.     property FollowColors: PpFollowColors dispid 2006;
  4494.     procedure DoVerb(index: SYSINT); dispid 2007;
  4495.     procedure Activate; dispid 2008;
  4496.   end;
  4497.  
  4498. // *********************************************************************//
  4499. // Interface: LinkFormat
  4500. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4501. // GUID:      {91493489-5A91-11CF-8700-00AA0060263B}
  4502. // *********************************************************************//
  4503.   LinkFormat = interface(IDispatch)
  4504.     ['{91493489-5A91-11CF-8700-00AA0060263B}']
  4505.     function  Get_Application: IDispatch; safecall;
  4506.     function  Get_Parent: IDispatch; safecall;
  4507.     function  Get_SourceFullName: WideString; safecall;
  4508.     procedure Set_SourceFullName(const SourceFullName: WideString); safecall;
  4509.     function  Get_AutoUpdate: PpUpdateOption; safecall;
  4510.     procedure Set_AutoUpdate(AutoUpdate: PpUpdateOption); safecall;
  4511.     procedure Update; safecall;
  4512.     property Application: IDispatch read Get_Application;
  4513.     property Parent: IDispatch read Get_Parent;
  4514.     property SourceFullName: WideString read Get_SourceFullName write Set_SourceFullName;
  4515.     property AutoUpdate: PpUpdateOption read Get_AutoUpdate write Set_AutoUpdate;
  4516.   end;
  4517.  
  4518. // *********************************************************************//
  4519. // DispIntf:  LinkFormatDisp
  4520. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4521. // GUID:      {91493489-5A91-11CF-8700-00AA0060263B}
  4522. // *********************************************************************//
  4523.   LinkFormatDisp = dispinterface
  4524.     ['{91493489-5A91-11CF-8700-00AA0060263B}']
  4525.     property Application: IDispatch readonly dispid 2001;
  4526.     property Parent: IDispatch readonly dispid 2002;
  4527.     property SourceFullName: WideString dispid 2003;
  4528.     property AutoUpdate: PpUpdateOption dispid 2004;
  4529.     procedure Update; dispid 2005;
  4530.   end;
  4531.  
  4532. // *********************************************************************//
  4533. // Interface: ObjectVerbs
  4534. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4535. // GUID:      {9149348A-5A91-11CF-8700-00AA0060263B}
  4536. // *********************************************************************//
  4537.   ObjectVerbs = interface(Collection)
  4538.     ['{9149348A-5A91-11CF-8700-00AA0060263B}']
  4539.     function  Get_Application: IDispatch; safecall;
  4540.     function  Get_Parent: IDispatch; safecall;
  4541.     function  Item(index: SYSINT): WideString; safecall;
  4542.     property Application: IDispatch read Get_Application;
  4543.     property Parent: IDispatch read Get_Parent;
  4544.   end;
  4545.  
  4546. // *********************************************************************//
  4547. // DispIntf:  ObjectVerbsDisp
  4548. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4549. // GUID:      {9149348A-5A91-11CF-8700-00AA0060263B}
  4550. // *********************************************************************//
  4551.   ObjectVerbsDisp = dispinterface
  4552.     ['{9149348A-5A91-11CF-8700-00AA0060263B}']
  4553.     property Application: IDispatch readonly dispid 2001;
  4554.     property Parent: IDispatch readonly dispid 2002;
  4555.     function  Item(index: SYSINT): WideString; dispid 0;
  4556.     property _NewEnum: IUnknown readonly dispid -4;
  4557.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  4558.     property Count: Integer readonly dispid 11;
  4559.   end;
  4560.  
  4561. // *********************************************************************//
  4562. // Interface: AnimationSettings
  4563. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4564. // GUID:      {9149348B-5A91-11CF-8700-00AA0060263B}
  4565. // *********************************************************************//
  4566.   AnimationSettings = interface(IDispatch)
  4567.     ['{9149348B-5A91-11CF-8700-00AA0060263B}']
  4568.     function  Get_Application: IDispatch; safecall;
  4569.     function  Get_Parent: IDispatch; safecall;
  4570.     function  Get_DimColor: ColorFormat; safecall;
  4571.     function  Get_SoundEffect: SoundEffect; safecall;
  4572.     function  Get_EntryEffect: PpEntryEffect; safecall;
  4573.     procedure Set_EntryEffect(EntryEffect: PpEntryEffect); safecall;
  4574.     function  Get_AfterEffect: PpAfterEffect; safecall;
  4575.     procedure Set_AfterEffect(AfterEffect: PpAfterEffect); safecall;
  4576.     function  Get_AnimationOrder: SYSINT; safecall;
  4577.     procedure Set_AnimationOrder(AnimationOrder: SYSINT); safecall;
  4578.     function  Get_AdvanceMode: PpAdvanceMode; safecall;
  4579.     procedure Set_AdvanceMode(AdvanceMode: PpAdvanceMode); safecall;
  4580.     function  Get_AdvanceTime: Single; safecall;
  4581.     procedure Set_AdvanceTime(AdvanceTime: Single); safecall;
  4582.     function  Get_PlaySettings: PlaySettings; safecall;
  4583.     function  Get_TextLevelEffect: PpTextLevelEffect; safecall;
  4584.     procedure Set_TextLevelEffect(TextLevelEffect: PpTextLevelEffect); safecall;
  4585.     function  Get_TextUnitEffect: PpTextUnitEffect; safecall;
  4586.     procedure Set_TextUnitEffect(TextUnitEffect: PpTextUnitEffect); safecall;
  4587.     function  Get_Animate: MsoTriState; safecall;
  4588.     procedure Set_Animate(Animate: MsoTriState); safecall;
  4589.     function  Get_AnimateBackground: MsoTriState; safecall;
  4590.     procedure Set_AnimateBackground(AnimateBackground: MsoTriState); safecall;
  4591.     function  Get_AnimateTextInReverse: MsoTriState; safecall;
  4592.     procedure Set_AnimateTextInReverse(AnimateTextInReverse: MsoTriState); safecall;
  4593.     function  Get_ChartUnitEffect: PpChartUnitEffect; safecall;
  4594.     procedure Set_ChartUnitEffect(ChartUnitEffect: PpChartUnitEffect); safecall;
  4595.     property Application: IDispatch read Get_Application;
  4596.     property Parent: IDispatch read Get_Parent;
  4597.     property DimColor: ColorFormat read Get_DimColor;
  4598.     property SoundEffect: SoundEffect read Get_SoundEffect;
  4599.     property EntryEffect: PpEntryEffect read Get_EntryEffect write Set_EntryEffect;
  4600.     property AfterEffect: PpAfterEffect read Get_AfterEffect write Set_AfterEffect;
  4601.     property AnimationOrder: SYSINT read Get_AnimationOrder write Set_AnimationOrder;
  4602.     property AdvanceMode: PpAdvanceMode read Get_AdvanceMode write Set_AdvanceMode;
  4603.     property AdvanceTime: Single read Get_AdvanceTime write Set_AdvanceTime;
  4604.     property PlaySettings: PlaySettings read Get_PlaySettings;
  4605.     property TextLevelEffect: PpTextLevelEffect read Get_TextLevelEffect write Set_TextLevelEffect;
  4606.     property TextUnitEffect: PpTextUnitEffect read Get_TextUnitEffect write Set_TextUnitEffect;
  4607.     property Animate: MsoTriState read Get_Animate write Set_Animate;
  4608.     property AnimateBackground: MsoTriState read Get_AnimateBackground write Set_AnimateBackground;
  4609.     property AnimateTextInReverse: MsoTriState read Get_AnimateTextInReverse write Set_AnimateTextInReverse;
  4610.     property ChartUnitEffect: PpChartUnitEffect read Get_ChartUnitEffect write Set_ChartUnitEffect;
  4611.   end;
  4612.  
  4613. // *********************************************************************//
  4614. // DispIntf:  AnimationSettingsDisp
  4615. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4616. // GUID:      {9149348B-5A91-11CF-8700-00AA0060263B}
  4617. // *********************************************************************//
  4618.   AnimationSettingsDisp = dispinterface
  4619.     ['{9149348B-5A91-11CF-8700-00AA0060263B}']
  4620.     property Application: IDispatch readonly dispid 2001;
  4621.     property Parent: IDispatch readonly dispid 2002;
  4622.     property DimColor: ColorFormat readonly dispid 2003;
  4623.     property SoundEffect: SoundEffect readonly dispid 2004;
  4624.     property EntryEffect: PpEntryEffect dispid 2005;
  4625.     property AfterEffect: PpAfterEffect dispid 2006;
  4626.     property AnimationOrder: SYSINT dispid 2007;
  4627.     property AdvanceMode: PpAdvanceMode dispid 2008;
  4628.     property AdvanceTime: Single dispid 2009;
  4629.     property PlaySettings: PlaySettings readonly dispid 2010;
  4630.     property TextLevelEffect: PpTextLevelEffect dispid 2011;
  4631.     property TextUnitEffect: PpTextUnitEffect dispid 2012;
  4632.     property Animate: MsoTriState dispid 2013;
  4633.     property AnimateBackground: MsoTriState dispid 2014;
  4634.     property AnimateTextInReverse: MsoTriState dispid 2015;
  4635.     property ChartUnitEffect: PpChartUnitEffect dispid 2016;
  4636.   end;
  4637.  
  4638. // *********************************************************************//
  4639. // Interface: ActionSettings
  4640. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4641. // GUID:      {9149348C-5A91-11CF-8700-00AA0060263B}
  4642. // *********************************************************************//
  4643.   ActionSettings = interface(Collection)
  4644.     ['{9149348C-5A91-11CF-8700-00AA0060263B}']
  4645.     function  Get_Application: IDispatch; safecall;
  4646.     function  Get_Parent: IDispatch; safecall;
  4647.     function  Item(index: PpMouseActivation): ActionSetting; safecall;
  4648.     property Application: IDispatch read Get_Application;
  4649.     property Parent: IDispatch read Get_Parent;
  4650.   end;
  4651.  
  4652. // *********************************************************************//
  4653. // DispIntf:  ActionSettingsDisp
  4654. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4655. // GUID:      {9149348C-5A91-11CF-8700-00AA0060263B}
  4656. // *********************************************************************//
  4657.   ActionSettingsDisp = dispinterface
  4658.     ['{9149348C-5A91-11CF-8700-00AA0060263B}']
  4659.     property Application: IDispatch readonly dispid 2001;
  4660.     property Parent: IDispatch readonly dispid 2002;
  4661.     function  Item(index: PpMouseActivation): ActionSetting; dispid 0;
  4662.     property _NewEnum: IUnknown readonly dispid -4;
  4663.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  4664.     property Count: Integer readonly dispid 11;
  4665.   end;
  4666.  
  4667. // *********************************************************************//
  4668. // Interface: ActionSetting
  4669. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4670. // GUID:      {9149348D-5A91-11CF-8700-00AA0060263B}
  4671. // *********************************************************************//
  4672.   ActionSetting = interface(IDispatch)
  4673.     ['{9149348D-5A91-11CF-8700-00AA0060263B}']
  4674.     function  Get_Application: IDispatch; safecall;
  4675.     function  Get_Parent: IDispatch; safecall;
  4676.     function  Get_Action: PpActionType; safecall;
  4677.     procedure Set_Action(Action: PpActionType); safecall;
  4678.     function  Get_ActionVerb: WideString; safecall;
  4679.     procedure Set_ActionVerb(const ActionVerb: WideString); safecall;
  4680.     function  Get_AnimateAction: MsoTriState; safecall;
  4681.     procedure Set_AnimateAction(AnimateAction: MsoTriState); safecall;
  4682.     function  Get_Run: WideString; safecall;
  4683.     procedure Set_Run(const Run: WideString); safecall;
  4684.     function  Get_SlideShowName: WideString; safecall;
  4685.     procedure Set_SlideShowName(const SlideShowName: WideString); safecall;
  4686.     function  Get_Hyperlink: Hyperlink; safecall;
  4687.     function  Get_SoundEffect: SoundEffect; safecall;
  4688.     property Application: IDispatch read Get_Application;
  4689.     property Parent: IDispatch read Get_Parent;
  4690.     property Action: PpActionType read Get_Action write Set_Action;
  4691.     property ActionVerb: WideString read Get_ActionVerb write Set_ActionVerb;
  4692.     property AnimateAction: MsoTriState read Get_AnimateAction write Set_AnimateAction;
  4693.     property Run: WideString read Get_Run write Set_Run;
  4694.     property SlideShowName: WideString read Get_SlideShowName write Set_SlideShowName;
  4695.     property Hyperlink: Hyperlink read Get_Hyperlink;
  4696.     property SoundEffect: SoundEffect read Get_SoundEffect;
  4697.   end;
  4698.  
  4699. // *********************************************************************//
  4700. // DispIntf:  ActionSettingDisp
  4701. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4702. // GUID:      {9149348D-5A91-11CF-8700-00AA0060263B}
  4703. // *********************************************************************//
  4704.   ActionSettingDisp = dispinterface
  4705.     ['{9149348D-5A91-11CF-8700-00AA0060263B}']
  4706.     property Application: IDispatch readonly dispid 2001;
  4707.     property Parent: IDispatch readonly dispid 2002;
  4708.     property Action: PpActionType dispid 2003;
  4709.     property ActionVerb: WideString dispid 2004;
  4710.     property AnimateAction: MsoTriState dispid 2005;
  4711.     property Run: WideString dispid 2006;
  4712.     property SlideShowName: WideString dispid 2007;
  4713.     property Hyperlink: Hyperlink readonly dispid 2008;
  4714.     property SoundEffect: SoundEffect readonly dispid 2009;
  4715.   end;
  4716.  
  4717. // *********************************************************************//
  4718. // Interface: PlaySettings
  4719. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4720. // GUID:      {9149348E-5A91-11CF-8700-00AA0060263B}
  4721. // *********************************************************************//
  4722.   PlaySettings = interface(IDispatch)
  4723.     ['{9149348E-5A91-11CF-8700-00AA0060263B}']
  4724.     function  Get_Application: IDispatch; safecall;
  4725.     function  Get_Parent: IDispatch; safecall;
  4726.     function  Get_ActionVerb: WideString; safecall;
  4727.     procedure Set_ActionVerb(const ActionVerb: WideString); safecall;
  4728.     function  Get_HideWhileNotPlaying: MsoTriState; safecall;
  4729.     procedure Set_HideWhileNotPlaying(HideWhileNotPlaying: MsoTriState); safecall;
  4730.     function  Get_LoopUntilStopped: MsoTriState; safecall;
  4731.     procedure Set_LoopUntilStopped(LoopUntilStopped: MsoTriState); safecall;
  4732.     function  Get_PlayOnEntry: MsoTriState; safecall;
  4733.     procedure Set_PlayOnEntry(PlayOnEntry: MsoTriState); safecall;
  4734.     function  Get_RewindMovie: MsoTriState; safecall;
  4735.     procedure Set_RewindMovie(RewindMovie: MsoTriState); safecall;
  4736.     function  Get_PauseAnimation: MsoTriState; safecall;
  4737.     procedure Set_PauseAnimation(PauseAnimation: MsoTriState); safecall;
  4738.     function  Get_StopAfterSlides: SYSINT; safecall;
  4739.     procedure Set_StopAfterSlides(StopAfterSlides: SYSINT); safecall;
  4740.     property Application: IDispatch read Get_Application;
  4741.     property Parent: IDispatch read Get_Parent;
  4742.     property ActionVerb: WideString read Get_ActionVerb write Set_ActionVerb;
  4743.     property HideWhileNotPlaying: MsoTriState read Get_HideWhileNotPlaying write Set_HideWhileNotPlaying;
  4744.     property LoopUntilStopped: MsoTriState read Get_LoopUntilStopped write Set_LoopUntilStopped;
  4745.     property PlayOnEntry: MsoTriState read Get_PlayOnEntry write Set_PlayOnEntry;
  4746.     property RewindMovie: MsoTriState read Get_RewindMovie write Set_RewindMovie;
  4747.     property PauseAnimation: MsoTriState read Get_PauseAnimation write Set_PauseAnimation;
  4748.     property StopAfterSlides: SYSINT read Get_StopAfterSlides write Set_StopAfterSlides;
  4749.   end;
  4750.  
  4751. // *********************************************************************//
  4752. // DispIntf:  PlaySettingsDisp
  4753. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4754. // GUID:      {9149348E-5A91-11CF-8700-00AA0060263B}
  4755. // *********************************************************************//
  4756.   PlaySettingsDisp = dispinterface
  4757.     ['{9149348E-5A91-11CF-8700-00AA0060263B}']
  4758.     property Application: IDispatch readonly dispid 2001;
  4759.     property Parent: IDispatch readonly dispid 2002;
  4760.     property ActionVerb: WideString dispid 2003;
  4761.     property HideWhileNotPlaying: MsoTriState dispid 2004;
  4762.     property LoopUntilStopped: MsoTriState dispid 2005;
  4763.     property PlayOnEntry: MsoTriState dispid 2006;
  4764.     property RewindMovie: MsoTriState dispid 2007;
  4765.     property PauseAnimation: MsoTriState dispid 2008;
  4766.     property StopAfterSlides: SYSINT dispid 2009;
  4767.   end;
  4768.  
  4769. // *********************************************************************//
  4770. // Interface: TextRange
  4771. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4772. // GUID:      {9149348F-5A91-11CF-8700-00AA0060263B}
  4773. // *********************************************************************//
  4774.   TextRange = interface(Collection)
  4775.     ['{9149348F-5A91-11CF-8700-00AA0060263B}']
  4776.     function  Get_Application: IDispatch; safecall;
  4777.     function  Get_Parent: IDispatch; safecall;
  4778.     function  Get_ActionSettings: ActionSettings; safecall;
  4779.     function  Get_Start: Integer; safecall;
  4780.     function  Get_Length: Integer; safecall;
  4781.     function  Get_BoundLeft: Single; safecall;
  4782.     function  Get_BoundTop: Single; safecall;
  4783.     function  Get_BoundWidth: Single; safecall;
  4784.     function  Get_BoundHeight: Single; safecall;
  4785.     function  Paragraphs(Start: SYSINT; Length: SYSINT): TextRange; safecall;
  4786.     function  Sentences(Start: SYSINT; Length: SYSINT): TextRange; safecall;
  4787.     function  Words(Start: SYSINT; Length: SYSINT): TextRange; safecall;
  4788.     function  Characters(Start: SYSINT; Length: SYSINT): TextRange; safecall;
  4789.     function  Lines(Start: SYSINT; Length: SYSINT): TextRange; safecall;
  4790.     function  Runs(Start: SYSINT; Length: SYSINT): TextRange; safecall;
  4791.     function  TrimText: TextRange; safecall;
  4792.     function  Get_Text: WideString; safecall;
  4793.     procedure Set_Text(const Text: WideString); safecall;
  4794.     function  InsertAfter(const NewText: WideString): TextRange; safecall;
  4795.     function  InsertBefore(const NewText: WideString): TextRange; safecall;
  4796.     function  InsertDateTime(DateTimeFormat: PpDateTimeFormat; InsertAsField: MsoTriState): TextRange; safecall;
  4797.     function  InsertSlideNumber: TextRange; safecall;
  4798.     function  InsertSymbol(const FontName: WideString; CharNumber: SYSINT; Unicode: MsoTriState): TextRange; safecall;
  4799.     function  Get_Font: Font; safecall;
  4800.     function  Get_ParagraphFormat: ParagraphFormat; safecall;
  4801.     function  Get_IndentLevel: SYSINT; safecall;
  4802.     procedure Set_IndentLevel(IndentLevel: SYSINT); safecall;
  4803.     procedure Select; safecall;
  4804.     procedure Cut; safecall;
  4805.     procedure Copy; safecall;
  4806.     procedure Delete; safecall;
  4807.     function  Paste: TextRange; safecall;
  4808.     procedure ChangeCase(Type_: PpChangeCase); safecall;
  4809.     procedure AddPeriods; safecall;
  4810.     procedure RemovePeriods; safecall;
  4811.     function  Find(const FindWhat: WideString; After: SYSINT; MatchCase: MsoTriState; 
  4812.                    WholeWords: MsoTriState): TextRange; safecall;
  4813.     function  Replace(const FindWhat: WideString; const ReplaceWhat: WideString; After: SYSINT; 
  4814.                       MatchCase: MsoTriState; WholeWords: MsoTriState): TextRange; safecall;
  4815.     procedure RotatedBounds(out X1: Single; out Y1: Single; out X2: Single; out Y2: Single; 
  4816.                             out X3: Single; out Y3: Single; out x4: Single; out y4: Single); safecall;
  4817.     property Application: IDispatch read Get_Application;
  4818.     property Parent: IDispatch read Get_Parent;
  4819.     property ActionSettings: ActionSettings read Get_ActionSettings;
  4820.     property Start: Integer read Get_Start;
  4821.     property Length: Integer read Get_Length;
  4822.     property BoundLeft: Single read Get_BoundLeft;
  4823.     property BoundTop: Single read Get_BoundTop;
  4824.     property BoundWidth: Single read Get_BoundWidth;
  4825.     property BoundHeight: Single read Get_BoundHeight;
  4826.     property Text: WideString read Get_Text write Set_Text;
  4827.     property Font: Font read Get_Font;
  4828.     property ParagraphFormat: ParagraphFormat read Get_ParagraphFormat;
  4829.     property IndentLevel: SYSINT read Get_IndentLevel write Set_IndentLevel;
  4830.   end;
  4831.  
  4832. // *********************************************************************//
  4833. // DispIntf:  TextRangeDisp
  4834. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4835. // GUID:      {9149348F-5A91-11CF-8700-00AA0060263B}
  4836. // *********************************************************************//
  4837.   TextRangeDisp = dispinterface
  4838.     ['{9149348F-5A91-11CF-8700-00AA0060263B}']
  4839.     property Application: IDispatch readonly dispid 2001;
  4840.     property Parent: IDispatch readonly dispid 2002;
  4841.     property ActionSettings: ActionSettings readonly dispid 2003;
  4842.     property Start: Integer readonly dispid 2004;
  4843.     property Length: Integer readonly dispid 2005;
  4844.     property BoundLeft: Single readonly dispid 2006;
  4845.     property BoundTop: Single readonly dispid 2007;
  4846.     property BoundWidth: Single readonly dispid 2008;
  4847.     property BoundHeight: Single readonly dispid 2009;
  4848.     function  Paragraphs(Start: SYSINT; Length: SYSINT): TextRange; dispid 2010;
  4849.     function  Sentences(Start: SYSINT; Length: SYSINT): TextRange; dispid 2011;
  4850.     function  Words(Start: SYSINT; Length: SYSINT): TextRange; dispid 2012;
  4851.     function  Characters(Start: SYSINT; Length: SYSINT): TextRange; dispid 2013;
  4852.     function  Lines(Start: SYSINT; Length: SYSINT): TextRange; dispid 2014;
  4853.     function  Runs(Start: SYSINT; Length: SYSINT): TextRange; dispid 2015;
  4854.     function  TrimText: TextRange; dispid 2016;
  4855.     property Text: WideString dispid 0;
  4856.     function  InsertAfter(const NewText: WideString): TextRange; dispid 2017;
  4857.     function  InsertBefore(const NewText: WideString): TextRange; dispid 2018;
  4858.     function  InsertDateTime(DateTimeFormat: PpDateTimeFormat; InsertAsField: MsoTriState): TextRange; dispid 2019;
  4859.     function  InsertSlideNumber: TextRange; dispid 2020;
  4860.     function  InsertSymbol(const FontName: WideString; CharNumber: SYSINT; Unicode: MsoTriState): TextRange; dispid 2021;
  4861.     property Font: Font readonly dispid 2022;
  4862.     property ParagraphFormat: ParagraphFormat readonly dispid 2023;
  4863.     property IndentLevel: SYSINT dispid 2024;
  4864.     procedure Select; dispid 2025;
  4865.     procedure Cut; dispid 2026;
  4866.     procedure Copy; dispid 2027;
  4867.     procedure Delete; dispid 2028;
  4868.     function  Paste: TextRange; dispid 2029;
  4869.     procedure ChangeCase(Type_: PpChangeCase); dispid 2030;
  4870.     procedure AddPeriods; dispid 2031;
  4871.     procedure RemovePeriods; dispid 2032;
  4872.     function  Find(const FindWhat: WideString; After: SYSINT; MatchCase: MsoTriState; 
  4873.                    WholeWords: MsoTriState): TextRange; dispid 2033;
  4874.     function  Replace(const FindWhat: WideString; const ReplaceWhat: WideString; After: SYSINT; 
  4875.                       MatchCase: MsoTriState; WholeWords: MsoTriState): TextRange; dispid 2034;
  4876.     procedure RotatedBounds(out X1: Single; out Y1: Single; out X2: Single; out Y2: Single; 
  4877.                             out X3: Single; out Y3: Single; out x4: Single; out y4: Single); dispid 2035;
  4878.     property _NewEnum: IUnknown readonly dispid -4;
  4879.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  4880.     property Count: Integer readonly dispid 11;
  4881.   end;
  4882.  
  4883. // *********************************************************************//
  4884. // Interface: Ruler
  4885. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4886. // GUID:      {91493490-5A91-11CF-8700-00AA0060263B}
  4887. // *********************************************************************//
  4888.   Ruler = interface(IDispatch)
  4889.     ['{91493490-5A91-11CF-8700-00AA0060263B}']
  4890.     function  Get_Application: IDispatch; safecall;
  4891.     function  Get_Parent: IDispatch; safecall;
  4892.     function  Get_TabStops: TabStops; safecall;
  4893.     function  Get_Levels: RulerLevels; safecall;
  4894.     property Application: IDispatch read Get_Application;
  4895.     property Parent: IDispatch read Get_Parent;
  4896.     property TabStops: TabStops read Get_TabStops;
  4897.     property Levels: RulerLevels read Get_Levels;
  4898.   end;
  4899.  
  4900. // *********************************************************************//
  4901. // DispIntf:  RulerDisp
  4902. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4903. // GUID:      {91493490-5A91-11CF-8700-00AA0060263B}
  4904. // *********************************************************************//
  4905.   RulerDisp = dispinterface
  4906.     ['{91493490-5A91-11CF-8700-00AA0060263B}']
  4907.     property Application: IDispatch readonly dispid 2001;
  4908.     property Parent: IDispatch readonly dispid 2002;
  4909.     property TabStops: TabStops readonly dispid 2003;
  4910.     property Levels: RulerLevels readonly dispid 2004;
  4911.   end;
  4912.  
  4913. // *********************************************************************//
  4914. // Interface: RulerLevels
  4915. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4916. // GUID:      {91493491-5A91-11CF-8700-00AA0060263B}
  4917. // *********************************************************************//
  4918.   RulerLevels = interface(Collection)
  4919.     ['{91493491-5A91-11CF-8700-00AA0060263B}']
  4920.     function  Get_Application: IDispatch; safecall;
  4921.     function  Get_Parent: IDispatch; safecall;
  4922.     function  Item(index: SYSINT): RulerLevel; safecall;
  4923.     property Application: IDispatch read Get_Application;
  4924.     property Parent: IDispatch read Get_Parent;
  4925.   end;
  4926.  
  4927. // *********************************************************************//
  4928. // DispIntf:  RulerLevelsDisp
  4929. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4930. // GUID:      {91493491-5A91-11CF-8700-00AA0060263B}
  4931. // *********************************************************************//
  4932.   RulerLevelsDisp = dispinterface
  4933.     ['{91493491-5A91-11CF-8700-00AA0060263B}']
  4934.     property Application: IDispatch readonly dispid 2001;
  4935.     property Parent: IDispatch readonly dispid 2002;
  4936.     function  Item(index: SYSINT): RulerLevel; dispid 0;
  4937.     property _NewEnum: IUnknown readonly dispid -4;
  4938.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  4939.     property Count: Integer readonly dispid 11;
  4940.   end;
  4941.  
  4942. // *********************************************************************//
  4943. // Interface: RulerLevel
  4944. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4945. // GUID:      {91493492-5A91-11CF-8700-00AA0060263B}
  4946. // *********************************************************************//
  4947.   RulerLevel = interface(IDispatch)
  4948.     ['{91493492-5A91-11CF-8700-00AA0060263B}']
  4949.     function  Get_Application: IDispatch; safecall;
  4950.     function  Get_Parent: IDispatch; safecall;
  4951.     function  Get_FirstMargin: Single; safecall;
  4952.     procedure Set_FirstMargin(FirstMargin: Single); safecall;
  4953.     function  Get_LeftMargin: Single; safecall;
  4954.     procedure Set_LeftMargin(LeftMargin: Single); safecall;
  4955.     property Application: IDispatch read Get_Application;
  4956.     property Parent: IDispatch read Get_Parent;
  4957.     property FirstMargin: Single read Get_FirstMargin write Set_FirstMargin;
  4958.     property LeftMargin: Single read Get_LeftMargin write Set_LeftMargin;
  4959.   end;
  4960.  
  4961. // *********************************************************************//
  4962. // DispIntf:  RulerLevelDisp
  4963. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4964. // GUID:      {91493492-5A91-11CF-8700-00AA0060263B}
  4965. // *********************************************************************//
  4966.   RulerLevelDisp = dispinterface
  4967.     ['{91493492-5A91-11CF-8700-00AA0060263B}']
  4968.     property Application: IDispatch readonly dispid 2001;
  4969.     property Parent: IDispatch readonly dispid 2002;
  4970.     property FirstMargin: Single dispid 2003;
  4971.     property LeftMargin: Single dispid 2004;
  4972.   end;
  4973.  
  4974. // *********************************************************************//
  4975. // Interface: TabStops
  4976. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4977. // GUID:      {91493493-5A91-11CF-8700-00AA0060263B}
  4978. // *********************************************************************//
  4979.   TabStops = interface(Collection)
  4980.     ['{91493493-5A91-11CF-8700-00AA0060263B}']
  4981.     function  Get_Application: IDispatch; safecall;
  4982.     function  Get_Parent: IDispatch; safecall;
  4983.     function  Item(index: SYSINT): TabStop; safecall;
  4984.     function  Get_DefaultSpacing: Single; safecall;
  4985.     procedure Set_DefaultSpacing(DefaultSpacing: Single); safecall;
  4986.     function  Add(Type_: PpTabStopType; Position: Single): TabStop; safecall;
  4987.     property Application: IDispatch read Get_Application;
  4988.     property Parent: IDispatch read Get_Parent;
  4989.     property DefaultSpacing: Single read Get_DefaultSpacing write Set_DefaultSpacing;
  4990.   end;
  4991.  
  4992. // *********************************************************************//
  4993. // DispIntf:  TabStopsDisp
  4994. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4995. // GUID:      {91493493-5A91-11CF-8700-00AA0060263B}
  4996. // *********************************************************************//
  4997.   TabStopsDisp = dispinterface
  4998.     ['{91493493-5A91-11CF-8700-00AA0060263B}']
  4999.     property Application: IDispatch readonly dispid 2001;
  5000.     property Parent: IDispatch readonly dispid 2002;
  5001.     function  Item(index: SYSINT): TabStop; dispid 0;
  5002.     property DefaultSpacing: Single dispid 2003;
  5003.     function  Add(Type_: PpTabStopType; Position: Single): TabStop; dispid 2004;
  5004.     property _NewEnum: IUnknown readonly dispid -4;
  5005.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  5006.     property Count: Integer readonly dispid 11;
  5007.   end;
  5008.  
  5009. // *********************************************************************//
  5010. // Interface: TabStop
  5011. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5012. // GUID:      {91493494-5A91-11CF-8700-00AA0060263B}
  5013. // *********************************************************************//
  5014.   TabStop = interface(IDispatch)
  5015.     ['{91493494-5A91-11CF-8700-00AA0060263B}']
  5016.     function  Get_Application: IDispatch; safecall;
  5017.     function  Get_Parent: IDispatch; safecall;
  5018.     function  Get_Type_: PpTabStopType; safecall;
  5019.     procedure Set_Type_(Type_: PpTabStopType); safecall;
  5020.     function  Get_Position: Single; safecall;
  5021.     procedure Set_Position(Position: Single); safecall;
  5022.     procedure Clear; safecall;
  5023.     property Application: IDispatch read Get_Application;
  5024.     property Parent: IDispatch read Get_Parent;
  5025.     property Type_: PpTabStopType read Get_Type_ write Set_Type_;
  5026.     property Position: Single read Get_Position write Set_Position;
  5027.   end;
  5028.  
  5029. // *********************************************************************//
  5030. // DispIntf:  TabStopDisp
  5031. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5032. // GUID:      {91493494-5A91-11CF-8700-00AA0060263B}
  5033. // *********************************************************************//
  5034.   TabStopDisp = dispinterface
  5035.     ['{91493494-5A91-11CF-8700-00AA0060263B}']
  5036.     property Application: IDispatch readonly dispid 2001;
  5037.     property Parent: IDispatch readonly dispid 2002;
  5038.     property Type_: PpTabStopType dispid 2003;
  5039.     property Position: Single dispid 2004;
  5040.     procedure Clear; dispid 2005;
  5041.   end;
  5042.  
  5043. // *********************************************************************//
  5044. // Interface: Font
  5045. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5046. // GUID:      {91493495-5A91-11CF-8700-00AA0060263B}
  5047. // *********************************************************************//
  5048.   Font = interface(IDispatch)
  5049.     ['{91493495-5A91-11CF-8700-00AA0060263B}']
  5050.     function  Get_Application: IDispatch; safecall;
  5051.     function  Get_Parent: IDispatch; safecall;
  5052.     function  Get_Color: ColorFormat; safecall;
  5053.     function  Get_Bold: MsoTriState; safecall;
  5054.     procedure Set_Bold(Bold: MsoTriState); safecall;
  5055.     function  Get_Italic: MsoTriState; safecall;
  5056.     procedure Set_Italic(Italic: MsoTriState); safecall;
  5057.     function  Get_Shadow: MsoTriState; safecall;
  5058.     procedure Set_Shadow(Shadow: MsoTriState); safecall;
  5059.     function  Get_Emboss: MsoTriState; safecall;
  5060.     procedure Set_Emboss(Emboss: MsoTriState); safecall;
  5061.     function  Get_Underline: MsoTriState; safecall;
  5062.     procedure Set_Underline(Underline: MsoTriState); safecall;
  5063.     function  Get_Subscript: MsoTriState; safecall;
  5064.     procedure Set_Subscript(Subscript: MsoTriState); safecall;
  5065.     function  Get_Superscript: MsoTriState; safecall;
  5066.     procedure Set_Superscript(Superscript: MsoTriState); safecall;
  5067.     function  Get_BaselineOffset: Single; safecall;
  5068.     procedure Set_BaselineOffset(BaselineOffset: Single); safecall;
  5069.     function  Get_Embedded: MsoTriState; safecall;
  5070.     function  Get_Embeddable: MsoTriState; safecall;
  5071.     function  Get_Size: Single; safecall;
  5072.     procedure Set_Size(Size: Single); safecall;
  5073.     function  Get_Name: WideString; safecall;
  5074.     procedure Set_Name(const Name: WideString); safecall;
  5075.     function  Get_NameFarEast: WideString; safecall;
  5076.     procedure Set_NameFarEast(const NameFarEast: WideString); safecall;
  5077.     function  Get_NameAscii: WideString; safecall;
  5078.     procedure Set_NameAscii(const NameAscii: WideString); safecall;
  5079.     function  Get_AutoRotateNumbers: MsoTriState; safecall;
  5080.     procedure Set_AutoRotateNumbers(AutoRotateNumbers: MsoTriState); safecall;
  5081.     function  Get_NameOther: WideString; safecall;
  5082.     procedure Set_NameOther(const NameOther: WideString); safecall;
  5083.     property Application: IDispatch read Get_Application;
  5084.     property Parent: IDispatch read Get_Parent;
  5085.     property Color: ColorFormat read Get_Color;
  5086.     property Bold: MsoTriState read Get_Bold write Set_Bold;
  5087.     property Italic: MsoTriState read Get_Italic write Set_Italic;
  5088.     property Shadow: MsoTriState read Get_Shadow write Set_Shadow;
  5089.     property Emboss: MsoTriState read Get_Emboss write Set_Emboss;
  5090.     property Underline: MsoTriState read Get_Underline write Set_Underline;
  5091.     property Subscript: MsoTriState read Get_Subscript write Set_Subscript;
  5092.     property Superscript: MsoTriState read Get_Superscript write Set_Superscript;
  5093.     property BaselineOffset: Single read Get_BaselineOffset write Set_BaselineOffset;
  5094.     property Embedded: MsoTriState read Get_Embedded;
  5095.     property Embeddable: MsoTriState read Get_Embeddable;
  5096.     property Size: Single read Get_Size write Set_Size;
  5097.     property Name: WideString read Get_Name write Set_Name;
  5098.     property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
  5099.     property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
  5100.     property AutoRotateNumbers: MsoTriState read Get_AutoRotateNumbers write Set_AutoRotateNumbers;
  5101.     property NameOther: WideString read Get_NameOther write Set_NameOther;
  5102.   end;
  5103.  
  5104. // *********************************************************************//
  5105. // DispIntf:  FontDisp
  5106. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5107. // GUID:      {91493495-5A91-11CF-8700-00AA0060263B}
  5108. // *********************************************************************//
  5109.   FontDisp = dispinterface
  5110.     ['{91493495-5A91-11CF-8700-00AA0060263B}']
  5111.     property Application: IDispatch readonly dispid 2001;
  5112.     property Parent: IDispatch readonly dispid 2002;
  5113.     property Color: ColorFormat readonly dispid 2003;
  5114.     property Bold: MsoTriState dispid 2004;
  5115.     property Italic: MsoTriState dispid 2005;
  5116.     property Shadow: MsoTriState dispid 2006;
  5117.     property Emboss: MsoTriState dispid 2007;
  5118.     property Underline: MsoTriState dispid 2008;
  5119.     property Subscript: MsoTriState dispid 2009;
  5120.     property Superscript: MsoTriState dispid 2010;
  5121.     property BaselineOffset: Single dispid 2011;
  5122.     property Embedded: MsoTriState readonly dispid 2012;
  5123.     property Embeddable: MsoTriState readonly dispid 2013;
  5124.     property Size: Single dispid 2014;
  5125.     property Name: WideString dispid 2015;
  5126.     property NameFarEast: WideString dispid 2016;
  5127.     property NameAscii: WideString dispid 2017;
  5128.     property AutoRotateNumbers: MsoTriState dispid 2018;
  5129.     property NameOther: WideString dispid 2019;
  5130.   end;
  5131.  
  5132. // *********************************************************************//
  5133. // Interface: ParagraphFormat
  5134. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5135. // GUID:      {91493496-5A91-11CF-8700-00AA0060263B}
  5136. // *********************************************************************//
  5137.   ParagraphFormat = interface(IDispatch)
  5138.     ['{91493496-5A91-11CF-8700-00AA0060263B}']
  5139.     function  Get_Application: IDispatch; safecall;
  5140.     function  Get_Parent: IDispatch; safecall;
  5141.     function  Get_Alignment: PpParagraphAlignment; safecall;
  5142.     procedure Set_Alignment(Alignment: PpParagraphAlignment); safecall;
  5143.     function  Get_Bullet: BulletFormat; safecall;
  5144.     function  Get_LineRuleBefore: MsoTriState; safecall;
  5145.     procedure Set_LineRuleBefore(LineRuleBefore: MsoTriState); safecall;
  5146.     function  Get_LineRuleAfter: MsoTriState; safecall;
  5147.     procedure Set_LineRuleAfter(LineRuleAfter: MsoTriState); safecall;
  5148.     function  Get_LineRuleWithin: MsoTriState; safecall;
  5149.     procedure Set_LineRuleWithin(LineRuleWithin: MsoTriState); safecall;
  5150.     function  Get_SpaceBefore: Single; safecall;
  5151.     procedure Set_SpaceBefore(SpaceBefore: Single); safecall;
  5152.     function  Get_SpaceAfter: Single; safecall;
  5153.     procedure Set_SpaceAfter(SpaceAfter: Single); safecall;
  5154.     function  Get_SpaceWithin: Single; safecall;
  5155.     procedure Set_SpaceWithin(SpaceWithin: Single); safecall;
  5156.     function  Get_BaseLineAlignment: PpBaselineAlignment; safecall;
  5157.     procedure Set_BaseLineAlignment(BaseLineAlignment: PpBaselineAlignment); safecall;
  5158.     function  Get_FarEastLineBreakControl: MsoTriState; safecall;
  5159.     procedure Set_FarEastLineBreakControl(FarEastLineBreakControl: MsoTriState); safecall;
  5160.     function  Get_WordWrap: MsoTriState; safecall;
  5161.     procedure Set_WordWrap(WordWrap: MsoTriState); safecall;
  5162.     function  Get_HangingPunctuation: MsoTriState; safecall;
  5163.     procedure Set_HangingPunctuation(HangingPunctuation: MsoTriState); safecall;
  5164.     function  Get_TextDirection: PpDirection; safecall;
  5165.     procedure Set_TextDirection(TextDirection: PpDirection); safecall;
  5166.     property Application: IDispatch read Get_Application;
  5167.     property Parent: IDispatch read Get_Parent;
  5168.     property Alignment: PpParagraphAlignment read Get_Alignment write Set_Alignment;
  5169.     property Bullet: BulletFormat read Get_Bullet;
  5170.     property LineRuleBefore: MsoTriState read Get_LineRuleBefore write Set_LineRuleBefore;
  5171.     property LineRuleAfter: MsoTriState read Get_LineRuleAfter write Set_LineRuleAfter;
  5172.     property LineRuleWithin: MsoTriState read Get_LineRuleWithin write Set_LineRuleWithin;
  5173.     property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
  5174.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  5175.     property SpaceWithin: Single read Get_SpaceWithin write Set_SpaceWithin;
  5176.     property BaseLineAlignment: PpBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
  5177.     property FarEastLineBreakControl: MsoTriState read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
  5178.     property WordWrap: MsoTriState read Get_WordWrap write Set_WordWrap;
  5179.     property HangingPunctuation: MsoTriState read Get_HangingPunctuation write Set_HangingPunctuation;
  5180.     property TextDirection: PpDirection read Get_TextDirection write Set_TextDirection;
  5181.   end;
  5182.  
  5183. // *********************************************************************//
  5184. // DispIntf:  ParagraphFormatDisp
  5185. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5186. // GUID:      {91493496-5A91-11CF-8700-00AA0060263B}
  5187. // *********************************************************************//
  5188.   ParagraphFormatDisp = dispinterface
  5189.     ['{91493496-5A91-11CF-8700-00AA0060263B}']
  5190.     property Application: IDispatch readonly dispid 2001;
  5191.     property Parent: IDispatch readonly dispid 2002;
  5192.     property Alignment: PpParagraphAlignment dispid 2003;
  5193.     property Bullet: BulletFormat readonly dispid 2004;
  5194.     property LineRuleBefore: MsoTriState dispid 2005;
  5195.     property LineRuleAfter: MsoTriState dispid 2006;
  5196.     property LineRuleWithin: MsoTriState dispid 2007;
  5197.     property SpaceBefore: Single dispid 2008;
  5198.     property SpaceAfter: Single dispid 2009;
  5199.     property SpaceWithin: Single dispid 2010;
  5200.     property BaseLineAlignment: PpBaselineAlignment dispid 2011;
  5201.     property FarEastLineBreakControl: MsoTriState dispid 2012;
  5202.     property WordWrap: MsoTriState dispid 2013;
  5203.     property HangingPunctuation: MsoTriState dispid 2014;
  5204.     property TextDirection: PpDirection dispid 2015;
  5205.   end;
  5206.  
  5207. // *********************************************************************//
  5208. // Interface: BulletFormat
  5209. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5210. // GUID:      {91493497-5A91-11CF-8700-00AA0060263B}
  5211. // *********************************************************************//
  5212.   BulletFormat = interface(IDispatch)
  5213.     ['{91493497-5A91-11CF-8700-00AA0060263B}']
  5214.     function  Get_Application: IDispatch; safecall;
  5215.     function  Get_Parent: IDispatch; safecall;
  5216.     function  Get_Visible: MsoTriState; safecall;
  5217.     procedure Set_Visible(Visible: MsoTriState); safecall;
  5218.     function  Get_Character: SYSINT; safecall;
  5219.     procedure Set_Character(Character: SYSINT); safecall;
  5220.     function  Get_RelativeSize: Single; safecall;
  5221.     procedure Set_RelativeSize(RelativeSize: Single); safecall;
  5222.     function  Get_UseTextColor: MsoTriState; safecall;
  5223.     procedure Set_UseTextColor(UseTextColor: MsoTriState); safecall;
  5224.     function  Get_UseTextFont: MsoTriState; safecall;
  5225.     procedure Set_UseTextFont(UseTextFont: MsoTriState); safecall;
  5226.     function  Get_Font: Font; safecall;
  5227.     property Application: IDispatch read Get_Application;
  5228.     property Parent: IDispatch read Get_Parent;
  5229.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  5230.     property Character: SYSINT read Get_Character write Set_Character;
  5231.     property RelativeSize: Single read Get_RelativeSize write Set_RelativeSize;
  5232.     property UseTextColor: MsoTriState read Get_UseTextColor write Set_UseTextColor;
  5233.     property UseTextFont: MsoTriState read Get_UseTextFont write Set_UseTextFont;
  5234.     property Font: Font read Get_Font;
  5235.   end;
  5236.  
  5237. // *********************************************************************//
  5238. // DispIntf:  BulletFormatDisp
  5239. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5240. // GUID:      {91493497-5A91-11CF-8700-00AA0060263B}
  5241. // *********************************************************************//
  5242.   BulletFormatDisp = dispinterface
  5243.     ['{91493497-5A91-11CF-8700-00AA0060263B}']
  5244.     property Application: IDispatch readonly dispid 2001;
  5245.     property Parent: IDispatch readonly dispid 2002;
  5246.     property Visible: MsoTriState dispid 0;
  5247.     property Character: SYSINT dispid 2003;
  5248.     property RelativeSize: Single dispid 2004;
  5249.     property UseTextColor: MsoTriState dispid 2005;
  5250.     property UseTextFont: MsoTriState dispid 2006;
  5251.     property Font: Font readonly dispid 2007;
  5252.   end;
  5253.  
  5254. // *********************************************************************//
  5255. // Interface: TextStyles
  5256. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5257. // GUID:      {91493498-5A91-11CF-8700-00AA0060263B}
  5258. // *********************************************************************//
  5259.   TextStyles = interface(Collection)
  5260.     ['{91493498-5A91-11CF-8700-00AA0060263B}']
  5261.     function  Get_Application: IDispatch; safecall;
  5262.     function  Get_Parent: IDispatch; safecall;
  5263.     function  Item(Type_: PpTextStyleType): TextStyle; safecall;
  5264.     property Application: IDispatch read Get_Application;
  5265.     property Parent: IDispatch read Get_Parent;
  5266.   end;
  5267.  
  5268. // *********************************************************************//
  5269. // DispIntf:  TextStylesDisp
  5270. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5271. // GUID:      {91493498-5A91-11CF-8700-00AA0060263B}
  5272. // *********************************************************************//
  5273.   TextStylesDisp = dispinterface
  5274.     ['{91493498-5A91-11CF-8700-00AA0060263B}']
  5275.     property Application: IDispatch readonly dispid 2001;
  5276.     property Parent: IDispatch readonly dispid 2002;
  5277.     function  Item(Type_: PpTextStyleType): TextStyle; dispid 0;
  5278.     property _NewEnum: IUnknown readonly dispid -4;
  5279.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  5280.     property Count: Integer readonly dispid 11;
  5281.   end;
  5282.  
  5283. // *********************************************************************//
  5284. // Interface: TextStyle
  5285. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5286. // GUID:      {91493499-5A91-11CF-8700-00AA0060263B}
  5287. // *********************************************************************//
  5288.   TextStyle = interface(IDispatch)
  5289.     ['{91493499-5A91-11CF-8700-00AA0060263B}']
  5290.     function  Get_Application: IDispatch; safecall;
  5291.     function  Get_Parent: IDispatch; safecall;
  5292.     function  Get_Ruler: Ruler; safecall;
  5293.     function  Get_TextFrame: TextFrame; safecall;
  5294.     function  Get_Levels: TextStyleLevels; safecall;
  5295.     property Application: IDispatch read Get_Application;
  5296.     property Parent: IDispatch read Get_Parent;
  5297.     property Ruler: Ruler read Get_Ruler;
  5298.     property TextFrame: TextFrame read Get_TextFrame;
  5299.     property Levels: TextStyleLevels read Get_Levels;
  5300.   end;
  5301.  
  5302. // *********************************************************************//
  5303. // DispIntf:  TextStyleDisp
  5304. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5305. // GUID:      {91493499-5A91-11CF-8700-00AA0060263B}
  5306. // *********************************************************************//
  5307.   TextStyleDisp = dispinterface
  5308.     ['{91493499-5A91-11CF-8700-00AA0060263B}']
  5309.     property Application: IDispatch readonly dispid 2001;
  5310.     property Parent: IDispatch readonly dispid 2002;
  5311.     property Ruler: Ruler readonly dispid 2003;
  5312.     property TextFrame: TextFrame readonly dispid 2004;
  5313.     property Levels: TextStyleLevels readonly dispid 2005;
  5314.   end;
  5315.  
  5316. // *********************************************************************//
  5317. // Interface: TextStyleLevels
  5318. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5319. // GUID:      {9149349A-5A91-11CF-8700-00AA0060263B}
  5320. // *********************************************************************//
  5321.   TextStyleLevels = interface(Collection)
  5322.     ['{9149349A-5A91-11CF-8700-00AA0060263B}']
  5323.     function  Get_Application: IDispatch; safecall;
  5324.     function  Get_Parent: IDispatch; safecall;
  5325.     function  Item(Level: SYSINT): TextStyleLevel; safecall;
  5326.     property Application: IDispatch read Get_Application;
  5327.     property Parent: IDispatch read Get_Parent;
  5328.   end;
  5329.  
  5330. // *********************************************************************//
  5331. // DispIntf:  TextStyleLevelsDisp
  5332. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5333. // GUID:      {9149349A-5A91-11CF-8700-00AA0060263B}
  5334. // *********************************************************************//
  5335.   TextStyleLevelsDisp = dispinterface
  5336.     ['{9149349A-5A91-11CF-8700-00AA0060263B}']
  5337.     property Application: IDispatch readonly dispid 2001;
  5338.     property Parent: IDispatch readonly dispid 2002;
  5339.     function  Item(Level: SYSINT): TextStyleLevel; dispid 0;
  5340.     property _NewEnum: IUnknown readonly dispid -4;
  5341.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  5342.     property Count: Integer readonly dispid 11;
  5343.   end;
  5344.  
  5345. // *********************************************************************//
  5346. // Interface: TextStyleLevel
  5347. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5348. // GUID:      {9149349B-5A91-11CF-8700-00AA0060263B}
  5349. // *********************************************************************//
  5350.   TextStyleLevel = interface(IDispatch)
  5351.     ['{9149349B-5A91-11CF-8700-00AA0060263B}']
  5352.     function  Get_Application: IDispatch; safecall;
  5353.     function  Get_Parent: IDispatch; safecall;
  5354.     function  Get_ParagraphFormat: ParagraphFormat; safecall;
  5355.     function  Get_Font: Font; safecall;
  5356.     property Application: IDispatch read Get_Application;
  5357.     property Parent: IDispatch read Get_Parent;
  5358.     property ParagraphFormat: ParagraphFormat read Get_ParagraphFormat;
  5359.     property Font: Font read Get_Font;
  5360.   end;
  5361.  
  5362. // *********************************************************************//
  5363. // DispIntf:  TextStyleLevelDisp
  5364. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5365. // GUID:      {9149349B-5A91-11CF-8700-00AA0060263B}
  5366. // *********************************************************************//
  5367.   TextStyleLevelDisp = dispinterface
  5368.     ['{9149349B-5A91-11CF-8700-00AA0060263B}']
  5369.     property Application: IDispatch readonly dispid 2001;
  5370.     property Parent: IDispatch readonly dispid 2002;
  5371.     property ParagraphFormat: ParagraphFormat readonly dispid 2003;
  5372.     property Font: Font readonly dispid 2004;
  5373.   end;
  5374.  
  5375. // *********************************************************************//
  5376. // Interface: HeaderFooter
  5377. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5378. // GUID:      {9149349C-5A91-11CF-8700-00AA0060263B}
  5379. // *********************************************************************//
  5380.   HeaderFooter = interface(IDispatch)
  5381.     ['{9149349C-5A91-11CF-8700-00AA0060263B}']
  5382.     function  Get_Application: IDispatch; safecall;
  5383.     function  Get_Parent: IDispatch; safecall;
  5384.     function  Get_Visible: MsoTriState; safecall;
  5385.     procedure Set_Visible(Visible: MsoTriState); safecall;
  5386.     function  Get_Text: WideString; safecall;
  5387.     procedure Set_Text(const Text: WideString); safecall;
  5388.     function  Get_UseFormat: MsoTriState; safecall;
  5389.     procedure Set_UseFormat(UseFormat: MsoTriState); safecall;
  5390.     function  Get_Format: PpDateTimeFormat; safecall;
  5391.     procedure Set_Format(Format: PpDateTimeFormat); safecall;
  5392.     property Application: IDispatch read Get_Application;
  5393.     property Parent: IDispatch read Get_Parent;
  5394.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  5395.     property Text: WideString read Get_Text write Set_Text;
  5396.     property UseFormat: MsoTriState read Get_UseFormat write Set_UseFormat;
  5397.     property Format: PpDateTimeFormat read Get_Format write Set_Format;
  5398.   end;
  5399.  
  5400. // *********************************************************************//
  5401. // DispIntf:  HeaderFooterDisp
  5402. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5403. // GUID:      {9149349C-5A91-11CF-8700-00AA0060263B}
  5404. // *********************************************************************//
  5405.   HeaderFooterDisp = dispinterface
  5406.     ['{9149349C-5A91-11CF-8700-00AA0060263B}']
  5407.     property Application: IDispatch readonly dispid 2001;
  5408.     property Parent: IDispatch readonly dispid 2002;
  5409.     property Visible: MsoTriState dispid 2003;
  5410.     property Text: WideString dispid 2004;
  5411.     property UseFormat: MsoTriState dispid 2005;
  5412.     property Format: PpDateTimeFormat dispid 2006;
  5413.   end;
  5414.  
  5415. // *********************************************************************//
  5416. // Interface: PPDialogs
  5417. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5418. // GUID:      {9149349E-5A91-11CF-8700-00AA0060263B}
  5419. // *********************************************************************//
  5420.   PPDialogs = interface(Collection)
  5421.     ['{9149349E-5A91-11CF-8700-00AA0060263B}']
  5422.     function  Get_Application: IDispatch; safecall;
  5423.     function  Item(index: OleVariant): PPDialog; safecall;
  5424.     function  AddDialog(Left: Single; Top: Single; Width: Single; Height: Single; 
  5425.                         Modal: MsoTriState; const ParentWindow: IUnknown; 
  5426.                         Position: PpDialogPositioning; DisplayHelp: MsoTriState): PPDialog; safecall;
  5427.     function  AddTabDialog(Left: Single; Top: Single; Width: Single; Height: Single; 
  5428.                            Modal: MsoTriState; const ParentWindow: IUnknown; 
  5429.                            Position: PpDialogPositioning; DisplayHelp: MsoTriState): PPDialog; safecall;
  5430.     function  LoadDialog(const resourceDLL: WideString; nResID: SYSINT; bModal: MsoTriState; 
  5431.                          const ParentWindow: IUnknown; Position: PpDialogPositioning): PPDialog; safecall;
  5432.     function  AddAlert: PPAlert; safecall;
  5433.     function  Get_Tags: Tags; safecall;
  5434.     function  Get_Name: WideString; safecall;
  5435.     procedure Set_Name(const Name: WideString); safecall;
  5436.     function  RunCharacterAlert(const Text: WideString; Type_: PpAlertType; icon: PpAlertIcon; 
  5437.                                 const ParentWindow: IUnknown): PpAlertButton; safecall;
  5438.     property Application: IDispatch read Get_Application;
  5439.     property Tags: Tags read Get_Tags;
  5440.     property Name: WideString read Get_Name write Set_Name;
  5441.   end;
  5442.  
  5443. // *********************************************************************//
  5444. // DispIntf:  PPDialogsDisp
  5445. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5446. // GUID:      {9149349E-5A91-11CF-8700-00AA0060263B}
  5447. // *********************************************************************//
  5448.   PPDialogsDisp = dispinterface
  5449.     ['{9149349E-5A91-11CF-8700-00AA0060263B}']
  5450.     property Application: IDispatch readonly dispid 2001;
  5451.     function  Item(index: OleVariant): PPDialog; dispid 0;
  5452.     function  AddDialog(Left: Single; Top: Single; Width: Single; Height: Single; 
  5453.                         Modal: MsoTriState; const ParentWindow: IUnknown; 
  5454.                         Position: PpDialogPositioning; DisplayHelp: MsoTriState): PPDialog; dispid 2002;
  5455.     function  AddTabDialog(Left: Single; Top: Single; Width: Single; Height: Single; 
  5456.                            Modal: MsoTriState; const ParentWindow: IUnknown; 
  5457.                            Position: PpDialogPositioning; DisplayHelp: MsoTriState): PPDialog; dispid 2003;
  5458.     function  LoadDialog(const resourceDLL: WideString; nResID: SYSINT; bModal: MsoTriState; 
  5459.                          const ParentWindow: IUnknown; Position: PpDialogPositioning): PPDialog; dispid 2004;
  5460.     function  AddAlert: PPAlert; dispid 2005;
  5461.     property Tags: Tags readonly dispid 2006;
  5462.     property Name: WideString dispid 2007;
  5463.     function  RunCharacterAlert(const Text: WideString; Type_: PpAlertType; icon: PpAlertIcon; 
  5464.                                 const ParentWindow: IUnknown): PpAlertButton; dispid 2008;
  5465.     property _NewEnum: IUnknown readonly dispid -4;
  5466.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  5467.     property Count: Integer readonly dispid 11;
  5468.   end;
  5469.  
  5470. // *********************************************************************//
  5471. // Interface: PPAlert
  5472. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5473. // GUID:      {9149349F-5A91-11CF-8700-00AA0060263B}
  5474. // *********************************************************************//
  5475.   PPAlert = interface(IDispatch)
  5476.     ['{9149349F-5A91-11CF-8700-00AA0060263B}']
  5477.     function  Get_Application: IDispatch; safecall;
  5478.     function  Get_Parent: IDispatch; safecall;
  5479.     procedure Run(const Title: WideString; Type_: SYSINT; const Text: WideString; 
  5480.                   const leftBtn: WideString; const middleBtn: WideString; const rightBtn: WideString); safecall;
  5481.     function  Get_PressedButton: SYSINT; safecall;
  5482.     function  Get_OnButton: WideString; safecall;
  5483.     procedure Set_OnButton(const OnButton: WideString); safecall;
  5484.     property Application: IDispatch read Get_Application;
  5485.     property Parent: IDispatch read Get_Parent;
  5486.     property PressedButton: SYSINT read Get_PressedButton;
  5487.     property OnButton: WideString read Get_OnButton write Set_OnButton;
  5488.   end;
  5489.  
  5490. // *********************************************************************//
  5491. // DispIntf:  PPAlertDisp
  5492. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5493. // GUID:      {9149349F-5A91-11CF-8700-00AA0060263B}
  5494. // *********************************************************************//
  5495.   PPAlertDisp = dispinterface
  5496.     ['{9149349F-5A91-11CF-8700-00AA0060263B}']
  5497.     property Application: IDispatch readonly dispid 2001;
  5498.     property Parent: IDispatch readonly dispid 2002;
  5499.     procedure Run(const Title: WideString; Type_: SYSINT; const Text: WideString; 
  5500.                   const leftBtn: WideString; const middleBtn: WideString; const rightBtn: WideString); dispid 2003;
  5501.     property PressedButton: SYSINT readonly dispid 2004;
  5502.     property OnButton: WideString dispid 2005;
  5503.   end;
  5504.  
  5505. // *********************************************************************//
  5506. // Interface: PPDialog
  5507. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5508. // GUID:      {914934A0-5A91-11CF-8700-00AA0060263B}
  5509. // *********************************************************************//
  5510.   PPDialog = interface(IDispatch)
  5511.     ['{914934A0-5A91-11CF-8700-00AA0060263B}']
  5512.     function  Get_Application: IDispatch; safecall;
  5513.     function  Get_Parent: IDispatch; safecall;
  5514.     function  Get_Style: PpDialogStyle; safecall;
  5515.     function  Get_Mode: PpDialogMode; safecall;
  5516.     procedure Set_Mode(Mode: PpDialogMode); safecall;
  5517.     function  Get_HelpId: SYSINT; safecall;
  5518.     procedure Set_HelpId(HelpId: SYSINT); safecall;
  5519.     function  Get_HideOnIdle: MsoTriState; safecall;
  5520.     procedure Set_HideOnIdle(HideOnIdle: MsoTriState); safecall;
  5521.     function  Get_resourceDLL: WideString; safecall;
  5522.     procedure Set_resourceDLL(const resourceDLL: WideString); safecall;
  5523.     function  Get_Caption: WideString; safecall;
  5524.     procedure Set_Caption(const Caption: WideString); safecall;
  5525.     function  Get_Left: Single; safecall;
  5526.     procedure Set_Left(Left: Single); safecall;
  5527.     function  Get_Top: Single; safecall;
  5528.     procedure Set_Top(Top: Single); safecall;
  5529.     function  Get_Width: Single; safecall;
  5530.     procedure Set_Width(Width: Single); safecall;
  5531.     function  Get_Height: Single; safecall;
  5532.     procedure Set_Height(Height: Single); safecall;
  5533.     function  Get_ClientLeft: Single; safecall;
  5534.     function  Get_ClientTop: Single; safecall;
  5535.     function  Get_ClientWidth: Single; safecall;
  5536.     function  Get_ClientHeight: Single; safecall;
  5537.     function  Get_Visible: MsoTriState; safecall;
  5538.     procedure Set_Visible(Visible: MsoTriState); safecall;
  5539.     function  Get_Controls: PPControls; safecall;
  5540.     function  Get_Tags: Tags; safecall;
  5541.     function  Get_Name: WideString; safecall;
  5542.     procedure Set_Name(const Name: WideString); safecall;
  5543.     function  Get_Sheets: PPTabSheets; safecall;
  5544.     function  Get_TabControl: PPTabControl; safecall;
  5545.     function  Get_DelayTime: SYSINT; safecall;
  5546.     procedure Set_DelayTime(DelayTime: SYSINT); safecall;
  5547.     function  SaveDialog(const FileName: WideString): SYSINT; safecall;
  5548.     procedure Terminate; safecall;
  5549.     function  Get_HWND: Integer; safecall;
  5550.     function  Get_OnTerminate: WideString; safecall;
  5551.     procedure Set_OnTerminate(const OnTerminate: WideString); safecall;
  5552.     function  Get_OnIdle: WideString; safecall;
  5553.     procedure Set_OnIdle(const OnIdle: WideString); safecall;
  5554.     function  Get_OnMouseDown: WideString; safecall;
  5555.     procedure Set_OnMouseDown(const OnMouseDown: WideString); safecall;
  5556.     function  Get_OnMouseUp: WideString; safecall;
  5557.     procedure Set_OnMouseUp(const OnMouseUp: WideString); safecall;
  5558.     function  Get_OnKeyPressed: WideString; safecall;
  5559.     procedure Set_OnKeyPressed(const OnKeyPressed: WideString); safecall;
  5560.     function  Get_OnTimer: WideString; safecall;
  5561.     procedure Set_OnTimer(const OnTimer: WideString); safecall;
  5562.     function  Get_OnActivate: WideString; safecall;
  5563.     procedure Set_OnActivate(const OnActivate: WideString); safecall;
  5564.     property Application: IDispatch read Get_Application;
  5565.     property Parent: IDispatch read Get_Parent;
  5566.     property Style: PpDialogStyle read Get_Style;
  5567.     property Mode: PpDialogMode read Get_Mode write Set_Mode;
  5568.     property HelpId: SYSINT read Get_HelpId write Set_HelpId;
  5569.     property HideOnIdle: MsoTriState read Get_HideOnIdle write Set_HideOnIdle;
  5570.     property resourceDLL: WideString read Get_resourceDLL write Set_resourceDLL;
  5571.     property Caption: WideString read Get_Caption write Set_Caption;
  5572.     property Left: Single read Get_Left write Set_Left;
  5573.     property Top: Single read Get_Top write Set_Top;
  5574.     property Width: Single read Get_Width write Set_Width;
  5575.     property Height: Single read Get_Height write Set_Height;
  5576.     property ClientLeft: Single read Get_ClientLeft;
  5577.     property ClientTop: Single read Get_ClientTop;
  5578.     property ClientWidth: Single read Get_ClientWidth;
  5579.     property ClientHeight: Single read Get_ClientHeight;
  5580.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  5581.     property Controls: PPControls read Get_Controls;
  5582.     property Tags: Tags read Get_Tags;
  5583.     property Name: WideString read Get_Name write Set_Name;
  5584.     property Sheets: PPTabSheets read Get_Sheets;
  5585.     property TabControl: PPTabControl read Get_TabControl;
  5586.     property DelayTime: SYSINT read Get_DelayTime write Set_DelayTime;
  5587.     property HWND: Integer read Get_HWND;
  5588.     property OnTerminate: WideString read Get_OnTerminate write Set_OnTerminate;
  5589.     property OnIdle: WideString read Get_OnIdle write Set_OnIdle;
  5590.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  5591.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  5592.     property OnKeyPressed: WideString read Get_OnKeyPressed write Set_OnKeyPressed;
  5593.     property OnTimer: WideString read Get_OnTimer write Set_OnTimer;
  5594.     property OnActivate: WideString read Get_OnActivate write Set_OnActivate;
  5595.   end;
  5596.  
  5597. // *********************************************************************//
  5598. // DispIntf:  PPDialogDisp
  5599. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5600. // GUID:      {914934A0-5A91-11CF-8700-00AA0060263B}
  5601. // *********************************************************************//
  5602.   PPDialogDisp = dispinterface
  5603.     ['{914934A0-5A91-11CF-8700-00AA0060263B}']
  5604.     property Application: IDispatch readonly dispid 2001;
  5605.     property Parent: IDispatch readonly dispid 2002;
  5606.     property Style: PpDialogStyle readonly dispid 2003;
  5607.     property Mode: PpDialogMode dispid 2004;
  5608.     property HelpId: SYSINT dispid 2005;
  5609.     property HideOnIdle: MsoTriState dispid 2006;
  5610.     property resourceDLL: WideString dispid 2007;
  5611.     property Caption: WideString dispid 2008;
  5612.     property Left: Single dispid 2009;
  5613.     property Top: Single dispid 2010;
  5614.     property Width: Single dispid 2011;
  5615.     property Height: Single dispid 2012;
  5616.     property ClientLeft: Single readonly dispid 2013;
  5617.     property ClientTop: Single readonly dispid 2014;
  5618.     property ClientWidth: Single readonly dispid 2015;
  5619.     property ClientHeight: Single readonly dispid 2016;
  5620.     property Visible: MsoTriState dispid 2017;
  5621.     property Controls: PPControls readonly dispid 2018;
  5622.     property Tags: Tags readonly dispid 2019;
  5623.     property Name: WideString dispid 2020;
  5624.     property Sheets: PPTabSheets readonly dispid 2021;
  5625.     property TabControl: PPTabControl readonly dispid 2022;
  5626.     property DelayTime: SYSINT dispid 2023;
  5627.     function  SaveDialog(const FileName: WideString): SYSINT; dispid 2024;
  5628.     procedure Terminate; dispid 2025;
  5629.     property HWND: Integer readonly dispid 2026;
  5630.     property OnTerminate: WideString dispid 2027;
  5631.     property OnIdle: WideString dispid 2028;
  5632.     property OnMouseDown: WideString dispid 2029;
  5633.     property OnMouseUp: WideString dispid 2030;
  5634.     property OnKeyPressed: WideString dispid 2031;
  5635.     property OnTimer: WideString dispid 2032;
  5636.     property OnActivate: WideString dispid 2033;
  5637.   end;
  5638.  
  5639. // *********************************************************************//
  5640. // Interface: PPTabSheet
  5641. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5642. // GUID:      {914934A1-5A91-11CF-8700-00AA0060263B}
  5643. // *********************************************************************//
  5644.   PPTabSheet = interface(IDispatch)
  5645.     ['{914934A1-5A91-11CF-8700-00AA0060263B}']
  5646.     function  Get_Application: IDispatch; safecall;
  5647.     function  Get_Parent: IDispatch; safecall;
  5648.     function  Get_Name: WideString; safecall;
  5649.     procedure Set_Name(const Name: WideString); safecall;
  5650.     procedure Select; safecall;
  5651.     function  Get_ClientLeft: Single; safecall;
  5652.     function  Get_ClientTop: Single; safecall;
  5653.     function  Get_ClientWidth: Single; safecall;
  5654.     function  Get_ClientHeight: Single; safecall;
  5655.     function  Get_Controls: PPControls; safecall;
  5656.     function  Get_Tags: Tags; safecall;
  5657.     function  Get_OnActivate: WideString; safecall;
  5658.     procedure Set_OnActivate(const OnActivate: WideString); safecall;
  5659.     property Application: IDispatch read Get_Application;
  5660.     property Parent: IDispatch read Get_Parent;
  5661.     property Name: WideString read Get_Name write Set_Name;
  5662.     property ClientLeft: Single read Get_ClientLeft;
  5663.     property ClientTop: Single read Get_ClientTop;
  5664.     property ClientWidth: Single read Get_ClientWidth;
  5665.     property ClientHeight: Single read Get_ClientHeight;
  5666.     property Controls: PPControls read Get_Controls;
  5667.     property Tags: Tags read Get_Tags;
  5668.     property OnActivate: WideString read Get_OnActivate write Set_OnActivate;
  5669.   end;
  5670.  
  5671. // *********************************************************************//
  5672. // DispIntf:  PPTabSheetDisp
  5673. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5674. // GUID:      {914934A1-5A91-11CF-8700-00AA0060263B}
  5675. // *********************************************************************//
  5676.   PPTabSheetDisp = dispinterface
  5677.     ['{914934A1-5A91-11CF-8700-00AA0060263B}']
  5678.     property Application: IDispatch readonly dispid 2001;
  5679.     property Parent: IDispatch readonly dispid 2002;
  5680.     property Name: WideString dispid 2003;
  5681.     procedure Select; dispid 2004;
  5682.     property ClientLeft: Single readonly dispid 2005;
  5683.     property ClientTop: Single readonly dispid 2006;
  5684.     property ClientWidth: Single readonly dispid 2007;
  5685.     property ClientHeight: Single readonly dispid 2008;
  5686.     property Controls: PPControls readonly dispid 2009;
  5687.     property Tags: Tags readonly dispid 2010;
  5688.     property OnActivate: WideString dispid 2011;
  5689.   end;
  5690.  
  5691. // *********************************************************************//
  5692. // Interface: PPControls
  5693. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5694. // GUID:      {914934A2-5A91-11CF-8700-00AA0060263B}
  5695. // *********************************************************************//
  5696.   PPControls = interface(Collection)
  5697.     ['{914934A2-5A91-11CF-8700-00AA0060263B}']
  5698.     function  Get_Application: IDispatch; safecall;
  5699.     function  Item(index: OleVariant): PPControl; safecall;
  5700.     function  AddPushButton(Left: Single; Top: Single; Width: Single; Height: Single): PPPushButton; safecall;
  5701.     function  AddToggleButton(Left: Single; Top: Single; Width: Single; Height: Single): PPToggleButton; safecall;
  5702.     function  AddBitmapButton(Left: Single; Top: Single; Width: Single; Height: Single): PPBitmapButton; safecall;
  5703.     function  AddListBox(Left: Single; Top: Single; Width: Single; Height: Single): PPListBox; safecall;
  5704.     function  AddCheckBox(Left: Single; Top: Single; Width: Single; Height: Single): PPCheckBox; safecall;
  5705.     function  AddRadioCluster(Left: Single; Top: Single; Width: Single; Height: Single): PPRadioCluster; safecall;
  5706.     function  AddStaticText(Left: Single; Top: Single; Width: Single; Height: Single): PPStaticText; safecall;
  5707.     function  AddEditText(Left: Single; Top: Single; Width: Single; Height: Single; 
  5708.                           VerticalScrollBar: OleVariant): PPEditText; safecall;
  5709.     function  AddIcon(Left: Single; Top: Single; Width: Single; Height: Single): PPIcon; safecall;
  5710.     function  AddBitmap(Left: Single; Top: Single; Width: Single; Height: Single): PPBitmap; safecall;
  5711.     function  AddSpinner(Left: Single; Top: Single; Width: Single; Height: Single): PPSpinner; safecall;
  5712.     function  AddScrollBar(Style: PpScrollBarStyle; Left: Single; Top: Single; Width: Single; 
  5713.                            Height: Single): PPScrollBar; safecall;
  5714.     function  AddGroupBox(Left: Single; Top: Single; Width: Single; Height: Single): PPGroupBox; safecall;
  5715.     function  AddDropDown(Left: Single; Top: Single; Width: Single; Height: Single): PPDropDown; safecall;
  5716.     function  AddDropDownEdit(Left: Single; Top: Single; Width: Single; Height: Single): PPDropDownEdit; safecall;
  5717.     function  AddMiniature(Left: Single; Top: Single; Width: Single; Height: Single): PPSlideMiniature; safecall;
  5718.     function  AddFrame(Left: Single; Top: Single; Width: Single; Height: Single): PPFrame; safecall;
  5719.     function  Get_Visible: MsoTriState; safecall;
  5720.     procedure Set_Visible(Visible: MsoTriState); safecall;
  5721.     property Application: IDispatch read Get_Application;
  5722.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  5723.   end;
  5724.  
  5725. // *********************************************************************//
  5726. // DispIntf:  PPControlsDisp
  5727. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5728. // GUID:      {914934A2-5A91-11CF-8700-00AA0060263B}
  5729. // *********************************************************************//
  5730.   PPControlsDisp = dispinterface
  5731.     ['{914934A2-5A91-11CF-8700-00AA0060263B}']
  5732.     property Application: IDispatch readonly dispid 2001;
  5733.     function  Item(index: OleVariant): PPControl; dispid 0;
  5734.     function  AddPushButton(Left: Single; Top: Single; Width: Single; Height: Single): PPPushButton; dispid 2002;
  5735.     function  AddToggleButton(Left: Single; Top: Single; Width: Single; Height: Single): PPToggleButton; dispid 2003;
  5736.     function  AddBitmapButton(Left: Single; Top: Single; Width: Single; Height: Single): PPBitmapButton; dispid 2004;
  5737.     function  AddListBox(Left: Single; Top: Single; Width: Single; Height: Single): PPListBox; dispid 2005;
  5738.     function  AddCheckBox(Left: Single; Top: Single; Width: Single; Height: Single): PPCheckBox; dispid 2006;
  5739.     function  AddRadioCluster(Left: Single; Top: Single; Width: Single; Height: Single): PPRadioCluster; dispid 2007;
  5740.     function  AddStaticText(Left: Single; Top: Single; Width: Single; Height: Single): PPStaticText; dispid 2008;
  5741.     function  AddEditText(Left: Single; Top: Single; Width: Single; Height: Single; 
  5742.                           VerticalScrollBar: OleVariant): PPEditText; dispid 2009;
  5743.     function  AddIcon(Left: Single; Top: Single; Width: Single; Height: Single): PPIcon; dispid 2010;
  5744.     function  AddBitmap(Left: Single; Top: Single; Width: Single; Height: Single): PPBitmap; dispid 2011;
  5745.     function  AddSpinner(Left: Single; Top: Single; Width: Single; Height: Single): PPSpinner; dispid 2012;
  5746.     function  AddScrollBar(Style: PpScrollBarStyle; Left: Single; Top: Single; Width: Single; 
  5747.                            Height: Single): PPScrollBar; dispid 2013;
  5748.     function  AddGroupBox(Left: Single; Top: Single; Width: Single; Height: Single): PPGroupBox; dispid 2014;
  5749.     function  AddDropDown(Left: Single; Top: Single; Width: Single; Height: Single): PPDropDown; dispid 2015;
  5750.     function  AddDropDownEdit(Left: Single; Top: Single; Width: Single; Height: Single): PPDropDownEdit; dispid 2016;
  5751.     function  AddMiniature(Left: Single; Top: Single; Width: Single; Height: Single): PPSlideMiniature; dispid 2017;
  5752.     function  AddFrame(Left: Single; Top: Single; Width: Single; Height: Single): PPFrame; dispid 2018;
  5753.     property Visible: MsoTriState dispid 2019;
  5754.     property _NewEnum: IUnknown readonly dispid -4;
  5755.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  5756.     property Count: Integer readonly dispid 11;
  5757.   end;
  5758.  
  5759. // *********************************************************************//
  5760. // Interface: PPTabSheets
  5761. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5762. // GUID:      {914934A3-5A91-11CF-8700-00AA0060263B}
  5763. // *********************************************************************//
  5764.   PPTabSheets = interface(Collection)
  5765.     ['{914934A3-5A91-11CF-8700-00AA0060263B}']
  5766.     function  Item(index: OleVariant): PPTabSheet; safecall;
  5767.     function  Add(const Name: WideString): PPTabSheet; safecall;
  5768.     function  Get_ActiveSheet: PPTabSheet; safecall;
  5769.     function  Get_Name: WideString; safecall;
  5770.     procedure Set_Name(const Name: WideString); safecall;
  5771.     property ActiveSheet: PPTabSheet read Get_ActiveSheet;
  5772.     property Name: WideString read Get_Name write Set_Name;
  5773.   end;
  5774.  
  5775. // *********************************************************************//
  5776. // DispIntf:  PPTabSheetsDisp
  5777. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5778. // GUID:      {914934A3-5A91-11CF-8700-00AA0060263B}
  5779. // *********************************************************************//
  5780.   PPTabSheetsDisp = dispinterface
  5781.     ['{914934A3-5A91-11CF-8700-00AA0060263B}']
  5782.     function  Item(index: OleVariant): PPTabSheet; dispid 0;
  5783.     function  Add(const Name: WideString): PPTabSheet; dispid 2001;
  5784.     property ActiveSheet: PPTabSheet readonly dispid 2002;
  5785.     property Name: WideString dispid 2003;
  5786.     property _NewEnum: IUnknown readonly dispid -4;
  5787.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  5788.     property Count: Integer readonly dispid 11;
  5789.   end;
  5790.  
  5791. // *********************************************************************//
  5792. // Interface: PPControl
  5793. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  5794. // GUID:      {914934A4-5A91-11CF-8700-00AA0060263B}
  5795. // *********************************************************************//
  5796.   PPControl = interface(IDispatch)
  5797.     ['{914934A4-5A91-11CF-8700-00AA0060263B}']
  5798.     function  Get_Application: IDispatch; safecall;
  5799.     function  Get_Parent: IDispatch; safecall;
  5800.     function  Get_Enable: MsoTriState; safecall;
  5801.     procedure Set_Enable(Enable: MsoTriState); safecall;
  5802.     function  Get_Visible: MsoTriState; safecall;
  5803.     procedure Set_Visible(Visible: MsoTriState); safecall;
  5804.     function  Get_Focus: MsoTriState; safecall;
  5805.     procedure Set_Focus(Focus: MsoTriState); safecall;
  5806.     function  Get_Label_: WideString; safecall;
  5807.     procedure Set_Label_(const Label_: WideString); safecall;
  5808.     function  Get_HelpId: SYSINT; safecall;
  5809.     procedure Set_HelpId(HelpId: SYSINT); safecall;
  5810.     function  Get_Left: Single; safecall;
  5811.     procedure Set_Left(Left: Single); safecall;
  5812.     function  Get_Top: Single; safecall;
  5813.     procedure Set_Top(Top: Single); safecall;
  5814.     function  Get_Width: Single; safecall;
  5815.     procedure Set_Width(Width: Single); safecall;
  5816.     function  Get_Height: Single; safecall;
  5817.     procedure Set_Height(Height: Single); safecall;
  5818.     function  Get_HWND: Integer; safecall;
  5819.     function  Get_OnSetFocus: WideString; safecall;
  5820.     procedure Set_OnSetFocus(const OnSetFocus: WideString); safecall;
  5821.     function  Get_OnKillFocus: WideString; safecall;
  5822.     procedure Set_OnKillFocus(const OnKillFocus: WideString); safecall;
  5823.     function  Get_Tags: Tags; safecall;
  5824.     function  Get_Name: WideString; safecall;
  5825.     procedure Set_Name(const Name: WideString); safecall;
  5826.     property Application: IDispatch read Get_Application;
  5827.     property Parent: IDispatch read Get_Parent;
  5828.     property Enable: MsoTriState read Get_Enable write Set_Enable;
  5829.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  5830.     property Focus: MsoTriState read Get_Focus write Set_Focus;
  5831.     property Label_: WideString read Get_Label_ write Set_Label_;
  5832.     property HelpId: SYSINT read Get_HelpId write Set_HelpId;
  5833.     property Left: Single read Get_Left write Set_Left;
  5834.     property Top: Single read Get_Top write Set_Top;
  5835.     property Width: Single read Get_Width write Set_Width;
  5836.     property Height: Single read Get_Height write Set_Height;
  5837.     property HWND: Integer read Get_HWND;
  5838.     property OnSetFocus: WideString read Get_OnSetFocus write Set_OnSetFocus;
  5839.     property OnKillFocus: WideString read Get_OnKillFocus write Set_OnKillFocus;
  5840.     property Tags: Tags read Get_Tags;
  5841.     property Name: WideString read Get_Name write Set_Name;
  5842.   end;
  5843.  
  5844. // *********************************************************************//
  5845. // DispIntf:  PPControlDisp
  5846. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  5847. // GUID:      {914934A4-5A91-11CF-8700-00AA0060263B}
  5848. // *********************************************************************//
  5849.   PPControlDisp = dispinterface
  5850.     ['{914934A4-5A91-11CF-8700-00AA0060263B}']
  5851.     property Application: IDispatch readonly dispid 1001;
  5852.     property Parent: IDispatch readonly dispid 1002;
  5853.     property Enable: MsoTriState dispid 1003;
  5854.     property Visible: MsoTriState dispid 1004;
  5855.     property Focus: MsoTriState dispid 1005;
  5856.     property Label_: WideString dispid 1006;
  5857.     property HelpId: SYSINT dispid 1007;
  5858.     property Left: Single dispid 1008;
  5859.     property Top: Single dispid 1009;
  5860.     property Width: Single dispid 1010;
  5861.     property Height: Single dispid 1011;
  5862.     property HWND: Integer readonly dispid 1012;
  5863.     property OnSetFocus: WideString dispid 1013;
  5864.     property OnKillFocus: WideString dispid 1014;
  5865.     property Tags: Tags readonly dispid 1015;
  5866.     property Name: WideString dispid 1016;
  5867.   end;
  5868.  
  5869. // *********************************************************************//
  5870. // Interface: PPPushButton
  5871. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5872. // GUID:      {914934A5-5A91-11CF-8700-00AA0060263B}
  5873. // *********************************************************************//
  5874.   PPPushButton = interface(PPControl)
  5875.     ['{914934A5-5A91-11CF-8700-00AA0060263B}']
  5876.     procedure Click; safecall;
  5877.     function  Get_IsDefault: MsoTriState; safecall;
  5878.     procedure Set_IsDefault(IsDefault: MsoTriState); safecall;
  5879.     function  Get_IsEscape: MsoTriState; safecall;
  5880.     procedure Set_IsEscape(IsEscape: MsoTriState); safecall;
  5881.     function  Get_OnPressed: WideString; safecall;
  5882.     procedure Set_OnPressed(const OnPressed: WideString); safecall;
  5883.     property IsDefault: MsoTriState read Get_IsDefault write Set_IsDefault;
  5884.     property IsEscape: MsoTriState read Get_IsEscape write Set_IsEscape;
  5885.     property OnPressed: WideString read Get_OnPressed write Set_OnPressed;
  5886.   end;
  5887.  
  5888. // *********************************************************************//
  5889. // DispIntf:  PPPushButtonDisp
  5890. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5891. // GUID:      {914934A5-5A91-11CF-8700-00AA0060263B}
  5892. // *********************************************************************//
  5893.   PPPushButtonDisp = dispinterface
  5894.     ['{914934A5-5A91-11CF-8700-00AA0060263B}']
  5895.     procedure Click; dispid 2001;
  5896.     property IsDefault: MsoTriState dispid 2002;
  5897.     property IsEscape: MsoTriState dispid 2003;
  5898.     property OnPressed: WideString dispid 2004;
  5899.     property Application: IDispatch readonly dispid 1001;
  5900.     property Parent: IDispatch readonly dispid 1002;
  5901.     property Enable: MsoTriState dispid 1003;
  5902.     property Visible: MsoTriState dispid 1004;
  5903.     property Focus: MsoTriState dispid 1005;
  5904.     property Label_: WideString dispid 1006;
  5905.     property HelpId: SYSINT dispid 1007;
  5906.     property Left: Single dispid 1008;
  5907.     property Top: Single dispid 1009;
  5908.     property Width: Single dispid 1010;
  5909.     property Height: Single dispid 1011;
  5910.     property HWND: Integer readonly dispid 1012;
  5911.     property OnSetFocus: WideString dispid 1013;
  5912.     property OnKillFocus: WideString dispid 1014;
  5913.     property Tags: Tags readonly dispid 1015;
  5914.     property Name: WideString dispid 1016;
  5915.   end;
  5916.  
  5917. // *********************************************************************//
  5918. // Interface: PPToggleButton
  5919. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5920. // GUID:      {914934A6-5A91-11CF-8700-00AA0060263B}
  5921. // *********************************************************************//
  5922.   PPToggleButton = interface(PPControl)
  5923.     ['{914934A6-5A91-11CF-8700-00AA0060263B}']
  5924.     function  Get_State: MsoTriState; safecall;
  5925.     procedure Set_State(State: MsoTriState); safecall;
  5926.     function  Get_ResourceID: SYSINT; safecall;
  5927.     procedure Set_ResourceID(ResourceID: SYSINT); safecall;
  5928.     procedure Click; safecall;
  5929.     function  Get_OnClick: WideString; safecall;
  5930.     procedure Set_OnClick(const OnClick: WideString); safecall;
  5931.     property State: MsoTriState read Get_State write Set_State;
  5932.     property ResourceID: SYSINT read Get_ResourceID write Set_ResourceID;
  5933.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  5934.   end;
  5935.  
  5936. // *********************************************************************//
  5937. // DispIntf:  PPToggleButtonDisp
  5938. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5939. // GUID:      {914934A6-5A91-11CF-8700-00AA0060263B}
  5940. // *********************************************************************//
  5941.   PPToggleButtonDisp = dispinterface
  5942.     ['{914934A6-5A91-11CF-8700-00AA0060263B}']
  5943.     property State: MsoTriState dispid 2001;
  5944.     property ResourceID: SYSINT dispid 2002;
  5945.     procedure Click; dispid 2003;
  5946.     property OnClick: WideString dispid 2004;
  5947.     property Application: IDispatch readonly dispid 1001;
  5948.     property Parent: IDispatch readonly dispid 1002;
  5949.     property Enable: MsoTriState dispid 1003;
  5950.     property Visible: MsoTriState dispid 1004;
  5951.     property Focus: MsoTriState dispid 1005;
  5952.     property Label_: WideString dispid 1006;
  5953.     property HelpId: SYSINT dispid 1007;
  5954.     property Left: Single dispid 1008;
  5955.     property Top: Single dispid 1009;
  5956.     property Width: Single dispid 1010;
  5957.     property Height: Single dispid 1011;
  5958.     property HWND: Integer readonly dispid 1012;
  5959.     property OnSetFocus: WideString dispid 1013;
  5960.     property OnKillFocus: WideString dispid 1014;
  5961.     property Tags: Tags readonly dispid 1015;
  5962.     property Name: WideString dispid 1016;
  5963.   end;
  5964.  
  5965. // *********************************************************************//
  5966. // Interface: PPBitmapButton
  5967. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5968. // GUID:      {914934A7-5A91-11CF-8700-00AA0060263B}
  5969. // *********************************************************************//
  5970.   PPBitmapButton = interface(PPControl)
  5971.     ['{914934A7-5A91-11CF-8700-00AA0060263B}']
  5972.     procedure Click; safecall;
  5973.     function  Get_ResourceID: SYSINT; safecall;
  5974.     procedure Set_ResourceID(ResourceID: SYSINT); safecall;
  5975.     function  Get_OnPressed: WideString; safecall;
  5976.     procedure Set_OnPressed(const OnPressed: WideString); safecall;
  5977.     function  Get_IsDefault: MsoTriState; safecall;
  5978.     procedure Set_IsDefault(IsDefault: MsoTriState); safecall;
  5979.     function  Get_IsEscape: MsoTriState; safecall;
  5980.     procedure Set_IsEscape(IsEscape: MsoTriState); safecall;
  5981.     property ResourceID: SYSINT read Get_ResourceID write Set_ResourceID;
  5982.     property OnPressed: WideString read Get_OnPressed write Set_OnPressed;
  5983.     property IsDefault: MsoTriState read Get_IsDefault write Set_IsDefault;
  5984.     property IsEscape: MsoTriState read Get_IsEscape write Set_IsEscape;
  5985.   end;
  5986.  
  5987. // *********************************************************************//
  5988. // DispIntf:  PPBitmapButtonDisp
  5989. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5990. // GUID:      {914934A7-5A91-11CF-8700-00AA0060263B}
  5991. // *********************************************************************//
  5992.   PPBitmapButtonDisp = dispinterface
  5993.     ['{914934A7-5A91-11CF-8700-00AA0060263B}']
  5994.     procedure Click; dispid 2001;
  5995.     property ResourceID: SYSINT dispid 2002;
  5996.     property OnPressed: WideString dispid 2003;
  5997.     property IsDefault: MsoTriState dispid 2004;
  5998.     property IsEscape: MsoTriState dispid 2005;
  5999.     property Application: IDispatch readonly dispid 1001;
  6000.     property Parent: IDispatch readonly dispid 1002;
  6001.     property Enable: MsoTriState dispid 1003;
  6002.     property Visible: MsoTriState dispid 1004;
  6003.     property Focus: MsoTriState dispid 1005;
  6004.     property Label_: WideString dispid 1006;
  6005.     property HelpId: SYSINT dispid 1007;
  6006.     property Left: Single dispid 1008;
  6007.     property Top: Single dispid 1009;
  6008.     property Width: Single dispid 1010;
  6009.     property Height: Single dispid 1011;
  6010.     property HWND: Integer readonly dispid 1012;
  6011.     property OnSetFocus: WideString dispid 1013;
  6012.     property OnKillFocus: WideString dispid 1014;
  6013.     property Tags: Tags readonly dispid 1015;
  6014.     property Name: WideString dispid 1016;
  6015.   end;
  6016.  
  6017. // *********************************************************************//
  6018. // Interface: PPListBox
  6019. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6020. // GUID:      {914934A8-5A91-11CF-8700-00AA0060263B}
  6021. // *********************************************************************//
  6022.   PPListBox = interface(PPControl)
  6023.     ['{914934A8-5A91-11CF-8700-00AA0060263B}']
  6024.     function  Get_Strings: PPStrings; safecall;
  6025.     function  Get_SelectionStyle: PpListBoxSelectionStyle; safecall;
  6026.     procedure Set_SelectionStyle(SelectionStyle: PpListBoxSelectionStyle); safecall;
  6027.     procedure SetTabStops(safeArrayTabStops: OleVariant); safecall;
  6028.     function  Get_FocusItem: SYSINT; safecall;
  6029.     procedure Set_FocusItem(FocusItem: SYSINT); safecall;
  6030.     function  Get_TopItem: SYSINT; safecall;
  6031.     function  Get_OnSelectionChange: WideString; safecall;
  6032.     procedure Set_OnSelectionChange(const OnSelectionChange: WideString); safecall;
  6033.     function  Get_OnDoubleClick: WideString; safecall;
  6034.     procedure Set_OnDoubleClick(const OnDoubleClick: WideString); safecall;
  6035.     function  Get_IsSelected(index: SYSINT): MsoTriState; safecall;
  6036.     procedure Set_IsSelected(index: SYSINT; IsSelected: MsoTriState); safecall;
  6037.     procedure Abbreviate(Style: PpListBoxAbbreviationStyle); safecall;
  6038.     function  Get_IsAbbreviated: PpListBoxAbbreviationStyle; safecall;
  6039.     property Strings: PPStrings read Get_Strings;
  6040.     property SelectionStyle: PpListBoxSelectionStyle read Get_SelectionStyle write Set_SelectionStyle;
  6041.     property FocusItem: SYSINT read Get_FocusItem write Set_FocusItem;
  6042.     property TopItem: SYSINT read Get_TopItem;
  6043.     property OnSelectionChange: WideString read Get_OnSelectionChange write Set_OnSelectionChange;
  6044.     property OnDoubleClick: WideString read Get_OnDoubleClick write Set_OnDoubleClick;
  6045.     property IsSelected[index: SYSINT]: MsoTriState read Get_IsSelected write Set_IsSelected;
  6046.     property IsAbbreviated: PpListBoxAbbreviationStyle read Get_IsAbbreviated;
  6047.   end;
  6048.  
  6049. // *********************************************************************//
  6050. // DispIntf:  PPListBoxDisp
  6051. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6052. // GUID:      {914934A8-5A91-11CF-8700-00AA0060263B}
  6053. // *********************************************************************//
  6054.   PPListBoxDisp = dispinterface
  6055.     ['{914934A8-5A91-11CF-8700-00AA0060263B}']
  6056.     property Strings: PPStrings readonly dispid 2001;
  6057.     property SelectionStyle: PpListBoxSelectionStyle dispid 2002;
  6058.     procedure SetTabStops(safeArrayTabStops: OleVariant); dispid 2003;
  6059.     property FocusItem: SYSINT dispid 2004;
  6060.     property TopItem: SYSINT readonly dispid 2005;
  6061.     property OnSelectionChange: WideString dispid 2006;
  6062.     property OnDoubleClick: WideString dispid 2007;
  6063.     property IsSelected[index: SYSINT]: MsoTriState dispid 999;
  6064.     procedure Abbreviate(Style: PpListBoxAbbreviationStyle); dispid 2008;
  6065.     property IsAbbreviated: PpListBoxAbbreviationStyle readonly dispid 2009;
  6066.     property Application: IDispatch readonly dispid 1001;
  6067.     property Parent: IDispatch readonly dispid 1002;
  6068.     property Enable: MsoTriState dispid 1003;
  6069.     property Visible: MsoTriState dispid 1004;
  6070.     property Focus: MsoTriState dispid 1005;
  6071.     property Label_: WideString dispid 1006;
  6072.     property HelpId: SYSINT dispid 1007;
  6073.     property Left: Single dispid 1008;
  6074.     property Top: Single dispid 1009;
  6075.     property Width: Single dispid 1010;
  6076.     property Height: Single dispid 1011;
  6077.     property HWND: Integer readonly dispid 1012;
  6078.     property OnSetFocus: WideString dispid 1013;
  6079.     property OnKillFocus: WideString dispid 1014;
  6080.     property Tags: Tags readonly dispid 1015;
  6081.     property Name: WideString dispid 1016;
  6082.   end;
  6083.  
  6084. // *********************************************************************//
  6085. // Interface: PPStrings
  6086. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6087. // GUID:      {914934A9-5A91-11CF-8700-00AA0060263B}
  6088. // *********************************************************************//
  6089.   PPStrings = interface(Collection)
  6090.     ['{914934A9-5A91-11CF-8700-00AA0060263B}']
  6091.     function  Item(index: SYSINT): WideString; safecall;
  6092.     function  Add(const String_: WideString): WideString; safecall;
  6093.     procedure Insert(const String_: WideString; Position: SYSINT); safecall;
  6094.     procedure Delete(index: SYSINT); safecall;
  6095.   end;
  6096.  
  6097. // *********************************************************************//
  6098. // DispIntf:  PPStringsDisp
  6099. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6100. // GUID:      {914934A9-5A91-11CF-8700-00AA0060263B}
  6101. // *********************************************************************//
  6102.   PPStringsDisp = dispinterface
  6103.     ['{914934A9-5A91-11CF-8700-00AA0060263B}']
  6104.     function  Item(index: SYSINT): WideString; dispid 0;
  6105.     function  Add(const String_: WideString): WideString; dispid 2001;
  6106.     procedure Insert(const String_: WideString; Position: SYSINT); dispid 2002;
  6107.     procedure Delete(index: SYSINT); dispid 2003;
  6108.     property _NewEnum: IUnknown readonly dispid -4;
  6109.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  6110.     property Count: Integer readonly dispid 11;
  6111.   end;
  6112.  
  6113. // *********************************************************************//
  6114. // Interface: PPCheckBox
  6115. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6116. // GUID:      {914934AA-5A91-11CF-8700-00AA0060263B}
  6117. // *********************************************************************//
  6118.   PPCheckBox = interface(PPControl)
  6119.     ['{914934AA-5A91-11CF-8700-00AA0060263B}']
  6120.     function  Get_State: MsoTriState; safecall;
  6121.     procedure Set_State(State: MsoTriState); safecall;
  6122.     procedure Click; safecall;
  6123.     function  Get_OnClick: WideString; safecall;
  6124.     procedure Set_OnClick(const OnClick: WideString); safecall;
  6125.     property State: MsoTriState read Get_State write Set_State;
  6126.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6127.   end;
  6128.  
  6129. // *********************************************************************//
  6130. // DispIntf:  PPCheckBoxDisp
  6131. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6132. // GUID:      {914934AA-5A91-11CF-8700-00AA0060263B}
  6133. // *********************************************************************//
  6134.   PPCheckBoxDisp = dispinterface
  6135.     ['{914934AA-5A91-11CF-8700-00AA0060263B}']
  6136.     property State: MsoTriState dispid 2001;
  6137.     procedure Click; dispid 2002;
  6138.     property OnClick: WideString dispid 2003;
  6139.     property Application: IDispatch readonly dispid 1001;
  6140.     property Parent: IDispatch readonly dispid 1002;
  6141.     property Enable: MsoTriState dispid 1003;
  6142.     property Visible: MsoTriState dispid 1004;
  6143.     property Focus: MsoTriState dispid 1005;
  6144.     property Label_: WideString dispid 1006;
  6145.     property HelpId: SYSINT dispid 1007;
  6146.     property Left: Single dispid 1008;
  6147.     property Top: Single dispid 1009;
  6148.     property Width: Single dispid 1010;
  6149.     property Height: Single dispid 1011;
  6150.     property HWND: Integer readonly dispid 1012;
  6151.     property OnSetFocus: WideString dispid 1013;
  6152.     property OnKillFocus: WideString dispid 1014;
  6153.     property Tags: Tags readonly dispid 1015;
  6154.     property Name: WideString dispid 1016;
  6155.   end;
  6156.  
  6157. // *********************************************************************//
  6158. // Interface: PPRadioCluster
  6159. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6160. // GUID:      {914934AB-5A91-11CF-8700-00AA0060263B}
  6161. // *********************************************************************//
  6162.   PPRadioCluster = interface(PPControl)
  6163.     ['{914934AB-5A91-11CF-8700-00AA0060263B}']
  6164.     function  Item(index: OleVariant): PPRadioButton; safecall;
  6165.     function  Add(Left: Single; Top: Single; Width: Single; Height: Single): PPRadioButton; safecall;
  6166.     function  Get_Count: SYSINT; safecall;
  6167.     function  Get_Selected: PPRadioButton; safecall;
  6168.     function  Get_OnClick: WideString; safecall;
  6169.     procedure Set_OnClick(const OnClick: WideString); safecall;
  6170.     property Count: SYSINT read Get_Count;
  6171.     property Selected: PPRadioButton read Get_Selected;
  6172.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6173.   end;
  6174.  
  6175. // *********************************************************************//
  6176. // DispIntf:  PPRadioClusterDisp
  6177. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6178. // GUID:      {914934AB-5A91-11CF-8700-00AA0060263B}
  6179. // *********************************************************************//
  6180.   PPRadioClusterDisp = dispinterface
  6181.     ['{914934AB-5A91-11CF-8700-00AA0060263B}']
  6182.     function  Item(index: OleVariant): PPRadioButton; dispid 0;
  6183.     function  Add(Left: Single; Top: Single; Width: Single; Height: Single): PPRadioButton; dispid 2001;
  6184.     property Count: SYSINT readonly dispid 2002;
  6185.     property Selected: PPRadioButton readonly dispid 2003;
  6186.     property OnClick: WideString dispid 2004;
  6187.     property Application: IDispatch readonly dispid 1001;
  6188.     property Parent: IDispatch readonly dispid 1002;
  6189.     property Enable: MsoTriState dispid 1003;
  6190.     property Visible: MsoTriState dispid 1004;
  6191.     property Focus: MsoTriState dispid 1005;
  6192.     property Label_: WideString dispid 1006;
  6193.     property HelpId: SYSINT dispid 1007;
  6194.     property Left: Single dispid 1008;
  6195.     property Top: Single dispid 1009;
  6196.     property Width: Single dispid 1010;
  6197.     property Height: Single dispid 1011;
  6198.     property HWND: Integer readonly dispid 1012;
  6199.     property OnSetFocus: WideString dispid 1013;
  6200.     property OnKillFocus: WideString dispid 1014;
  6201.     property Tags: Tags readonly dispid 1015;
  6202.     property Name: WideString dispid 1016;
  6203.   end;
  6204.  
  6205. // *********************************************************************//
  6206. // Interface: PPStaticText
  6207. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6208. // GUID:      {914934AC-5A91-11CF-8700-00AA0060263B}
  6209. // *********************************************************************//
  6210.   PPStaticText = interface(PPControl)
  6211.     ['{914934AC-5A91-11CF-8700-00AA0060263B}']
  6212.     function  Get_UseForegroundColor: MsoTriState; safecall;
  6213.     procedure Set_UseForegroundColor(UseForegroundColor: MsoTriState); safecall;
  6214.     function  Get_UseBackgroundColor: MsoTriState; safecall;
  6215.     procedure Set_UseBackgroundColor(UseBackgroundColor: MsoTriState); safecall;
  6216.     function  Get_ForegroundColor: MsoRGBType; safecall;
  6217.     procedure Set_ForegroundColor(ForegroundColor: MsoRGBType); safecall;
  6218.     function  Get_BackgroundColor: MsoRGBType; safecall;
  6219.     procedure Set_BackgroundColor(BackgroundColor: MsoRGBType); safecall;
  6220.     property UseForegroundColor: MsoTriState read Get_UseForegroundColor write Set_UseForegroundColor;
  6221.     property UseBackgroundColor: MsoTriState read Get_UseBackgroundColor write Set_UseBackgroundColor;
  6222.     property ForegroundColor: MsoRGBType read Get_ForegroundColor write Set_ForegroundColor;
  6223.     property BackgroundColor: MsoRGBType read Get_BackgroundColor write Set_BackgroundColor;
  6224.   end;
  6225.  
  6226. // *********************************************************************//
  6227. // DispIntf:  PPStaticTextDisp
  6228. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6229. // GUID:      {914934AC-5A91-11CF-8700-00AA0060263B}
  6230. // *********************************************************************//
  6231.   PPStaticTextDisp = dispinterface
  6232.     ['{914934AC-5A91-11CF-8700-00AA0060263B}']
  6233.     property UseForegroundColor: MsoTriState dispid 2001;
  6234.     property UseBackgroundColor: MsoTriState dispid 2002;
  6235.     property ForegroundColor: MsoRGBType dispid 2003;
  6236.     property BackgroundColor: MsoRGBType dispid 2004;
  6237.     property Application: IDispatch readonly dispid 1001;
  6238.     property Parent: IDispatch readonly dispid 1002;
  6239.     property Enable: MsoTriState dispid 1003;
  6240.     property Visible: MsoTriState dispid 1004;
  6241.     property Focus: MsoTriState dispid 1005;
  6242.     property Label_: WideString dispid 1006;
  6243.     property HelpId: SYSINT dispid 1007;
  6244.     property Left: Single dispid 1008;
  6245.     property Top: Single dispid 1009;
  6246.     property Width: Single dispid 1010;
  6247.     property Height: Single dispid 1011;
  6248.     property HWND: Integer readonly dispid 1012;
  6249.     property OnSetFocus: WideString dispid 1013;
  6250.     property OnKillFocus: WideString dispid 1014;
  6251.     property Tags: Tags readonly dispid 1015;
  6252.     property Name: WideString dispid 1016;
  6253.   end;
  6254.  
  6255. // *********************************************************************//
  6256. // Interface: PPEditText
  6257. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6258. // GUID:      {914934AD-5A91-11CF-8700-00AA0060263B}
  6259. // *********************************************************************//
  6260.   PPEditText = interface(PPControl)
  6261.     ['{914934AD-5A91-11CF-8700-00AA0060263B}']
  6262.     function  Get_MultiLine: MsoTriState; safecall;
  6263.     procedure Set_MultiLine(MultiLine: MsoTriState); safecall;
  6264.     function  Get_VerticalScrollBar: MsoTriState; safecall;
  6265.     procedure Set_VerticalScrollBar(VerticalScrollBar: MsoTriState); safecall;
  6266.     function  Get_WordWrap: MsoTriState; safecall;
  6267.     procedure Set_WordWrap(WordWrap: MsoTriState); safecall;
  6268.     function  Get_ReadOnly: MsoTriState; safecall;
  6269.     procedure Set_ReadOnly(ReadOnly: MsoTriState); safecall;
  6270.     function  Get_Text: WideString; safecall;
  6271.     procedure Set_Text(const Text: WideString); safecall;
  6272.     function  Get_MaxLength: SYSINT; safecall;
  6273.     procedure Set_MaxLength(MaxLength: SYSINT); safecall;
  6274.     function  Get_OnAChange: WideString; safecall;
  6275.     procedure Set_OnAChange(const OnAChange: WideString); safecall;
  6276.     property MultiLine: MsoTriState read Get_MultiLine write Set_MultiLine;
  6277.     property VerticalScrollBar: MsoTriState read Get_VerticalScrollBar write Set_VerticalScrollBar;
  6278.     property WordWrap: MsoTriState read Get_WordWrap write Set_WordWrap;
  6279.     property ReadOnly: MsoTriState read Get_ReadOnly write Set_ReadOnly;
  6280.     property Text: WideString read Get_Text write Set_Text;
  6281.     property MaxLength: SYSINT read Get_MaxLength write Set_MaxLength;
  6282.     property OnAChange: WideString read Get_OnAChange write Set_OnAChange;
  6283.   end;
  6284.  
  6285. // *********************************************************************//
  6286. // DispIntf:  PPEditTextDisp
  6287. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6288. // GUID:      {914934AD-5A91-11CF-8700-00AA0060263B}
  6289. // *********************************************************************//
  6290.   PPEditTextDisp = dispinterface
  6291.     ['{914934AD-5A91-11CF-8700-00AA0060263B}']
  6292.     property MultiLine: MsoTriState dispid 2001;
  6293.     property VerticalScrollBar: MsoTriState dispid 2002;
  6294.     property WordWrap: MsoTriState dispid 2003;
  6295.     property ReadOnly: MsoTriState dispid 2004;
  6296.     property Text: WideString dispid 2005;
  6297.     property MaxLength: SYSINT dispid 2006;
  6298.     property OnAChange: WideString dispid 2007;
  6299.     property Application: IDispatch readonly dispid 1001;
  6300.     property Parent: IDispatch readonly dispid 1002;
  6301.     property Enable: MsoTriState dispid 1003;
  6302.     property Visible: MsoTriState dispid 1004;
  6303.     property Focus: MsoTriState dispid 1005;
  6304.     property Label_: WideString dispid 1006;
  6305.     property HelpId: SYSINT dispid 1007;
  6306.     property Left: Single dispid 1008;
  6307.     property Top: Single dispid 1009;
  6308.     property Width: Single dispid 1010;
  6309.     property Height: Single dispid 1011;
  6310.     property HWND: Integer readonly dispid 1012;
  6311.     property OnSetFocus: WideString dispid 1013;
  6312.     property OnKillFocus: WideString dispid 1014;
  6313.     property Tags: Tags readonly dispid 1015;
  6314.     property Name: WideString dispid 1016;
  6315.   end;
  6316.  
  6317. // *********************************************************************//
  6318. // Interface: PPIcon
  6319. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6320. // GUID:      {914934AE-5A91-11CF-8700-00AA0060263B}
  6321. // *********************************************************************//
  6322.   PPIcon = interface(PPControl)
  6323.     ['{914934AE-5A91-11CF-8700-00AA0060263B}']
  6324.     function  Get_ResourceID: SYSINT; safecall;
  6325.     procedure Set_ResourceID(ResourceID: SYSINT); safecall;
  6326.     property ResourceID: SYSINT read Get_ResourceID write Set_ResourceID;
  6327.   end;
  6328.  
  6329. // *********************************************************************//
  6330. // DispIntf:  PPIconDisp
  6331. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6332. // GUID:      {914934AE-5A91-11CF-8700-00AA0060263B}
  6333. // *********************************************************************//
  6334.   PPIconDisp = dispinterface
  6335.     ['{914934AE-5A91-11CF-8700-00AA0060263B}']
  6336.     property ResourceID: SYSINT dispid 2001;
  6337.     property Application: IDispatch readonly dispid 1001;
  6338.     property Parent: IDispatch readonly dispid 1002;
  6339.     property Enable: MsoTriState dispid 1003;
  6340.     property Visible: MsoTriState dispid 1004;
  6341.     property Focus: MsoTriState dispid 1005;
  6342.     property Label_: WideString dispid 1006;
  6343.     property HelpId: SYSINT dispid 1007;
  6344.     property Left: Single dispid 1008;
  6345.     property Top: Single dispid 1009;
  6346.     property Width: Single dispid 1010;
  6347.     property Height: Single dispid 1011;
  6348.     property HWND: Integer readonly dispid 1012;
  6349.     property OnSetFocus: WideString dispid 1013;
  6350.     property OnKillFocus: WideString dispid 1014;
  6351.     property Tags: Tags readonly dispid 1015;
  6352.     property Name: WideString dispid 1016;
  6353.   end;
  6354.  
  6355. // *********************************************************************//
  6356. // Interface: PPBitmap
  6357. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6358. // GUID:      {914934AF-5A91-11CF-8700-00AA0060263B}
  6359. // *********************************************************************//
  6360.   PPBitmap = interface(PPControl)
  6361.     ['{914934AF-5A91-11CF-8700-00AA0060263B}']
  6362.     function  Get_ResourceID: SYSINT; safecall;
  6363.     procedure Set_ResourceID(ResourceID: SYSINT); safecall;
  6364.     function  Get_OnClick: WideString; safecall;
  6365.     procedure Set_OnClick(const OnClick: WideString); safecall;
  6366.     property ResourceID: SYSINT read Get_ResourceID write Set_ResourceID;
  6367.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6368.   end;
  6369.  
  6370. // *********************************************************************//
  6371. // DispIntf:  PPBitmapDisp
  6372. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6373. // GUID:      {914934AF-5A91-11CF-8700-00AA0060263B}
  6374. // *********************************************************************//
  6375.   PPBitmapDisp = dispinterface
  6376.     ['{914934AF-5A91-11CF-8700-00AA0060263B}']
  6377.     property ResourceID: SYSINT dispid 2000;
  6378.     property OnClick: WideString dispid 2001;
  6379.     property Application: IDispatch readonly dispid 1001;
  6380.     property Parent: IDispatch readonly dispid 1002;
  6381.     property Enable: MsoTriState dispid 1003;
  6382.     property Visible: MsoTriState dispid 1004;
  6383.     property Focus: MsoTriState dispid 1005;
  6384.     property Label_: WideString dispid 1006;
  6385.     property HelpId: SYSINT dispid 1007;
  6386.     property Left: Single dispid 1008;
  6387.     property Top: Single dispid 1009;
  6388.     property Width: Single dispid 1010;
  6389.     property Height: Single dispid 1011;
  6390.     property HWND: Integer readonly dispid 1012;
  6391.     property OnSetFocus: WideString dispid 1013;
  6392.     property OnKillFocus: WideString dispid 1014;
  6393.     property Tags: Tags readonly dispid 1015;
  6394.     property Name: WideString dispid 1016;
  6395.   end;
  6396.  
  6397. // *********************************************************************//
  6398. // Interface: PPSpinner
  6399. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6400. // GUID:      {914934B0-5A91-11CF-8700-00AA0060263B}
  6401. // *********************************************************************//
  6402.   PPSpinner = interface(PPControl)
  6403.     ['{914934B0-5A91-11CF-8700-00AA0060263B}']
  6404.     function  Get_Minimum: SYSINT; safecall;
  6405.     procedure Set_Minimum(Minimum: SYSINT); safecall;
  6406.     function  Get_Maximum: SYSINT; safecall;
  6407.     procedure Set_Maximum(Maximum: SYSINT); safecall;
  6408.     function  Get_Increment: SYSINT; safecall;
  6409.     procedure Set_Increment(Increment: SYSINT); safecall;
  6410.     function  Get_PageChange: SYSINT; safecall;
  6411.     procedure Set_PageChange(PageChange: SYSINT); safecall;
  6412.     function  Get_CurrentValue: SYSINT; safecall;
  6413.     procedure Set_CurrentValue(CurrentValue: SYSINT); safecall;
  6414.     function  Get_OnAChange: WideString; safecall;
  6415.     procedure Set_OnAChange(const OnAChange: WideString); safecall;
  6416.     property Minimum: SYSINT read Get_Minimum write Set_Minimum;
  6417.     property Maximum: SYSINT read Get_Maximum write Set_Maximum;
  6418.     property Increment: SYSINT read Get_Increment write Set_Increment;
  6419.     property PageChange: SYSINT read Get_PageChange write Set_PageChange;
  6420.     property CurrentValue: SYSINT read Get_CurrentValue write Set_CurrentValue;
  6421.     property OnAChange: WideString read Get_OnAChange write Set_OnAChange;
  6422.   end;
  6423.  
  6424. // *********************************************************************//
  6425. // DispIntf:  PPSpinnerDisp
  6426. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6427. // GUID:      {914934B0-5A91-11CF-8700-00AA0060263B}
  6428. // *********************************************************************//
  6429.   PPSpinnerDisp = dispinterface
  6430.     ['{914934B0-5A91-11CF-8700-00AA0060263B}']
  6431.     property Minimum: SYSINT dispid 2001;
  6432.     property Maximum: SYSINT dispid 2002;
  6433.     property Increment: SYSINT dispid 2003;
  6434.     property PageChange: SYSINT dispid 2004;
  6435.     property CurrentValue: SYSINT dispid 2005;
  6436.     property OnAChange: WideString dispid 2006;
  6437.     property Application: IDispatch readonly dispid 1001;
  6438.     property Parent: IDispatch readonly dispid 1002;
  6439.     property Enable: MsoTriState dispid 1003;
  6440.     property Visible: MsoTriState dispid 1004;
  6441.     property Focus: MsoTriState dispid 1005;
  6442.     property Label_: WideString dispid 1006;
  6443.     property HelpId: SYSINT dispid 1007;
  6444.     property Left: Single dispid 1008;
  6445.     property Top: Single dispid 1009;
  6446.     property Width: Single dispid 1010;
  6447.     property Height: Single dispid 1011;
  6448.     property HWND: Integer readonly dispid 1012;
  6449.     property OnSetFocus: WideString dispid 1013;
  6450.     property OnKillFocus: WideString dispid 1014;
  6451.     property Tags: Tags readonly dispid 1015;
  6452.     property Name: WideString dispid 1016;
  6453.   end;
  6454.  
  6455. // *********************************************************************//
  6456. // Interface: PPScrollBar
  6457. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6458. // GUID:      {914934B1-5A91-11CF-8700-00AA0060263B}
  6459. // *********************************************************************//
  6460.   PPScrollBar = interface(PPControl)
  6461.     ['{914934B1-5A91-11CF-8700-00AA0060263B}']
  6462.     function  Get_Minimum: SYSINT; safecall;
  6463.     procedure Set_Minimum(Minimum: SYSINT); safecall;
  6464.     function  Get_Maximum: SYSINT; safecall;
  6465.     procedure Set_Maximum(Maximum: SYSINT); safecall;
  6466.     function  Get_Increment: SYSINT; safecall;
  6467.     procedure Set_Increment(Increment: SYSINT); safecall;
  6468.     function  Get_PageChange: SYSINT; safecall;
  6469.     procedure Set_PageChange(PageChange: SYSINT); safecall;
  6470.     function  Get_CurrentValue: SYSINT; safecall;
  6471.     procedure Set_CurrentValue(CurrentValue: SYSINT); safecall;
  6472.     function  Get_OnScroll: WideString; safecall;
  6473.     procedure Set_OnScroll(const OnScroll: WideString); safecall;
  6474.     property Minimum: SYSINT read Get_Minimum write Set_Minimum;
  6475.     property Maximum: SYSINT read Get_Maximum write Set_Maximum;
  6476.     property Increment: SYSINT read Get_Increment write Set_Increment;
  6477.     property PageChange: SYSINT read Get_PageChange write Set_PageChange;
  6478.     property CurrentValue: SYSINT read Get_CurrentValue write Set_CurrentValue;
  6479.     property OnScroll: WideString read Get_OnScroll write Set_OnScroll;
  6480.   end;
  6481.  
  6482. // *********************************************************************//
  6483. // DispIntf:  PPScrollBarDisp
  6484. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6485. // GUID:      {914934B1-5A91-11CF-8700-00AA0060263B}
  6486. // *********************************************************************//
  6487.   PPScrollBarDisp = dispinterface
  6488.     ['{914934B1-5A91-11CF-8700-00AA0060263B}']
  6489.     property Minimum: SYSINT dispid 2001;
  6490.     property Maximum: SYSINT dispid 2002;
  6491.     property Increment: SYSINT dispid 2003;
  6492.     property PageChange: SYSINT dispid 2004;
  6493.     property CurrentValue: SYSINT dispid 2005;
  6494.     property OnScroll: WideString dispid 2006;
  6495.     property Application: IDispatch readonly dispid 1001;
  6496.     property Parent: IDispatch readonly dispid 1002;
  6497.     property Enable: MsoTriState dispid 1003;
  6498.     property Visible: MsoTriState dispid 1004;
  6499.     property Focus: MsoTriState dispid 1005;
  6500.     property Label_: WideString dispid 1006;
  6501.     property HelpId: SYSINT dispid 1007;
  6502.     property Left: Single dispid 1008;
  6503.     property Top: Single dispid 1009;
  6504.     property Width: Single dispid 1010;
  6505.     property Height: Single dispid 1011;
  6506.     property HWND: Integer readonly dispid 1012;
  6507.     property OnSetFocus: WideString dispid 1013;
  6508.     property OnKillFocus: WideString dispid 1014;
  6509.     property Tags: Tags readonly dispid 1015;
  6510.     property Name: WideString dispid 1016;
  6511.   end;
  6512.  
  6513. // *********************************************************************//
  6514. // Interface: PPGroupBox
  6515. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6516. // GUID:      {914934B2-5A91-11CF-8700-00AA0060263B}
  6517. // *********************************************************************//
  6518.   PPGroupBox = interface(PPControl)
  6519.     ['{914934B2-5A91-11CF-8700-00AA0060263B}']
  6520.   end;
  6521.  
  6522. // *********************************************************************//
  6523. // DispIntf:  PPGroupBoxDisp
  6524. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6525. // GUID:      {914934B2-5A91-11CF-8700-00AA0060263B}
  6526. // *********************************************************************//
  6527.   PPGroupBoxDisp = dispinterface
  6528.     ['{914934B2-5A91-11CF-8700-00AA0060263B}']
  6529.     property Application: IDispatch readonly dispid 1001;
  6530.     property Parent: IDispatch readonly dispid 1002;
  6531.     property Enable: MsoTriState dispid 1003;
  6532.     property Visible: MsoTriState dispid 1004;
  6533.     property Focus: MsoTriState dispid 1005;
  6534.     property Label_: WideString dispid 1006;
  6535.     property HelpId: SYSINT dispid 1007;
  6536.     property Left: Single dispid 1008;
  6537.     property Top: Single dispid 1009;
  6538.     property Width: Single dispid 1010;
  6539.     property Height: Single dispid 1011;
  6540.     property HWND: Integer readonly dispid 1012;
  6541.     property OnSetFocus: WideString dispid 1013;
  6542.     property OnKillFocus: WideString dispid 1014;
  6543.     property Tags: Tags readonly dispid 1015;
  6544.     property Name: WideString dispid 1016;
  6545.   end;
  6546.  
  6547. // *********************************************************************//
  6548. // Interface: PPFrame
  6549. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6550. // GUID:      {914934B3-5A91-11CF-8700-00AA0060263B}
  6551. // *********************************************************************//
  6552.   PPFrame = interface(PPControl)
  6553.     ['{914934B3-5A91-11CF-8700-00AA0060263B}']
  6554.   end;
  6555.  
  6556. // *********************************************************************//
  6557. // DispIntf:  PPFrameDisp
  6558. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6559. // GUID:      {914934B3-5A91-11CF-8700-00AA0060263B}
  6560. // *********************************************************************//
  6561.   PPFrameDisp = dispinterface
  6562.     ['{914934B3-5A91-11CF-8700-00AA0060263B}']
  6563.     property Application: IDispatch readonly dispid 1001;
  6564.     property Parent: IDispatch readonly dispid 1002;
  6565.     property Enable: MsoTriState dispid 1003;
  6566.     property Visible: MsoTriState dispid 1004;
  6567.     property Focus: MsoTriState dispid 1005;
  6568.     property Label_: WideString dispid 1006;
  6569.     property HelpId: SYSINT dispid 1007;
  6570.     property Left: Single dispid 1008;
  6571.     property Top: Single dispid 1009;
  6572.     property Width: Single dispid 1010;
  6573.     property Height: Single dispid 1011;
  6574.     property HWND: Integer readonly dispid 1012;
  6575.     property OnSetFocus: WideString dispid 1013;
  6576.     property OnKillFocus: WideString dispid 1014;
  6577.     property Tags: Tags readonly dispid 1015;
  6578.     property Name: WideString dispid 1016;
  6579.   end;
  6580.  
  6581. // *********************************************************************//
  6582. // Interface: PPTabControl
  6583. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6584. // GUID:      {914934B4-5A91-11CF-8700-00AA0060263B}
  6585. // *********************************************************************//
  6586.   PPTabControl = interface(PPControl)
  6587.     ['{914934B4-5A91-11CF-8700-00AA0060263B}']
  6588.   end;
  6589.  
  6590. // *********************************************************************//
  6591. // DispIntf:  PPTabControlDisp
  6592. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6593. // GUID:      {914934B4-5A91-11CF-8700-00AA0060263B}
  6594. // *********************************************************************//
  6595.   PPTabControlDisp = dispinterface
  6596.     ['{914934B4-5A91-11CF-8700-00AA0060263B}']
  6597.     property Application: IDispatch readonly dispid 1001;
  6598.     property Parent: IDispatch readonly dispid 1002;
  6599.     property Enable: MsoTriState dispid 1003;
  6600.     property Visible: MsoTriState dispid 1004;
  6601.     property Focus: MsoTriState dispid 1005;
  6602.     property Label_: WideString dispid 1006;
  6603.     property HelpId: SYSINT dispid 1007;
  6604.     property Left: Single dispid 1008;
  6605.     property Top: Single dispid 1009;
  6606.     property Width: Single dispid 1010;
  6607.     property Height: Single dispid 1011;
  6608.     property HWND: Integer readonly dispid 1012;
  6609.     property OnSetFocus: WideString dispid 1013;
  6610.     property OnKillFocus: WideString dispid 1014;
  6611.     property Tags: Tags readonly dispid 1015;
  6612.     property Name: WideString dispid 1016;
  6613.   end;
  6614.  
  6615. // *********************************************************************//
  6616. // Interface: PPDropDown
  6617. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6618. // GUID:      {914934B5-5A91-11CF-8700-00AA0060263B}
  6619. // *********************************************************************//
  6620.   PPDropDown = interface(PPControl)
  6621.     ['{914934B5-5A91-11CF-8700-00AA0060263B}']
  6622.     function  Get_Strings: PPStrings; safecall;
  6623.     function  Get_FocusItem: SYSINT; safecall;
  6624.     procedure Set_FocusItem(FocusItem: SYSINT); safecall;
  6625.     function  Get_OnSelectionChange: WideString; safecall;
  6626.     procedure Set_OnSelectionChange(const OnSelectionChange: WideString); safecall;
  6627.     property Strings: PPStrings read Get_Strings;
  6628.     property FocusItem: SYSINT read Get_FocusItem write Set_FocusItem;
  6629.     property OnSelectionChange: WideString read Get_OnSelectionChange write Set_OnSelectionChange;
  6630.   end;
  6631.  
  6632. // *********************************************************************//
  6633. // DispIntf:  PPDropDownDisp
  6634. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6635. // GUID:      {914934B5-5A91-11CF-8700-00AA0060263B}
  6636. // *********************************************************************//
  6637.   PPDropDownDisp = dispinterface
  6638.     ['{914934B5-5A91-11CF-8700-00AA0060263B}']
  6639.     property Strings: PPStrings readonly dispid 2001;
  6640.     property FocusItem: SYSINT dispid 2002;
  6641.     property OnSelectionChange: WideString dispid 2003;
  6642.     property Application: IDispatch readonly dispid 1001;
  6643.     property Parent: IDispatch readonly dispid 1002;
  6644.     property Enable: MsoTriState dispid 1003;
  6645.     property Visible: MsoTriState dispid 1004;
  6646.     property Focus: MsoTriState dispid 1005;
  6647.     property Label_: WideString dispid 1006;
  6648.     property HelpId: SYSINT dispid 1007;
  6649.     property Left: Single dispid 1008;
  6650.     property Top: Single dispid 1009;
  6651.     property Width: Single dispid 1010;
  6652.     property Height: Single dispid 1011;
  6653.     property HWND: Integer readonly dispid 1012;
  6654.     property OnSetFocus: WideString dispid 1013;
  6655.     property OnKillFocus: WideString dispid 1014;
  6656.     property Tags: Tags readonly dispid 1015;
  6657.     property Name: WideString dispid 1016;
  6658.   end;
  6659.  
  6660. // *********************************************************************//
  6661. // Interface: PPDropDownEdit
  6662. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6663. // GUID:      {914934B6-5A91-11CF-8700-00AA0060263B}
  6664. // *********************************************************************//
  6665.   PPDropDownEdit = interface(PPControl)
  6666.     ['{914934B6-5A91-11CF-8700-00AA0060263B}']
  6667.     function  Get_Strings: PPStrings; safecall;
  6668.     function  Get_FocusItem: SYSINT; safecall;
  6669.     procedure Set_FocusItem(FocusItem: SYSINT); safecall;
  6670.     function  Get_OnSelectionChange: WideString; safecall;
  6671.     procedure Set_OnSelectionChange(const OnSelectionChange: WideString); safecall;
  6672.     function  Get_OnEdit: WideString; safecall;
  6673.     procedure Set_OnEdit(const OnEdit: WideString); safecall;
  6674.     property Strings: PPStrings read Get_Strings;
  6675.     property FocusItem: SYSINT read Get_FocusItem write Set_FocusItem;
  6676.     property OnSelectionChange: WideString read Get_OnSelectionChange write Set_OnSelectionChange;
  6677.     property OnEdit: WideString read Get_OnEdit write Set_OnEdit;
  6678.   end;
  6679.  
  6680. // *********************************************************************//
  6681. // DispIntf:  PPDropDownEditDisp
  6682. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6683. // GUID:      {914934B6-5A91-11CF-8700-00AA0060263B}
  6684. // *********************************************************************//
  6685.   PPDropDownEditDisp = dispinterface
  6686.     ['{914934B6-5A91-11CF-8700-00AA0060263B}']
  6687.     property Strings: PPStrings readonly dispid 2001;
  6688.     property FocusItem: SYSINT dispid 2002;
  6689.     property OnSelectionChange: WideString dispid 2003;
  6690.     property OnEdit: WideString dispid 2004;
  6691.     property Application: IDispatch readonly dispid 1001;
  6692.     property Parent: IDispatch readonly dispid 1002;
  6693.     property Enable: MsoTriState dispid 1003;
  6694.     property Visible: MsoTriState dispid 1004;
  6695.     property Focus: MsoTriState dispid 1005;
  6696.     property Label_: WideString dispid 1006;
  6697.     property HelpId: SYSINT dispid 1007;
  6698.     property Left: Single dispid 1008;
  6699.     property Top: Single dispid 1009;
  6700.     property Width: Single dispid 1010;
  6701.     property Height: Single dispid 1011;
  6702.     property HWND: Integer readonly dispid 1012;
  6703.     property OnSetFocus: WideString dispid 1013;
  6704.     property OnKillFocus: WideString dispid 1014;
  6705.     property Tags: Tags readonly dispid 1015;
  6706.     property Name: WideString dispid 1016;
  6707.   end;
  6708.  
  6709. // *********************************************************************//
  6710. // Interface: PPSlideMiniature
  6711. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6712. // GUID:      {914934B7-5A91-11CF-8700-00AA0060263B}
  6713. // *********************************************************************//
  6714.   PPSlideMiniature = interface(PPControl)
  6715.     ['{914934B7-5A91-11CF-8700-00AA0060263B}']
  6716.     procedure SetImage(const Slide: PowerPointSlide); safecall;
  6717.     function  Get_Selected: SYSINT; safecall;
  6718.     procedure Set_Selected(Selected: SYSINT); safecall;
  6719.     function  Get_OnClick: WideString; safecall;
  6720.     procedure Set_OnClick(const OnClick: WideString); safecall;
  6721.     function  Get_OnDoubleClick: WideString; safecall;
  6722.     procedure Set_OnDoubleClick(const OnDoubleClick: WideString); safecall;
  6723.     property Selected: SYSINT read Get_Selected write Set_Selected;
  6724.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6725.     property OnDoubleClick: WideString read Get_OnDoubleClick write Set_OnDoubleClick;
  6726.   end;
  6727.  
  6728. // *********************************************************************//
  6729. // DispIntf:  PPSlideMiniatureDisp
  6730. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6731. // GUID:      {914934B7-5A91-11CF-8700-00AA0060263B}
  6732. // *********************************************************************//
  6733.   PPSlideMiniatureDisp = dispinterface
  6734.     ['{914934B7-5A91-11CF-8700-00AA0060263B}']
  6735.     procedure SetImage(const Slide: PowerPointSlide); dispid 2001;
  6736.     property Selected: SYSINT dispid 2002;
  6737.     property OnClick: WideString dispid 2003;
  6738.     property OnDoubleClick: WideString dispid 2004;
  6739.     property Application: IDispatch readonly dispid 1001;
  6740.     property Parent: IDispatch readonly dispid 1002;
  6741.     property Enable: MsoTriState dispid 1003;
  6742.     property Visible: MsoTriState dispid 1004;
  6743.     property Focus: MsoTriState dispid 1005;
  6744.     property Label_: WideString dispid 1006;
  6745.     property HelpId: SYSINT dispid 1007;
  6746.     property Left: Single dispid 1008;
  6747.     property Top: Single dispid 1009;
  6748.     property Width: Single dispid 1010;
  6749.     property Height: Single dispid 1011;
  6750.     property HWND: Integer readonly dispid 1012;
  6751.     property OnSetFocus: WideString dispid 1013;
  6752.     property OnKillFocus: WideString dispid 1014;
  6753.     property Tags: Tags readonly dispid 1015;
  6754.     property Name: WideString dispid 1016;
  6755.   end;
  6756.  
  6757. // *********************************************************************//
  6758. // Interface: PPRadioButton
  6759. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6760. // GUID:      {914934B8-5A91-11CF-8700-00AA0060263B}
  6761. // *********************************************************************//
  6762.   PPRadioButton = interface(PPControl)
  6763.     ['{914934B8-5A91-11CF-8700-00AA0060263B}']
  6764.     function  Get_State: MsoTriState; safecall;
  6765.     procedure Set_State(State: MsoTriState); safecall;
  6766.     procedure Click; safecall;
  6767.     procedure DoubleClick; safecall;
  6768.     function  Get_OnClick: WideString; safecall;
  6769.     procedure Set_OnClick(const OnClick: WideString); safecall;
  6770.     function  Get_OnDoubleClick: WideString; safecall;
  6771.     procedure Set_OnDoubleClick(const OnDoubleClick: WideString); safecall;
  6772.     property State: MsoTriState read Get_State write Set_State;
  6773.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6774.     property OnDoubleClick: WideString read Get_OnDoubleClick write Set_OnDoubleClick;
  6775.   end;
  6776.  
  6777. // *********************************************************************//
  6778. // DispIntf:  PPRadioButtonDisp
  6779. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6780. // GUID:      {914934B8-5A91-11CF-8700-00AA0060263B}
  6781. // *********************************************************************//
  6782.   PPRadioButtonDisp = dispinterface
  6783.     ['{914934B8-5A91-11CF-8700-00AA0060263B}']
  6784.     property State: MsoTriState dispid 2001;
  6785.     procedure Click; dispid 2002;
  6786.     procedure DoubleClick; dispid 2003;
  6787.     property OnClick: WideString dispid 2004;
  6788.     property OnDoubleClick: WideString dispid 2005;
  6789.     property Application: IDispatch readonly dispid 1001;
  6790.     property Parent: IDispatch readonly dispid 1002;
  6791.     property Enable: MsoTriState dispid 1003;
  6792.     property Visible: MsoTriState dispid 1004;
  6793.     property Focus: MsoTriState dispid 1005;
  6794.     property Label_: WideString dispid 1006;
  6795.     property HelpId: SYSINT dispid 1007;
  6796.     property Left: Single dispid 1008;
  6797.     property Top: Single dispid 1009;
  6798.     property Width: Single dispid 1010;
  6799.     property Height: Single dispid 1011;
  6800.     property HWND: Integer readonly dispid 1012;
  6801.     property OnSetFocus: WideString dispid 1013;
  6802.     property OnKillFocus: WideString dispid 1014;
  6803.     property Tags: Tags readonly dispid 1015;
  6804.     property Name: WideString dispid 1016;
  6805.   end;
  6806.  
  6807. // *********************************************************************//
  6808. // Interface: Tags
  6809. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6810. // GUID:      {914934B9-5A91-11CF-8700-00AA0060263B}
  6811. // *********************************************************************//
  6812.   Tags = interface(Collection)
  6813.     ['{914934B9-5A91-11CF-8700-00AA0060263B}']
  6814.     function  Get_Application: IDispatch; safecall;
  6815.     function  Get_Parent: IDispatch; safecall;
  6816.     function  Item(const Name: WideString): WideString; safecall;
  6817.     procedure Add(const Name: WideString; const Value: WideString); safecall;
  6818.     procedure Delete(const Name: WideString); safecall;
  6819.     procedure AddBinary(const Name: WideString; const FilePath: WideString); safecall;
  6820.     function  BinaryValue(const Name: WideString): Integer; safecall;
  6821.     function  Name(index: SYSINT): WideString; safecall;
  6822.     function  Value(index: SYSINT): WideString; safecall;
  6823.     property Application: IDispatch read Get_Application;
  6824.     property Parent: IDispatch read Get_Parent;
  6825.   end;
  6826.  
  6827. // *********************************************************************//
  6828. // DispIntf:  TagsDisp
  6829. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6830. // GUID:      {914934B9-5A91-11CF-8700-00AA0060263B}
  6831. // *********************************************************************//
  6832.   TagsDisp = dispinterface
  6833.     ['{914934B9-5A91-11CF-8700-00AA0060263B}']
  6834.     property Application: IDispatch readonly dispid 2001;
  6835.     property Parent: IDispatch readonly dispid 2002;
  6836.     function  Item(const Name: WideString): WideString; dispid 0;
  6837.     procedure Add(const Name: WideString; const Value: WideString); dispid 2003;
  6838.     procedure Delete(const Name: WideString); dispid 2004;
  6839.     procedure AddBinary(const Name: WideString; const FilePath: WideString); dispid 2005;
  6840.     function  BinaryValue(const Name: WideString): Integer; dispid 2006;
  6841.     function  Name(index: SYSINT): WideString; dispid 2007;
  6842.     function  Value(index: SYSINT): WideString; dispid 2008;
  6843.     property _NewEnum: IUnknown readonly dispid -4;
  6844.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  6845.     property Count: Integer readonly dispid 11;
  6846.   end;
  6847.  
  6848. // *********************************************************************//
  6849. // Interface: FileDialogFileList
  6850. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6851. // GUID:      {914934BA-5A91-11CF-8700-00AA0060263B}
  6852. // *********************************************************************//
  6853.   FileDialogFileList = interface(Collection)
  6854.     ['{914934BA-5A91-11CF-8700-00AA0060263B}']
  6855.     function  Get_Application: IDispatch; safecall;
  6856.     function  Get_Parent: IDispatch; safecall;
  6857.     function  Item(index: SYSINT): WideString; safecall;
  6858.     function  DisplayName(index: SYSINT): WideString; safecall;
  6859.     property Application: IDispatch read Get_Application;
  6860.     property Parent: IDispatch read Get_Parent;
  6861.   end;
  6862.  
  6863. // *********************************************************************//
  6864. // DispIntf:  FileDialogFileListDisp
  6865. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6866. // GUID:      {914934BA-5A91-11CF-8700-00AA0060263B}
  6867. // *********************************************************************//
  6868.   FileDialogFileListDisp = dispinterface
  6869.     ['{914934BA-5A91-11CF-8700-00AA0060263B}']
  6870.     property Application: IDispatch readonly dispid 2001;
  6871.     property Parent: IDispatch readonly dispid 2002;
  6872.     function  Item(index: SYSINT): WideString; dispid 0;
  6873.     function  DisplayName(index: SYSINT): WideString; dispid 2003;
  6874.     property _NewEnum: IUnknown readonly dispid -4;
  6875.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  6876.     property Count: Integer readonly dispid 11;
  6877.   end;
  6878.  
  6879. // *********************************************************************//
  6880. // Interface: FileDialogExtension
  6881. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6882. // GUID:      {914934BB-5A91-11CF-8700-00AA0060263B}
  6883. // *********************************************************************//
  6884.   FileDialogExtension = interface(IDispatch)
  6885.     ['{914934BB-5A91-11CF-8700-00AA0060263B}']
  6886.     function  Get_Application: IDispatch; safecall;
  6887.     function  Get_Parent: IDispatch; safecall;
  6888.     function  Get_Extensions: WideString; safecall;
  6889.     procedure Set_Extensions(const Extensions: WideString); safecall;
  6890.     function  Get_Description: WideString; safecall;
  6891.     procedure Set_Description(const Description: WideString); safecall;
  6892.     property Application: IDispatch read Get_Application;
  6893.     property Parent: IDispatch read Get_Parent;
  6894.     property Extensions: WideString read Get_Extensions write Set_Extensions;
  6895.     property Description: WideString read Get_Description write Set_Description;
  6896.   end;
  6897.  
  6898. // *********************************************************************//
  6899. // DispIntf:  FileDialogExtensionDisp
  6900. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6901. // GUID:      {914934BB-5A91-11CF-8700-00AA0060263B}
  6902. // *********************************************************************//
  6903.   FileDialogExtensionDisp = dispinterface
  6904.     ['{914934BB-5A91-11CF-8700-00AA0060263B}']
  6905.     property Application: IDispatch readonly dispid 2001;
  6906.     property Parent: IDispatch readonly dispid 2002;
  6907.     property Extensions: WideString dispid 2003;
  6908.     property Description: WideString dispid 2004;
  6909.   end;
  6910.  
  6911. // *********************************************************************//
  6912. // Interface: FileDialogExtensionList
  6913. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6914. // GUID:      {914934BC-5A91-11CF-8700-00AA0060263B}
  6915. // *********************************************************************//
  6916.   FileDialogExtensionList = interface(Collection)
  6917.     ['{914934BC-5A91-11CF-8700-00AA0060263B}']
  6918.     function  Get_Application: IDispatch; safecall;
  6919.     function  Get_Parent: IDispatch; safecall;
  6920.     function  Item(index: SYSINT): FileDialogExtension; safecall;
  6921.     function  Add(const Extension: WideString; const Description: WideString): FileDialogExtension; safecall;
  6922.     property Application: IDispatch read Get_Application;
  6923.     property Parent: IDispatch read Get_Parent;
  6924.   end;
  6925.  
  6926. // *********************************************************************//
  6927. // DispIntf:  FileDialogExtensionListDisp
  6928. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6929. // GUID:      {914934BC-5A91-11CF-8700-00AA0060263B}
  6930. // *********************************************************************//
  6931.   FileDialogExtensionListDisp = dispinterface
  6932.     ['{914934BC-5A91-11CF-8700-00AA0060263B}']
  6933.     property Application: IDispatch readonly dispid 2001;
  6934.     property Parent: IDispatch readonly dispid 2002;
  6935.     function  Item(index: SYSINT): FileDialogExtension; dispid 0;
  6936.     function  Add(const Extension: WideString; const Description: WideString): FileDialogExtension; dispid 2003;
  6937.     property _NewEnum: IUnknown readonly dispid -4;
  6938.     function  _Index(index: SYSINT): OleVariant; dispid 10;
  6939.     property Count: Integer readonly dispid 11;
  6940.   end;
  6941.  
  6942. // *********************************************************************//
  6943. // Interface: FileDialog
  6944. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6945. // GUID:      {914934BD-5A91-11CF-8700-00AA0060263B}
  6946. // *********************************************************************//
  6947.   FileDialog = interface(IDispatch)
  6948.     ['{914934BD-5A91-11CF-8700-00AA0060263B}']
  6949.     function  Get_Application: IDispatch; safecall;
  6950.     function  Get_Parent: IDispatch; safecall;
  6951.     function  Get_Extensions: FileDialogExtensionList; safecall;
  6952.     function  Get_DefaultDirectoryRegKey: WideString; safecall;
  6953.     procedure Set_DefaultDirectoryRegKey(const DefaultDirectoryRegKey: WideString); safecall;
  6954.     function  Get_DialogTitle: WideString; safecall;
  6955.     procedure Set_DialogTitle(const DialogTitle: WideString); safecall;
  6956.     function  Get_ActionButtonName: WideString; safecall;
  6957.     procedure Set_ActionButtonName(const ActionButtonName: WideString); safecall;
  6958.     function  Get_IsMultiSelect: MsoTriState; safecall;
  6959.     procedure Set_IsMultiSelect(IsMultiSelect: MsoTriState); safecall;
  6960.     function  Get_IsPrintEnabled: MsoTriState; safecall;
  6961.     procedure Set_IsPrintEnabled(IsPrintEnabled: MsoTriState); safecall;
  6962.     function  Get_IsReadOnlyEnabled: MsoTriState; safecall;
  6963.     procedure Set_IsReadOnlyEnabled(IsReadOnlyEnabled: MsoTriState); safecall;
  6964.     function  Get_DirectoriesOnly: MsoTriState; safecall;
  6965.     procedure Set_DirectoriesOnly(DirectoriesOnly: MsoTriState); safecall;
  6966.     function  Get_InitialView: PpFileDialogView; safecall;
  6967.     procedure Set_InitialView(InitialView: PpFileDialogView); safecall;
  6968.     procedure Launch(const pUnk: IUnknown); safecall;
  6969.     function  Get_OnAction: WideString; safecall;
  6970.     procedure Set_OnAction(const OnAction: WideString); safecall;
  6971.     function  Get_Files: FileDialogFileList; safecall;
  6972.     function  Get_UseODMADlgs: MsoTriState; safecall;
  6973.     procedure Set_UseODMADlgs(UseODMADlgs: MsoTriState); safecall;
  6974.     property Application: IDispatch read Get_Application;
  6975.     property Parent: IDispatch read Get_Parent;
  6976.     property Extensions: FileDialogExtensionList read Get_Extensions;
  6977.     property DefaultDirectoryRegKey: WideString read Get_DefaultDirectoryRegKey write Set_DefaultDirectoryRegKey;
  6978.     property DialogTitle: WideString read Get_DialogTitle write Set_DialogTitle;
  6979.     property ActionButtonName: WideString read Get_ActionButtonName write Set_ActionButtonName;
  6980.     property IsMultiSelect: MsoTriState read Get_IsMultiSelect write Set_IsMultiSelect;
  6981.     property IsPrintEnabled: MsoTriState read Get_IsPrintEnabled write Set_IsPrintEnabled;
  6982.     property IsReadOnlyEnabled: MsoTriState read Get_IsReadOnlyEnabled write Set_IsReadOnlyEnabled;
  6983.     property DirectoriesOnly: MsoTriState read Get_DirectoriesOnly write Set_DirectoriesOnly;
  6984.     property InitialView: PpFileDialogView read Get_InitialView write Set_InitialView;
  6985.     property OnAction: WideString read Get_OnAction write Set_OnAction;
  6986.     property Files: FileDialogFileList read Get_Files;
  6987.     property UseODMADlgs: MsoTriState read Get_UseODMADlgs write Set_UseODMADlgs;
  6988.   end;
  6989.  
  6990. // *********************************************************************//
  6991. // DispIntf:  FileDialogDisp
  6992. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6993. // GUID:      {914934BD-5A91-11CF-8700-00AA0060263B}
  6994. // *********************************************************************//
  6995.   FileDialogDisp = dispinterface
  6996.     ['{914934BD-5A91-11CF-8700-00AA0060263B}']
  6997.     property Application: IDispatch readonly dispid 2001;
  6998.     property Parent: IDispatch readonly dispid 2002;
  6999.     property Extensions: FileDialogExtensionList readonly dispid 2003;
  7000.     property DefaultDirectoryRegKey: WideString dispid 2004;
  7001.     property DialogTitle: WideString dispid 2005;
  7002.     property ActionButtonName: WideString dispid 2006;
  7003.     property IsMultiSelect: MsoTriState dispid 2007;
  7004.     property IsPrintEnabled: MsoTriState dispid 2008;
  7005.     property IsReadOnlyEnabled: MsoTriState dispid 2009;
  7006.     property DirectoriesOnly: MsoTriState dispid 2010;
  7007.     property InitialView: PpFileDialogView dispid 2011;
  7008.     procedure Launch(const pUnk: IUnknown); dispid 2012;
  7009.     property OnAction: WideString dispid 2013;
  7010.     property Files: FileDialogFileList readonly dispid 2014;
  7011.     property UseODMADlgs: MsoTriState dispid 2015;
  7012.   end;
  7013.  
  7014. // *********************************************************************//
  7015. // Interface: MouseTracker
  7016. // Flags:     (16) Hidden
  7017. // GUID:      {914934BE-5A91-11CF-8700-00AA0060263B}
  7018. // *********************************************************************//
  7019.   MouseTracker = interface(IUnknown)
  7020.     ['{914934BE-5A91-11CF-8700-00AA0060263B}']
  7021.     function  OnTrack(X: Single; Y: Single): HResult; stdcall;
  7022.     function  EndTrack(X: Single; Y: Single): HResult; stdcall;
  7023.   end;
  7024.  
  7025. // *********************************************************************//
  7026. // Interface: MouseDownHandler
  7027. // Flags:     (16) Hidden
  7028. // GUID:      {914934BF-5A91-11CF-8700-00AA0060263B}
  7029. // *********************************************************************//
  7030.   MouseDownHandler = interface(IUnknown)
  7031.     ['{914934BF-5A91-11CF-8700-00AA0060263B}']
  7032.     function  OnMouseDown(const activeWin: IUnknown): HResult; stdcall;
  7033.   end;
  7034.  
  7035. // *********************************************************************//
  7036. // Interface: OCXExtender
  7037. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7038. // GUID:      {914934C0-5A91-11CF-8700-00AA0060263B}
  7039. // *********************************************************************//
  7040.   OCXExtender = interface(IDispatch)
  7041.     ['{914934C0-5A91-11CF-8700-00AA0060263B}']
  7042.     function  Get_Visible: WordBool; safecall;
  7043.     procedure Set_Visible(Visible: WordBool); safecall;
  7044.     function  Get_Left: Single; safecall;
  7045.     procedure Set_Left(Left: Single); safecall;
  7046.     function  Get_Top: Single; safecall;
  7047.     procedure Set_Top(Top: Single); safecall;
  7048.     function  Get_Height: Single; safecall;
  7049.     procedure Set_Height(Height: Single); safecall;
  7050.     function  Get_Width: Single; safecall;
  7051.     procedure Set_Width(Width: Single); safecall;
  7052.     function  Get_ZOrderPosition: SYSINT; safecall;
  7053.     function  Get_Name: WideString; safecall;
  7054.     procedure Set_Name(const Name: WideString); safecall;
  7055.     property Visible: WordBool read Get_Visible write Set_Visible;
  7056.     property Left: Single read Get_Left write Set_Left;
  7057.     property Top: Single read Get_Top write Set_Top;
  7058.     property Height: Single read Get_Height write Set_Height;
  7059.     property Width: Single read Get_Width write Set_Width;
  7060.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  7061.     property Name: WideString read Get_Name write Set_Name;
  7062.   end;
  7063.  
  7064. // *********************************************************************//
  7065. // DispIntf:  OCXExtenderDisp
  7066. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7067. // GUID:      {914934C0-5A91-11CF-8700-00AA0060263B}
  7068. // *********************************************************************//
  7069.   OCXExtenderDisp = dispinterface
  7070.     ['{914934C0-5A91-11CF-8700-00AA0060263B}']
  7071.     property Visible: WordBool dispid -2147418105;
  7072.     property Left: Single dispid -2147418109;
  7073.     property Top: Single dispid -2147418108;
  7074.     property Height: Single dispid -2147418107;
  7075.     property Width: Single dispid -2147418106;
  7076.     property ZOrderPosition: SYSINT readonly dispid -2147417882;
  7077.     property Name: WideString dispid -2147418112;
  7078.   end;
  7079.  
  7080. // *********************************************************************//
  7081. // Interface: OCXExtenderEvents
  7082. // Flags:     (4112) Hidden Dispatchable
  7083. // GUID:      {914934C1-5A91-11CF-8700-00AA0060263B}
  7084. // *********************************************************************//
  7085.   OCXExtenderEvents = interface(IDispatch)
  7086.     ['{914934C1-5A91-11CF-8700-00AA0060263B}']
  7087.     function  GotFocus: HResult; stdcall;
  7088.     function  LostFocus: HResult; stdcall;
  7089.   end;
  7090.  
  7091. // *********************************************************************//
  7092. // The Class CoPowerPointApplication provides a Create and CreateRemote method to          
  7093. // create instances of the default interface _Application exposed by              
  7094. // the CoClass PowerPointApplication. The functions are intended to be used by             
  7095. // clients wishing to automate the CoClass objects exposed by the         
  7096. // server of this typelibrary.                                            
  7097. // *********************************************************************//
  7098.   CoPowerPointApplication = class
  7099.     class function Create: _Application;
  7100.     class function CreateRemote(const MachineName: string): _Application;
  7101.   end;
  7102.  
  7103.  
  7104. // *********************************************************************//
  7105. // OLE Server Proxy class declaration
  7106. // Server Object    : TPowerPointApplication
  7107. // Help String      : 
  7108. // Default Interface: _Application
  7109. // Def. Intf. DISP? : No
  7110. // Event   Interface: 
  7111. // TypeFlags        : (2) CanCreate
  7112. // *********************************************************************//
  7113. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7114.   TPowerPointApplicationProperties= class;
  7115. {$ENDIF}
  7116.   TPowerPointApplication = class(TOleServer)
  7117.   private
  7118.     FAutoQuit:    Boolean;
  7119.     FIntf:        _Application;
  7120. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7121.     FProps:       TPowerPointApplicationProperties;
  7122.     function      GetServerProperties: TPowerPointApplicationProperties;
  7123. {$ENDIF}
  7124.     function      GetDefaultInterface: _Application;
  7125.   protected
  7126.     procedure InitServerData; override;
  7127.     function  Get_Presentations: Presentations;
  7128.     function  Get_Windows: DocumentWindows;
  7129.     function  Get_Dialogs: PPDialogs;
  7130.     function  Get_ActiveWindow: DocumentWindow;
  7131.     function  Get_ActivePresentation: PowerPointPresentation;
  7132.     function  Get_SlideShowWindows: SlideShowWindows;
  7133.     function  Get_CommandBars: CommandBars;
  7134.     function  Get_Path: WideString;
  7135.     function  Get_Name: WideString;
  7136.     function  Get_Caption: WideString;
  7137.     procedure Set_Caption(const Caption: WideString);
  7138.     function  Get_Assistant: Assistant;
  7139.     function  Get_FileSearch: FileSearch;
  7140.     function  Get_FileFind: IFind;
  7141.     function  Get_Build: WideString;
  7142.     function  Get_Version: WideString;
  7143.     function  Get_OperatingSystem: WideString;
  7144.     function  Get_ActivePrinter: WideString;
  7145.     function  Get_Creator: Integer;
  7146.     function  Get_AddIns: AddIns;
  7147.     function  Get_VBE: VBE;
  7148.     function  Get_Left: Single;
  7149.     procedure Set_Left(Left: Single);
  7150.     function  Get_Top: Single;
  7151.     procedure Set_Top(Top: Single);
  7152.     function  Get_Width: Single;
  7153.     procedure Set_Width(Width: Single);
  7154.     function  Get_Height: Single;
  7155.     procedure Set_Height(Height: Single);
  7156.     function  Get_WindowState: PpWindowState;
  7157.     procedure Set_WindowState(WindowState: PpWindowState);
  7158.     function  Get_Visible: MsoTriState;
  7159.     procedure Set_Visible(Visible: MsoTriState);
  7160.     function  Get_Active: MsoTriState;
  7161.   public
  7162.     constructor Create(AOwner: TComponent); override;
  7163.     destructor  Destroy; override;
  7164.     procedure Connect; override;
  7165.     procedure ConnectTo(svrIntf: _Application);
  7166.     procedure Disconnect; override;
  7167.     procedure Help(const HelpFile: WideString; ContextID: SYSINT);
  7168.     procedure Quit;
  7169.     function  Run(const MacroName: WideString; var safeArrayOfParams: PSafeArray): OleVariant;
  7170.     function  FileDialog(Type_: PpFileDialogType): FileDialog;
  7171.     procedure Activate;
  7172.     property  DefaultInterface: _Application read GetDefaultInterface;
  7173.     property Presentations: Presentations read Get_Presentations;
  7174.     property Windows: DocumentWindows read Get_Windows;
  7175.     property Dialogs: PPDialogs read Get_Dialogs;
  7176.     property ActiveWindow: DocumentWindow read Get_ActiveWindow;
  7177.     property ActivePresentation: PowerPointPresentation read Get_ActivePresentation;
  7178.     property SlideShowWindows: SlideShowWindows read Get_SlideShowWindows;
  7179.     property CommandBars: CommandBars read Get_CommandBars;
  7180.     property Path: WideString read Get_Path;
  7181.     property Name: WideString read Get_Name;
  7182.     property Assistant: Assistant read Get_Assistant;
  7183.     property FileSearch: FileSearch read Get_FileSearch;
  7184.     property FileFind: IFind read Get_FileFind;
  7185.     property Build: WideString read Get_Build;
  7186.     property Version: WideString read Get_Version;
  7187.     property OperatingSystem: WideString read Get_OperatingSystem;
  7188.     property ActivePrinter: WideString read Get_ActivePrinter;
  7189.     property Creator: Integer read Get_Creator;
  7190.     property AddIns: AddIns read Get_AddIns;
  7191.     property VBE: VBE read Get_VBE;
  7192.     property Active: MsoTriState read Get_Active;
  7193.     property Caption: WideString read Get_Caption write Set_Caption;
  7194.     property Left: Single read Get_Left write Set_Left;
  7195.     property Top: Single read Get_Top write Set_Top;
  7196.     property Width: Single read Get_Width write Set_Width;
  7197.     property Height: Single read Get_Height write Set_Height;
  7198.     property WindowState: PpWindowState read Get_WindowState write Set_WindowState;
  7199.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  7200.   published
  7201.     property AutoQuit: Boolean read FAutoQuit write FAutoQuit; 
  7202. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7203.     property Server: TPowerPointApplicationProperties read GetServerProperties;
  7204. {$ENDIF}
  7205.   end;
  7206.  
  7207. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7208. // *********************************************************************//
  7209. // OLE Server Properties Proxy Class
  7210. // Server Object    : TPowerPointApplication
  7211. // (This object is used by the IDE's Property Inspector to allow editing
  7212. //  of the properties of this server)
  7213. // *********************************************************************//
  7214.  TPowerPointApplicationProperties = class(TPersistent)
  7215.   private
  7216.     FServer:    TPowerPointApplication;
  7217.     function    GetDefaultInterface: _Application;
  7218.     constructor Create(AServer: TPowerPointApplication);
  7219.   protected
  7220.     function  Get_Presentations: Presentations;
  7221.     function  Get_Windows: DocumentWindows;
  7222.     function  Get_Dialogs: PPDialogs;
  7223.     function  Get_ActiveWindow: DocumentWindow;
  7224.     function  Get_ActivePresentation: PowerPointPresentation;
  7225.     function  Get_SlideShowWindows: SlideShowWindows;
  7226.     function  Get_CommandBars: CommandBars;
  7227.     function  Get_Path: WideString;
  7228.     function  Get_Name: WideString;
  7229.     function  Get_Caption: WideString;
  7230.     procedure Set_Caption(const Caption: WideString);
  7231.     function  Get_Assistant: Assistant;
  7232.     function  Get_FileSearch: FileSearch;
  7233.     function  Get_FileFind: IFind;
  7234.     function  Get_Build: WideString;
  7235.     function  Get_Version: WideString;
  7236.     function  Get_OperatingSystem: WideString;
  7237.     function  Get_ActivePrinter: WideString;
  7238.     function  Get_Creator: Integer;
  7239.     function  Get_AddIns: AddIns;
  7240.     function  Get_VBE: VBE;
  7241.     function  Get_Left: Single;
  7242.     procedure Set_Left(Left: Single);
  7243.     function  Get_Top: Single;
  7244.     procedure Set_Top(Top: Single);
  7245.     function  Get_Width: Single;
  7246.     procedure Set_Width(Width: Single);
  7247.     function  Get_Height: Single;
  7248.     procedure Set_Height(Height: Single);
  7249.     function  Get_WindowState: PpWindowState;
  7250.     procedure Set_WindowState(WindowState: PpWindowState);
  7251.     function  Get_Visible: MsoTriState;
  7252.     procedure Set_Visible(Visible: MsoTriState);
  7253.     function  Get_Active: MsoTriState;
  7254.   public
  7255.     property DefaultInterface: _Application read GetDefaultInterface;
  7256.   published
  7257.     property Caption: WideString read Get_Caption write Set_Caption;
  7258.     property Left: Single read Get_Left write Set_Left;
  7259.     property Top: Single read Get_Top write Set_Top;
  7260.     property Width: Single read Get_Width write Set_Width;
  7261.     property Height: Single read Get_Height write Set_Height;
  7262.     property WindowState: PpWindowState read Get_WindowState write Set_WindowState;
  7263.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  7264.   end;
  7265. {$ENDIF}
  7266.  
  7267.  
  7268. // *********************************************************************//
  7269. // The Class CoGlobal provides a Create and CreateRemote method to          
  7270. // create instances of the default interface _Global exposed by              
  7271. // the CoClass Global. The functions are intended to be used by             
  7272. // clients wishing to automate the CoClass objects exposed by the         
  7273. // server of this typelibrary.                                            
  7274. // *********************************************************************//
  7275.   CoGlobal = class
  7276.     class function Create: _Global;
  7277.     class function CreateRemote(const MachineName: string): _Global;
  7278.   end;
  7279.  
  7280. // *********************************************************************//
  7281. // The Class CoPowerPointSlide provides a Create and CreateRemote method to          
  7282. // create instances of the default interface _Slide exposed by              
  7283. // the CoClass PowerPointSlide. The functions are intended to be used by             
  7284. // clients wishing to automate the CoClass objects exposed by the         
  7285. // server of this typelibrary.                                            
  7286. // *********************************************************************//
  7287.   CoPowerPointSlide = class
  7288.     class function Create: _Slide;
  7289.     class function CreateRemote(const MachineName: string): _Slide;
  7290.   end;
  7291.  
  7292.  
  7293. // *********************************************************************//
  7294. // OLE Server Proxy class declaration
  7295. // Server Object    : TPowerPointSlide
  7296. // Help String      : 
  7297. // Default Interface: _Slide
  7298. // Def. Intf. DISP? : No
  7299. // Event   Interface: SldEvents
  7300. // TypeFlags        : (2) CanCreate
  7301. // *********************************************************************//
  7302. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7303.   TPowerPointSlideProperties= class;
  7304. {$ENDIF}
  7305.   TPowerPointSlide = class(TOleServer)
  7306.   private
  7307.     FIntf:        _Slide;
  7308. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7309.     FProps:       TPowerPointSlideProperties;
  7310.     function      GetServerProperties: TPowerPointSlideProperties;
  7311. {$ENDIF}
  7312.     function      GetDefaultInterface: _Slide;
  7313.   protected
  7314.     procedure InitServerData; override;
  7315.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  7316.     function  Get_Application: IDispatch;
  7317.     function  Get_Parent: IDispatch;
  7318.     function  Get_Shapes: Shapes;
  7319.     function  Get_HeadersFooters: HeadersFooters;
  7320.     function  Get_SlideShowTransition: SlideShowTransition;
  7321.     function  Get_ColorScheme: ColorScheme;
  7322.     procedure Set_ColorScheme(const ColorScheme: ColorScheme);
  7323.     function  Get_Background: ShapeRange;
  7324.     function  Get_Name: WideString;
  7325.     procedure Set_Name(const Name: WideString);
  7326.     function  Get_SlideID: Integer;
  7327.     function  Get_PrintSteps: SYSINT;
  7328.     function  Get_Layout: PpSlideLayout;
  7329.     procedure Set_Layout(Layout: PpSlideLayout);
  7330.     function  Get_Tags: Tags;
  7331.     function  Get_SlideIndex: SYSINT;
  7332.     function  Get_SlideNumber: SYSINT;
  7333.     function  Get_DisplayMasterShapes: MsoTriState;
  7334.     procedure Set_DisplayMasterShapes(DisplayMasterShapes: MsoTriState);
  7335.     function  Get_FollowMasterBackground: MsoTriState;
  7336.     procedure Set_FollowMasterBackground(FollowMasterBackground: MsoTriState);
  7337.     function  Get_NotesPage: SlideRange;
  7338.     function  Get_Master: Master;
  7339.     function  Get_Hyperlinks: Hyperlinks;
  7340.   public
  7341.     constructor Create(AOwner: TComponent); override;
  7342.     destructor  Destroy; override;
  7343.     procedure Connect; override;
  7344.     procedure ConnectTo(svrIntf: _Slide);
  7345.     procedure Disconnect; override;
  7346.     procedure Select;
  7347.     procedure Cut;
  7348.     procedure Copy;
  7349.     function  Duplicate: SlideRange;
  7350.     procedure Delete;
  7351.     procedure Export(const FileName: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  7352.                      ScaleHeight: SYSINT);
  7353.     property  DefaultInterface: _Slide read GetDefaultInterface;
  7354.     property Application: IDispatch read Get_Application;
  7355.     property Parent: IDispatch read Get_Parent;
  7356.     property Shapes: Shapes read Get_Shapes;
  7357.     property HeadersFooters: HeadersFooters read Get_HeadersFooters;
  7358.     property SlideShowTransition: SlideShowTransition read Get_SlideShowTransition;
  7359.     property Background: ShapeRange read Get_Background;
  7360.     property SlideID: Integer read Get_SlideID;
  7361.     property PrintSteps: SYSINT read Get_PrintSteps;
  7362.     property Tags: Tags read Get_Tags;
  7363.     property SlideIndex: SYSINT read Get_SlideIndex;
  7364.     property SlideNumber: SYSINT read Get_SlideNumber;
  7365.     property NotesPage: SlideRange read Get_NotesPage;
  7366.     property Master: Master read Get_Master;
  7367.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  7368.     property ColorScheme: ColorScheme read Get_ColorScheme write Set_ColorScheme;
  7369.     property Name: WideString read Get_Name write Set_Name;
  7370.     property Layout: PpSlideLayout read Get_Layout write Set_Layout;
  7371.     property DisplayMasterShapes: MsoTriState read Get_DisplayMasterShapes write Set_DisplayMasterShapes;
  7372.     property FollowMasterBackground: MsoTriState read Get_FollowMasterBackground write Set_FollowMasterBackground;
  7373.   published
  7374. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7375.     property Server: TPowerPointSlideProperties read GetServerProperties;
  7376. {$ENDIF}
  7377.   end;
  7378.  
  7379. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7380. // *********************************************************************//
  7381. // OLE Server Properties Proxy Class
  7382. // Server Object    : TPowerPointSlide
  7383. // (This object is used by the IDE's Property Inspector to allow editing
  7384. //  of the properties of this server)
  7385. // *********************************************************************//
  7386.  TPowerPointSlideProperties = class(TPersistent)
  7387.   private
  7388.     FServer:    TPowerPointSlide;
  7389.     function    GetDefaultInterface: _Slide;
  7390.     constructor Create(AServer: TPowerPointSlide);
  7391.   protected
  7392.     function  Get_Application: IDispatch;
  7393.     function  Get_Parent: IDispatch;
  7394.     function  Get_Shapes: Shapes;
  7395.     function  Get_HeadersFooters: HeadersFooters;
  7396.     function  Get_SlideShowTransition: SlideShowTransition;
  7397.     function  Get_ColorScheme: ColorScheme;
  7398.     procedure Set_ColorScheme(const ColorScheme: ColorScheme);
  7399.     function  Get_Background: ShapeRange;
  7400.     function  Get_Name: WideString;
  7401.     procedure Set_Name(const Name: WideString);
  7402.     function  Get_SlideID: Integer;
  7403.     function  Get_PrintSteps: SYSINT;
  7404.     function  Get_Layout: PpSlideLayout;
  7405.     procedure Set_Layout(Layout: PpSlideLayout);
  7406.     function  Get_Tags: Tags;
  7407.     function  Get_SlideIndex: SYSINT;
  7408.     function  Get_SlideNumber: SYSINT;
  7409.     function  Get_DisplayMasterShapes: MsoTriState;
  7410.     procedure Set_DisplayMasterShapes(DisplayMasterShapes: MsoTriState);
  7411.     function  Get_FollowMasterBackground: MsoTriState;
  7412.     procedure Set_FollowMasterBackground(FollowMasterBackground: MsoTriState);
  7413.     function  Get_NotesPage: SlideRange;
  7414.     function  Get_Master: Master;
  7415.     function  Get_Hyperlinks: Hyperlinks;
  7416.   public
  7417.     property DefaultInterface: _Slide read GetDefaultInterface;
  7418.   published
  7419.     property ColorScheme: ColorScheme read Get_ColorScheme write Set_ColorScheme;
  7420.     property Name: WideString read Get_Name write Set_Name;
  7421.     property Layout: PpSlideLayout read Get_Layout write Set_Layout;
  7422.     property DisplayMasterShapes: MsoTriState read Get_DisplayMasterShapes write Set_DisplayMasterShapes;
  7423.     property FollowMasterBackground: MsoTriState read Get_FollowMasterBackground write Set_FollowMasterBackground;
  7424.   end;
  7425. {$ENDIF}
  7426.  
  7427.  
  7428. // *********************************************************************//
  7429. // The Class CoPowerPointPresentation provides a Create and CreateRemote method to          
  7430. // create instances of the default interface _Presentation exposed by              
  7431. // the CoClass PowerPointPresentation. The functions are intended to be used by             
  7432. // clients wishing to automate the CoClass objects exposed by the         
  7433. // server of this typelibrary.                                            
  7434. // *********************************************************************//
  7435.   CoPowerPointPresentation = class
  7436.     class function Create: _Presentation;
  7437.     class function CreateRemote(const MachineName: string): _Presentation;
  7438.   end;
  7439.  
  7440.  
  7441. // *********************************************************************//
  7442. // OLE Server Proxy class declaration
  7443. // Server Object    : TPowerPointPresentation
  7444. // Help String      : 
  7445. // Default Interface: _Presentation
  7446. // Def. Intf. DISP? : No
  7447. // Event   Interface: PresEvents
  7448. // TypeFlags        : (2) CanCreate
  7449. // *********************************************************************//
  7450. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7451.   TPowerPointPresentationProperties= class;
  7452. {$ENDIF}
  7453.   TPowerPointPresentation = class(TOleServer)
  7454.   private
  7455.     FIntf:        _Presentation;
  7456. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7457.     FProps:       TPowerPointPresentationProperties;
  7458.     function      GetServerProperties: TPowerPointPresentationProperties;
  7459. {$ENDIF}
  7460.     function      GetDefaultInterface: _Presentation;
  7461.   protected
  7462.     procedure InitServerData; override;
  7463.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  7464.     function  Get_Application: IDispatch;
  7465.     function  Get_Parent: IDispatch;
  7466.     function  Get_SlideMaster: Master;
  7467.     function  Get_TitleMaster: Master;
  7468.     function  Get_HasTitleMaster: MsoTriState;
  7469.     function  Get_TemplateName: WideString;
  7470.     function  Get_NotesMaster: Master;
  7471.     function  Get_HandoutMaster: Master;
  7472.     function  Get_Slides: Slides;
  7473.     function  Get_PageSetup: PageSetup;
  7474.     function  Get_ColorSchemes: ColorSchemes;
  7475.     function  Get_ExtraColors: ExtraColors;
  7476.     function  Get_SlideShowSettings: SlideShowSettings;
  7477.     function  Get_Fonts: Fonts;
  7478.     function  Get_Windows: DocumentWindows;
  7479.     function  Get_Tags: Tags;
  7480.     function  Get_DefaultShape: Shape;
  7481.     function  Get_BuiltInDocumentProperties: IDispatch;
  7482.     function  Get_CustomDocumentProperties: IDispatch;
  7483.     function  Get_VBProject: VBProject;
  7484.     function  Get_ReadOnly: MsoTriState;
  7485.     function  Get_FullName: WideString;
  7486.     function  Get_Name: WideString;
  7487.     function  Get_Path: WideString;
  7488.     function  Get_Saved: MsoTriState;
  7489.     procedure Set_Saved(Saved: MsoTriState);
  7490.     function  Get_LayoutDirection: PpDirection;
  7491.     procedure Set_LayoutDirection(LayoutDirection: PpDirection);
  7492.     function  Get_PrintOptions: PrintOptions;
  7493.     function  Get_Container: IDispatch;
  7494.     function  Get_DisplayComments: MsoTriState;
  7495.     procedure Set_DisplayComments(DisplayComments: MsoTriState);
  7496.     function  Get_FarEastLineBreakLevel: PpFarEastLineBreakLevel;
  7497.     procedure Set_FarEastLineBreakLevel(FarEastLineBreakLevel: PpFarEastLineBreakLevel);
  7498.     function  Get_NoLineBreakBefore: WideString;
  7499.     procedure Set_NoLineBreakBefore(const NoLineBreakBefore: WideString);
  7500.     function  Get_NoLineBreakAfter: WideString;
  7501.     procedure Set_NoLineBreakAfter(const NoLineBreakAfter: WideString);
  7502.     function  Get_SlideShowWindow: SlideShowWindow;
  7503.   public
  7504.     constructor Create(AOwner: TComponent); override;
  7505.     destructor  Destroy; override;
  7506.     procedure Connect; override;
  7507.     procedure ConnectTo(svrIntf: _Presentation);
  7508.     procedure Disconnect; override;
  7509.     function  AddTitleMaster: Master;
  7510.     procedure ApplyTemplate(const FileName: WideString);
  7511.     function  NewWindow: DocumentWindow;
  7512.     procedure FollowHyperlink(const Address: WideString; const SubAddress: WideString; 
  7513.                               NewWindow: WordBool; AddHistory: WordBool; 
  7514.                               const ExtraInfo: WideString; Method: MsoExtraInfoMethod; 
  7515.                               const HeaderInfo: WideString);
  7516.     procedure AddToFavorites;
  7517.     procedure PrintOut(From: SYSINT; To_: SYSINT; const PrintToFile: WideString; Copies: SYSINT; 
  7518.                        Collate: MsoTriState);
  7519.     procedure Save;
  7520.     procedure SaveAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  7521.                      EmbedTrueTypeFonts: MsoTriState);
  7522.     procedure SaveCopyAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  7523.                          EmbedTrueTypeFonts: MsoTriState);
  7524.     procedure Export(const Path: WideString; const FilterName: WideString; ScaleWidth: SYSINT; 
  7525.                      ScaleHeight: SYSINT);
  7526.     procedure Close;
  7527.     procedure SetUndoText(const Text: WideString);
  7528.     procedure UpdateLinks;
  7529.     property  DefaultInterface: _Presentation read GetDefaultInterface;
  7530.     property Application: IDispatch read Get_Application;
  7531.     property Parent: IDispatch read Get_Parent;
  7532.     property SlideMaster: Master read Get_SlideMaster;
  7533.     property TitleMaster: Master read Get_TitleMaster;
  7534.     property HasTitleMaster: MsoTriState read Get_HasTitleMaster;
  7535.     property TemplateName: WideString read Get_TemplateName;
  7536.     property NotesMaster: Master read Get_NotesMaster;
  7537.     property HandoutMaster: Master read Get_HandoutMaster;
  7538.     property Slides: Slides read Get_Slides;
  7539.     property PageSetup: PageSetup read Get_PageSetup;
  7540.     property ColorSchemes: ColorSchemes read Get_ColorSchemes;
  7541.     property ExtraColors: ExtraColors read Get_ExtraColors;
  7542.     property SlideShowSettings: SlideShowSettings read Get_SlideShowSettings;
  7543.     property Fonts: Fonts read Get_Fonts;
  7544.     property Windows: DocumentWindows read Get_Windows;
  7545.     property Tags: Tags read Get_Tags;
  7546.     property DefaultShape: Shape read Get_DefaultShape;
  7547.     property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
  7548.     property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
  7549.     property VBProject: VBProject read Get_VBProject;
  7550.     property ReadOnly: MsoTriState read Get_ReadOnly;
  7551.     property FullName: WideString read Get_FullName;
  7552.     property Name: WideString read Get_Name;
  7553.     property Path: WideString read Get_Path;
  7554.     property PrintOptions: PrintOptions read Get_PrintOptions;
  7555.     property Container: IDispatch read Get_Container;
  7556.     property SlideShowWindow: SlideShowWindow read Get_SlideShowWindow;
  7557.     property Saved: MsoTriState read Get_Saved write Set_Saved;
  7558.     property LayoutDirection: PpDirection read Get_LayoutDirection write Set_LayoutDirection;
  7559.     property DisplayComments: MsoTriState read Get_DisplayComments write Set_DisplayComments;
  7560.     property FarEastLineBreakLevel: PpFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
  7561.     property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
  7562.     property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
  7563.   published
  7564. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7565.     property Server: TPowerPointPresentationProperties read GetServerProperties;
  7566. {$ENDIF}
  7567.   end;
  7568.  
  7569. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7570. // *********************************************************************//
  7571. // OLE Server Properties Proxy Class
  7572. // Server Object    : TPowerPointPresentation
  7573. // (This object is used by the IDE's Property Inspector to allow editing
  7574. //  of the properties of this server)
  7575. // *********************************************************************//
  7576.  TPowerPointPresentationProperties = class(TPersistent)
  7577.   private
  7578.     FServer:    TPowerPointPresentation;
  7579.     function    GetDefaultInterface: _Presentation;
  7580.     constructor Create(AServer: TPowerPointPresentation);
  7581.   protected
  7582.     function  Get_Application: IDispatch;
  7583.     function  Get_Parent: IDispatch;
  7584.     function  Get_SlideMaster: Master;
  7585.     function  Get_TitleMaster: Master;
  7586.     function  Get_HasTitleMaster: MsoTriState;
  7587.     function  Get_TemplateName: WideString;
  7588.     function  Get_NotesMaster: Master;
  7589.     function  Get_HandoutMaster: Master;
  7590.     function  Get_Slides: Slides;
  7591.     function  Get_PageSetup: PageSetup;
  7592.     function  Get_ColorSchemes: ColorSchemes;
  7593.     function  Get_ExtraColors: ExtraColors;
  7594.     function  Get_SlideShowSettings: SlideShowSettings;
  7595.     function  Get_Fonts: Fonts;
  7596.     function  Get_Windows: DocumentWindows;
  7597.     function  Get_Tags: Tags;
  7598.     function  Get_DefaultShape: Shape;
  7599.     function  Get_BuiltInDocumentProperties: IDispatch;
  7600.     function  Get_CustomDocumentProperties: IDispatch;
  7601.     function  Get_VBProject: VBProject;
  7602.     function  Get_ReadOnly: MsoTriState;
  7603.     function  Get_FullName: WideString;
  7604.     function  Get_Name: WideString;
  7605.     function  Get_Path: WideString;
  7606.     function  Get_Saved: MsoTriState;
  7607.     procedure Set_Saved(Saved: MsoTriState);
  7608.     function  Get_LayoutDirection: PpDirection;
  7609.     procedure Set_LayoutDirection(LayoutDirection: PpDirection);
  7610.     function  Get_PrintOptions: PrintOptions;
  7611.     function  Get_Container: IDispatch;
  7612.     function  Get_DisplayComments: MsoTriState;
  7613.     procedure Set_DisplayComments(DisplayComments: MsoTriState);
  7614.     function  Get_FarEastLineBreakLevel: PpFarEastLineBreakLevel;
  7615.     procedure Set_FarEastLineBreakLevel(FarEastLineBreakLevel: PpFarEastLineBreakLevel);
  7616.     function  Get_NoLineBreakBefore: WideString;
  7617.     procedure Set_NoLineBreakBefore(const NoLineBreakBefore: WideString);
  7618.     function  Get_NoLineBreakAfter: WideString;
  7619.     procedure Set_NoLineBreakAfter(const NoLineBreakAfter: WideString);
  7620.     function  Get_SlideShowWindow: SlideShowWindow;
  7621.   public
  7622.     property DefaultInterface: _Presentation read GetDefaultInterface;
  7623.   published
  7624.     property Saved: MsoTriState read Get_Saved write Set_Saved;
  7625.     property LayoutDirection: PpDirection read Get_LayoutDirection write Set_LayoutDirection;
  7626.     property DisplayComments: MsoTriState read Get_DisplayComments write Set_DisplayComments;
  7627.     property FarEastLineBreakLevel: PpFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
  7628.     property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
  7629.     property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
  7630.   end;
  7631. {$ENDIF}
  7632.  
  7633.  
  7634. // *********************************************************************//
  7635. // The Class CoOLECtrl provides a Create and CreateRemote method to          
  7636. // create instances of the default interface OCXExtender exposed by              
  7637. // the CoClass OLECtrl. The functions are intended to be used by             
  7638. // clients wishing to automate the CoClass objects exposed by the         
  7639. // server of this typelibrary.                                            
  7640. // *********************************************************************//
  7641.   CoOLECtrl = class
  7642.     class function Create: OCXExtender;
  7643.     class function CreateRemote(const MachineName: string): OCXExtender;
  7644.   end;
  7645.  
  7646. procedure Register;
  7647.  
  7648. implementation
  7649.  
  7650. uses ComObj;
  7651.  
  7652. class function CoPowerPointApplication.Create: _Application;
  7653. begin
  7654.   Result := CreateComObject(CLASS_PowerPointApplication) as _Application;
  7655. end;
  7656.  
  7657. class function CoPowerPointApplication.CreateRemote(const MachineName: string): _Application;
  7658. begin
  7659.   Result := CreateRemoteComObject(MachineName, CLASS_PowerPointApplication) as _Application;
  7660. end;
  7661.  
  7662. procedure TPowerPointApplication.InitServerData;
  7663. const
  7664.   CServerData: TServerData = (
  7665.     ClassID:   '{91493441-5A91-11CF-8700-00AA0060263B}';
  7666.     IntfIID:   '{91493442-5A91-11CF-8700-00AA0060263B}';
  7667.     EventIID:  '';
  7668.     LicenseKey: nil;
  7669.     Version: 500);
  7670. begin
  7671.   ServerData := @CServerData;
  7672. end;
  7673.  
  7674. procedure TPowerPointApplication.Connect;
  7675. var
  7676.   punk: IUnknown;
  7677. begin
  7678.   if FIntf = nil then
  7679.   begin
  7680.     punk := GetServer;
  7681.     Fintf:= punk as _Application;
  7682.   end;
  7683. end;
  7684.  
  7685. procedure TPowerPointApplication.ConnectTo(svrIntf: _Application);
  7686. begin
  7687.   Disconnect;
  7688.   FIntf := svrIntf;
  7689. end;
  7690.  
  7691. procedure TPowerPointApplication.DisConnect;
  7692. begin
  7693.   if Fintf <> nil then
  7694.   begin
  7695.     if FAutoQuit then
  7696.       Quit();
  7697.     FIntf := nil;
  7698.   end;
  7699. end;
  7700.  
  7701. function TPowerPointApplication.GetDefaultInterface: _Application;
  7702. begin
  7703.   if FIntf = nil then
  7704.     Connect;
  7705.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7706.   Result := FIntf;
  7707. end;
  7708.  
  7709. constructor TPowerPointApplication.Create(AOwner: TComponent);
  7710. begin
  7711.   inherited Create(AOwner);
  7712. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7713.   FProps := TPowerPointApplicationProperties.Create(Self);
  7714. {$ENDIF}
  7715. end;
  7716.  
  7717. destructor TPowerPointApplication.Destroy;
  7718. begin
  7719. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7720.   FProps.Free;
  7721. {$ENDIF}
  7722.   inherited Destroy;
  7723. end;
  7724.  
  7725. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7726. function TPowerPointApplication.GetServerProperties: TPowerPointApplicationProperties;
  7727. begin
  7728.   Result := FProps;
  7729. end;
  7730. {$ENDIF}
  7731.  
  7732. function  TPowerPointApplication.Get_Presentations: Presentations;
  7733. begin
  7734.   Result := DefaultInterface.Get_Presentations;
  7735. end;
  7736.  
  7737. function  TPowerPointApplication.Get_Windows: DocumentWindows;
  7738. begin
  7739.   Result := DefaultInterface.Get_Windows;
  7740. end;
  7741.  
  7742. function  TPowerPointApplication.Get_Dialogs: PPDialogs;
  7743. begin
  7744.   Result := DefaultInterface.Get_Dialogs;
  7745. end;
  7746.  
  7747. function  TPowerPointApplication.Get_ActiveWindow: DocumentWindow;
  7748. begin
  7749.   Result := DefaultInterface.Get_ActiveWindow;
  7750. end;
  7751.  
  7752. function  TPowerPointApplication.Get_ActivePresentation: PowerPointPresentation;
  7753. begin
  7754.   Result := DefaultInterface.Get_ActivePresentation;
  7755. end;
  7756.  
  7757. function  TPowerPointApplication.Get_SlideShowWindows: SlideShowWindows;
  7758. begin
  7759.   Result := DefaultInterface.Get_SlideShowWindows;
  7760. end;
  7761.  
  7762. function  TPowerPointApplication.Get_CommandBars: CommandBars;
  7763. begin
  7764.   Result := DefaultInterface.Get_CommandBars;
  7765. end;
  7766.  
  7767. function  TPowerPointApplication.Get_Path: WideString;
  7768. begin
  7769.   Result := DefaultInterface.Get_Path;
  7770. end;
  7771.  
  7772. function  TPowerPointApplication.Get_Name: WideString;
  7773. begin
  7774.   Result := DefaultInterface.Get_Name;
  7775. end;
  7776.  
  7777. function  TPowerPointApplication.Get_Caption: WideString;
  7778. begin
  7779.   Result := DefaultInterface.Get_Caption;
  7780. end;
  7781.  
  7782. procedure TPowerPointApplication.Set_Caption(const Caption: WideString);
  7783. begin
  7784.   DefaultInterface.Set_Caption(Caption);
  7785. end;
  7786.  
  7787. function  TPowerPointApplication.Get_Assistant: Assistant;
  7788. begin
  7789.   Result := DefaultInterface.Get_Assistant;
  7790. end;
  7791.  
  7792. function  TPowerPointApplication.Get_FileSearch: FileSearch;
  7793. begin
  7794.   Result := DefaultInterface.Get_FileSearch;
  7795. end;
  7796.  
  7797. function  TPowerPointApplication.Get_FileFind: IFind;
  7798. begin
  7799.   Result := DefaultInterface.Get_FileFind;
  7800. end;
  7801.  
  7802. function  TPowerPointApplication.Get_Build: WideString;
  7803. begin
  7804.   Result := DefaultInterface.Get_Build;
  7805. end;
  7806.  
  7807. function  TPowerPointApplication.Get_Version: WideString;
  7808. begin
  7809.   Result := DefaultInterface.Get_Version;
  7810. end;
  7811.  
  7812. function  TPowerPointApplication.Get_OperatingSystem: WideString;
  7813. begin
  7814.   Result := DefaultInterface.Get_OperatingSystem;
  7815. end;
  7816.  
  7817. function  TPowerPointApplication.Get_ActivePrinter: WideString;
  7818. begin
  7819.   Result := DefaultInterface.Get_ActivePrinter;
  7820. end;
  7821.  
  7822. function  TPowerPointApplication.Get_Creator: Integer;
  7823. begin
  7824.   Result := DefaultInterface.Get_Creator;
  7825. end;
  7826.  
  7827. function  TPowerPointApplication.Get_AddIns: AddIns;
  7828. begin
  7829.   Result := DefaultInterface.Get_AddIns;
  7830. end;
  7831.  
  7832. function  TPowerPointApplication.Get_VBE: VBE;
  7833. begin
  7834.   Result := DefaultInterface.Get_VBE;
  7835. end;
  7836.  
  7837. function  TPowerPointApplication.Get_Left: Single;
  7838. begin
  7839.   Result := DefaultInterface.Get_Left;
  7840. end;
  7841.  
  7842. procedure TPowerPointApplication.Set_Left(Left: Single);
  7843. begin
  7844.   DefaultInterface.Set_Left(Left);
  7845. end;
  7846.  
  7847. function  TPowerPointApplication.Get_Top: Single;
  7848. begin
  7849.   Result := DefaultInterface.Get_Top;
  7850. end;
  7851.  
  7852. procedure TPowerPointApplication.Set_Top(Top: Single);
  7853. begin
  7854.   DefaultInterface.Set_Top(Top);
  7855. end;
  7856.  
  7857. function  TPowerPointApplication.Get_Width: Single;
  7858. begin
  7859.   Result := DefaultInterface.Get_Width;
  7860. end;
  7861.  
  7862. procedure TPowerPointApplication.Set_Width(Width: Single);
  7863. begin
  7864.   DefaultInterface.Set_Width(Width);
  7865. end;
  7866.  
  7867. function  TPowerPointApplication.Get_Height: Single;
  7868. begin
  7869.   Result := DefaultInterface.Get_Height;
  7870. end;
  7871.  
  7872. procedure TPowerPointApplication.Set_Height(Height: Single);
  7873. begin
  7874.   DefaultInterface.Set_Height(Height);
  7875. end;
  7876.  
  7877. function  TPowerPointApplication.Get_WindowState: PpWindowState;
  7878. begin
  7879.   Result := DefaultInterface.Get_WindowState;
  7880. end;
  7881.  
  7882. procedure TPowerPointApplication.Set_WindowState(WindowState: PpWindowState);
  7883. begin
  7884.   DefaultInterface.Set_WindowState(WindowState);
  7885. end;
  7886.  
  7887. function  TPowerPointApplication.Get_Visible: MsoTriState;
  7888. begin
  7889.   Result := DefaultInterface.Get_Visible;
  7890. end;
  7891.  
  7892. procedure TPowerPointApplication.Set_Visible(Visible: MsoTriState);
  7893. begin
  7894.   DefaultInterface.Set_Visible(Visible);
  7895. end;
  7896.  
  7897. function  TPowerPointApplication.Get_Active: MsoTriState;
  7898. begin
  7899.   Result := DefaultInterface.Get_Active;
  7900. end;
  7901.  
  7902. procedure TPowerPointApplication.Help(const HelpFile: WideString; ContextID: SYSINT);
  7903. begin
  7904.   DefaultInterface.Help(HelpFile, ContextID);
  7905. end;
  7906.  
  7907. procedure TPowerPointApplication.Quit;
  7908. begin
  7909.   DefaultInterface.Quit;
  7910. end;
  7911.  
  7912. function  TPowerPointApplication.Run(const MacroName: WideString; var safeArrayOfParams: PSafeArray): OleVariant;
  7913. begin
  7914.   Result := DefaultInterface.Run(MacroName, safeArrayOfParams);
  7915. end;
  7916.  
  7917. function  TPowerPointApplication.FileDialog(Type_: PpFileDialogType): FileDialog;
  7918. begin
  7919.   Result := DefaultInterface.FileDialog(Type_);
  7920. end;
  7921.  
  7922. procedure TPowerPointApplication.Activate;
  7923. begin
  7924.   DefaultInterface.Activate;
  7925. end;
  7926.  
  7927. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7928. constructor TPowerPointApplicationProperties.Create(AServer: TPowerPointApplication);
  7929. begin
  7930.   inherited Create;
  7931.   FServer := AServer;
  7932. end;
  7933.  
  7934. function TPowerPointApplicationProperties.GetDefaultInterface: _Application;
  7935. begin
  7936.   Result := FServer.DefaultInterface;
  7937. end;
  7938.  
  7939. function  TPowerPointApplicationProperties.Get_Presentations: Presentations;
  7940. begin
  7941.   Result := DefaultInterface.Get_Presentations;
  7942. end;
  7943.  
  7944. function  TPowerPointApplicationProperties.Get_Windows: DocumentWindows;
  7945. begin
  7946.   Result := DefaultInterface.Get_Windows;
  7947. end;
  7948.  
  7949. function  TPowerPointApplicationProperties.Get_Dialogs: PPDialogs;
  7950. begin
  7951.   Result := DefaultInterface.Get_Dialogs;
  7952. end;
  7953.  
  7954. function  TPowerPointApplicationProperties.Get_ActiveWindow: DocumentWindow;
  7955. begin
  7956.   Result := DefaultInterface.Get_ActiveWindow;
  7957. end;
  7958.  
  7959. function  TPowerPointApplicationProperties.Get_ActivePresentation: PowerPointPresentation;
  7960. begin
  7961.   Result := DefaultInterface.Get_ActivePresentation;
  7962. end;
  7963.  
  7964. function  TPowerPointApplicationProperties.Get_SlideShowWindows: SlideShowWindows;
  7965. begin
  7966.   Result := DefaultInterface.Get_SlideShowWindows;
  7967. end;
  7968.  
  7969. function  TPowerPointApplicationProperties.Get_CommandBars: CommandBars;
  7970. begin
  7971.   Result := DefaultInterface.Get_CommandBars;
  7972. end;
  7973.  
  7974. function  TPowerPointApplicationProperties.Get_Path: WideString;
  7975. begin
  7976.   Result := DefaultInterface.Get_Path;
  7977. end;
  7978.  
  7979. function  TPowerPointApplicationProperties.Get_Name: WideString;
  7980. begin
  7981.   Result := DefaultInterface.Get_Name;
  7982. end;
  7983.  
  7984. function  TPowerPointApplicationProperties.Get_Caption: WideString;
  7985. begin
  7986.   Result := DefaultInterface.Get_Caption;
  7987. end;
  7988.  
  7989. procedure TPowerPointApplicationProperties.Set_Caption(const Caption: WideString);
  7990. begin
  7991.   DefaultInterface.Set_Caption(Caption);
  7992. end;
  7993.  
  7994. function  TPowerPointApplicationProperties.Get_Assistant: Assistant;
  7995. begin
  7996.   Result := DefaultInterface.Get_Assistant;
  7997. end;
  7998.  
  7999. function  TPowerPointApplicationProperties.Get_FileSearch: FileSearch;
  8000. begin
  8001.   Result := DefaultInterface.Get_FileSearch;
  8002. end;
  8003.  
  8004. function  TPowerPointApplicationProperties.Get_FileFind: IFind;
  8005. begin
  8006.   Result := DefaultInterface.Get_FileFind;
  8007. end;
  8008.  
  8009. function  TPowerPointApplicationProperties.Get_Build: WideString;
  8010. begin
  8011.   Result := DefaultInterface.Get_Build;
  8012. end;
  8013.  
  8014. function  TPowerPointApplicationProperties.Get_Version: WideString;
  8015. begin
  8016.   Result := DefaultInterface.Get_Version;
  8017. end;
  8018.  
  8019. function  TPowerPointApplicationProperties.Get_OperatingSystem: WideString;
  8020. begin
  8021.   Result := DefaultInterface.Get_OperatingSystem;
  8022. end;
  8023.  
  8024. function  TPowerPointApplicationProperties.Get_ActivePrinter: WideString;
  8025. begin
  8026.   Result := DefaultInterface.Get_ActivePrinter;
  8027. end;
  8028.  
  8029. function  TPowerPointApplicationProperties.Get_Creator: Integer;
  8030. begin
  8031.   Result := DefaultInterface.Get_Creator;
  8032. end;
  8033.  
  8034. function  TPowerPointApplicationProperties.Get_AddIns: AddIns;
  8035. begin
  8036.   Result := DefaultInterface.Get_AddIns;
  8037. end;
  8038.  
  8039. function  TPowerPointApplicationProperties.Get_VBE: VBE;
  8040. begin
  8041.   Result := DefaultInterface.Get_VBE;
  8042. end;
  8043.  
  8044. function  TPowerPointApplicationProperties.Get_Left: Single;
  8045. begin
  8046.   Result := DefaultInterface.Get_Left;
  8047. end;
  8048.  
  8049. procedure TPowerPointApplicationProperties.Set_Left(Left: Single);
  8050. begin
  8051.   DefaultInterface.Set_Left(Left);
  8052. end;
  8053.  
  8054. function  TPowerPointApplicationProperties.Get_Top: Single;
  8055. begin
  8056.   Result := DefaultInterface.Get_Top;
  8057. end;
  8058.  
  8059. procedure TPowerPointApplicationProperties.Set_Top(Top: Single);
  8060. begin
  8061.   DefaultInterface.Set_Top(Top);
  8062. end;
  8063.  
  8064. function  TPowerPointApplicationProperties.Get_Width: Single;
  8065. begin
  8066.   Result := DefaultInterface.Get_Width;
  8067. end;
  8068.  
  8069. procedure TPowerPointApplicationProperties.Set_Width(Width: Single);
  8070. begin
  8071.   DefaultInterface.Set_Width(Width);
  8072. end;
  8073.  
  8074. function  TPowerPointApplicationProperties.Get_Height: Single;
  8075. begin
  8076.   Result := DefaultInterface.Get_Height;
  8077. end;
  8078.  
  8079. procedure TPowerPointApplicationProperties.Set_Height(Height: Single);
  8080. begin
  8081.   DefaultInterface.Set_Height(Height);
  8082. end;
  8083.  
  8084. function  TPowerPointApplicationProperties.Get_WindowState: PpWindowState;
  8085. begin
  8086.   Result := DefaultInterface.Get_WindowState;
  8087. end;
  8088.  
  8089. procedure TPowerPointApplicationProperties.Set_WindowState(WindowState: PpWindowState);
  8090. begin
  8091.   DefaultInterface.Set_WindowState(WindowState);
  8092. end;
  8093.  
  8094. function  TPowerPointApplicationProperties.Get_Visible: MsoTriState;
  8095. begin
  8096.   Result := DefaultInterface.Get_Visible;
  8097. end;
  8098.  
  8099. procedure TPowerPointApplicationProperties.Set_Visible(Visible: MsoTriState);
  8100. begin
  8101.   DefaultInterface.Set_Visible(Visible);
  8102. end;
  8103.  
  8104. function  TPowerPointApplicationProperties.Get_Active: MsoTriState;
  8105. begin
  8106.   Result := DefaultInterface.Get_Active;
  8107. end;
  8108.  
  8109. {$ENDIF}
  8110.  
  8111. class function CoGlobal.Create: _Global;
  8112. begin
  8113.   Result := CreateComObject(CLASS_Global) as _Global;
  8114. end;
  8115.  
  8116. class function CoGlobal.CreateRemote(const MachineName: string): _Global;
  8117. begin
  8118.   Result := CreateRemoteComObject(MachineName, CLASS_Global) as _Global;
  8119. end;
  8120.  
  8121. class function CoPowerPointSlide.Create: _Slide;
  8122. begin
  8123.   Result := CreateComObject(CLASS_PowerPointSlide) as _Slide;
  8124. end;
  8125.  
  8126. class function CoPowerPointSlide.CreateRemote(const MachineName: string): _Slide;
  8127. begin
  8128.   Result := CreateRemoteComObject(MachineName, CLASS_PowerPointSlide) as _Slide;
  8129. end;
  8130.  
  8131. procedure TPowerPointSlide.InitServerData;
  8132. const
  8133.   CServerData: TServerData = (
  8134.     ClassID:   '{91493445-5A91-11CF-8700-00AA0060263B}';
  8135.     IntfIID:   '{9149346A-5A91-11CF-8700-00AA0060263B}';
  8136.     EventIID:  '{9149346D-5A91-11CF-8700-00AA0060263B}';
  8137.     LicenseKey: nil;
  8138.     Version: 500);
  8139. begin
  8140.   ServerData := @CServerData;
  8141. end;
  8142.  
  8143. procedure TPowerPointSlide.Connect;
  8144. var
  8145.   punk: IUnknown;
  8146. begin
  8147.   if FIntf = nil then
  8148.   begin
  8149.     punk := GetServer;
  8150.     ConnectEvents(punk);
  8151.     Fintf:= punk as _Slide;
  8152.   end;
  8153. end;
  8154.  
  8155. procedure TPowerPointSlide.ConnectTo(svrIntf: _Slide);
  8156. begin
  8157.   Disconnect;
  8158.   FIntf := svrIntf;
  8159.   ConnectEvents(FIntf);
  8160. end;
  8161.  
  8162. procedure TPowerPointSlide.DisConnect;
  8163. begin
  8164.   if Fintf <> nil then
  8165.   begin
  8166.     DisconnectEvents(FIntf);
  8167.     FIntf := nil;
  8168.   end;
  8169. end;
  8170.  
  8171. function TPowerPointSlide.GetDefaultInterface: _Slide;
  8172. begin
  8173.   if FIntf = nil then
  8174.     Connect;
  8175.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8176.   Result := FIntf;
  8177. end;
  8178.  
  8179. constructor TPowerPointSlide.Create(AOwner: TComponent);
  8180. begin
  8181.   inherited Create(AOwner);
  8182. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8183.   FProps := TPowerPointSlideProperties.Create(Self);
  8184. {$ENDIF}
  8185. end;
  8186.  
  8187. destructor TPowerPointSlide.Destroy;
  8188. begin
  8189. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8190.   FProps.Free;
  8191. {$ENDIF}
  8192.   inherited Destroy;
  8193. end;
  8194.  
  8195. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8196. function TPowerPointSlide.GetServerProperties: TPowerPointSlideProperties;
  8197. begin
  8198.   Result := FProps;
  8199. end;
  8200. {$ENDIF}
  8201.  
  8202. procedure TPowerPointSlide.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  8203. begin
  8204.   case DispID of
  8205.     -1: Exit;  // DISPID_UNKNOWN
  8206.   end; {case DispID}
  8207. end;
  8208.  
  8209. function  TPowerPointSlide.Get_Application: IDispatch;
  8210. begin
  8211.   Result := DefaultInterface.Get_Application;
  8212. end;
  8213.  
  8214. function  TPowerPointSlide.Get_Parent: IDispatch;
  8215. begin
  8216.   Result := DefaultInterface.Get_Parent;
  8217. end;
  8218.  
  8219. function  TPowerPointSlide.Get_Shapes: Shapes;
  8220. begin
  8221.   Result := DefaultInterface.Get_Shapes;
  8222. end;
  8223.  
  8224. function  TPowerPointSlide.Get_HeadersFooters: HeadersFooters;
  8225. begin
  8226.   Result := DefaultInterface.Get_HeadersFooters;
  8227. end;
  8228.  
  8229. function  TPowerPointSlide.Get_SlideShowTransition: SlideShowTransition;
  8230. begin
  8231.   Result := DefaultInterface.Get_SlideShowTransition;
  8232. end;
  8233.  
  8234. function  TPowerPointSlide.Get_ColorScheme: ColorScheme;
  8235. begin
  8236.   Result := DefaultInterface.Get_ColorScheme;
  8237. end;
  8238.  
  8239. procedure TPowerPointSlide.Set_ColorScheme(const ColorScheme: ColorScheme);
  8240. begin
  8241.   DefaultInterface.Set_ColorScheme(ColorScheme);
  8242. end;
  8243.  
  8244. function  TPowerPointSlide.Get_Background: ShapeRange;
  8245. begin
  8246.   Result := DefaultInterface.Get_Background;
  8247. end;
  8248.  
  8249. function  TPowerPointSlide.Get_Name: WideString;
  8250. begin
  8251.   Result := DefaultInterface.Get_Name;
  8252. end;
  8253.  
  8254. procedure TPowerPointSlide.Set_Name(const Name: WideString);
  8255. begin
  8256.   DefaultInterface.Set_Name(Name);
  8257. end;
  8258.  
  8259. function  TPowerPointSlide.Get_SlideID: Integer;
  8260. begin
  8261.   Result := DefaultInterface.Get_SlideID;
  8262. end;
  8263.  
  8264. function  TPowerPointSlide.Get_PrintSteps: SYSINT;
  8265. begin
  8266.   Result := DefaultInterface.Get_PrintSteps;
  8267. end;
  8268.  
  8269. function  TPowerPointSlide.Get_Layout: PpSlideLayout;
  8270. begin
  8271.   Result := DefaultInterface.Get_Layout;
  8272. end;
  8273.  
  8274. procedure TPowerPointSlide.Set_Layout(Layout: PpSlideLayout);
  8275. begin
  8276.   DefaultInterface.Set_Layout(Layout);
  8277. end;
  8278.  
  8279. function  TPowerPointSlide.Get_Tags: Tags;
  8280. begin
  8281.   Result := DefaultInterface.Get_Tags;
  8282. end;
  8283.  
  8284. function  TPowerPointSlide.Get_SlideIndex: SYSINT;
  8285. begin
  8286.   Result := DefaultInterface.Get_SlideIndex;
  8287. end;
  8288.  
  8289. function  TPowerPointSlide.Get_SlideNumber: SYSINT;
  8290. begin
  8291.   Result := DefaultInterface.Get_SlideNumber;
  8292. end;
  8293.  
  8294. function  TPowerPointSlide.Get_DisplayMasterShapes: MsoTriState;
  8295. begin
  8296.   Result := DefaultInterface.Get_DisplayMasterShapes;
  8297. end;
  8298.  
  8299. procedure TPowerPointSlide.Set_DisplayMasterShapes(DisplayMasterShapes: MsoTriState);
  8300. begin
  8301.   DefaultInterface.Set_DisplayMasterShapes(DisplayMasterShapes);
  8302. end;
  8303.  
  8304. function  TPowerPointSlide.Get_FollowMasterBackground: MsoTriState;
  8305. begin
  8306.   Result := DefaultInterface.Get_FollowMasterBackground;
  8307. end;
  8308.  
  8309. procedure TPowerPointSlide.Set_FollowMasterBackground(FollowMasterBackground: MsoTriState);
  8310. begin
  8311.   DefaultInterface.Set_FollowMasterBackground(FollowMasterBackground);
  8312. end;
  8313.  
  8314. function  TPowerPointSlide.Get_NotesPage: SlideRange;
  8315. begin
  8316.   Result := DefaultInterface.Get_NotesPage;
  8317. end;
  8318.  
  8319. function  TPowerPointSlide.Get_Master: Master;
  8320. begin
  8321.   Result := DefaultInterface.Get_Master;
  8322. end;
  8323.  
  8324. function  TPowerPointSlide.Get_Hyperlinks: Hyperlinks;
  8325. begin
  8326.   Result := DefaultInterface.Get_Hyperlinks;
  8327. end;
  8328.  
  8329. procedure TPowerPointSlide.Select;
  8330. begin
  8331.   DefaultInterface.Select;
  8332. end;
  8333.  
  8334. procedure TPowerPointSlide.Cut;
  8335. begin
  8336.   DefaultInterface.Cut;
  8337. end;
  8338.  
  8339. procedure TPowerPointSlide.Copy;
  8340. begin
  8341.   DefaultInterface.Copy;
  8342. end;
  8343.  
  8344. function  TPowerPointSlide.Duplicate: SlideRange;
  8345. begin
  8346.   Result := DefaultInterface.Duplicate;
  8347. end;
  8348.  
  8349. procedure TPowerPointSlide.Delete;
  8350. begin
  8351.   DefaultInterface.Delete;
  8352. end;
  8353.  
  8354. procedure TPowerPointSlide.Export(const FileName: WideString; const FilterName: WideString; 
  8355.                                   ScaleWidth: SYSINT; ScaleHeight: SYSINT);
  8356. begin
  8357.   DefaultInterface.Export(FileName, FilterName, ScaleWidth, ScaleHeight);
  8358. end;
  8359.  
  8360. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8361. constructor TPowerPointSlideProperties.Create(AServer: TPowerPointSlide);
  8362. begin
  8363.   inherited Create;
  8364.   FServer := AServer;
  8365. end;
  8366.  
  8367. function TPowerPointSlideProperties.GetDefaultInterface: _Slide;
  8368. begin
  8369.   Result := FServer.DefaultInterface;
  8370. end;
  8371.  
  8372. function  TPowerPointSlideProperties.Get_Application: IDispatch;
  8373. begin
  8374.   Result := DefaultInterface.Get_Application;
  8375. end;
  8376.  
  8377. function  TPowerPointSlideProperties.Get_Parent: IDispatch;
  8378. begin
  8379.   Result := DefaultInterface.Get_Parent;
  8380. end;
  8381.  
  8382. function  TPowerPointSlideProperties.Get_Shapes: Shapes;
  8383. begin
  8384.   Result := DefaultInterface.Get_Shapes;
  8385. end;
  8386.  
  8387. function  TPowerPointSlideProperties.Get_HeadersFooters: HeadersFooters;
  8388. begin
  8389.   Result := DefaultInterface.Get_HeadersFooters;
  8390. end;
  8391.  
  8392. function  TPowerPointSlideProperties.Get_SlideShowTransition: SlideShowTransition;
  8393. begin
  8394.   Result := DefaultInterface.Get_SlideShowTransition;
  8395. end;
  8396.  
  8397. function  TPowerPointSlideProperties.Get_ColorScheme: ColorScheme;
  8398. begin
  8399.   Result := DefaultInterface.Get_ColorScheme;
  8400. end;
  8401.  
  8402. procedure TPowerPointSlideProperties.Set_ColorScheme(const ColorScheme: ColorScheme);
  8403. begin
  8404.   DefaultInterface.Set_ColorScheme(ColorScheme);
  8405. end;
  8406.  
  8407. function  TPowerPointSlideProperties.Get_Background: ShapeRange;
  8408. begin
  8409.   Result := DefaultInterface.Get_Background;
  8410. end;
  8411.  
  8412. function  TPowerPointSlideProperties.Get_Name: WideString;
  8413. begin
  8414.   Result := DefaultInterface.Get_Name;
  8415. end;
  8416.  
  8417. procedure TPowerPointSlideProperties.Set_Name(const Name: WideString);
  8418. begin
  8419.   DefaultInterface.Set_Name(Name);
  8420. end;
  8421.  
  8422. function  TPowerPointSlideProperties.Get_SlideID: Integer;
  8423. begin
  8424.   Result := DefaultInterface.Get_SlideID;
  8425. end;
  8426.  
  8427. function  TPowerPointSlideProperties.Get_PrintSteps: SYSINT;
  8428. begin
  8429.   Result := DefaultInterface.Get_PrintSteps;
  8430. end;
  8431.  
  8432. function  TPowerPointSlideProperties.Get_Layout: PpSlideLayout;
  8433. begin
  8434.   Result := DefaultInterface.Get_Layout;
  8435. end;
  8436.  
  8437. procedure TPowerPointSlideProperties.Set_Layout(Layout: PpSlideLayout);
  8438. begin
  8439.   DefaultInterface.Set_Layout(Layout);
  8440. end;
  8441.  
  8442. function  TPowerPointSlideProperties.Get_Tags: Tags;
  8443. begin
  8444.   Result := DefaultInterface.Get_Tags;
  8445. end;
  8446.  
  8447. function  TPowerPointSlideProperties.Get_SlideIndex: SYSINT;
  8448. begin
  8449.   Result := DefaultInterface.Get_SlideIndex;
  8450. end;
  8451.  
  8452. function  TPowerPointSlideProperties.Get_SlideNumber: SYSINT;
  8453. begin
  8454.   Result := DefaultInterface.Get_SlideNumber;
  8455. end;
  8456.  
  8457. function  TPowerPointSlideProperties.Get_DisplayMasterShapes: MsoTriState;
  8458. begin
  8459.   Result := DefaultInterface.Get_DisplayMasterShapes;
  8460. end;
  8461.  
  8462. procedure TPowerPointSlideProperties.Set_DisplayMasterShapes(DisplayMasterShapes: MsoTriState);
  8463. begin
  8464.   DefaultInterface.Set_DisplayMasterShapes(DisplayMasterShapes);
  8465. end;
  8466.  
  8467. function  TPowerPointSlideProperties.Get_FollowMasterBackground: MsoTriState;
  8468. begin
  8469.   Result := DefaultInterface.Get_FollowMasterBackground;
  8470. end;
  8471.  
  8472. procedure TPowerPointSlideProperties.Set_FollowMasterBackground(FollowMasterBackground: MsoTriState);
  8473. begin
  8474.   DefaultInterface.Set_FollowMasterBackground(FollowMasterBackground);
  8475. end;
  8476.  
  8477. function  TPowerPointSlideProperties.Get_NotesPage: SlideRange;
  8478. begin
  8479.   Result := DefaultInterface.Get_NotesPage;
  8480. end;
  8481.  
  8482. function  TPowerPointSlideProperties.Get_Master: Master;
  8483. begin
  8484.   Result := DefaultInterface.Get_Master;
  8485. end;
  8486.  
  8487. function  TPowerPointSlideProperties.Get_Hyperlinks: Hyperlinks;
  8488. begin
  8489.   Result := DefaultInterface.Get_Hyperlinks;
  8490. end;
  8491.  
  8492. {$ENDIF}
  8493.  
  8494. class function CoPowerPointPresentation.Create: _Presentation;
  8495. begin
  8496.   Result := CreateComObject(CLASS_PowerPointPresentation) as _Presentation;
  8497. end;
  8498.  
  8499. class function CoPowerPointPresentation.CreateRemote(const MachineName: string): _Presentation;
  8500. begin
  8501.   Result := CreateRemoteComObject(MachineName, CLASS_PowerPointPresentation) as _Presentation;
  8502. end;
  8503.  
  8504. procedure TPowerPointPresentation.InitServerData;
  8505. const
  8506.   CServerData: TServerData = (
  8507.     ClassID:   '{91493444-5A91-11CF-8700-00AA0060263B}';
  8508.     IntfIID:   '{9149349D-5A91-11CF-8700-00AA0060263B}';
  8509.     EventIID:  '{91493463-5A91-11CF-8700-00AA0060263B}';
  8510.     LicenseKey: nil;
  8511.     Version: 500);
  8512. begin
  8513.   ServerData := @CServerData;
  8514. end;
  8515.  
  8516. procedure TPowerPointPresentation.Connect;
  8517. var
  8518.   punk: IUnknown;
  8519. begin
  8520.   if FIntf = nil then
  8521.   begin
  8522.     punk := GetServer;
  8523.     ConnectEvents(punk);
  8524.     Fintf:= punk as _Presentation;
  8525.   end;
  8526. end;
  8527.  
  8528. procedure TPowerPointPresentation.ConnectTo(svrIntf: _Presentation);
  8529. begin
  8530.   Disconnect;
  8531.   FIntf := svrIntf;
  8532.   ConnectEvents(FIntf);
  8533. end;
  8534.  
  8535. procedure TPowerPointPresentation.DisConnect;
  8536. begin
  8537.   if Fintf <> nil then
  8538.   begin
  8539.     DisconnectEvents(FIntf);
  8540.     FIntf := nil;
  8541.   end;
  8542. end;
  8543.  
  8544. function TPowerPointPresentation.GetDefaultInterface: _Presentation;
  8545. begin
  8546.   if FIntf = nil then
  8547.     Connect;
  8548.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8549.   Result := FIntf;
  8550. end;
  8551.  
  8552. constructor TPowerPointPresentation.Create(AOwner: TComponent);
  8553. begin
  8554.   inherited Create(AOwner);
  8555. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8556.   FProps := TPowerPointPresentationProperties.Create(Self);
  8557. {$ENDIF}
  8558. end;
  8559.  
  8560. destructor TPowerPointPresentation.Destroy;
  8561. begin
  8562. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8563.   FProps.Free;
  8564. {$ENDIF}
  8565.   inherited Destroy;
  8566. end;
  8567.  
  8568. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8569. function TPowerPointPresentation.GetServerProperties: TPowerPointPresentationProperties;
  8570. begin
  8571.   Result := FProps;
  8572. end;
  8573. {$ENDIF}
  8574.  
  8575. procedure TPowerPointPresentation.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  8576. begin
  8577.   case DispID of
  8578.     -1: Exit;  // DISPID_UNKNOWN
  8579.   end; {case DispID}
  8580. end;
  8581.  
  8582. function  TPowerPointPresentation.Get_Application: IDispatch;
  8583. begin
  8584.   Result := DefaultInterface.Get_Application;
  8585. end;
  8586.  
  8587. function  TPowerPointPresentation.Get_Parent: IDispatch;
  8588. begin
  8589.   Result := DefaultInterface.Get_Parent;
  8590. end;
  8591.  
  8592. function  TPowerPointPresentation.Get_SlideMaster: Master;
  8593. begin
  8594.   Result := DefaultInterface.Get_SlideMaster;
  8595. end;
  8596.  
  8597. function  TPowerPointPresentation.Get_TitleMaster: Master;
  8598. begin
  8599.   Result := DefaultInterface.Get_TitleMaster;
  8600. end;
  8601.  
  8602. function  TPowerPointPresentation.Get_HasTitleMaster: MsoTriState;
  8603. begin
  8604.   Result := DefaultInterface.Get_HasTitleMaster;
  8605. end;
  8606.  
  8607. function  TPowerPointPresentation.Get_TemplateName: WideString;
  8608. begin
  8609.   Result := DefaultInterface.Get_TemplateName;
  8610. end;
  8611.  
  8612. function  TPowerPointPresentation.Get_NotesMaster: Master;
  8613. begin
  8614.   Result := DefaultInterface.Get_NotesMaster;
  8615. end;
  8616.  
  8617. function  TPowerPointPresentation.Get_HandoutMaster: Master;
  8618. begin
  8619.   Result := DefaultInterface.Get_HandoutMaster;
  8620. end;
  8621.  
  8622. function  TPowerPointPresentation.Get_Slides: Slides;
  8623. begin
  8624.   Result := DefaultInterface.Get_Slides;
  8625. end;
  8626.  
  8627. function  TPowerPointPresentation.Get_PageSetup: PageSetup;
  8628. begin
  8629.   Result := DefaultInterface.Get_PageSetup;
  8630. end;
  8631.  
  8632. function  TPowerPointPresentation.Get_ColorSchemes: ColorSchemes;
  8633. begin
  8634.   Result := DefaultInterface.Get_ColorSchemes;
  8635. end;
  8636.  
  8637. function  TPowerPointPresentation.Get_ExtraColors: ExtraColors;
  8638. begin
  8639.   Result := DefaultInterface.Get_ExtraColors;
  8640. end;
  8641.  
  8642. function  TPowerPointPresentation.Get_SlideShowSettings: SlideShowSettings;
  8643. begin
  8644.   Result := DefaultInterface.Get_SlideShowSettings;
  8645. end;
  8646.  
  8647. function  TPowerPointPresentation.Get_Fonts: Fonts;
  8648. begin
  8649.   Result := DefaultInterface.Get_Fonts;
  8650. end;
  8651.  
  8652. function  TPowerPointPresentation.Get_Windows: DocumentWindows;
  8653. begin
  8654.   Result := DefaultInterface.Get_Windows;
  8655. end;
  8656.  
  8657. function  TPowerPointPresentation.Get_Tags: Tags;
  8658. begin
  8659.   Result := DefaultInterface.Get_Tags;
  8660. end;
  8661.  
  8662. function  TPowerPointPresentation.Get_DefaultShape: Shape;
  8663. begin
  8664.   Result := DefaultInterface.Get_DefaultShape;
  8665. end;
  8666.  
  8667. function  TPowerPointPresentation.Get_BuiltInDocumentProperties: IDispatch;
  8668. begin
  8669.   Result := DefaultInterface.Get_BuiltInDocumentProperties;
  8670. end;
  8671.  
  8672. function  TPowerPointPresentation.Get_CustomDocumentProperties: IDispatch;
  8673. begin
  8674.   Result := DefaultInterface.Get_CustomDocumentProperties;
  8675. end;
  8676.  
  8677. function  TPowerPointPresentation.Get_VBProject: VBProject;
  8678. begin
  8679.   Result := DefaultInterface.Get_VBProject;
  8680. end;
  8681.  
  8682. function  TPowerPointPresentation.Get_ReadOnly: MsoTriState;
  8683. begin
  8684.   Result := DefaultInterface.Get_ReadOnly;
  8685. end;
  8686.  
  8687. function  TPowerPointPresentation.Get_FullName: WideString;
  8688. begin
  8689.   Result := DefaultInterface.Get_FullName;
  8690. end;
  8691.  
  8692. function  TPowerPointPresentation.Get_Name: WideString;
  8693. begin
  8694.   Result := DefaultInterface.Get_Name;
  8695. end;
  8696.  
  8697. function  TPowerPointPresentation.Get_Path: WideString;
  8698. begin
  8699.   Result := DefaultInterface.Get_Path;
  8700. end;
  8701.  
  8702. function  TPowerPointPresentation.Get_Saved: MsoTriState;
  8703. begin
  8704.   Result := DefaultInterface.Get_Saved;
  8705. end;
  8706.  
  8707. procedure TPowerPointPresentation.Set_Saved(Saved: MsoTriState);
  8708. begin
  8709.   DefaultInterface.Set_Saved(Saved);
  8710. end;
  8711.  
  8712. function  TPowerPointPresentation.Get_LayoutDirection: PpDirection;
  8713. begin
  8714.   Result := DefaultInterface.Get_LayoutDirection;
  8715. end;
  8716.  
  8717. procedure TPowerPointPresentation.Set_LayoutDirection(LayoutDirection: PpDirection);
  8718. begin
  8719.   DefaultInterface.Set_LayoutDirection(LayoutDirection);
  8720. end;
  8721.  
  8722. function  TPowerPointPresentation.Get_PrintOptions: PrintOptions;
  8723. begin
  8724.   Result := DefaultInterface.Get_PrintOptions;
  8725. end;
  8726.  
  8727. function  TPowerPointPresentation.Get_Container: IDispatch;
  8728. begin
  8729.   Result := DefaultInterface.Get_Container;
  8730. end;
  8731.  
  8732. function  TPowerPointPresentation.Get_DisplayComments: MsoTriState;
  8733. begin
  8734.   Result := DefaultInterface.Get_DisplayComments;
  8735. end;
  8736.  
  8737. procedure TPowerPointPresentation.Set_DisplayComments(DisplayComments: MsoTriState);
  8738. begin
  8739.   DefaultInterface.Set_DisplayComments(DisplayComments);
  8740. end;
  8741.  
  8742. function  TPowerPointPresentation.Get_FarEastLineBreakLevel: PpFarEastLineBreakLevel;
  8743. begin
  8744.   Result := DefaultInterface.Get_FarEastLineBreakLevel;
  8745. end;
  8746.  
  8747. procedure TPowerPointPresentation.Set_FarEastLineBreakLevel(FarEastLineBreakLevel: PpFarEastLineBreakLevel);
  8748. begin
  8749.   DefaultInterface.Set_FarEastLineBreakLevel(FarEastLineBreakLevel);
  8750. end;
  8751.  
  8752. function  TPowerPointPresentation.Get_NoLineBreakBefore: WideString;
  8753. begin
  8754.   Result := DefaultInterface.Get_NoLineBreakBefore;
  8755. end;
  8756.  
  8757. procedure TPowerPointPresentation.Set_NoLineBreakBefore(const NoLineBreakBefore: WideString);
  8758. begin
  8759.   DefaultInterface.Set_NoLineBreakBefore(NoLineBreakBefore);
  8760. end;
  8761.  
  8762. function  TPowerPointPresentation.Get_NoLineBreakAfter: WideString;
  8763. begin
  8764.   Result := DefaultInterface.Get_NoLineBreakAfter;
  8765. end;
  8766.  
  8767. procedure TPowerPointPresentation.Set_NoLineBreakAfter(const NoLineBreakAfter: WideString);
  8768. begin
  8769.   DefaultInterface.Set_NoLineBreakAfter(NoLineBreakAfter);
  8770. end;
  8771.  
  8772. function  TPowerPointPresentation.Get_SlideShowWindow: SlideShowWindow;
  8773. begin
  8774.   Result := DefaultInterface.Get_SlideShowWindow;
  8775. end;
  8776.  
  8777. function  TPowerPointPresentation.AddTitleMaster: Master;
  8778. begin
  8779.   Result := DefaultInterface.AddTitleMaster;
  8780. end;
  8781.  
  8782. procedure TPowerPointPresentation.ApplyTemplate(const FileName: WideString);
  8783. begin
  8784.   DefaultInterface.ApplyTemplate(FileName);
  8785. end;
  8786.  
  8787. function  TPowerPointPresentation.NewWindow: DocumentWindow;
  8788. begin
  8789.   Result := DefaultInterface.NewWindow;
  8790. end;
  8791.  
  8792. procedure TPowerPointPresentation.FollowHyperlink(const Address: WideString; 
  8793.                                                   const SubAddress: WideString; 
  8794.                                                   NewWindow: WordBool; AddHistory: WordBool; 
  8795.                                                   const ExtraInfo: WideString; 
  8796.                                                   Method: MsoExtraInfoMethod; 
  8797.                                                   const HeaderInfo: WideString);
  8798. begin
  8799.   DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, 
  8800.                                    HeaderInfo);
  8801. end;
  8802.  
  8803. procedure TPowerPointPresentation.AddToFavorites;
  8804. begin
  8805.   DefaultInterface.AddToFavorites;
  8806. end;
  8807.  
  8808. procedure TPowerPointPresentation.PrintOut(From: SYSINT; To_: SYSINT; 
  8809.                                            const PrintToFile: WideString; Copies: SYSINT; 
  8810.                                            Collate: MsoTriState);
  8811. begin
  8812.   DefaultInterface.PrintOut(From, To_, PrintToFile, Copies, Collate);
  8813. end;
  8814.  
  8815. procedure TPowerPointPresentation.Save;
  8816. begin
  8817.   DefaultInterface.Save;
  8818. end;
  8819.  
  8820. procedure TPowerPointPresentation.SaveAs(const FileName: WideString; FileFormat: PpSaveAsFileType; 
  8821.                                          EmbedTrueTypeFonts: MsoTriState);
  8822. begin
  8823.   DefaultInterface.SaveAs(FileName, FileFormat, EmbedTrueTypeFonts);
  8824. end;
  8825.  
  8826. procedure TPowerPointPresentation.SaveCopyAs(const FileName: WideString; 
  8827.                                              FileFormat: PpSaveAsFileType; 
  8828.                                              EmbedTrueTypeFonts: MsoTriState);
  8829. begin
  8830.   DefaultInterface.SaveCopyAs(FileName, FileFormat, EmbedTrueTypeFonts);
  8831. end;
  8832.  
  8833. procedure TPowerPointPresentation.Export(const Path: WideString; const FilterName: WideString; 
  8834.                                          ScaleWidth: SYSINT; ScaleHeight: SYSINT);
  8835. begin
  8836.   DefaultInterface.Export(Path, FilterName, ScaleWidth, ScaleHeight);
  8837. end;
  8838.  
  8839. procedure TPowerPointPresentation.Close;
  8840. begin
  8841.   DefaultInterface.Close;
  8842. end;
  8843.  
  8844. procedure TPowerPointPresentation.SetUndoText(const Text: WideString);
  8845. begin
  8846.   DefaultInterface.SetUndoText(Text);
  8847. end;
  8848.  
  8849. procedure TPowerPointPresentation.UpdateLinks;
  8850. begin
  8851.   DefaultInterface.UpdateLinks;
  8852. end;
  8853.  
  8854. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8855. constructor TPowerPointPresentationProperties.Create(AServer: TPowerPointPresentation);
  8856. begin
  8857.   inherited Create;
  8858.   FServer := AServer;
  8859. end;
  8860.  
  8861. function TPowerPointPresentationProperties.GetDefaultInterface: _Presentation;
  8862. begin
  8863.   Result := FServer.DefaultInterface;
  8864. end;
  8865.  
  8866. function  TPowerPointPresentationProperties.Get_Application: IDispatch;
  8867. begin
  8868.   Result := DefaultInterface.Get_Application;
  8869. end;
  8870.  
  8871. function  TPowerPointPresentationProperties.Get_Parent: IDispatch;
  8872. begin
  8873.   Result := DefaultInterface.Get_Parent;
  8874. end;
  8875.  
  8876. function  TPowerPointPresentationProperties.Get_SlideMaster: Master;
  8877. begin
  8878.   Result := DefaultInterface.Get_SlideMaster;
  8879. end;
  8880.  
  8881. function  TPowerPointPresentationProperties.Get_TitleMaster: Master;
  8882. begin
  8883.   Result := DefaultInterface.Get_TitleMaster;
  8884. end;
  8885.  
  8886. function  TPowerPointPresentationProperties.Get_HasTitleMaster: MsoTriState;
  8887. begin
  8888.   Result := DefaultInterface.Get_HasTitleMaster;
  8889. end;
  8890.  
  8891. function  TPowerPointPresentationProperties.Get_TemplateName: WideString;
  8892. begin
  8893.   Result := DefaultInterface.Get_TemplateName;
  8894. end;
  8895.  
  8896. function  TPowerPointPresentationProperties.Get_NotesMaster: Master;
  8897. begin
  8898.   Result := DefaultInterface.Get_NotesMaster;
  8899. end;
  8900.  
  8901. function  TPowerPointPresentationProperties.Get_HandoutMaster: Master;
  8902. begin
  8903.   Result := DefaultInterface.Get_HandoutMaster;
  8904. end;
  8905.  
  8906. function  TPowerPointPresentationProperties.Get_Slides: Slides;
  8907. begin
  8908.   Result := DefaultInterface.Get_Slides;
  8909. end;
  8910.  
  8911. function  TPowerPointPresentationProperties.Get_PageSetup: PageSetup;
  8912. begin
  8913.   Result := DefaultInterface.Get_PageSetup;
  8914. end;
  8915.  
  8916. function  TPowerPointPresentationProperties.Get_ColorSchemes: ColorSchemes;
  8917. begin
  8918.   Result := DefaultInterface.Get_ColorSchemes;
  8919. end;
  8920.  
  8921. function  TPowerPointPresentationProperties.Get_ExtraColors: ExtraColors;
  8922. begin
  8923.   Result := DefaultInterface.Get_ExtraColors;
  8924. end;
  8925.  
  8926. function  TPowerPointPresentationProperties.Get_SlideShowSettings: SlideShowSettings;
  8927. begin
  8928.   Result := DefaultInterface.Get_SlideShowSettings;
  8929. end;
  8930.  
  8931. function  TPowerPointPresentationProperties.Get_Fonts: Fonts;
  8932. begin
  8933.   Result := DefaultInterface.Get_Fonts;
  8934. end;
  8935.  
  8936. function  TPowerPointPresentationProperties.Get_Windows: DocumentWindows;
  8937. begin
  8938.   Result := DefaultInterface.Get_Windows;
  8939. end;
  8940.  
  8941. function  TPowerPointPresentationProperties.Get_Tags: Tags;
  8942. begin
  8943.   Result := DefaultInterface.Get_Tags;
  8944. end;
  8945.  
  8946. function  TPowerPointPresentationProperties.Get_DefaultShape: Shape;
  8947. begin
  8948.   Result := DefaultInterface.Get_DefaultShape;
  8949. end;
  8950.  
  8951. function  TPowerPointPresentationProperties.Get_BuiltInDocumentProperties: IDispatch;
  8952. begin
  8953.   Result := DefaultInterface.Get_BuiltInDocumentProperties;
  8954. end;
  8955.  
  8956. function  TPowerPointPresentationProperties.Get_CustomDocumentProperties: IDispatch;
  8957. begin
  8958.   Result := DefaultInterface.Get_CustomDocumentProperties;
  8959. end;
  8960.  
  8961. function  TPowerPointPresentationProperties.Get_VBProject: VBProject;
  8962. begin
  8963.   Result := DefaultInterface.Get_VBProject;
  8964. end;
  8965.  
  8966. function  TPowerPointPresentationProperties.Get_ReadOnly: MsoTriState;
  8967. begin
  8968.   Result := DefaultInterface.Get_ReadOnly;
  8969. end;
  8970.  
  8971. function  TPowerPointPresentationProperties.Get_FullName: WideString;
  8972. begin
  8973.   Result := DefaultInterface.Get_FullName;
  8974. end;
  8975.  
  8976. function  TPowerPointPresentationProperties.Get_Name: WideString;
  8977. begin
  8978.   Result := DefaultInterface.Get_Name;
  8979. end;
  8980.  
  8981. function  TPowerPointPresentationProperties.Get_Path: WideString;
  8982. begin
  8983.   Result := DefaultInterface.Get_Path;
  8984. end;
  8985.  
  8986. function  TPowerPointPresentationProperties.Get_Saved: MsoTriState;
  8987. begin
  8988.   Result := DefaultInterface.Get_Saved;
  8989. end;
  8990.  
  8991. procedure TPowerPointPresentationProperties.Set_Saved(Saved: MsoTriState);
  8992. begin
  8993.   DefaultInterface.Set_Saved(Saved);
  8994. end;
  8995.  
  8996. function  TPowerPointPresentationProperties.Get_LayoutDirection: PpDirection;
  8997. begin
  8998.   Result := DefaultInterface.Get_LayoutDirection;
  8999. end;
  9000.  
  9001. procedure TPowerPointPresentationProperties.Set_LayoutDirection(LayoutDirection: PpDirection);
  9002. begin
  9003.   DefaultInterface.Set_LayoutDirection(LayoutDirection);
  9004. end;
  9005.  
  9006. function  TPowerPointPresentationProperties.Get_PrintOptions: PrintOptions;
  9007. begin
  9008.   Result := DefaultInterface.Get_PrintOptions;
  9009. end;
  9010.  
  9011. function  TPowerPointPresentationProperties.Get_Container: IDispatch;
  9012. begin
  9013.   Result := DefaultInterface.Get_Container;
  9014. end;
  9015.  
  9016. function  TPowerPointPresentationProperties.Get_DisplayComments: MsoTriState;
  9017. begin
  9018.   Result := DefaultInterface.Get_DisplayComments;
  9019. end;
  9020.  
  9021. procedure TPowerPointPresentationProperties.Set_DisplayComments(DisplayComments: MsoTriState);
  9022. begin
  9023.   DefaultInterface.Set_DisplayComments(DisplayComments);
  9024. end;
  9025.  
  9026. function  TPowerPointPresentationProperties.Get_FarEastLineBreakLevel: PpFarEastLineBreakLevel;
  9027. begin
  9028.   Result := DefaultInterface.Get_FarEastLineBreakLevel;
  9029. end;
  9030.  
  9031. procedure TPowerPointPresentationProperties.Set_FarEastLineBreakLevel(FarEastLineBreakLevel: PpFarEastLineBreakLevel);
  9032. begin
  9033.   DefaultInterface.Set_FarEastLineBreakLevel(FarEastLineBreakLevel);
  9034. end;
  9035.  
  9036. function  TPowerPointPresentationProperties.Get_NoLineBreakBefore: WideString;
  9037. begin
  9038.   Result := DefaultInterface.Get_NoLineBreakBefore;
  9039. end;
  9040.  
  9041. procedure TPowerPointPresentationProperties.Set_NoLineBreakBefore(const NoLineBreakBefore: WideString);
  9042. begin
  9043.   DefaultInterface.Set_NoLineBreakBefore(NoLineBreakBefore);
  9044. end;
  9045.  
  9046. function  TPowerPointPresentationProperties.Get_NoLineBreakAfter: WideString;
  9047. begin
  9048.   Result := DefaultInterface.Get_NoLineBreakAfter;
  9049. end;
  9050.  
  9051. procedure TPowerPointPresentationProperties.Set_NoLineBreakAfter(const NoLineBreakAfter: WideString);
  9052. begin
  9053.   DefaultInterface.Set_NoLineBreakAfter(NoLineBreakAfter);
  9054. end;
  9055.  
  9056. function  TPowerPointPresentationProperties.Get_SlideShowWindow: SlideShowWindow;
  9057. begin
  9058.   Result := DefaultInterface.Get_SlideShowWindow;
  9059. end;
  9060.  
  9061. {$ENDIF}
  9062.  
  9063. class function CoOLECtrl.Create: OCXExtender;
  9064. begin
  9065.   Result := CreateComObject(CLASS_OLECtrl) as OCXExtender;
  9066. end;
  9067.  
  9068. class function CoOLECtrl.CreateRemote(const MachineName: string): OCXExtender;
  9069. begin
  9070.   Result := CreateRemoteComObject(MachineName, CLASS_OLECtrl) as OCXExtender;
  9071. end;
  9072.  
  9073. procedure Register;
  9074. begin
  9075.   RegisterComponents('Servers',[TPowerPointApplication, TPowerPointSlide, TPowerPointPresentation]);
  9076. end;
  9077.  
  9078. end.
  9079.