home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Ocx / Servers / OFFICE97.PAS < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  201KB  |  4,104 lines
  1. unit Office97;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11  $
  15. // File generated on 6/3/99 9:50:15 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: D:\Program Files\Microsoft Office\Office\mso97.dll (1)
  19. // IID\LCID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}\0
  20. // Helpfile: D:\Program Files\Microsoft Office\Office\vbaoff8.hlp
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  23. // Parent TypeLibrary:
  24. //   (0) v8.0 Access, (typelibraries\msacc8.olb)
  25. // Errors:
  26. //   Hint: Parameter 'Type' of CommandBars.FindControl changed to 'Type_'
  27. //   Hint: Parameter 'Type' of CommandBar.FindControl changed to 'Type_'
  28. //   Hint: Member 'Type' of 'CommandBar' changed to 'Type_'
  29. //   Hint: Parameter 'Type' of CommandBarControls.Add changed to 'Type_'
  30. //   Hint: Member 'Type' of 'CommandBarControl' changed to 'Type_'
  31. //   Hint: Member 'Type' of 'CalloutFormat' changed to 'Type_'
  32. //   Hint: Parameter 'Type' of CalloutFormat.Type changed to 'Type_'
  33. //   Hint: Parameter 'Type' of CalloutFormat.Type changed to 'Type_'
  34. //   Hint: Member 'Type' of 'ColorFormat' changed to 'Type_'
  35. //   Hint: Parameter 'Type' of ColorFormat.Type changed to 'Type_'
  36. //   Hint: Member 'Type' of 'ConnectorFormat' changed to 'Type_'
  37. //   Hint: Parameter 'Type' of ConnectorFormat.Type changed to 'Type_'
  38. //   Hint: Parameter 'Type' of ConnectorFormat.Type changed to 'Type_'
  39. //   Hint: Member 'Type' of 'FillFormat' changed to 'Type_'
  40. //   Hint: Parameter 'Type' of FillFormat.Type changed to 'Type_'
  41. //   Hint: Member 'Type' of 'ShadowFormat' changed to 'Type_'
  42. //   Hint: Parameter 'Type' of ShadowFormat.Type changed to 'Type_'
  43. //   Hint: Parameter 'Type' of ShadowFormat.Type changed to 'Type_'
  44. //   Hint: Member 'Type' of 'Shape' changed to 'Type_'
  45. //   Hint: Parameter 'Type' of Shape.Type changed to 'Type_'
  46. //   Hint: Member 'Type' of 'ShapeRange' changed to 'Type_'
  47. //   Hint: Parameter 'Type' of ShapeRange.Type changed to 'Type_'
  48. //   Hint: Parameter 'Type' of Shapes.AddCallout changed to 'Type_'
  49. //   Hint: Parameter 'Type' of Shapes.AddConnector changed to 'Type_'
  50. //   Hint: Parameter 'Label' of Shapes.AddLabel changed to 'Label_'
  51. //   Hint: Parameter 'Type' of Shapes.AddShape changed to 'Type_'
  52. //   Hint: Parameter 'On' of Assistant.StartWizard changed to 'On_'
  53. //   Hint: Member 'Private' of 'Balloon' changed to 'Private_'
  54. //   Hint: Member 'Type' of 'DocumentProperty' changed to 'Type_'
  55. //   Hint: Parameter 'Type' of DocumentProperties.Add changed to 'Type_'
  56. // ************************************************************************ //
  57. interface
  58.  
  59. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  60.  
  61. // *********************************************************************//
  62. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  63. //   Type Libraries     : LIBID_xxxx                                      
  64. //   CoClasses          : CLASS_xxxx                                      
  65. //   DISPInterfaces     : DIID_xxxx                                       
  66. //   Non-DISP interfaces: IID_xxxx                                        
  67. // *********************************************************************//
  68. const
  69.   // TypeLibrary Major and minor versions
  70.   OfficeMajorVersion = 2;
  71.   OfficeMinorVersion = 0;
  72.  
  73.   LIBID_Office: TGUID = '{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}';
  74.  
  75.   IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
  76.   IID__IMsoDispObj: TGUID = '{000C0300-0000-0000-C000-000000000046}';
  77.   IID__IMsoOleAccDispObj: TGUID = '{000C0301-0000-0000-C000-000000000046}';
  78.   IID_CommandBars: TGUID = '{000C0302-0000-0000-C000-000000000046}';
  79.   IID_CommandBar: TGUID = '{000C0304-0000-0000-C000-000000000046}';
  80.   IID_CommandBarControls: TGUID = '{000C0306-0000-0000-C000-000000000046}';
  81.   IID_CommandBarControl: TGUID = '{000C0308-0000-0000-C000-000000000046}';
  82.   IID_CommandBarButton: TGUID = '{000C030E-0000-0000-C000-000000000046}';
  83.   IID_CommandBarPopup: TGUID = '{000C030A-0000-0000-C000-000000000046}';
  84.   IID_CommandBarComboBox: TGUID = '{000C030C-0000-0000-C000-000000000046}';
  85.   IID_Adjustments: TGUID = '{000C0310-0000-0000-C000-000000000046}';
  86.   IID_CalloutFormat: TGUID = '{000C0311-0000-0000-C000-000000000046}';
  87.   IID_ColorFormat: TGUID = '{000C0312-0000-0000-C000-000000000046}';
  88.   IID_ConnectorFormat: TGUID = '{000C0313-0000-0000-C000-000000000046}';
  89.   IID_FillFormat: TGUID = '{000C0314-0000-0000-C000-000000000046}';
  90.   IID_FreeformBuilder: TGUID = '{000C0315-0000-0000-C000-000000000046}';
  91.   IID_GroupShapes: TGUID = '{000C0316-0000-0000-C000-000000000046}';
  92.   IID_LineFormat: TGUID = '{000C0317-0000-0000-C000-000000000046}';
  93.   IID_ShapeNode: TGUID = '{000C0318-0000-0000-C000-000000000046}';
  94.   IID_ShapeNodes: TGUID = '{000C0319-0000-0000-C000-000000000046}';
  95.   IID_PictureFormat: TGUID = '{000C031A-0000-0000-C000-000000000046}';
  96.   IID_ShadowFormat: TGUID = '{000C031B-0000-0000-C000-000000000046}';
  97.   IID_Shape: TGUID = '{000C031C-0000-0000-C000-000000000046}';
  98.   IID_ShapeRange: TGUID = '{000C031D-0000-0000-C000-000000000046}';
  99.   IID_Shapes: TGUID = '{000C031E-0000-0000-C000-000000000046}';
  100.   IID_TextEffectFormat: TGUID = '{000C031F-0000-0000-C000-000000000046}';
  101.   IID_TextFrame: TGUID = '{000C0320-0000-0000-C000-000000000046}';
  102.   IID_ThreeDFormat: TGUID = '{000C0321-0000-0000-C000-000000000046}';
  103.   IID_Assistant: TGUID = '{000C0322-0000-0000-C000-000000000046}';
  104.   IID_Balloon: TGUID = '{000C0324-0000-0000-C000-000000000046}';
  105.   IID_BalloonCheckboxes: TGUID = '{000C0326-0000-0000-C000-000000000046}';
  106.   IID_BalloonCheckbox: TGUID = '{000C0328-0000-0000-C000-000000000046}';
  107.   IID_BalloonLabels: TGUID = '{000C032E-0000-0000-C000-000000000046}';
  108.   IID_BalloonLabel: TGUID = '{000C0330-0000-0000-C000-000000000046}';
  109.   IID_DocumentProperty: TGUID = '{2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}';
  110.   IID_DocumentProperties: TGUID = '{2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}';
  111.   IID_IFoundFiles: TGUID = '{000C0338-0000-0000-C000-000000000046}';
  112.   IID_IFind: TGUID = '{000C0337-0000-0000-C000-000000000046}';
  113.   IID_FoundFiles: TGUID = '{000C0331-0000-0000-C000-000000000046}';
  114.   IID_PropertyTest: TGUID = '{000C0333-0000-0000-C000-000000000046}';
  115.   IID_PropertyTests: TGUID = '{000C0334-0000-0000-C000-000000000046}';
  116.   IID_FileSearch: TGUID = '{000C0332-0000-0000-C000-000000000046}';
  117.  
  118. // *********************************************************************//
  119. // Declaration of Enumerations defined in Type Library                    
  120. // *********************************************************************//
  121. // MsoLineDashStyle constants
  122. type
  123.   MsoLineDashStyle = TOleEnum;
  124. const
  125.   msoLineDashStyleMixed = $FFFFFFFE;
  126.   msoLineSolid = $00000001;
  127.   msoLineSquareDot = $00000002;
  128.   msoLineRoundDot = $00000003;
  129.   msoLineDash = $00000004;
  130.   msoLineDashDot = $00000005;
  131.   msoLineDashDotDot = $00000006;
  132.   msoLineLongDash = $00000007;
  133.   msoLineLongDashDot = $00000008;
  134.  
  135. // MsoLineStyle constants
  136. type
  137.   MsoLineStyle = TOleEnum;
  138. const
  139.   msoLineStyleMixed = $FFFFFFFE;
  140.   msoLineSingle = $00000001;
  141.   msoLineThinThin = $00000002;
  142.   msoLineThinThick = $00000003;
  143.   msoLineThickThin = $00000004;
  144.   msoLineThickBetweenThin = $00000005;
  145.  
  146. // MsoArrowheadStyle constants
  147. type
  148.   MsoArrowheadStyle = TOleEnum;
  149. const
  150.   msoArrowheadStyleMixed = $FFFFFFFE;
  151.   msoArrowheadNone = $00000001;
  152.   msoArrowheadTriangle = $00000002;
  153.   msoArrowheadOpen = $00000003;
  154.   msoArrowheadStealth = $00000004;
  155.   msoArrowheadDiamond = $00000005;
  156.   msoArrowheadOval = $00000006;
  157.  
  158. // MsoArrowheadWidth constants
  159. type
  160.   MsoArrowheadWidth = TOleEnum;
  161. const
  162.   msoArrowheadWidthMixed = $FFFFFFFE;
  163.   msoArrowheadNarrow = $00000001;
  164.   msoArrowheadWidthMedium = $00000002;
  165.   msoArrowheadWide = $00000003;
  166.  
  167. // MsoArrowheadLength constants
  168. type
  169.   MsoArrowheadLength = TOleEnum;
  170. const
  171.   msoArrowheadLengthMixed = $FFFFFFFE;
  172.   msoArrowheadShort = $00000001;
  173.   msoArrowheadLengthMedium = $00000002;
  174.   msoArrowheadLong = $00000003;
  175.  
  176. // MsoFillType constants
  177. type
  178.   MsoFillType = TOleEnum;
  179. const
  180.   msoFillMixed = $FFFFFFFE;
  181.   msoFillSolid = $00000001;
  182.   msoFillPatterned = $00000002;
  183.   msoFillGradient = $00000003;
  184.   msoFillTextured = $00000004;
  185.   msoFillBackground = $00000005;
  186.   msoFillPicture = $00000006;
  187.  
  188. // MsoGradientStyle constants
  189. type
  190.   MsoGradientStyle = TOleEnum;
  191. const
  192.   msoGradientMixed = $FFFFFFFE;
  193.   msoGradientHorizontal = $00000001;
  194.   msoGradientVertical = $00000002;
  195.   msoGradientDiagonalUp = $00000003;
  196.   msoGradientDiagonalDown = $00000004;
  197.   msoGradientFromCorner = $00000005;
  198.   msoGradientFromTitle = $00000006;
  199.   msoGradientFromCenter = $00000007;
  200.  
  201. // MsoGradientColorType constants
  202. type
  203.   MsoGradientColorType = TOleEnum;
  204. const
  205.   msoGradientColorMixed = $FFFFFFFE;
  206.   msoGradientOneColor = $00000001;
  207.   msoGradientTwoColors = $00000002;
  208.   msoGradientPresetColors = $00000003;
  209.  
  210. // MsoTextureType constants
  211. type
  212.   MsoTextureType = TOleEnum;
  213. const
  214.   msoTextureTypeMixed = $FFFFFFFE;
  215.   msoTexturePreset = $00000001;
  216.   msoTextureUserDefined = $00000002;
  217.  
  218. // MsoPresetTexture constants
  219. type
  220.   MsoPresetTexture = TOleEnum;
  221. const
  222.   msoPresetTextureMixed = $FFFFFFFE;
  223.   msoTexturePapyrus = $00000001;
  224.   msoTextureCanvas = $00000002;
  225.   msoTextureDenim = $00000003;
  226.   msoTextureWovenMat = $00000004;
  227.   msoTextureWaterDroplets = $00000005;
  228.   msoTexturePaperBag = $00000006;
  229.   msoTextureFishFossil = $00000007;
  230.   msoTextureSand = $00000008;
  231.   msoTextureGreenMarble = $00000009;
  232.   msoTextureWhiteMarble = $0000000A;
  233.   msoTextureBrownMarble = $0000000B;
  234.   msoTextureGranite = $0000000C;
  235.   msoTextureNewsprint = $0000000D;
  236.   msoTextureRecycledPaper = $0000000E;
  237.   msoTextureParchment = $0000000F;
  238.   msoTextureStationery = $00000010;
  239.   msoTextureBlueTissuePaper = $00000011;
  240.   msoTexturePinkTissuePaper = $00000012;
  241.   msoTexturePurpleMesh = $00000013;
  242.   msoTextureBouquet = $00000014;
  243.   msoTextureCork = $00000015;
  244.   msoTextureWalnut = $00000016;
  245.   msoTextureOak = $00000017;
  246.   msoTextureMediumWood = $00000018;
  247.  
  248. // MsoPatternType constants
  249. type
  250.   MsoPatternType = TOleEnum;
  251. const
  252.   msoPatternMixed = $FFFFFFFE;
  253.   msoPattern5Percent = $00000001;
  254.   msoPattern10Percent = $00000002;
  255.   msoPattern20Percent = $00000003;
  256.   msoPattern25Percent = $00000004;
  257.   msoPattern30Percent = $00000005;
  258.   msoPattern40Percent = $00000006;
  259.   msoPattern50Percent = $00000007;
  260.   msoPattern60Percent = $00000008;
  261.   msoPattern70Percent = $00000009;
  262.   msoPattern75Percent = $0000000A;
  263.   msoPattern80Percent = $0000000B;
  264.   msoPattern90Percent = $0000000C;
  265.   msoPatternDarkHorizontal = $0000000D;
  266.   msoPatternDarkVertical = $0000000E;
  267.   msoPatternDarkDownwardDiagonal = $0000000F;
  268.   msoPatternDarkUpwardDiagonal = $00000010;
  269.   msoPatternSmallCheckerBoard = $00000011;
  270.   msoPatternTrellis = $00000012;
  271.   msoPatternLightHorizontal = $00000013;
  272.   msoPatternLightVertical = $00000014;
  273.   msoPatternLightDownwardDiagonal = $00000015;
  274.   msoPatternLightUpwardDiagonal = $00000016;
  275.   msoPatternSmallGrid = $00000017;
  276.   msoPatternDottedDiamond = $00000018;
  277.   msoPatternWideDownwardDiagonal = $00000019;
  278.   msoPatternWideUpwardDiagonal = $0000001A;
  279.   msoPatternDashedUpwardDiagonal = $0000001B;
  280.   msoPatternDashedDownwardDiagonal = $0000001C;
  281.   msoPatternNarrowVertical = $0000001D;
  282.   msoPatternNarrowHorizontal = $0000001E;
  283.   msoPatternDashedVertical = $0000001F;
  284.   msoPatternDashedHorizontal = $00000020;
  285.   msoPatternLargeConfetti = $00000021;
  286.   msoPatternLargeGrid = $00000022;
  287.   msoPatternHorizontalBrick = $00000023;
  288.   msoPatternLargeCheckerBoard = $00000024;
  289.   msoPatternSmallConfetti = $00000025;
  290.   msoPatternZigZag = $00000026;
  291.   msoPatternSolidDiamond = $00000027;
  292.   msoPatternDiagonalBrick = $00000028;
  293.   msoPatternOutlinedDiamond = $00000029;
  294.   msoPatternPlaid = $0000002A;
  295.   msoPatternSphere = $0000002B;
  296.   msoPatternWeave = $0000002C;
  297.   msoPatternDottedGrid = $0000002D;
  298.   msoPatternDivot = $0000002E;
  299.   msoPatternShingle = $0000002F;
  300.   msoPatternWave = $00000030;
  301.  
  302. // MsoPresetGradientType constants
  303. type
  304.   MsoPresetGradientType = TOleEnum;
  305. const
  306.   msoPresetGradientMixed = $FFFFFFFE;
  307.   msoGradientEarlySunset = $00000001;
  308.   msoGradientLateSunset = $00000002;
  309.   msoGradientNightfall = $00000003;
  310.   msoGradientDaybreak = $00000004;
  311.   msoGradientHorizon = $00000005;
  312.   msoGradientDesert = $00000006;
  313.   msoGradientOcean = $00000007;
  314.   msoGradientCalmWater = $00000008;
  315.   msoGradientFire = $00000009;
  316.   msoGradientFog = $0000000A;
  317.   msoGradientMoss = $0000000B;
  318.   msoGradientPeacock = $0000000C;
  319.   msoGradientWheat = $0000000D;
  320.   msoGradientParchment = $0000000E;
  321.   msoGradientMahogany = $0000000F;
  322.   msoGradientRainbow = $00000010;
  323.   msoGradientRainbowII = $00000011;
  324.   msoGradientGold = $00000012;
  325.   msoGradientGoldII = $00000013;
  326.   msoGradientBrass = $00000014;
  327.   msoGradientChrome = $00000015;
  328.   msoGradientChromeII = $00000016;
  329.   msoGradientSilver = $00000017;
  330.   msoGradientSapphire = $00000018;
  331.  
  332. // MsoShadowType constants
  333. type
  334.   MsoShadowType = TOleEnum;
  335. const
  336.   msoShadowMixed = $FFFFFFFE;
  337.   msoShadow1 = $00000001;
  338.   msoShadow2 = $00000002;
  339.   msoShadow3 = $00000003;
  340.   msoShadow4 = $00000004;
  341.   msoShadow5 = $00000005;
  342.   msoShadow6 = $00000006;
  343.   msoShadow7 = $00000007;
  344.   msoShadow8 = $00000008;
  345.   msoShadow9 = $00000009;
  346.   msoShadow10 = $0000000A;
  347.   msoShadow11 = $0000000B;
  348.   msoShadow12 = $0000000C;
  349.   msoShadow13 = $0000000D;
  350.   msoShadow14 = $0000000E;
  351.   msoShadow15 = $0000000F;
  352.   msoShadow16 = $00000010;
  353.   msoShadow17 = $00000011;
  354.   msoShadow18 = $00000012;
  355.   msoShadow19 = $00000013;
  356.   msoShadow20 = $00000014;
  357.  
  358. // MsoPresetTextEffect constants
  359. type
  360.   MsoPresetTextEffect = TOleEnum;
  361. const
  362.   msoTextEffectMixed = $FFFFFFFE;
  363.   msoTextEffect1 = $00000000;
  364.   msoTextEffect2 = $00000001;
  365.   msoTextEffect3 = $00000002;
  366.   msoTextEffect4 = $00000003;
  367.   msoTextEffect5 = $00000004;
  368.   msoTextEffect6 = $00000005;
  369.   msoTextEffect7 = $00000006;
  370.   msoTextEffect8 = $00000007;
  371.   msoTextEffect9 = $00000008;
  372.   msoTextEffect10 = $00000009;
  373.   msoTextEffect11 = $0000000A;
  374.   msoTextEffect12 = $0000000B;
  375.   msoTextEffect13 = $0000000C;
  376.   msoTextEffect14 = $0000000D;
  377.   msoTextEffect15 = $0000000E;
  378.   msoTextEffect16 = $0000000F;
  379.   msoTextEffect17 = $00000010;
  380.   msoTextEffect18 = $00000011;
  381.   msoTextEffect19 = $00000012;
  382.   msoTextEffect20 = $00000013;
  383.   msoTextEffect21 = $00000014;
  384.   msoTextEffect22 = $00000015;
  385.   msoTextEffect23 = $00000016;
  386.   msoTextEffect24 = $00000017;
  387.   msoTextEffect25 = $00000018;
  388.   msoTextEffect26 = $00000019;
  389.   msoTextEffect27 = $0000001A;
  390.   msoTextEffect28 = $0000001B;
  391.   msoTextEffect29 = $0000001C;
  392.   msoTextEffect30 = $0000001D;
  393.  
  394. // MsoPresetTextEffectShape constants
  395. type
  396.   MsoPresetTextEffectShape = TOleEnum;
  397. const
  398.   msoTextEffectShapeMixed = $FFFFFFFE;
  399.   msoTextEffectShapePlainText = $00000001;
  400.   msoTextEffectShapeStop = $00000002;
  401.   msoTextEffectShapeTriangleUp = $00000003;
  402.   msoTextEffectShapeTriangleDown = $00000004;
  403.   msoTextEffectShapeChevronUp = $00000005;
  404.   msoTextEffectShapeChevronDown = $00000006;
  405.   msoTextEffectShapeRingInside = $00000007;
  406.   msoTextEffectShapeRingOutside = $00000008;
  407.   msoTextEffectShapeArchUpCurve = $00000009;
  408.   msoTextEffectShapeArchDownCurve = $0000000A;
  409.   msoTextEffectShapeCircleCurve = $0000000B;
  410.   msoTextEffectShapeButtonCurve = $0000000C;
  411.   msoTextEffectShapeArchUpPour = $0000000D;
  412.   msoTextEffectShapeArchDownPour = $0000000E;
  413.   msoTextEffectShapeCirclePour = $0000000F;
  414.   msoTextEffectShapeButtonPour = $00000010;
  415.   msoTextEffectShapeCurveUp = $00000011;
  416.   msoTextEffectShapeCurveDown = $00000012;
  417.   msoTextEffectShapeCanUp = $00000013;
  418.   msoTextEffectShapeCanDown = $00000014;
  419.   msoTextEffectShapeWave1 = $00000015;
  420.   msoTextEffectShapeWave2 = $00000016;
  421.   msoTextEffectShapeDoubleWave1 = $00000017;
  422.   msoTextEffectShapeDoubleWave2 = $00000018;
  423.   msoTextEffectShapeInflate = $00000019;
  424.   msoTextEffectShapeDeflate = $0000001A;
  425.   msoTextEffectShapeInflateBottom = $0000001B;
  426.   msoTextEffectShapeDeflateBottom = $0000001C;
  427.   msoTextEffectShapeInflateTop = $0000001D;
  428.   msoTextEffectShapeDeflateTop = $0000001E;
  429.   msoTextEffectShapeDeflateInflate = $0000001F;
  430.   msoTextEffectShapeDeflateInflateDeflate = $00000020;
  431.   msoTextEffectShapeFadeRight = $00000021;
  432.   msoTextEffectShapeFadeLeft = $00000022;
  433.   msoTextEffectShapeFadeUp = $00000023;
  434.   msoTextEffectShapeFadeDown = $00000024;
  435.   msoTextEffectShapeSlantUp = $00000025;
  436.   msoTextEffectShapeSlantDown = $00000026;
  437.   msoTextEffectShapeCascadeUp = $00000027;
  438.   msoTextEffectShapeCascadeDown = $00000028;
  439.  
  440. // MsoTextEffectAlignment constants
  441. type
  442.   MsoTextEffectAlignment = TOleEnum;
  443. const
  444.   msoTextEffectAlignmentMixed = $FFFFFFFE;
  445.   msoTextEffectAlignmentLeft = $00000001;
  446.   msoTextEffectAlignmentCentered = $00000002;
  447.   msoTextEffectAlignmentRight = $00000003;
  448.   msoTextEffectAlignmentLetterJustify = $00000004;
  449.   msoTextEffectAlignmentWordJustify = $00000005;
  450.   msoTextEffectAlignmentStretchJustify = $00000006;
  451.  
  452. // MsoPresetLightingDirection constants
  453. type
  454.   MsoPresetLightingDirection = TOleEnum;
  455. const
  456.   msoPresetLightingDirectionMixed = $FFFFFFFE;
  457.   msoLightingTopLeft = $00000001;
  458.   msoLightingTop = $00000002;
  459.   msoLightingTopRight = $00000003;
  460.   msoLightingLeft = $00000004;
  461.   msoLightingNone = $00000005;
  462.   msoLightingRight = $00000006;
  463.   msoLightingBottomLeft = $00000007;
  464.   msoLightingBottom = $00000008;
  465.   msoLightingBottomRight = $00000009;
  466.  
  467. // MsoPresetLightingSoftness constants
  468. type
  469.   MsoPresetLightingSoftness = TOleEnum;
  470. const
  471.   msoPresetLightingSoftnessMixed = $FFFFFFFE;
  472.   msoLightingDim = $00000001;
  473.   msoLightingNormal = $00000002;
  474.   msoLightingBright = $00000003;
  475.  
  476. // MsoPresetMaterial constants
  477. type
  478.   MsoPresetMaterial = TOleEnum;
  479. const
  480.   msoPresetMaterialMixed = $FFFFFFFE;
  481.   msoMaterialMatte = $00000001;
  482.   msoMaterialPlastic = $00000002;
  483.   msoMaterialMetal = $00000003;
  484.   msoMaterialWireFrame = $00000004;
  485.  
  486. // MsoPresetExtrusionDirection constants
  487. type
  488.   MsoPresetExtrusionDirection = TOleEnum;
  489. const
  490.   msoPresetExtrusionDirectionMixed = $FFFFFFFE;
  491.   msoExtrusionBottomRight = $00000001;
  492.   msoExtrusionBottom = $00000002;
  493.   msoExtrusionBottomLeft = $00000003;
  494.   msoExtrusionRight = $00000004;
  495.   msoExtrusionNone = $00000005;
  496.   msoExtrusionLeft = $00000006;
  497.   msoExtrusionTopRight = $00000007;
  498.   msoExtrusionTop = $00000008;
  499.   msoExtrusionTopLeft = $00000009;
  500.  
  501. // MsoPresetThreeDFormat constants
  502. type
  503.   MsoPresetThreeDFormat = TOleEnum;
  504. const
  505.   msoPresetThreeDFormatMixed = $FFFFFFFE;
  506.   msoThreeD1 = $00000001;
  507.   msoThreeD2 = $00000002;
  508.   msoThreeD3 = $00000003;
  509.   msoThreeD4 = $00000004;
  510.   msoThreeD5 = $00000005;
  511.   msoThreeD6 = $00000006;
  512.   msoThreeD7 = $00000007;
  513.   msoThreeD8 = $00000008;
  514.   msoThreeD9 = $00000009;
  515.   msoThreeD10 = $0000000A;
  516.   msoThreeD11 = $0000000B;
  517.   msoThreeD12 = $0000000C;
  518.   msoThreeD13 = $0000000D;
  519.   msoThreeD14 = $0000000E;
  520.   msoThreeD15 = $0000000F;
  521.   msoThreeD16 = $00000010;
  522.   msoThreeD17 = $00000011;
  523.   msoThreeD18 = $00000012;
  524.   msoThreeD19 = $00000013;
  525.   msoThreeD20 = $00000014;
  526.  
  527. // MsoExtrusionColorType constants
  528. type
  529.   MsoExtrusionColorType = TOleEnum;
  530. const
  531.   msoExtrusionColorTypeMixed = $FFFFFFFE;
  532.   msoExtrusionColorAutomatic = $00000001;
  533.   msoExtrusionColorCustom = $00000002;
  534.  
  535. // MsoAlignCmd constants
  536. type
  537.   MsoAlignCmd = TOleEnum;
  538. const
  539.   msoAlignLefts = $00000000;
  540.   msoAlignCenters = $00000001;
  541.   msoAlignRights = $00000002;
  542.   msoAlignTops = $00000003;
  543.   msoAlignMiddles = $00000004;
  544.   msoAlignBottoms = $00000005;
  545.  
  546. // MsoDistributeCmd constants
  547. type
  548.   MsoDistributeCmd = TOleEnum;
  549. const
  550.   msoDistributeHorizontally = $00000000;
  551.   msoDistributeVertically = $00000001;
  552.  
  553. // MsoConnectorType constants
  554. type
  555.   MsoConnectorType = TOleEnum;
  556. const
  557.   msoConnectorTypeMixed = $FFFFFFFE;
  558.   msoConnectorStraight = $00000001;
  559.   msoConnectorElbow = $00000002;
  560.   msoConnectorCurve = $00000003;
  561.  
  562. // MsoHorizontalAnchor constants
  563. type
  564.   MsoHorizontalAnchor = TOleEnum;
  565. const
  566.   msoHorizontalAnchorMixed = $FFFFFFFE;
  567.   msoAnchorNone = $00000001;
  568.   msoAnchorCenter = $00000002;
  569.  
  570. // MsoVerticalAnchor constants
  571. type
  572.   MsoVerticalAnchor = TOleEnum;
  573. const
  574.   msoVerticalAnchorMixed = $FFFFFFFE;
  575.   msoAnchorTop = $00000001;
  576.   msoAnchorTopBaseline = $00000002;
  577.   msoAnchorMiddle = $00000003;
  578.   msoAnchorBottom = $00000004;
  579.   msoAnchorBottomBaseLine = $00000005;
  580.  
  581. // MsoOrientation constants
  582. type
  583.   MsoOrientation = TOleEnum;
  584. const
  585.   msoOrientationMixed = $FFFFFFFE;
  586.   msoOrientationHorizontal = $00000001;
  587.   msoOrientationVertical = $00000002;
  588.  
  589. // MsoZOrderCmd constants
  590. type
  591.   MsoZOrderCmd = TOleEnum;
  592. const
  593.   msoBringToFront = $00000000;
  594.   msoSendToBack = $00000001;
  595.   msoBringForward = $00000002;
  596.   msoSendBackward = $00000003;
  597.   msoBringInFrontOfText = $00000004;
  598.   msoSendBehindText = $00000005;
  599.  
  600. // MsoSegmentType constants
  601. type
  602.   MsoSegmentType = TOleEnum;
  603. const
  604.   msoSegmentLine = $00000000;
  605.   msoSegmentCurve = $00000001;
  606.  
  607. // MsoEditingType constants
  608. type
  609.   MsoEditingType = TOleEnum;
  610. const
  611.   msoEditingAuto = $00000000;
  612.   msoEditingCorner = $00000001;
  613.   msoEditingSmooth = $00000002;
  614.   msoEditingSymmetric = $00000003;
  615.  
  616. // MsoAutoShapeType constants
  617. type
  618.   MsoAutoShapeType = TOleEnum;
  619. const
  620.   msoShapeMixed = $FFFFFFFE;
  621.   msoShapeRectangle = $00000001;
  622.   msoShapeParallelogram = $00000002;
  623.   msoShapeTrapezoid = $00000003;
  624.   msoShapeDiamond = $00000004;
  625.   msoShapeRoundedRectangle = $00000005;
  626.   msoShapeOctagon = $00000006;
  627.   msoShapeIsoscelesTriangle = $00000007;
  628.   msoShapeRightTriangle = $00000008;
  629.   msoShapeOval = $00000009;
  630.   msoShapeHexagon = $0000000A;
  631.   msoShapeCross = $0000000B;
  632.   msoShapeRegularPentagon = $0000000C;
  633.   msoShapeCan = $0000000D;
  634.   msoShapeCube = $0000000E;
  635.   msoShapeBevel = $0000000F;
  636.   msoShapeFoldedCorner = $00000010;
  637.   msoShapeSmileyFace = $00000011;
  638.   msoShapeDonut = $00000012;
  639.   msoShapeNoSymbol = $00000013;
  640.   msoShapeBlockArc = $00000014;
  641.   msoShapeHeart = $00000015;
  642.   msoShapeLightningBolt = $00000016;
  643.   msoShapeSun = $00000017;
  644.   msoShapeMoon = $00000018;
  645.   msoShapeArc = $00000019;
  646.   msoShapeDoubleBracket = $0000001A;
  647.   msoShapeDoubleBrace = $0000001B;
  648.   msoShapePlaque = $0000001C;
  649.   msoShapeLeftBracket = $0000001D;
  650.   msoShapeRightBracket = $0000001E;
  651.   msoShapeLeftBrace = $0000001F;
  652.   msoShapeRightBrace = $00000020;
  653.   msoShapeRightArrow = $00000021;
  654.   msoShapeLeftArrow = $00000022;
  655.   msoShapeUpArrow = $00000023;
  656.   msoShapeDownArrow = $00000024;
  657.   msoShapeLeftRightArrow = $00000025;
  658.   msoShapeUpDownArrow = $00000026;
  659.   msoShapeQuadArrow = $00000027;
  660.   msoShapeLeftRightUpArrow = $00000028;
  661.   msoShapeBentArrow = $00000029;
  662.   msoShapeUTurnArrow = $0000002A;
  663.   msoShapeLeftUpArrow = $0000002B;
  664.   msoShapeBentUpArrow = $0000002C;
  665.   msoShapeCurvedRightArrow = $0000002D;
  666.   msoShapeCurvedLeftArrow = $0000002E;
  667.   msoShapeCurvedUpArrow = $0000002F;
  668.   msoShapeCurvedDownArrow = $00000030;
  669.   msoShapeStripedRightArrow = $00000031;
  670.   msoShapeNotchedRightArrow = $00000032;
  671.   msoShapePentagon = $00000033;
  672.   msoShapeChevron = $00000034;
  673.   msoShapeRightArrowCallout = $00000035;
  674.   msoShapeLeftArrowCallout = $00000036;
  675.   msoShapeUpArrowCallout = $00000037;
  676.   msoShapeDownArrowCallout = $00000038;
  677.   msoShapeLeftRightArrowCallout = $00000039;
  678.   msoShapeUpDownArrowCallout = $0000003A;
  679.   msoShapeQuadArrowCallout = $0000003B;
  680.   msoShapeCircularArrow = $0000003C;
  681.   msoShapeFlowchartProcess = $0000003D;
  682.   msoShapeFlowchartAlternateProcess = $0000003E;
  683.   msoShapeFlowchartDecision = $0000003F;
  684.   msoShapeFlowchartData = $00000040;
  685.   msoShapeFlowchartPredefinedProcess = $00000041;
  686.   msoShapeFlowchartInternalStorage = $00000042;
  687.   msoShapeFlowchartDocument = $00000043;
  688.   msoShapeFlowchartMultidocument = $00000044;
  689.   msoShapeFlowchartTerminator = $00000045;
  690.   msoShapeFlowchartPreparation = $00000046;
  691.   msoShapeFlowchartManualInput = $00000047;
  692.   msoShapeFlowchartManualOperation = $00000048;
  693.   msoShapeFlowchartConnector = $00000049;
  694.   msoShapeFlowchartOffpageConnector = $0000004A;
  695.   msoShapeFlowchartCard = $0000004B;
  696.   msoShapeFlowchartPunchedTape = $0000004C;
  697.   msoShapeFlowchartSummingJunction = $0000004D;
  698.   msoShapeFlowchartOr = $0000004E;
  699.   msoShapeFlowchartCollate = $0000004F;
  700.   msoShapeFlowchartSort = $00000050;
  701.   msoShapeFlowchartExtract = $00000051;
  702.   msoShapeFlowchartMerge = $00000052;
  703.   msoShapeFlowchartStoredData = $00000053;
  704.   msoShapeFlowchartDelay = $00000054;
  705.   msoShapeFlowchartSequentialAccessStorage = $00000055;
  706.   msoShapeFlowchartMagneticDisk = $00000056;
  707.   msoShapeFlowchartDirectAccessStorage = $00000057;
  708.   msoShapeFlowchartDisplay = $00000058;
  709.   msoShapeExplosion1 = $00000059;
  710.   msoShapeExplosion2 = $0000005A;
  711.   msoShape4pointStar = $0000005B;
  712.   msoShape5pointStar = $0000005C;
  713.   msoShape8pointStar = $0000005D;
  714.   msoShape16pointStar = $0000005E;
  715.   msoShape24pointStar = $0000005F;
  716.   msoShape32pointStar = $00000060;
  717.   msoShapeUpRibbon = $00000061;
  718.   msoShapeDownRibbon = $00000062;
  719.   msoShapeCurvedUpRibbon = $00000063;
  720.   msoShapeCurvedDownRibbon = $00000064;
  721.   msoShapeVerticalScroll = $00000065;
  722.   msoShapeHorizontalScroll = $00000066;
  723.   msoShapeWave = $00000067;
  724.   msoShapeDoubleWave = $00000068;
  725.   msoShapeRectangularCallout = $00000069;
  726.   msoShapeRoundedRectangularCallout = $0000006A;
  727.   msoShapeOvalCallout = $0000006B;
  728.   msoShapeCloudCallout = $0000006C;
  729.   msoShapeLineCallout1 = $0000006D;
  730.   msoShapeLineCallout2 = $0000006E;
  731.   msoShapeLineCallout3 = $0000006F;
  732.   msoShapeLineCallout4 = $00000070;
  733.   msoShapeLineCallout1AccentBar = $00000071;
  734.   msoShapeLineCallout2AccentBar = $00000072;
  735.   msoShapeLineCallout3AccentBar = $00000073;
  736.   msoShapeLineCallout4AccentBar = $00000074;
  737.   msoShapeLineCallout1NoBorder = $00000075;
  738.   msoShapeLineCallout2NoBorder = $00000076;
  739.   msoShapeLineCallout3NoBorder = $00000077;
  740.   msoShapeLineCallout4NoBorder = $00000078;
  741.   msoShapeLineCallout1BorderandAccentBar = $00000079;
  742.   msoShapeLineCallout2BorderandAccentBar = $0000007A;
  743.   msoShapeLineCallout3BorderandAccentBar = $0000007B;
  744.   msoShapeLineCallout4BorderandAccentBar = $0000007C;
  745.   msoShapeActionButtonCustom = $0000007D;
  746.   msoShapeActionButtonHome = $0000007E;
  747.   msoShapeActionButtonHelp = $0000007F;
  748.   msoShapeActionButtonInformation = $00000080;
  749.   msoShapeActionButtonBackorPrevious = $00000081;
  750.   msoShapeActionButtonForwardorNext = $00000082;
  751.   msoShapeActionButtonBeginning = $00000083;
  752.   msoShapeActionButtonEnd = $00000084;
  753.   msoShapeActionButtonReturn = $00000085;
  754.   msoShapeActionButtonDocument = $00000086;
  755.   msoShapeActionButtonSound = $00000087;
  756.   msoShapeActionButtonMovie = $00000088;
  757.   msoShapeBalloon = $00000089;
  758.   msoShapeNotPrimitive = $0000008A;
  759.  
  760. // MsoShapeType constants
  761. type
  762.   MsoShapeType = TOleEnum;
  763. const
  764.   msoShapeTypeMixed = $FFFFFFFE;
  765.   msoAutoShape = $00000001;
  766.   msoCallout = $00000002;
  767.   msoChart = $00000003;
  768.   msoComment = $00000004;
  769.   msoFreeform = $00000005;
  770.   msoGroup = $00000006;
  771.   msoEmbeddedOLEObject = $00000007;
  772.   msoFormControl = $00000008;
  773.   msoLine = $00000009;
  774.   msoLinkedOLEObject = $0000000A;
  775.   msoLinkedPicture = $0000000B;
  776.   msoOLEControlObject = $0000000C;
  777.   msoPicture = $0000000D;
  778.   msoPlaceholder = $0000000E;
  779.   msoTextEffect = $0000000F;
  780.   msoMedia = $00000010;
  781.   msoTextBox = $00000011;
  782.  
  783. // MsoFlipCmd constants
  784. type
  785.   MsoFlipCmd = TOleEnum;
  786. const
  787.   msoFlipHorizontal = $00000000;
  788.   msoFlipVertical = $00000001;
  789.  
  790. // MsoTriState constants
  791. type
  792.   MsoTriState = TOleEnum;
  793. const
  794.   msoTrue = $FFFFFFFF;
  795.   msoFalse = $00000000;
  796.   msoCTrue = $00000001;
  797.   msoTriStateToggle = $FFFFFFFD;
  798.   msoTriStateMixed = $FFFFFFFE;
  799.  
  800. // MsoColorType constants
  801. type
  802.   MsoColorType = TOleEnum;
  803. const
  804.   msoColorTypeMixed = $FFFFFFFE;
  805.   msoColorTypeRGB = $00000001;
  806.   msoColorTypeScheme = $00000002;
  807.  
  808. // MsoPictureColorType constants
  809. type
  810.   MsoPictureColorType = TOleEnum;
  811. const
  812.   msoPictureMixed = $FFFFFFFE;
  813.   msoPictureAutomatic = $00000001;
  814.   msoPictureGrayscale = $00000002;
  815.   msoPictureBlackAndWhite = $00000003;
  816.   msoPictureWatermark = $00000004;
  817.  
  818. // MsoCalloutAngleType constants
  819. type
  820.   MsoCalloutAngleType = TOleEnum;
  821. const
  822.   msoCalloutAngleMixed = $FFFFFFFE;
  823.   msoCalloutAngleAutomatic = $00000001;
  824.   msoCalloutAngle30 = $00000002;
  825.   msoCalloutAngle45 = $00000003;
  826.   msoCalloutAngle60 = $00000004;
  827.   msoCalloutAngle90 = $00000005;
  828.  
  829. // MsoCalloutDropType constants
  830. type
  831.   MsoCalloutDropType = TOleEnum;
  832. const
  833.   msoCalloutDropMixed = $FFFFFFFE;
  834.   msoCalloutDropCustom = $00000001;
  835.   msoCalloutDropTop = $00000002;
  836.   msoCalloutDropCenter = $00000003;
  837.   msoCalloutDropBottom = $00000004;
  838.  
  839. // MsoCalloutType constants
  840. type
  841.   MsoCalloutType = TOleEnum;
  842. const
  843.   msoCalloutMixed = $FFFFFFFE;
  844.   msoCalloutOne = $00000001;
  845.   msoCalloutTwo = $00000002;
  846.   msoCalloutThree = $00000003;
  847.   msoCalloutFour = $00000004;
  848.  
  849. // MsoBlackWhiteMode constants
  850. type
  851.   MsoBlackWhiteMode = TOleEnum;
  852. const
  853.   msoBlackWhiteMixed = $FFFFFFFE;
  854.   msoBlackWhiteAutomatic = $00000001;
  855.   msoBlackWhiteGrayScale = $00000002;
  856.   msoBlackWhiteLightGrayScale = $00000003;
  857.   msoBlackWhiteInverseGrayScale = $00000004;
  858.   msoBlackWhiteGrayOutline = $00000005;
  859.   msoBlackWhiteBlackTextAndLine = $00000006;
  860.   msoBlackWhiteHighContrast = $00000007;
  861.   msoBlackWhiteBlack = $00000008;
  862.   msoBlackWhiteWhite = $00000009;
  863.   msoBlackWhiteDontShow = $0000000A;
  864.  
  865. // MsoMixedType constants
  866. type
  867.   MsoMixedType = TOleEnum;
  868. const
  869.   msoIntegerMixed = $00008000;
  870.   msoSingleMixed = $80000000;
  871.  
  872. // MsoTextOrientation constants
  873. type
  874.   MsoTextOrientation = TOleEnum;
  875. const
  876.   msoTextOrientationMixed = $FFFFFFFE;
  877.   msoTextOrientationHorizontal = $00000001;
  878.   msoTextOrientationUpward = $00000002;
  879.   msoTextOrientationDownward = $00000003;
  880.   msoTextOrientationVerticalFarEast = $00000004;
  881.   msoTextOrientationVertical = $00000005;
  882.   msoTextOrientationHorizontalRotatedFarEast = $00000006;
  883.  
  884. // MsoScaleFrom constants
  885. type
  886.   MsoScaleFrom = TOleEnum;
  887. const
  888.   msoScaleFromTopLeft = $00000000;
  889.   msoScaleFromMiddle = $00000001;
  890.   msoScaleFromBottomRight = $00000002;
  891.  
  892. // MsoBarPosition constants
  893. type
  894.   MsoBarPosition = TOleEnum;
  895. const
  896.   msoBarLeft = $00000000;
  897.   msoBarTop = $00000001;
  898.   msoBarRight = $00000002;
  899.   msoBarBottom = $00000003;
  900.   msoBarFloating = $00000004;
  901.   msoBarPopup = $00000005;
  902.   msoBarMenuBar = $00000006;
  903.  
  904. // MsoBarProtection constants
  905. type
  906.   MsoBarProtection = TOleEnum;
  907. const
  908.   msoBarNoProtection = $00000000;
  909.   msoBarNoCustomize = $00000001;
  910.   msoBarNoResize = $00000002;
  911.   msoBarNoMove = $00000004;
  912.   msoBarNoChangeVisible = $00000008;
  913.   msoBarNoChangeDock = $00000010;
  914.   msoBarNoVerticalDock = $00000020;
  915.   msoBarNoHorizontalDock = $00000040;
  916.  
  917. // MsoBarType constants
  918. type
  919.   MsoBarType = TOleEnum;
  920. const
  921.   msoBarTypeNormal = $00000000;
  922.   msoBarTypeMenuBar = $00000001;
  923.   msoBarTypePopup = $00000002;
  924.  
  925. // MsoControlType constants
  926. type
  927.   MsoControlType = TOleEnum;
  928. const
  929.   msoControlCustom = $00000000;
  930.   msoControlButton = $00000001;
  931.   msoControlEdit = $00000002;
  932.   msoControlDropdown = $00000003;
  933.   msoControlComboBox = $00000004;
  934.   msoControlButtonDropdown = $00000005;
  935.   msoControlSplitDropdown = $00000006;
  936.   msoControlOCXDropdown = $00000007;
  937.   msoControlGenericDropdown = $00000008;
  938.   msoControlGraphicDropdown = $00000009;
  939.   msoControlPopup = $0000000A;
  940.   msoControlGraphicPopup = $0000000B;
  941.   msoControlButtonPopup = $0000000C;
  942.   msoControlSplitButtonPopup = $0000000D;
  943.   msoControlSplitButtonMRUPopup = $0000000E;
  944.   msoControlLabel = $0000000F;
  945.   msoControlExpandingGrid = $00000010;
  946.   msoControlSplitExpandingGrid = $00000011;
  947.   msoControlGrid = $00000012;
  948.   msoControlGauge = $00000013;
  949.   msoControlGraphicCombo = $00000014;
  950.  
  951. // MsoButtonState constants
  952. type
  953.   MsoButtonState = TOleEnum;
  954. const
  955.   msoButtonUp = $00000000;
  956.   msoButtonDown = $FFFFFFFF;
  957.   msoButtonMixed = $00000002;
  958.  
  959. // MsoControlOLEUsage constants
  960. type
  961.   MsoControlOLEUsage = TOleEnum;
  962. const
  963.   msoControlOLEUsageNeither = $00000000;
  964.   msoControlOLEUsageServer = $00000001;
  965.   msoControlOLEUsageClient = $00000002;
  966.   msoControlOLEUsageBoth = $00000003;
  967.  
  968. // MsoButtonStyle constants
  969. type
  970.   MsoButtonStyle = TOleEnum;
  971. const
  972.   msoButtonAutomatic = $00000000;
  973.   msoButtonIcon = $00000001;
  974.   msoButtonCaption = $00000002;
  975.   msoButtonIconAndCaption = $00000003;
  976.  
  977. // MsoComboStyle constants
  978. type
  979.   MsoComboStyle = TOleEnum;
  980. const
  981.   msoComboNormal = $00000000;
  982.   msoComboLabel = $00000001;
  983.  
  984. // MsoOLEMenuGroup constants
  985. type
  986.   MsoOLEMenuGroup = TOleEnum;
  987. const
  988.   msoOLEMenuGroupNone = $FFFFFFFF;
  989.   msoOLEMenuGroupFile = $00000000;
  990.   msoOLEMenuGroupEdit = $00000001;
  991.   msoOLEMenuGroupContainer = $00000002;
  992.   msoOLEMenuGroupObject = $00000003;
  993.   msoOLEMenuGroupWindow = $00000004;
  994.   msoOLEMenuGroupHelp = $00000005;
  995.  
  996. // MsoMenuAnimation constants
  997. type
  998.   MsoMenuAnimation = TOleEnum;
  999. const
  1000.   msoMenuAnimationNone = $00000000;
  1001.   msoMenuAnimationRandom = $00000001;
  1002.   msoMenuAnimationUnfold = $00000002;
  1003.   msoMenuAnimationSlide = $00000003;
  1004.  
  1005. // MsoBarRow constants
  1006. type
  1007.   MsoBarRow = TOleEnum;
  1008. const
  1009.   msoBarRowFirst = $00000000;
  1010.   msoBarRowLast = $FFFFFFFF;
  1011.  
  1012. // MsoHyperlinkType constants
  1013. type
  1014.   MsoHyperlinkType = TOleEnum;
  1015. const
  1016.   msoHyperlinkRange = $00000000;
  1017.   msoHyperlinkShape = $00000001;
  1018.   msoHyperlinkInlineShape = $00000002;
  1019.  
  1020. // MsoExtraInfoMethod constants
  1021. type
  1022.   MsoExtraInfoMethod = TOleEnum;
  1023. const
  1024.   msoMethodGet = $00000000;
  1025.   msoMethodPost = $00000001;
  1026.  
  1027. // MsoAnimationType constants
  1028. type
  1029.   MsoAnimationType = TOleEnum;
  1030. const
  1031.   msoAnimationIdle = $00000001;
  1032.   msoAnimationGreeting = $00000002;
  1033.   msoAnimationGoodbye = $00000003;
  1034.   msoAnimationBeginSpeaking = $00000004;
  1035.   msoAnimationCharacterSuccessMajor = $00000006;
  1036.   msoAnimationGetAttentionMajor = $0000000B;
  1037.   msoAnimationGetAttentionMinor = $0000000C;
  1038.   msoAnimationSearching = $0000000D;
  1039.   msoAnimationPrinting = $00000012;
  1040.   msoAnimationGestureRight = $00000013;
  1041.   msoAnimationWritingNotingSomething = $00000016;
  1042.   msoAnimationWorkingAtSomething = $00000017;
  1043.   msoAnimationThinking = $00000018;
  1044.   msoAnimationSendingMail = $00000019;
  1045.   msoAnimationListensToComputer = $0000001A;
  1046.   msoAnimationDisappear = $0000001F;
  1047.   msoAnimationAppear = $00000020;
  1048.   msoAnimationGetArtsy = $00000064;
  1049.   msoAnimationGetTechy = $00000065;
  1050.   msoAnimationGetWizardy = $00000066;
  1051.   msoAnimationCheckingSomething = $00000067;
  1052.   msoAnimationLookDown = $00000068;
  1053.   msoAnimationLookDownLeft = $00000069;
  1054.   msoAnimationLookDownRight = $0000006A;
  1055.   msoAnimationLookLeft = $0000006B;
  1056.   msoAnimationLookRight = $0000006C;
  1057.   msoAnimationLookUp = $0000006D;
  1058.   msoAnimationLookUpLeft = $0000006E;
  1059.   msoAnimationLookUpRight = $0000006F;
  1060.   msoAnimationSaving = $00000070;
  1061.   msoAnimationGestureDown = $00000071;
  1062.   msoAnimationGestureLeft = $00000072;
  1063.   msoAnimationGestureUp = $00000073;
  1064.   msoAnimationEmptyTrash = $00000074;
  1065.  
  1066. // MsoButtonSetType constants
  1067. type
  1068.   MsoButtonSetType = TOleEnum;
  1069. const
  1070.   msoButtonSetNone = $00000000;
  1071.   msoButtonSetOK = $00000001;
  1072.   msoButtonSetCancel = $00000002;
  1073.   msoButtonSetOkCancel = $00000003;
  1074.   msoButtonSetYesNo = $00000004;
  1075.   msoButtonSetYesNoCancel = $00000005;
  1076.   msoButtonSetBackClose = $00000006;
  1077.   msoButtonSetNextClose = $00000007;
  1078.   msoButtonSetBackNextClose = $00000008;
  1079.   msoButtonSetRetryCancel = $00000009;
  1080.   msoButtonSetAbortRetryIgnore = $0000000A;
  1081.   msoButtonSetSearchClose = $0000000B;
  1082.   msoButtonSetBackNextSnooze = $0000000C;
  1083.   msoButtonSetTipsOptionsClose = $0000000D;
  1084.   msoButtonSetYesAllNoCancel = $0000000E;
  1085.  
  1086. // MsoIconType constants
  1087. type
  1088.   MsoIconType = TOleEnum;
  1089. const
  1090.   msoIconNone = $00000000;
  1091.   msoIconAlert = $00000002;
  1092.   msoIconTip = $00000003;
  1093.  
  1094. // MsoBalloonType constants
  1095. type
  1096.   MsoBalloonType = TOleEnum;
  1097. const
  1098.   msoBalloonTypeButtons = $00000000;
  1099.   msoBalloonTypeBullets = $00000001;
  1100.   msoBalloonTypeNumbers = $00000002;
  1101.  
  1102. // MsoModeType constants
  1103. type
  1104.   MsoModeType = TOleEnum;
  1105. const
  1106.   msoModeModal = $00000000;
  1107.   msoModeAutoDown = $00000001;
  1108.   msoModeModeless = $00000002;
  1109.  
  1110. // MsoBalloonErrorType constants
  1111. type
  1112.   MsoBalloonErrorType = TOleEnum;
  1113. const
  1114.   msoBalloonErrorNone = $00000000;
  1115.   msoBalloonErrorOther = $00000001;
  1116.   msoBalloonErrorTooBig = $00000002;
  1117.   msoBalloonErrorOutOfMemory = $00000003;
  1118.   msoBalloonErrorBadPictureRef = $00000004;
  1119.   msoBalloonErrorBadReference = $00000005;
  1120.   msoBalloonErrorButtonlessModal = $00000006;
  1121.   msoBalloonErrorButtonModeless = $00000007;
  1122.   msoBalloonErrorBadCharacter = $00000008;
  1123.  
  1124. // MsoWizardActType constants
  1125. type
  1126.   MsoWizardActType = TOleEnum;
  1127. const
  1128.   msoWizardActInactive = $00000000;
  1129.   msoWizardActActive = $00000001;
  1130.   msoWizardActSuspend = $00000002;
  1131.   msoWizardActResume = $00000003;
  1132.  
  1133. // MsoWizardMsgType constants
  1134. type
  1135.   MsoWizardMsgType = TOleEnum;
  1136. const
  1137.   msoWizardMsgLocalStateOn = $00000001;
  1138.   msoWizardMsgLocalStateOff = $00000002;
  1139.   msoWizardMsgShowHelp = $00000003;
  1140.   msoWizardMsgSuspending = $00000004;
  1141.   msoWizardMsgResuming = $00000005;
  1142.  
  1143. // MsoBalloonButtonType constants
  1144. type
  1145.   MsoBalloonButtonType = TOleEnum;
  1146. const
  1147.   msoBalloonButtonYesToAll = $FFFFFFF1;
  1148.   msoBalloonButtonOptions = $FFFFFFF2;
  1149.   msoBalloonButtonTips = $FFFFFFF3;
  1150.   msoBalloonButtonClose = $FFFFFFF4;
  1151.   msoBalloonButtonSnooze = $FFFFFFF5;
  1152.   msoBalloonButtonSearch = $FFFFFFF6;
  1153.   msoBalloonButtonIgnore = $FFFFFFF7;
  1154.   msoBalloonButtonAbort = $FFFFFFF8;
  1155.   msoBalloonButtonRetry = $FFFFFFF9;
  1156.   msoBalloonButtonNext = $FFFFFFFA;
  1157.   msoBalloonButtonBack = $FFFFFFFB;
  1158.   msoBalloonButtonNo = $FFFFFFFC;
  1159.   msoBalloonButtonYes = $FFFFFFFD;
  1160.   msoBalloonButtonCancel = $FFFFFFFE;
  1161.   msoBalloonButtonOK = $FFFFFFFF;
  1162.   msoBalloonButtonNull = $00000000;
  1163.  
  1164. // DocProperties constants
  1165. type
  1166.   DocProperties = TOleEnum;
  1167. const
  1168.   offPropertyTypeNumber = $00000001;
  1169.   offPropertyTypeBoolean = $00000002;
  1170.   offPropertyTypeDate = $00000003;
  1171.   offPropertyTypeString = $00000004;
  1172.   offPropertyTypeFloat = $00000005;
  1173.  
  1174. // MsoDocProperties constants
  1175. type
  1176.   MsoDocProperties = TOleEnum;
  1177. const
  1178.   msoPropertyTypeNumber = $00000001;
  1179.   msoPropertyTypeBoolean = $00000002;
  1180.   msoPropertyTypeDate = $00000003;
  1181.   msoPropertyTypeString = $00000004;
  1182.   msoPropertyTypeFloat = $00000005;
  1183.  
  1184. // MsoFileFindOptions constants
  1185. type
  1186.   MsoFileFindOptions = TOleEnum;
  1187. const
  1188.   msoOptionsNew = $00000001;
  1189.   msoOptionsAdd = $00000002;
  1190.   msoOptionsWithin = $00000003;
  1191.  
  1192. // MsoFileFindView constants
  1193. type
  1194.   MsoFileFindView = TOleEnum;
  1195. const
  1196.   msoViewFileInfo = $00000001;
  1197.   msoViewPreview = $00000002;
  1198.   msoViewSummaryInfo = $00000003;
  1199.  
  1200. // MsoFileFindSortBy constants
  1201. type
  1202.   MsoFileFindSortBy = TOleEnum;
  1203. const
  1204.   msoFileFindSortbyAuthor = $00000001;
  1205.   msoFileFindSortbyDateCreated = $00000002;
  1206.   msoFileFindSortbyLastSavedBy = $00000003;
  1207.   msoFileFindSortbyDateSaved = $00000004;
  1208.   msoFileFindSortbyFileName = $00000005;
  1209.   msoFileFindSortbySize = $00000006;
  1210.   msoFileFindSortbyTitle = $00000007;
  1211.  
  1212. // MsoFileFindListBy constants
  1213. type
  1214.   MsoFileFindListBy = TOleEnum;
  1215. const
  1216.   msoListbyName = $00000001;
  1217.   msoListbyTitle = $00000002;
  1218.  
  1219. // MsoLastModified constants
  1220. type
  1221.   MsoLastModified = TOleEnum;
  1222. const
  1223.   msoLastModifiedYesterday = $00000001;
  1224.   msoLastModifiedToday = $00000002;
  1225.   msoLastModifiedLastWeek = $00000003;
  1226.   msoLastModifiedThisWeek = $00000004;
  1227.   msoLastModifiedLastMonth = $00000005;
  1228.   msoLastModifiedThisMonth = $00000006;
  1229.   msoLastModifiedAnyTime = $00000007;
  1230.  
  1231. // MsoSortBy constants
  1232. type
  1233.   MsoSortBy = TOleEnum;
  1234. const
  1235.   msoSortByFileName = $00000001;
  1236.   msoSortBySize = $00000002;
  1237.   msoSortByFileType = $00000003;
  1238.   msoSortByLastModified = $00000004;
  1239.  
  1240. // MsoSortOrder constants
  1241. type
  1242.   MsoSortOrder = TOleEnum;
  1243. const
  1244.   msoSortOrderAscending = $00000001;
  1245.   msoSortOrderDescending = $00000002;
  1246.  
  1247. // MsoConnector constants
  1248. type
  1249.   MsoConnector = TOleEnum;
  1250. const
  1251.   msoConnectorAnd = $00000001;
  1252.   msoConnectorOr = $00000002;
  1253.  
  1254. // MsoCondition constants
  1255. type
  1256.   MsoCondition = TOleEnum;
  1257. const
  1258.   msoConditionFileTypeAllFiles = $00000001;
  1259.   msoConditionFileTypeOfficeFiles = $00000002;
  1260.   msoConditionFileTypeWordDocuments = $00000003;
  1261.   msoConditionFileTypeExcelWorkbooks = $00000004;
  1262.   msoConditionFileTypePowerPointPresentations = $00000005;
  1263.   msoConditionFileTypeBinders = $00000006;
  1264.   msoConditionFileTypeDatabases = $00000007;
  1265.   msoConditionFileTypeTemplates = $00000008;
  1266.   msoConditionIncludes = $00000009;
  1267.   msoConditionIncludesPhrase = $0000000A;
  1268.   msoConditionBeginsWith = $0000000B;
  1269.   msoConditionEndsWith = $0000000C;
  1270.   msoConditionIncludesNearEachOther = $0000000D;
  1271.   msoConditionIsExactly = $0000000E;
  1272.   msoConditionIsNot = $0000000F;
  1273.   msoConditionYesterday = $00000010;
  1274.   msoConditionToday = $00000011;
  1275.   msoConditionTomorrow = $00000012;
  1276.   msoConditionLastWeek = $00000013;
  1277.   msoConditionThisWeek = $00000014;
  1278.   msoConditionNextWeek = $00000015;
  1279.   msoConditionLastMonth = $00000016;
  1280.   msoConditionThisMonth = $00000017;
  1281.   msoConditionNextMonth = $00000018;
  1282.   msoConditionAnytime = $00000019;
  1283.   msoConditionAnytimeBetween = $0000001A;
  1284.   msoConditionOn = $0000001B;
  1285.   msoConditionOnOrAfter = $0000001C;
  1286.   msoConditionOnOrBefore = $0000001D;
  1287.   msoConditionInTheNext = $0000001E;
  1288.   msoConditionInTheLast = $0000001F;
  1289.   msoConditionEquals = $00000020;
  1290.   msoConditionDoesNotEqual = $00000021;
  1291.   msoConditionAnyNumberBetween = $00000022;
  1292.   msoConditionAtMost = $00000023;
  1293.   msoConditionAtLeast = $00000024;
  1294.   msoConditionMoreThan = $00000025;
  1295.   msoConditionLessThan = $00000026;
  1296.   msoConditionIsYes = $00000027;
  1297.   msoConditionIsNo = $00000028;
  1298.  
  1299. // MsoFileType constants
  1300. type
  1301.   MsoFileType = TOleEnum;
  1302. const
  1303.   msoFileTypeAllFiles = $00000001;
  1304.   msoFileTypeOfficeFiles = $00000002;
  1305.   msoFileTypeWordDocuments = $00000003;
  1306.   msoFileTypeExcelWorkbooks = $00000004;
  1307.   msoFileTypePowerPointPresentations = $00000005;
  1308.   msoFileTypeBinders = $00000006;
  1309.   msoFileTypeDatabases = $00000007;
  1310.   msoFileTypeTemplates = $00000008;
  1311.  
  1312. type
  1313.  
  1314. // *********************************************************************//
  1315. // Forward declaration of types defined in TypeLibrary                    
  1316. // *********************************************************************//
  1317.   IAccessible = interface;
  1318.   IAccessibleDisp = dispinterface;
  1319.   _IMsoDispObj = interface;
  1320.   _IMsoDispObjDisp = dispinterface;
  1321.   _IMsoOleAccDispObj = interface;
  1322.   _IMsoOleAccDispObjDisp = dispinterface;
  1323.   CommandBars = interface;
  1324.   CommandBarsDisp = dispinterface;
  1325.   CommandBar = interface;
  1326.   CommandBarDisp = dispinterface;
  1327.   CommandBarControls = interface;
  1328.   CommandBarControlsDisp = dispinterface;
  1329.   CommandBarControl = interface;
  1330.   CommandBarControlDisp = dispinterface;
  1331.   CommandBarButton = interface;
  1332.   CommandBarButtonDisp = dispinterface;
  1333.   CommandBarPopup = interface;
  1334.   CommandBarPopupDisp = dispinterface;
  1335.   CommandBarComboBox = interface;
  1336.   CommandBarComboBoxDisp = dispinterface;
  1337.   Adjustments = interface;
  1338.   AdjustmentsDisp = dispinterface;
  1339.   CalloutFormat = interface;
  1340.   CalloutFormatDisp = dispinterface;
  1341.   ColorFormat = interface;
  1342.   ColorFormatDisp = dispinterface;
  1343.   ConnectorFormat = interface;
  1344.   ConnectorFormatDisp = dispinterface;
  1345.   FillFormat = interface;
  1346.   FillFormatDisp = dispinterface;
  1347.   FreeformBuilder = interface;
  1348.   FreeformBuilderDisp = dispinterface;
  1349.   GroupShapes = interface;
  1350.   GroupShapesDisp = dispinterface;
  1351.   LineFormat = interface;
  1352.   LineFormatDisp = dispinterface;
  1353.   ShapeNode = interface;
  1354.   ShapeNodeDisp = dispinterface;
  1355.   ShapeNodes = interface;
  1356.   ShapeNodesDisp = dispinterface;
  1357.   PictureFormat = interface;
  1358.   PictureFormatDisp = dispinterface;
  1359.   ShadowFormat = interface;
  1360.   ShadowFormatDisp = dispinterface;
  1361.   Shape = interface;
  1362.   ShapeDisp = dispinterface;
  1363.   ShapeRange = interface;
  1364.   ShapeRangeDisp = dispinterface;
  1365.   Shapes = interface;
  1366.   ShapesDisp = dispinterface;
  1367.   TextEffectFormat = interface;
  1368.   TextEffectFormatDisp = dispinterface;
  1369.   TextFrame = interface;
  1370.   TextFrameDisp = dispinterface;
  1371.   ThreeDFormat = interface;
  1372.   ThreeDFormatDisp = dispinterface;
  1373.   Assistant = interface;
  1374.   AssistantDisp = dispinterface;
  1375.   Balloon = interface;
  1376.   BalloonDisp = dispinterface;
  1377.   BalloonCheckboxes = interface;
  1378.   BalloonCheckboxesDisp = dispinterface;
  1379.   BalloonCheckbox = interface;
  1380.   BalloonCheckboxDisp = dispinterface;
  1381.   BalloonLabels = interface;
  1382.   BalloonLabelsDisp = dispinterface;
  1383.   BalloonLabel = interface;
  1384.   BalloonLabelDisp = dispinterface;
  1385.   DocumentProperty = interface;
  1386.   DocumentProperties = interface;
  1387.   IFoundFiles = interface;
  1388.   IFoundFilesDisp = dispinterface;
  1389.   IFind = interface;
  1390.   IFindDisp = dispinterface;
  1391.   FoundFiles = interface;
  1392.   FoundFilesDisp = dispinterface;
  1393.   PropertyTest = interface;
  1394.   PropertyTestDisp = dispinterface;
  1395.   PropertyTests = interface;
  1396.   PropertyTestsDisp = dispinterface;
  1397.   FileSearch = interface;
  1398.   FileSearchDisp = dispinterface;
  1399.  
  1400. // *********************************************************************//
  1401. // Declaration of structures, unions and aliases.                         
  1402. // *********************************************************************//
  1403.  
  1404.   MsoRGBType = Integer; 
  1405.  
  1406. // *********************************************************************//
  1407. // Interface: IAccessible
  1408. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1409. // GUID:      {618736E0-3C3D-11CF-810C-00AA00389B71}
  1410. // *********************************************************************//
  1411.   IAccessible = interface(IDispatch)
  1412.     ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
  1413.     function  Get_accParent: IDispatch; safecall;
  1414.     function  Get_accChildCount: Integer; safecall;
  1415.     function  Get_accChild(varChild: OleVariant): IDispatch; safecall;
  1416.     function  Get_accName(varChild: OleVariant): WideString; safecall;
  1417.     function  Get_accValue(varChild: OleVariant): WideString; safecall;
  1418.     function  Get_accDescription(varChild: OleVariant): WideString; safecall;
  1419.     function  Get_accRole(varChild: OleVariant): OleVariant; safecall;
  1420.     function  Get_accState(varChild: OleVariant): OleVariant; safecall;
  1421.     function  Get_accHelp(varChild: OleVariant): WideString; safecall;
  1422.     function  Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
  1423.     function  Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
  1424.     function  Get_accFocus: OleVariant; safecall;
  1425.     function  Get_accSelection: OleVariant; safecall;
  1426.     function  Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
  1427.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
  1428.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1429.                           out pcyHeight: Integer; varChild: OleVariant); safecall;
  1430.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
  1431.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
  1432.     procedure accDoDefaultAction(varChild: OleVariant); safecall;
  1433.     procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
  1434.     procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
  1435.     property accParent: IDispatch read Get_accParent;
  1436.     property accChildCount: Integer read Get_accChildCount;
  1437.     property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
  1438.     property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
  1439.     property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
  1440.     property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
  1441.     property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
  1442.     property accState[varChild: OleVariant]: OleVariant read Get_accState;
  1443.     property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
  1444.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
  1445.     property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
  1446.     property accFocus: OleVariant read Get_accFocus;
  1447.     property accSelection: OleVariant read Get_accSelection;
  1448.     property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
  1449.   end;
  1450.  
  1451. // *********************************************************************//
  1452. // DispIntf:  IAccessibleDisp
  1453. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1454. // GUID:      {618736E0-3C3D-11CF-810C-00AA00389B71}
  1455. // *********************************************************************//
  1456.   IAccessibleDisp = dispinterface
  1457.     ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
  1458.     property accParent: IDispatch readonly dispid -5000;
  1459.     property accChildCount: Integer readonly dispid -5001;
  1460.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1461.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1462.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  1463.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  1464.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  1465.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  1466.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  1467.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  1468.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  1469.     property accFocus: OleVariant readonly dispid -5011;
  1470.     property accSelection: OleVariant readonly dispid -5012;
  1471.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  1472.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  1473.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1474.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  1475.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  1476.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  1477.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  1478.   end;
  1479.  
  1480. // *********************************************************************//
  1481. // Interface: _IMsoDispObj
  1482. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1483. // GUID:      {000C0300-0000-0000-C000-000000000046}
  1484. // *********************************************************************//
  1485.   _IMsoDispObj = interface(IDispatch)
  1486.     ['{000C0300-0000-0000-C000-000000000046}']
  1487.     function  Get_Application: IDispatch; safecall;
  1488.     function  Get_Creator: Integer; safecall;
  1489.     property Application: IDispatch read Get_Application;
  1490.     property Creator: Integer read Get_Creator;
  1491.   end;
  1492.  
  1493. // *********************************************************************//
  1494. // DispIntf:  _IMsoDispObjDisp
  1495. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1496. // GUID:      {000C0300-0000-0000-C000-000000000046}
  1497. // *********************************************************************//
  1498.   _IMsoDispObjDisp = dispinterface
  1499.     ['{000C0300-0000-0000-C000-000000000046}']
  1500.     property Application: IDispatch readonly dispid 1610743808;
  1501.     property Creator: Integer readonly dispid 1610743809;
  1502.   end;
  1503.  
  1504. // *********************************************************************//
  1505. // Interface: _IMsoOleAccDispObj
  1506. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1507. // GUID:      {000C0301-0000-0000-C000-000000000046}
  1508. // *********************************************************************//
  1509.   _IMsoOleAccDispObj = interface(IAccessible)
  1510.     ['{000C0301-0000-0000-C000-000000000046}']
  1511.     function  Get_Application: IDispatch; safecall;
  1512.     function  Get_Creator: Integer; safecall;
  1513.     property Application: IDispatch read Get_Application;
  1514.     property Creator: Integer read Get_Creator;
  1515.   end;
  1516.  
  1517. // *********************************************************************//
  1518. // DispIntf:  _IMsoOleAccDispObjDisp
  1519. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1520. // GUID:      {000C0301-0000-0000-C000-000000000046}
  1521. // *********************************************************************//
  1522.   _IMsoOleAccDispObjDisp = dispinterface
  1523.     ['{000C0301-0000-0000-C000-000000000046}']
  1524.     property Application: IDispatch readonly dispid 1610809344;
  1525.     property Creator: Integer readonly dispid 1610809345;
  1526.     property accParent: IDispatch readonly dispid -5000;
  1527.     property accChildCount: Integer readonly dispid -5001;
  1528.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1529.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1530.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  1531.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  1532.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  1533.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  1534.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  1535.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  1536.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  1537.     property accFocus: OleVariant readonly dispid -5011;
  1538.     property accSelection: OleVariant readonly dispid -5012;
  1539.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  1540.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  1541.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1542.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  1543.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  1544.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  1545.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  1546.   end;
  1547.  
  1548. // *********************************************************************//
  1549. // Interface: CommandBars
  1550. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1551. // GUID:      {000C0302-0000-0000-C000-000000000046}
  1552. // *********************************************************************//
  1553.   CommandBars = interface(_IMsoDispObj)
  1554.     ['{000C0302-0000-0000-C000-000000000046}']
  1555.     function  Get_ActionControl: CommandBarControl; safecall;
  1556.     function  Get_ActiveMenuBar: CommandBar; safecall;
  1557.     function  Add(Name: OleVariant; Position: OleVariant; MenuBar: OleVariant; Temporary: OleVariant): CommandBar; safecall;
  1558.     function  Get_Count: SYSINT; safecall;
  1559.     function  Get_DisplayTooltips: WordBool; safecall;
  1560.     procedure Set_DisplayTooltips(pvarfDisplayTooltips: WordBool); safecall;
  1561.     function  Get_DisplayKeysInTooltips: WordBool; safecall;
  1562.     procedure Set_DisplayKeysInTooltips(pvarfDisplayKeys: WordBool); safecall;
  1563.     function  FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControl; safecall;
  1564.     function  Get_Item(Index: OleVariant): CommandBar; safecall;
  1565.     function  Get_LargeButtons: WordBool; safecall;
  1566.     procedure Set_LargeButtons(pvarfLargeButtons: WordBool); safecall;
  1567.     function  Get_MenuAnimationStyle: MsoMenuAnimation; safecall;
  1568.     procedure Set_MenuAnimationStyle(pma: MsoMenuAnimation); safecall;
  1569.     function  Get__NewEnum: IUnknown; safecall;
  1570.     function  Get_Parent: IDispatch; safecall;
  1571.     procedure ReleaseFocus; safecall;
  1572.     property ActionControl: CommandBarControl read Get_ActionControl;
  1573.     property ActiveMenuBar: CommandBar read Get_ActiveMenuBar;
  1574.     property Count: SYSINT read Get_Count;
  1575.     property DisplayTooltips: WordBool read Get_DisplayTooltips write Set_DisplayTooltips;
  1576.     property DisplayKeysInTooltips: WordBool read Get_DisplayKeysInTooltips write Set_DisplayKeysInTooltips;
  1577.     property Item[Index: OleVariant]: CommandBar read Get_Item; default;
  1578.     property LargeButtons: WordBool read Get_LargeButtons write Set_LargeButtons;
  1579.     property MenuAnimationStyle: MsoMenuAnimation read Get_MenuAnimationStyle write Set_MenuAnimationStyle;
  1580.     property _NewEnum: IUnknown read Get__NewEnum;
  1581.     property Parent: IDispatch read Get_Parent;
  1582.   end;
  1583.  
  1584. // *********************************************************************//
  1585. // DispIntf:  CommandBarsDisp
  1586. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1587. // GUID:      {000C0302-0000-0000-C000-000000000046}
  1588. // *********************************************************************//
  1589.   CommandBarsDisp = dispinterface
  1590.     ['{000C0302-0000-0000-C000-000000000046}']
  1591.     property ActionControl: CommandBarControl readonly dispid 1610809344;
  1592.     property ActiveMenuBar: CommandBar readonly dispid 1610809345;
  1593.     function  Add(Name: OleVariant; Position: OleVariant; MenuBar: OleVariant; Temporary: OleVariant): CommandBar; dispid 1610809346;
  1594.     property Count: SYSINT readonly dispid 1610809347;
  1595.     property DisplayTooltips: WordBool dispid 1610809348;
  1596.     property DisplayKeysInTooltips: WordBool dispid 1610809350;
  1597.     function  FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControl; dispid 1610809352;
  1598.     property Item[Index: OleVariant]: CommandBar readonly dispid 0; default;
  1599.     property LargeButtons: WordBool dispid 1610809354;
  1600.     property MenuAnimationStyle: MsoMenuAnimation dispid 1610809356;
  1601.     property _NewEnum: IUnknown readonly dispid -4;
  1602.     property Parent: IDispatch readonly dispid 1610809359;
  1603.     procedure ReleaseFocus; dispid 1610809360;
  1604.     property Application: IDispatch readonly dispid 1610743808;
  1605.     property Creator: Integer readonly dispid 1610743809;
  1606.   end;
  1607.  
  1608. // *********************************************************************//
  1609. // Interface: CommandBar
  1610. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1611. // GUID:      {000C0304-0000-0000-C000-000000000046}
  1612. // *********************************************************************//
  1613.   CommandBar = interface(_IMsoOleAccDispObj)
  1614.     ['{000C0304-0000-0000-C000-000000000046}']
  1615.     function  Get_BuiltIn: WordBool; safecall;
  1616.     function  Get_Context: WideString; safecall;
  1617.     procedure Set_Context(const pbstrContext: WideString); safecall;
  1618.     function  Get_Controls: CommandBarControls; safecall;
  1619.     procedure Delete; safecall;
  1620.     function  Get_Enabled: WordBool; safecall;
  1621.     procedure Set_Enabled(pvarfEnabled: WordBool); safecall;
  1622.     function  FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant; 
  1623.                           Recursive: OleVariant): CommandBarControl; safecall;
  1624.     function  Get_Height: SYSINT; safecall;
  1625.     procedure Set_Height(pdy: SYSINT); safecall;
  1626.     function  Get_Index: SYSINT; safecall;
  1627.     function  Get_InstanceId: Integer; safecall;
  1628.     function  Get_Left: SYSINT; safecall;
  1629.     procedure Set_Left(pxpLeft: SYSINT); safecall;
  1630.     function  Get_Name: WideString; safecall;
  1631.     procedure Set_Name(const pbstrName: WideString); safecall;
  1632.     function  Get_NameLocal: WideString; safecall;
  1633.     procedure Set_NameLocal(const pbstrNameLocal: WideString); safecall;
  1634.     function  Get_Parent: IDispatch; safecall;
  1635.     function  Get_Position: MsoBarPosition; safecall;
  1636.     procedure Set_Position(ppos: MsoBarPosition); safecall;
  1637.     function  Get_RowIndex: SYSINT; safecall;
  1638.     procedure Set_RowIndex(piRow: SYSINT); safecall;
  1639.     function  Get_Protection: MsoBarProtection; safecall;
  1640.     procedure Set_Protection(pprot: MsoBarProtection); safecall;
  1641.     procedure Reset; safecall;
  1642.     procedure ShowPopup(x: OleVariant; y: OleVariant); safecall;
  1643.     function  Get_Top: SYSINT; safecall;
  1644.     procedure Set_Top(pypTop: SYSINT); safecall;
  1645.     function  Get_Type_: MsoBarType; safecall;
  1646.     function  Get_Visible: WordBool; safecall;
  1647.     procedure Set_Visible(pvarfVisible: WordBool); safecall;
  1648.     function  Get_Width: SYSINT; safecall;
  1649.     procedure Set_Width(pdx: SYSINT); safecall;
  1650.     property BuiltIn: WordBool read Get_BuiltIn;
  1651.     property Context: WideString read Get_Context write Set_Context;
  1652.     property Controls: CommandBarControls read Get_Controls;
  1653.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1654.     property Height: SYSINT read Get_Height write Set_Height;
  1655.     property Index: SYSINT read Get_Index;
  1656.     property InstanceId: Integer read Get_InstanceId;
  1657.     property Left: SYSINT read Get_Left write Set_Left;
  1658.     property Name: WideString read Get_Name write Set_Name;
  1659.     property NameLocal: WideString read Get_NameLocal write Set_NameLocal;
  1660.     property Parent: IDispatch read Get_Parent;
  1661.     property Position: MsoBarPosition read Get_Position write Set_Position;
  1662.     property RowIndex: SYSINT read Get_RowIndex write Set_RowIndex;
  1663.     property Protection: MsoBarProtection read Get_Protection write Set_Protection;
  1664.     property Top: SYSINT read Get_Top write Set_Top;
  1665.     property Type_: MsoBarType read Get_Type_;
  1666.     property Visible: WordBool read Get_Visible write Set_Visible;
  1667.     property Width: SYSINT read Get_Width write Set_Width;
  1668.   end;
  1669.  
  1670. // *********************************************************************//
  1671. // DispIntf:  CommandBarDisp
  1672. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1673. // GUID:      {000C0304-0000-0000-C000-000000000046}
  1674. // *********************************************************************//
  1675.   CommandBarDisp = dispinterface
  1676.     ['{000C0304-0000-0000-C000-000000000046}']
  1677.     property BuiltIn: WordBool readonly dispid 1610874880;
  1678.     property Context: WideString dispid 1610874881;
  1679.     property Controls: CommandBarControls readonly dispid 1610874883;
  1680.     procedure Delete; dispid 1610874884;
  1681.     property Enabled: WordBool dispid 1610874885;
  1682.     function  FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant; 
  1683.                           Recursive: OleVariant): CommandBarControl; dispid 1610874887;
  1684.     property Height: SYSINT dispid 1610874888;
  1685.     property Index: SYSINT readonly dispid 1610874890;
  1686.     property InstanceId: Integer readonly dispid 1610874891;
  1687.     property Left: SYSINT dispid 1610874892;
  1688.     property Name: WideString dispid 1610874894;
  1689.     property NameLocal: WideString dispid 1610874896;
  1690.     property Parent: IDispatch readonly dispid 1610874898;
  1691.     property Position: MsoBarPosition dispid 1610874899;
  1692.     property RowIndex: SYSINT dispid 1610874901;
  1693.     property Protection: MsoBarProtection dispid 1610874903;
  1694.     procedure Reset; dispid 1610874905;
  1695.     procedure ShowPopup(x: OleVariant; y: OleVariant); dispid 1610874906;
  1696.     property Top: SYSINT dispid 1610874907;
  1697.     property Type_: MsoBarType readonly dispid 1610874909;
  1698.     property Visible: WordBool dispid 1610874910;
  1699.     property Width: SYSINT dispid 1610874912;
  1700.     property Application: IDispatch readonly dispid 1610809344;
  1701.     property Creator: Integer readonly dispid 1610809345;
  1702.     property accParent: IDispatch readonly dispid -5000;
  1703.     property accChildCount: Integer readonly dispid -5001;
  1704.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1705.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1706.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  1707.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  1708.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  1709.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  1710.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  1711.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  1712.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  1713.     property accFocus: OleVariant readonly dispid -5011;
  1714.     property accSelection: OleVariant readonly dispid -5012;
  1715.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  1716.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  1717.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1718.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  1719.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  1720.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  1721.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  1722.   end;
  1723.  
  1724. // *********************************************************************//
  1725. // Interface: CommandBarControls
  1726. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1727. // GUID:      {000C0306-0000-0000-C000-000000000046}
  1728. // *********************************************************************//
  1729.   CommandBarControls = interface(_IMsoDispObj)
  1730.     ['{000C0306-0000-0000-C000-000000000046}']
  1731.     function  Add(Type_: OleVariant; Id: OleVariant; Parameter: OleVariant; Before: OleVariant; 
  1732.                   Temporary: OleVariant): CommandBarControl; safecall;
  1733.     function  Get_Count: SYSINT; safecall;
  1734.     function  Get_Item(Index: OleVariant): CommandBarControl; safecall;
  1735.     function  Get__NewEnum: IUnknown; safecall;
  1736.     function  Get_Parent: CommandBar; safecall;
  1737.     property Count: SYSINT read Get_Count;
  1738.     property Item[Index: OleVariant]: CommandBarControl read Get_Item; default;
  1739.     property _NewEnum: IUnknown read Get__NewEnum;
  1740.     property Parent: CommandBar read Get_Parent;
  1741.   end;
  1742.  
  1743. // *********************************************************************//
  1744. // DispIntf:  CommandBarControlsDisp
  1745. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1746. // GUID:      {000C0306-0000-0000-C000-000000000046}
  1747. // *********************************************************************//
  1748.   CommandBarControlsDisp = dispinterface
  1749.     ['{000C0306-0000-0000-C000-000000000046}']
  1750.     function  Add(Type_: OleVariant; Id: OleVariant; Parameter: OleVariant; Before: OleVariant; 
  1751.                   Temporary: OleVariant): CommandBarControl; dispid 1610809344;
  1752.     property Count: SYSINT readonly dispid 1610809345;
  1753.     property Item[Index: OleVariant]: CommandBarControl readonly dispid 0; default;
  1754.     property _NewEnum: IUnknown readonly dispid -4;
  1755.     property Parent: CommandBar readonly dispid 1610809348;
  1756.     property Application: IDispatch readonly dispid 1610743808;
  1757.     property Creator: Integer readonly dispid 1610743809;
  1758.   end;
  1759.  
  1760. // *********************************************************************//
  1761. // Interface: CommandBarControl
  1762. // Flags:     (4416) Dual OleAutomation Dispatchable
  1763. // GUID:      {000C0308-0000-0000-C000-000000000046}
  1764. // *********************************************************************//
  1765.   CommandBarControl = interface(_IMsoOleAccDispObj)
  1766.     ['{000C0308-0000-0000-C000-000000000046}']
  1767.     function  Get_BeginGroup: WordBool; safecall;
  1768.     procedure Set_BeginGroup(pvarfBeginGroup: WordBool); safecall;
  1769.     function  Get_BuiltIn: WordBool; safecall;
  1770.     function  Get_Caption: WideString; safecall;
  1771.     procedure Set_Caption(const pbstrCaption: WideString); safecall;
  1772.     function  Get_Control: IDispatch; safecall;
  1773.     function  Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; safecall;
  1774.     procedure Delete(Temporary: OleVariant); safecall;
  1775.     function  Get_DescriptionText: WideString; safecall;
  1776.     procedure Set_DescriptionText(const pbstrText: WideString); safecall;
  1777.     function  Get_Enabled: WordBool; safecall;
  1778.     procedure Set_Enabled(pvarfEnabled: WordBool); safecall;
  1779.     procedure Execute; safecall;
  1780.     function  Get_Height: SYSINT; safecall;
  1781.     procedure Set_Height(pdy: SYSINT); safecall;
  1782.     function  Get_HelpContextId: SYSINT; safecall;
  1783.     procedure Set_HelpContextId(pid: SYSINT); safecall;
  1784.     function  Get_HelpFile: WideString; safecall;
  1785.     procedure Set_HelpFile(const pbstrFilename: WideString); safecall;
  1786.     function  Get_Id: SYSINT; safecall;
  1787.     function  Get_Index: SYSINT; safecall;
  1788.     function  Get_InstanceId: Integer; safecall;
  1789.     function  Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; safecall;
  1790.     function  Get_Left: SYSINT; safecall;
  1791.     function  Get_OLEUsage: MsoControlOLEUsage; safecall;
  1792.     procedure Set_OLEUsage(pcou: MsoControlOLEUsage); safecall;
  1793.     function  Get_OnAction: WideString; safecall;
  1794.     procedure Set_OnAction(const pbstrOnAction: WideString); safecall;
  1795.     function  Get_Parent: CommandBar; safecall;
  1796.     function  Get_Parameter: WideString; safecall;
  1797.     procedure Set_Parameter(const pbstrParam: WideString); safecall;
  1798.     function  Get_Priority: SYSINT; safecall;
  1799.     procedure Set_Priority(pnPri: SYSINT); safecall;
  1800.     procedure Reset; safecall;
  1801.     procedure SetFocus; safecall;
  1802.     function  Get_Tag: WideString; safecall;
  1803.     procedure Set_Tag(const pbstrTag: WideString); safecall;
  1804.     function  Get_TooltipText: WideString; safecall;
  1805.     procedure Set_TooltipText(const pbstrTooltip: WideString); safecall;
  1806.     function  Get_Top: SYSINT; safecall;
  1807.     function  Get_Type_: MsoControlType; safecall;
  1808.     function  Get_Visible: WordBool; safecall;
  1809.     procedure Set_Visible(pvarfVisible: WordBool); safecall;
  1810.     function  Get_Width: SYSINT; safecall;
  1811.     procedure Set_Width(pdx: SYSINT); safecall;
  1812.     procedure Reserved1; safecall;
  1813.     procedure Reserved2; safecall;
  1814.     procedure Reserved3; safecall;
  1815.     procedure Reserved4; safecall;
  1816.     procedure Reserved5; safecall;
  1817.     procedure Reserved6; safecall;
  1818.     procedure Reserved7; safecall;
  1819.     procedure Reserved8; safecall;
  1820.     property BeginGroup: WordBool read Get_BeginGroup write Set_BeginGroup;
  1821.     property BuiltIn: WordBool read Get_BuiltIn;
  1822.     property Caption: WideString read Get_Caption write Set_Caption;
  1823.     property Control: IDispatch read Get_Control;
  1824.     property DescriptionText: WideString read Get_DescriptionText write Set_DescriptionText;
  1825.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1826.     property Height: SYSINT read Get_Height write Set_Height;
  1827.     property HelpContextId: SYSINT read Get_HelpContextId write Set_HelpContextId;
  1828.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  1829.     property Id: SYSINT read Get_Id;
  1830.     property Index: SYSINT read Get_Index;
  1831.     property InstanceId: Integer read Get_InstanceId;
  1832.     property Left: SYSINT read Get_Left;
  1833.     property OLEUsage: MsoControlOLEUsage read Get_OLEUsage write Set_OLEUsage;
  1834.     property OnAction: WideString read Get_OnAction write Set_OnAction;
  1835.     property Parent: CommandBar read Get_Parent;
  1836.     property Parameter: WideString read Get_Parameter write Set_Parameter;
  1837.     property Priority: SYSINT read Get_Priority write Set_Priority;
  1838.     property Tag: WideString read Get_Tag write Set_Tag;
  1839.     property TooltipText: WideString read Get_TooltipText write Set_TooltipText;
  1840.     property Top: SYSINT read Get_Top;
  1841.     property Type_: MsoControlType read Get_Type_;
  1842.     property Visible: WordBool read Get_Visible write Set_Visible;
  1843.     property Width: SYSINT read Get_Width write Set_Width;
  1844.   end;
  1845.  
  1846. // *********************************************************************//
  1847. // DispIntf:  CommandBarControlDisp
  1848. // Flags:     (4416) Dual OleAutomation Dispatchable
  1849. // GUID:      {000C0308-0000-0000-C000-000000000046}
  1850. // *********************************************************************//
  1851.   CommandBarControlDisp = dispinterface
  1852.     ['{000C0308-0000-0000-C000-000000000046}']
  1853.     property BeginGroup: WordBool dispid 1610874880;
  1854.     property BuiltIn: WordBool readonly dispid 1610874882;
  1855.     property Caption: WideString dispid 1610874883;
  1856.     property Control: IDispatch readonly dispid 1610874885;
  1857.     function  Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  1858.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  1859.     property DescriptionText: WideString dispid 1610874888;
  1860.     property Enabled: WordBool dispid 1610874890;
  1861.     procedure Execute; dispid 1610874892;
  1862.     property Height: SYSINT dispid 1610874893;
  1863.     property HelpContextId: SYSINT dispid 1610874895;
  1864.     property HelpFile: WideString dispid 1610874897;
  1865.     property Id: SYSINT readonly dispid 1610874899;
  1866.     property Index: SYSINT readonly dispid 1610874900;
  1867.     property InstanceId: Integer readonly dispid 1610874901;
  1868.     function  Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  1869.     property Left: SYSINT readonly dispid 1610874903;
  1870.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  1871.     property OnAction: WideString dispid 1610874906;
  1872.     property Parent: CommandBar readonly dispid 1610874908;
  1873.     property Parameter: WideString dispid 1610874909;
  1874.     property Priority: SYSINT dispid 1610874911;
  1875.     procedure Reset; dispid 1610874913;
  1876.     procedure SetFocus; dispid 1610874914;
  1877.     property Tag: WideString dispid 1610874915;
  1878.     property TooltipText: WideString dispid 1610874917;
  1879.     property Top: SYSINT readonly dispid 1610874919;
  1880.     property Type_: MsoControlType readonly dispid 1610874920;
  1881.     property Visible: WordBool dispid 1610874921;
  1882.     property Width: SYSINT dispid 1610874923;
  1883.     procedure Reserved1; dispid 1610874925;
  1884.     procedure Reserved2; dispid 1610874926;
  1885.     procedure Reserved3; dispid 1610874927;
  1886.     procedure Reserved4; dispid 1610874928;
  1887.     procedure Reserved5; dispid 1610874929;
  1888.     procedure Reserved6; dispid 1610874930;
  1889.     procedure Reserved7; dispid 1610874931;
  1890.     procedure Reserved8; dispid 1610874932;
  1891.     property Application: IDispatch readonly dispid 1610809344;
  1892.     property Creator: Integer readonly dispid 1610809345;
  1893.     property accParent: IDispatch readonly dispid -5000;
  1894.     property accChildCount: Integer readonly dispid -5001;
  1895.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1896.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1897.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  1898.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  1899.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  1900.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  1901.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  1902.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  1903.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  1904.     property accFocus: OleVariant readonly dispid -5011;
  1905.     property accSelection: OleVariant readonly dispid -5012;
  1906.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  1907.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  1908.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1909.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  1910.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  1911.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  1912.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  1913.   end;
  1914.  
  1915. // *********************************************************************//
  1916. // Interface: CommandBarButton
  1917. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1918. // GUID:      {000C030E-0000-0000-C000-000000000046}
  1919. // *********************************************************************//
  1920.   CommandBarButton = interface(CommandBarControl)
  1921.     ['{000C030E-0000-0000-C000-000000000046}']
  1922.     function  Get_BuiltInFace: WordBool; safecall;
  1923.     procedure Set_BuiltInFace(pvarfBuiltIn: WordBool); safecall;
  1924.     procedure CopyFace; safecall;
  1925.     function  Get_FaceId: SYSINT; safecall;
  1926.     procedure Set_FaceId(pid: SYSINT); safecall;
  1927.     procedure PasteFace; safecall;
  1928.     function  Get_ShortcutText: WideString; safecall;
  1929.     procedure Set_ShortcutText(const pbstrText: WideString); safecall;
  1930.     function  Get_State: MsoButtonState; safecall;
  1931.     procedure Set_State(pstate: MsoButtonState); safecall;
  1932.     function  Get_Style: MsoButtonStyle; safecall;
  1933.     procedure Set_Style(pstyle: MsoButtonStyle); safecall;
  1934.     property BuiltInFace: WordBool read Get_BuiltInFace write Set_BuiltInFace;
  1935.     property FaceId: SYSINT read Get_FaceId write Set_FaceId;
  1936.     property ShortcutText: WideString read Get_ShortcutText write Set_ShortcutText;
  1937.     property State: MsoButtonState read Get_State write Set_State;
  1938.     property Style: MsoButtonStyle read Get_Style write Set_Style;
  1939.   end;
  1940.  
  1941. // *********************************************************************//
  1942. // DispIntf:  CommandBarButtonDisp
  1943. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1944. // GUID:      {000C030E-0000-0000-C000-000000000046}
  1945. // *********************************************************************//
  1946.   CommandBarButtonDisp = dispinterface
  1947.     ['{000C030E-0000-0000-C000-000000000046}']
  1948.     property BuiltInFace: WordBool dispid 1610940416;
  1949.     procedure CopyFace; dispid 1610940418;
  1950.     property FaceId: SYSINT dispid 1610940419;
  1951.     procedure PasteFace; dispid 1610940421;
  1952.     property ShortcutText: WideString dispid 1610940422;
  1953.     property State: MsoButtonState dispid 1610940424;
  1954.     property Style: MsoButtonStyle dispid 1610940426;
  1955.     property BeginGroup: WordBool dispid 1610874880;
  1956.     property BuiltIn: WordBool readonly dispid 1610874882;
  1957.     property Caption: WideString dispid 1610874883;
  1958.     property Control: IDispatch readonly dispid 1610874885;
  1959.     function  Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  1960.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  1961.     property DescriptionText: WideString dispid 1610874888;
  1962.     property Enabled: WordBool dispid 1610874890;
  1963.     procedure Execute; dispid 1610874892;
  1964.     property Height: SYSINT dispid 1610874893;
  1965.     property HelpContextId: SYSINT dispid 1610874895;
  1966.     property HelpFile: WideString dispid 1610874897;
  1967.     property Id: SYSINT readonly dispid 1610874899;
  1968.     property Index: SYSINT readonly dispid 1610874900;
  1969.     property InstanceId: Integer readonly dispid 1610874901;
  1970.     function  Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  1971.     property Left: SYSINT readonly dispid 1610874903;
  1972.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  1973.     property OnAction: WideString dispid 1610874906;
  1974.     property Parent: CommandBar readonly dispid 1610874908;
  1975.     property Parameter: WideString dispid 1610874909;
  1976.     property Priority: SYSINT dispid 1610874911;
  1977.     procedure Reset; dispid 1610874913;
  1978.     procedure SetFocus; dispid 1610874914;
  1979.     property Tag: WideString dispid 1610874915;
  1980.     property TooltipText: WideString dispid 1610874917;
  1981.     property Top: SYSINT readonly dispid 1610874919;
  1982.     property Type_: MsoControlType readonly dispid 1610874920;
  1983.     property Visible: WordBool dispid 1610874921;
  1984.     property Width: SYSINT dispid 1610874923;
  1985.     procedure Reserved1; dispid 1610874925;
  1986.     procedure Reserved2; dispid 1610874926;
  1987.     procedure Reserved3; dispid 1610874927;
  1988.     procedure Reserved4; dispid 1610874928;
  1989.     procedure Reserved5; dispid 1610874929;
  1990.     procedure Reserved6; dispid 1610874930;
  1991.     procedure Reserved7; dispid 1610874931;
  1992.     procedure Reserved8; dispid 1610874932;
  1993.     property Application: IDispatch readonly dispid 1610809344;
  1994.     property Creator: Integer readonly dispid 1610809345;
  1995.     property accParent: IDispatch readonly dispid -5000;
  1996.     property accChildCount: Integer readonly dispid -5001;
  1997.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1998.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1999.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2000.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2001.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2002.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2003.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2004.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2005.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2006.     property accFocus: OleVariant readonly dispid -5011;
  2007.     property accSelection: OleVariant readonly dispid -5012;
  2008.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2009.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2010.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2011.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2012.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2013.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2014.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2015.   end;
  2016.  
  2017. // *********************************************************************//
  2018. // Interface: CommandBarPopup
  2019. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2020. // GUID:      {000C030A-0000-0000-C000-000000000046}
  2021. // *********************************************************************//
  2022.   CommandBarPopup = interface(CommandBarControl)
  2023.     ['{000C030A-0000-0000-C000-000000000046}']
  2024.     function  Get_CommandBar: CommandBar; safecall;
  2025.     function  Get_Controls: CommandBarControls; safecall;
  2026.     function  Get_OLEMenuGroup: MsoOLEMenuGroup; safecall;
  2027.     procedure Set_OLEMenuGroup(pomg: MsoOLEMenuGroup); safecall;
  2028.     property CommandBar: CommandBar read Get_CommandBar;
  2029.     property Controls: CommandBarControls read Get_Controls;
  2030.     property OLEMenuGroup: MsoOLEMenuGroup read Get_OLEMenuGroup write Set_OLEMenuGroup;
  2031.   end;
  2032.  
  2033. // *********************************************************************//
  2034. // DispIntf:  CommandBarPopupDisp
  2035. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2036. // GUID:      {000C030A-0000-0000-C000-000000000046}
  2037. // *********************************************************************//
  2038.   CommandBarPopupDisp = dispinterface
  2039.     ['{000C030A-0000-0000-C000-000000000046}']
  2040.     property CommandBar: CommandBar readonly dispid 1610940416;
  2041.     property Controls: CommandBarControls readonly dispid 1610940417;
  2042.     property OLEMenuGroup: MsoOLEMenuGroup dispid 1610940418;
  2043.     property BeginGroup: WordBool dispid 1610874880;
  2044.     property BuiltIn: WordBool readonly dispid 1610874882;
  2045.     property Caption: WideString dispid 1610874883;
  2046.     property Control: IDispatch readonly dispid 1610874885;
  2047.     function  Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2048.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2049.     property DescriptionText: WideString dispid 1610874888;
  2050.     property Enabled: WordBool dispid 1610874890;
  2051.     procedure Execute; dispid 1610874892;
  2052.     property Height: SYSINT dispid 1610874893;
  2053.     property HelpContextId: SYSINT dispid 1610874895;
  2054.     property HelpFile: WideString dispid 1610874897;
  2055.     property Id: SYSINT readonly dispid 1610874899;
  2056.     property Index: SYSINT readonly dispid 1610874900;
  2057.     property InstanceId: Integer readonly dispid 1610874901;
  2058.     function  Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2059.     property Left: SYSINT readonly dispid 1610874903;
  2060.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2061.     property OnAction: WideString dispid 1610874906;
  2062.     property Parent: CommandBar readonly dispid 1610874908;
  2063.     property Parameter: WideString dispid 1610874909;
  2064.     property Priority: SYSINT dispid 1610874911;
  2065.     procedure Reset; dispid 1610874913;
  2066.     procedure SetFocus; dispid 1610874914;
  2067.     property Tag: WideString dispid 1610874915;
  2068.     property TooltipText: WideString dispid 1610874917;
  2069.     property Top: SYSINT readonly dispid 1610874919;
  2070.     property Type_: MsoControlType readonly dispid 1610874920;
  2071.     property Visible: WordBool dispid 1610874921;
  2072.     property Width: SYSINT dispid 1610874923;
  2073.     procedure Reserved1; dispid 1610874925;
  2074.     procedure Reserved2; dispid 1610874926;
  2075.     procedure Reserved3; dispid 1610874927;
  2076.     procedure Reserved4; dispid 1610874928;
  2077.     procedure Reserved5; dispid 1610874929;
  2078.     procedure Reserved6; dispid 1610874930;
  2079.     procedure Reserved7; dispid 1610874931;
  2080.     procedure Reserved8; dispid 1610874932;
  2081.     property Application: IDispatch readonly dispid 1610809344;
  2082.     property Creator: Integer readonly dispid 1610809345;
  2083.     property accParent: IDispatch readonly dispid -5000;
  2084.     property accChildCount: Integer readonly dispid -5001;
  2085.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2086.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2087.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2088.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2089.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2090.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2091.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2092.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2093.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2094.     property accFocus: OleVariant readonly dispid -5011;
  2095.     property accSelection: OleVariant readonly dispid -5012;
  2096.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2097.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2098.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2099.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2100.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2101.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2102.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2103.   end;
  2104.  
  2105. // *********************************************************************//
  2106. // Interface: CommandBarComboBox
  2107. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2108. // GUID:      {000C030C-0000-0000-C000-000000000046}
  2109. // *********************************************************************//
  2110.   CommandBarComboBox = interface(CommandBarControl)
  2111.     ['{000C030C-0000-0000-C000-000000000046}']
  2112.     procedure AddItem(const Text: WideString; Index: OleVariant); safecall;
  2113.     procedure Clear; safecall;
  2114.     function  Get_DropDownLines: SYSINT; safecall;
  2115.     procedure Set_DropDownLines(pcLines: SYSINT); safecall;
  2116.     function  Get_DropDownWidth: SYSINT; safecall;
  2117.     procedure Set_DropDownWidth(pdx: SYSINT); safecall;
  2118.     function  Get_List(Index: SYSINT): WideString; safecall;
  2119.     procedure Set_List(Index: SYSINT; const pbstrItem: WideString); safecall;
  2120.     function  Get_ListCount: SYSINT; safecall;
  2121.     function  Get_ListHeaderCount: SYSINT; safecall;
  2122.     procedure Set_ListHeaderCount(pcItems: SYSINT); safecall;
  2123.     function  Get_ListIndex: SYSINT; safecall;
  2124.     procedure Set_ListIndex(pi: SYSINT); safecall;
  2125.     procedure RemoveItem(Index: SYSINT); safecall;
  2126.     function  Get_Style: MsoComboStyle; safecall;
  2127.     procedure Set_Style(pstyle: MsoComboStyle); safecall;
  2128.     function  Get_Text: WideString; safecall;
  2129.     procedure Set_Text(const pbstrText: WideString); safecall;
  2130.     property DropDownLines: SYSINT read Get_DropDownLines write Set_DropDownLines;
  2131.     property DropDownWidth: SYSINT read Get_DropDownWidth write Set_DropDownWidth;
  2132.     property List[Index: SYSINT]: WideString read Get_List write Set_List;
  2133.     property ListCount: SYSINT read Get_ListCount;
  2134.     property ListHeaderCount: SYSINT read Get_ListHeaderCount write Set_ListHeaderCount;
  2135.     property ListIndex: SYSINT read Get_ListIndex write Set_ListIndex;
  2136.     property Style: MsoComboStyle read Get_Style write Set_Style;
  2137.     property Text: WideString read Get_Text write Set_Text;
  2138.   end;
  2139.  
  2140. // *********************************************************************//
  2141. // DispIntf:  CommandBarComboBoxDisp
  2142. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2143. // GUID:      {000C030C-0000-0000-C000-000000000046}
  2144. // *********************************************************************//
  2145.   CommandBarComboBoxDisp = dispinterface
  2146.     ['{000C030C-0000-0000-C000-000000000046}']
  2147.     procedure AddItem(const Text: WideString; Index: OleVariant); dispid 1610940416;
  2148.     procedure Clear; dispid 1610940417;
  2149.     property DropDownLines: SYSINT dispid 1610940418;
  2150.     property DropDownWidth: SYSINT dispid 1610940420;
  2151.     property List[Index: SYSINT]: WideString dispid 1610940422;
  2152.     property ListCount: SYSINT readonly dispid 1610940424;
  2153.     property ListHeaderCount: SYSINT dispid 1610940425;
  2154.     property ListIndex: SYSINT dispid 1610940427;
  2155.     procedure RemoveItem(Index: SYSINT); dispid 1610940429;
  2156.     property Style: MsoComboStyle dispid 1610940430;
  2157.     property Text: WideString dispid 1610940432;
  2158.     property BeginGroup: WordBool dispid 1610874880;
  2159.     property BuiltIn: WordBool readonly dispid 1610874882;
  2160.     property Caption: WideString dispid 1610874883;
  2161.     property Control: IDispatch readonly dispid 1610874885;
  2162.     function  Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2163.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2164.     property DescriptionText: WideString dispid 1610874888;
  2165.     property Enabled: WordBool dispid 1610874890;
  2166.     procedure Execute; dispid 1610874892;
  2167.     property Height: SYSINT dispid 1610874893;
  2168.     property HelpContextId: SYSINT dispid 1610874895;
  2169.     property HelpFile: WideString dispid 1610874897;
  2170.     property Id: SYSINT readonly dispid 1610874899;
  2171.     property Index: SYSINT readonly dispid 1610874900;
  2172.     property InstanceId: Integer readonly dispid 1610874901;
  2173.     function  Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2174.     property Left: SYSINT readonly dispid 1610874903;
  2175.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2176.     property OnAction: WideString dispid 1610874906;
  2177.     property Parent: CommandBar readonly dispid 1610874908;
  2178.     property Parameter: WideString dispid 1610874909;
  2179.     property Priority: SYSINT dispid 1610874911;
  2180.     procedure Reset; dispid 1610874913;
  2181.     procedure SetFocus; dispid 1610874914;
  2182.     property Tag: WideString dispid 1610874915;
  2183.     property TooltipText: WideString dispid 1610874917;
  2184.     property Top: SYSINT readonly dispid 1610874919;
  2185.     property Type_: MsoControlType readonly dispid 1610874920;
  2186.     property Visible: WordBool dispid 1610874921;
  2187.     property Width: SYSINT dispid 1610874923;
  2188.     procedure Reserved1; dispid 1610874925;
  2189.     procedure Reserved2; dispid 1610874926;
  2190.     procedure Reserved3; dispid 1610874927;
  2191.     procedure Reserved4; dispid 1610874928;
  2192.     procedure Reserved5; dispid 1610874929;
  2193.     procedure Reserved6; dispid 1610874930;
  2194.     procedure Reserved7; dispid 1610874931;
  2195.     procedure Reserved8; dispid 1610874932;
  2196.     property Application: IDispatch readonly dispid 1610809344;
  2197.     property Creator: Integer readonly dispid 1610809345;
  2198.     property accParent: IDispatch readonly dispid -5000;
  2199.     property accChildCount: Integer readonly dispid -5001;
  2200.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2201.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2202.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2203.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2204.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2205.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2206.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2207.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2208.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2209.     property accFocus: OleVariant readonly dispid -5011;
  2210.     property accSelection: OleVariant readonly dispid -5012;
  2211.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2212.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2213.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2214.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2215.     function  accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2216.     function  accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2217.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2218.   end;
  2219.  
  2220. // *********************************************************************//
  2221. // Interface: Adjustments
  2222. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2223. // GUID:      {000C0310-0000-0000-C000-000000000046}
  2224. // *********************************************************************//
  2225.   Adjustments = interface(_IMsoDispObj)
  2226.     ['{000C0310-0000-0000-C000-000000000046}']
  2227.     function  Get_Parent: IDispatch; safecall;
  2228.     function  Get_Count: SYSINT; safecall;
  2229.     function  Get_Item(Index: SYSINT): Single; safecall;
  2230.     procedure Set_Item(Index: SYSINT; Val: Single); safecall;
  2231.     property Parent: IDispatch read Get_Parent;
  2232.     property Count: SYSINT read Get_Count;
  2233.     property Item[Index: SYSINT]: Single read Get_Item write Set_Item; default;
  2234.   end;
  2235.  
  2236. // *********************************************************************//
  2237. // DispIntf:  AdjustmentsDisp
  2238. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2239. // GUID:      {000C0310-0000-0000-C000-000000000046}
  2240. // *********************************************************************//
  2241.   AdjustmentsDisp = dispinterface
  2242.     ['{000C0310-0000-0000-C000-000000000046}']
  2243.     property Parent: IDispatch readonly dispid 1;
  2244.     property Count: SYSINT readonly dispid 2;
  2245.     property Item[Index: SYSINT]: Single dispid 0; default;
  2246.     property Application: IDispatch readonly dispid 1610743808;
  2247.     property Creator: Integer readonly dispid 1610743809;
  2248.   end;
  2249.  
  2250. // *********************************************************************//
  2251. // Interface: CalloutFormat
  2252. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2253. // GUID:      {000C0311-0000-0000-C000-000000000046}
  2254. // *********************************************************************//
  2255.   CalloutFormat = interface(_IMsoDispObj)
  2256.     ['{000C0311-0000-0000-C000-000000000046}']
  2257.     function  Get_Parent: IDispatch; safecall;
  2258.     procedure AutomaticLength; safecall;
  2259.     procedure CustomDrop(Drop: Single); safecall;
  2260.     procedure CustomLength(Length: Single); safecall;
  2261.     procedure PresetDrop(DropType: MsoCalloutDropType); safecall;
  2262.     function  Get_Accent: MsoTriState; safecall;
  2263.     procedure Set_Accent(Accent: MsoTriState); safecall;
  2264.     function  Get_Angle: MsoCalloutAngleType; safecall;
  2265.     procedure Set_Angle(Angle: MsoCalloutAngleType); safecall;
  2266.     function  Get_AutoAttach: MsoTriState; safecall;
  2267.     procedure Set_AutoAttach(AutoAttach: MsoTriState); safecall;
  2268.     function  Get_AutoLength: MsoTriState; safecall;
  2269.     function  Get_Border: MsoTriState; safecall;
  2270.     procedure Set_Border(Border: MsoTriState); safecall;
  2271.     function  Get_Drop: Single; safecall;
  2272.     function  Get_DropType: MsoCalloutDropType; safecall;
  2273.     function  Get_Gap: Single; safecall;
  2274.     procedure Set_Gap(Gap: Single); safecall;
  2275.     function  Get_Length: Single; safecall;
  2276.     function  Get_Type_: MsoCalloutType; safecall;
  2277.     procedure Set_Type_(Type_: MsoCalloutType); safecall;
  2278.     property Parent: IDispatch read Get_Parent;
  2279.     property Accent: MsoTriState read Get_Accent write Set_Accent;
  2280.     property Angle: MsoCalloutAngleType read Get_Angle write Set_Angle;
  2281.     property AutoAttach: MsoTriState read Get_AutoAttach write Set_AutoAttach;
  2282.     property AutoLength: MsoTriState read Get_AutoLength;
  2283.     property Border: MsoTriState read Get_Border write Set_Border;
  2284.     property Drop: Single read Get_Drop;
  2285.     property DropType: MsoCalloutDropType read Get_DropType;
  2286.     property Gap: Single read Get_Gap write Set_Gap;
  2287.     property Length: Single read Get_Length;
  2288.     property Type_: MsoCalloutType read Get_Type_ write Set_Type_;
  2289.   end;
  2290.  
  2291. // *********************************************************************//
  2292. // DispIntf:  CalloutFormatDisp
  2293. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2294. // GUID:      {000C0311-0000-0000-C000-000000000046}
  2295. // *********************************************************************//
  2296.   CalloutFormatDisp = dispinterface
  2297.     ['{000C0311-0000-0000-C000-000000000046}']
  2298.     property Parent: IDispatch readonly dispid 1;
  2299.     procedure AutomaticLength; dispid 10;
  2300.     procedure CustomDrop(Drop: Single); dispid 11;
  2301.     procedure CustomLength(Length: Single); dispid 12;
  2302.     procedure PresetDrop(DropType: MsoCalloutDropType); dispid 13;
  2303.     property Accent: MsoTriState dispid 100;
  2304.     property Angle: MsoCalloutAngleType dispid 101;
  2305.     property AutoAttach: MsoTriState dispid 102;
  2306.     property AutoLength: MsoTriState readonly dispid 103;
  2307.     property Border: MsoTriState dispid 104;
  2308.     property Drop: Single readonly dispid 105;
  2309.     property DropType: MsoCalloutDropType readonly dispid 106;
  2310.     property Gap: Single dispid 107;
  2311.     property Length: Single readonly dispid 108;
  2312.     property Type_: MsoCalloutType dispid 109;
  2313.     property Application: IDispatch readonly dispid 1610743808;
  2314.     property Creator: Integer readonly dispid 1610743809;
  2315.   end;
  2316.  
  2317. // *********************************************************************//
  2318. // Interface: ColorFormat
  2319. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2320. // GUID:      {000C0312-0000-0000-C000-000000000046}
  2321. // *********************************************************************//
  2322.   ColorFormat = interface(_IMsoDispObj)
  2323.     ['{000C0312-0000-0000-C000-000000000046}']
  2324.     function  Get_Parent: IDispatch; safecall;
  2325.     function  Get_RGB: MsoRGBType; safecall;
  2326.     procedure Set_RGB(RGB: MsoRGBType); safecall;
  2327.     function  Get_SchemeColor: SYSINT; safecall;
  2328.     procedure Set_SchemeColor(SchemeColor: SYSINT); safecall;
  2329.     function  Get_Type_: MsoColorType; safecall;
  2330.     property Parent: IDispatch read Get_Parent;
  2331.     property RGB: MsoRGBType read Get_RGB write Set_RGB;
  2332.     property SchemeColor: SYSINT read Get_SchemeColor write Set_SchemeColor;
  2333.     property Type_: MsoColorType read Get_Type_;
  2334.   end;
  2335.  
  2336. // *********************************************************************//
  2337. // DispIntf:  ColorFormatDisp
  2338. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2339. // GUID:      {000C0312-0000-0000-C000-000000000046}
  2340. // *********************************************************************//
  2341.   ColorFormatDisp = dispinterface
  2342.     ['{000C0312-0000-0000-C000-000000000046}']
  2343.     property Parent: IDispatch readonly dispid 1;
  2344.     property RGB: MsoRGBType dispid 0;
  2345.     property SchemeColor: SYSINT dispid 100;
  2346.     property Type_: MsoColorType readonly dispid 101;
  2347.     property Application: IDispatch readonly dispid 1610743808;
  2348.     property Creator: Integer readonly dispid 1610743809;
  2349.   end;
  2350.  
  2351. // *********************************************************************//
  2352. // Interface: ConnectorFormat
  2353. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2354. // GUID:      {000C0313-0000-0000-C000-000000000046}
  2355. // *********************************************************************//
  2356.   ConnectorFormat = interface(_IMsoDispObj)
  2357.     ['{000C0313-0000-0000-C000-000000000046}']
  2358.     function  Get_Parent: IDispatch; safecall;
  2359.     procedure BeginConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); safecall;
  2360.     procedure BeginDisconnect; safecall;
  2361.     procedure EndConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); safecall;
  2362.     procedure EndDisconnect; safecall;
  2363.     function  Get_BeginConnected: MsoTriState; safecall;
  2364.     function  Get_BeginConnectedShape: Shape; safecall;
  2365.     function  Get_BeginConnectionSite: SYSINT; safecall;
  2366.     function  Get_EndConnected: MsoTriState; safecall;
  2367.     function  Get_EndConnectedShape: Shape; safecall;
  2368.     function  Get_EndConnectionSite: SYSINT; safecall;
  2369.     function  Get_Type_: MsoConnectorType; safecall;
  2370.     procedure Set_Type_(Type_: MsoConnectorType); safecall;
  2371.     property Parent: IDispatch read Get_Parent;
  2372.     property BeginConnected: MsoTriState read Get_BeginConnected;
  2373.     property BeginConnectedShape: Shape read Get_BeginConnectedShape;
  2374.     property BeginConnectionSite: SYSINT read Get_BeginConnectionSite;
  2375.     property EndConnected: MsoTriState read Get_EndConnected;
  2376.     property EndConnectedShape: Shape read Get_EndConnectedShape;
  2377.     property EndConnectionSite: SYSINT read Get_EndConnectionSite;
  2378.     property Type_: MsoConnectorType read Get_Type_ write Set_Type_;
  2379.   end;
  2380.  
  2381. // *********************************************************************//
  2382. // DispIntf:  ConnectorFormatDisp
  2383. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2384. // GUID:      {000C0313-0000-0000-C000-000000000046}
  2385. // *********************************************************************//
  2386.   ConnectorFormatDisp = dispinterface
  2387.     ['{000C0313-0000-0000-C000-000000000046}']
  2388.     property Parent: IDispatch readonly dispid 1;
  2389.     procedure BeginConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); dispid 10;
  2390.     procedure BeginDisconnect; dispid 11;
  2391.     procedure EndConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); dispid 12;
  2392.     procedure EndDisconnect; dispid 13;
  2393.     property BeginConnected: MsoTriState readonly dispid 100;
  2394.     property BeginConnectedShape: Shape readonly dispid 101;
  2395.     property BeginConnectionSite: SYSINT readonly dispid 102;
  2396.     property EndConnected: MsoTriState readonly dispid 103;
  2397.     property EndConnectedShape: Shape readonly dispid 104;
  2398.     property EndConnectionSite: SYSINT readonly dispid 105;
  2399.     property Type_: MsoConnectorType dispid 106;
  2400.     property Application: IDispatch readonly dispid 1610743808;
  2401.     property Creator: Integer readonly dispid 1610743809;
  2402.   end;
  2403.  
  2404. // *********************************************************************//
  2405. // Interface: FillFormat
  2406. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2407. // GUID:      {000C0314-0000-0000-C000-000000000046}
  2408. // *********************************************************************//
  2409.   FillFormat = interface(_IMsoDispObj)
  2410.     ['{000C0314-0000-0000-C000-000000000046}']
  2411.     function  Get_Parent: IDispatch; safecall;
  2412.     procedure Background; safecall;
  2413.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: SYSINT; Degree: Single); safecall;
  2414.     procedure Patterned(Pattern: MsoPatternType); safecall;
  2415.     procedure PresetGradient(Style: MsoGradientStyle; Variant: SYSINT; 
  2416.                              PresetGradientType: MsoPresetGradientType); safecall;
  2417.     procedure PresetTextured(PresetTexture: MsoPresetTexture); safecall;
  2418.     procedure Solid; safecall;
  2419.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: SYSINT); safecall;
  2420.     procedure UserPicture(const PictureFile: WideString); safecall;
  2421.     procedure UserTextured(const TextureFile: WideString); safecall;
  2422.     function  Get_BackColor: ColorFormat; safecall;
  2423.     procedure Set_BackColor(const BackColor: ColorFormat); safecall;
  2424.     function  Get_ForeColor: ColorFormat; safecall;
  2425.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  2426.     function  Get_GradientColorType: MsoGradientColorType; safecall;
  2427.     function  Get_GradientDegree: Single; safecall;
  2428.     function  Get_GradientStyle: MsoGradientStyle; safecall;
  2429.     function  Get_GradientVariant: SYSINT; safecall;
  2430.     function  Get_Pattern: MsoPatternType; safecall;
  2431.     function  Get_PresetGradientType: MsoPresetGradientType; safecall;
  2432.     function  Get_PresetTexture: MsoPresetTexture; safecall;
  2433.     function  Get_TextureName: WideString; safecall;
  2434.     function  Get_TextureType: MsoTextureType; safecall;
  2435.     function  Get_Transparency: Single; safecall;
  2436.     procedure Set_Transparency(Transparency: Single); safecall;
  2437.     function  Get_Type_: MsoFillType; safecall;
  2438.     function  Get_Visible: MsoTriState; safecall;
  2439.     procedure Set_Visible(Visible: MsoTriState); safecall;
  2440.     property Parent: IDispatch read Get_Parent;
  2441.     property BackColor: ColorFormat read Get_BackColor write Set_BackColor;
  2442.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  2443.     property GradientColorType: MsoGradientColorType read Get_GradientColorType;
  2444.     property GradientDegree: Single read Get_GradientDegree;
  2445.     property GradientStyle: MsoGradientStyle read Get_GradientStyle;
  2446.     property GradientVariant: SYSINT read Get_GradientVariant;
  2447.     property Pattern: MsoPatternType read Get_Pattern;
  2448.     property PresetGradientType: MsoPresetGradientType read Get_PresetGradientType;
  2449.     property PresetTexture: MsoPresetTexture read Get_PresetTexture;
  2450.     property TextureName: WideString read Get_TextureName;
  2451.     property TextureType: MsoTextureType read Get_TextureType;
  2452.     property Transparency: Single read Get_Transparency write Set_Transparency;
  2453.     property Type_: MsoFillType read Get_Type_;
  2454.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  2455.   end;
  2456.  
  2457. // *********************************************************************//
  2458. // DispIntf:  FillFormatDisp
  2459. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2460. // GUID:      {000C0314-0000-0000-C000-000000000046}
  2461. // *********************************************************************//
  2462.   FillFormatDisp = dispinterface
  2463.     ['{000C0314-0000-0000-C000-000000000046}']
  2464.     property Parent: IDispatch readonly dispid 1;
  2465.     procedure Background; dispid 10;
  2466.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: SYSINT; Degree: Single); dispid 11;
  2467.     procedure Patterned(Pattern: MsoPatternType); dispid 12;
  2468.     procedure PresetGradient(Style: MsoGradientStyle; Variant: SYSINT; 
  2469.                              PresetGradientType: MsoPresetGradientType); dispid 13;
  2470.     procedure PresetTextured(PresetTexture: MsoPresetTexture); dispid 14;
  2471.     procedure Solid; dispid 15;
  2472.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: SYSINT); dispid 16;
  2473.     procedure UserPicture(const PictureFile: WideString); dispid 17;
  2474.     procedure UserTextured(const TextureFile: WideString); dispid 18;
  2475.     property BackColor: ColorFormat dispid 100;
  2476.     property ForeColor: ColorFormat dispid 101;
  2477.     property GradientColorType: MsoGradientColorType readonly dispid 102;
  2478.     property GradientDegree: Single readonly dispid 103;
  2479.     property GradientStyle: MsoGradientStyle readonly dispid 104;
  2480.     property GradientVariant: SYSINT readonly dispid 105;
  2481.     property Pattern: MsoPatternType readonly dispid 106;
  2482.     property PresetGradientType: MsoPresetGradientType readonly dispid 107;
  2483.     property PresetTexture: MsoPresetTexture readonly dispid 108;
  2484.     property TextureName: WideString readonly dispid 109;
  2485.     property TextureType: MsoTextureType readonly dispid 110;
  2486.     property Transparency: Single dispid 111;
  2487.     property Type_: MsoFillType readonly dispid 112;
  2488.     property Visible: MsoTriState dispid 113;
  2489.     property Application: IDispatch readonly dispid 1610743808;
  2490.     property Creator: Integer readonly dispid 1610743809;
  2491.   end;
  2492.  
  2493. // *********************************************************************//
  2494. // Interface: FreeformBuilder
  2495. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2496. // GUID:      {000C0315-0000-0000-C000-000000000046}
  2497. // *********************************************************************//
  2498.   FreeformBuilder = interface(_IMsoDispObj)
  2499.     ['{000C0315-0000-0000-C000-000000000046}']
  2500.     function  Get_Parent: IDispatch; safecall;
  2501.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  2502.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  2503.     function  ConvertToShape: Shape; safecall;
  2504.     property Parent: IDispatch read Get_Parent;
  2505.   end;
  2506.  
  2507. // *********************************************************************//
  2508. // DispIntf:  FreeformBuilderDisp
  2509. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2510. // GUID:      {000C0315-0000-0000-C000-000000000046}
  2511. // *********************************************************************//
  2512.   FreeformBuilderDisp = dispinterface
  2513.     ['{000C0315-0000-0000-C000-000000000046}']
  2514.     property Parent: IDispatch readonly dispid 1;
  2515.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  2516.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 10;
  2517.     function  ConvertToShape: Shape; dispid 11;
  2518.     property Application: IDispatch readonly dispid 1610743808;
  2519.     property Creator: Integer readonly dispid 1610743809;
  2520.   end;
  2521.  
  2522. // *********************************************************************//
  2523. // Interface: GroupShapes
  2524. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2525. // GUID:      {000C0316-0000-0000-C000-000000000046}
  2526. // *********************************************************************//
  2527.   GroupShapes = interface(_IMsoDispObj)
  2528.     ['{000C0316-0000-0000-C000-000000000046}']
  2529.     function  Get_Parent: IDispatch; safecall;
  2530.     function  Get_Count: SYSINT; safecall;
  2531.     function  Item(Index: OleVariant): Shape; safecall;
  2532.     function  Get__NewEnum: IUnknown; safecall;
  2533.     property Parent: IDispatch read Get_Parent;
  2534.     property Count: SYSINT read Get_Count;
  2535.     property _NewEnum: IUnknown read Get__NewEnum;
  2536.   end;
  2537.  
  2538. // *********************************************************************//
  2539. // DispIntf:  GroupShapesDisp
  2540. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2541. // GUID:      {000C0316-0000-0000-C000-000000000046}
  2542. // *********************************************************************//
  2543.   GroupShapesDisp = dispinterface
  2544.     ['{000C0316-0000-0000-C000-000000000046}']
  2545.     property Parent: IDispatch readonly dispid 1;
  2546.     property Count: SYSINT readonly dispid 2;
  2547.     function  Item(Index: OleVariant): Shape; dispid 0;
  2548.     property _NewEnum: IUnknown readonly dispid -4;
  2549.     property Application: IDispatch readonly dispid 1610743808;
  2550.     property Creator: Integer readonly dispid 1610743809;
  2551.   end;
  2552.  
  2553. // *********************************************************************//
  2554. // Interface: LineFormat
  2555. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2556. // GUID:      {000C0317-0000-0000-C000-000000000046}
  2557. // *********************************************************************//
  2558.   LineFormat = interface(_IMsoDispObj)
  2559.     ['{000C0317-0000-0000-C000-000000000046}']
  2560.     function  Get_Parent: IDispatch; safecall;
  2561.     function  Get_BackColor: ColorFormat; safecall;
  2562.     procedure Set_BackColor(const BackColor: ColorFormat); safecall;
  2563.     function  Get_BeginArrowheadLength: MsoArrowheadLength; safecall;
  2564.     procedure Set_BeginArrowheadLength(BeginArrowheadLength: MsoArrowheadLength); safecall;
  2565.     function  Get_BeginArrowheadStyle: MsoArrowheadStyle; safecall;
  2566.     procedure Set_BeginArrowheadStyle(BeginArrowheadStyle: MsoArrowheadStyle); safecall;
  2567.     function  Get_BeginArrowheadWidth: MsoArrowheadWidth; safecall;
  2568.     procedure Set_BeginArrowheadWidth(BeginArrowheadWidth: MsoArrowheadWidth); safecall;
  2569.     function  Get_DashStyle: MsoLineDashStyle; safecall;
  2570.     procedure Set_DashStyle(DashStyle: MsoLineDashStyle); safecall;
  2571.     function  Get_EndArrowheadLength: MsoArrowheadLength; safecall;
  2572.     procedure Set_EndArrowheadLength(EndArrowheadLength: MsoArrowheadLength); safecall;
  2573.     function  Get_EndArrowheadStyle: MsoArrowheadStyle; safecall;
  2574.     procedure Set_EndArrowheadStyle(EndArrowheadStyle: MsoArrowheadStyle); safecall;
  2575.     function  Get_EndArrowheadWidth: MsoArrowheadWidth; safecall;
  2576.     procedure Set_EndArrowheadWidth(EndArrowheadWidth: MsoArrowheadWidth); safecall;
  2577.     function  Get_ForeColor: ColorFormat; safecall;
  2578.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  2579.     function  Get_Pattern: MsoPatternType; safecall;
  2580.     procedure Set_Pattern(Pattern: MsoPatternType); safecall;
  2581.     function  Get_Style: MsoLineStyle; safecall;
  2582.     procedure Set_Style(Style: MsoLineStyle); safecall;
  2583.     function  Get_Transparency: Single; safecall;
  2584.     procedure Set_Transparency(Transparency: Single); safecall;
  2585.     function  Get_Visible: MsoTriState; safecall;
  2586.     procedure Set_Visible(Visible: MsoTriState); safecall;
  2587.     function  Get_Weight: Single; safecall;
  2588.     procedure Set_Weight(Weight: Single); safecall;
  2589.     property Parent: IDispatch read Get_Parent;
  2590.     property BackColor: ColorFormat read Get_BackColor write Set_BackColor;
  2591.     property BeginArrowheadLength: MsoArrowheadLength read Get_BeginArrowheadLength write Set_BeginArrowheadLength;
  2592.     property BeginArrowheadStyle: MsoArrowheadStyle read Get_BeginArrowheadStyle write Set_BeginArrowheadStyle;
  2593.     property BeginArrowheadWidth: MsoArrowheadWidth read Get_BeginArrowheadWidth write Set_BeginArrowheadWidth;
  2594.     property DashStyle: MsoLineDashStyle read Get_DashStyle write Set_DashStyle;
  2595.     property EndArrowheadLength: MsoArrowheadLength read Get_EndArrowheadLength write Set_EndArrowheadLength;
  2596.     property EndArrowheadStyle: MsoArrowheadStyle read Get_EndArrowheadStyle write Set_EndArrowheadStyle;
  2597.     property EndArrowheadWidth: MsoArrowheadWidth read Get_EndArrowheadWidth write Set_EndArrowheadWidth;
  2598.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  2599.     property Pattern: MsoPatternType read Get_Pattern write Set_Pattern;
  2600.     property Style: MsoLineStyle read Get_Style write Set_Style;
  2601.     property Transparency: Single read Get_Transparency write Set_Transparency;
  2602.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  2603.     property Weight: Single read Get_Weight write Set_Weight;
  2604.   end;
  2605.  
  2606. // *********************************************************************//
  2607. // DispIntf:  LineFormatDisp
  2608. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2609. // GUID:      {000C0317-0000-0000-C000-000000000046}
  2610. // *********************************************************************//
  2611.   LineFormatDisp = dispinterface
  2612.     ['{000C0317-0000-0000-C000-000000000046}']
  2613.     property Parent: IDispatch readonly dispid 1;
  2614.     property BackColor: ColorFormat dispid 100;
  2615.     property BeginArrowheadLength: MsoArrowheadLength dispid 101;
  2616.     property BeginArrowheadStyle: MsoArrowheadStyle dispid 102;
  2617.     property BeginArrowheadWidth: MsoArrowheadWidth dispid 103;
  2618.     property DashStyle: MsoLineDashStyle dispid 104;
  2619.     property EndArrowheadLength: MsoArrowheadLength dispid 105;
  2620.     property EndArrowheadStyle: MsoArrowheadStyle dispid 106;
  2621.     property EndArrowheadWidth: MsoArrowheadWidth dispid 107;
  2622.     property ForeColor: ColorFormat dispid 108;
  2623.     property Pattern: MsoPatternType dispid 109;
  2624.     property Style: MsoLineStyle dispid 110;
  2625.     property Transparency: Single dispid 111;
  2626.     property Visible: MsoTriState dispid 112;
  2627.     property Weight: Single dispid 113;
  2628.     property Application: IDispatch readonly dispid 1610743808;
  2629.     property Creator: Integer readonly dispid 1610743809;
  2630.   end;
  2631.  
  2632. // *********************************************************************//
  2633. // Interface: ShapeNode
  2634. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2635. // GUID:      {000C0318-0000-0000-C000-000000000046}
  2636. // *********************************************************************//
  2637.   ShapeNode = interface(_IMsoDispObj)
  2638.     ['{000C0318-0000-0000-C000-000000000046}']
  2639.     function  Get_Parent: IDispatch; safecall;
  2640.     function  Get_EditingType: MsoEditingType; safecall;
  2641.     function  Get_Points: OleVariant; safecall;
  2642.     function  Get_SegmentType: MsoSegmentType; safecall;
  2643.     property Parent: IDispatch read Get_Parent;
  2644.     property EditingType: MsoEditingType read Get_EditingType;
  2645.     property Points: OleVariant read Get_Points;
  2646.     property SegmentType: MsoSegmentType read Get_SegmentType;
  2647.   end;
  2648.  
  2649. // *********************************************************************//
  2650. // DispIntf:  ShapeNodeDisp
  2651. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2652. // GUID:      {000C0318-0000-0000-C000-000000000046}
  2653. // *********************************************************************//
  2654.   ShapeNodeDisp = dispinterface
  2655.     ['{000C0318-0000-0000-C000-000000000046}']
  2656.     property Parent: IDispatch readonly dispid 1;
  2657.     property EditingType: MsoEditingType readonly dispid 100;
  2658.     property Points: OleVariant readonly dispid 101;
  2659.     property SegmentType: MsoSegmentType readonly dispid 102;
  2660.     property Application: IDispatch readonly dispid 1610743808;
  2661.     property Creator: Integer readonly dispid 1610743809;
  2662.   end;
  2663.  
  2664. // *********************************************************************//
  2665. // Interface: ShapeNodes
  2666. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2667. // GUID:      {000C0319-0000-0000-C000-000000000046}
  2668. // *********************************************************************//
  2669.   ShapeNodes = interface(_IMsoDispObj)
  2670.     ['{000C0319-0000-0000-C000-000000000046}']
  2671.     function  Get_Parent: IDispatch; safecall;
  2672.     function  Get_Count: SYSINT; safecall;
  2673.     function  Item(Index: OleVariant): ShapeNode; safecall;
  2674.     function  Get__NewEnum: IUnknown; safecall;
  2675.     procedure Delete(Index: SYSINT); safecall;
  2676.     procedure Insert(Index: SYSINT; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  2677.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  2678.     procedure SetEditingType(Index: SYSINT; EditingType: MsoEditingType); safecall;
  2679.     procedure SetPosition(Index: SYSINT; X1: Single; Y1: Single); safecall;
  2680.     procedure SetSegmentType(Index: SYSINT; SegmentType: MsoSegmentType); safecall;
  2681.     property Parent: IDispatch read Get_Parent;
  2682.     property Count: SYSINT read Get_Count;
  2683.     property _NewEnum: IUnknown read Get__NewEnum;
  2684.   end;
  2685.  
  2686. // *********************************************************************//
  2687. // DispIntf:  ShapeNodesDisp
  2688. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2689. // GUID:      {000C0319-0000-0000-C000-000000000046}
  2690. // *********************************************************************//
  2691.   ShapeNodesDisp = dispinterface
  2692.     ['{000C0319-0000-0000-C000-000000000046}']
  2693.     property Parent: IDispatch readonly dispid 1;
  2694.     property Count: SYSINT readonly dispid 2;
  2695.     function  Item(Index: OleVariant): ShapeNode; dispid 0;
  2696.     property _NewEnum: IUnknown readonly dispid -4;
  2697.     procedure Delete(Index: SYSINT); dispid 11;
  2698.     procedure Insert(Index: SYSINT; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  2699.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 12;
  2700.     procedure SetEditingType(Index: SYSINT; EditingType: MsoEditingType); dispid 13;
  2701.     procedure SetPosition(Index: SYSINT; X1: Single; Y1: Single); dispid 14;
  2702.     procedure SetSegmentType(Index: SYSINT; SegmentType: MsoSegmentType); dispid 15;
  2703.     property Application: IDispatch readonly dispid 1610743808;
  2704.     property Creator: Integer readonly dispid 1610743809;
  2705.   end;
  2706.  
  2707. // *********************************************************************//
  2708. // Interface: PictureFormat
  2709. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2710. // GUID:      {000C031A-0000-0000-C000-000000000046}
  2711. // *********************************************************************//
  2712.   PictureFormat = interface(_IMsoDispObj)
  2713.     ['{000C031A-0000-0000-C000-000000000046}']
  2714.     function  Get_Parent: IDispatch; safecall;
  2715.     procedure IncrementBrightness(Increment: Single); safecall;
  2716.     procedure IncrementContrast(Increment: Single); safecall;
  2717.     function  Get_Brightness: Single; safecall;
  2718.     procedure Set_Brightness(Brightness: Single); safecall;
  2719.     function  Get_ColorType: MsoPictureColorType; safecall;
  2720.     procedure Set_ColorType(ColorType: MsoPictureColorType); safecall;
  2721.     function  Get_Contrast: Single; safecall;
  2722.     procedure Set_Contrast(Contrast: Single); safecall;
  2723.     function  Get_CropBottom: Single; safecall;
  2724.     procedure Set_CropBottom(CropBottom: Single); safecall;
  2725.     function  Get_CropLeft: Single; safecall;
  2726.     procedure Set_CropLeft(CropLeft: Single); safecall;
  2727.     function  Get_CropRight: Single; safecall;
  2728.     procedure Set_CropRight(CropRight: Single); safecall;
  2729.     function  Get_CropTop: Single; safecall;
  2730.     procedure Set_CropTop(CropTop: Single); safecall;
  2731.     function  Get_TransparencyColor: MsoRGBType; safecall;
  2732.     procedure Set_TransparencyColor(TransparencyColor: MsoRGBType); safecall;
  2733.     function  Get_TransparentBackground: MsoTriState; safecall;
  2734.     procedure Set_TransparentBackground(TransparentBackground: MsoTriState); safecall;
  2735.     property Parent: IDispatch read Get_Parent;
  2736.     property Brightness: Single read Get_Brightness write Set_Brightness;
  2737.     property ColorType: MsoPictureColorType read Get_ColorType write Set_ColorType;
  2738.     property Contrast: Single read Get_Contrast write Set_Contrast;
  2739.     property CropBottom: Single read Get_CropBottom write Set_CropBottom;
  2740.     property CropLeft: Single read Get_CropLeft write Set_CropLeft;
  2741.     property CropRight: Single read Get_CropRight write Set_CropRight;
  2742.     property CropTop: Single read Get_CropTop write Set_CropTop;
  2743.     property TransparencyColor: MsoRGBType read Get_TransparencyColor write Set_TransparencyColor;
  2744.     property TransparentBackground: MsoTriState read Get_TransparentBackground write Set_TransparentBackground;
  2745.   end;
  2746.  
  2747. // *********************************************************************//
  2748. // DispIntf:  PictureFormatDisp
  2749. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2750. // GUID:      {000C031A-0000-0000-C000-000000000046}
  2751. // *********************************************************************//
  2752.   PictureFormatDisp = dispinterface
  2753.     ['{000C031A-0000-0000-C000-000000000046}']
  2754.     property Parent: IDispatch readonly dispid 1;
  2755.     procedure IncrementBrightness(Increment: Single); dispid 10;
  2756.     procedure IncrementContrast(Increment: Single); dispid 11;
  2757.     property Brightness: Single dispid 100;
  2758.     property ColorType: MsoPictureColorType dispid 101;
  2759.     property Contrast: Single dispid 102;
  2760.     property CropBottom: Single dispid 103;
  2761.     property CropLeft: Single dispid 104;
  2762.     property CropRight: Single dispid 105;
  2763.     property CropTop: Single dispid 106;
  2764.     property TransparencyColor: MsoRGBType dispid 107;
  2765.     property TransparentBackground: MsoTriState dispid 108;
  2766.     property Application: IDispatch readonly dispid 1610743808;
  2767.     property Creator: Integer readonly dispid 1610743809;
  2768.   end;
  2769.  
  2770. // *********************************************************************//
  2771. // Interface: ShadowFormat
  2772. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2773. // GUID:      {000C031B-0000-0000-C000-000000000046}
  2774. // *********************************************************************//
  2775.   ShadowFormat = interface(_IMsoDispObj)
  2776.     ['{000C031B-0000-0000-C000-000000000046}']
  2777.     function  Get_Parent: IDispatch; safecall;
  2778.     procedure IncrementOffsetX(Increment: Single); safecall;
  2779.     procedure IncrementOffsetY(Increment: Single); safecall;
  2780.     function  Get_ForeColor: ColorFormat; safecall;
  2781.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  2782.     function  Get_Obscured: MsoTriState; safecall;
  2783.     procedure Set_Obscured(Obscured: MsoTriState); safecall;
  2784.     function  Get_OffsetX: Single; safecall;
  2785.     procedure Set_OffsetX(OffsetX: Single); safecall;
  2786.     function  Get_OffsetY: Single; safecall;
  2787.     procedure Set_OffsetY(OffsetY: Single); safecall;
  2788.     function  Get_Transparency: Single; safecall;
  2789.     procedure Set_Transparency(Transparency: Single); safecall;
  2790.     function  Get_Type_: MsoShadowType; safecall;
  2791.     procedure Set_Type_(Type_: MsoShadowType); safecall;
  2792.     function  Get_Visible: MsoTriState; safecall;
  2793.     procedure Set_Visible(Visible: MsoTriState); safecall;
  2794.     property Parent: IDispatch read Get_Parent;
  2795.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  2796.     property Obscured: MsoTriState read Get_Obscured write Set_Obscured;
  2797.     property OffsetX: Single read Get_OffsetX write Set_OffsetX;
  2798.     property OffsetY: Single read Get_OffsetY write Set_OffsetY;
  2799.     property Transparency: Single read Get_Transparency write Set_Transparency;
  2800.     property Type_: MsoShadowType read Get_Type_ write Set_Type_;
  2801.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  2802.   end;
  2803.  
  2804. // *********************************************************************//
  2805. // DispIntf:  ShadowFormatDisp
  2806. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2807. // GUID:      {000C031B-0000-0000-C000-000000000046}
  2808. // *********************************************************************//
  2809.   ShadowFormatDisp = dispinterface
  2810.     ['{000C031B-0000-0000-C000-000000000046}']
  2811.     property Parent: IDispatch readonly dispid 1;
  2812.     procedure IncrementOffsetX(Increment: Single); dispid 10;
  2813.     procedure IncrementOffsetY(Increment: Single); dispid 11;
  2814.     property ForeColor: ColorFormat dispid 100;
  2815.     property Obscured: MsoTriState dispid 101;
  2816.     property OffsetX: Single dispid 102;
  2817.     property OffsetY: Single dispid 103;
  2818.     property Transparency: Single dispid 104;
  2819.     property Type_: MsoShadowType dispid 105;
  2820.     property Visible: MsoTriState dispid 106;
  2821.     property Application: IDispatch readonly dispid 1610743808;
  2822.     property Creator: Integer readonly dispid 1610743809;
  2823.   end;
  2824.  
  2825. // *********************************************************************//
  2826. // Interface: Shape
  2827. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2828. // GUID:      {000C031C-0000-0000-C000-000000000046}
  2829. // *********************************************************************//
  2830.   Shape = interface(_IMsoDispObj)
  2831.     ['{000C031C-0000-0000-C000-000000000046}']
  2832.     function  Get_Parent: IDispatch; safecall;
  2833.     procedure Apply; safecall;
  2834.     procedure Delete; safecall;
  2835.     function  Duplicate: Shape; safecall;
  2836.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  2837.     procedure IncrementLeft(Increment: Single); safecall;
  2838.     procedure IncrementRotation(Increment: Single); safecall;
  2839.     procedure IncrementTop(Increment: Single); safecall;
  2840.     procedure PickUp; safecall;
  2841.     procedure RerouteConnections; safecall;
  2842.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  2843.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  2844.     procedure Select(Replace: OleVariant); safecall;
  2845.     procedure SetShapesDefaultProperties; safecall;
  2846.     function  Ungroup: ShapeRange; safecall;
  2847.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  2848.     function  Get_Adjustments: Adjustments; safecall;
  2849.     function  Get_AutoShapeType: MsoAutoShapeType; safecall;
  2850.     procedure Set_AutoShapeType(AutoShapeType: MsoAutoShapeType); safecall;
  2851.     function  Get_BlackWhiteMode: MsoBlackWhiteMode; safecall;
  2852.     procedure Set_BlackWhiteMode(BlackWhiteMode: MsoBlackWhiteMode); safecall;
  2853.     function  Get_Callout: CalloutFormat; safecall;
  2854.     function  Get_ConnectionSiteCount: SYSINT; safecall;
  2855.     function  Get_Connector: MsoTriState; safecall;
  2856.     function  Get_ConnectorFormat: ConnectorFormat; safecall;
  2857.     function  Get_Fill: FillFormat; safecall;
  2858.     function  Get_GroupItems: GroupShapes; safecall;
  2859.     function  Get_Height: Single; safecall;
  2860.     procedure Set_Height(Height: Single); safecall;
  2861.     function  Get_HorizontalFlip: MsoTriState; safecall;
  2862.     function  Get_Left: Single; safecall;
  2863.     procedure Set_Left(Left: Single); safecall;
  2864.     function  Get_Line: LineFormat; safecall;
  2865.     function  Get_LockAspectRatio: MsoTriState; safecall;
  2866.     procedure Set_LockAspectRatio(LockAspectRatio: MsoTriState); safecall;
  2867.     function  Get_Name: WideString; safecall;
  2868.     procedure Set_Name(const Name: WideString); safecall;
  2869.     function  Get_Nodes: ShapeNodes; safecall;
  2870.     function  Get_Rotation: Single; safecall;
  2871.     procedure Set_Rotation(Rotation: Single); safecall;
  2872.     function  Get_PictureFormat: PictureFormat; safecall;
  2873.     function  Get_Shadow: ShadowFormat; safecall;
  2874.     function  Get_TextEffect: TextEffectFormat; safecall;
  2875.     function  Get_TextFrame: TextFrame; safecall;
  2876.     function  Get_ThreeD: ThreeDFormat; safecall;
  2877.     function  Get_Top: Single; safecall;
  2878.     procedure Set_Top(Top: Single); safecall;
  2879.     function  Get_Type_: MsoShapeType; safecall;
  2880.     function  Get_VerticalFlip: MsoTriState; safecall;
  2881.     function  Get_Vertices: OleVariant; safecall;
  2882.     function  Get_Visible: MsoTriState; safecall;
  2883.     procedure Set_Visible(Visible: MsoTriState); safecall;
  2884.     function  Get_Width: Single; safecall;
  2885.     procedure Set_Width(Width: Single); safecall;
  2886.     function  Get_ZOrderPosition: SYSINT; safecall;
  2887.     property Parent: IDispatch read Get_Parent;
  2888.     property Adjustments: Adjustments read Get_Adjustments;
  2889.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  2890.     property BlackWhiteMode: MsoBlackWhiteMode read Get_BlackWhiteMode write Set_BlackWhiteMode;
  2891.     property Callout: CalloutFormat read Get_Callout;
  2892.     property ConnectionSiteCount: SYSINT read Get_ConnectionSiteCount;
  2893.     property Connector: MsoTriState read Get_Connector;
  2894.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  2895.     property Fill: FillFormat read Get_Fill;
  2896.     property GroupItems: GroupShapes read Get_GroupItems;
  2897.     property Height: Single read Get_Height write Set_Height;
  2898.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  2899.     property Left: Single read Get_Left write Set_Left;
  2900.     property Line: LineFormat read Get_Line;
  2901.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  2902.     property Name: WideString read Get_Name write Set_Name;
  2903.     property Nodes: ShapeNodes read Get_Nodes;
  2904.     property Rotation: Single read Get_Rotation write Set_Rotation;
  2905.     property PictureFormat: PictureFormat read Get_PictureFormat;
  2906.     property Shadow: ShadowFormat read Get_Shadow;
  2907.     property TextEffect: TextEffectFormat read Get_TextEffect;
  2908.     property TextFrame: TextFrame read Get_TextFrame;
  2909.     property ThreeD: ThreeDFormat read Get_ThreeD;
  2910.     property Top: Single read Get_Top write Set_Top;
  2911.     property Type_: MsoShapeType read Get_Type_;
  2912.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  2913.     property Vertices: OleVariant read Get_Vertices;
  2914.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  2915.     property Width: Single read Get_Width write Set_Width;
  2916.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  2917.   end;
  2918.  
  2919. // *********************************************************************//
  2920. // DispIntf:  ShapeDisp
  2921. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2922. // GUID:      {000C031C-0000-0000-C000-000000000046}
  2923. // *********************************************************************//
  2924.   ShapeDisp = dispinterface
  2925.     ['{000C031C-0000-0000-C000-000000000046}']
  2926.     property Parent: IDispatch readonly dispid 1;
  2927.     procedure Apply; dispid 10;
  2928.     procedure Delete; dispid 11;
  2929.     function  Duplicate: Shape; dispid 12;
  2930.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 13;
  2931.     procedure IncrementLeft(Increment: Single); dispid 14;
  2932.     procedure IncrementRotation(Increment: Single); dispid 15;
  2933.     procedure IncrementTop(Increment: Single); dispid 16;
  2934.     procedure PickUp; dispid 17;
  2935.     procedure RerouteConnections; dispid 18;
  2936.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 19;
  2937.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 20;
  2938.     procedure Select(Replace: OleVariant); dispid 21;
  2939.     procedure SetShapesDefaultProperties; dispid 22;
  2940.     function  Ungroup: ShapeRange; dispid 23;
  2941.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 24;
  2942.     property Adjustments: Adjustments readonly dispid 100;
  2943.     property AutoShapeType: MsoAutoShapeType dispid 101;
  2944.     property BlackWhiteMode: MsoBlackWhiteMode dispid 102;
  2945.     property Callout: CalloutFormat readonly dispid 103;
  2946.     property ConnectionSiteCount: SYSINT readonly dispid 104;
  2947.     property Connector: MsoTriState readonly dispid 105;
  2948.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  2949.     property Fill: FillFormat readonly dispid 107;
  2950.     property GroupItems: GroupShapes readonly dispid 108;
  2951.     property Height: Single dispid 109;
  2952.     property HorizontalFlip: MsoTriState readonly dispid 110;
  2953.     property Left: Single dispid 111;
  2954.     property Line: LineFormat readonly dispid 112;
  2955.     property LockAspectRatio: MsoTriState dispid 113;
  2956.     property Name: WideString dispid 115;
  2957.     property Nodes: ShapeNodes readonly dispid 116;
  2958.     property Rotation: Single dispid 117;
  2959.     property PictureFormat: PictureFormat readonly dispid 118;
  2960.     property Shadow: ShadowFormat readonly dispid 119;
  2961.     property TextEffect: TextEffectFormat readonly dispid 120;
  2962.     property TextFrame: TextFrame readonly dispid 121;
  2963.     property ThreeD: ThreeDFormat readonly dispid 122;
  2964.     property Top: Single dispid 123;
  2965.     property Type_: MsoShapeType readonly dispid 124;
  2966.     property VerticalFlip: MsoTriState readonly dispid 125;
  2967.     property Vertices: OleVariant readonly dispid 126;
  2968.     property Visible: MsoTriState dispid 127;
  2969.     property Width: Single dispid 128;
  2970.     property ZOrderPosition: SYSINT readonly dispid 129;
  2971.     property Application: IDispatch readonly dispid 1610743808;
  2972.     property Creator: Integer readonly dispid 1610743809;
  2973.   end;
  2974.  
  2975. // *********************************************************************//
  2976. // Interface: ShapeRange
  2977. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2978. // GUID:      {000C031D-0000-0000-C000-000000000046}
  2979. // *********************************************************************//
  2980.   ShapeRange = interface(_IMsoDispObj)
  2981.     ['{000C031D-0000-0000-C000-000000000046}']
  2982.     function  Get_Parent: IDispatch; safecall;
  2983.     function  Get_Count: SYSINT; safecall;
  2984.     function  Item(Index: OleVariant): Shape; safecall;
  2985.     function  Get__NewEnum: IUnknown; safecall;
  2986.     procedure Align(AlignCmd: MsoAlignCmd; RelativeTo: MsoTriState); safecall;
  2987.     procedure Apply; safecall;
  2988.     procedure Delete; safecall;
  2989.     procedure Distribute(DistributeCmd: MsoDistributeCmd; RelativeTo: MsoTriState); safecall;
  2990.     function  Duplicate: ShapeRange; safecall;
  2991.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  2992.     procedure IncrementLeft(Increment: Single); safecall;
  2993.     procedure IncrementRotation(Increment: Single); safecall;
  2994.     procedure IncrementTop(Increment: Single); safecall;
  2995.     function  Group: Shape; safecall;
  2996.     procedure PickUp; safecall;
  2997.     function  Regroup: Shape; safecall;
  2998.     procedure RerouteConnections; safecall;
  2999.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3000.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3001.     procedure Select(Replace: OleVariant); safecall;
  3002.     procedure SetShapesDefaultProperties; safecall;
  3003.     function  Ungroup: ShapeRange; safecall;
  3004.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  3005.     function  Get_Adjustments: Adjustments; safecall;
  3006.     function  Get_AutoShapeType: MsoAutoShapeType; safecall;
  3007.     procedure Set_AutoShapeType(AutoShapeType: MsoAutoShapeType); safecall;
  3008.     function  Get_BlackWhiteMode: MsoBlackWhiteMode; safecall;
  3009.     procedure Set_BlackWhiteMode(BlackWhiteMode: MsoBlackWhiteMode); safecall;
  3010.     function  Get_Callout: CalloutFormat; safecall;
  3011.     function  Get_ConnectionSiteCount: SYSINT; safecall;
  3012.     function  Get_Connector: MsoTriState; safecall;
  3013.     function  Get_ConnectorFormat: ConnectorFormat; safecall;
  3014.     function  Get_Fill: FillFormat; safecall;
  3015.     function  Get_GroupItems: GroupShapes; safecall;
  3016.     function  Get_Height: Single; safecall;
  3017.     procedure Set_Height(Height: Single); safecall;
  3018.     function  Get_HorizontalFlip: MsoTriState; safecall;
  3019.     function  Get_Left: Single; safecall;
  3020.     procedure Set_Left(Left: Single); safecall;
  3021.     function  Get_Line: LineFormat; safecall;
  3022.     function  Get_LockAspectRatio: MsoTriState; safecall;
  3023.     procedure Set_LockAspectRatio(LockAspectRatio: MsoTriState); safecall;
  3024.     function  Get_Name: WideString; safecall;
  3025.     procedure Set_Name(const Name: WideString); safecall;
  3026.     function  Get_Nodes: ShapeNodes; safecall;
  3027.     function  Get_Rotation: Single; safecall;
  3028.     procedure Set_Rotation(Rotation: Single); safecall;
  3029.     function  Get_PictureFormat: PictureFormat; safecall;
  3030.     function  Get_Shadow: ShadowFormat; safecall;
  3031.     function  Get_TextEffect: TextEffectFormat; safecall;
  3032.     function  Get_TextFrame: TextFrame; safecall;
  3033.     function  Get_ThreeD: ThreeDFormat; safecall;
  3034.     function  Get_Top: Single; safecall;
  3035.     procedure Set_Top(Top: Single); safecall;
  3036.     function  Get_Type_: MsoShapeType; safecall;
  3037.     function  Get_VerticalFlip: MsoTriState; safecall;
  3038.     function  Get_Vertices: OleVariant; safecall;
  3039.     function  Get_Visible: MsoTriState; safecall;
  3040.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3041.     function  Get_Width: Single; safecall;
  3042.     procedure Set_Width(Width: Single); safecall;
  3043.     function  Get_ZOrderPosition: SYSINT; safecall;
  3044.     property Parent: IDispatch read Get_Parent;
  3045.     property Count: SYSINT read Get_Count;
  3046.     property _NewEnum: IUnknown read Get__NewEnum;
  3047.     property Adjustments: Adjustments read Get_Adjustments;
  3048.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  3049.     property BlackWhiteMode: MsoBlackWhiteMode read Get_BlackWhiteMode write Set_BlackWhiteMode;
  3050.     property Callout: CalloutFormat read Get_Callout;
  3051.     property ConnectionSiteCount: SYSINT read Get_ConnectionSiteCount;
  3052.     property Connector: MsoTriState read Get_Connector;
  3053.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  3054.     property Fill: FillFormat read Get_Fill;
  3055.     property GroupItems: GroupShapes read Get_GroupItems;
  3056.     property Height: Single read Get_Height write Set_Height;
  3057.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  3058.     property Left: Single read Get_Left write Set_Left;
  3059.     property Line: LineFormat read Get_Line;
  3060.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  3061.     property Name: WideString read Get_Name write Set_Name;
  3062.     property Nodes: ShapeNodes read Get_Nodes;
  3063.     property Rotation: Single read Get_Rotation write Set_Rotation;
  3064.     property PictureFormat: PictureFormat read Get_PictureFormat;
  3065.     property Shadow: ShadowFormat read Get_Shadow;
  3066.     property TextEffect: TextEffectFormat read Get_TextEffect;
  3067.     property TextFrame: TextFrame read Get_TextFrame;
  3068.     property ThreeD: ThreeDFormat read Get_ThreeD;
  3069.     property Top: Single read Get_Top write Set_Top;
  3070.     property Type_: MsoShapeType read Get_Type_;
  3071.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  3072.     property Vertices: OleVariant read Get_Vertices;
  3073.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3074.     property Width: Single read Get_Width write Set_Width;
  3075.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  3076.   end;
  3077.  
  3078. // *********************************************************************//
  3079. // DispIntf:  ShapeRangeDisp
  3080. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3081. // GUID:      {000C031D-0000-0000-C000-000000000046}
  3082. // *********************************************************************//
  3083.   ShapeRangeDisp = dispinterface
  3084.     ['{000C031D-0000-0000-C000-000000000046}']
  3085.     property Parent: IDispatch readonly dispid 1;
  3086.     property Count: SYSINT readonly dispid 2;
  3087.     function  Item(Index: OleVariant): Shape; dispid 0;
  3088.     property _NewEnum: IUnknown readonly dispid -4;
  3089.     procedure Align(AlignCmd: MsoAlignCmd; RelativeTo: MsoTriState); dispid 10;
  3090.     procedure Apply; dispid 11;
  3091.     procedure Delete; dispid 12;
  3092.     procedure Distribute(DistributeCmd: MsoDistributeCmd; RelativeTo: MsoTriState); dispid 13;
  3093.     function  Duplicate: ShapeRange; dispid 14;
  3094.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 15;
  3095.     procedure IncrementLeft(Increment: Single); dispid 16;
  3096.     procedure IncrementRotation(Increment: Single); dispid 17;
  3097.     procedure IncrementTop(Increment: Single); dispid 18;
  3098.     function  Group: Shape; dispid 19;
  3099.     procedure PickUp; dispid 20;
  3100.     function  Regroup: Shape; dispid 21;
  3101.     procedure RerouteConnections; dispid 22;
  3102.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 23;
  3103.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 24;
  3104.     procedure Select(Replace: OleVariant); dispid 25;
  3105.     procedure SetShapesDefaultProperties; dispid 26;
  3106.     function  Ungroup: ShapeRange; dispid 27;
  3107.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 28;
  3108.     property Adjustments: Adjustments readonly dispid 100;
  3109.     property AutoShapeType: MsoAutoShapeType dispid 101;
  3110.     property BlackWhiteMode: MsoBlackWhiteMode dispid 102;
  3111.     property Callout: CalloutFormat readonly dispid 103;
  3112.     property ConnectionSiteCount: SYSINT readonly dispid 104;
  3113.     property Connector: MsoTriState readonly dispid 105;
  3114.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  3115.     property Fill: FillFormat readonly dispid 107;
  3116.     property GroupItems: GroupShapes readonly dispid 108;
  3117.     property Height: Single dispid 109;
  3118.     property HorizontalFlip: MsoTriState readonly dispid 110;
  3119.     property Left: Single dispid 111;
  3120.     property Line: LineFormat readonly dispid 112;
  3121.     property LockAspectRatio: MsoTriState dispid 113;
  3122.     property Name: WideString dispid 115;
  3123.     property Nodes: ShapeNodes readonly dispid 116;
  3124.     property Rotation: Single dispid 117;
  3125.     property PictureFormat: PictureFormat readonly dispid 118;
  3126.     property Shadow: ShadowFormat readonly dispid 119;
  3127.     property TextEffect: TextEffectFormat readonly dispid 120;
  3128.     property TextFrame: TextFrame readonly dispid 121;
  3129.     property ThreeD: ThreeDFormat readonly dispid 122;
  3130.     property Top: Single dispid 123;
  3131.     property Type_: MsoShapeType readonly dispid 124;
  3132.     property VerticalFlip: MsoTriState readonly dispid 125;
  3133.     property Vertices: OleVariant readonly dispid 126;
  3134.     property Visible: MsoTriState dispid 127;
  3135.     property Width: Single dispid 128;
  3136.     property ZOrderPosition: SYSINT readonly dispid 129;
  3137.     property Application: IDispatch readonly dispid 1610743808;
  3138.     property Creator: Integer readonly dispid 1610743809;
  3139.   end;
  3140.  
  3141. // *********************************************************************//
  3142. // Interface: Shapes
  3143. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3144. // GUID:      {000C031E-0000-0000-C000-000000000046}
  3145. // *********************************************************************//
  3146.   Shapes = interface(_IMsoDispObj)
  3147.     ['{000C031E-0000-0000-C000-000000000046}']
  3148.     function  Get_Parent: IDispatch; safecall;
  3149.     function  Get_Count: SYSINT; safecall;
  3150.     function  Item(Index: OleVariant): Shape; safecall;
  3151.     function  Get__NewEnum: IUnknown; safecall;
  3152.     function  AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  3153.                          Height: Single): Shape; safecall;
  3154.     function  AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  3155.                            EndY: Single): Shape; safecall;
  3156.     function  AddCurve(SafeArrayOfPoints: OleVariant): Shape; safecall;
  3157.     function  AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3158.                        Height: Single): Shape; safecall;
  3159.     function  AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; safecall;
  3160.     function  AddPicture(const FileName: WideString; LinkToFile: MsoTriState; 
  3161.                          SaveWithDocument: MsoTriState; Left: Single; Top: Single; Width: Single; 
  3162.                          Height: Single): Shape; safecall;
  3163.     function  AddPolyline(SafeArrayOfPoints: OleVariant): Shape; safecall;
  3164.     function  AddShape(Type_: MsoAutoShapeType; Left: Single; Top: Single; Width: Single; 
  3165.                        Height: Single): Shape; safecall;
  3166.     function  AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  3167.                             const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  3168.                             FontItalic: MsoTriState; Left: Single; Top: Single): Shape; safecall;
  3169.     function  AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3170.                          Height: Single): Shape; safecall;
  3171.     function  BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; safecall;
  3172.     function  Range(Index: OleVariant): ShapeRange; safecall;
  3173.     procedure SelectAll; safecall;
  3174.     function  Get_Background: Shape; safecall;
  3175.     function  Get_Default: Shape; safecall;
  3176.     property Parent: IDispatch read Get_Parent;
  3177.     property Count: SYSINT read Get_Count;
  3178.     property _NewEnum: IUnknown read Get__NewEnum;
  3179.     property Background: Shape read Get_Background;
  3180.     property Default: Shape read Get_Default;
  3181.   end;
  3182.  
  3183. // *********************************************************************//
  3184. // DispIntf:  ShapesDisp
  3185. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3186. // GUID:      {000C031E-0000-0000-C000-000000000046}
  3187. // *********************************************************************//
  3188.   ShapesDisp = dispinterface
  3189.     ['{000C031E-0000-0000-C000-000000000046}']
  3190.     property Parent: IDispatch readonly dispid 1;
  3191.     property Count: SYSINT readonly dispid 2;
  3192.     function  Item(Index: OleVariant): Shape; dispid 0;
  3193.     property _NewEnum: IUnknown readonly dispid -4;
  3194.     function  AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  3195.                          Height: Single): Shape; dispid 10;
  3196.     function  AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  3197.                            EndY: Single): Shape; dispid 11;
  3198.     function  AddCurve(SafeArrayOfPoints: OleVariant): Shape; dispid 12;
  3199.     function  AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3200.                        Height: Single): Shape; dispid 13;
  3201.     function  AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; dispid 14;
  3202.     function  AddPicture(const FileName: WideString; LinkToFile: MsoTriState; 
  3203.                          SaveWithDocument: MsoTriState; Left: Single; Top: Single; Width: Single; 
  3204.                          Height: Single): Shape; dispid 15;
  3205.     function  AddPolyline(SafeArrayOfPoints: OleVariant): Shape; dispid 16;
  3206.     function  AddShape(Type_: MsoAutoShapeType; Left: Single; Top: Single; Width: Single; 
  3207.                        Height: Single): Shape; dispid 17;
  3208.     function  AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  3209.                             const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  3210.                             FontItalic: MsoTriState; Left: Single; Top: Single): Shape; dispid 18;
  3211.     function  AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3212.                          Height: Single): Shape; dispid 19;
  3213.     function  BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; dispid 20;
  3214.     function  Range(Index: OleVariant): ShapeRange; dispid 21;
  3215.     procedure SelectAll; dispid 22;
  3216.     property Background: Shape readonly dispid 100;
  3217.     property Default: Shape readonly dispid 101;
  3218.     property Application: IDispatch readonly dispid 1610743808;
  3219.     property Creator: Integer readonly dispid 1610743809;
  3220.   end;
  3221.  
  3222. // *********************************************************************//
  3223. // Interface: TextEffectFormat
  3224. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3225. // GUID:      {000C031F-0000-0000-C000-000000000046}
  3226. // *********************************************************************//
  3227.   TextEffectFormat = interface(_IMsoDispObj)
  3228.     ['{000C031F-0000-0000-C000-000000000046}']
  3229.     function  Get_Parent: IDispatch; safecall;
  3230.     procedure ToggleVerticalText; safecall;
  3231.     function  Get_Alignment: MsoTextEffectAlignment; safecall;
  3232.     procedure Set_Alignment(Alignment: MsoTextEffectAlignment); safecall;
  3233.     function  Get_FontBold: MsoTriState; safecall;
  3234.     procedure Set_FontBold(FontBold: MsoTriState); safecall;
  3235.     function  Get_FontItalic: MsoTriState; safecall;
  3236.     procedure Set_FontItalic(FontItalic: MsoTriState); safecall;
  3237.     function  Get_FontName: WideString; safecall;
  3238.     procedure Set_FontName(const FontName: WideString); safecall;
  3239.     function  Get_FontSize: Single; safecall;
  3240.     procedure Set_FontSize(FontSize: Single); safecall;
  3241.     function  Get_KernedPairs: MsoTriState; safecall;
  3242.     procedure Set_KernedPairs(KernedPairs: MsoTriState); safecall;
  3243.     function  Get_NormalizedHeight: MsoTriState; safecall;
  3244.     procedure Set_NormalizedHeight(NormalizedHeight: MsoTriState); safecall;
  3245.     function  Get_PresetShape: MsoPresetTextEffectShape; safecall;
  3246.     procedure Set_PresetShape(PresetShape: MsoPresetTextEffectShape); safecall;
  3247.     function  Get_PresetTextEffect: MsoPresetTextEffect; safecall;
  3248.     procedure Set_PresetTextEffect(Preset: MsoPresetTextEffect); safecall;
  3249.     function  Get_RotatedChars: MsoTriState; safecall;
  3250.     procedure Set_RotatedChars(RotatedChars: MsoTriState); safecall;
  3251.     function  Get_Text: WideString; safecall;
  3252.     procedure Set_Text(const Text: WideString); safecall;
  3253.     function  Get_Tracking: Single; safecall;
  3254.     procedure Set_Tracking(Tracking: Single); safecall;
  3255.     property Parent: IDispatch read Get_Parent;
  3256.     property Alignment: MsoTextEffectAlignment read Get_Alignment write Set_Alignment;
  3257.     property FontBold: MsoTriState read Get_FontBold write Set_FontBold;
  3258.     property FontItalic: MsoTriState read Get_FontItalic write Set_FontItalic;
  3259.     property FontName: WideString read Get_FontName write Set_FontName;
  3260.     property FontSize: Single read Get_FontSize write Set_FontSize;
  3261.     property KernedPairs: MsoTriState read Get_KernedPairs write Set_KernedPairs;
  3262.     property NormalizedHeight: MsoTriState read Get_NormalizedHeight write Set_NormalizedHeight;
  3263.     property PresetShape: MsoPresetTextEffectShape read Get_PresetShape write Set_PresetShape;
  3264.     property PresetTextEffect: MsoPresetTextEffect read Get_PresetTextEffect write Set_PresetTextEffect;
  3265.     property RotatedChars: MsoTriState read Get_RotatedChars write Set_RotatedChars;
  3266.     property Text: WideString read Get_Text write Set_Text;
  3267.     property Tracking: Single read Get_Tracking write Set_Tracking;
  3268.   end;
  3269.  
  3270. // *********************************************************************//
  3271. // DispIntf:  TextEffectFormatDisp
  3272. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3273. // GUID:      {000C031F-0000-0000-C000-000000000046}
  3274. // *********************************************************************//
  3275.   TextEffectFormatDisp = dispinterface
  3276.     ['{000C031F-0000-0000-C000-000000000046}']
  3277.     property Parent: IDispatch readonly dispid 1;
  3278.     procedure ToggleVerticalText; dispid 10;
  3279.     property Alignment: MsoTextEffectAlignment dispid 100;
  3280.     property FontBold: MsoTriState dispid 101;
  3281.     property FontItalic: MsoTriState dispid 102;
  3282.     property FontName: WideString dispid 103;
  3283.     property FontSize: Single dispid 104;
  3284.     property KernedPairs: MsoTriState dispid 105;
  3285.     property NormalizedHeight: MsoTriState dispid 106;
  3286.     property PresetShape: MsoPresetTextEffectShape dispid 107;
  3287.     property PresetTextEffect: MsoPresetTextEffect dispid 108;
  3288.     property RotatedChars: MsoTriState dispid 109;
  3289.     property Text: WideString dispid 110;
  3290.     property Tracking: Single dispid 111;
  3291.     property Application: IDispatch readonly dispid 1610743808;
  3292.     property Creator: Integer readonly dispid 1610743809;
  3293.   end;
  3294.  
  3295. // *********************************************************************//
  3296. // Interface: TextFrame
  3297. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3298. // GUID:      {000C0320-0000-0000-C000-000000000046}
  3299. // *********************************************************************//
  3300.   TextFrame = interface(_IMsoDispObj)
  3301.     ['{000C0320-0000-0000-C000-000000000046}']
  3302.     function  Get_Parent: IDispatch; safecall;
  3303.     function  Get_MarginBottom: Single; safecall;
  3304.     procedure Set_MarginBottom(MarginBottom: Single); safecall;
  3305.     function  Get_MarginLeft: Single; safecall;
  3306.     procedure Set_MarginLeft(MarginLeft: Single); safecall;
  3307.     function  Get_MarginRight: Single; safecall;
  3308.     procedure Set_MarginRight(MarginRight: Single); safecall;
  3309.     function  Get_MarginTop: Single; safecall;
  3310.     procedure Set_MarginTop(MarginTop: Single); safecall;
  3311.     function  Get_Orientation: MsoTextOrientation; safecall;
  3312.     procedure Set_Orientation(Orientation: MsoTextOrientation); safecall;
  3313.     property Parent: IDispatch read Get_Parent;
  3314.     property MarginBottom: Single read Get_MarginBottom write Set_MarginBottom;
  3315.     property MarginLeft: Single read Get_MarginLeft write Set_MarginLeft;
  3316.     property MarginRight: Single read Get_MarginRight write Set_MarginRight;
  3317.     property MarginTop: Single read Get_MarginTop write Set_MarginTop;
  3318.     property Orientation: MsoTextOrientation read Get_Orientation write Set_Orientation;
  3319.   end;
  3320.  
  3321. // *********************************************************************//
  3322. // DispIntf:  TextFrameDisp
  3323. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3324. // GUID:      {000C0320-0000-0000-C000-000000000046}
  3325. // *********************************************************************//
  3326.   TextFrameDisp = dispinterface
  3327.     ['{000C0320-0000-0000-C000-000000000046}']
  3328.     property Parent: IDispatch readonly dispid 1;
  3329.     property MarginBottom: Single dispid 100;
  3330.     property MarginLeft: Single dispid 101;
  3331.     property MarginRight: Single dispid 102;
  3332.     property MarginTop: Single dispid 103;
  3333.     property Orientation: MsoTextOrientation dispid 104;
  3334.     property Application: IDispatch readonly dispid 1610743808;
  3335.     property Creator: Integer readonly dispid 1610743809;
  3336.   end;
  3337.  
  3338. // *********************************************************************//
  3339. // Interface: ThreeDFormat
  3340. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3341. // GUID:      {000C0321-0000-0000-C000-000000000046}
  3342. // *********************************************************************//
  3343.   ThreeDFormat = interface(_IMsoDispObj)
  3344.     ['{000C0321-0000-0000-C000-000000000046}']
  3345.     function  Get_Parent: IDispatch; safecall;
  3346.     procedure IncrementRotationX(Increment: Single); safecall;
  3347.     procedure IncrementRotationY(Increment: Single); safecall;
  3348.     procedure ResetRotation; safecall;
  3349.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); safecall;
  3350.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); safecall;
  3351.     function  Get_Depth: Single; safecall;
  3352.     procedure Set_Depth(Depth: Single); safecall;
  3353.     function  Get_ExtrusionColor: ColorFormat; safecall;
  3354.     function  Get_ExtrusionColorType: MsoExtrusionColorType; safecall;
  3355.     procedure Set_ExtrusionColorType(ExtrusionColorType: MsoExtrusionColorType); safecall;
  3356.     function  Get_Perspective: MsoTriState; safecall;
  3357.     procedure Set_Perspective(Perspective: MsoTriState); safecall;
  3358.     function  Get_PresetExtrusionDirection: MsoPresetExtrusionDirection; safecall;
  3359.     function  Get_PresetLightingDirection: MsoPresetLightingDirection; safecall;
  3360.     procedure Set_PresetLightingDirection(PresetLightingDirection: MsoPresetLightingDirection); safecall;
  3361.     function  Get_PresetLightingSoftness: MsoPresetLightingSoftness; safecall;
  3362.     procedure Set_PresetLightingSoftness(PresetLightingSoftness: MsoPresetLightingSoftness); safecall;
  3363.     function  Get_PresetMaterial: MsoPresetMaterial; safecall;
  3364.     procedure Set_PresetMaterial(PresetMaterial: MsoPresetMaterial); safecall;
  3365.     function  Get_PresetThreeDFormat: MsoPresetThreeDFormat; safecall;
  3366.     function  Get_RotationX: Single; safecall;
  3367.     procedure Set_RotationX(RotationX: Single); safecall;
  3368.     function  Get_RotationY: Single; safecall;
  3369.     procedure Set_RotationY(RotationY: Single); safecall;
  3370.     function  Get_Visible: MsoTriState; safecall;
  3371.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3372.     property Parent: IDispatch read Get_Parent;
  3373.     property Depth: Single read Get_Depth write Set_Depth;
  3374.     property ExtrusionColor: ColorFormat read Get_ExtrusionColor;
  3375.     property ExtrusionColorType: MsoExtrusionColorType read Get_ExtrusionColorType write Set_ExtrusionColorType;
  3376.     property Perspective: MsoTriState read Get_Perspective write Set_Perspective;
  3377.     property PresetExtrusionDirection: MsoPresetExtrusionDirection read Get_PresetExtrusionDirection;
  3378.     property PresetLightingDirection: MsoPresetLightingDirection read Get_PresetLightingDirection write Set_PresetLightingDirection;
  3379.     property PresetLightingSoftness: MsoPresetLightingSoftness read Get_PresetLightingSoftness write Set_PresetLightingSoftness;
  3380.     property PresetMaterial: MsoPresetMaterial read Get_PresetMaterial write Set_PresetMaterial;
  3381.     property PresetThreeDFormat: MsoPresetThreeDFormat read Get_PresetThreeDFormat;
  3382.     property RotationX: Single read Get_RotationX write Set_RotationX;
  3383.     property RotationY: Single read Get_RotationY write Set_RotationY;
  3384.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3385.   end;
  3386.  
  3387. // *********************************************************************//
  3388. // DispIntf:  ThreeDFormatDisp
  3389. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3390. // GUID:      {000C0321-0000-0000-C000-000000000046}
  3391. // *********************************************************************//
  3392.   ThreeDFormatDisp = dispinterface
  3393.     ['{000C0321-0000-0000-C000-000000000046}']
  3394.     property Parent: IDispatch readonly dispid 1;
  3395.     procedure IncrementRotationX(Increment: Single); dispid 10;
  3396.     procedure IncrementRotationY(Increment: Single); dispid 11;
  3397.     procedure ResetRotation; dispid 12;
  3398.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); dispid 13;
  3399.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); dispid 14;
  3400.     property Depth: Single dispid 100;
  3401.     property ExtrusionColor: ColorFormat readonly dispid 101;
  3402.     property ExtrusionColorType: MsoExtrusionColorType dispid 102;
  3403.     property Perspective: MsoTriState dispid 103;
  3404.     property PresetExtrusionDirection: MsoPresetExtrusionDirection readonly dispid 104;
  3405.     property PresetLightingDirection: MsoPresetLightingDirection dispid 105;
  3406.     property PresetLightingSoftness: MsoPresetLightingSoftness dispid 106;
  3407.     property PresetMaterial: MsoPresetMaterial dispid 107;
  3408.     property PresetThreeDFormat: MsoPresetThreeDFormat readonly dispid 108;
  3409.     property RotationX: Single dispid 109;
  3410.     property RotationY: Single dispid 110;
  3411.     property Visible: MsoTriState dispid 111;
  3412.     property Application: IDispatch readonly dispid 1610743808;
  3413.     property Creator: Integer readonly dispid 1610743809;
  3414.   end;
  3415.  
  3416. // *********************************************************************//
  3417. // Interface: Assistant
  3418. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3419. // GUID:      {000C0322-0000-0000-C000-000000000046}
  3420. // *********************************************************************//
  3421.   Assistant = interface(_IMsoDispObj)
  3422.     ['{000C0322-0000-0000-C000-000000000046}']
  3423.     function  Get_Parent: IDispatch; safecall;
  3424.     procedure Move(xLeft: SYSINT; yTop: SYSINT); safecall;
  3425.     procedure Set_Top(pyTop: SYSINT); safecall;
  3426.     function  Get_Top: SYSINT; safecall;
  3427.     procedure Set_Left(pxLeft: SYSINT); safecall;
  3428.     function  Get_Left: SYSINT; safecall;
  3429.     procedure Help; safecall;
  3430.     function  StartWizard(On_: WordBool; const Callback: WideString; PrivateX: Integer; 
  3431.                           Animation: OleVariant; CustomTeaser: OleVariant; Top: OleVariant; 
  3432.                           Left: OleVariant; Bottom: OleVariant; Right: OleVariant): Integer; safecall;
  3433.     procedure EndWizard(WizardID: Integer; varfSuccess: WordBool; Animation: OleVariant); safecall;
  3434.     procedure ActivateWizard(WizardID: Integer; act: MsoWizardActType; Animation: OleVariant); safecall;
  3435.     procedure ResetTips; safecall;
  3436.     function  Get_NewBalloon: IDispatch; safecall;
  3437.     function  Get_BalloonError: MsoBalloonErrorType; safecall;
  3438.     function  Get_Visible: WordBool; safecall;
  3439.     procedure Set_Visible(pvarfVisible: WordBool); safecall;
  3440.     function  Get_Animation: MsoAnimationType; safecall;
  3441.     procedure Set_Animation(pfca: MsoAnimationType); safecall;
  3442.     function  Get_Reduced: WordBool; safecall;
  3443.     procedure Set_Reduced(pvarfReduced: WordBool); safecall;
  3444.     procedure Set_AssistWithHelp(pvarfAssistWithHelp: WordBool); safecall;
  3445.     function  Get_AssistWithHelp: WordBool; safecall;
  3446.     procedure Set_AssistWithWizards(pvarfAssistWithWizards: WordBool); safecall;
  3447.     function  Get_AssistWithWizards: WordBool; safecall;
  3448.     procedure Set_AssistWithAlerts(pvarfAssistWithAlerts: WordBool); safecall;
  3449.     function  Get_AssistWithAlerts: WordBool; safecall;
  3450.     procedure Set_MoveWhenInTheWay(pvarfMove: WordBool); safecall;
  3451.     function  Get_MoveWhenInTheWay: WordBool; safecall;
  3452.     procedure Set_Sounds(pvarfSounds: WordBool); safecall;
  3453.     function  Get_Sounds: WordBool; safecall;
  3454.     procedure Set_FeatureTips(pvarfFeatures: WordBool); safecall;
  3455.     function  Get_FeatureTips: WordBool; safecall;
  3456.     procedure Set_MouseTips(pvarfMouse: WordBool); safecall;
  3457.     function  Get_MouseTips: WordBool; safecall;
  3458.     procedure Set_KeyboardShortcutTips(pvarfKeyboardShortcuts: WordBool); safecall;
  3459.     function  Get_KeyboardShortcutTips: WordBool; safecall;
  3460.     procedure Set_HighPriorityTips(pvarfHighPriorityTips: WordBool); safecall;
  3461.     function  Get_HighPriorityTips: WordBool; safecall;
  3462.     procedure Set_TipOfDay(pvarfTipOfDay: WordBool); safecall;
  3463.     function  Get_TipOfDay: WordBool; safecall;
  3464.     procedure Set_GuessHelp(pvarfGuessHelp: WordBool); safecall;
  3465.     function  Get_GuessHelp: WordBool; safecall;
  3466.     procedure Set_SearchWhenProgramming(pvarfSearchInProgram: WordBool); safecall;
  3467.     function  Get_SearchWhenProgramming: WordBool; safecall;
  3468.     function  Get_Item: WideString; safecall;
  3469.     function  Get_FileName: WideString; safecall;
  3470.     procedure Set_FileName(const pbstr: WideString); safecall;
  3471.     function  Get_Name: WideString; safecall;
  3472.     property Parent: IDispatch read Get_Parent;
  3473.     property Top: SYSINT read Get_Top write Set_Top;
  3474.     property Left: SYSINT read Get_Left write Set_Left;
  3475.     property NewBalloon: IDispatch read Get_NewBalloon;
  3476.     property BalloonError: MsoBalloonErrorType read Get_BalloonError;
  3477.     property Visible: WordBool read Get_Visible write Set_Visible;
  3478.     property Animation: MsoAnimationType read Get_Animation write Set_Animation;
  3479.     property Reduced: WordBool read Get_Reduced write Set_Reduced;
  3480.     property AssistWithHelp: WordBool read Get_AssistWithHelp write Set_AssistWithHelp;
  3481.     property AssistWithWizards: WordBool read Get_AssistWithWizards write Set_AssistWithWizards;
  3482.     property AssistWithAlerts: WordBool read Get_AssistWithAlerts write Set_AssistWithAlerts;
  3483.     property MoveWhenInTheWay: WordBool read Get_MoveWhenInTheWay write Set_MoveWhenInTheWay;
  3484.     property Sounds: WordBool read Get_Sounds write Set_Sounds;
  3485.     property FeatureTips: WordBool read Get_FeatureTips write Set_FeatureTips;
  3486.     property MouseTips: WordBool read Get_MouseTips write Set_MouseTips;
  3487.     property KeyboardShortcutTips: WordBool read Get_KeyboardShortcutTips write Set_KeyboardShortcutTips;
  3488.     property HighPriorityTips: WordBool read Get_HighPriorityTips write Set_HighPriorityTips;
  3489.     property TipOfDay: WordBool read Get_TipOfDay write Set_TipOfDay;
  3490.     property GuessHelp: WordBool read Get_GuessHelp write Set_GuessHelp;
  3491.     property SearchWhenProgramming: WordBool read Get_SearchWhenProgramming write Set_SearchWhenProgramming;
  3492.     property Item: WideString read Get_Item;
  3493.     property FileName: WideString read Get_FileName write Set_FileName;
  3494.     property Name: WideString read Get_Name;
  3495.   end;
  3496.  
  3497. // *********************************************************************//
  3498. // DispIntf:  AssistantDisp
  3499. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3500. // GUID:      {000C0322-0000-0000-C000-000000000046}
  3501. // *********************************************************************//
  3502.   AssistantDisp = dispinterface
  3503.     ['{000C0322-0000-0000-C000-000000000046}']
  3504.     property Parent: IDispatch readonly dispid 1610809344;
  3505.     procedure Move(xLeft: SYSINT; yTop: SYSINT); dispid 1610809345;
  3506.     property Top: SYSINT dispid 1610809346;
  3507.     property Left: SYSINT dispid 1610809348;
  3508.     procedure Help; dispid 1610809350;
  3509.     function  StartWizard(On_: WordBool; const Callback: WideString; PrivateX: Integer; 
  3510.                           Animation: OleVariant; CustomTeaser: OleVariant; Top: OleVariant; 
  3511.                           Left: OleVariant; Bottom: OleVariant; Right: OleVariant): Integer; dispid 1610809351;
  3512.     procedure EndWizard(WizardID: Integer; varfSuccess: WordBool; Animation: OleVariant); dispid 1610809352;
  3513.     procedure ActivateWizard(WizardID: Integer; act: MsoWizardActType; Animation: OleVariant); dispid 1610809353;
  3514.     procedure ResetTips; dispid 1610809354;
  3515.     property NewBalloon: IDispatch readonly dispid 1610809355;
  3516.     property BalloonError: MsoBalloonErrorType readonly dispid 1610809356;
  3517.     property Visible: WordBool dispid 1610809357;
  3518.     property Animation: MsoAnimationType dispid 1610809359;
  3519.     property Reduced: WordBool dispid 1610809361;
  3520.     property AssistWithHelp: WordBool dispid 1610809363;
  3521.     property AssistWithWizards: WordBool dispid 1610809365;
  3522.     property AssistWithAlerts: WordBool dispid 1610809367;
  3523.     property MoveWhenInTheWay: WordBool dispid 1610809369;
  3524.     property Sounds: WordBool dispid 1610809371;
  3525.     property FeatureTips: WordBool dispid 1610809373;
  3526.     property MouseTips: WordBool dispid 1610809375;
  3527.     property KeyboardShortcutTips: WordBool dispid 1610809377;
  3528.     property HighPriorityTips: WordBool dispid 1610809379;
  3529.     property TipOfDay: WordBool dispid 1610809381;
  3530.     property GuessHelp: WordBool dispid 1610809383;
  3531.     property SearchWhenProgramming: WordBool dispid 1610809385;
  3532.     property Item: WideString readonly dispid 0;
  3533.     property FileName: WideString dispid 1610809388;
  3534.     property Name: WideString readonly dispid 1610809390;
  3535.     property Application: IDispatch readonly dispid 1610743808;
  3536.     property Creator: Integer readonly dispid 1610743809;
  3537.   end;
  3538.  
  3539. // *********************************************************************//
  3540. // Interface: Balloon
  3541. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3542. // GUID:      {000C0324-0000-0000-C000-000000000046}
  3543. // *********************************************************************//
  3544.   Balloon = interface(_IMsoDispObj)
  3545.     ['{000C0324-0000-0000-C000-000000000046}']
  3546.     function  Get_Parent: IDispatch; safecall;
  3547.     function  Get_Checkboxes: IDispatch; safecall;
  3548.     function  Get_Labels: IDispatch; safecall;
  3549.     procedure Set_BalloonType(pbty: MsoBalloonType); safecall;
  3550.     function  Get_BalloonType: MsoBalloonType; safecall;
  3551.     procedure Set_Icon(picn: MsoIconType); safecall;
  3552.     function  Get_Icon: MsoIconType; safecall;
  3553.     procedure Set_Heading(const pbstr: WideString); safecall;
  3554.     function  Get_Heading: WideString; safecall;
  3555.     procedure Set_Text(const pbstr: WideString); safecall;
  3556.     function  Get_Text: WideString; safecall;
  3557.     procedure Set_Mode(pmd: MsoModeType); safecall;
  3558.     function  Get_Mode: MsoModeType; safecall;
  3559.     procedure Set_Animation(pfca: MsoAnimationType); safecall;
  3560.     function  Get_Animation: MsoAnimationType; safecall;
  3561.     procedure Set_Button(psbs: MsoButtonSetType); safecall;
  3562.     function  Get_Button: MsoButtonSetType; safecall;
  3563.     procedure Set_Callback(const pbstr: WideString); safecall;
  3564.     function  Get_Callback: WideString; safecall;
  3565.     procedure Set_Private_(plPrivate: Integer); safecall;
  3566.     function  Get_Private_: Integer; safecall;
  3567.     procedure SetAvoidRectangle(Left: SYSINT; Top: SYSINT; Right: SYSINT; Bottom: SYSINT); safecall;
  3568.     function  Get_Name: WideString; safecall;
  3569.     function  Show: MsoBalloonButtonType; safecall;
  3570.     procedure Close; safecall;
  3571.     property Parent: IDispatch read Get_Parent;
  3572.     property Checkboxes: IDispatch read Get_Checkboxes;
  3573.     property Labels: IDispatch read Get_Labels;
  3574.     property BalloonType: MsoBalloonType read Get_BalloonType write Set_BalloonType;
  3575.     property Icon: MsoIconType read Get_Icon write Set_Icon;
  3576.     property Heading: WideString read Get_Heading write Set_Heading;
  3577.     property Text: WideString read Get_Text write Set_Text;
  3578.     property Mode: MsoModeType read Get_Mode write Set_Mode;
  3579.     property Animation: MsoAnimationType read Get_Animation write Set_Animation;
  3580.     property Button: MsoButtonSetType read Get_Button write Set_Button;
  3581.     property Callback: WideString read Get_Callback write Set_Callback;
  3582.     property Private_: Integer read Get_Private_ write Set_Private_;
  3583.     property Name: WideString read Get_Name;
  3584.   end;
  3585.  
  3586. // *********************************************************************//
  3587. // DispIntf:  BalloonDisp
  3588. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3589. // GUID:      {000C0324-0000-0000-C000-000000000046}
  3590. // *********************************************************************//
  3591.   BalloonDisp = dispinterface
  3592.     ['{000C0324-0000-0000-C000-000000000046}']
  3593.     property Parent: IDispatch readonly dispid 1610809344;
  3594.     property Checkboxes: IDispatch readonly dispid 1610809345;
  3595.     property Labels: IDispatch readonly dispid 1610809346;
  3596.     property BalloonType: MsoBalloonType dispid 1610809347;
  3597.     property Icon: MsoIconType dispid 1610809349;
  3598.     property Heading: WideString dispid 1610809351;
  3599.     property Text: WideString dispid 1610809353;
  3600.     property Mode: MsoModeType dispid 1610809355;
  3601.     property Animation: MsoAnimationType dispid 1610809357;
  3602.     property Button: MsoButtonSetType dispid 1610809359;
  3603.     property Callback: WideString dispid 1610809361;
  3604.     property Private_: Integer dispid 1610809363;
  3605.     procedure SetAvoidRectangle(Left: SYSINT; Top: SYSINT; Right: SYSINT; Bottom: SYSINT); dispid 1610809365;
  3606.     property Name: WideString readonly dispid 1610809366;
  3607.     function  Show: MsoBalloonButtonType; dispid 1610809367;
  3608.     procedure Close; dispid 1610809368;
  3609.     property Application: IDispatch readonly dispid 1610743808;
  3610.     property Creator: Integer readonly dispid 1610743809;
  3611.   end;
  3612.  
  3613. // *********************************************************************//
  3614. // Interface: BalloonCheckboxes
  3615. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3616. // GUID:      {000C0326-0000-0000-C000-000000000046}
  3617. // *********************************************************************//
  3618.   BalloonCheckboxes = interface(_IMsoDispObj)
  3619.     ['{000C0326-0000-0000-C000-000000000046}']
  3620.     function  Get_Name: WideString; safecall;
  3621.     function  Get_Parent: IDispatch; safecall;
  3622.     function  Get_Item(Index: SYSINT): IDispatch; safecall;
  3623.     function  Get_Count: SYSINT; safecall;
  3624.     procedure Set_Count(pccbx: SYSINT); safecall;
  3625.     function  Get__NewEnum: IUnknown; safecall;
  3626.     property Name: WideString read Get_Name;
  3627.     property Parent: IDispatch read Get_Parent;
  3628.     property Item[Index: SYSINT]: IDispatch read Get_Item; default;
  3629.     property Count: SYSINT read Get_Count write Set_Count;
  3630.     property _NewEnum: IUnknown read Get__NewEnum;
  3631.   end;
  3632.  
  3633. // *********************************************************************//
  3634. // DispIntf:  BalloonCheckboxesDisp
  3635. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3636. // GUID:      {000C0326-0000-0000-C000-000000000046}
  3637. // *********************************************************************//
  3638.   BalloonCheckboxesDisp = dispinterface
  3639.     ['{000C0326-0000-0000-C000-000000000046}']
  3640.     property Name: WideString readonly dispid 1610809344;
  3641.     property Parent: IDispatch readonly dispid 1610809345;
  3642.     property Item[Index: SYSINT]: IDispatch readonly dispid 0; default;
  3643.     property Count: SYSINT dispid 1610809347;
  3644.     property _NewEnum: IUnknown readonly dispid -4;
  3645.     property Application: IDispatch readonly dispid 1610743808;
  3646.     property Creator: Integer readonly dispid 1610743809;
  3647.   end;
  3648.  
  3649. // *********************************************************************//
  3650. // Interface: BalloonCheckbox
  3651. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3652. // GUID:      {000C0328-0000-0000-C000-000000000046}
  3653. // *********************************************************************//
  3654.   BalloonCheckbox = interface(_IMsoDispObj)
  3655.     ['{000C0328-0000-0000-C000-000000000046}']
  3656.     function  Get_Item: WideString; safecall;
  3657.     function  Get_Name: WideString; safecall;
  3658.     function  Get_Parent: IDispatch; safecall;
  3659.     procedure Set_Checked(pvarfChecked: WordBool); safecall;
  3660.     function  Get_Checked: WordBool; safecall;
  3661.     procedure Set_Text(const pbstr: WideString); safecall;
  3662.     function  Get_Text: WideString; safecall;
  3663.     property Item: WideString read Get_Item;
  3664.     property Name: WideString read Get_Name;
  3665.     property Parent: IDispatch read Get_Parent;
  3666.     property Checked: WordBool read Get_Checked write Set_Checked;
  3667.     property Text: WideString read Get_Text write Set_Text;
  3668.   end;
  3669.  
  3670. // *********************************************************************//
  3671. // DispIntf:  BalloonCheckboxDisp
  3672. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3673. // GUID:      {000C0328-0000-0000-C000-000000000046}
  3674. // *********************************************************************//
  3675.   BalloonCheckboxDisp = dispinterface
  3676.     ['{000C0328-0000-0000-C000-000000000046}']
  3677.     property Item: WideString readonly dispid 0;
  3678.     property Name: WideString readonly dispid 1610809345;
  3679.     property Parent: IDispatch readonly dispid 1610809346;
  3680.     property Checked: WordBool dispid 1610809347;
  3681.     property Text: WideString dispid 1610809349;
  3682.     property Application: IDispatch readonly dispid 1610743808;
  3683.     property Creator: Integer readonly dispid 1610743809;
  3684.   end;
  3685.  
  3686. // *********************************************************************//
  3687. // Interface: BalloonLabels
  3688. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3689. // GUID:      {000C032E-0000-0000-C000-000000000046}
  3690. // *********************************************************************//
  3691.   BalloonLabels = interface(_IMsoDispObj)
  3692.     ['{000C032E-0000-0000-C000-000000000046}']
  3693.     function  Get_Name: WideString; safecall;
  3694.     function  Get_Parent: IDispatch; safecall;
  3695.     function  Get_Item(Index: SYSINT): IDispatch; safecall;
  3696.     function  Get_Count: SYSINT; safecall;
  3697.     procedure Set_Count(pcwz: SYSINT); safecall;
  3698.     function  Get__NewEnum: IUnknown; safecall;
  3699.     property Name: WideString read Get_Name;
  3700.     property Parent: IDispatch read Get_Parent;
  3701.     property Item[Index: SYSINT]: IDispatch read Get_Item; default;
  3702.     property Count: SYSINT read Get_Count write Set_Count;
  3703.     property _NewEnum: IUnknown read Get__NewEnum;
  3704.   end;
  3705.  
  3706. // *********************************************************************//
  3707. // DispIntf:  BalloonLabelsDisp
  3708. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3709. // GUID:      {000C032E-0000-0000-C000-000000000046}
  3710. // *********************************************************************//
  3711.   BalloonLabelsDisp = dispinterface
  3712.     ['{000C032E-0000-0000-C000-000000000046}']
  3713.     property Name: WideString readonly dispid 1610809344;
  3714.     property Parent: IDispatch readonly dispid 1610809345;
  3715.     property Item[Index: SYSINT]: IDispatch readonly dispid 0; default;
  3716.     property Count: SYSINT dispid 1610809347;
  3717.     property _NewEnum: IUnknown readonly dispid -4;
  3718.     property Application: IDispatch readonly dispid 1610743808;
  3719.     property Creator: Integer readonly dispid 1610743809;
  3720.   end;
  3721.  
  3722. // *********************************************************************//
  3723. // Interface: BalloonLabel
  3724. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3725. // GUID:      {000C0330-0000-0000-C000-000000000046}
  3726. // *********************************************************************//
  3727.   BalloonLabel = interface(_IMsoDispObj)
  3728.     ['{000C0330-0000-0000-C000-000000000046}']
  3729.     function  Get_Item: WideString; safecall;
  3730.     function  Get_Name: WideString; safecall;
  3731.     function  Get_Parent: IDispatch; safecall;
  3732.     procedure Set_Text(const pbstr: WideString); safecall;
  3733.     function  Get_Text: WideString; safecall;
  3734.     property Item: WideString read Get_Item;
  3735.     property Name: WideString read Get_Name;
  3736.     property Parent: IDispatch read Get_Parent;
  3737.     property Text: WideString read Get_Text write Set_Text;
  3738.   end;
  3739.  
  3740. // *********************************************************************//
  3741. // DispIntf:  BalloonLabelDisp
  3742. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3743. // GUID:      {000C0330-0000-0000-C000-000000000046}
  3744. // *********************************************************************//
  3745.   BalloonLabelDisp = dispinterface
  3746.     ['{000C0330-0000-0000-C000-000000000046}']
  3747.     property Item: WideString readonly dispid 0;
  3748.     property Name: WideString readonly dispid 1610809345;
  3749.     property Parent: IDispatch readonly dispid 1610809346;
  3750.     property Text: WideString dispid 1610809347;
  3751.     property Application: IDispatch readonly dispid 1610743808;
  3752.     property Creator: Integer readonly dispid 1610743809;
  3753.   end;
  3754.  
  3755. // *********************************************************************//
  3756. // Interface: DocumentProperty
  3757. // Flags:     (4096) Dispatchable
  3758. // GUID:      {2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}
  3759. // *********************************************************************//
  3760.   DocumentProperty = interface(IDispatch)
  3761.     ['{2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}']
  3762.     function  Get_Parent: IDispatch; stdcall;
  3763.     function  Delete: HResult; stdcall;
  3764.     function  Get_Name(lcid: Integer; out pbstrRetVal: WideString): HResult; stdcall;
  3765.     function  Set_Name(lcid: Integer; const pbstrRetVal: WideString): HResult; stdcall;
  3766.     function  Get_Value(lcid: Integer; out pvargRetVal: OleVariant): HResult; stdcall;
  3767.     function  Set_Value(lcid: Integer; pvargRetVal: OleVariant): HResult; stdcall;
  3768.     function  Get_Type_(lcid: Integer; out ptypeRetVal: MsoDocProperties): HResult; stdcall;
  3769.     function  Set_Type_(lcid: Integer; ptypeRetVal: MsoDocProperties): HResult; stdcall;
  3770.     function  Get_LinkToContent(out pfLinkRetVal: WordBool): HResult; stdcall;
  3771.     function  Set_LinkToContent(pfLinkRetVal: WordBool): HResult; stdcall;
  3772.     function  Get_LinkSource(out pbstrSourceRetVal: WideString): HResult; stdcall;
  3773.     function  Set_LinkSource(const pbstrSourceRetVal: WideString): HResult; stdcall;
  3774.     function  Get_Application(out ppidisp: IDispatch): HResult; stdcall;
  3775.     function  Get_Creator(out plCreator: Integer): HResult; stdcall;
  3776.   end;
  3777.  
  3778. // *********************************************************************//
  3779. // Interface: DocumentProperties
  3780. // Flags:     (4096) Dispatchable
  3781. // GUID:      {2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}
  3782. // *********************************************************************//
  3783.   DocumentProperties = interface(IDispatch)
  3784.     ['{2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}']
  3785.     function  Get_Parent: IDispatch; stdcall;
  3786.     function  Get_Item(Index: OleVariant; lcid: Integer; out ppIDocProp: DocumentProperty): HResult; stdcall;
  3787.     function  Get_Count(out pc: Integer): HResult; stdcall;
  3788.     function  Add(const Name: WideString; LinkToContent: WordBool; Type_: OleVariant; 
  3789.                   Value: OleVariant; LinkSource: OleVariant; lcid: Integer; 
  3790.                   out ppIDocProp: DocumentProperty): HResult; stdcall;
  3791.     function  Get__NewEnum(out ppunkEnum: IUnknown): HResult; stdcall;
  3792.     function  Get_Application(out ppidisp: IDispatch): HResult; stdcall;
  3793.     function  Get_Creator(out plCreator: Integer): HResult; stdcall;
  3794.   end;
  3795.  
  3796. // *********************************************************************//
  3797. // Interface: IFoundFiles
  3798. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3799. // GUID:      {000C0338-0000-0000-C000-000000000046}
  3800. // *********************************************************************//
  3801.   IFoundFiles = interface(IDispatch)
  3802.     ['{000C0338-0000-0000-C000-000000000046}']
  3803.     function  Get_Item(Index: SYSINT): WideString; safecall;
  3804.     function  Get_Count: SYSINT; safecall;
  3805.     function  Get__NewEnum: IUnknown; safecall;
  3806.     property Item[Index: SYSINT]: WideString read Get_Item; default;
  3807.     property Count: SYSINT read Get_Count;
  3808.     property _NewEnum: IUnknown read Get__NewEnum;
  3809.   end;
  3810.  
  3811. // *********************************************************************//
  3812. // DispIntf:  IFoundFilesDisp
  3813. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3814. // GUID:      {000C0338-0000-0000-C000-000000000046}
  3815. // *********************************************************************//
  3816.   IFoundFilesDisp = dispinterface
  3817.     ['{000C0338-0000-0000-C000-000000000046}']
  3818.     property Item[Index: SYSINT]: WideString readonly dispid 0; default;
  3819.     property Count: SYSINT readonly dispid 1610743809;
  3820.     property _NewEnum: IUnknown readonly dispid -4;
  3821.   end;
  3822.  
  3823. // *********************************************************************//
  3824. // Interface: IFind
  3825. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3826. // GUID:      {000C0337-0000-0000-C000-000000000046}
  3827. // *********************************************************************//
  3828.   IFind = interface(IDispatch)
  3829.     ['{000C0337-0000-0000-C000-000000000046}']
  3830.     function  Get_SearchPath: WideString; safecall;
  3831.     function  Get_Name: WideString; safecall;
  3832.     function  Get_SubDir: WordBool; safecall;
  3833.     function  Get_Title: WideString; safecall;
  3834.     function  Get_Author: WideString; safecall;
  3835.     function  Get_Keywords: WideString; safecall;
  3836.     function  Get_Subject: WideString; safecall;
  3837.     function  Get_Options: MsoFileFindOptions; safecall;
  3838.     function  Get_MatchCase: WordBool; safecall;
  3839.     function  Get_Text: WideString; safecall;
  3840.     function  Get_PatternMatch: WordBool; safecall;
  3841.     function  Get_DateSavedFrom: OleVariant; safecall;
  3842.     function  Get_DateSavedTo: OleVariant; safecall;
  3843.     function  Get_SavedBy: WideString; safecall;
  3844.     function  Get_DateCreatedFrom: OleVariant; safecall;
  3845.     function  Get_DateCreatedTo: OleVariant; safecall;
  3846.     function  Get_View: MsoFileFindView; safecall;
  3847.     function  Get_SortBy: MsoFileFindSortBy; safecall;
  3848.     function  Get_ListBy: MsoFileFindListBy; safecall;
  3849.     function  Get_SelectedFile: SYSINT; safecall;
  3850.     function  Get_Results: IFoundFiles; safecall;
  3851.     function  Show: SYSINT; safecall;
  3852.     procedure Set_SearchPath(const pbstr: WideString); safecall;
  3853.     procedure Set_Name(const pbstr: WideString); safecall;
  3854.     procedure Set_SubDir(retval: WordBool); safecall;
  3855.     procedure Set_Title(const pbstr: WideString); safecall;
  3856.     procedure Set_Author(const pbstr: WideString); safecall;
  3857.     procedure Set_Keywords(const pbstr: WideString); safecall;
  3858.     procedure Set_Subject(const pbstr: WideString); safecall;
  3859.     procedure Set_Options(penmOptions: MsoFileFindOptions); safecall;
  3860.     procedure Set_MatchCase(retval: WordBool); safecall;
  3861.     procedure Set_Text(const pbstr: WideString); safecall;
  3862.     procedure Set_PatternMatch(retval: WordBool); safecall;
  3863.     procedure Set_DateSavedFrom(pdatSavedFrom: OleVariant); safecall;
  3864.     procedure Set_DateSavedTo(pdatSavedTo: OleVariant); safecall;
  3865.     procedure Set_SavedBy(const pbstr: WideString); safecall;
  3866.     procedure Set_DateCreatedFrom(pdatCreatedFrom: OleVariant); safecall;
  3867.     procedure Set_DateCreatedTo(pdatCreatedTo: OleVariant); safecall;
  3868.     procedure Set_View(penmView: MsoFileFindView); safecall;
  3869.     procedure Set_SortBy(penmSortBy: MsoFileFindSortBy); safecall;
  3870.     procedure Set_ListBy(penmListBy: MsoFileFindListBy); safecall;
  3871.     procedure Set_SelectedFile(pintSelectedFile: SYSINT); safecall;
  3872.     procedure Execute; safecall;
  3873.     procedure Load(const bstrQueryName: WideString); safecall;
  3874.     procedure Save(const bstrQueryName: WideString); safecall;
  3875.     procedure Delete(const bstrQueryName: WideString); safecall;
  3876.     function  Get_FileType: Integer; safecall;
  3877.     procedure Set_FileType(plFileType: Integer); safecall;
  3878.     property SearchPath: WideString read Get_SearchPath write Set_SearchPath;
  3879.     property Name: WideString read Get_Name write Set_Name;
  3880.     property SubDir: WordBool read Get_SubDir write Set_SubDir;
  3881.     property Title: WideString read Get_Title write Set_Title;
  3882.     property Author: WideString read Get_Author write Set_Author;
  3883.     property Keywords: WideString read Get_Keywords write Set_Keywords;
  3884.     property Subject: WideString read Get_Subject write Set_Subject;
  3885.     property Options: MsoFileFindOptions read Get_Options write Set_Options;
  3886.     property MatchCase: WordBool read Get_MatchCase write Set_MatchCase;
  3887.     property Text: WideString read Get_Text write Set_Text;
  3888.     property PatternMatch: WordBool read Get_PatternMatch write Set_PatternMatch;
  3889.     property DateSavedFrom: OleVariant read Get_DateSavedFrom write Set_DateSavedFrom;
  3890.     property DateSavedTo: OleVariant read Get_DateSavedTo write Set_DateSavedTo;
  3891.     property SavedBy: WideString read Get_SavedBy write Set_SavedBy;
  3892.     property DateCreatedFrom: OleVariant read Get_DateCreatedFrom write Set_DateCreatedFrom;
  3893.     property DateCreatedTo: OleVariant read Get_DateCreatedTo write Set_DateCreatedTo;
  3894.     property View: MsoFileFindView read Get_View write Set_View;
  3895.     property SortBy: MsoFileFindSortBy read Get_SortBy write Set_SortBy;
  3896.     property ListBy: MsoFileFindListBy read Get_ListBy write Set_ListBy;
  3897.     property SelectedFile: SYSINT read Get_SelectedFile write Set_SelectedFile;
  3898.     property Results: IFoundFiles read Get_Results;
  3899.     property FileType: Integer read Get_FileType write Set_FileType;
  3900.   end;
  3901.  
  3902. // *********************************************************************//
  3903. // DispIntf:  IFindDisp
  3904. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3905. // GUID:      {000C0337-0000-0000-C000-000000000046}
  3906. // *********************************************************************//
  3907.   IFindDisp = dispinterface
  3908.     ['{000C0337-0000-0000-C000-000000000046}']
  3909.     property SearchPath: WideString dispid 0;
  3910.     property Name: WideString dispid 1610743809;
  3911.     property SubDir: WordBool dispid 1610743810;
  3912.     property Title: WideString dispid 1610743811;
  3913.     property Author: WideString dispid 1610743812;
  3914.     property Keywords: WideString dispid 1610743813;
  3915.     property Subject: WideString dispid 1610743814;
  3916.     property Options: MsoFileFindOptions dispid 1610743815;
  3917.     property MatchCase: WordBool dispid 1610743816;
  3918.     property Text: WideString dispid 1610743817;
  3919.     property PatternMatch: WordBool dispid 1610743818;
  3920.     property DateSavedFrom: OleVariant dispid 1610743819;
  3921.     property DateSavedTo: OleVariant dispid 1610743820;
  3922.     property SavedBy: WideString dispid 1610743821;
  3923.     property DateCreatedFrom: OleVariant dispid 1610743822;
  3924.     property DateCreatedTo: OleVariant dispid 1610743823;
  3925.     property View: MsoFileFindView dispid 1610743824;
  3926.     property SortBy: MsoFileFindSortBy dispid 1610743825;
  3927.     property ListBy: MsoFileFindListBy dispid 1610743826;
  3928.     property SelectedFile: SYSINT dispid 1610743827;
  3929.     property Results: IFoundFiles readonly dispid 1610743828;
  3930.     function  Show: SYSINT; dispid 1610743829;
  3931.     procedure Execute; dispid 1610743850;
  3932.     procedure Load(const bstrQueryName: WideString); dispid 1610743851;
  3933.     procedure Save(const bstrQueryName: WideString); dispid 1610743852;
  3934.     procedure Delete(const bstrQueryName: WideString); dispid 1610743853;
  3935.     property FileType: Integer dispid 1610743854;
  3936.   end;
  3937.  
  3938. // *********************************************************************//
  3939. // Interface: FoundFiles
  3940. // Flags:     (4416) Dual OleAutomation Dispatchable
  3941. // GUID:      {000C0331-0000-0000-C000-000000000046}
  3942. // *********************************************************************//
  3943.   FoundFiles = interface(_IMsoDispObj)
  3944.     ['{000C0331-0000-0000-C000-000000000046}']
  3945.     function  Get_Item(Index: SYSINT; lcid: Integer): WideString; safecall;
  3946.     function  Get_Count: Integer; safecall;
  3947.     function  Get__NewEnum: IUnknown; safecall;
  3948.     property Item[Index: SYSINT; lcid: Integer]: WideString read Get_Item;
  3949.     property Count: Integer read Get_Count;
  3950.     property _NewEnum: IUnknown read Get__NewEnum;
  3951.   end;
  3952.  
  3953. // *********************************************************************//
  3954. // DispIntf:  FoundFilesDisp
  3955. // Flags:     (4416) Dual OleAutomation Dispatchable
  3956. // GUID:      {000C0331-0000-0000-C000-000000000046}
  3957. // *********************************************************************//
  3958.   FoundFilesDisp = dispinterface
  3959.     ['{000C0331-0000-0000-C000-000000000046}']
  3960.     property Item[Index: SYSINT; lcid: Integer]: WideString readonly dispid 0;
  3961.     property Count: Integer readonly dispid 4;
  3962.     property _NewEnum: IUnknown readonly dispid -4;
  3963.     property Application: IDispatch readonly dispid 1610743808;
  3964.     property Creator: Integer readonly dispid 1610743809;
  3965.   end;
  3966.  
  3967. // *********************************************************************//
  3968. // Interface: PropertyTest
  3969. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3970. // GUID:      {000C0333-0000-0000-C000-000000000046}
  3971. // *********************************************************************//
  3972.   PropertyTest = interface(_IMsoDispObj)
  3973.     ['{000C0333-0000-0000-C000-000000000046}']
  3974.     function  Get_Name: WideString; safecall;
  3975.     function  Get_Condition: MsoCondition; safecall;
  3976.     function  Get_Value: OleVariant; safecall;
  3977.     function  Get_SecondValue: OleVariant; safecall;
  3978.     function  Get_Connector: MsoConnector; safecall;
  3979.     property Name: WideString read Get_Name;
  3980.     property Condition: MsoCondition read Get_Condition;
  3981.     property Value: OleVariant read Get_Value;
  3982.     property SecondValue: OleVariant read Get_SecondValue;
  3983.     property Connector: MsoConnector read Get_Connector;
  3984.   end;
  3985.  
  3986. // *********************************************************************//
  3987. // DispIntf:  PropertyTestDisp
  3988. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3989. // GUID:      {000C0333-0000-0000-C000-000000000046}
  3990. // *********************************************************************//
  3991.   PropertyTestDisp = dispinterface
  3992.     ['{000C0333-0000-0000-C000-000000000046}']
  3993.     property Name: WideString readonly dispid 0;
  3994.     property Condition: MsoCondition readonly dispid 2;
  3995.     property Value: OleVariant readonly dispid 3;
  3996.     property SecondValue: OleVariant readonly dispid 4;
  3997.     property Connector: MsoConnector readonly dispid 5;
  3998.     property Application: IDispatch readonly dispid 1610743808;
  3999.     property Creator: Integer readonly dispid 1610743809;
  4000.   end;
  4001.  
  4002. // *********************************************************************//
  4003. // Interface: PropertyTests
  4004. // Flags:     (4416) Dual OleAutomation Dispatchable
  4005. // GUID:      {000C0334-0000-0000-C000-000000000046}
  4006. // *********************************************************************//
  4007.   PropertyTests = interface(_IMsoDispObj)
  4008.     ['{000C0334-0000-0000-C000-000000000046}']
  4009.     function  Get_Item(Index: SYSINT; lcid: Integer): PropertyTest; safecall;
  4010.     function  Get_Count: Integer; safecall;
  4011.     procedure Add(const Name: WideString; Condition: MsoCondition; Value: OleVariant; 
  4012.                   SecondValue: OleVariant; Connector: MsoConnector); safecall;
  4013.     procedure Remove(Index: SYSINT); safecall;
  4014.     function  Get__NewEnum: IUnknown; safecall;
  4015.     property Item[Index: SYSINT; lcid: Integer]: PropertyTest read Get_Item;
  4016.     property Count: Integer read Get_Count;
  4017.     property _NewEnum: IUnknown read Get__NewEnum;
  4018.   end;
  4019.  
  4020. // *********************************************************************//
  4021. // DispIntf:  PropertyTestsDisp
  4022. // Flags:     (4416) Dual OleAutomation Dispatchable
  4023. // GUID:      {000C0334-0000-0000-C000-000000000046}
  4024. // *********************************************************************//
  4025.   PropertyTestsDisp = dispinterface
  4026.     ['{000C0334-0000-0000-C000-000000000046}']
  4027.     property Item[Index: SYSINT; lcid: Integer]: PropertyTest readonly dispid 0;
  4028.     property Count: Integer readonly dispid 4;
  4029.     procedure Add(const Name: WideString; Condition: MsoCondition; Value: OleVariant; 
  4030.                   SecondValue: OleVariant; Connector: MsoConnector); dispid 5;
  4031.     procedure Remove(Index: SYSINT); dispid 6;
  4032.     property _NewEnum: IUnknown readonly dispid -4;
  4033.     property Application: IDispatch readonly dispid 1610743808;
  4034.     property Creator: Integer readonly dispid 1610743809;
  4035.   end;
  4036.  
  4037. // *********************************************************************//
  4038. // Interface: FileSearch
  4039. // Flags:     (4416) Dual OleAutomation Dispatchable
  4040. // GUID:      {000C0332-0000-0000-C000-000000000046}
  4041. // *********************************************************************//
  4042.   FileSearch = interface(_IMsoDispObj)
  4043.     ['{000C0332-0000-0000-C000-000000000046}']
  4044.     function  Get_SearchSubFolders: WordBool; safecall;
  4045.     procedure Set_SearchSubFolders(SearchSubFoldersRetVal: WordBool); safecall;
  4046.     function  Get_MatchTextExactly: WordBool; safecall;
  4047.     procedure Set_MatchTextExactly(MatchTextRetVal: WordBool); safecall;
  4048.     function  Get_MatchAllWordForms: WordBool; safecall;
  4049.     procedure Set_MatchAllWordForms(MatchAllWordFormsRetVal: WordBool); safecall;
  4050.     function  Get_FileName: WideString; safecall;
  4051.     procedure Set_FileName(const FileNameRetVal: WideString); safecall;
  4052.     function  Get_FileType: MsoFileType; safecall;
  4053.     procedure Set_FileType(FileTypeRetVal: MsoFileType); safecall;
  4054.     function  Get_LastModified: MsoLastModified; safecall;
  4055.     procedure Set_LastModified(LastModifiedRetVal: MsoLastModified); safecall;
  4056.     function  Get_TextOrProperty: WideString; safecall;
  4057.     procedure Set_TextOrProperty(const TextOrProperty: WideString); safecall;
  4058.     function  Get_LookIn: WideString; safecall;
  4059.     procedure Set_LookIn(const LookInRetVal: WideString); safecall;
  4060.     function  Execute(SortBy: MsoSortBy; SortOrder: MsoSortOrder; AlwaysAccurate: WordBool): SYSINT; safecall;
  4061.     procedure NewSearch; safecall;
  4062.     function  Get_FoundFiles: FoundFiles; safecall;
  4063.     function  Get_PropertyTests: PropertyTests; safecall;
  4064.     property SearchSubFolders: WordBool read Get_SearchSubFolders write Set_SearchSubFolders;
  4065.     property MatchTextExactly: WordBool read Get_MatchTextExactly write Set_MatchTextExactly;
  4066.     property MatchAllWordForms: WordBool read Get_MatchAllWordForms write Set_MatchAllWordForms;
  4067.     property FileName: WideString read Get_FileName write Set_FileName;
  4068.     property FileType: MsoFileType read Get_FileType write Set_FileType;
  4069.     property LastModified: MsoLastModified read Get_LastModified write Set_LastModified;
  4070.     property TextOrProperty: WideString read Get_TextOrProperty write Set_TextOrProperty;
  4071.     property LookIn: WideString read Get_LookIn write Set_LookIn;
  4072.     property FoundFiles: FoundFiles read Get_FoundFiles;
  4073.     property PropertyTests: PropertyTests read Get_PropertyTests;
  4074.   end;
  4075.  
  4076. // *********************************************************************//
  4077. // DispIntf:  FileSearchDisp
  4078. // Flags:     (4416) Dual OleAutomation Dispatchable
  4079. // GUID:      {000C0332-0000-0000-C000-000000000046}
  4080. // *********************************************************************//
  4081.   FileSearchDisp = dispinterface
  4082.     ['{000C0332-0000-0000-C000-000000000046}']
  4083.     property SearchSubFolders: WordBool dispid 1;
  4084.     property MatchTextExactly: WordBool dispid 2;
  4085.     property MatchAllWordForms: WordBool dispid 3;
  4086.     property FileName: WideString dispid 4;
  4087.     property FileType: MsoFileType dispid 5;
  4088.     property LastModified: MsoLastModified dispid 6;
  4089.     property TextOrProperty: WideString dispid 7;
  4090.     property LookIn: WideString dispid 8;
  4091.     function  Execute(SortBy: MsoSortBy; SortOrder: MsoSortOrder; AlwaysAccurate: WordBool): SYSINT; dispid 9;
  4092.     procedure NewSearch; dispid 10;
  4093.     property FoundFiles: FoundFiles readonly dispid 11;
  4094.     property PropertyTests: PropertyTests readonly dispid 12;
  4095.     property Application: IDispatch readonly dispid 1610743808;
  4096.     property Creator: Integer readonly dispid 1610743809;
  4097.   end;
  4098.  
  4099. implementation
  4100.  
  4101. uses ComObj;
  4102.  
  4103. end.
  4104.