home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Ocx / Servers / msforms97.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-04  |  229.9 KB  |  4,445 lines
  1. unit MSForms97;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.10  $
  15. // File generated on 6/3/99 9:50:05 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\typelib\fm20.dll (1)
  19. // IID\LCID: {0D452EE1-E08F-101A-852E-02608C4D0BB4}\0
  20. // Helpfile: C:\WINNT\System32\fm20.hlp
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  23. // Parent TypeLibrary:
  24. //   (0) v8.0 Outlook, (typelibraries\msoutl8.olb)
  25. // Errors:
  26. //   Hint: TypeInfo 'Label' changed to 'Label_'
  27. //   Hint: Member 'Object' of 'IControl' changed to 'Object_'
  28. //   Hint: Parameter 'Object' of IControl.Object changed to 'Object_'
  29. // ************************************************************************ //
  30. interface
  31.  
  32. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, DbOleCtl;
  33.  
  34. // *********************************************************************//
  35. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  36. //   Type Libraries     : LIBID_xxxx                                      
  37. //   CoClasses          : CLASS_xxxx                                      
  38. //   DISPInterfaces     : DIID_xxxx                                       
  39. //   Non-DISP interfaces: IID_xxxx                                        
  40. // *********************************************************************//
  41. const
  42.   // TypeLibrary Major and minor versions
  43.   MSFormsMajorVersion = 2;
  44.   MSFormsMinorVersion = 0;
  45.  
  46.   LIBID_MSForms: TGUID = '{0D452EE1-E08F-101A-852E-02608C4D0BB4}';
  47.  
  48.   IID_IFont: TGUID = '{BEF6E002-A874-101A-8BBA-00AA00300CAB}';
  49.   DIID_Font: TGUID = '{BEF6E003-A874-101A-8BBA-00AA00300CAB}';
  50.   IID_IDataAutoWrapper: TGUID = '{EC72F590-F375-11CE-B9E8-00AA006B1A69}';
  51.   IID_IReturnInteger: TGUID = '{82B02370-B5BC-11CF-810F-00A0C9030074}';
  52.   IID_IReturnBoolean: TGUID = '{82B02371-B5BC-11CF-810F-00A0C9030074}';
  53.   IID_IReturnString: TGUID = '{82B02372-B5BC-11CF-810F-00A0C9030074}';
  54.   IID_IReturnSingle: TGUID = '{8A683C90-BA84-11CF-8110-00A0C9030074}';
  55.   IID_IReturnEffect: TGUID = '{8A683C91-BA84-11CF-8110-00A0C9030074}';
  56.   CLASS_ReturnInteger: TGUID = '{82B02373-B5BC-11CF-810F-00A0C9030074}';
  57.   CLASS_ReturnBoolean: TGUID = '{82B02374-B5BC-11CF-810F-00A0C9030074}';
  58.   CLASS_ReturnString: TGUID = '{82B02375-B5BC-11CF-810F-00A0C9030074}';
  59.   CLASS_ReturnSingle: TGUID = '{8A683C92-BA84-11CF-8110-00A0C9030074}';
  60.   CLASS_ReturnEffect: TGUID = '{8A683C93-BA84-11CF-8110-00A0C9030074}';
  61.   CLASS_DataObject: TGUID = '{1C3B4210-F441-11CE-B9EA-00AA006B1A69}';
  62.   IID_IControl: TGUID = '{04598FC6-866C-11CF-AB7C-00AA00C08FCF}';
  63.   IID_Controls: TGUID = '{04598FC7-866C-11CF-AB7C-00AA00C08FCF}';
  64.   IID_IOptionFrame: TGUID = '{29B86A70-F52E-11CE-9BCE-00AA00608E01}';
  65.   IID__UserForm: TGUID = '{04598FC8-866C-11CF-AB7C-00AA00C08FCF}';
  66.   DIID_ControlEvents: TGUID = '{9A4BBF53-4E46-101B-8BBD-00AA003E3B29}';
  67.   CLASS_Control: TGUID = '{909E0AE0-16DC-11CE-9E98-00AA00574A4F}';
  68.   DIID_FormEvents: TGUID = '{5B9D8FC8-4A71-101B-97A6-00000B65C08B}';
  69.   DIID_OptionFrameEvents: TGUID = '{CF3F94A0-F546-11CE-9BCE-00AA00608E01}';
  70.   CLASS_UserForm: TGUID = '{C62A69F0-16DC-11CE-9E98-00AA00574A4F}';
  71.   CLASS_Frame: TGUID = '{6E182020-F460-11CE-9BCD-00AA00608E01}';
  72.   IID_ILabelControl: TGUID = '{04598FC1-866C-11CF-AB7C-00AA00C08FCF}';
  73.   IID_ICommandButton: TGUID = '{04598FC4-866C-11CF-AB7C-00AA00C08FCF}';
  74.   IID_IMdcText: TGUID = '{8BD21D13-EC42-11CE-9E0D-00AA006002F3}';
  75.   IID_IMdcList: TGUID = '{8BD21D23-EC42-11CE-9E0D-00AA006002F3}';
  76.   IID_IMdcCombo: TGUID = '{8BD21D33-EC42-11CE-9E0D-00AA006002F3}';
  77.   IID_IMdcCheckBox: TGUID = '{8BD21D43-EC42-11CE-9E0D-00AA006002F3}';
  78.   IID_IMdcOptionButton: TGUID = '{8BD21D53-EC42-11CE-9E0D-00AA006002F3}';
  79.   IID_IMdcToggleButton: TGUID = '{8BD21D63-EC42-11CE-9E0D-00AA006002F3}';
  80.   IID_IScrollbar: TGUID = '{04598FC3-866C-11CF-AB7C-00AA00C08FCF}';
  81.   IID_Tab: TGUID = '{A38BFFC3-A5A0-11CE-8107-00AA00611080}';
  82.   IID_Tabs: TGUID = '{944ACF93-A1E6-11CE-8104-00AA00611080}';
  83.   IID_ITabStrip: TGUID = '{04598FC2-866C-11CF-AB7C-00AA00C08FCF}';
  84.   IID_ISpinbutton: TGUID = '{79176FB3-B7F2-11CE-97EF-00AA006D2776}';
  85.   IID_IImage: TGUID = '{4C599243-6926-101B-9992-00000B65C6F9}';
  86.   IID_IWHTMLSubmitButton: TGUID = '{5512D111-5CC6-11CF-8D67-00AA00BDCE1D}';
  87.   IID_IWHTMLImage: TGUID = '{5512D113-5CC6-11CF-8D67-00AA00BDCE1D}';
  88.   IID_IWHTMLReset: TGUID = '{5512D115-5CC6-11CF-8D67-00AA00BDCE1D}';
  89.   IID_IWHTMLCheckbox: TGUID = '{5512D117-5CC6-11CF-8D67-00AA00BDCE1D}';
  90.   IID_IWHTMLOption: TGUID = '{5512D119-5CC6-11CF-8D67-00AA00BDCE1D}';
  91.   IID_IWHTMLText: TGUID = '{5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}';
  92.   IID_IWHTMLHidden: TGUID = '{5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}';
  93.   IID_IWHTMLPassword: TGUID = '{5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}';
  94.   IID_IWHTMLSelect: TGUID = '{5512D123-5CC6-11CF-8D67-00AA00BDCE1D}';
  95.   IID_IWHTMLTextArea: TGUID = '{5512D125-5CC6-11CF-8D67-00AA00BDCE1D}';
  96.   DIID_LabelControlEvents: TGUID = '{978C9E22-D4B0-11CE-BF2D-00AA003F40D0}';
  97.   CLASS_Label_: TGUID = '{978C9E23-D4B0-11CE-BF2D-00AA003F40D0}';
  98.   DIID_CommandButtonEvents: TGUID = '{7B020EC1-AF6C-11CE-9F46-00AA00574A4F}';
  99.   CLASS_CommandButton: TGUID = '{D7053240-CE69-11CD-A777-00DD01143C57}';
  100.   DIID_MdcTextEvents: TGUID = '{8BD21D12-EC42-11CE-9E0D-00AA006002F3}';
  101.   CLASS_TextBox: TGUID = '{8BD21D10-EC42-11CE-9E0D-00AA006002F3}';
  102.   DIID_MdcListEvents: TGUID = '{8BD21D22-EC42-11CE-9E0D-00AA006002F3}';
  103.   CLASS_ListBox: TGUID = '{8BD21D20-EC42-11CE-9E0D-00AA006002F3}';
  104.   DIID_MdcComboEvents: TGUID = '{8BD21D32-EC42-11CE-9E0D-00AA006002F3}';
  105.   CLASS_ComboBox: TGUID = '{8BD21D30-EC42-11CE-9E0D-00AA006002F3}';
  106.   DIID_MdcCheckBoxEvents: TGUID = '{8BD21D42-EC42-11CE-9E0D-00AA006002F3}';
  107.   DIID_MdcOptionButtonEvents: TGUID = '{8BD21D52-EC42-11CE-9E0D-00AA006002F3}';
  108.   DIID_MdcToggleButtonEvents: TGUID = '{8BD21D62-EC42-11CE-9E0D-00AA006002F3}';
  109.   CLASS_CheckBox: TGUID = '{8BD21D40-EC42-11CE-9E0D-00AA006002F3}';
  110.   CLASS_OptionButton: TGUID = '{8BD21D50-EC42-11CE-9E0D-00AA006002F3}';
  111.   CLASS_ToggleButton: TGUID = '{8BD21D60-EC42-11CE-9E0D-00AA006002F3}';
  112.   CLASS_NewFont: TGUID = '{AFC20920-DA4E-11CE-B943-00AA006887B4}';
  113.   DIID_ScrollbarEvents: TGUID = '{7B020EC2-AF6C-11CE-9F46-00AA00574A4F}';
  114.   CLASS_ScrollBar: TGUID = '{DFD181E0-5E2F-11CE-A449-00AA004A803D}';
  115.   DIID_TabStripEvents: TGUID = '{7B020EC7-AF6C-11CE-9F46-00AA00574A4F}';
  116.   CLASS_TabStrip: TGUID = '{EAE50EB0-4A62-11CE-BED6-00AA00611080}';
  117.   DIID_SpinbuttonEvents: TGUID = '{79176FB2-B7F2-11CE-97EF-00AA006D2776}';
  118.   CLASS_SpinButton: TGUID = '{79176FB0-B7F2-11CE-97EF-00AA006D2776}';
  119.   DIID_ImageEvents: TGUID = '{4C5992A5-6926-101B-9992-00000B65C6F9}';
  120.   CLASS_Image: TGUID = '{4C599241-6926-101B-9992-00000B65C6F9}';
  121.   DIID_WHTMLControlEvents: TGUID = '{796ED650-5FE9-11CF-8D68-00AA00BDCE1D}';
  122.   DIID_WHTMLControlEvents1: TGUID = '{47FF8FE0-6198-11CF-8CE8-00AA006CB389}';
  123.   DIID_WHTMLControlEvents2: TGUID = '{47FF8FE1-6198-11CF-8CE8-00AA006CB389}';
  124.   DIID_WHTMLControlEvents3: TGUID = '{47FF8FE2-6198-11CF-8CE8-00AA006CB389}';
  125.   DIID_WHTMLControlEvents4: TGUID = '{47FF8FE3-6198-11CF-8CE8-00AA006CB389}';
  126.   DIID_WHTMLControlEvents5: TGUID = '{47FF8FE4-6198-11CF-8CE8-00AA006CB389}';
  127.   DIID_WHTMLControlEvents6: TGUID = '{47FF8FE5-6198-11CF-8CE8-00AA006CB389}';
  128.   DIID_WHTMLControlEvents7: TGUID = '{47FF8FE6-6198-11CF-8CE8-00AA006CB389}';
  129.   DIID_WHTMLControlEvents9: TGUID = '{47FF8FE8-6198-11CF-8CE8-00AA006CB389}';
  130.   DIID_WHTMLControlEvents10: TGUID = '{47FF8FE9-6198-11CF-8CE8-00AA006CB389}';
  131.   CLASS_HTMLSubmit: TGUID = '{5512D110-5CC6-11CF-8D67-00AA00BDCE1D}';
  132.   CLASS_HTMLImage: TGUID = '{5512D112-5CC6-11CF-8D67-00AA00BDCE1D}';
  133.   CLASS_HTMLReset: TGUID = '{5512D114-5CC6-11CF-8D67-00AA00BDCE1D}';
  134.   CLASS_HTMLCheckbox: TGUID = '{5512D116-5CC6-11CF-8D67-00AA00BDCE1D}';
  135.   CLASS_HTMLOption: TGUID = '{5512D118-5CC6-11CF-8D67-00AA00BDCE1D}';
  136.   CLASS_HTMLText: TGUID = '{5512D11A-5CC6-11CF-8D67-00AA00BDCE1D}';
  137.   CLASS_HTMLHidden: TGUID = '{5512D11C-5CC6-11CF-8D67-00AA00BDCE1D}';
  138.   CLASS_HTMLPassword: TGUID = '{5512D11E-5CC6-11CF-8D67-00AA00BDCE1D}';
  139.   CLASS_HTMLSelect: TGUID = '{5512D122-5CC6-11CF-8D67-00AA00BDCE1D}';
  140.   CLASS_HTMLTextArea: TGUID = '{5512D124-5CC6-11CF-8D67-00AA00BDCE1D}';
  141.   IID_IPage: TGUID = '{5CEF5613-713D-11CE-80C9-00AA00611080}';
  142.   IID_Pages: TGUID = '{92E11A03-7358-11CE-80CB-00AA00611080}';
  143.   IID_IMultiPage: TGUID = '{04598FC9-866C-11CF-AB7C-00AA00C08FCF}';
  144.   DIID_MultiPageEvents: TGUID = '{7B020EC8-AF6C-11CE-9F46-00AA00574A4F}';
  145.   CLASS_MultiPage: TGUID = '{46E31370-3F7A-11CE-BED6-00AA00611080}';
  146.   CLASS_Page: TGUID = '{5CEF5610-713D-11CE-80C9-00AA00611080}';
  147.  
  148. // *********************************************************************//
  149. // Declaration of Enumerations defined in Type Library                    
  150. // *********************************************************************//
  151. // fmDropEffect constants
  152. type
  153.   fmDropEffect = TOleEnum;
  154. const
  155.   fmDropEffectNone = $00000000;
  156.   fmDropEffectCopy = $00000001;
  157.   fmDropEffectMove = $00000002;
  158.   fmDropEffectCopyOrMove = $00000003;
  159.  
  160. // fmAction constants
  161. type
  162.   fmAction = TOleEnum;
  163. const
  164.   fmActionCut = $00000000;
  165.   fmActionCopy = $00000001;
  166.   fmActionPaste = $00000002;
  167.   fmActionDragDrop = $00000003;
  168.  
  169. // fmMode constants
  170. type
  171.   fmMode = TOleEnum;
  172. const
  173.   fmModeInherit = $FFFFFFFE;
  174.   fmModeOn = $FFFFFFFF;
  175.   fmModeOff = $00000000;
  176.  
  177. // fmMousePointer constants
  178. type
  179.   fmMousePointer = TOleEnum;
  180. const
  181.   fmMousePointerDefault = $00000000;
  182.   fmMousePointerArrow = $00000001;
  183.   fmMousePointerCross = $00000002;
  184.   fmMousePointerIBeam = $00000003;
  185.   fmMousePointerSizeNESW = $00000006;
  186.   fmMousePointerSizeNS = $00000007;
  187.   fmMousePointerSizeNWSE = $00000008;
  188.   fmMousePointerSizeWE = $00000009;
  189.   fmMousePointerUpArrow = $0000000A;
  190.   fmMousePointerHourGlass = $0000000B;
  191.   fmMousePointerNoDrop = $0000000C;
  192.   fmMousePointerAppStarting = $0000000D;
  193.   fmMousePointerHelp = $0000000E;
  194.   fmMousePointerSizeAll = $0000000F;
  195.   fmMousePointerCustom = $00000063;
  196.  
  197. // fmScrollBars constants
  198. type
  199.   fmScrollBars = TOleEnum;
  200. const
  201.   fmScrollBarsNone = $00000000;
  202.   fmScrollBarsHorizontal = $00000001;
  203.   fmScrollBarsVertical = $00000002;
  204.   fmScrollBarsBoth = $00000003;
  205.  
  206. // fmScrollAction constants
  207. type
  208.   fmScrollAction = TOleEnum;
  209. const
  210.   fmScrollActionNoChange = $00000000;
  211.   fmScrollActionLineUp = $00000001;
  212.   fmScrollActionLineDown = $00000002;
  213.   fmScrollActionPageUp = $00000003;
  214.   fmScrollActionPageDown = $00000004;
  215.   fmScrollActionBegin = $00000005;
  216.   fmScrollActionEnd = $00000006;
  217.   _fmScrollActionAbsoluteChange = $00000007;
  218.   fmScrollActionPropertyChange = $00000008;
  219.   fmScrollActionControlRequest = $00000009;
  220.   fmScrollActionFocusRequest = $0000000A;
  221.  
  222. // fmCycle constants
  223. type
  224.   fmCycle = TOleEnum;
  225. const
  226.   fmCycleAllForms = $00000000;
  227.   fmCycleCurrentForm = $00000002;
  228.  
  229. // fmZOrder constants
  230. type
  231.   fmZOrder = TOleEnum;
  232. const
  233.   fmZOrderFront = $00000000;
  234.   fmZOrderBack = $00000001;
  235.  
  236. // fmBorderStyle constants
  237. type
  238.   fmBorderStyle = TOleEnum;
  239. const
  240.   fmBorderStyleNone = $00000000;
  241.   fmBorderStyleSingle = $00000001;
  242.  
  243. // fmTextAlign constants
  244. type
  245.   fmTextAlign = TOleEnum;
  246. const
  247.   fmTextAlignLeft = $00000001;
  248.   fmTextAlignCenter = $00000002;
  249.   fmTextAlignRight = $00000003;
  250.  
  251. // fmAlignment constants
  252. type
  253.   fmAlignment = TOleEnum;
  254. const
  255.   fmAlignmentLeft = $00000000;
  256.   fmAlignmentRight = $00000001;
  257.  
  258. // fmBorders constants
  259. type
  260.   fmBorders = TOleEnum;
  261. const
  262.   fmBordersNone = $00000000;
  263.   fmBordersBox = $00000001;
  264.   fmBordersLeft = $00000002;
  265.   fmBordersTop = $00000003;
  266.  
  267. // fmBackStyle constants
  268. type
  269.   fmBackStyle = TOleEnum;
  270. const
  271.   fmBackStyleTransparent = $00000000;
  272.   fmBackStyleOpaque = $00000001;
  273.  
  274. // fmButtonStyle constants
  275. type
  276.   fmButtonStyle = TOleEnum;
  277. const
  278.   fmButtonStylePushButton = $00000000;
  279.   fmButtonStyleToggleButton = $00000001;
  280.  
  281. // fmPicPosition constants
  282. type
  283.   fmPicPosition = TOleEnum;
  284. const
  285.   fmPicPositionCenter = $00000000;
  286.   fmPicPositionTopLeft = $00000001;
  287.   fmPicPositionTopCenter = $00000002;
  288.   fmPicPositionTopRight = $00000003;
  289.   fmPicPositionCenterLeft = $00000004;
  290.   fmPicPositionCenterRight = $00000005;
  291.   fmPicPositionBottomLeft = $00000006;
  292.   fmPicPositionBottomCenter = $00000007;
  293.   fmPicPositionBottomRight = $00000008;
  294.  
  295. // fmVerticalScrollBarSide constants
  296. type
  297.   fmVerticalScrollBarSide = TOleEnum;
  298. const
  299.   fmVerticalScrollBarSideRight = $00000000;
  300.   fmVerticalScrollBarSideLeft = $00000001;
  301.  
  302. // fmLayoutEffect constants
  303. type
  304.   fmLayoutEffect = TOleEnum;
  305. const
  306.   fmLayoutEffectNone = $00000000;
  307.   fmLayoutEffectInitiate = $00000001;
  308.   _fmLayoutEffectRespond = $00000002;
  309.  
  310. // fmSpecialEffect constants
  311. type
  312.   fmSpecialEffect = TOleEnum;
  313. const
  314.   fmSpecialEffectFlat = $00000000;
  315.   fmSpecialEffectRaised = $00000001;
  316.   fmSpecialEffectSunken = $00000002;
  317.   fmSpecialEffectEtched = $00000003;
  318.   fmSpecialEffectBump = $00000006;
  319.  
  320. // fmDragState constants
  321. type
  322.   fmDragState = TOleEnum;
  323. const
  324.   fmDragStateEnter = $00000000;
  325.   fmDragStateLeave = $00000001;
  326.   fmDragStateOver = $00000002;
  327.  
  328. // fmPictureSizeMode constants
  329. type
  330.   fmPictureSizeMode = TOleEnum;
  331. const
  332.   fmPictureSizeModeClip = $00000000;
  333.   fmPictureSizeModeStretch = $00000001;
  334.   fmPictureSizeModeZoom = $00000003;
  335.  
  336. // fmPictureAlignment constants
  337. type
  338.   fmPictureAlignment = TOleEnum;
  339. const
  340.   fmPictureAlignmentTopLeft = $00000000;
  341.   fmPictureAlignmentTopRight = $00000001;
  342.   fmPictureAlignmentCenter = $00000002;
  343.   fmPictureAlignmentBottomLeft = $00000003;
  344.   fmPictureAlignmentBottomRight = $00000004;
  345.  
  346. // fmButtonEffect constants
  347. type
  348.   fmButtonEffect = TOleEnum;
  349. const
  350.   fmButtonEffectFlat = $00000000;
  351.   fmButtonEffectSunken = $00000002;
  352.  
  353. // fmOrientation constants
  354. type
  355.   fmOrientation = TOleEnum;
  356. const
  357.   fmOrientationAuto = $FFFFFFFF;
  358.   fmOrientationVertical = $00000000;
  359.   fmOrientationHorizontal = $00000001;
  360.  
  361. // fmSnapPoint constants
  362. type
  363.   fmSnapPoint = TOleEnum;
  364. const
  365.   fmSnapPointTopLeft = $00000000;
  366.   fmSnapPointTopCenter = $00000001;
  367.   fmSnapPointTopRight = $00000002;
  368.   fmSnapPointCenterLeft = $00000003;
  369.   fmSnapPointCenter = $00000004;
  370.   fmSnapPointCenterRight = $00000005;
  371.   fmSnapPointBottomLeft = $00000006;
  372.   fmSnapPointBottomCenter = $00000007;
  373.   fmSnapPointBottomRight = $00000008;
  374.  
  375. // fmPicturePosition constants
  376. type
  377.   fmPicturePosition = TOleEnum;
  378. const
  379.   fmPicturePositionLeftTop = $00000000;
  380.   fmPicturePositionLeftCenter = $00000001;
  381.   fmPicturePositionLeftBottom = $00000002;
  382.   fmPicturePositionRightTop = $00000003;
  383.   fmPicturePositionRightCenter = $00000004;
  384.   fmPicturePositionRightBottom = $00000005;
  385.   fmPicturePositionAboveLeft = $00000006;
  386.   fmPicturePositionAboveCenter = $00000007;
  387.   fmPicturePositionAboveRight = $00000008;
  388.   fmPicturePositionBelowLeft = $00000009;
  389.   fmPicturePositionBelowCenter = $0000000A;
  390.   fmPicturePositionBelowRight = $0000000B;
  391.   fmPicturePositionCenter = $0000000C;
  392.  
  393. // fmDisplayStyle constants
  394. type
  395.   fmDisplayStyle = TOleEnum;
  396. const
  397.   fmDisplayStyleText = $00000001;
  398.   fmDisplayStyleList = $00000002;
  399.   fmDisplayStyleCombo = $00000003;
  400.   fmDisplayStyleCheckBox = $00000004;
  401.   fmDisplayStyleOptionButton = $00000005;
  402.   fmDisplayStyleToggle = $00000006;
  403.   fmDisplayStyleDropList = $00000007;
  404.  
  405. // fmShowListWhen constants
  406. type
  407.   fmShowListWhen = TOleEnum;
  408. const
  409.   fmShowListWhenNever = $00000000;
  410.   fmShowListWhenButton = $00000001;
  411.   fmShowListWhenFocus = $00000002;
  412.   fmShowListWhenAlways = $00000003;
  413.  
  414. // fmShowDropButtonWhen constants
  415. type
  416.   fmShowDropButtonWhen = TOleEnum;
  417. const
  418.   fmShowDropButtonWhenNever = $00000000;
  419.   fmShowDropButtonWhenFocus = $00000001;
  420.   fmShowDropButtonWhenAlways = $00000002;
  421.  
  422. // fmMultiSelect constants
  423. type
  424.   fmMultiSelect = TOleEnum;
  425. const
  426.   fmMultiSelectSingle = $00000000;
  427.   fmMultiSelectMulti = $00000001;
  428.   fmMultiSelectExtended = $00000002;
  429.  
  430. // fmListStyle constants
  431. type
  432.   fmListStyle = TOleEnum;
  433. const
  434.   fmListStylePlain = $00000000;
  435.   fmListStyleOption = $00000001;
  436.  
  437. // fmEnterFieldBehavior constants
  438. type
  439.   fmEnterFieldBehavior = TOleEnum;
  440. const
  441.   fmEnterFieldBehaviorSelectAll = $00000000;
  442.   fmEnterFieldBehaviorRecallSelection = $00000001;
  443.  
  444. // fmDragBehavior constants
  445. type
  446.   fmDragBehavior = TOleEnum;
  447. const
  448.   fmDragBehaviorDisabled = $00000000;
  449.   fmDragBehaviorEnabled = $00000001;
  450.  
  451. // fmMatchEntry constants
  452. type
  453.   fmMatchEntry = TOleEnum;
  454. const
  455.   fmMatchEntryFirstLetter = $00000000;
  456.   fmMatchEntryComplete = $00000001;
  457.   fmMatchEntryNone = $00000002;
  458.  
  459. // fmDropButtonStyle constants
  460. type
  461.   fmDropButtonStyle = TOleEnum;
  462. const
  463.   fmDropButtonStylePlain = $00000000;
  464.   fmDropButtonStyleArrow = $00000001;
  465.   fmDropButtonStyleEllipsis = $00000002;
  466.   fmDropButtonStyleReduce = $00000003;
  467.  
  468. // fmStyle constants
  469. type
  470.   fmStyle = TOleEnum;
  471. const
  472.   fmStyleDropDownCombo = $00000000;
  473.   fmStyleDropDownList = $00000002;
  474.  
  475. // fmTabOrientation constants
  476. type
  477.   fmTabOrientation = TOleEnum;
  478. const
  479.   fmTabOrientationTop = $00000000;
  480.   fmTabOrientationBottom = $00000001;
  481.   fmTabOrientationLeft = $00000002;
  482.   fmTabOrientationRight = $00000003;
  483.  
  484. // fmTabStyle constants
  485. type
  486.   fmTabStyle = TOleEnum;
  487. const
  488.   fmTabStyleTabs = $00000000;
  489.   fmTabStyleButtons = $00000001;
  490.   fmTabStyleNone = $00000002;
  491.  
  492. // fmIMEMode constants
  493. type
  494.   fmIMEMode = TOleEnum;
  495. const
  496.   fmIMEModeNoControl = $00000000;
  497.   fmIMEModeOn = $00000001;
  498.   fmIMEModeOff = $00000002;
  499.   fmIMEModeDisable = $00000003;
  500.   fmIMEModeHiragana = $00000004;
  501.   fmIMEModeKatakana = $00000005;
  502.   fmIMEModeKatakanaHalf = $00000006;
  503.   fmIMEModeAlphaFull = $00000007;
  504.   fmIMEModeAlpha = $00000008;
  505.   fmIMEModeHangulFull = $00000009;
  506.   fmIMEModeHangul = $0000000A;
  507.   fmIMEModeHanziFull = $0000000B;
  508.   fmIMEModeHanzi = $0000000C;
  509.  
  510. // fmTransitionEffect constants
  511. type
  512.   fmTransitionEffect = TOleEnum;
  513. const
  514.   fmTransitionEffectNone = $00000000;
  515.   fmTransitionEffectCoverUp = $00000001;
  516.   fmTransitionEffectCoverRightUp = $00000002;
  517.   fmTransitionEffectCoverRight = $00000003;
  518.   fmTransitionEffectCoverRightDown = $00000004;
  519.   fmTransitionEffectCoverDown = $00000005;
  520.   fmTransitionEffectCoverLeftDown = $00000006;
  521.   fmTransitionEffectCoverLeft = $00000007;
  522.   fmTransitionEffectCoverLeftUp = $00000008;
  523.   fmTransitionEffectPushUp = $00000009;
  524.   fmTransitionEffectPushRight = $0000000A;
  525.   fmTransitionEffectPushDown = $0000000B;
  526.   fmTransitionEffectPushLeft = $0000000C;
  527.  
  528. // fmListBoxStyles constants
  529. type
  530.   fmListBoxStyles = TOleEnum;
  531. const
  532.   _fmListBoxStylesNone = $00000000;
  533.   _fmListBoxStylesListBox = $00000001;
  534.   _fmListBoxStylesComboBox = $00000002;
  535.  
  536. // fmRepeatDirection constants
  537. type
  538.   fmRepeatDirection = TOleEnum;
  539. const
  540.   _fmRepeatDirectionHorizontal = $00000000;
  541.   _fmRepeatDirectionVertical = $00000001;
  542.  
  543. // fmEnAutoSize constants
  544. type
  545.   fmEnAutoSize = TOleEnum;
  546. const
  547.   _fmEnAutoSizeNone = $00000000;
  548.   _fmEnAutoSizeHorizontal = $00000001;
  549.   _fmEnAutoSizeVertical = $00000002;
  550.   _fmEnAutoSizeBoth = $00000003;
  551.  
  552. type
  553.  
  554. // *********************************************************************//
  555. // Forward declaration of types defined in TypeLibrary                    
  556. // *********************************************************************//
  557.   IFont = interface;
  558.   Font = dispinterface;
  559.   IDataAutoWrapper = interface;
  560.   IDataAutoWrapperDisp = dispinterface;
  561.   IReturnInteger = interface;
  562.   IReturnIntegerDisp = dispinterface;
  563.   IReturnBoolean = interface;
  564.   IReturnBooleanDisp = dispinterface;
  565.   IReturnString = interface;
  566.   IReturnStringDisp = dispinterface;
  567.   IReturnSingle = interface;
  568.   IReturnSingleDisp = dispinterface;
  569.   IReturnEffect = interface;
  570.   IReturnEffectDisp = dispinterface;
  571.   IControl = interface;
  572.   IControlDisp = dispinterface;
  573.   Controls = interface;
  574.   ControlsDisp = dispinterface;
  575.   IOptionFrame = interface;
  576.   IOptionFrameDisp = dispinterface;
  577.   _UserForm = interface;
  578.   _UserFormDisp = dispinterface;
  579.   ControlEvents = dispinterface;
  580.   FormEvents = dispinterface;
  581.   OptionFrameEvents = dispinterface;
  582.   ILabelControl = interface;
  583.   ILabelControlDisp = dispinterface;
  584.   ICommandButton = interface;
  585.   ICommandButtonDisp = dispinterface;
  586.   IMdcText = interface;
  587.   IMdcTextDisp = dispinterface;
  588.   IMdcList = interface;
  589.   IMdcListDisp = dispinterface;
  590.   IMdcCombo = interface;
  591.   IMdcComboDisp = dispinterface;
  592.   IMdcCheckBox = interface;
  593.   IMdcCheckBoxDisp = dispinterface;
  594.   IMdcOptionButton = interface;
  595.   IMdcOptionButtonDisp = dispinterface;
  596.   IMdcToggleButton = interface;
  597.   IMdcToggleButtonDisp = dispinterface;
  598.   IScrollbar = interface;
  599.   IScrollbarDisp = dispinterface;
  600.   Tab = interface;
  601.   TabDisp = dispinterface;
  602.   Tabs = interface;
  603.   TabsDisp = dispinterface;
  604.   ITabStrip = interface;
  605.   ITabStripDisp = dispinterface;
  606.   ISpinbutton = interface;
  607.   ISpinbuttonDisp = dispinterface;
  608.   IImage = interface;
  609.   IImageDisp = dispinterface;
  610.   IWHTMLSubmitButton = interface;
  611.   IWHTMLSubmitButtonDisp = dispinterface;
  612.   IWHTMLImage = interface;
  613.   IWHTMLImageDisp = dispinterface;
  614.   IWHTMLReset = interface;
  615.   IWHTMLResetDisp = dispinterface;
  616.   IWHTMLCheckbox = interface;
  617.   IWHTMLCheckboxDisp = dispinterface;
  618.   IWHTMLOption = interface;
  619.   IWHTMLOptionDisp = dispinterface;
  620.   IWHTMLText = interface;
  621.   IWHTMLTextDisp = dispinterface;
  622.   IWHTMLHidden = interface;
  623.   IWHTMLHiddenDisp = dispinterface;
  624.   IWHTMLPassword = interface;
  625.   IWHTMLPasswordDisp = dispinterface;
  626.   IWHTMLSelect = interface;
  627.   IWHTMLSelectDisp = dispinterface;
  628.   IWHTMLTextArea = interface;
  629.   IWHTMLTextAreaDisp = dispinterface;
  630.   LabelControlEvents = dispinterface;
  631.   CommandButtonEvents = dispinterface;
  632.   MdcTextEvents = dispinterface;
  633.   MdcListEvents = dispinterface;
  634.   MdcComboEvents = dispinterface;
  635.   MdcCheckBoxEvents = dispinterface;
  636.   MdcOptionButtonEvents = dispinterface;
  637.   MdcToggleButtonEvents = dispinterface;
  638.   ScrollbarEvents = dispinterface;
  639.   TabStripEvents = dispinterface;
  640.   SpinbuttonEvents = dispinterface;
  641.   ImageEvents = dispinterface;
  642.   WHTMLControlEvents = dispinterface;
  643.   WHTMLControlEvents1 = dispinterface;
  644.   WHTMLControlEvents2 = dispinterface;
  645.   WHTMLControlEvents3 = dispinterface;
  646.   WHTMLControlEvents4 = dispinterface;
  647.   WHTMLControlEvents5 = dispinterface;
  648.   WHTMLControlEvents6 = dispinterface;
  649.   WHTMLControlEvents7 = dispinterface;
  650.   WHTMLControlEvents9 = dispinterface;
  651.   WHTMLControlEvents10 = dispinterface;
  652.   IPage = interface;
  653.   IPageDisp = dispinterface;
  654.   Pages = interface;
  655.   PagesDisp = dispinterface;
  656.   IMultiPage = interface;
  657.   IMultiPageDisp = dispinterface;
  658.   MultiPageEvents = dispinterface;
  659.  
  660. // *********************************************************************//
  661. // Declaration of CoClasses defined in Type Library                       
  662. // (NOTE: Here we map each CoClass to its Default Interface)              
  663. // *********************************************************************//
  664.   ReturnInteger = IReturnInteger;
  665.   ReturnBoolean = IReturnBoolean;
  666.   ReturnString = IReturnString;
  667.   ReturnSingle = IReturnSingle;
  668.   ReturnEffect = IReturnEffect;
  669.   DataObject = IDataAutoWrapper;
  670.   Control = IControl;
  671.   UserForm = _UserForm;
  672.   Frame = IOptionFrame;
  673.   Label_ = ILabelControl;
  674.   CommandButton = ICommandButton;
  675.   TextBox = IMdcText;
  676.   ListBox = IMdcList;
  677.   ComboBox = IMdcCombo;
  678.   CheckBox = IMdcCheckBox;
  679.   OptionButton = IMdcOptionButton;
  680.   ToggleButton = IMdcToggleButton;
  681.   NewFont = Font;
  682.   ScrollBar = IScrollbar;
  683.   TabStrip = ITabStrip;
  684.   SpinButton = ISpinbutton;
  685.   Image = IImage;
  686.   HTMLSubmit = IWHTMLSubmitButton;
  687.   HTMLImage = IWHTMLImage;
  688.   HTMLReset = IWHTMLReset;
  689.   HTMLCheckbox = IWHTMLCheckbox;
  690.   HTMLOption = IWHTMLOption;
  691.   HTMLText = IWHTMLText;
  692.   HTMLHidden = IWHTMLHidden;
  693.   HTMLPassword = IWHTMLPassword;
  694.   HTMLSelect = IWHTMLSelect;
  695.   HTMLTextArea = IWHTMLTextArea;
  696.   MultiPage = IMultiPage;
  697.   Page = IPage;
  698.  
  699.  
  700. // *********************************************************************//
  701. // Declaration of structures, unions and aliases.                         
  702. // *********************************************************************//
  703.   POleVariant1 = ^OleVariant; {*}
  704.   PInteger1 = ^Integer; {*}
  705.  
  706.   OLE_COLOR = Integer; 
  707.   OLE_HANDLE = Integer; 
  708.   OLE_OPTEXCLUSIVE = WordBool; 
  709.   PIROWSET = IUnknown; 
  710.  
  711. // *********************************************************************//
  712. // Interface: IFont
  713. // Flags:     (16) Hidden
  714. // GUID:      {BEF6E002-A874-101A-8BBA-00AA00300CAB}
  715. // *********************************************************************//
  716.   IFont = interface(IUnknown)
  717.     ['{BEF6E002-A874-101A-8BBA-00AA00300CAB}']
  718.     function  Get_Name(out pname: WideString): HResult; stdcall;
  719.     function  Set_Name(const pname: WideString): HResult; stdcall;
  720.     function  Get_Size(out psize: Currency): HResult; stdcall;
  721.     function  Set_Size(psize: Currency): HResult; stdcall;
  722.     function  Get_Bold(out pbold: WordBool): HResult; stdcall;
  723.     function  Set_Bold(pbold: WordBool): HResult; stdcall;
  724.     function  Get_Italic(out pitalic: WordBool): HResult; stdcall;
  725.     function  Set_Italic(pitalic: WordBool): HResult; stdcall;
  726.     function  Get_Underline(out punderline: WordBool): HResult; stdcall;
  727.     function  Set_Underline(punderline: WordBool): HResult; stdcall;
  728.     function  Get_Strikethrough(out pstrikethrough: WordBool): HResult; stdcall;
  729.     function  Set_Strikethrough(pstrikethrough: WordBool): HResult; stdcall;
  730.     function  Get_Weight(out pweight: Smallint): HResult; stdcall;
  731.     function  Set_Weight(pweight: Smallint): HResult; stdcall;
  732.     function  Get_Charset(out pcharset: Smallint): HResult; stdcall;
  733.     function  Set_Charset(pcharset: Smallint): HResult; stdcall;
  734.     function  Get_hFont(out phfont: OLE_HANDLE): HResult; stdcall;
  735.     function  Clone(out lplpfont: IFont): HResult; stdcall;
  736.     function  IsEqual(const lpFontOther: IFont): HResult; stdcall;
  737.     function  SetRatio(cyLogical: Integer; cyHimetric: Integer): HResult; stdcall;
  738.     function  AddRefHfont(hFont: OLE_HANDLE): HResult; stdcall;
  739.     function  ReleaseHfont(hFont: OLE_HANDLE): HResult; stdcall;
  740.   end;
  741.  
  742. // *********************************************************************//
  743. // DispIntf:  Font
  744. // Flags:     (4096) Dispatchable
  745. // GUID:      {BEF6E003-A874-101A-8BBA-00AA00300CAB}
  746. // *********************************************************************//
  747.   Font = dispinterface
  748.     ['{BEF6E003-A874-101A-8BBA-00AA00300CAB}']
  749.     property Name: WideString dispid 0;
  750.     property Size: Currency dispid 2;
  751.     property Bold: WordBool dispid 3;
  752.     property Italic: WordBool dispid 4;
  753.     property Underline: WordBool dispid 5;
  754.     property Strikethrough: WordBool dispid 6;
  755.     property Weight: Smallint dispid 7;
  756.     property Charset: Smallint dispid 8;
  757.   end;
  758.  
  759. // *********************************************************************//
  760. // Interface: IDataAutoWrapper
  761. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  762. // GUID:      {EC72F590-F375-11CE-B9E8-00AA006B1A69}
  763. // *********************************************************************//
  764.   IDataAutoWrapper = interface(IDispatch)
  765.     ['{EC72F590-F375-11CE-B9E8-00AA006B1A69}']
  766.     procedure Clear; safecall;
  767.     function  GetFormat(Format: OleVariant): WordBool; safecall;
  768.     function  GetText(Format: OleVariant): WideString; safecall;
  769.     procedure SetText(const Text: WideString; Format: OleVariant); safecall;
  770.     procedure PutInClipboard; safecall;
  771.     procedure GetFromClipboard; safecall;
  772.     function  StartDrag(OKEffect: OleVariant): fmDropEffect; safecall;
  773.   end;
  774.  
  775. // *********************************************************************//
  776. // DispIntf:  IDataAutoWrapperDisp
  777. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  778. // GUID:      {EC72F590-F375-11CE-B9E8-00AA006B1A69}
  779. // *********************************************************************//
  780.   IDataAutoWrapperDisp = dispinterface
  781.     ['{EC72F590-F375-11CE-B9E8-00AA006B1A69}']
  782.     procedure Clear; dispid 1610743808;
  783.     function  GetFormat(Format: OleVariant): WordBool; dispid 1610743809;
  784.     function  GetText(Format: OleVariant): WideString; dispid 1610743810;
  785.     procedure SetText(const Text: WideString; Format: OleVariant); dispid 1610743811;
  786.     procedure PutInClipboard; dispid 1610743812;
  787.     procedure GetFromClipboard; dispid 1610743813;
  788.     function  StartDrag(OKEffect: OleVariant): fmDropEffect; dispid 1610743814;
  789.   end;
  790.  
  791. // *********************************************************************//
  792. // Interface: IReturnInteger
  793. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  794. // GUID:      {82B02370-B5BC-11CF-810F-00A0C9030074}
  795. // *********************************************************************//
  796.   IReturnInteger = interface(IDispatch)
  797.     ['{82B02370-B5BC-11CF-810F-00A0C9030074}']
  798.     procedure Set_Value(Value: SYSINT); safecall;
  799.     function  Get_Value: SYSINT; safecall;
  800.     property Value: SYSINT read Get_Value write Set_Value;
  801.   end;
  802.  
  803. // *********************************************************************//
  804. // DispIntf:  IReturnIntegerDisp
  805. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  806. // GUID:      {82B02370-B5BC-11CF-810F-00A0C9030074}
  807. // *********************************************************************//
  808.   IReturnIntegerDisp = dispinterface
  809.     ['{82B02370-B5BC-11CF-810F-00A0C9030074}']
  810.     property Value: SYSINT dispid 0;
  811.   end;
  812.  
  813. // *********************************************************************//
  814. // Interface: IReturnBoolean
  815. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  816. // GUID:      {82B02371-B5BC-11CF-810F-00A0C9030074}
  817. // *********************************************************************//
  818.   IReturnBoolean = interface(IDispatch)
  819.     ['{82B02371-B5BC-11CF-810F-00A0C9030074}']
  820.     procedure Set_Value(Value: WordBool); safecall;
  821.     function  Get_Value: WordBool; safecall;
  822.     property Value: WordBool read Get_Value write Set_Value;
  823.   end;
  824.  
  825. // *********************************************************************//
  826. // DispIntf:  IReturnBooleanDisp
  827. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  828. // GUID:      {82B02371-B5BC-11CF-810F-00A0C9030074}
  829. // *********************************************************************//
  830.   IReturnBooleanDisp = dispinterface
  831.     ['{82B02371-B5BC-11CF-810F-00A0C9030074}']
  832.     property Value: WordBool dispid 0;
  833.   end;
  834.  
  835. // *********************************************************************//
  836. // Interface: IReturnString
  837. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  838. // GUID:      {82B02372-B5BC-11CF-810F-00A0C9030074}
  839. // *********************************************************************//
  840.   IReturnString = interface(IDispatch)
  841.     ['{82B02372-B5BC-11CF-810F-00A0C9030074}']
  842.     procedure Set_Value(const Value: WideString); safecall;
  843.     function  Get_Value: WideString; safecall;
  844.     property Value: WideString read Get_Value write Set_Value;
  845.   end;
  846.  
  847. // *********************************************************************//
  848. // DispIntf:  IReturnStringDisp
  849. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  850. // GUID:      {82B02372-B5BC-11CF-810F-00A0C9030074}
  851. // *********************************************************************//
  852.   IReturnStringDisp = dispinterface
  853.     ['{82B02372-B5BC-11CF-810F-00A0C9030074}']
  854.     property Value: WideString dispid 0;
  855.   end;
  856.  
  857. // *********************************************************************//
  858. // Interface: IReturnSingle
  859. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  860. // GUID:      {8A683C90-BA84-11CF-8110-00A0C9030074}
  861. // *********************************************************************//
  862.   IReturnSingle = interface(IDispatch)
  863.     ['{8A683C90-BA84-11CF-8110-00A0C9030074}']
  864.     procedure Set_Value(Value: Single); safecall;
  865.     function  Get_Value: Single; safecall;
  866.     property Value: Single read Get_Value write Set_Value;
  867.   end;
  868.  
  869. // *********************************************************************//
  870. // DispIntf:  IReturnSingleDisp
  871. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  872. // GUID:      {8A683C90-BA84-11CF-8110-00A0C9030074}
  873. // *********************************************************************//
  874.   IReturnSingleDisp = dispinterface
  875.     ['{8A683C90-BA84-11CF-8110-00A0C9030074}']
  876.     property Value: Single dispid 0;
  877.   end;
  878.  
  879. // *********************************************************************//
  880. // Interface: IReturnEffect
  881. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  882. // GUID:      {8A683C91-BA84-11CF-8110-00A0C9030074}
  883. // *********************************************************************//
  884.   IReturnEffect = interface(IDispatch)
  885.     ['{8A683C91-BA84-11CF-8110-00A0C9030074}']
  886.     procedure Set_Value(Value: fmDropEffect); safecall;
  887.     function  Get_Value: fmDropEffect; safecall;
  888.     property Value: fmDropEffect read Get_Value write Set_Value;
  889.   end;
  890.  
  891. // *********************************************************************//
  892. // DispIntf:  IReturnEffectDisp
  893. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  894. // GUID:      {8A683C91-BA84-11CF-8110-00A0C9030074}
  895. // *********************************************************************//
  896.   IReturnEffectDisp = dispinterface
  897.     ['{8A683C91-BA84-11CF-8110-00A0C9030074}']
  898.     property Value: fmDropEffect dispid 0;
  899.   end;
  900.  
  901. // *********************************************************************//
  902. // Interface: IControl
  903. // Flags:     (4416) Dual OleAutomation Dispatchable
  904. // GUID:      {04598FC6-866C-11CF-AB7C-00AA00C08FCF}
  905. // *********************************************************************//
  906.   IControl = interface(IDispatch)
  907.     ['{04598FC6-866C-11CF-AB7C-00AA00C08FCF}']
  908.     procedure Set_Cancel(Cancel: WordBool); safecall;
  909.     function  Get_Cancel: WordBool; safecall;
  910.     procedure Set_ControlSource(const ControlSource: WideString); safecall;
  911.     function  Get_ControlSource: WideString; safecall;
  912.     procedure Set_ControlTipText(const ControlTipText: WideString); safecall;
  913.     function  Get_ControlTipText: WideString; safecall;
  914.     procedure Set_Default(Default: WordBool); safecall;
  915.     function  Get_Default: WordBool; safecall;
  916.     procedure _SetHeight(Height: Integer); safecall;
  917.     procedure _GetHeight(out Height: Integer); safecall;
  918.     procedure Set_Height(Height: Single); safecall;
  919.     function  Get_Height: Single; safecall;
  920.     procedure Set_HelpContextID(HelpContextID: Integer); safecall;
  921.     function  Get_HelpContextID: Integer; safecall;
  922.     procedure Set_InSelection(InSelection: WordBool); safecall;
  923.     function  Get_InSelection: WordBool; safecall;
  924.     function  Get_LayoutEffect: fmLayoutEffect; safecall;
  925.     procedure _SetLeft(Left: Integer); safecall;
  926.     procedure _GetLeft(out Left: Integer); safecall;
  927.     procedure Set_Left(Left: Single); safecall;
  928.     function  Get_Left: Single; safecall;
  929.     procedure Set_Name(const Name: WideString); safecall;
  930.     function  Get_Name: WideString; safecall;
  931.     procedure _GetOldHeight(out OldHeight: Integer); safecall;
  932.     function  Get_OldHeight: Single; safecall;
  933.     procedure _GetOldLeft(out OldLeft: Integer); safecall;
  934.     function  Get_OldLeft: Single; safecall;
  935.     procedure _GetOldTop(out OldTop: Integer); safecall;
  936.     function  Get_OldTop: Single; safecall;
  937.     procedure _GetOldWidth(out OldWidth: Integer); safecall;
  938.     function  Get_OldWidth: Single; safecall;
  939.     function  Get_Object_: IDispatch; safecall;
  940.     function  Get_Parent: IDispatch; safecall;
  941.     procedure Set_RowSource(const RowSource: WideString); safecall;
  942.     function  Get_RowSource: WideString; safecall;
  943.     procedure Set_RowSourceType(RowSourceType: Smallint); safecall;
  944.     function  Get_RowSourceType: Smallint; safecall;
  945.     procedure Set_TabIndex(TabIndex: Smallint); safecall;
  946.     function  Get_TabIndex: Smallint; safecall;
  947.     procedure Set_TabStop(TabStop: WordBool); safecall;
  948.     function  Get_TabStop: WordBool; safecall;
  949.     procedure Set_Tag(const Tag: WideString); safecall;
  950.     function  Get_Tag: WideString; safecall;
  951.     procedure _SetTop(Top: Integer); safecall;
  952.     procedure _GetTop(out Top: Integer); safecall;
  953.     procedure Set_Top(Top: Single); safecall;
  954.     function  Get_Top: Single; safecall;
  955.     procedure Set_BoundValue(var BoundValue: OleVariant); safecall;
  956.     function  Get_BoundValue: OleVariant; safecall;
  957.     procedure Set_Visible(Visible: WordBool); safecall;
  958.     function  Get_Visible: WordBool; safecall;
  959.     procedure _SetWidth(Width: Integer); safecall;
  960.     procedure _GetWidth(out Width: Integer); safecall;
  961.     procedure Set_Width(Width: Single); safecall;
  962.     function  Get_Width: Single; safecall;
  963.     procedure Move(Left: OleVariant; Top: OleVariant; Width: OleVariant; Height: OleVariant; 
  964.                    Layout: OleVariant); safecall;
  965.     procedure ZOrder(zPosition: OleVariant); safecall;
  966.     procedure Select(SelectInGroup: WordBool); safecall;
  967.     procedure SetFocus; safecall;
  968.     function  _GethWnd: SYSINT; safecall;
  969.     function  _GetID: Integer; safecall;
  970.     procedure _Move(Left: Integer; Top: Integer; Width: Integer; Height: Integer); safecall;
  971.     procedure _ZOrder(zPosition: fmZOrder); safecall;
  972.     property Cancel: WordBool read Get_Cancel write Set_Cancel;
  973.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  974.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  975.     property Default: WordBool read Get_Default write Set_Default;
  976.     property Height: Single read Get_Height write Set_Height;
  977.     property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
  978.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  979.     property LayoutEffect: fmLayoutEffect read Get_LayoutEffect;
  980.     property Left: Single read Get_Left write Set_Left;
  981.     property Name: WideString read Get_Name write Set_Name;
  982.     property OldHeight: Single read Get_OldHeight;
  983.     property OldLeft: Single read Get_OldLeft;
  984.     property OldTop: Single read Get_OldTop;
  985.     property OldWidth: Single read Get_OldWidth;
  986.     property Object_: IDispatch read Get_Object_;
  987.     property Parent: IDispatch read Get_Parent;
  988.     property RowSource: WideString read Get_RowSource write Set_RowSource;
  989.     property RowSourceType: Smallint read Get_RowSourceType write Set_RowSourceType;
  990.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  991.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  992.     property Tag: WideString read Get_Tag write Set_Tag;
  993.     property Top: Single read Get_Top write Set_Top;
  994.     property Visible: WordBool read Get_Visible write Set_Visible;
  995.     property Width: Single read Get_Width write Set_Width;
  996.   end;
  997.  
  998. // *********************************************************************//
  999. // DispIntf:  IControlDisp
  1000. // Flags:     (4416) Dual OleAutomation Dispatchable
  1001. // GUID:      {04598FC6-866C-11CF-AB7C-00AA00C08FCF}
  1002. // *********************************************************************//
  1003.   IControlDisp = dispinterface
  1004.     ['{04598FC6-866C-11CF-AB7C-00AA00C08FCF}']
  1005.     property Cancel: WordBool dispid -2147418056;
  1006.     property ControlSource: WideString dispid -2147385343;
  1007.     property ControlTipText: WideString dispid -2147418043;
  1008.     property Default: WordBool dispid -2147418057;
  1009.     procedure _SetHeight(Height: Integer); dispid 1610743816;
  1010.     procedure _GetHeight(out Height: Integer); dispid 1610743817;
  1011.     property Height: Single dispid -2147418106;
  1012.     property HelpContextID: Integer dispid -2147418062;
  1013.     property InSelection: WordBool dispid -2147385341;
  1014.     property LayoutEffect: fmLayoutEffect readonly dispid -2147385340;
  1015.     procedure _SetLeft(Left: Integer); dispid 1610743825;
  1016.     procedure _GetLeft(out Left: Integer); dispid 1610743826;
  1017.     property Left: Single dispid -2147418109;
  1018.     property Name: WideString dispid -2147418112;
  1019.     procedure _GetOldHeight(out OldHeight: Integer); dispid 1610743831;
  1020.     property OldHeight: Single readonly dispid -2147385339;
  1021.     procedure _GetOldLeft(out OldLeft: Integer); dispid 1610743833;
  1022.     property OldLeft: Single readonly dispid -2147385338;
  1023.     procedure _GetOldTop(out OldTop: Integer); dispid 1610743835;
  1024.     property OldTop: Single readonly dispid -2147385337;
  1025.     procedure _GetOldWidth(out OldWidth: Integer); dispid 1610743837;
  1026.     property OldWidth: Single readonly dispid -2147385336;
  1027.     property Object_: IDispatch readonly dispid -2147385335;
  1028.     property Parent: IDispatch readonly dispid -2147418104;
  1029.     property RowSource: WideString dispid -2147385330;
  1030.     property RowSourceType: Smallint dispid -2147385329;
  1031.     property TabIndex: Smallint dispid -2147418097;
  1032.     property TabStop: WordBool dispid -2147418098;
  1033.     property Tag: WideString dispid -2147418101;
  1034.     procedure _SetTop(Top: Integer); dispid 1610743851;
  1035.     procedure _GetTop(out Top: Integer); dispid 1610743852;
  1036.     property Top: Single dispid -2147418108;
  1037.     function  BoundValue(var BoundValue: OleVariant): {??POleVariant1} OleVariant; dispid -2147385328;
  1038.     property Visible: WordBool dispid -2147418105;
  1039.     procedure _SetWidth(Width: Integer); dispid 1610743859;
  1040.     procedure _GetWidth(out Width: Integer); dispid 1610743860;
  1041.     property Width: Single dispid -2147418107;
  1042.     procedure Move(Left: OleVariant; Top: OleVariant; Width: OleVariant; Height: OleVariant; 
  1043.                    Layout: OleVariant); dispid -2147385088;
  1044.     procedure ZOrder(zPosition: OleVariant); dispid -2147385083;
  1045.     procedure Select(SelectInGroup: WordBool); dispid -2147385086;
  1046.     procedure SetFocus; dispid -2147385085;
  1047.     function  _GethWnd: SYSINT; dispid 1610743867;
  1048.     function  _GetID: Integer; dispid 1610743868;
  1049.     procedure _Move(Left: Integer; Top: Integer; Width: Integer; Height: Integer); dispid 1610743869;
  1050.     procedure _ZOrder(zPosition: fmZOrder); dispid 1610743870;
  1051.   end;
  1052.  
  1053. // *********************************************************************//
  1054. // Interface: Controls
  1055. // Flags:     (4416) Dual OleAutomation Dispatchable
  1056. // GUID:      {04598FC7-866C-11CF-AB7C-00AA00C08FCF}
  1057. // *********************************************************************//
  1058.   Controls = interface(IDispatch)
  1059.     ['{04598FC7-866C-11CF-AB7C-00AA00C08FCF}']
  1060.     function  Get_Count: Integer; safecall;
  1061.     function  Get__NewEnum: IUnknown; safecall;
  1062.     function  Item(varg: OleVariant): IDispatch; safecall;
  1063.     procedure Clear; safecall;
  1064.     procedure _Move(cx: Integer; cy: Integer); safecall;
  1065.     procedure SelectAll; safecall;
  1066.     function  _AddByClass(var clsid: Integer): Control; safecall;
  1067.     procedure AlignToGrid; safecall;
  1068.     procedure BringForward; safecall;
  1069.     procedure BringToFront; safecall;
  1070.     procedure Copy; safecall;
  1071.     procedure Cut; safecall;
  1072.     function  Enum: IUnknown; safecall;
  1073.     function  _GetItemByIndex(lIndex: Integer): Control; safecall;
  1074.     function  _GetItemByName(const pstr: WideString): Control; safecall;
  1075.     function  _GetItemByID(ID: Integer): Control; safecall;
  1076.     procedure SendBackward; safecall;
  1077.     procedure SendToBack; safecall;
  1078.     procedure Move(cx: Single; cy: Single); safecall;
  1079.     function  Add(const bstrProgID: WideString; Name: OleVariant; Visible: OleVariant): Control; safecall;
  1080.     procedure Remove(varg: OleVariant); safecall;
  1081.     property Count: Integer read Get_Count;
  1082.     property _NewEnum: IUnknown read Get__NewEnum;
  1083.   end;
  1084.  
  1085. // *********************************************************************//
  1086. // DispIntf:  ControlsDisp
  1087. // Flags:     (4416) Dual OleAutomation Dispatchable
  1088. // GUID:      {04598FC7-866C-11CF-AB7C-00AA00C08FCF}
  1089. // *********************************************************************//
  1090.   ControlsDisp = dispinterface
  1091.     ['{04598FC7-866C-11CF-AB7C-00AA00C08FCF}']
  1092.     property Count: Integer readonly dispid 60;
  1093.     property _NewEnum: IUnknown readonly dispid -4;
  1094.     function  Item(varg: OleVariant): IDispatch; dispid 0;
  1095.     procedure Clear; dispid 62;
  1096.     procedure _Move(cx: Integer; cy: Integer); dispid 1610743812;
  1097.     procedure SelectAll; dispid 65;
  1098.     function  _AddByClass(var clsid: Integer): Control; dispid 1610743814;
  1099.     procedure AlignToGrid; dispid 1610743815;
  1100.     procedure BringForward; dispid 1610743816;
  1101.     procedure BringToFront; dispid 1610743817;
  1102.     procedure Copy; dispid 1610743818;
  1103.     procedure Cut; dispid 1610743819;
  1104.     function  Enum: IUnknown; dispid 1610743820;
  1105.     function  _GetItemByIndex(lIndex: Integer): Control; dispid 1610743821;
  1106.     function  _GetItemByName(const pstr: WideString): Control; dispid 1610743822;
  1107.     function  _GetItemByID(ID: Integer): Control; dispid 1610743823;
  1108.     procedure SendBackward; dispid 1610743824;
  1109.     procedure SendToBack; dispid 1610743825;
  1110.     procedure Move(cx: Single; cy: Single); dispid 63;
  1111.     function  Add(const bstrProgID: WideString; Name: OleVariant; Visible: OleVariant): Control; dispid 66;
  1112.     procedure Remove(varg: OleVariant); dispid 67;
  1113.   end;
  1114.  
  1115. // *********************************************************************//
  1116. // Interface: IOptionFrame
  1117. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1118. // GUID:      {29B86A70-F52E-11CE-9BCE-00AA00608E01}
  1119. // *********************************************************************//
  1120.   IOptionFrame = interface(IDispatch)
  1121.     ['{29B86A70-F52E-11CE-9BCE-00AA00608E01}']
  1122.     function  Get_ActiveControl: Control; safecall;
  1123.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  1124.     function  Get_BackColor: OLE_COLOR; safecall;
  1125.     procedure Set_BorderColor(BorderColor: OLE_COLOR); safecall;
  1126.     function  Get_BorderColor: OLE_COLOR; safecall;
  1127.     procedure Set_BorderStyle(BorderStyle: fmBorderStyle); safecall;
  1128.     function  Get_BorderStyle: fmBorderStyle; safecall;
  1129.     function  Get_CanPaste: WordBool; safecall;
  1130.     function  Get_CanRedo: WordBool; safecall;
  1131.     function  Get_CanUndo: WordBool; safecall;
  1132.     procedure Set_Caption(const Caption: WideString); safecall;
  1133.     function  Get_Caption: WideString; safecall;
  1134.     function  Get_Controls: Controls; safecall;
  1135.     procedure Set_Cycle(Cycle: fmCycle); safecall;
  1136.     function  Get_Cycle: fmCycle; safecall;
  1137.     procedure Set_Enabled(Enabled: WordBool); safecall;
  1138.     function  Get_Enabled: WordBool; safecall;
  1139.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  1140.     procedure Set_Font(const Font: IFontDisp); safecall;
  1141.     function  Get_Font: IFontDisp; safecall;
  1142.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  1143.     function  Get_ForeColor: OLE_COLOR; safecall;
  1144.     procedure _GetInsideHeight(out InsideHeight: Integer); safecall;
  1145.     function  Get_InsideHeight: Single; safecall;
  1146.     procedure _GetInsideWidth(out InsideWidth: Integer); safecall;
  1147.     function  Get_InsideWidth: Single; safecall;
  1148.     procedure Set_KeepScrollBarsVisible(ScrollBars: fmScrollBars); safecall;
  1149.     function  Get_KeepScrollBarsVisible: fmScrollBars; safecall;
  1150.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1151.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1152.     function  Get_MouseIcon: IPictureDisp; safecall;
  1153.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  1154.     function  Get_MousePointer: fmMousePointer; safecall;
  1155.     procedure Set_PictureAlignment(PictureAlignment: fmPictureAlignment); safecall;
  1156.     function  Get_PictureAlignment: fmPictureAlignment; safecall;
  1157.     procedure _Set_Picture(const Picture: IPictureDisp); safecall;
  1158.     procedure Set_Picture(const Picture: IPictureDisp); safecall;
  1159.     function  Get_Picture: IPictureDisp; safecall;
  1160.     procedure Set_PictureSizeMode(PictureSizeMode: fmPictureSizeMode); safecall;
  1161.     function  Get_PictureSizeMode: fmPictureSizeMode; safecall;
  1162.     procedure Set_PictureTiling(PictureTiling: WordBool); safecall;
  1163.     function  Get_PictureTiling: WordBool; safecall;
  1164.     procedure Set_ScrollBars(ScrollBars: fmScrollBars); safecall;
  1165.     function  Get_ScrollBars: fmScrollBars; safecall;
  1166.     procedure _SetScrollHeight(ScrollHeight: Integer); safecall;
  1167.     procedure _GetScrollHeight(out ScrollHeight: Integer); safecall;
  1168.     procedure Set_ScrollHeight(ScrollHeight: Single); safecall;
  1169.     function  Get_ScrollHeight: Single; safecall;
  1170.     procedure _SetScrollLeft(ScrollLeft: Integer); safecall;
  1171.     procedure _GetScrollLeft(out ScrollLeft: Integer); safecall;
  1172.     procedure Set_ScrollLeft(ScrollLeft: Single); safecall;
  1173.     function  Get_ScrollLeft: Single; safecall;
  1174.     procedure _SetScrollTop(ScrollTop: Integer); safecall;
  1175.     procedure _GetScrollTop(out ScrollTop: Integer); safecall;
  1176.     procedure Set_ScrollTop(ScrollTop: Single); safecall;
  1177.     function  Get_ScrollTop: Single; safecall;
  1178.     procedure _SetScrollWidth(ScrollWidth: Integer); safecall;
  1179.     procedure _GetScrollWidth(out ScrollWidth: Integer); safecall;
  1180.     procedure Set_ScrollWidth(ScrollWidth: Single); safecall;
  1181.     function  Get_ScrollWidth: Single; safecall;
  1182.     function  Get_Selected: Controls; safecall;
  1183.     procedure Set_SpecialEffect(SpecialEffect: fmSpecialEffect); safecall;
  1184.     function  Get_SpecialEffect: fmSpecialEffect; safecall;
  1185.     procedure Set_VerticalScrollBarSide(side: fmVerticalScrollBarSide); safecall;
  1186.     function  Get_VerticalScrollBarSide: fmVerticalScrollBarSide; safecall;
  1187.     procedure Set_Zoom(Zoom: Smallint); safecall;
  1188.     function  Get_Zoom: Smallint; safecall;
  1189.     procedure Copy; safecall;
  1190.     procedure Cut; safecall;
  1191.     procedure Paste; safecall;
  1192.     procedure RedoAction; safecall;
  1193.     procedure Repaint; safecall;
  1194.     procedure Scroll(xAction: OleVariant; yAction: OleVariant); safecall;
  1195.     procedure SetDefaultTabOrder; safecall;
  1196.     procedure UndoAction; safecall;
  1197.     procedure Set_DesignMode(DesignMode: fmMode); safecall;
  1198.     function  Get_DesignMode: fmMode; safecall;
  1199.     procedure Set_ShowToolbox(ShowToolbox: fmMode); safecall;
  1200.     function  Get_ShowToolbox: fmMode; safecall;
  1201.     procedure Set_ShowGridDots(ShowGridDots: fmMode); safecall;
  1202.     function  Get_ShowGridDots: fmMode; safecall;
  1203.     procedure Set_SnapToGrid(SnapToGrid: fmMode); safecall;
  1204.     function  Get_SnapToGrid: fmMode; safecall;
  1205.     procedure Set_GridX(GridX: Single); safecall;
  1206.     function  Get_GridX: Single; safecall;
  1207.     procedure _SetGridX(GridX: Integer); safecall;
  1208.     procedure _GetGridX(out GridX: Integer); safecall;
  1209.     procedure Set_GridY(GridY: Single); safecall;
  1210.     function  Get_GridY: Single; safecall;
  1211.     procedure _SetGridY(GridY: Integer); safecall;
  1212.     procedure _GetGridY(out GridY: Integer); safecall;
  1213.     property ActiveControl: Control read Get_ActiveControl;
  1214.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  1215.     property BorderColor: OLE_COLOR read Get_BorderColor write Set_BorderColor;
  1216.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1217.     property CanPaste: WordBool read Get_CanPaste;
  1218.     property CanRedo: WordBool read Get_CanRedo;
  1219.     property CanUndo: WordBool read Get_CanUndo;
  1220.     property Caption: WideString read Get_Caption write Set_Caption;
  1221.     property Controls: Controls read Get_Controls;
  1222.     property Cycle: fmCycle read Get_Cycle write Set_Cycle;
  1223.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1224.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  1225.     property Font: IFontDisp read Get_Font write Set_Font;
  1226.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  1227.     property InsideHeight: Single read Get_InsideHeight;
  1228.     property InsideWidth: Single read Get_InsideWidth;
  1229.     property KeepScrollBarsVisible: fmScrollBars read Get_KeepScrollBarsVisible write Set_KeepScrollBarsVisible;
  1230.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  1231.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1232.     property PictureAlignment: fmPictureAlignment read Get_PictureAlignment write Set_PictureAlignment;
  1233.     property Picture: IPictureDisp read Get_Picture write _Set_Picture;
  1234.     property PictureSizeMode: fmPictureSizeMode read Get_PictureSizeMode write Set_PictureSizeMode;
  1235.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  1236.     property ScrollBars: fmScrollBars read Get_ScrollBars write Set_ScrollBars;
  1237.     property ScrollHeight: Single read Get_ScrollHeight write Set_ScrollHeight;
  1238.     property ScrollLeft: Single read Get_ScrollLeft write Set_ScrollLeft;
  1239.     property ScrollTop: Single read Get_ScrollTop write Set_ScrollTop;
  1240.     property ScrollWidth: Single read Get_ScrollWidth write Set_ScrollWidth;
  1241.     property Selected: Controls read Get_Selected;
  1242.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1243.     property VerticalScrollBarSide: fmVerticalScrollBarSide read Get_VerticalScrollBarSide write Set_VerticalScrollBarSide;
  1244.     property Zoom: Smallint read Get_Zoom write Set_Zoom;
  1245.     property DesignMode: fmMode read Get_DesignMode write Set_DesignMode;
  1246.     property ShowToolbox: fmMode read Get_ShowToolbox write Set_ShowToolbox;
  1247.     property ShowGridDots: fmMode read Get_ShowGridDots write Set_ShowGridDots;
  1248.     property SnapToGrid: fmMode read Get_SnapToGrid write Set_SnapToGrid;
  1249.     property GridX: Single read Get_GridX write Set_GridX;
  1250.     property GridY: Single read Get_GridY write Set_GridY;
  1251.   end;
  1252.  
  1253. // *********************************************************************//
  1254. // DispIntf:  IOptionFrameDisp
  1255. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1256. // GUID:      {29B86A70-F52E-11CE-9BCE-00AA00608E01}
  1257. // *********************************************************************//
  1258.   IOptionFrameDisp = dispinterface
  1259.     ['{29B86A70-F52E-11CE-9BCE-00AA00608E01}']
  1260.     property ActiveControl: Control readonly dispid 256;
  1261.     property BackColor: OLE_COLOR dispid -501;
  1262.     property BorderColor: OLE_COLOR dispid -503;
  1263.     property BorderStyle: fmBorderStyle dispid -504;
  1264.     property CanPaste: WordBool readonly dispid 257;
  1265.     property CanRedo: WordBool readonly dispid 258;
  1266.     property CanUndo: WordBool readonly dispid 259;
  1267.     property Caption: WideString dispid -518;
  1268.     property Controls: Controls readonly dispid 0;
  1269.     property Cycle: fmCycle dispid 260;
  1270.     property Enabled: WordBool dispid -514;
  1271.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  1272.     property Font: IFontDisp dispid -512;
  1273.     property ForeColor: OLE_COLOR dispid -513;
  1274.     procedure _GetInsideHeight(out InsideHeight: Integer); dispid 1610743830;
  1275.     property InsideHeight: Single readonly dispid 262;
  1276.     procedure _GetInsideWidth(out InsideWidth: Integer); dispid 1610743832;
  1277.     property InsideWidth: Single readonly dispid 263;
  1278.     property KeepScrollBarsVisible: fmScrollBars dispid 264;
  1279.     property MouseIcon: IPictureDisp dispid -522;
  1280.     property MousePointer: fmMousePointer dispid -521;
  1281.     property PictureAlignment: fmPictureAlignment dispid 26;
  1282.     property Picture: IPictureDisp dispid -523;
  1283.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  1284.     property PictureTiling: WordBool dispid 28;
  1285.     property ScrollBars: fmScrollBars dispid 265;
  1286.     procedure _SetScrollHeight(ScrollHeight: Integer); dispid 1610743852;
  1287.     procedure _GetScrollHeight(out ScrollHeight: Integer); dispid 1610743853;
  1288.     property ScrollHeight: Single dispid 266;
  1289.     procedure _SetScrollLeft(ScrollLeft: Integer); dispid 1610743856;
  1290.     procedure _GetScrollLeft(out ScrollLeft: Integer); dispid 1610743857;
  1291.     property ScrollLeft: Single dispid 267;
  1292.     procedure _SetScrollTop(ScrollTop: Integer); dispid 1610743860;
  1293.     procedure _GetScrollTop(out ScrollTop: Integer); dispid 1610743861;
  1294.     property ScrollTop: Single dispid 268;
  1295.     procedure _SetScrollWidth(ScrollWidth: Integer); dispid 1610743864;
  1296.     procedure _GetScrollWidth(out ScrollWidth: Integer); dispid 1610743865;
  1297.     property ScrollWidth: Single dispid 269;
  1298.     property Selected: Controls readonly dispid 270;
  1299.     property SpecialEffect: fmSpecialEffect dispid 12;
  1300.     property VerticalScrollBarSide: fmVerticalScrollBarSide dispid 271;
  1301.     property Zoom: Smallint dispid 272;
  1302.     procedure Copy; dispid 512;
  1303.     procedure Cut; dispid 513;
  1304.     procedure Paste; dispid 514;
  1305.     procedure RedoAction; dispid 515;
  1306.     procedure Repaint; dispid 516;
  1307.     procedure Scroll(xAction: OleVariant; yAction: OleVariant); dispid 517;
  1308.     procedure SetDefaultTabOrder; dispid 518;
  1309.     procedure UndoAction; dispid 519;
  1310.     property DesignMode: fmMode dispid 384;
  1311.     property ShowToolbox: fmMode dispid 385;
  1312.     property ShowGridDots: fmMode dispid 386;
  1313.     property SnapToGrid: fmMode dispid 387;
  1314.     property GridX: Single dispid 388;
  1315.     procedure _SetGridX(GridX: Integer); dispid 1610743893;
  1316.     procedure _GetGridX(out GridX: Integer); dispid 1610743894;
  1317.     property GridY: Single dispid 389;
  1318.     procedure _SetGridY(GridY: Integer); dispid 1610743897;
  1319.     procedure _GetGridY(out GridY: Integer); dispid 1610743898;
  1320.   end;
  1321.  
  1322. // *********************************************************************//
  1323. // Interface: _UserForm
  1324. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1325. // GUID:      {04598FC8-866C-11CF-AB7C-00AA00C08FCF}
  1326. // *********************************************************************//
  1327.   _UserForm = interface(IOptionFrame)
  1328.     ['{04598FC8-866C-11CF-AB7C-00AA00C08FCF}']
  1329.     procedure Set_DrawBuffer(DrawBuffer: Integer); safecall;
  1330.     function  Get_DrawBuffer: Integer; safecall;
  1331.     property DrawBuffer: Integer read Get_DrawBuffer write Set_DrawBuffer;
  1332.   end;
  1333.  
  1334. // *********************************************************************//
  1335. // DispIntf:  _UserFormDisp
  1336. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1337. // GUID:      {04598FC8-866C-11CF-AB7C-00AA00C08FCF}
  1338. // *********************************************************************//
  1339.   _UserFormDisp = dispinterface
  1340.     ['{04598FC8-866C-11CF-AB7C-00AA00C08FCF}']
  1341.     property DrawBuffer: Integer dispid 395;
  1342.     property ActiveControl: Control readonly dispid 256;
  1343.     property BackColor: OLE_COLOR dispid -501;
  1344.     property BorderColor: OLE_COLOR dispid -503;
  1345.     property BorderStyle: fmBorderStyle dispid -504;
  1346.     property CanPaste: WordBool readonly dispid 257;
  1347.     property CanRedo: WordBool readonly dispid 258;
  1348.     property CanUndo: WordBool readonly dispid 259;
  1349.     property Caption: WideString dispid -518;
  1350.     property Controls: Controls readonly dispid 0;
  1351.     property Cycle: fmCycle dispid 260;
  1352.     property Enabled: WordBool dispid -514;
  1353.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  1354.     property Font: IFontDisp dispid -512;
  1355.     property ForeColor: OLE_COLOR dispid -513;
  1356.     procedure _GetInsideHeight(out InsideHeight: Integer); dispid 1610743830;
  1357.     property InsideHeight: Single readonly dispid 262;
  1358.     procedure _GetInsideWidth(out InsideWidth: Integer); dispid 1610743832;
  1359.     property InsideWidth: Single readonly dispid 263;
  1360.     property KeepScrollBarsVisible: fmScrollBars dispid 264;
  1361.     property MouseIcon: IPictureDisp dispid -522;
  1362.     property MousePointer: fmMousePointer dispid -521;
  1363.     property PictureAlignment: fmPictureAlignment dispid 26;
  1364.     property Picture: IPictureDisp dispid -523;
  1365.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  1366.     property PictureTiling: WordBool dispid 28;
  1367.     property ScrollBars: fmScrollBars dispid 265;
  1368.     procedure _SetScrollHeight(ScrollHeight: Integer); dispid 1610743852;
  1369.     procedure _GetScrollHeight(out ScrollHeight: Integer); dispid 1610743853;
  1370.     property ScrollHeight: Single dispid 266;
  1371.     procedure _SetScrollLeft(ScrollLeft: Integer); dispid 1610743856;
  1372.     procedure _GetScrollLeft(out ScrollLeft: Integer); dispid 1610743857;
  1373.     property ScrollLeft: Single dispid 267;
  1374.     procedure _SetScrollTop(ScrollTop: Integer); dispid 1610743860;
  1375.     procedure _GetScrollTop(out ScrollTop: Integer); dispid 1610743861;
  1376.     property ScrollTop: Single dispid 268;
  1377.     procedure _SetScrollWidth(ScrollWidth: Integer); dispid 1610743864;
  1378.     procedure _GetScrollWidth(out ScrollWidth: Integer); dispid 1610743865;
  1379.     property ScrollWidth: Single dispid 269;
  1380.     property Selected: Controls readonly dispid 270;
  1381.     property SpecialEffect: fmSpecialEffect dispid 12;
  1382.     property VerticalScrollBarSide: fmVerticalScrollBarSide dispid 271;
  1383.     property Zoom: Smallint dispid 272;
  1384.     procedure Copy; dispid 512;
  1385.     procedure Cut; dispid 513;
  1386.     procedure Paste; dispid 514;
  1387.     procedure RedoAction; dispid 515;
  1388.     procedure Repaint; dispid 516;
  1389.     procedure Scroll(xAction: OleVariant; yAction: OleVariant); dispid 517;
  1390.     procedure SetDefaultTabOrder; dispid 518;
  1391.     procedure UndoAction; dispid 519;
  1392.     property DesignMode: fmMode dispid 384;
  1393.     property ShowToolbox: fmMode dispid 385;
  1394.     property ShowGridDots: fmMode dispid 386;
  1395.     property SnapToGrid: fmMode dispid 387;
  1396.     property GridX: Single dispid 388;
  1397.     procedure _SetGridX(GridX: Integer); dispid 1610743893;
  1398.     procedure _GetGridX(out GridX: Integer); dispid 1610743894;
  1399.     property GridY: Single dispid 389;
  1400.     procedure _SetGridY(GridY: Integer); dispid 1610743897;
  1401.     procedure _GetGridY(out GridY: Integer); dispid 1610743898;
  1402.   end;
  1403.  
  1404. // *********************************************************************//
  1405. // DispIntf:  ControlEvents
  1406. // Flags:     (4112) Hidden Dispatchable
  1407. // GUID:      {9A4BBF53-4E46-101B-8BBD-00AA003E3B29}
  1408. // *********************************************************************//
  1409.   ControlEvents = dispinterface
  1410.     ['{9A4BBF53-4E46-101B-8BBD-00AA003E3B29}']
  1411.     procedure Enter; dispid -2147384830;
  1412.     procedure Exit(const Cancel: ReturnBoolean); dispid -2147384829;
  1413.     procedure BeforeUpdate(const Cancel: ReturnBoolean); dispid -2147384831;
  1414.     procedure AfterUpdate; dispid -2147384832;
  1415.   end;
  1416.  
  1417. // *********************************************************************//
  1418. // DispIntf:  FormEvents
  1419. // Flags:     (4112) Hidden Dispatchable
  1420. // GUID:      {5B9D8FC8-4A71-101B-97A6-00000B65C08B}
  1421. // *********************************************************************//
  1422.   FormEvents = dispinterface
  1423.     ['{5B9D8FC8-4A71-101B-97A6-00000B65C08B}']
  1424.     procedure AddControl(const Control: Control); dispid 768;
  1425.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Control: Control; 
  1426.                              const Data: DataObject; X: Single; Y: Single; State: fmDragState; 
  1427.                              const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  1428.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; const Control: Control; 
  1429.                                 Action: fmAction; const Data: DataObject; X: Single; Y: Single; 
  1430.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  1431.     procedure Click; dispid -600;
  1432.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  1433.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  1434.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  1435.                     const CancelDisplay: ReturnBoolean); dispid -608;
  1436.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  1437.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  1438.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  1439.     procedure Layout; dispid 770;
  1440.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  1441.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  1442.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  1443.     procedure RemoveControl(const Control: Control); dispid 771;
  1444.     procedure Scroll(ActionX: fmScrollAction; ActionY: fmScrollAction; RequestDx: Single; 
  1445.                      RequestDy: Single; const ActualDx: ReturnSingle; const ActualDy: ReturnSingle); dispid 772;
  1446.     procedure Zoom(var Percent: Smallint); dispid 773;
  1447.   end;
  1448.  
  1449. // *********************************************************************//
  1450. // DispIntf:  OptionFrameEvents
  1451. // Flags:     (4112) Hidden Dispatchable
  1452. // GUID:      {CF3F94A0-F546-11CE-9BCE-00AA00608E01}
  1453. // *********************************************************************//
  1454.   OptionFrameEvents = dispinterface
  1455.     ['{CF3F94A0-F546-11CE-9BCE-00AA00608E01}']
  1456.     procedure AddControl(const Control: Control); dispid 768;
  1457.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Control: Control; 
  1458.                              const Data: DataObject; X: Single; Y: Single; State: fmDragState; 
  1459.                              const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  1460.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; const Control: Control; 
  1461.                                 Action: fmAction; const Data: DataObject; X: Single; Y: Single; 
  1462.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  1463.     procedure Click; dispid -600;
  1464.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  1465.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  1466.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  1467.                     const CancelDisplay: ReturnBoolean); dispid -608;
  1468.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  1469.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  1470.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  1471.     procedure Layout; dispid 770;
  1472.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  1473.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  1474.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  1475.     procedure RemoveControl(const Control: Control); dispid 771;
  1476.     procedure Scroll(ActionX: fmScrollAction; ActionY: fmScrollAction; RequestDx: Single; 
  1477.                      RequestDy: Single; const ActualDx: ReturnSingle; const ActualDy: ReturnSingle); dispid 772;
  1478.     procedure Zoom(var Percent: Smallint); dispid 773;
  1479.   end;
  1480.  
  1481. // *********************************************************************//
  1482. // Interface: ILabelControl
  1483. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1484. // GUID:      {04598FC1-866C-11CF-AB7C-00AA00C08FCF}
  1485. // *********************************************************************//
  1486.   ILabelControl = interface(IDispatch)
  1487.     ['{04598FC1-866C-11CF-AB7C-00AA00C08FCF}']
  1488.     procedure Set_AutoSize(fvbAutoSize: WordBool); safecall;
  1489.     function  Get_AutoSize: WordBool; safecall;
  1490.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  1491.     function  Get_BackColor: OLE_COLOR; safecall;
  1492.     procedure Set_BackStyle(BackStyle: fmBackStyle); safecall;
  1493.     function  Get_BackStyle: fmBackStyle; safecall;
  1494.     procedure Set_BorderColor(BorderColor: OLE_COLOR); safecall;
  1495.     function  Get_BorderColor: OLE_COLOR; safecall;
  1496.     procedure Set_BorderStyle(BorderStyle: fmBorderStyle); safecall;
  1497.     function  Get_BorderStyle: fmBorderStyle; safecall;
  1498.     procedure Set_Caption(const bstrCaption: WideString); safecall;
  1499.     function  Get_Caption: WideString; safecall;
  1500.     procedure Set_Enabled(fEnabled: WordBool); safecall;
  1501.     function  Get_Enabled: WordBool; safecall;
  1502.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  1503.     procedure Set_Font(const Font: IFontDisp); safecall;
  1504.     function  Get_Font: IFontDisp; safecall;
  1505.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  1506.     function  Get_FontItalic: WordBool; safecall;
  1507.     procedure Set_FontBold(FontBold: WordBool); safecall;
  1508.     function  Get_FontBold: WordBool; safecall;
  1509.     procedure Set_FontName(const FontName: WideString); safecall;
  1510.     function  Get_FontName: WideString; safecall;
  1511.     procedure Set_FontSize(FontSize: Currency); safecall;
  1512.     function  Get_FontSize: Currency; safecall;
  1513.     procedure Set_FontStrikethru(FontStrikethru: WordBool); safecall;
  1514.     function  Get_FontStrikethru: WordBool; safecall;
  1515.     procedure Set_FontUnderline(FontUnderline: WordBool); safecall;
  1516.     function  Get_FontUnderline: WordBool; safecall;
  1517.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  1518.     function  Get_ForeColor: OLE_COLOR; safecall;
  1519.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1520.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1521.     function  Get_MouseIcon: IPictureDisp; safecall;
  1522.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  1523.     function  Get_MousePointer: fmMousePointer; safecall;
  1524.     procedure _Set_Picture(const pPicture: IPictureDisp); safecall;
  1525.     procedure Set_Picture(const pPicture: IPictureDisp); safecall;
  1526.     function  Get_Picture: IPictureDisp; safecall;
  1527.     procedure Set_PicturePosition(PicPos: fmPicturePosition); safecall;
  1528.     function  Get_PicturePosition: fmPicturePosition; safecall;
  1529.     procedure Set_SpecialEffect(SpecialEffect: fmSpecialEffect); safecall;
  1530.     function  Get_SpecialEffect: fmSpecialEffect; safecall;
  1531.     procedure Set_TextAlign(TextAlign: fmTextAlign); safecall;
  1532.     function  Get_TextAlign: fmTextAlign; safecall;
  1533.     procedure Set_WordWrap(WordWrap: WordBool); safecall;
  1534.     function  Get_WordWrap: WordBool; safecall;
  1535.     procedure Set_Accelerator(const Accelerator: WideString); safecall;
  1536.     function  Get_Accelerator: WideString; safecall;
  1537.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  1538.     function  Get_FontWeight: Smallint; safecall;
  1539.     procedure Set__Value(const bstrCaption: WideString); safecall;
  1540.     function  Get__Value: WideString; safecall;
  1541.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1542.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  1543.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  1544.     property BorderColor: OLE_COLOR read Get_BorderColor write Set_BorderColor;
  1545.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1546.     property Caption: WideString read Get_Caption write Set_Caption;
  1547.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1548.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  1549.     property Font: IFontDisp read Get_Font write Set_Font;
  1550.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1551.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1552.     property FontName: WideString read Get_FontName write Set_FontName;
  1553.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1554.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1555.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1556.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  1557.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  1558.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1559.     property Picture: IPictureDisp read Get_Picture write _Set_Picture;
  1560.     property PicturePosition: fmPicturePosition read Get_PicturePosition write Set_PicturePosition;
  1561.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1562.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  1563.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1564.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  1565.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1566.     property _Value: WideString read Get__Value write Set__Value;
  1567.   end;
  1568.  
  1569. // *********************************************************************//
  1570. // DispIntf:  ILabelControlDisp
  1571. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1572. // GUID:      {04598FC1-866C-11CF-AB7C-00AA00C08FCF}
  1573. // *********************************************************************//
  1574.   ILabelControlDisp = dispinterface
  1575.     ['{04598FC1-866C-11CF-AB7C-00AA00C08FCF}']
  1576.     property AutoSize: WordBool dispid -500;
  1577.     property BackColor: OLE_COLOR dispid -501;
  1578.     property BackStyle: fmBackStyle dispid -502;
  1579.     property BorderColor: OLE_COLOR dispid -503;
  1580.     property BorderStyle: fmBorderStyle dispid -504;
  1581.     property Caption: WideString dispid 0;
  1582.     property Enabled: WordBool dispid -514;
  1583.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  1584.     property Font: IFontDisp dispid -512;
  1585.     property FontItalic: WordBool dispid 4;
  1586.     property FontBold: WordBool dispid 3;
  1587.     property FontName: WideString dispid 1;
  1588.     property FontSize: Currency dispid 2;
  1589.     property FontStrikethru: WordBool dispid 6;
  1590.     property FontUnderline: WordBool dispid 5;
  1591.     property ForeColor: OLE_COLOR dispid -513;
  1592.     property MouseIcon: IPictureDisp dispid -522;
  1593.     property MousePointer: fmMousePointer dispid -521;
  1594.     property Picture: IPictureDisp dispid -523;
  1595.     property PicturePosition: fmPicturePosition dispid 11;
  1596.     property SpecialEffect: fmSpecialEffect dispid 12;
  1597.     property TextAlign: fmTextAlign dispid 13;
  1598.     property WordWrap: WordBool dispid -536;
  1599.     property Accelerator: WideString dispid -543;
  1600.     property FontWeight: Smallint dispid 7;
  1601.     property _Value: WideString dispid -518;
  1602.   end;
  1603.  
  1604. // *********************************************************************//
  1605. // Interface: ICommandButton
  1606. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1607. // GUID:      {04598FC4-866C-11CF-AB7C-00AA00C08FCF}
  1608. // *********************************************************************//
  1609.   ICommandButton = interface(IDispatch)
  1610.     ['{04598FC4-866C-11CF-AB7C-00AA00C08FCF}']
  1611.     procedure Set_AutoSize(fvbAutoSize: WordBool); safecall;
  1612.     function  Get_AutoSize: WordBool; safecall;
  1613.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  1614.     function  Get_BackColor: OLE_COLOR; safecall;
  1615.     procedure Set_BackStyle(BackStyle: fmBackStyle); safecall;
  1616.     function  Get_BackStyle: fmBackStyle; safecall;
  1617.     procedure Set_Caption(const bstrCaption: WideString); safecall;
  1618.     function  Get_Caption: WideString; safecall;
  1619.     procedure Set_Enabled(fEnabled: WordBool); safecall;
  1620.     function  Get_Enabled: WordBool; safecall;
  1621.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  1622.     procedure Set_Font(const Font: IFontDisp); safecall;
  1623.     function  Get_Font: IFontDisp; safecall;
  1624.     procedure Set_FontBold(FontBold: WordBool); safecall;
  1625.     function  Get_FontBold: WordBool; safecall;
  1626.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  1627.     function  Get_FontItalic: WordBool; safecall;
  1628.     procedure Set_FontName(const FontName: WideString); safecall;
  1629.     function  Get_FontName: WideString; safecall;
  1630.     procedure Set_FontSize(FontSize: Currency); safecall;
  1631.     function  Get_FontSize: Currency; safecall;
  1632.     procedure Set_FontStrikethru(FontStrikethru: WordBool); safecall;
  1633.     function  Get_FontStrikethru: WordBool; safecall;
  1634.     procedure Set_FontUnderline(FontUnderline: WordBool); safecall;
  1635.     function  Get_FontUnderline: WordBool; safecall;
  1636.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  1637.     function  Get_ForeColor: OLE_COLOR; safecall;
  1638.     procedure Set_TakeFocusOnClick(TakeFocusOnClick: WordBool); safecall;
  1639.     function  Get_TakeFocusOnClick: WordBool; safecall;
  1640.     procedure Set_Locked(fLocked: WordBool); safecall;
  1641.     function  Get_Locked: WordBool; safecall;
  1642.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1643.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1644.     function  Get_MouseIcon: IPictureDisp; safecall;
  1645.     procedure Set_MousePointer(mouseptr: fmMousePointer); safecall;
  1646.     function  Get_MousePointer: fmMousePointer; safecall;
  1647.     procedure _Set_Picture(const Picture: IPictureDisp); safecall;
  1648.     procedure Set_Picture(const Picture: IPictureDisp); safecall;
  1649.     function  Get_Picture: IPictureDisp; safecall;
  1650.     procedure Set_PicturePosition(PicturePosition: fmPicturePosition); safecall;
  1651.     function  Get_PicturePosition: fmPicturePosition; safecall;
  1652.     procedure Set_Accelerator(const Accelerator: WideString); safecall;
  1653.     function  Get_Accelerator: WideString; safecall;
  1654.     procedure Set_WordWrap(WordWrap: WordBool); safecall;
  1655.     function  Get_WordWrap: WordBool; safecall;
  1656.     procedure Set_Value(fValue: WordBool); safecall;
  1657.     function  Get_Value: WordBool; safecall;
  1658.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  1659.     function  Get_FontWeight: Smallint; safecall;
  1660.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1661.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  1662.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  1663.     property Caption: WideString read Get_Caption write Set_Caption;
  1664.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1665.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  1666.     property Font: IFontDisp read Get_Font write Set_Font;
  1667.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1668.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1669.     property FontName: WideString read Get_FontName write Set_FontName;
  1670.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1671.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1672.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1673.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  1674.     property TakeFocusOnClick: WordBool read Get_TakeFocusOnClick write Set_TakeFocusOnClick;
  1675.     property Locked: WordBool read Get_Locked write Set_Locked;
  1676.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  1677.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1678.     property Picture: IPictureDisp read Get_Picture write _Set_Picture;
  1679.     property PicturePosition: fmPicturePosition read Get_PicturePosition write Set_PicturePosition;
  1680.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  1681.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1682.     property Value: WordBool read Get_Value write Set_Value;
  1683.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1684.   end;
  1685.  
  1686. // *********************************************************************//
  1687. // DispIntf:  ICommandButtonDisp
  1688. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1689. // GUID:      {04598FC4-866C-11CF-AB7C-00AA00C08FCF}
  1690. // *********************************************************************//
  1691.   ICommandButtonDisp = dispinterface
  1692.     ['{04598FC4-866C-11CF-AB7C-00AA00C08FCF}']
  1693.     property AutoSize: WordBool dispid -500;
  1694.     property BackColor: OLE_COLOR dispid -501;
  1695.     property BackStyle: fmBackStyle dispid -502;
  1696.     property Caption: WideString dispid -518;
  1697.     property Enabled: WordBool dispid -514;
  1698.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  1699.     property Font: IFontDisp dispid -512;
  1700.     property FontBold: WordBool dispid 3;
  1701.     property FontItalic: WordBool dispid 4;
  1702.     property FontName: WideString dispid 1;
  1703.     property FontSize: Currency dispid 2;
  1704.     property FontStrikethru: WordBool dispid 6;
  1705.     property FontUnderline: WordBool dispid 5;
  1706.     property ForeColor: OLE_COLOR dispid -513;
  1707.     property TakeFocusOnClick: WordBool dispid 203;
  1708.     property Locked: WordBool dispid 10;
  1709.     property MouseIcon: IPictureDisp dispid -522;
  1710.     property MousePointer: fmMousePointer dispid -521;
  1711.     property Picture: IPictureDisp dispid -523;
  1712.     property PicturePosition: fmPicturePosition dispid 11;
  1713.     property Accelerator: WideString dispid -543;
  1714.     property WordWrap: WordBool dispid -536;
  1715.     property Value: WordBool dispid 0;
  1716.     property FontWeight: Smallint dispid 7;
  1717.   end;
  1718.  
  1719. // *********************************************************************//
  1720. // Interface: IMdcText
  1721. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1722. // GUID:      {8BD21D13-EC42-11CE-9E0D-00AA006002F3}
  1723. // *********************************************************************//
  1724.   IMdcText = interface(IDispatch)
  1725.     ['{8BD21D13-EC42-11CE-9E0D-00AA006002F3}']
  1726.     procedure Set_AutoSize(AutoSize: WordBool); safecall;
  1727.     function  Get_AutoSize: WordBool; safecall;
  1728.     procedure Set_AutoTab(AutoTab: WordBool); safecall;
  1729.     function  Get_AutoTab: WordBool; safecall;
  1730.     procedure Set_AutoWordSelect(AutoWordSelect: WordBool); safecall;
  1731.     function  Get_AutoWordSelect: WordBool; safecall;
  1732.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  1733.     function  Get_BackColor: OLE_COLOR; safecall;
  1734.     procedure Set_BackStyle(BackStyle: fmBackStyle); safecall;
  1735.     function  Get_BackStyle: fmBackStyle; safecall;
  1736.     procedure Set_BorderColor(BorderColor: OLE_COLOR); safecall;
  1737.     function  Get_BorderColor: OLE_COLOR; safecall;
  1738.     procedure Set_BorderStyle(BorderStyle: fmBorderStyle); safecall;
  1739.     function  Get_BorderStyle: fmBorderStyle; safecall;
  1740.     procedure Set_BordersSuppress(BordersSuppress: WordBool); safecall;
  1741.     function  Get_BordersSuppress: WordBool; safecall;
  1742.     function  Get_CanPaste: WordBool; safecall;
  1743.     procedure Set_CurLine(CurLine: Integer); safecall;
  1744.     function  Get_CurLine: Integer; safecall;
  1745.     function  Get_CurTargetX: Integer; safecall;
  1746.     function  Get_CurTargetY: Integer; safecall;
  1747.     procedure Set_CurX(CurX: Integer); safecall;
  1748.     function  Get_CurX: Integer; safecall;
  1749.     procedure Set_CurY(CurY: Integer); safecall;
  1750.     function  Get_CurY: Integer; safecall;
  1751.     procedure Set_DropButtonStyle(DropButtonStyle: fmDropButtonStyle); safecall;
  1752.     function  Get_DropButtonStyle: fmDropButtonStyle; safecall;
  1753.     procedure Set_EnterKeyBehavior(EnterKeyBehavior: WordBool); safecall;
  1754.     function  Get_EnterKeyBehavior: WordBool; safecall;
  1755.     procedure Set_Enabled(Enabled: WordBool); safecall;
  1756.     function  Get_Enabled: WordBool; safecall;
  1757.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  1758.     procedure Set_Font(const Font: IFontDisp); safecall;
  1759.     function  Get_Font: IFontDisp; safecall;
  1760.     procedure Set_FontBold(FontBold: WordBool); safecall;
  1761.     function  Get_FontBold: WordBool; safecall;
  1762.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  1763.     function  Get_FontItalic: WordBool; safecall;
  1764.     procedure Set_FontName(const FontName: WideString); safecall;
  1765.     function  Get_FontName: WideString; safecall;
  1766.     procedure Set_FontSize(FontSize: Currency); safecall;
  1767.     function  Get_FontSize: Currency; safecall;
  1768.     procedure Set_FontStrikethru(FontStrikethru: WordBool); safecall;
  1769.     function  Get_FontStrikethru: WordBool; safecall;
  1770.     procedure Set_FontUnderline(FontUnderline: WordBool); safecall;
  1771.     function  Get_FontUnderline: WordBool; safecall;
  1772.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  1773.     function  Get_FontWeight: Smallint; safecall;
  1774.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  1775.     function  Get_ForeColor: OLE_COLOR; safecall;
  1776.     procedure Set_HideSelection(HideSelection: WordBool); safecall;
  1777.     function  Get_HideSelection: WordBool; safecall;
  1778.     procedure Set_IntegralHeight(IntegralHeight: WordBool); safecall;
  1779.     function  Get_IntegralHeight: WordBool; safecall;
  1780.     function  Get_LineCount: Integer; safecall;
  1781.     procedure Set_Locked(Locked: WordBool); safecall;
  1782.     function  Get_Locked: WordBool; safecall;
  1783.     procedure Set_MaxLength(MaxLength: Integer); safecall;
  1784.     function  Get_MaxLength: Integer; safecall;
  1785.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1786.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  1787.     function  Get_MouseIcon: IPictureDisp; safecall;
  1788.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  1789.     function  Get_MousePointer: fmMousePointer; safecall;
  1790.     procedure Set_MultiLine(MultiLine: WordBool); safecall;
  1791.     function  Get_MultiLine: WordBool; safecall;
  1792.     procedure Set_PasswordChar(const PasswordChar: WideString); safecall;
  1793.     function  Get_PasswordChar: WideString; safecall;
  1794.     procedure Set_ScrollBars(ScrollBars: fmScrollBars); safecall;
  1795.     function  Get_ScrollBars: fmScrollBars; safecall;
  1796.     procedure Set_SelectionMargin(SelectionMargin: WordBool); safecall;
  1797.     function  Get_SelectionMargin: WordBool; safecall;
  1798.     procedure Set_SelLength(SelLength: Integer); safecall;
  1799.     function  Get_SelLength: Integer; safecall;
  1800.     procedure Set_SelStart(SelStart: Integer); safecall;
  1801.     function  Get_SelStart: Integer; safecall;
  1802.     procedure Set_SelText(const SelText: WideString); safecall;
  1803.     function  Get_SelText: WideString; safecall;
  1804.     procedure Set_ShowDropButtonWhen(ShowDropButtonWhen: fmShowDropButtonWhen); safecall;
  1805.     function  Get_ShowDropButtonWhen: fmShowDropButtonWhen; safecall;
  1806.     procedure Set_SpecialEffect(SpecialEffect: fmSpecialEffect); safecall;
  1807.     function  Get_SpecialEffect: fmSpecialEffect; safecall;
  1808.     procedure Set_TabKeyBehavior(TabKeyBehavior: WordBool); safecall;
  1809.     function  Get_TabKeyBehavior: WordBool; safecall;
  1810.     procedure Set_Text(const Text: WideString); safecall;
  1811.     function  Get_Text: WideString; safecall;
  1812.     procedure Set_TextAlign(TextAlign: fmTextAlign); safecall;
  1813.     function  Get_TextAlign: fmTextAlign; safecall;
  1814.     function  Get_TextLength: Integer; safecall;
  1815.     function  Get_Valid: WordBool; safecall;
  1816.     procedure Set_Value(var Value: OleVariant); safecall;
  1817.     function  Get_Value: OleVariant; safecall;
  1818.     procedure Set_WordWrap(WordWrap: WordBool); safecall;
  1819.     function  Get_WordWrap: WordBool; safecall;
  1820.     procedure Copy; safecall;
  1821.     procedure Cut; safecall;
  1822.     procedure Paste; safecall;
  1823.     procedure Set_IMEMode(IMEMode: fmIMEMode); safecall;
  1824.     function  Get_IMEMode: fmIMEMode; safecall;
  1825.     procedure Set_EnterFieldBehavior(EnterFieldBehavior: fmEnterFieldBehavior); safecall;
  1826.     function  Get_EnterFieldBehavior: fmEnterFieldBehavior; safecall;
  1827.     procedure Set_DragBehavior(DragBehavior: fmDragBehavior); safecall;
  1828.     function  Get_DragBehavior: fmDragBehavior; safecall;
  1829.     function  Get_DisplayStyle: fmDisplayStyle; safecall;
  1830.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1831.     property AutoTab: WordBool read Get_AutoTab write Set_AutoTab;
  1832.     property AutoWordSelect: WordBool read Get_AutoWordSelect write Set_AutoWordSelect;
  1833.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  1834.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  1835.     property BorderColor: OLE_COLOR read Get_BorderColor write Set_BorderColor;
  1836.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1837.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  1838.     property CanPaste: WordBool read Get_CanPaste;
  1839.     property CurLine: Integer read Get_CurLine write Set_CurLine;
  1840.     property CurTargetX: Integer read Get_CurTargetX;
  1841.     property CurTargetY: Integer read Get_CurTargetY;
  1842.     property CurX: Integer read Get_CurX write Set_CurX;
  1843.     property CurY: Integer read Get_CurY write Set_CurY;
  1844.     property DropButtonStyle: fmDropButtonStyle read Get_DropButtonStyle write Set_DropButtonStyle;
  1845.     property EnterKeyBehavior: WordBool read Get_EnterKeyBehavior write Set_EnterKeyBehavior;
  1846.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1847.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  1848.     property Font: IFontDisp read Get_Font write Set_Font;
  1849.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  1850.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1851.     property FontName: WideString read Get_FontName write Set_FontName;
  1852.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  1853.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  1854.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1855.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1856.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  1857.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  1858.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  1859.     property LineCount: Integer read Get_LineCount;
  1860.     property Locked: WordBool read Get_Locked write Set_Locked;
  1861.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  1862.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  1863.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  1864.     property MultiLine: WordBool read Get_MultiLine write Set_MultiLine;
  1865.     property PasswordChar: WideString read Get_PasswordChar write Set_PasswordChar;
  1866.     property ScrollBars: fmScrollBars read Get_ScrollBars write Set_ScrollBars;
  1867.     property SelectionMargin: WordBool read Get_SelectionMargin write Set_SelectionMargin;
  1868.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  1869.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  1870.     property SelText: WideString read Get_SelText write Set_SelText;
  1871.     property ShowDropButtonWhen: fmShowDropButtonWhen read Get_ShowDropButtonWhen write Set_ShowDropButtonWhen;
  1872.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  1873.     property TabKeyBehavior: WordBool read Get_TabKeyBehavior write Set_TabKeyBehavior;
  1874.     property Text: WideString read Get_Text write Set_Text;
  1875.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  1876.     property TextLength: Integer read Get_TextLength;
  1877.     property Valid: WordBool read Get_Valid;
  1878.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1879.     property IMEMode: fmIMEMode read Get_IMEMode write Set_IMEMode;
  1880.     property EnterFieldBehavior: fmEnterFieldBehavior read Get_EnterFieldBehavior write Set_EnterFieldBehavior;
  1881.     property DragBehavior: fmDragBehavior read Get_DragBehavior write Set_DragBehavior;
  1882.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  1883.   end;
  1884.  
  1885. // *********************************************************************//
  1886. // DispIntf:  IMdcTextDisp
  1887. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1888. // GUID:      {8BD21D13-EC42-11CE-9E0D-00AA006002F3}
  1889. // *********************************************************************//
  1890.   IMdcTextDisp = dispinterface
  1891.     ['{8BD21D13-EC42-11CE-9E0D-00AA006002F3}']
  1892.     property AutoSize: WordBool dispid -500;
  1893.     property AutoTab: WordBool dispid 217;
  1894.     property AutoWordSelect: WordBool dispid 218;
  1895.     property BackColor: OLE_COLOR dispid -501;
  1896.     property BackStyle: fmBackStyle dispid -502;
  1897.     property BorderColor: OLE_COLOR dispid -503;
  1898.     property BorderStyle: fmBorderStyle dispid -504;
  1899.     property BordersSuppress: WordBool dispid 20;
  1900.     property CanPaste: WordBool readonly dispid 25;
  1901.     property CurLine: Integer dispid 212;
  1902.     property CurTargetX: Integer readonly dispid 210;
  1903.     property CurTargetY: Integer readonly dispid 221;
  1904.     property CurX: Integer dispid 208;
  1905.     property CurY: Integer dispid 209;
  1906.     property DropButtonStyle: fmDropButtonStyle dispid 305;
  1907.     property EnterKeyBehavior: WordBool dispid -544;
  1908.     property Enabled: WordBool dispid -514;
  1909.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  1910.     property Font: IFontDisp dispid -512;
  1911.     property FontBold: WordBool dispid 3;
  1912.     property FontItalic: WordBool dispid 4;
  1913.     property FontName: WideString dispid 1;
  1914.     property FontSize: Currency dispid 2;
  1915.     property FontStrikethru: WordBool dispid 6;
  1916.     property FontUnderline: WordBool dispid 5;
  1917.     property FontWeight: Smallint dispid 7;
  1918.     property ForeColor: OLE_COLOR dispid -513;
  1919.     property HideSelection: WordBool dispid 207;
  1920.     property IntegralHeight: WordBool dispid 604;
  1921.     property LineCount: Integer readonly dispid 214;
  1922.     property Locked: WordBool dispid 10;
  1923.     property MaxLength: Integer dispid -533;
  1924.     property MouseIcon: IPictureDisp dispid -522;
  1925.     property MousePointer: fmMousePointer dispid -521;
  1926.     property MultiLine: WordBool dispid -537;
  1927.     property PasswordChar: WideString dispid -534;
  1928.     property ScrollBars: fmScrollBars dispid -535;
  1929.     property SelectionMargin: WordBool dispid 220;
  1930.     property SelLength: Integer dispid -548;
  1931.     property SelStart: Integer dispid -547;
  1932.     property SelText: WideString dispid -546;
  1933.     property ShowDropButtonWhen: fmShowDropButtonWhen dispid 304;
  1934.     property SpecialEffect: fmSpecialEffect dispid 12;
  1935.     property TabKeyBehavior: WordBool dispid -545;
  1936.     property Text: WideString dispid -517;
  1937.     property TextAlign: fmTextAlign dispid 10004;
  1938.     property TextLength: Integer readonly dispid 216;
  1939.     property Valid: WordBool readonly dispid -524;
  1940.     function  Value(var Value: OleVariant): {??POleVariant1} OleVariant; dispid 0;
  1941.     property WordWrap: WordBool dispid -536;
  1942.     procedure Copy; dispid 22;
  1943.     procedure Cut; dispid 21;
  1944.     procedure Paste; dispid 24;
  1945.     property IMEMode: fmIMEMode dispid -542;
  1946.     property EnterFieldBehavior: fmEnterFieldBehavior dispid 224;
  1947.     property DragBehavior: fmDragBehavior dispid 225;
  1948.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  1949.   end;
  1950.  
  1951. // *********************************************************************//
  1952. // Interface: IMdcList
  1953. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1954. // GUID:      {8BD21D23-EC42-11CE-9E0D-00AA006002F3}
  1955. // *********************************************************************//
  1956.   IMdcList = interface(IDispatch)
  1957.     ['{8BD21D23-EC42-11CE-9E0D-00AA006002F3}']
  1958.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  1959.     function  Get_BackColor: OLE_COLOR; safecall;
  1960.     procedure Set_BorderColor(BorderColor: OLE_COLOR); safecall;
  1961.     function  Get_BorderColor: OLE_COLOR; safecall;
  1962.     procedure Set_BorderStyle(BorderStyle: fmBorderStyle); safecall;
  1963.     function  Get_BorderStyle: fmBorderStyle; safecall;
  1964.     procedure Set_BordersSuppress(BordersSuppress: WordBool); safecall;
  1965.     function  Get_BordersSuppress: WordBool; safecall;
  1966.     procedure Set_BoundColumn(var BoundColumn: OleVariant); safecall;
  1967.     function  Get_BoundColumn: OleVariant; safecall;
  1968.     procedure Set_ColumnCount(ColumnCount: Integer); safecall;
  1969.     function  Get_ColumnCount: Integer; safecall;
  1970.     procedure Set_ColumnHeads(ColumnHeads: WordBool); safecall;
  1971.     function  Get_ColumnHeads: WordBool; safecall;
  1972.     procedure Set_ColumnWidths(const ColumnWidths: WideString); safecall;
  1973.     function  Get_ColumnWidths: WideString; safecall;
  1974.     procedure Set_Enabled(Enabled: WordBool); safecall;
  1975.     function  Get_Enabled: WordBool; safecall;
  1976.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  1977.     procedure Set_Font(const Font: IFontDisp); safecall;
  1978.     function  Get_Font: IFontDisp; safecall;
  1979.     procedure Set_FontBold(FontBold: WordBool); safecall;
  1980.     function  Get_FontBold: WordBool; safecall;
  1981.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  1982.     function  Get_FontItalic: WordBool; safecall;
  1983.     procedure Set_FontName(const FontName: WideString); safecall;
  1984.     function  Get_FontName: WideString; safecall;
  1985.     procedure Set_FontSize(FontSize: Currency); safecall;
  1986.     function  Get_FontSize: Currency; safecall;
  1987.     procedure Set_FontStrikethru(FontStrikethru: WordBool); safecall;
  1988.     function  Get_FontStrikethru: WordBool; safecall;
  1989.     procedure Set_FontUnderline(FontUnderline: WordBool); safecall;
  1990.     function  Get_FontUnderline: WordBool; safecall;
  1991.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  1992.     function  Get_FontWeight: Smallint; safecall;
  1993.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  1994.     function  Get_ForeColor: OLE_COLOR; safecall;
  1995.     procedure Set_IntegralHeight(IntegralHeight: WordBool); safecall;
  1996.     function  Get_IntegralHeight: WordBool; safecall;
  1997.     function  Get_ListCount: Integer; safecall;
  1998.     procedure Set_ListCursor(const ListCursor: PIROWSET); safecall;
  1999.     function  Get_ListCursor: PIROWSET; safecall;
  2000.     procedure Set_ListIndex(var ListIndex: OleVariant); safecall;
  2001.     function  Get_ListIndex: OleVariant; safecall;
  2002.     procedure Set_ListStyle(ListStyle: fmListStyle); safecall;
  2003.     function  Get_ListStyle: fmListStyle; safecall;
  2004.     procedure Set_ListWidth(var ListWidth: OleVariant); safecall;
  2005.     function  Get_ListWidth: OleVariant; safecall;
  2006.     procedure Set_Locked(Locked: WordBool); safecall;
  2007.     function  Get_Locked: WordBool; safecall;
  2008.     procedure Set_MatchEntry(MatchEntry: fmMatchEntry); safecall;
  2009.     function  Get_MatchEntry: fmMatchEntry; safecall;
  2010.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2011.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2012.     function  Get_MouseIcon: IPictureDisp; safecall;
  2013.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  2014.     function  Get_MousePointer: fmMousePointer; safecall;
  2015.     procedure Set_MultiSelect(MultiSelect: fmMultiSelect); safecall;
  2016.     function  Get_MultiSelect: fmMultiSelect; safecall;
  2017.     procedure Set_SpecialEffect(SpecialEffect: fmSpecialEffect); safecall;
  2018.     function  Get_SpecialEffect: fmSpecialEffect; safecall;
  2019.     procedure Set_Text(const Text: WideString); safecall;
  2020.     function  Get_Text: WideString; safecall;
  2021.     procedure Set_TextColumn(var TextColumn: OleVariant); safecall;
  2022.     function  Get_TextColumn: OleVariant; safecall;
  2023.     procedure Set_TopIndex(var TopIndex: OleVariant); safecall;
  2024.     function  Get_TopIndex: OleVariant; safecall;
  2025.     function  Get_Valid: WordBool; safecall;
  2026.     procedure Set_Value(var Value: OleVariant); safecall;
  2027.     function  Get_Value: OleVariant; safecall;
  2028.     function  Get_Column(var pvargColumn: OleVariant; var pvargIndex: OleVariant): OleVariant; safecall;
  2029.     procedure Set_Column(var pvargColumn: OleVariant; var pvargIndex: OleVariant; 
  2030.                          var pvargValue: OleVariant); safecall;
  2031.     function  Get_List(var pvargIndex: OleVariant; var pvargColumn: OleVariant): OleVariant; safecall;
  2032.     procedure Set_List(var pvargIndex: OleVariant; var pvargColumn: OleVariant; 
  2033.                        var pvargValue: OleVariant); safecall;
  2034.     function  Get_Selected(var pvargIndex: OleVariant): WordBool; safecall;
  2035.     procedure Set_Selected(var pvargIndex: OleVariant; pfvb: WordBool); safecall;
  2036.     procedure AddItem(var pvargItem: OleVariant; var pvargIndex: OleVariant); safecall;
  2037.     procedure Clear; safecall;
  2038.     procedure RemoveItem(var pvargIndex: OleVariant); safecall;
  2039.     procedure Set_IMEMode(IMEMode: fmIMEMode); safecall;
  2040.     function  Get_IMEMode: fmIMEMode; safecall;
  2041.     function  Get_DisplayStyle: fmDisplayStyle; safecall;
  2042.     procedure Set_TextAlign(TextAlign: fmTextAlign); safecall;
  2043.     function  Get_TextAlign: fmTextAlign; safecall;
  2044.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  2045.     property BorderColor: OLE_COLOR read Get_BorderColor write Set_BorderColor;
  2046.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2047.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  2048.     property ColumnCount: Integer read Get_ColumnCount write Set_ColumnCount;
  2049.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  2050.     property ColumnWidths: WideString read Get_ColumnWidths write Set_ColumnWidths;
  2051.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2052.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  2053.     property Font: IFontDisp read Get_Font write Set_Font;
  2054.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2055.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2056.     property FontName: WideString read Get_FontName write Set_FontName;
  2057.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2058.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2059.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2060.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2061.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  2062.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  2063.     property ListCount: Integer read Get_ListCount;
  2064.     property ListCursor: PIROWSET read Get_ListCursor write Set_ListCursor;
  2065.     property ListStyle: fmListStyle read Get_ListStyle write Set_ListStyle;
  2066.     property Locked: WordBool read Get_Locked write Set_Locked;
  2067.     property MatchEntry: fmMatchEntry read Get_MatchEntry write Set_MatchEntry;
  2068.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  2069.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2070.     property MultiSelect: fmMultiSelect read Get_MultiSelect write Set_MultiSelect;
  2071.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  2072.     property Text: WideString read Get_Text write Set_Text;
  2073.     property Valid: WordBool read Get_Valid;
  2074.     property Selected[var pvargIndex: OleVariant]: WordBool read Get_Selected write Set_Selected;
  2075.     property IMEMode: fmIMEMode read Get_IMEMode write Set_IMEMode;
  2076.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  2077.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  2078.   end;
  2079.  
  2080. // *********************************************************************//
  2081. // DispIntf:  IMdcListDisp
  2082. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2083. // GUID:      {8BD21D23-EC42-11CE-9E0D-00AA006002F3}
  2084. // *********************************************************************//
  2085.   IMdcListDisp = dispinterface
  2086.     ['{8BD21D23-EC42-11CE-9E0D-00AA006002F3}']
  2087.     property BackColor: OLE_COLOR dispid -501;
  2088.     property BorderColor: OLE_COLOR dispid -503;
  2089.     property BorderStyle: fmBorderStyle dispid -504;
  2090.     property BordersSuppress: WordBool dispid 20;
  2091.     function  BoundColumn(var BoundColumn: OleVariant): {??POleVariant1} OleVariant; dispid 501;
  2092.     property ColumnCount: Integer dispid 601;
  2093.     property ColumnHeads: WordBool dispid 602;
  2094.     property ColumnWidths: WideString dispid 603;
  2095.     property Enabled: WordBool dispid -514;
  2096.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  2097.     property Font: IFontDisp dispid -512;
  2098.     property FontBold: WordBool dispid 3;
  2099.     property FontItalic: WordBool dispid 4;
  2100.     property FontName: WideString dispid 1;
  2101.     property FontSize: Currency dispid 2;
  2102.     property FontStrikethru: WordBool dispid 6;
  2103.     property FontUnderline: WordBool dispid 5;
  2104.     property FontWeight: Smallint dispid 7;
  2105.     property ForeColor: OLE_COLOR dispid -513;
  2106.     property IntegralHeight: WordBool dispid 604;
  2107.     property ListCount: Integer readonly dispid -531;
  2108.     property ListCursor: PIROWSET dispid 403;
  2109.     function  ListIndex(var ListIndex: OleVariant): {??POleVariant1} OleVariant; dispid -526;
  2110.     property ListStyle: fmListStyle dispid 307;
  2111.     function  ListWidth(var ListWidth: OleVariant): {??POleVariant1} OleVariant; dispid 606;
  2112.     property Locked: WordBool dispid 10;
  2113.     property MatchEntry: fmMatchEntry dispid 504;
  2114.     property MouseIcon: IPictureDisp dispid -522;
  2115.     property MousePointer: fmMousePointer dispid -521;
  2116.     property MultiSelect: fmMultiSelect dispid -532;
  2117.     property SpecialEffect: fmSpecialEffect dispid 12;
  2118.     property Text: WideString dispid -517;
  2119.     function  TextColumn(var TextColumn: OleVariant): {??POleVariant1} OleVariant; dispid 502;
  2120.     function  TopIndex(var TopIndex: OleVariant): {??POleVariant1} OleVariant; dispid 611;
  2121.     property Valid: WordBool readonly dispid -524;
  2122.     function  Value(var Value: OleVariant): {??POleVariant1} OleVariant; dispid 0;
  2123.     function  Column(var pvargColumn: OleVariant; var pvargIndex: OleVariant): OleVariant; dispid -529;
  2124.     function  List(var pvargIndex: OleVariant; var pvargColumn: OleVariant): OleVariant; dispid -528;
  2125.     property Selected[var pvargIndex: OleVariant]: WordBool dispid -527;
  2126.     procedure AddItem(var pvargItem: OleVariant; var pvargIndex: OleVariant); dispid -553;
  2127.     procedure Clear; dispid -554;
  2128.     procedure RemoveItem(var pvargIndex: OleVariant); dispid -555;
  2129.     property IMEMode: fmIMEMode dispid -542;
  2130.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2131.     property TextAlign: fmTextAlign dispid 10004;
  2132.   end;
  2133.  
  2134. // *********************************************************************//
  2135. // Interface: IMdcCombo
  2136. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2137. // GUID:      {8BD21D33-EC42-11CE-9E0D-00AA006002F3}
  2138. // *********************************************************************//
  2139.   IMdcCombo = interface(IDispatch)
  2140.     ['{8BD21D33-EC42-11CE-9E0D-00AA006002F3}']
  2141.     procedure Set_AutoSize(AutoSize: WordBool); safecall;
  2142.     function  Get_AutoSize: WordBool; safecall;
  2143.     procedure Set_AutoTab(AutoTab: WordBool); safecall;
  2144.     function  Get_AutoTab: WordBool; safecall;
  2145.     procedure Set_AutoWordSelect(AutoWordSelect: WordBool); safecall;
  2146.     function  Get_AutoWordSelect: WordBool; safecall;
  2147.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  2148.     function  Get_BackColor: OLE_COLOR; safecall;
  2149.     procedure Set_BackStyle(BackStyle: fmBackStyle); safecall;
  2150.     function  Get_BackStyle: fmBackStyle; safecall;
  2151.     procedure Set_BorderColor(BorderColor: OLE_COLOR); safecall;
  2152.     function  Get_BorderColor: OLE_COLOR; safecall;
  2153.     procedure Set_BorderStyle(BorderStyle: fmBorderStyle); safecall;
  2154.     function  Get_BorderStyle: fmBorderStyle; safecall;
  2155.     procedure Set_BordersSuppress(BordersSuppress: WordBool); safecall;
  2156.     function  Get_BordersSuppress: WordBool; safecall;
  2157.     procedure Set_BoundColumn(var BoundColumn: OleVariant); safecall;
  2158.     function  Get_BoundColumn: OleVariant; safecall;
  2159.     function  Get_CanPaste: WordBool; safecall;
  2160.     procedure Set_ColumnCount(ColumnCount: Integer); safecall;
  2161.     function  Get_ColumnCount: Integer; safecall;
  2162.     procedure Set_ColumnHeads(ColumnHeads: WordBool); safecall;
  2163.     function  Get_ColumnHeads: WordBool; safecall;
  2164.     procedure Set_ColumnWidths(const ColumnWidths: WideString); safecall;
  2165.     function  Get_ColumnWidths: WideString; safecall;
  2166.     function  Get_CurTargetX: Integer; safecall;
  2167.     function  Get_CurTargetY: Integer; safecall;
  2168.     procedure Set_CurX(CurX: Integer); safecall;
  2169.     function  Get_CurX: Integer; safecall;
  2170.     procedure Set_DropButtonStyle(DropButtonStyle: fmDropButtonStyle); safecall;
  2171.     function  Get_DropButtonStyle: fmDropButtonStyle; safecall;
  2172.     procedure Set_Enabled(Enabled: WordBool); safecall;
  2173.     function  Get_Enabled: WordBool; safecall;
  2174.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  2175.     procedure Set_Font(const Font: IFontDisp); safecall;
  2176.     function  Get_Font: IFontDisp; safecall;
  2177.     procedure Set_FontBold(FontBold: WordBool); safecall;
  2178.     function  Get_FontBold: WordBool; safecall;
  2179.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  2180.     function  Get_FontItalic: WordBool; safecall;
  2181.     procedure Set_FontName(const FontName: WideString); safecall;
  2182.     function  Get_FontName: WideString; safecall;
  2183.     procedure Set_FontSize(FontSize: Currency); safecall;
  2184.     function  Get_FontSize: Currency; safecall;
  2185.     procedure Set_FontStrikethru(FontStrikethru: WordBool); safecall;
  2186.     function  Get_FontStrikethru: WordBool; safecall;
  2187.     procedure Set_FontUnderline(FontUnderline: WordBool); safecall;
  2188.     function  Get_FontUnderline: WordBool; safecall;
  2189.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  2190.     function  Get_FontWeight: Smallint; safecall;
  2191.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  2192.     function  Get_ForeColor: OLE_COLOR; safecall;
  2193.     procedure Set_HideSelection(HideSelection: WordBool); safecall;
  2194.     function  Get_HideSelection: WordBool; safecall;
  2195.     function  Get_LineCount: Integer; safecall;
  2196.     function  Get_ListCount: Integer; safecall;
  2197.     procedure Set_ListCursor(const ListCursor: PIROWSET); safecall;
  2198.     function  Get_ListCursor: PIROWSET; safecall;
  2199.     procedure Set_ListIndex(var ListIndex: OleVariant); safecall;
  2200.     function  Get_ListIndex: OleVariant; safecall;
  2201.     procedure Set_ListRows(ListRows: Integer); safecall;
  2202.     function  Get_ListRows: Integer; safecall;
  2203.     procedure Set_ListStyle(ListStyle: fmListStyle); safecall;
  2204.     function  Get_ListStyle: fmListStyle; safecall;
  2205.     procedure Set_ListWidth(var ListWidth: OleVariant); safecall;
  2206.     function  Get_ListWidth: OleVariant; safecall;
  2207.     procedure Set_Locked(Locked: WordBool); safecall;
  2208.     function  Get_Locked: WordBool; safecall;
  2209.     procedure Set_MatchEntry(MatchEntry: fmMatchEntry); safecall;
  2210.     function  Get_MatchEntry: fmMatchEntry; safecall;
  2211.     function  Get_MatchFound: WordBool; safecall;
  2212.     procedure Set_MatchRequired(MatchRequired: WordBool); safecall;
  2213.     function  Get_MatchRequired: WordBool; safecall;
  2214.     procedure Set_MaxLength(MaxLength: Integer); safecall;
  2215.     function  Get_MaxLength: Integer; safecall;
  2216.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2217.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2218.     function  Get_MouseIcon: IPictureDisp; safecall;
  2219.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  2220.     function  Get_MousePointer: fmMousePointer; safecall;
  2221.     procedure Set_SelectionMargin(SelectionMargin: WordBool); safecall;
  2222.     function  Get_SelectionMargin: WordBool; safecall;
  2223.     procedure Set_SelLength(SelLength: Integer); safecall;
  2224.     function  Get_SelLength: Integer; safecall;
  2225.     procedure Set_SelStart(SelStart: Integer); safecall;
  2226.     function  Get_SelStart: Integer; safecall;
  2227.     procedure Set_SelText(const SelText: WideString); safecall;
  2228.     function  Get_SelText: WideString; safecall;
  2229.     procedure Set_ShowDropButtonWhen(ShowDropButtonWhen: fmShowDropButtonWhen); safecall;
  2230.     function  Get_ShowDropButtonWhen: fmShowDropButtonWhen; safecall;
  2231.     procedure Set_SpecialEffect(SpecialEffect: fmSpecialEffect); safecall;
  2232.     function  Get_SpecialEffect: fmSpecialEffect; safecall;
  2233.     procedure Set_Style(Style: fmStyle); safecall;
  2234.     function  Get_Style: fmStyle; safecall;
  2235.     procedure Set_Text(const Text: WideString); safecall;
  2236.     function  Get_Text: WideString; safecall;
  2237.     procedure Set_TextAlign(TextAlign: fmTextAlign); safecall;
  2238.     function  Get_TextAlign: fmTextAlign; safecall;
  2239.     procedure Set_TextColumn(var TextColumn: OleVariant); safecall;
  2240.     function  Get_TextColumn: OleVariant; safecall;
  2241.     function  Get_TextLength: Integer; safecall;
  2242.     procedure Set_TopIndex(var TopIndex: OleVariant); safecall;
  2243.     function  Get_TopIndex: OleVariant; safecall;
  2244.     function  Get_Valid: WordBool; safecall;
  2245.     procedure Set_Value(var Value: OleVariant); safecall;
  2246.     function  Get_Value: OleVariant; safecall;
  2247.     function  Get_Column(var pvargColumn: OleVariant; var pvargIndex: OleVariant): OleVariant; safecall;
  2248.     procedure Set_Column(var pvargColumn: OleVariant; var pvargIndex: OleVariant; 
  2249.                          var pvargValue: OleVariant); safecall;
  2250.     function  Get_List(var pvargIndex: OleVariant; var pvargColumn: OleVariant): OleVariant; safecall;
  2251.     procedure Set_List(var pvargIndex: OleVariant; var pvargColumn: OleVariant; 
  2252.                        var pvargValue: OleVariant); safecall;
  2253.     procedure AddItem(var pvargItem: OleVariant; var pvargIndex: OleVariant); safecall;
  2254.     procedure Clear; safecall;
  2255.     procedure DropDown; safecall;
  2256.     procedure RemoveItem(var pvargIndex: OleVariant); safecall;
  2257.     procedure Copy; safecall;
  2258.     procedure Cut; safecall;
  2259.     procedure Paste; safecall;
  2260.     procedure Set_IMEMode(IMEMode: fmIMEMode); safecall;
  2261.     function  Get_IMEMode: fmIMEMode; safecall;
  2262.     procedure Set_EnterFieldBehavior(EnterFieldBehavior: fmEnterFieldBehavior); safecall;
  2263.     function  Get_EnterFieldBehavior: fmEnterFieldBehavior; safecall;
  2264.     procedure Set_DragBehavior(DragBehavior: fmDragBehavior); safecall;
  2265.     function  Get_DragBehavior: fmDragBehavior; safecall;
  2266.     function  Get_DisplayStyle: fmDisplayStyle; safecall;
  2267.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2268.     property AutoTab: WordBool read Get_AutoTab write Set_AutoTab;
  2269.     property AutoWordSelect: WordBool read Get_AutoWordSelect write Set_AutoWordSelect;
  2270.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  2271.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  2272.     property BorderColor: OLE_COLOR read Get_BorderColor write Set_BorderColor;
  2273.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2274.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  2275.     property CanPaste: WordBool read Get_CanPaste;
  2276.     property ColumnCount: Integer read Get_ColumnCount write Set_ColumnCount;
  2277.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  2278.     property ColumnWidths: WideString read Get_ColumnWidths write Set_ColumnWidths;
  2279.     property CurTargetX: Integer read Get_CurTargetX;
  2280.     property CurTargetY: Integer read Get_CurTargetY;
  2281.     property CurX: Integer read Get_CurX write Set_CurX;
  2282.     property DropButtonStyle: fmDropButtonStyle read Get_DropButtonStyle write Set_DropButtonStyle;
  2283.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2284.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  2285.     property Font: IFontDisp read Get_Font write Set_Font;
  2286.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2287.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2288.     property FontName: WideString read Get_FontName write Set_FontName;
  2289.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2290.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2291.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2292.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2293.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  2294.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  2295.     property LineCount: Integer read Get_LineCount;
  2296.     property ListCount: Integer read Get_ListCount;
  2297.     property ListCursor: PIROWSET read Get_ListCursor write Set_ListCursor;
  2298.     property ListRows: Integer read Get_ListRows write Set_ListRows;
  2299.     property ListStyle: fmListStyle read Get_ListStyle write Set_ListStyle;
  2300.     property Locked: WordBool read Get_Locked write Set_Locked;
  2301.     property MatchEntry: fmMatchEntry read Get_MatchEntry write Set_MatchEntry;
  2302.     property MatchFound: WordBool read Get_MatchFound;
  2303.     property MatchRequired: WordBool read Get_MatchRequired write Set_MatchRequired;
  2304.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  2305.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  2306.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2307.     property SelectionMargin: WordBool read Get_SelectionMargin write Set_SelectionMargin;
  2308.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  2309.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2310.     property SelText: WideString read Get_SelText write Set_SelText;
  2311.     property ShowDropButtonWhen: fmShowDropButtonWhen read Get_ShowDropButtonWhen write Set_ShowDropButtonWhen;
  2312.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  2313.     property Style: fmStyle read Get_Style write Set_Style;
  2314.     property Text: WideString read Get_Text write Set_Text;
  2315.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  2316.     property TextLength: Integer read Get_TextLength;
  2317.     property Valid: WordBool read Get_Valid;
  2318.     property IMEMode: fmIMEMode read Get_IMEMode write Set_IMEMode;
  2319.     property EnterFieldBehavior: fmEnterFieldBehavior read Get_EnterFieldBehavior write Set_EnterFieldBehavior;
  2320.     property DragBehavior: fmDragBehavior read Get_DragBehavior write Set_DragBehavior;
  2321.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  2322.   end;
  2323.  
  2324. // *********************************************************************//
  2325. // DispIntf:  IMdcComboDisp
  2326. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2327. // GUID:      {8BD21D33-EC42-11CE-9E0D-00AA006002F3}
  2328. // *********************************************************************//
  2329.   IMdcComboDisp = dispinterface
  2330.     ['{8BD21D33-EC42-11CE-9E0D-00AA006002F3}']
  2331.     property AutoSize: WordBool dispid -500;
  2332.     property AutoTab: WordBool dispid 217;
  2333.     property AutoWordSelect: WordBool dispid 218;
  2334.     property BackColor: OLE_COLOR dispid -501;
  2335.     property BackStyle: fmBackStyle dispid -502;
  2336.     property BorderColor: OLE_COLOR dispid -503;
  2337.     property BorderStyle: fmBorderStyle dispid -504;
  2338.     property BordersSuppress: WordBool dispid 20;
  2339.     function  BoundColumn(var BoundColumn: OleVariant): {??POleVariant1} OleVariant; dispid 501;
  2340.     property CanPaste: WordBool readonly dispid 25;
  2341.     property ColumnCount: Integer dispid 601;
  2342.     property ColumnHeads: WordBool dispid 602;
  2343.     property ColumnWidths: WideString dispid 603;
  2344.     property CurTargetX: Integer readonly dispid 210;
  2345.     property CurTargetY: Integer readonly dispid 221;
  2346.     property CurX: Integer dispid 208;
  2347.     property DropButtonStyle: fmDropButtonStyle dispid 305;
  2348.     property Enabled: WordBool dispid -514;
  2349.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  2350.     property Font: IFontDisp dispid -512;
  2351.     property FontBold: WordBool dispid 3;
  2352.     property FontItalic: WordBool dispid 4;
  2353.     property FontName: WideString dispid 1;
  2354.     property FontSize: Currency dispid 2;
  2355.     property FontStrikethru: WordBool dispid 6;
  2356.     property FontUnderline: WordBool dispid 5;
  2357.     property FontWeight: Smallint dispid 7;
  2358.     property ForeColor: OLE_COLOR dispid -513;
  2359.     property HideSelection: WordBool dispid 207;
  2360.     property LineCount: Integer readonly dispid 214;
  2361.     property ListCount: Integer readonly dispid -531;
  2362.     property ListCursor: PIROWSET dispid 403;
  2363.     function  ListIndex(var ListIndex: OleVariant): {??POleVariant1} OleVariant; dispid -526;
  2364.     property ListRows: Integer dispid 605;
  2365.     property ListStyle: fmListStyle dispid 307;
  2366.     function  ListWidth(var ListWidth: OleVariant): {??POleVariant1} OleVariant; dispid 606;
  2367.     property Locked: WordBool dispid 10;
  2368.     property MatchEntry: fmMatchEntry dispid 504;
  2369.     property MatchFound: WordBool readonly dispid 505;
  2370.     property MatchRequired: WordBool dispid 503;
  2371.     property MaxLength: Integer dispid -533;
  2372.     property MouseIcon: IPictureDisp dispid -522;
  2373.     property MousePointer: fmMousePointer dispid -521;
  2374.     property SelectionMargin: WordBool dispid 220;
  2375.     property SelLength: Integer dispid -548;
  2376.     property SelStart: Integer dispid -547;
  2377.     property SelText: WideString dispid -546;
  2378.     property ShowDropButtonWhen: fmShowDropButtonWhen dispid 304;
  2379.     property SpecialEffect: fmSpecialEffect dispid 12;
  2380.     property Style: fmStyle dispid 308;
  2381.     property Text: WideString dispid -517;
  2382.     property TextAlign: fmTextAlign dispid 10004;
  2383.     function  TextColumn(var TextColumn: OleVariant): {??POleVariant1} OleVariant; dispid 502;
  2384.     property TextLength: Integer readonly dispid 216;
  2385.     function  TopIndex(var TopIndex: OleVariant): {??POleVariant1} OleVariant; dispid 611;
  2386.     property Valid: WordBool readonly dispid -524;
  2387.     function  Value(var Value: OleVariant): {??POleVariant1} OleVariant; dispid 0;
  2388.     function  Column(var pvargColumn: OleVariant; var pvargIndex: OleVariant): OleVariant; dispid -529;
  2389.     function  List(var pvargIndex: OleVariant; var pvargColumn: OleVariant): OleVariant; dispid -528;
  2390.     procedure AddItem(var pvargItem: OleVariant; var pvargIndex: OleVariant); dispid -553;
  2391.     procedure Clear; dispid -554;
  2392.     procedure DropDown; dispid 1001;
  2393.     procedure RemoveItem(var pvargIndex: OleVariant); dispid -555;
  2394.     procedure Copy; dispid 22;
  2395.     procedure Cut; dispid 21;
  2396.     procedure Paste; dispid 24;
  2397.     property IMEMode: fmIMEMode dispid -542;
  2398.     property EnterFieldBehavior: fmEnterFieldBehavior dispid 224;
  2399.     property DragBehavior: fmDragBehavior dispid 225;
  2400.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2401.   end;
  2402.  
  2403. // *********************************************************************//
  2404. // Interface: IMdcCheckBox
  2405. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2406. // GUID:      {8BD21D43-EC42-11CE-9E0D-00AA006002F3}
  2407. // *********************************************************************//
  2408.   IMdcCheckBox = interface(IDispatch)
  2409.     ['{8BD21D43-EC42-11CE-9E0D-00AA006002F3}']
  2410.     procedure Set_Accelerator(const Accelerator: WideString); safecall;
  2411.     function  Get_Accelerator: WideString; safecall;
  2412.     procedure Set_Alignment(Alignment: fmAlignment); safecall;
  2413.     function  Get_Alignment: fmAlignment; safecall;
  2414.     procedure Set_AutoSize(AutoSize: WordBool); safecall;
  2415.     function  Get_AutoSize: WordBool; safecall;
  2416.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  2417.     function  Get_BackColor: OLE_COLOR; safecall;
  2418.     procedure Set_BackStyle(BackStyle: fmBackStyle); safecall;
  2419.     function  Get_BackStyle: fmBackStyle; safecall;
  2420.     procedure Set_BordersSuppress(BordersSuppress: WordBool); safecall;
  2421.     function  Get_BordersSuppress: WordBool; safecall;
  2422.     procedure Set_Caption(const Caption: WideString); safecall;
  2423.     function  Get_Caption: WideString; safecall;
  2424.     procedure Set_Enabled(Enabled: WordBool); safecall;
  2425.     function  Get_Enabled: WordBool; safecall;
  2426.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  2427.     procedure Set_Font(const Font: IFontDisp); safecall;
  2428.     function  Get_Font: IFontDisp; safecall;
  2429.     procedure Set_FontBold(FontBold: WordBool); safecall;
  2430.     function  Get_FontBold: WordBool; safecall;
  2431.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  2432.     function  Get_FontItalic: WordBool; safecall;
  2433.     procedure Set_FontName(const FontName: WideString); safecall;
  2434.     function  Get_FontName: WideString; safecall;
  2435.     procedure Set_FontSize(FontSize: Currency); safecall;
  2436.     function  Get_FontSize: Currency; safecall;
  2437.     procedure Set_FontStrikethru(FontStrikethru: WordBool); safecall;
  2438.     function  Get_FontStrikethru: WordBool; safecall;
  2439.     procedure Set_FontUnderline(FontUnderline: WordBool); safecall;
  2440.     function  Get_FontUnderline: WordBool; safecall;
  2441.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  2442.     function  Get_FontWeight: Smallint; safecall;
  2443.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  2444.     function  Get_ForeColor: OLE_COLOR; safecall;
  2445.     procedure Set_Locked(Locked: WordBool); safecall;
  2446.     function  Get_Locked: WordBool; safecall;
  2447.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2448.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2449.     function  Get_MouseIcon: IPictureDisp; safecall;
  2450.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  2451.     function  Get_MousePointer: fmMousePointer; safecall;
  2452.     procedure Set_MultiSelect(MultiSelect: fmMultiSelect); safecall;
  2453.     function  Get_MultiSelect: fmMultiSelect; safecall;
  2454.     procedure _Set_Picture(const Picture: IPictureDisp); safecall;
  2455.     procedure Set_Picture(const Picture: IPictureDisp); safecall;
  2456.     function  Get_Picture: IPictureDisp; safecall;
  2457.     procedure Set_PicturePosition(PicPos: fmPicturePosition); safecall;
  2458.     function  Get_PicturePosition: fmPicturePosition; safecall;
  2459.     procedure Set_SpecialEffect(SpecialEffect: fmButtonEffect); safecall;
  2460.     function  Get_SpecialEffect: fmButtonEffect; safecall;
  2461.     procedure Set_TripleState(TripleState: WordBool); safecall;
  2462.     function  Get_TripleState: WordBool; safecall;
  2463.     function  Get_Valid: WordBool; safecall;
  2464.     procedure Set_Value(var Value: OleVariant); safecall;
  2465.     function  Get_Value: OleVariant; safecall;
  2466.     procedure Set_WordWrap(WordWrap: WordBool); safecall;
  2467.     function  Get_WordWrap: WordBool; safecall;
  2468.     function  Get_DisplayStyle: fmDisplayStyle; safecall;
  2469.     procedure Set_GroupName(const GroupName: WideString); safecall;
  2470.     function  Get_GroupName: WideString; safecall;
  2471.     procedure Set_TextAlign(TextAlign: fmTextAlign); safecall;
  2472.     function  Get_TextAlign: fmTextAlign; safecall;
  2473.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  2474.     property Alignment: fmAlignment read Get_Alignment write Set_Alignment;
  2475.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2476.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  2477.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  2478.     property BordersSuppress: WordBool read Get_BordersSuppress write Set_BordersSuppress;
  2479.     property Caption: WideString read Get_Caption write Set_Caption;
  2480.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2481.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  2482.     property Font: IFontDisp read Get_Font write Set_Font;
  2483.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2484.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2485.     property FontName: WideString read Get_FontName write Set_FontName;
  2486.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2487.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2488.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2489.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2490.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  2491.     property Locked: WordBool read Get_Locked write Set_Locked;
  2492.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  2493.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2494.     property MultiSelect: fmMultiSelect read Get_MultiSelect write Set_MultiSelect;
  2495.     property Picture: IPictureDisp read Get_Picture write _Set_Picture;
  2496.     property PicturePosition: fmPicturePosition read Get_PicturePosition write Set_PicturePosition;
  2497.     property SpecialEffect: fmButtonEffect read Get_SpecialEffect write Set_SpecialEffect;
  2498.     property TripleState: WordBool read Get_TripleState write Set_TripleState;
  2499.     property Valid: WordBool read Get_Valid;
  2500.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  2501.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  2502.     property GroupName: WideString read Get_GroupName write Set_GroupName;
  2503.     property TextAlign: fmTextAlign read Get_TextAlign write Set_TextAlign;
  2504.   end;
  2505.  
  2506. // *********************************************************************//
  2507. // DispIntf:  IMdcCheckBoxDisp
  2508. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2509. // GUID:      {8BD21D43-EC42-11CE-9E0D-00AA006002F3}
  2510. // *********************************************************************//
  2511.   IMdcCheckBoxDisp = dispinterface
  2512.     ['{8BD21D43-EC42-11CE-9E0D-00AA006002F3}']
  2513.     property Accelerator: WideString dispid -543;
  2514.     property Alignment: fmAlignment dispid 710;
  2515.     property AutoSize: WordBool dispid -500;
  2516.     property BackColor: OLE_COLOR dispid -501;
  2517.     property BackStyle: fmBackStyle dispid -502;
  2518.     property BordersSuppress: WordBool dispid 20;
  2519.     property Caption: WideString dispid -518;
  2520.     property Enabled: WordBool dispid -514;
  2521.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  2522.     property Font: IFontDisp dispid -512;
  2523.     property FontBold: WordBool dispid 3;
  2524.     property FontItalic: WordBool dispid 4;
  2525.     property FontName: WideString dispid 1;
  2526.     property FontSize: Currency dispid 2;
  2527.     property FontStrikethru: WordBool dispid 6;
  2528.     property FontUnderline: WordBool dispid 5;
  2529.     property FontWeight: Smallint dispid 7;
  2530.     property ForeColor: OLE_COLOR dispid -513;
  2531.     property Locked: WordBool dispid 10;
  2532.     property MouseIcon: IPictureDisp dispid -522;
  2533.     property MousePointer: fmMousePointer dispid -521;
  2534.     property MultiSelect: fmMultiSelect dispid -532;
  2535.     property Picture: IPictureDisp dispid -523;
  2536.     property PicturePosition: fmPicturePosition dispid 11;
  2537.     property SpecialEffect: fmButtonEffect dispid 12;
  2538.     property TripleState: WordBool dispid 700;
  2539.     property Valid: WordBool readonly dispid -524;
  2540.     function  Value(var Value: OleVariant): {??POleVariant1} OleVariant; dispid 0;
  2541.     property WordWrap: WordBool dispid -536;
  2542.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2543.     property GroupName: WideString dispid -541;
  2544.     property TextAlign: fmTextAlign dispid 10004;
  2545.   end;
  2546.  
  2547. // *********************************************************************//
  2548. // Interface: IMdcOptionButton
  2549. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2550. // GUID:      {8BD21D53-EC42-11CE-9E0D-00AA006002F3}
  2551. // *********************************************************************//
  2552.   IMdcOptionButton = interface(IMdcCheckBox)
  2553.     ['{8BD21D53-EC42-11CE-9E0D-00AA006002F3}']
  2554.   end;
  2555.  
  2556. // *********************************************************************//
  2557. // DispIntf:  IMdcOptionButtonDisp
  2558. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2559. // GUID:      {8BD21D53-EC42-11CE-9E0D-00AA006002F3}
  2560. // *********************************************************************//
  2561.   IMdcOptionButtonDisp = dispinterface
  2562.     ['{8BD21D53-EC42-11CE-9E0D-00AA006002F3}']
  2563.     property Accelerator: WideString dispid -543;
  2564.     property Alignment: fmAlignment dispid 710;
  2565.     property AutoSize: WordBool dispid -500;
  2566.     property BackColor: OLE_COLOR dispid -501;
  2567.     property BackStyle: fmBackStyle dispid -502;
  2568.     property BordersSuppress: WordBool dispid 20;
  2569.     property Caption: WideString dispid -518;
  2570.     property Enabled: WordBool dispid -514;
  2571.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  2572.     property Font: IFontDisp dispid -512;
  2573.     property FontBold: WordBool dispid 3;
  2574.     property FontItalic: WordBool dispid 4;
  2575.     property FontName: WideString dispid 1;
  2576.     property FontSize: Currency dispid 2;
  2577.     property FontStrikethru: WordBool dispid 6;
  2578.     property FontUnderline: WordBool dispid 5;
  2579.     property FontWeight: Smallint dispid 7;
  2580.     property ForeColor: OLE_COLOR dispid -513;
  2581.     property Locked: WordBool dispid 10;
  2582.     property MouseIcon: IPictureDisp dispid -522;
  2583.     property MousePointer: fmMousePointer dispid -521;
  2584.     property MultiSelect: fmMultiSelect dispid -532;
  2585.     property Picture: IPictureDisp dispid -523;
  2586.     property PicturePosition: fmPicturePosition dispid 11;
  2587.     property SpecialEffect: fmButtonEffect dispid 12;
  2588.     property TripleState: WordBool dispid 700;
  2589.     property Valid: WordBool readonly dispid -524;
  2590.     function  Value(var Value: OleVariant): {??POleVariant1} OleVariant; dispid 0;
  2591.     property WordWrap: WordBool dispid -536;
  2592.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2593.     property GroupName: WideString dispid -541;
  2594.     property TextAlign: fmTextAlign dispid 10004;
  2595.   end;
  2596.  
  2597. // *********************************************************************//
  2598. // Interface: IMdcToggleButton
  2599. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2600. // GUID:      {8BD21D63-EC42-11CE-9E0D-00AA006002F3}
  2601. // *********************************************************************//
  2602.   IMdcToggleButton = interface(IMdcCheckBox)
  2603.     ['{8BD21D63-EC42-11CE-9E0D-00AA006002F3}']
  2604.   end;
  2605.  
  2606. // *********************************************************************//
  2607. // DispIntf:  IMdcToggleButtonDisp
  2608. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2609. // GUID:      {8BD21D63-EC42-11CE-9E0D-00AA006002F3}
  2610. // *********************************************************************//
  2611.   IMdcToggleButtonDisp = dispinterface
  2612.     ['{8BD21D63-EC42-11CE-9E0D-00AA006002F3}']
  2613.     property Accelerator: WideString dispid -543;
  2614.     property Alignment: fmAlignment dispid 710;
  2615.     property AutoSize: WordBool dispid -500;
  2616.     property BackColor: OLE_COLOR dispid -501;
  2617.     property BackStyle: fmBackStyle dispid -502;
  2618.     property BordersSuppress: WordBool dispid 20;
  2619.     property Caption: WideString dispid -518;
  2620.     property Enabled: WordBool dispid -514;
  2621.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  2622.     property Font: IFontDisp dispid -512;
  2623.     property FontBold: WordBool dispid 3;
  2624.     property FontItalic: WordBool dispid 4;
  2625.     property FontName: WideString dispid 1;
  2626.     property FontSize: Currency dispid 2;
  2627.     property FontStrikethru: WordBool dispid 6;
  2628.     property FontUnderline: WordBool dispid 5;
  2629.     property FontWeight: Smallint dispid 7;
  2630.     property ForeColor: OLE_COLOR dispid -513;
  2631.     property Locked: WordBool dispid 10;
  2632.     property MouseIcon: IPictureDisp dispid -522;
  2633.     property MousePointer: fmMousePointer dispid -521;
  2634.     property MultiSelect: fmMultiSelect dispid -532;
  2635.     property Picture: IPictureDisp dispid -523;
  2636.     property PicturePosition: fmPicturePosition dispid 11;
  2637.     property SpecialEffect: fmButtonEffect dispid 12;
  2638.     property TripleState: WordBool dispid 700;
  2639.     property Valid: WordBool readonly dispid -524;
  2640.     function  Value(var Value: OleVariant): {??POleVariant1} OleVariant; dispid 0;
  2641.     property WordWrap: WordBool dispid -536;
  2642.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  2643.     property GroupName: WideString dispid -541;
  2644.     property TextAlign: fmTextAlign dispid 10004;
  2645.   end;
  2646.  
  2647. // *********************************************************************//
  2648. // Interface: IScrollbar
  2649. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2650. // GUID:      {04598FC3-866C-11CF-AB7C-00AA00C08FCF}
  2651. // *********************************************************************//
  2652.   IScrollbar = interface(IDispatch)
  2653.     ['{04598FC3-866C-11CF-AB7C-00AA00C08FCF}']
  2654.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  2655.     function  Get_BackColor: OLE_COLOR; safecall;
  2656.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  2657.     function  Get_ForeColor: OLE_COLOR; safecall;
  2658.     procedure Set_Enabled(Enabled: WordBool); safecall;
  2659.     function  Get_Enabled: WordBool; safecall;
  2660.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  2661.     function  Get_MousePointer: fmMousePointer; safecall;
  2662.     procedure Set_Value(Value: Integer); safecall;
  2663.     function  Get_Value: Integer; safecall;
  2664.     procedure Set_Min(Min: Integer); safecall;
  2665.     function  Get_Min: Integer; safecall;
  2666.     procedure Set_Max(Max: Integer); safecall;
  2667.     function  Get_Max: Integer; safecall;
  2668.     procedure Set_SmallChange(SmallChange: Integer); safecall;
  2669.     function  Get_SmallChange: Integer; safecall;
  2670.     procedure Set_LargeChange(LargeChange: Integer); safecall;
  2671.     function  Get_LargeChange: Integer; safecall;
  2672.     procedure Set_ProportionalThumb(ProportionalThumb: WordBool); safecall;
  2673.     function  Get_ProportionalThumb: WordBool; safecall;
  2674.     procedure Set_Orientation(Orientation: fmOrientation); safecall;
  2675.     function  Get_Orientation: fmOrientation; safecall;
  2676.     procedure Set_Delay(Delay: Integer); safecall;
  2677.     function  Get_Delay: Integer; safecall;
  2678.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2679.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2680.     function  Get_MouseIcon: IPictureDisp; safecall;
  2681.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  2682.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  2683.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2684.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2685.     property Value: Integer read Get_Value write Set_Value;
  2686.     property Min: Integer read Get_Min write Set_Min;
  2687.     property Max: Integer read Get_Max write Set_Max;
  2688.     property SmallChange: Integer read Get_SmallChange write Set_SmallChange;
  2689.     property LargeChange: Integer read Get_LargeChange write Set_LargeChange;
  2690.     property ProportionalThumb: WordBool read Get_ProportionalThumb write Set_ProportionalThumb;
  2691.     property Orientation: fmOrientation read Get_Orientation write Set_Orientation;
  2692.     property Delay: Integer read Get_Delay write Set_Delay;
  2693.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  2694.   end;
  2695.  
  2696. // *********************************************************************//
  2697. // DispIntf:  IScrollbarDisp
  2698. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2699. // GUID:      {04598FC3-866C-11CF-AB7C-00AA00C08FCF}
  2700. // *********************************************************************//
  2701.   IScrollbarDisp = dispinterface
  2702.     ['{04598FC3-866C-11CF-AB7C-00AA00C08FCF}']
  2703.     property BackColor: OLE_COLOR dispid -501;
  2704.     property ForeColor: OLE_COLOR dispid -513;
  2705.     property Enabled: WordBool dispid -514;
  2706.     property MousePointer: fmMousePointer dispid -521;
  2707.     property Value: Integer dispid 0;
  2708.     property Min: Integer dispid 100;
  2709.     property Max: Integer dispid 101;
  2710.     property SmallChange: Integer dispid 102;
  2711.     property LargeChange: Integer dispid 103;
  2712.     property ProportionalThumb: WordBool dispid 104;
  2713.     property Orientation: fmOrientation dispid 105;
  2714.     property Delay: Integer dispid 106;
  2715.     property MouseIcon: IPictureDisp dispid -522;
  2716.   end;
  2717.  
  2718. // *********************************************************************//
  2719. // Interface: Tab
  2720. // Flags:     (4416) Dual OleAutomation Dispatchable
  2721. // GUID:      {A38BFFC3-A5A0-11CE-8107-00AA00611080}
  2722. // *********************************************************************//
  2723.   Tab = interface(IDispatch)
  2724.     ['{A38BFFC3-A5A0-11CE-8107-00AA00611080}']
  2725.     procedure Set_Caption(const Caption: WideString); safecall;
  2726.     function  Get_Caption: WideString; safecall;
  2727.     procedure Set_ControlTipText(const ControlTipText: WideString); safecall;
  2728.     function  Get_ControlTipText: WideString; safecall;
  2729.     procedure Set_Enabled(fEnabled: WordBool); safecall;
  2730.     function  Get_Enabled: WordBool; safecall;
  2731.     procedure Set_Index(Index: Integer); safecall;
  2732.     function  Get_Index: Integer; safecall;
  2733.     procedure Set_Name(const Name: WideString); safecall;
  2734.     function  Get_Name: WideString; safecall;
  2735.     procedure Set_Tag(const Tag: WideString); safecall;
  2736.     function  Get_Tag: WideString; safecall;
  2737.     procedure Set_Visible(Visible: WordBool); safecall;
  2738.     function  Get_Visible: WordBool; safecall;
  2739.     procedure Set_Accelerator(const Accelerator: WideString); safecall;
  2740.     function  Get_Accelerator: WideString; safecall;
  2741.     property Caption: WideString read Get_Caption write Set_Caption;
  2742.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  2743.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2744.     property Index: Integer read Get_Index write Set_Index;
  2745.     property Name: WideString read Get_Name write Set_Name;
  2746.     property Tag: WideString read Get_Tag write Set_Tag;
  2747.     property Visible: WordBool read Get_Visible write Set_Visible;
  2748.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  2749.   end;
  2750.  
  2751. // *********************************************************************//
  2752. // DispIntf:  TabDisp
  2753. // Flags:     (4416) Dual OleAutomation Dispatchable
  2754. // GUID:      {A38BFFC3-A5A0-11CE-8107-00AA00611080}
  2755. // *********************************************************************//
  2756.   TabDisp = dispinterface
  2757.     ['{A38BFFC3-A5A0-11CE-8107-00AA00611080}']
  2758.     property Caption: WideString dispid -518;
  2759.     property ControlTipText: WideString dispid -2147418043;
  2760.     property Enabled: WordBool dispid -514;
  2761.     property Index: Integer dispid 1;
  2762.     property Name: WideString dispid -2147418112;
  2763.     property Tag: WideString dispid -2147418101;
  2764.     property Visible: WordBool dispid -2147418105;
  2765.     property Accelerator: WideString dispid -543;
  2766.   end;
  2767.  
  2768. // *********************************************************************//
  2769. // Interface: Tabs
  2770. // Flags:     (4416) Dual OleAutomation Dispatchable
  2771. // GUID:      {944ACF93-A1E6-11CE-8104-00AA00611080}
  2772. // *********************************************************************//
  2773.   Tabs = interface(IDispatch)
  2774.     ['{944ACF93-A1E6-11CE-8104-00AA00611080}']
  2775.     function  Get_Count: Integer; safecall;
  2776.     function  Get__NewEnum: IUnknown; safecall;
  2777.     function  _GetItemByIndex(lIndex: Integer): Tab; safecall;
  2778.     function  _GetItemByName(const bstr: WideString): Tab; safecall;
  2779.     function  Item(varg: OleVariant): IDispatch; safecall;
  2780.     function  Enum: IUnknown; safecall;
  2781.     function  Add(bstrName: OleVariant; bstrCaption: OleVariant; lIndex: OleVariant): Tab; safecall;
  2782.     function  _Add(const bstrName: WideString; const bstrCaption: WideString): Tab; safecall;
  2783.     function  _Insert(const bstrName: WideString; const bstrCaption: WideString; lIndex: Integer): Tab; safecall;
  2784.     procedure Remove(varg: OleVariant); safecall;
  2785.     procedure Clear; safecall;
  2786.     property Count: Integer read Get_Count;
  2787.     property _NewEnum: IUnknown read Get__NewEnum;
  2788.   end;
  2789.  
  2790. // *********************************************************************//
  2791. // DispIntf:  TabsDisp
  2792. // Flags:     (4416) Dual OleAutomation Dispatchable
  2793. // GUID:      {944ACF93-A1E6-11CE-8104-00AA00611080}
  2794. // *********************************************************************//
  2795.   TabsDisp = dispinterface
  2796.     ['{944ACF93-A1E6-11CE-8104-00AA00611080}']
  2797.     property Count: Integer readonly dispid 60;
  2798.     property _NewEnum: IUnknown readonly dispid -4;
  2799.     function  _GetItemByIndex(lIndex: Integer): Tab; dispid 1610743810;
  2800.     function  _GetItemByName(const bstr: WideString): Tab; dispid 1610743811;
  2801.     function  Item(varg: OleVariant): IDispatch; dispid 0;
  2802.     function  Enum: IUnknown; dispid 1610743813;
  2803.     function  Add(bstrName: OleVariant; bstrCaption: OleVariant; lIndex: OleVariant): Tab; dispid 66;
  2804.     function  _Add(const bstrName: WideString; const bstrCaption: WideString): Tab; dispid 1610743815;
  2805.     function  _Insert(const bstrName: WideString; const bstrCaption: WideString; lIndex: Integer): Tab; dispid 1610743816;
  2806.     procedure Remove(varg: OleVariant); dispid 67;
  2807.     procedure Clear; dispid 62;
  2808.   end;
  2809.  
  2810. // *********************************************************************//
  2811. // Interface: ITabStrip
  2812. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2813. // GUID:      {04598FC2-866C-11CF-AB7C-00AA00C08FCF}
  2814. // *********************************************************************//
  2815.   ITabStrip = interface(IDispatch)
  2816.     ['{04598FC2-866C-11CF-AB7C-00AA00C08FCF}']
  2817.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  2818.     function  Get_BackColor: OLE_COLOR; safecall;
  2819.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  2820.     function  Get_ForeColor: OLE_COLOR; safecall;
  2821.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  2822.     procedure Set_Font(const Font: IFontDisp); safecall;
  2823.     function  Get_Font: IFontDisp; safecall;
  2824.     procedure Set_FontName(const FontName: WideString); safecall;
  2825.     function  Get_FontName: WideString; safecall;
  2826.     procedure Set_FontBold(FontBold: WordBool); safecall;
  2827.     function  Get_FontBold: WordBool; safecall;
  2828.     procedure Set_FontItalic(FontItalic: WordBool); safecall;
  2829.     function  Get_FontItalic: WordBool; safecall;
  2830.     procedure Set_FontUnderline(FontUnder: WordBool); safecall;
  2831.     function  Get_FontUnderline: WordBool; safecall;
  2832.     procedure Set_FontStrikethru(FontStrike: WordBool); safecall;
  2833.     function  Get_FontStrikethru: WordBool; safecall;
  2834.     procedure Set_FontSize(FontSize: Currency); safecall;
  2835.     function  Get_FontSize: Currency; safecall;
  2836.     procedure Set_Enabled(fnabled: WordBool); safecall;
  2837.     function  Get_Enabled: WordBool; safecall;
  2838.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2839.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2840.     function  Get_MouseIcon: IPictureDisp; safecall;
  2841.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  2842.     function  Get_MousePointer: fmMousePointer; safecall;
  2843.     procedure Set_MultiRow(MultiRow: WordBool); safecall;
  2844.     function  Get_MultiRow: WordBool; safecall;
  2845.     procedure Set_Style(TabStyle: fmTabStyle); safecall;
  2846.     function  Get_Style: fmTabStyle; safecall;
  2847.     procedure Set_TabOrientation(TabOrientation: fmTabOrientation); safecall;
  2848.     function  Get_TabOrientation: fmTabOrientation; safecall;
  2849.     procedure _SetTabFixedWidth(TabFixedWidth: Integer); safecall;
  2850.     procedure _GetTabFixedWidth(out TabFixedWidth: Integer); safecall;
  2851.     procedure _SetTabFixedHeight(TabFixedHeight: Integer); safecall;
  2852.     procedure _GetTabFixedHeight(out TabFixedHeight: Integer); safecall;
  2853.     procedure _GetClientTop(out ClientTop: Integer); safecall;
  2854.     function  Get_ClientTop: Single; safecall;
  2855.     procedure _GetClientLeft(out ClientLeft: Integer); safecall;
  2856.     function  Get_ClientLeft: Single; safecall;
  2857.     procedure _GetClientWidth(out ClientWidth: Integer); safecall;
  2858.     function  Get_ClientWidth: Single; safecall;
  2859.     procedure _GetClientHeight(out ClientHeight: Integer); safecall;
  2860.     function  Get_ClientHeight: Single; safecall;
  2861.     function  Get_Tabs: Tabs; safecall;
  2862.     function  Get_SelectedItem: Tab; safecall;
  2863.     procedure Set_Value(Index: Integer); safecall;
  2864.     function  Get_Value: Integer; safecall;
  2865.     procedure Set_TabFixedWidth(TabFixedWidth: Single); safecall;
  2866.     function  Get_TabFixedWidth: Single; safecall;
  2867.     procedure Set_TabFixedHeight(TabFixedHeight: Single); safecall;
  2868.     function  Get_TabFixedHeight: Single; safecall;
  2869.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  2870.     function  Get_FontWeight: Smallint; safecall;
  2871.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  2872.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  2873.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  2874.     property Font: IFontDisp read Get_Font write Set_Font;
  2875.     property FontName: WideString read Get_FontName write Set_FontName;
  2876.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  2877.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2878.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2879.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  2880.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  2881.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2882.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  2883.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2884.     property MultiRow: WordBool read Get_MultiRow write Set_MultiRow;
  2885.     property Style: fmTabStyle read Get_Style write Set_Style;
  2886.     property TabOrientation: fmTabOrientation read Get_TabOrientation write Set_TabOrientation;
  2887.     property ClientTop: Single read Get_ClientTop;
  2888.     property ClientLeft: Single read Get_ClientLeft;
  2889.     property ClientWidth: Single read Get_ClientWidth;
  2890.     property ClientHeight: Single read Get_ClientHeight;
  2891.     property Tabs: Tabs read Get_Tabs;
  2892.     property SelectedItem: Tab read Get_SelectedItem;
  2893.     property Value: Integer read Get_Value write Set_Value;
  2894.     property TabFixedWidth: Single read Get_TabFixedWidth write Set_TabFixedWidth;
  2895.     property TabFixedHeight: Single read Get_TabFixedHeight write Set_TabFixedHeight;
  2896.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2897.   end;
  2898.  
  2899. // *********************************************************************//
  2900. // DispIntf:  ITabStripDisp
  2901. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2902. // GUID:      {04598FC2-866C-11CF-AB7C-00AA00C08FCF}
  2903. // *********************************************************************//
  2904.   ITabStripDisp = dispinterface
  2905.     ['{04598FC2-866C-11CF-AB7C-00AA00C08FCF}']
  2906.     property BackColor: OLE_COLOR dispid -501;
  2907.     property ForeColor: OLE_COLOR dispid -513;
  2908.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  2909.     property Font: IFontDisp dispid -512;
  2910.     property FontName: WideString dispid 1;
  2911.     property FontBold: WordBool dispid 3;
  2912.     property FontItalic: WordBool dispid 4;
  2913.     property FontUnderline: WordBool dispid 5;
  2914.     property FontStrikethru: WordBool dispid 6;
  2915.     property FontSize: Currency dispid 2;
  2916.     property Enabled: WordBool dispid -514;
  2917.     property MouseIcon: IPictureDisp dispid -522;
  2918.     property MousePointer: fmMousePointer dispid -521;
  2919.     property MultiRow: WordBool dispid 514;
  2920.     property Style: fmTabStyle dispid 513;
  2921.     property TabOrientation: fmTabOrientation dispid 512;
  2922.     procedure _SetTabFixedWidth(TabFixedWidth: Integer); dispid 1610743840;
  2923.     procedure _GetTabFixedWidth(out TabFixedWidth: Integer); dispid 1610743841;
  2924.     procedure _SetTabFixedHeight(TabFixedHeight: Integer); dispid 1610743842;
  2925.     procedure _GetTabFixedHeight(out TabFixedHeight: Integer); dispid 1610743843;
  2926.     procedure _GetClientTop(out ClientTop: Integer); dispid 1610743844;
  2927.     property ClientTop: Single readonly dispid 548;
  2928.     procedure _GetClientLeft(out ClientLeft: Integer); dispid 1610743846;
  2929.     property ClientLeft: Single readonly dispid 547;
  2930.     procedure _GetClientWidth(out ClientWidth: Integer); dispid 1610743848;
  2931.     property ClientWidth: Single readonly dispid 549;
  2932.     procedure _GetClientHeight(out ClientHeight: Integer); dispid 1610743850;
  2933.     property ClientHeight: Single readonly dispid 546;
  2934.     property Tabs: Tabs readonly dispid 0;
  2935.     property SelectedItem: Tab readonly dispid 545;
  2936.     property Value: Integer dispid 528;
  2937.     property TabFixedWidth: Single dispid 515;
  2938.     property TabFixedHeight: Single dispid 516;
  2939.     property FontWeight: Smallint dispid 7;
  2940.   end;
  2941.  
  2942. // *********************************************************************//
  2943. // Interface: ISpinbutton
  2944. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2945. // GUID:      {79176FB3-B7F2-11CE-97EF-00AA006D2776}
  2946. // *********************************************************************//
  2947.   ISpinbutton = interface(IDispatch)
  2948.     ['{79176FB3-B7F2-11CE-97EF-00AA006D2776}']
  2949.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  2950.     function  Get_BackColor: OLE_COLOR; safecall;
  2951.     procedure Set_ForeColor(ForeColor: OLE_COLOR); safecall;
  2952.     function  Get_ForeColor: OLE_COLOR; safecall;
  2953.     procedure Set_Enabled(Enabled: WordBool); safecall;
  2954.     function  Get_Enabled: WordBool; safecall;
  2955.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  2956.     function  Get_MousePointer: fmMousePointer; safecall;
  2957.     procedure Set_Value(Value: Integer); safecall;
  2958.     function  Get_Value: Integer; safecall;
  2959.     procedure Set_Min(Min: Integer); safecall;
  2960.     function  Get_Min: Integer; safecall;
  2961.     procedure Set_Max(Max: Integer); safecall;
  2962.     function  Get_Max: Integer; safecall;
  2963.     procedure Set_SmallChange(SmallChange: Integer); safecall;
  2964.     function  Get_SmallChange: Integer; safecall;
  2965.     procedure Set_Orientation(Orientation: fmOrientation); safecall;
  2966.     function  Get_Orientation: fmOrientation; safecall;
  2967.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2968.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  2969.     function  Get_MouseIcon: IPictureDisp; safecall;
  2970.     procedure Set_Delay(Delay: Integer); safecall;
  2971.     function  Get_Delay: Integer; safecall;
  2972.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  2973.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  2974.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2975.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  2976.     property Value: Integer read Get_Value write Set_Value;
  2977.     property Min: Integer read Get_Min write Set_Min;
  2978.     property Max: Integer read Get_Max write Set_Max;
  2979.     property SmallChange: Integer read Get_SmallChange write Set_SmallChange;
  2980.     property Orientation: fmOrientation read Get_Orientation write Set_Orientation;
  2981.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  2982.     property Delay: Integer read Get_Delay write Set_Delay;
  2983.   end;
  2984.  
  2985. // *********************************************************************//
  2986. // DispIntf:  ISpinbuttonDisp
  2987. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  2988. // GUID:      {79176FB3-B7F2-11CE-97EF-00AA006D2776}
  2989. // *********************************************************************//
  2990.   ISpinbuttonDisp = dispinterface
  2991.     ['{79176FB3-B7F2-11CE-97EF-00AA006D2776}']
  2992.     property BackColor: OLE_COLOR dispid -501;
  2993.     property ForeColor: OLE_COLOR dispid -513;
  2994.     property Enabled: WordBool dispid -514;
  2995.     property MousePointer: fmMousePointer dispid -521;
  2996.     property Value: Integer dispid 0;
  2997.     property Min: Integer dispid 100;
  2998.     property Max: Integer dispid 101;
  2999.     property SmallChange: Integer dispid 102;
  3000.     property Orientation: fmOrientation dispid 105;
  3001.     property MouseIcon: IPictureDisp dispid -522;
  3002.     property Delay: Integer dispid 106;
  3003.   end;
  3004.  
  3005. // *********************************************************************//
  3006. // Interface: IImage
  3007. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3008. // GUID:      {4C599243-6926-101B-9992-00000B65C6F9}
  3009. // *********************************************************************//
  3010.   IImage = interface(IDispatch)
  3011.     ['{4C599243-6926-101B-9992-00000B65C6F9}']
  3012.     procedure Set_Enabled(fEnabled: WordBool); safecall;
  3013.     function  Get_Enabled: WordBool; safecall;
  3014.     procedure Set_MousePointer(MousePointer: fmMousePointer); safecall;
  3015.     function  Get_MousePointer: fmMousePointer; safecall;
  3016.     procedure Set_AutoSize(fAutoSize: WordBool); safecall;
  3017.     function  Get_AutoSize: WordBool; safecall;
  3018.     procedure Set_BackColor(BackColor: OLE_COLOR); safecall;
  3019.     function  Get_BackColor: OLE_COLOR; safecall;
  3020.     procedure Set_BackStyle(BackStyle: fmBackStyle); safecall;
  3021.     function  Get_BackStyle: fmBackStyle; safecall;
  3022.     procedure Set_BorderColor(BorderColor: OLE_COLOR); safecall;
  3023.     function  Get_BorderColor: OLE_COLOR; safecall;
  3024.     procedure Set_BorderStyle(Style: fmBorderStyle); safecall;
  3025.     function  Get_BorderStyle: fmBorderStyle; safecall;
  3026.     procedure _Set_Picture(const Picture: IPictureDisp); safecall;
  3027.     procedure Set_Picture(const Picture: IPictureDisp); safecall;
  3028.     function  Get_Picture: IPictureDisp; safecall;
  3029.     procedure _Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  3030.     procedure Set_MouseIcon(const MouseIcon: IPictureDisp); safecall;
  3031.     function  Get_MouseIcon: IPictureDisp; safecall;
  3032.     procedure Set_PictureSizeMode(PictureSizeMode: fmPictureSizeMode); safecall;
  3033.     function  Get_PictureSizeMode: fmPictureSizeMode; safecall;
  3034.     procedure Set_PictureAlignment(PictureAlignment: fmPictureAlignment); safecall;
  3035.     function  Get_PictureAlignment: fmPictureAlignment; safecall;
  3036.     procedure Set_PictureTiling(PictureTiling: WordBool); safecall;
  3037.     function  Get_PictureTiling: WordBool; safecall;
  3038.     procedure Set_SpecialEffect(SpecialEffect: fmSpecialEffect); safecall;
  3039.     function  Get_SpecialEffect: fmSpecialEffect; safecall;
  3040.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3041.     property MousePointer: fmMousePointer read Get_MousePointer write Set_MousePointer;
  3042.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  3043.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  3044.     property BackStyle: fmBackStyle read Get_BackStyle write Set_BackStyle;
  3045.     property BorderColor: OLE_COLOR read Get_BorderColor write Set_BorderColor;
  3046.     property BorderStyle: fmBorderStyle read Get_BorderStyle write Set_BorderStyle;
  3047.     property Picture: IPictureDisp read Get_Picture write _Set_Picture;
  3048.     property MouseIcon: IPictureDisp read Get_MouseIcon write _Set_MouseIcon;
  3049.     property PictureSizeMode: fmPictureSizeMode read Get_PictureSizeMode write Set_PictureSizeMode;
  3050.     property PictureAlignment: fmPictureAlignment read Get_PictureAlignment write Set_PictureAlignment;
  3051.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  3052.     property SpecialEffect: fmSpecialEffect read Get_SpecialEffect write Set_SpecialEffect;
  3053.   end;
  3054.  
  3055. // *********************************************************************//
  3056. // DispIntf:  IImageDisp
  3057. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3058. // GUID:      {4C599243-6926-101B-9992-00000B65C6F9}
  3059. // *********************************************************************//
  3060.   IImageDisp = dispinterface
  3061.     ['{4C599243-6926-101B-9992-00000B65C6F9}']
  3062.     property Enabled: WordBool dispid -514;
  3063.     property MousePointer: fmMousePointer dispid -521;
  3064.     property AutoSize: WordBool dispid -500;
  3065.     property BackColor: OLE_COLOR dispid -501;
  3066.     property BackStyle: fmBackStyle dispid -502;
  3067.     property BorderColor: OLE_COLOR dispid -503;
  3068.     property BorderStyle: fmBorderStyle dispid -504;
  3069.     property Picture: IPictureDisp dispid -523;
  3070.     property MouseIcon: IPictureDisp dispid -522;
  3071.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  3072.     property PictureAlignment: fmPictureAlignment dispid 26;
  3073.     property PictureTiling: WordBool dispid 28;
  3074.     property SpecialEffect: fmSpecialEffect dispid 12;
  3075.   end;
  3076.  
  3077. // *********************************************************************//
  3078. // Interface: IWHTMLSubmitButton
  3079. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3080. // GUID:      {5512D111-5CC6-11CF-8D67-00AA00BDCE1D}
  3081. // *********************************************************************//
  3082.   IWHTMLSubmitButton = interface(IDispatch)
  3083.     ['{5512D111-5CC6-11CF-8D67-00AA00BDCE1D}']
  3084.     procedure Set_Action(const Action: WideString); safecall;
  3085.     function  Get_Action: WideString; safecall;
  3086.     procedure Set_Caption(const Caption: WideString); safecall;
  3087.     function  Get_Caption: WideString; safecall;
  3088.     procedure Set_Encoding(const Encoding: WideString); safecall;
  3089.     function  Get_Encoding: WideString; safecall;
  3090.     procedure Set_Method(const Method: WideString); safecall;
  3091.     function  Get_Method: WideString; safecall;
  3092.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3093.     function  Get_HTMLName: WideString; safecall;
  3094.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3095.     function  Get_HTMLType: WideString; safecall;
  3096.     property Action: WideString read Get_Action write Set_Action;
  3097.     property Caption: WideString read Get_Caption write Set_Caption;
  3098.     property Encoding: WideString read Get_Encoding write Set_Encoding;
  3099.     property Method: WideString read Get_Method write Set_Method;
  3100.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3101.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3102.   end;
  3103.  
  3104. // *********************************************************************//
  3105. // DispIntf:  IWHTMLSubmitButtonDisp
  3106. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3107. // GUID:      {5512D111-5CC6-11CF-8D67-00AA00BDCE1D}
  3108. // *********************************************************************//
  3109.   IWHTMLSubmitButtonDisp = dispinterface
  3110.     ['{5512D111-5CC6-11CF-8D67-00AA00BDCE1D}']
  3111.     property Action: WideString dispid 601;
  3112.     property Caption: WideString dispid 602;
  3113.     property Encoding: WideString dispid 603;
  3114.     property Method: WideString dispid 604;
  3115.     property HTMLName: WideString dispid -541;
  3116.     property HTMLType: WideString dispid 618;
  3117.   end;
  3118.  
  3119. // *********************************************************************//
  3120. // Interface: IWHTMLImage
  3121. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3122. // GUID:      {5512D113-5CC6-11CF-8D67-00AA00BDCE1D}
  3123. // *********************************************************************//
  3124.   IWHTMLImage = interface(IDispatch)
  3125.     ['{5512D113-5CC6-11CF-8D67-00AA00BDCE1D}']
  3126.     procedure Set_Action(const Action: WideString); safecall;
  3127.     function  Get_Action: WideString; safecall;
  3128.     procedure Set_Source(const Source: WideString); safecall;
  3129.     function  Get_Source: WideString; safecall;
  3130.     procedure Set_Encoding(const Encoding: WideString); safecall;
  3131.     function  Get_Encoding: WideString; safecall;
  3132.     procedure Set_Method(const Method: WideString); safecall;
  3133.     function  Get_Method: WideString; safecall;
  3134.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3135.     function  Get_HTMLName: WideString; safecall;
  3136.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3137.     function  Get_HTMLType: WideString; safecall;
  3138.     property Action: WideString read Get_Action write Set_Action;
  3139.     property Source: WideString read Get_Source write Set_Source;
  3140.     property Encoding: WideString read Get_Encoding write Set_Encoding;
  3141.     property Method: WideString read Get_Method write Set_Method;
  3142.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3143.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3144.   end;
  3145.  
  3146. // *********************************************************************//
  3147. // DispIntf:  IWHTMLImageDisp
  3148. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3149. // GUID:      {5512D113-5CC6-11CF-8D67-00AA00BDCE1D}
  3150. // *********************************************************************//
  3151.   IWHTMLImageDisp = dispinterface
  3152.     ['{5512D113-5CC6-11CF-8D67-00AA00BDCE1D}']
  3153.     property Action: WideString dispid 601;
  3154.     property Source: WideString dispid 606;
  3155.     property Encoding: WideString dispid 603;
  3156.     property Method: WideString dispid 604;
  3157.     property HTMLName: WideString dispid -541;
  3158.     property HTMLType: WideString dispid 618;
  3159.   end;
  3160.  
  3161. // *********************************************************************//
  3162. // Interface: IWHTMLReset
  3163. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3164. // GUID:      {5512D115-5CC6-11CF-8D67-00AA00BDCE1D}
  3165. // *********************************************************************//
  3166.   IWHTMLReset = interface(IDispatch)
  3167.     ['{5512D115-5CC6-11CF-8D67-00AA00BDCE1D}']
  3168.     procedure Set_Caption(const Caption: WideString); safecall;
  3169.     function  Get_Caption: WideString; safecall;
  3170.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3171.     function  Get_HTMLName: WideString; safecall;
  3172.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3173.     function  Get_HTMLType: WideString; safecall;
  3174.     property Caption: WideString read Get_Caption write Set_Caption;
  3175.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3176.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3177.   end;
  3178.  
  3179. // *********************************************************************//
  3180. // DispIntf:  IWHTMLResetDisp
  3181. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3182. // GUID:      {5512D115-5CC6-11CF-8D67-00AA00BDCE1D}
  3183. // *********************************************************************//
  3184.   IWHTMLResetDisp = dispinterface
  3185.     ['{5512D115-5CC6-11CF-8D67-00AA00BDCE1D}']
  3186.     property Caption: WideString dispid 602;
  3187.     property HTMLName: WideString dispid -541;
  3188.     property HTMLType: WideString dispid 618;
  3189.   end;
  3190.  
  3191. // *********************************************************************//
  3192. // Interface: IWHTMLCheckbox
  3193. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3194. // GUID:      {5512D117-5CC6-11CF-8D67-00AA00BDCE1D}
  3195. // *********************************************************************//
  3196.   IWHTMLCheckbox = interface(IDispatch)
  3197.     ['{5512D117-5CC6-11CF-8D67-00AA00BDCE1D}']
  3198.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3199.     function  Get_HTMLName: WideString; safecall;
  3200.     procedure Set_Value(const Value: WideString); safecall;
  3201.     function  Get_Value: WideString; safecall;
  3202.     procedure Set_Checked(Checked: WordBool); safecall;
  3203.     function  Get_Checked: WordBool; safecall;
  3204.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3205.     function  Get_HTMLType: WideString; safecall;
  3206.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3207.     property Value: WideString read Get_Value write Set_Value;
  3208.     property Checked: WordBool read Get_Checked write Set_Checked;
  3209.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3210.   end;
  3211.  
  3212. // *********************************************************************//
  3213. // DispIntf:  IWHTMLCheckboxDisp
  3214. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3215. // GUID:      {5512D117-5CC6-11CF-8D67-00AA00BDCE1D}
  3216. // *********************************************************************//
  3217.   IWHTMLCheckboxDisp = dispinterface
  3218.     ['{5512D117-5CC6-11CF-8D67-00AA00BDCE1D}']
  3219.     property HTMLName: WideString dispid -541;
  3220.     property Value: WideString dispid 607;
  3221.     property Checked: WordBool dispid 0;
  3222.     property HTMLType: WideString dispid 618;
  3223.   end;
  3224.  
  3225. // *********************************************************************//
  3226. // Interface: IWHTMLOption
  3227. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3228. // GUID:      {5512D119-5CC6-11CF-8D67-00AA00BDCE1D}
  3229. // *********************************************************************//
  3230.   IWHTMLOption = interface(IDispatch)
  3231.     ['{5512D119-5CC6-11CF-8D67-00AA00BDCE1D}']
  3232.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3233.     function  Get_HTMLName: WideString; safecall;
  3234.     procedure Set_Value(const Value: WideString); safecall;
  3235.     function  Get_Value: WideString; safecall;
  3236.     procedure Set_Checked(Checked: WordBool); safecall;
  3237.     function  Get_Checked: WordBool; safecall;
  3238.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3239.     function  Get_HTMLType: WideString; safecall;
  3240.     function  Get_DisplayStyle: fmDisplayStyle; safecall;
  3241.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3242.     property Value: WideString read Get_Value write Set_Value;
  3243.     property Checked: WordBool read Get_Checked write Set_Checked;
  3244.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3245.     property DisplayStyle: fmDisplayStyle read Get_DisplayStyle;
  3246.   end;
  3247.  
  3248. // *********************************************************************//
  3249. // DispIntf:  IWHTMLOptionDisp
  3250. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3251. // GUID:      {5512D119-5CC6-11CF-8D67-00AA00BDCE1D}
  3252. // *********************************************************************//
  3253.   IWHTMLOptionDisp = dispinterface
  3254.     ['{5512D119-5CC6-11CF-8D67-00AA00BDCE1D}']
  3255.     property HTMLName: WideString dispid -541;
  3256.     property Value: WideString dispid 607;
  3257.     property Checked: WordBool dispid 0;
  3258.     property HTMLType: WideString dispid 618;
  3259.     property DisplayStyle: fmDisplayStyle readonly dispid -540;
  3260.   end;
  3261.  
  3262. // *********************************************************************//
  3263. // Interface: IWHTMLText
  3264. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3265. // GUID:      {5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}
  3266. // *********************************************************************//
  3267.   IWHTMLText = interface(IDispatch)
  3268.     ['{5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}']
  3269.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3270.     function  Get_HTMLName: WideString; safecall;
  3271.     procedure Set_Value(const Value: WideString); safecall;
  3272.     function  Get_Value: WideString; safecall;
  3273.     procedure Set_MaxLength(MaxLength: Integer); safecall;
  3274.     function  Get_MaxLength: Integer; safecall;
  3275.     procedure Set_Width(Width: Integer); safecall;
  3276.     function  Get_Width: Integer; safecall;
  3277.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3278.     function  Get_HTMLType: WideString; safecall;
  3279.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3280.     property Value: WideString read Get_Value write Set_Value;
  3281.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  3282.     property Width: Integer read Get_Width write Set_Width;
  3283.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3284.   end;
  3285.  
  3286. // *********************************************************************//
  3287. // DispIntf:  IWHTMLTextDisp
  3288. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3289. // GUID:      {5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}
  3290. // *********************************************************************//
  3291.   IWHTMLTextDisp = dispinterface
  3292.     ['{5512D11B-5CC6-11CF-8D67-00AA00BDCE1D}']
  3293.     property HTMLName: WideString dispid -541;
  3294.     property Value: WideString dispid 0;
  3295.     property MaxLength: Integer dispid 609;
  3296.     property Width: Integer dispid 610;
  3297.     property HTMLType: WideString dispid 618;
  3298.   end;
  3299.  
  3300. // *********************************************************************//
  3301. // Interface: IWHTMLHidden
  3302. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3303. // GUID:      {5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}
  3304. // *********************************************************************//
  3305.   IWHTMLHidden = interface(IDispatch)
  3306.     ['{5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}']
  3307.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3308.     function  Get_HTMLName: WideString; safecall;
  3309.     procedure Set_Value(const Value: WideString); safecall;
  3310.     function  Get_Value: WideString; safecall;
  3311.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3312.     function  Get_HTMLType: WideString; safecall;
  3313.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3314.     property Value: WideString read Get_Value write Set_Value;
  3315.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3316.   end;
  3317.  
  3318. // *********************************************************************//
  3319. // DispIntf:  IWHTMLHiddenDisp
  3320. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3321. // GUID:      {5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}
  3322. // *********************************************************************//
  3323.   IWHTMLHiddenDisp = dispinterface
  3324.     ['{5512D11D-5CC6-11CF-8D67-00AA00BDCE1D}']
  3325.     property HTMLName: WideString dispid -541;
  3326.     property Value: WideString dispid 0;
  3327.     property HTMLType: WideString dispid 618;
  3328.   end;
  3329.  
  3330. // *********************************************************************//
  3331. // Interface: IWHTMLPassword
  3332. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3333. // GUID:      {5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}
  3334. // *********************************************************************//
  3335.   IWHTMLPassword = interface(IDispatch)
  3336.     ['{5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}']
  3337.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3338.     function  Get_HTMLName: WideString; safecall;
  3339.     procedure Set_Value(const Value: WideString); safecall;
  3340.     function  Get_Value: WideString; safecall;
  3341.     procedure Set_MaxLength(MaxLength: Integer); safecall;
  3342.     function  Get_MaxLength: Integer; safecall;
  3343.     procedure Set_Width(Width: Integer); safecall;
  3344.     function  Get_Width: Integer; safecall;
  3345.     procedure Set_HTMLType(const HTMLType: WideString); safecall;
  3346.     function  Get_HTMLType: WideString; safecall;
  3347.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3348.     property Value: WideString read Get_Value write Set_Value;
  3349.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  3350.     property Width: Integer read Get_Width write Set_Width;
  3351.     property HTMLType: WideString read Get_HTMLType write Set_HTMLType;
  3352.   end;
  3353.  
  3354. // *********************************************************************//
  3355. // DispIntf:  IWHTMLPasswordDisp
  3356. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3357. // GUID:      {5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}
  3358. // *********************************************************************//
  3359.   IWHTMLPasswordDisp = dispinterface
  3360.     ['{5512D11F-5CC6-11CF-8D67-00AA00BDCE1D}']
  3361.     property HTMLName: WideString dispid -541;
  3362.     property Value: WideString dispid 0;
  3363.     property MaxLength: Integer dispid 609;
  3364.     property Width: Integer dispid 610;
  3365.     property HTMLType: WideString dispid 618;
  3366.   end;
  3367.  
  3368. // *********************************************************************//
  3369. // Interface: IWHTMLSelect
  3370. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3371. // GUID:      {5512D123-5CC6-11CF-8D67-00AA00BDCE1D}
  3372. // *********************************************************************//
  3373.   IWHTMLSelect = interface(IDispatch)
  3374.     ['{5512D123-5CC6-11CF-8D67-00AA00BDCE1D}']
  3375.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3376.     function  Get_HTMLName: WideString; safecall;
  3377.     procedure Set_Values(var Values: OleVariant); safecall;
  3378.     function  Get_Values: OleVariant; safecall;
  3379.     procedure Set_DisplayValues(var DisplayValues: OleVariant); safecall;
  3380.     function  Get_DisplayValues: OleVariant; safecall;
  3381.     procedure Set_Selected(const Selected: WideString); safecall;
  3382.     function  Get_Selected: WideString; safecall;
  3383.     procedure Set_MultiSelect(MultiSelect: WordBool); safecall;
  3384.     function  Get_MultiSelect: WordBool; safecall;
  3385.     procedure Set_Size(Size: Integer); safecall;
  3386.     function  Get_Size: Integer; safecall;
  3387.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3388.     property Selected: WideString read Get_Selected write Set_Selected;
  3389.     property MultiSelect: WordBool read Get_MultiSelect write Set_MultiSelect;
  3390.     property Size: Integer read Get_Size write Set_Size;
  3391.   end;
  3392.  
  3393. // *********************************************************************//
  3394. // DispIntf:  IWHTMLSelectDisp
  3395. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3396. // GUID:      {5512D123-5CC6-11CF-8D67-00AA00BDCE1D}
  3397. // *********************************************************************//
  3398.   IWHTMLSelectDisp = dispinterface
  3399.     ['{5512D123-5CC6-11CF-8D67-00AA00BDCE1D}']
  3400.     property HTMLName: WideString dispid -541;
  3401.     function  Values(var Values: OleVariant): {??POleVariant1} OleVariant; dispid 611;
  3402.     function  DisplayValues(var DisplayValues: OleVariant): {??POleVariant1} OleVariant; dispid 612;
  3403.     property Selected: WideString dispid 613;
  3404.     property MultiSelect: WordBool dispid 614;
  3405.     property Size: Integer dispid 619;
  3406.   end;
  3407.  
  3408. // *********************************************************************//
  3409. // Interface: IWHTMLTextArea
  3410. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3411. // GUID:      {5512D125-5CC6-11CF-8D67-00AA00BDCE1D}
  3412. // *********************************************************************//
  3413.   IWHTMLTextArea = interface(IDispatch)
  3414.     ['{5512D125-5CC6-11CF-8D67-00AA00BDCE1D}']
  3415.     procedure Set_HTMLName(const HTMLName: WideString); safecall;
  3416.     function  Get_HTMLName: WideString; safecall;
  3417.     procedure Set_Value(const Value: WideString); safecall;
  3418.     function  Get_Value: WideString; safecall;
  3419.     procedure Set_Rows(Rows: Integer); safecall;
  3420.     function  Get_Rows: Integer; safecall;
  3421.     procedure Set_Columns(Columns: Integer); safecall;
  3422.     function  Get_Columns: Integer; safecall;
  3423.     procedure Set_WordWrap(const WordWrap: WideString); safecall;
  3424.     function  Get_WordWrap: WideString; safecall;
  3425.     property HTMLName: WideString read Get_HTMLName write Set_HTMLName;
  3426.     property Value: WideString read Get_Value write Set_Value;
  3427.     property Rows: Integer read Get_Rows write Set_Rows;
  3428.     property Columns: Integer read Get_Columns write Set_Columns;
  3429.     property WordWrap: WideString read Get_WordWrap write Set_WordWrap;
  3430.   end;
  3431.  
  3432. // *********************************************************************//
  3433. // DispIntf:  IWHTMLTextAreaDisp
  3434. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3435. // GUID:      {5512D125-5CC6-11CF-8D67-00AA00BDCE1D}
  3436. // *********************************************************************//
  3437.   IWHTMLTextAreaDisp = dispinterface
  3438.     ['{5512D125-5CC6-11CF-8D67-00AA00BDCE1D}']
  3439.     property HTMLName: WideString dispid -541;
  3440.     property Value: WideString dispid 0;
  3441.     property Rows: Integer dispid 615;
  3442.     property Columns: Integer dispid 616;
  3443.     property WordWrap: WideString dispid 617;
  3444.   end;
  3445.  
  3446. // *********************************************************************//
  3447. // DispIntf:  LabelControlEvents
  3448. // Flags:     (4112) Hidden Dispatchable
  3449. // GUID:      {978C9E22-D4B0-11CE-BF2D-00AA003F40D0}
  3450. // *********************************************************************//
  3451.   LabelControlEvents = dispinterface
  3452.     ['{978C9E22-D4B0-11CE-BF2D-00AA003F40D0}']
  3453.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3454.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3455.                              Shift: Smallint); dispid 3;
  3456.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3457.                                 const Data: DataObject; X: Single; Y: Single; 
  3458.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3459.     procedure Click; dispid -600;
  3460.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3461.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3462.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3463.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3464.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3465.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3466.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3467.   end;
  3468.  
  3469. // *********************************************************************//
  3470. // DispIntf:  CommandButtonEvents
  3471. // Flags:     (4112) Hidden Dispatchable
  3472. // GUID:      {7B020EC1-AF6C-11CE-9F46-00AA00574A4F}
  3473. // *********************************************************************//
  3474.   CommandButtonEvents = dispinterface
  3475.     ['{7B020EC1-AF6C-11CE-9F46-00AA00574A4F}']
  3476.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3477.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3478.                              Shift: Smallint); dispid 3;
  3479.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3480.                                 const Data: DataObject; X: Single; Y: Single; 
  3481.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3482.     procedure Click; dispid -600;
  3483.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3484.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3485.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3486.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3487.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3488.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3489.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3490.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3491.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3492.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3493.   end;
  3494.  
  3495. // *********************************************************************//
  3496. // DispIntf:  MdcTextEvents
  3497. // Flags:     (4112) Hidden Dispatchable
  3498. // GUID:      {8BD21D12-EC42-11CE-9E0D-00AA006002F3}
  3499. // *********************************************************************//
  3500.   MdcTextEvents = dispinterface
  3501.     ['{8BD21D12-EC42-11CE-9E0D-00AA006002F3}']
  3502.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3503.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3504.                              Shift: Smallint); dispid 3;
  3505.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3506.                                 const Data: DataObject; X: Single; Y: Single; 
  3507.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3508.     procedure Change; dispid 2;
  3509.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3510.     procedure DropButtonClick; dispid 2002;
  3511.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3512.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3513.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3514.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3515.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3516.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3517.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3518.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3519.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3520.   end;
  3521.  
  3522. // *********************************************************************//
  3523. // DispIntf:  MdcListEvents
  3524. // Flags:     (4112) Hidden Dispatchable
  3525. // GUID:      {8BD21D22-EC42-11CE-9E0D-00AA006002F3}
  3526. // *********************************************************************//
  3527.   MdcListEvents = dispinterface
  3528.     ['{8BD21D22-EC42-11CE-9E0D-00AA006002F3}']
  3529.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3530.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3531.                              Shift: Smallint); dispid 3;
  3532.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3533.                                 const Data: DataObject; X: Single; Y: Single; 
  3534.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3535.     procedure Change; dispid 2;
  3536.     procedure Click; dispid -610;
  3537.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3538.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3539.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3540.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3541.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3542.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3543.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3544.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3545.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3546.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3547.   end;
  3548.  
  3549. // *********************************************************************//
  3550. // DispIntf:  MdcComboEvents
  3551. // Flags:     (4112) Hidden Dispatchable
  3552. // GUID:      {8BD21D32-EC42-11CE-9E0D-00AA006002F3}
  3553. // *********************************************************************//
  3554.   MdcComboEvents = dispinterface
  3555.     ['{8BD21D32-EC42-11CE-9E0D-00AA006002F3}']
  3556.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3557.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3558.                              Shift: Smallint); dispid 3;
  3559.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3560.                                 const Data: DataObject; X: Single; Y: Single; 
  3561.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3562.     procedure Change; dispid 2;
  3563.     procedure Click; dispid -610;
  3564.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3565.     procedure DropButtonClick; dispid 2002;
  3566.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3567.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3568.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3569.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3570.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3571.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3572.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3573.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3574.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3575.   end;
  3576.  
  3577. // *********************************************************************//
  3578. // DispIntf:  MdcCheckBoxEvents
  3579. // Flags:     (4112) Hidden Dispatchable
  3580. // GUID:      {8BD21D42-EC42-11CE-9E0D-00AA006002F3}
  3581. // *********************************************************************//
  3582.   MdcCheckBoxEvents = dispinterface
  3583.     ['{8BD21D42-EC42-11CE-9E0D-00AA006002F3}']
  3584.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3585.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3586.                              Shift: Smallint); dispid 3;
  3587.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3588.                                 const Data: DataObject; X: Single; Y: Single; 
  3589.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3590.     procedure Change; dispid 2;
  3591.     procedure Click; dispid -610;
  3592.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3593.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3594.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3595.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3596.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3597.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3598.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3599.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3600.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3601.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3602.   end;
  3603.  
  3604. // *********************************************************************//
  3605. // DispIntf:  MdcOptionButtonEvents
  3606. // Flags:     (4112) Hidden Dispatchable
  3607. // GUID:      {8BD21D52-EC42-11CE-9E0D-00AA006002F3}
  3608. // *********************************************************************//
  3609.   MdcOptionButtonEvents = dispinterface
  3610.     ['{8BD21D52-EC42-11CE-9E0D-00AA006002F3}']
  3611.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3612.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3613.                              Shift: Smallint); dispid 3;
  3614.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3615.                                 const Data: DataObject; X: Single; Y: Single; 
  3616.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3617.     procedure Change; dispid 2;
  3618.     procedure Click; dispid -610;
  3619.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3620.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3621.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3622.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3623.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3624.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3625.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3626.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3627.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3628.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3629.   end;
  3630.  
  3631. // *********************************************************************//
  3632. // DispIntf:  MdcToggleButtonEvents
  3633. // Flags:     (4112) Hidden Dispatchable
  3634. // GUID:      {8BD21D62-EC42-11CE-9E0D-00AA006002F3}
  3635. // *********************************************************************//
  3636.   MdcToggleButtonEvents = dispinterface
  3637.     ['{8BD21D62-EC42-11CE-9E0D-00AA006002F3}']
  3638.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3639.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3640.                              Shift: Smallint); dispid 3;
  3641.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3642.                                 const Data: DataObject; X: Single; Y: Single; 
  3643.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3644.     procedure Change; dispid 2;
  3645.     procedure Click; dispid -610;
  3646.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3647.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3648.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3649.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3650.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3651.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3652.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3653.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3654.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3655.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3656.   end;
  3657.  
  3658. // *********************************************************************//
  3659. // DispIntf:  ScrollbarEvents
  3660. // Flags:     (4112) Hidden Dispatchable
  3661. // GUID:      {7B020EC2-AF6C-11CE-9F46-00AA00574A4F}
  3662. // *********************************************************************//
  3663.   ScrollbarEvents = dispinterface
  3664.     ['{7B020EC2-AF6C-11CE-9F46-00AA00574A4F}']
  3665.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3666.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3667.                              Shift: Smallint); dispid 3;
  3668.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3669.                                 const Data: DataObject; X: Single; Y: Single; 
  3670.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3671.     procedure Change; dispid 2;
  3672.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3673.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3674.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3675.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3676.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3677.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3678.     procedure Scroll; dispid 7;
  3679.   end;
  3680.  
  3681. // *********************************************************************//
  3682. // DispIntf:  TabStripEvents
  3683. // Flags:     (4112) Hidden Dispatchable
  3684. // GUID:      {7B020EC7-AF6C-11CE-9F46-00AA00574A4F}
  3685. // *********************************************************************//
  3686.   TabStripEvents = dispinterface
  3687.     ['{7B020EC7-AF6C-11CE-9F46-00AA00574A4F}']
  3688.     procedure BeforeDragOver(Index: Integer; const Cancel: ReturnBoolean; const Data: DataObject; 
  3689.                              X: Single; Y: Single; DragState: fmDragState; 
  3690.                              const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  3691.     procedure BeforeDropOrPaste(Index: Integer; const Cancel: ReturnBoolean; Action: fmAction; 
  3692.                                 const Data: DataObject; X: Single; Y: Single; 
  3693.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3694.     procedure Change; dispid 2;
  3695.     procedure Click(Index: Integer); dispid -600;
  3696.     procedure DblClick(Index: Integer; const Cancel: ReturnBoolean); dispid -601;
  3697.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3698.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3699.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3700.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3701.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3702.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3703.     procedure MouseDown(Index: Integer; Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3704.     procedure MouseMove(Index: Integer; Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3705.     procedure MouseUp(Index: Integer; Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3706.   end;
  3707.  
  3708. // *********************************************************************//
  3709. // DispIntf:  SpinbuttonEvents
  3710. // Flags:     (4112) Hidden Dispatchable
  3711. // GUID:      {79176FB2-B7F2-11CE-97EF-00AA006D2776}
  3712. // *********************************************************************//
  3713.   SpinbuttonEvents = dispinterface
  3714.     ['{79176FB2-B7F2-11CE-97EF-00AA006D2776}']
  3715.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3716.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3717.                              Shift: Smallint); dispid 3;
  3718.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3719.                                 const Data: DataObject; X: Single; Y: Single; 
  3720.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3721.     procedure Change; dispid 2;
  3722.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3723.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3724.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3725.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  3726.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  3727.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  3728.     procedure SpinUp; dispid 5;
  3729.     procedure SpinDown; dispid 6;
  3730.   end;
  3731.  
  3732. // *********************************************************************//
  3733. // DispIntf:  ImageEvents
  3734. // Flags:     (4112) Hidden Dispatchable
  3735. // GUID:      {4C5992A5-6926-101B-9992-00000B65C6F9}
  3736. // *********************************************************************//
  3737.   ImageEvents = dispinterface
  3738.     ['{4C5992A5-6926-101B-9992-00000B65C6F9}']
  3739.     procedure BeforeDragOver(const Cancel: ReturnBoolean; const Data: DataObject; X: Single; 
  3740.                              Y: Single; DragState: fmDragState; const Effect: ReturnEffect; 
  3741.                              Shift: Smallint); dispid 3;
  3742.     procedure BeforeDropOrPaste(const Cancel: ReturnBoolean; Action: fmAction; 
  3743.                                 const Data: DataObject; X: Single; Y: Single; 
  3744.                                 const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  3745.     procedure Click; dispid -600;
  3746.     procedure DblClick(const Cancel: ReturnBoolean); dispid -601;
  3747.     procedure Error(Number: Smallint; const Description: ReturnString; SCode: Integer; 
  3748.                     const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
  3749.                     const CancelDisplay: ReturnBoolean); dispid -608;
  3750.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  3751.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  3752.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  3753.   end;
  3754.  
  3755. // *********************************************************************//
  3756. // DispIntf:  WHTMLControlEvents
  3757. // Flags:     (4112) Hidden Dispatchable
  3758. // GUID:      {796ED650-5FE9-11CF-8D68-00AA00BDCE1D}
  3759. // *********************************************************************//
  3760.   WHTMLControlEvents = dispinterface
  3761.     ['{796ED650-5FE9-11CF-8D68-00AA00BDCE1D}']
  3762.     procedure Click; dispid -600;
  3763.   end;
  3764.  
  3765. // *********************************************************************//
  3766. // DispIntf:  WHTMLControlEvents1
  3767. // Flags:     (4112) Hidden Dispatchable
  3768. // GUID:      {47FF8FE0-6198-11CF-8CE8-00AA006CB389}
  3769. // *********************************************************************//
  3770.   WHTMLControlEvents1 = dispinterface
  3771.     ['{47FF8FE0-6198-11CF-8CE8-00AA006CB389}']
  3772.     procedure Click; dispid -600;
  3773.   end;
  3774.  
  3775. // *********************************************************************//
  3776. // DispIntf:  WHTMLControlEvents2
  3777. // Flags:     (4112) Hidden Dispatchable
  3778. // GUID:      {47FF8FE1-6198-11CF-8CE8-00AA006CB389}
  3779. // *********************************************************************//
  3780.   WHTMLControlEvents2 = dispinterface
  3781.     ['{47FF8FE1-6198-11CF-8CE8-00AA006CB389}']
  3782.     procedure Click; dispid -600;
  3783.   end;
  3784.  
  3785. // *********************************************************************//
  3786. // DispIntf:  WHTMLControlEvents3
  3787. // Flags:     (4112) Hidden Dispatchable
  3788. // GUID:      {47FF8FE2-6198-11CF-8CE8-00AA006CB389}
  3789. // *********************************************************************//
  3790.   WHTMLControlEvents3 = dispinterface
  3791.     ['{47FF8FE2-6198-11CF-8CE8-00AA006CB389}']
  3792.     procedure Click; dispid -600;
  3793.   end;
  3794.  
  3795. // *********************************************************************//
  3796. // DispIntf:  WHTMLControlEvents4
  3797. // Flags:     (4112) Hidden Dispatchable
  3798. // GUID:      {47FF8FE3-6198-11CF-8CE8-00AA006CB389}
  3799. // *********************************************************************//
  3800.   WHTMLControlEvents4 = dispinterface
  3801.     ['{47FF8FE3-6198-11CF-8CE8-00AA006CB389}']
  3802.     procedure Click; dispid -600;
  3803.   end;
  3804.  
  3805. // *********************************************************************//
  3806. // DispIntf:  WHTMLControlEvents5
  3807. // Flags:     (4112) Hidden Dispatchable
  3808. // GUID:      {47FF8FE4-6198-11CF-8CE8-00AA006CB389}
  3809. // *********************************************************************//
  3810.   WHTMLControlEvents5 = dispinterface
  3811.     ['{47FF8FE4-6198-11CF-8CE8-00AA006CB389}']
  3812.     procedure Click; dispid -600;
  3813.   end;
  3814.  
  3815. // *********************************************************************//
  3816. // DispIntf:  WHTMLControlEvents6
  3817. // Flags:     (4112) Hidden Dispatchable
  3818. // GUID:      {47FF8FE5-6198-11CF-8CE8-00AA006CB389}
  3819. // *********************************************************************//
  3820.   WHTMLControlEvents6 = dispinterface
  3821.     ['{47FF8FE5-6198-11CF-8CE8-00AA006CB389}']
  3822.     procedure Click; dispid -600;
  3823.   end;
  3824.  
  3825. // *********************************************************************//
  3826. // DispIntf:  WHTMLControlEvents7
  3827. // Flags:     (4112) Hidden Dispatchable
  3828. // GUID:      {47FF8FE6-6198-11CF-8CE8-00AA006CB389}
  3829. // *********************************************************************//
  3830.   WHTMLControlEvents7 = dispinterface
  3831.     ['{47FF8FE6-6198-11CF-8CE8-00AA006CB389}']
  3832.     procedure Click; dispid -600;
  3833.   end;
  3834.  
  3835. // *********************************************************************//
  3836. // DispIntf:  WHTMLControlEvents9
  3837. // Flags:     (4112) Hidden Dispatchable
  3838. // GUID:      {47FF8FE8-6198-11CF-8CE8-00AA006CB389}
  3839. // *********************************************************************//
  3840.   WHTMLControlEvents9 = dispinterface
  3841.     ['{47FF8FE8-6198-11CF-8CE8-00AA006CB389}']
  3842.     procedure Click; dispid -600;
  3843.   end;
  3844.  
  3845. // *********************************************************************//
  3846. // DispIntf:  WHTMLControlEvents10
  3847. // Flags:     (4112) Hidden Dispatchable
  3848. // GUID:      {47FF8FE9-6198-11CF-8CE8-00AA006CB389}
  3849. // *********************************************************************//
  3850.   WHTMLControlEvents10 = dispinterface
  3851.     ['{47FF8FE9-6198-11CF-8CE8-00AA006CB389}']
  3852.     procedure Click; dispid -600;
  3853.   end;
  3854.  
  3855. // *********************************************************************//
  3856. // Interface: IPage
  3857. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3858. // GUID:      {5CEF5613-713D-11CE-80C9-00AA00611080}
  3859. // *********************************************************************//
  3860.   IPage = interface(IDispatch)
  3861.     ['{5CEF5613-713D-11CE-80C9-00AA00611080}']
  3862.     function  Get_Controls: Controls; safecall;
  3863.     function  Get_Selected: Controls; safecall;
  3864.     function  Get_ActiveControl: Control; safecall;
  3865.     function  Get_CanPaste: WordBool; safecall;
  3866.     function  Get_CanRedo: WordBool; safecall;
  3867.     function  Get_CanUndo: WordBool; safecall;
  3868.     procedure Set_Cycle(Cycle: fmCycle); safecall;
  3869.     function  Get_Cycle: fmCycle; safecall;
  3870.     procedure Set_Caption(const Caption: WideString); safecall;
  3871.     function  Get_Caption: WideString; safecall;
  3872.     procedure Set_ControlTipText(const tooltip: WideString); safecall;
  3873.     function  Get_ControlTipText: WideString; safecall;
  3874.     procedure Set_Enabled(fEnabled: WordBool); safecall;
  3875.     function  Get_Enabled: WordBool; safecall;
  3876.     procedure Set_Index(Index: Integer); safecall;
  3877.     function  Get_Index: Integer; safecall;
  3878.     procedure _GetInsideHeight(out InsideHeight: Integer); safecall;
  3879.     function  Get_InsideHeight: Single; safecall;
  3880.     procedure _GetInsideWidth(out InsideWidth: Integer); safecall;
  3881.     function  Get_InsideWidth: Single; safecall;
  3882.     procedure Set_KeepScrollBarsVisible(ScrollBars: fmScrollBars); safecall;
  3883.     function  Get_KeepScrollBarsVisible: fmScrollBars; safecall;
  3884.     procedure Set_Name(const Name: WideString); safecall;
  3885.     function  Get_Name: WideString; safecall;
  3886.     procedure Set_PictureAlignment(PictureAlignment: fmPictureAlignment); safecall;
  3887.     function  Get_PictureAlignment: fmPictureAlignment; safecall;
  3888.     procedure _Set_Picture(const Picture: IPictureDisp); safecall;
  3889.     procedure Set_Picture(const Picture: IPictureDisp); safecall;
  3890.     function  Get_Picture: IPictureDisp; safecall;
  3891.     procedure Set_PictureSizeMode(PictureSizeMode: fmPictureSizeMode); safecall;
  3892.     function  Get_PictureSizeMode: fmPictureSizeMode; safecall;
  3893.     procedure Set_PictureTiling(PictureTiling: WordBool); safecall;
  3894.     function  Get_PictureTiling: WordBool; safecall;
  3895.     procedure Set_ScrollBars(ScrollBars: fmScrollBars); safecall;
  3896.     function  Get_ScrollBars: fmScrollBars; safecall;
  3897.     procedure _SetScrollHeight(ScrollHeight: Integer); safecall;
  3898.     procedure _GetScrollHeight(out ScrollHeight: Integer); safecall;
  3899.     procedure Set_ScrollHeight(ScrollHeight: Single); safecall;
  3900.     function  Get_ScrollHeight: Single; safecall;
  3901.     procedure _SetScrollLeft(ScrollLeft: Integer); safecall;
  3902.     procedure _GetScrollLeft(out ScrollLeft: Integer); safecall;
  3903.     procedure Set_ScrollLeft(ScrollLeft: Single); safecall;
  3904.     function  Get_ScrollLeft: Single; safecall;
  3905.     procedure _SetScrollTop(ScrollTop: Integer); safecall;
  3906.     procedure _GetScrollTop(out ScrollTop: Integer); safecall;
  3907.     procedure Set_ScrollTop(ScrollTop: Single); safecall;
  3908.     function  Get_ScrollTop: Single; safecall;
  3909.     procedure _SetScrollWidth(ScrollWidth: Integer); safecall;
  3910.     procedure _GetScrollWidth(out ScrollWidth: Integer); safecall;
  3911.     procedure Set_ScrollWidth(ScrollWidth: Single); safecall;
  3912.     function  Get_ScrollWidth: Single; safecall;
  3913.     procedure Set_Tag(const Tag: WideString); safecall;
  3914.     function  Get_Tag: WideString; safecall;
  3915.     procedure Set_TransitionEffect(TransitionEffect: fmTransitionEffect); safecall;
  3916.     function  Get_TransitionEffect: fmTransitionEffect; safecall;
  3917.     procedure Set_TransitionPeriod(TransitionPeriod: Integer); safecall;
  3918.     function  Get_TransitionPeriod: Integer; safecall;
  3919.     procedure Set_VerticalScrollBarSide(side: fmVerticalScrollBarSide); safecall;
  3920.     function  Get_VerticalScrollBarSide: fmVerticalScrollBarSide; safecall;
  3921.     procedure Set_Visible(fVisible: WordBool); safecall;
  3922.     function  Get_Visible: WordBool; safecall;
  3923.     procedure Set_Zoom(Zoom: Smallint); safecall;
  3924.     function  Get_Zoom: Smallint; safecall;
  3925.     procedure Set_DesignMode(DesignMode: fmMode); safecall;
  3926.     function  Get_DesignMode: fmMode; safecall;
  3927.     procedure Set_ShowToolbox(ShowToolbox: fmMode); safecall;
  3928.     function  Get_ShowToolbox: fmMode; safecall;
  3929.     procedure Set_ShowGridDots(ShowGridDots: fmMode); safecall;
  3930.     function  Get_ShowGridDots: fmMode; safecall;
  3931.     procedure Set_SnapToGrid(SnapToGrid: fmMode); safecall;
  3932.     function  Get_SnapToGrid: fmMode; safecall;
  3933.     procedure Set_GridX(GridX: Single); safecall;
  3934.     function  Get_GridX: Single; safecall;
  3935.     procedure _SetGridX(GridX: Integer); safecall;
  3936.     procedure _GetGridX(out GridX: Integer); safecall;
  3937.     procedure Set_GridY(GridY: Single); safecall;
  3938.     function  Get_GridY: Single; safecall;
  3939.     procedure _SetGridY(GridY: Integer); safecall;
  3940.     procedure _GetGridY(out GridY: Integer); safecall;
  3941.     procedure Copy; safecall;
  3942.     procedure Cut; safecall;
  3943.     procedure Paste; safecall;
  3944.     procedure RedoAction; safecall;
  3945.     procedure Repaint; safecall;
  3946.     procedure Scroll(xAction: OleVariant; yAction: OleVariant); safecall;
  3947.     procedure SetDefaultTabOrder; safecall;
  3948.     procedure UndoAction; safecall;
  3949.     procedure Set_Accelerator(const Accelerator: WideString); safecall;
  3950.     function  Get_Accelerator: WideString; safecall;
  3951.     function  Get_Parent: IDispatch; safecall;
  3952.     property Controls: Controls read Get_Controls;
  3953.     property Selected: Controls read Get_Selected;
  3954.     property ActiveControl: Control read Get_ActiveControl;
  3955.     property CanPaste: WordBool read Get_CanPaste;
  3956.     property CanRedo: WordBool read Get_CanRedo;
  3957.     property CanUndo: WordBool read Get_CanUndo;
  3958.     property Cycle: fmCycle read Get_Cycle write Set_Cycle;
  3959.     property Caption: WideString read Get_Caption write Set_Caption;
  3960.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  3961.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3962.     property Index: Integer read Get_Index write Set_Index;
  3963.     property InsideHeight: Single read Get_InsideHeight;
  3964.     property InsideWidth: Single read Get_InsideWidth;
  3965.     property KeepScrollBarsVisible: fmScrollBars read Get_KeepScrollBarsVisible write Set_KeepScrollBarsVisible;
  3966.     property Name: WideString read Get_Name write Set_Name;
  3967.     property PictureAlignment: fmPictureAlignment read Get_PictureAlignment write Set_PictureAlignment;
  3968.     property Picture: IPictureDisp read Get_Picture write _Set_Picture;
  3969.     property PictureSizeMode: fmPictureSizeMode read Get_PictureSizeMode write Set_PictureSizeMode;
  3970.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  3971.     property ScrollBars: fmScrollBars read Get_ScrollBars write Set_ScrollBars;
  3972.     property ScrollHeight: Single read Get_ScrollHeight write Set_ScrollHeight;
  3973.     property ScrollLeft: Single read Get_ScrollLeft write Set_ScrollLeft;
  3974.     property ScrollTop: Single read Get_ScrollTop write Set_ScrollTop;
  3975.     property ScrollWidth: Single read Get_ScrollWidth write Set_ScrollWidth;
  3976.     property Tag: WideString read Get_Tag write Set_Tag;
  3977.     property TransitionEffect: fmTransitionEffect read Get_TransitionEffect write Set_TransitionEffect;
  3978.     property TransitionPeriod: Integer read Get_TransitionPeriod write Set_TransitionPeriod;
  3979.     property VerticalScrollBarSide: fmVerticalScrollBarSide read Get_VerticalScrollBarSide write Set_VerticalScrollBarSide;
  3980.     property Visible: WordBool read Get_Visible write Set_Visible;
  3981.     property Zoom: Smallint read Get_Zoom write Set_Zoom;
  3982.     property DesignMode: fmMode read Get_DesignMode write Set_DesignMode;
  3983.     property ShowToolbox: fmMode read Get_ShowToolbox write Set_ShowToolbox;
  3984.     property ShowGridDots: fmMode read Get_ShowGridDots write Set_ShowGridDots;
  3985.     property SnapToGrid: fmMode read Get_SnapToGrid write Set_SnapToGrid;
  3986.     property GridX: Single read Get_GridX write Set_GridX;
  3987.     property GridY: Single read Get_GridY write Set_GridY;
  3988.     property Accelerator: WideString read Get_Accelerator write Set_Accelerator;
  3989.     property Parent: IDispatch read Get_Parent;
  3990.   end;
  3991.  
  3992. // *********************************************************************//
  3993. // DispIntf:  IPageDisp
  3994. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3995. // GUID:      {5CEF5613-713D-11CE-80C9-00AA00611080}
  3996. // *********************************************************************//
  3997.   IPageDisp = dispinterface
  3998.     ['{5CEF5613-713D-11CE-80C9-00AA00611080}']
  3999.     property Controls: Controls readonly dispid 0;
  4000.     property Selected: Controls readonly dispid 270;
  4001.     property ActiveControl: Control readonly dispid 256;
  4002.     property CanPaste: WordBool readonly dispid 257;
  4003.     property CanRedo: WordBool readonly dispid 258;
  4004.     property CanUndo: WordBool readonly dispid 259;
  4005.     property Cycle: fmCycle dispid 260;
  4006.     property Caption: WideString dispid -518;
  4007.     property ControlTipText: WideString dispid -2147418043;
  4008.     property Enabled: WordBool dispid -514;
  4009.     property Index: Integer dispid -2147356416;
  4010.     procedure _GetInsideHeight(out InsideHeight: Integer); dispid 1610743824;
  4011.     property InsideHeight: Single readonly dispid 262;
  4012.     procedure _GetInsideWidth(out InsideWidth: Integer); dispid 1610743826;
  4013.     property InsideWidth: Single readonly dispid 263;
  4014.     property KeepScrollBarsVisible: fmScrollBars dispid 264;
  4015.     property Name: WideString dispid -2147418112;
  4016.     property PictureAlignment: fmPictureAlignment dispid 26;
  4017.     property Picture: IPictureDisp dispid -523;
  4018.     property PictureSizeMode: fmPictureSizeMode dispid 27;
  4019.     property PictureTiling: WordBool dispid 28;
  4020.     property ScrollBars: fmScrollBars dispid 265;
  4021.     procedure _SetScrollHeight(ScrollHeight: Integer); dispid 1610743843;
  4022.     procedure _GetScrollHeight(out ScrollHeight: Integer); dispid 1610743844;
  4023.     property ScrollHeight: Single dispid 266;
  4024.     procedure _SetScrollLeft(ScrollLeft: Integer); dispid 1610743847;
  4025.     procedure _GetScrollLeft(out ScrollLeft: Integer); dispid 1610743848;
  4026.     property ScrollLeft: Single dispid 267;
  4027.     procedure _SetScrollTop(ScrollTop: Integer); dispid 1610743851;
  4028.     procedure _GetScrollTop(out ScrollTop: Integer); dispid 1610743852;
  4029.     property ScrollTop: Single dispid 268;
  4030.     procedure _SetScrollWidth(ScrollWidth: Integer); dispid 1610743855;
  4031.     procedure _GetScrollWidth(out ScrollWidth: Integer); dispid 1610743856;
  4032.     property ScrollWidth: Single dispid 269;
  4033.     property Tag: WideString dispid -2147418101;
  4034.     property TransitionEffect: fmTransitionEffect dispid -2147356415;
  4035.     property TransitionPeriod: Integer dispid -2147356414;
  4036.     property VerticalScrollBarSide: fmVerticalScrollBarSide dispid 271;
  4037.     property Visible: WordBool dispid -2147418105;
  4038.     property Zoom: Smallint dispid 272;
  4039.     property DesignMode: fmMode dispid 384;
  4040.     property ShowToolbox: fmMode dispid 385;
  4041.     property ShowGridDots: fmMode dispid 386;
  4042.     property SnapToGrid: fmMode dispid 387;
  4043.     property GridX: Single dispid 388;
  4044.     procedure _SetGridX(GridX: Integer); dispid 1610743881;
  4045.     procedure _GetGridX(out GridX: Integer); dispid 1610743882;
  4046.     property GridY: Single dispid 389;
  4047.     procedure _SetGridY(GridY: Integer); dispid 1610743885;
  4048.     procedure _GetGridY(out GridY: Integer); dispid 1610743886;
  4049.     procedure Copy; dispid 512;
  4050.     procedure Cut; dispid 513;
  4051.     procedure Paste; dispid 514;
  4052.     procedure RedoAction; dispid 515;
  4053.     procedure Repaint; dispid 516;
  4054.     procedure Scroll(xAction: OleVariant; yAction: OleVariant); dispid 517;
  4055.     procedure SetDefaultTabOrder; dispid 518;
  4056.     procedure UndoAction; dispid 519;
  4057.     property Accelerator: WideString dispid -543;
  4058.     property Parent: IDispatch readonly dispid -2147418104;
  4059.   end;
  4060.  
  4061. // *********************************************************************//
  4062. // Interface: Pages
  4063. // Flags:     (4416) Dual OleAutomation Dispatchable
  4064. // GUID:      {92E11A03-7358-11CE-80CB-00AA00611080}
  4065. // *********************************************************************//
  4066.   Pages = interface(IDispatch)
  4067.     ['{92E11A03-7358-11CE-80CB-00AA00611080}']
  4068.     function  Get_Count: Integer; safecall;
  4069.     function  Get__NewEnum: IUnknown; safecall;
  4070.     function  Item(varg: OleVariant): IDispatch; safecall;
  4071.     function  Enum: IUnknown; safecall;
  4072.     function  Add(bstrName: OleVariant; bstrCaption: OleVariant; lIndex: OleVariant): Page; safecall;
  4073.     function  _AddCtrl(var clsid: Integer; const bstrName: WideString; const bstrCaption: WideString): Page; safecall;
  4074.     function  _InsertCtrl(var clsid: Integer; const bstrName: WideString; 
  4075.                           const bstrCaption: WideString; lIndex: Integer): Page; safecall;
  4076.     function  _GetItemByIndex(lIndex: Integer): Control; safecall;
  4077.     function  _GetItemByName(const pstrName: WideString): Control; safecall;
  4078.     procedure Remove(varg: OleVariant); safecall;
  4079.     procedure Clear; safecall;
  4080.     property Count: Integer read Get_Count;
  4081.     property _NewEnum: IUnknown read Get__NewEnum;
  4082.   end;
  4083.  
  4084. // *********************************************************************//
  4085. // DispIntf:  PagesDisp
  4086. // Flags:     (4416) Dual OleAutomation Dispatchable
  4087. // GUID:      {92E11A03-7358-11CE-80CB-00AA00611080}
  4088. // *********************************************************************//
  4089.   PagesDisp = dispinterface
  4090.     ['{92E11A03-7358-11CE-80CB-00AA00611080}']
  4091.     property Count: Integer readonly dispid 60;
  4092.     property _NewEnum: IUnknown readonly dispid -4;
  4093.     function  Item(varg: OleVariant): IDispatch; dispid 0;
  4094.     function  Enum: IUnknown; dispid 1610743811;
  4095.     function  Add(bstrName: OleVariant; bstrCaption: OleVariant; lIndex: OleVariant): Page; dispid 66;
  4096.     function  _AddCtrl(var clsid: Integer; const bstrName: WideString; const bstrCaption: WideString): Page; dispid 1610743813;
  4097.     function  _InsertCtrl(var clsid: Integer; const bstrName: WideString; 
  4098.                           const bstrCaption: WideString; lIndex: Integer): Page; dispid 1610743814;
  4099.     function  _GetItemByIndex(lIndex: Integer): Control; dispid 1610743815;
  4100.     function  _GetItemByName(const pstrName: WideString): Control; dispid 1610743816;
  4101.     procedure Remove(varg: OleVariant); dispid 67;
  4102.     procedure Clear; dispid 62;
  4103.   end;
  4104.  
  4105. // *********************************************************************//
  4106. // Interface: IMultiPage
  4107. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  4108. // GUID:      {04598FC9-866C-11CF-AB7C-00AA00C08FCF}
  4109. // *********************************************************************//
  4110.   IMultiPage = interface(IDispatch)
  4111.     ['{04598FC9-866C-11CF-AB7C-00AA00C08FCF}']
  4112.     procedure Set_BackColor(color: OLE_COLOR); safecall;
  4113.     function  Get_BackColor: OLE_COLOR; safecall;
  4114.     procedure Set_ForeColor(color: OLE_COLOR); safecall;
  4115.     function  Get_ForeColor: OLE_COLOR; safecall;
  4116.     procedure Set__Font_Reserved(const Param1: IFontDisp); safecall;
  4117.     procedure Set_Font(const Font: IFontDisp); safecall;
  4118.     function  Get_Font: IFontDisp; safecall;
  4119.     procedure Set_FontName(const FontName: WideString); safecall;
  4120.     function  Get_FontName: WideString; safecall;
  4121.     procedure Set_FontBold(fBold: WordBool); safecall;
  4122.     function  Get_FontBold: WordBool; safecall;
  4123.     procedure Set_FontItalic(fItalic: WordBool); safecall;
  4124.     function  Get_FontItalic: WordBool; safecall;
  4125.     procedure Set_FontUnderline(fUnder: WordBool); safecall;
  4126.     function  Get_FontUnderline: WordBool; safecall;
  4127.     procedure Set_FontStrikethru(fStrike: WordBool); safecall;
  4128.     function  Get_FontStrikethru: WordBool; safecall;
  4129.     procedure Set_FontSize(Size: Currency); safecall;
  4130.     function  Get_FontSize: Currency; safecall;
  4131.     procedure Set_MultiRow(fMultiRow: WordBool); safecall;
  4132.     function  Get_MultiRow: WordBool; safecall;
  4133.     procedure Set_Style(Style: fmTabStyle); safecall;
  4134.     function  Get_Style: fmTabStyle; safecall;
  4135.     procedure Set_TabOrientation(Layout: fmTabOrientation); safecall;
  4136.     function  Get_TabOrientation: fmTabOrientation; safecall;
  4137.     procedure _SetTabFixedWidth(Width: Integer); safecall;
  4138.     procedure _GetTabFixedWidth(out Width: Integer); safecall;
  4139.     procedure _SetTabFixedHeight(Height: Integer); safecall;
  4140.     procedure _GetTabFixedHeight(out Height: Integer); safecall;
  4141.     procedure Set_Enabled(Enabled: WordBool); safecall;
  4142.     function  Get_Enabled: WordBool; safecall;
  4143.     function  Get_SelectedItem: Page; safecall;
  4144.     function  Get_Pages: Pages; safecall;
  4145.     procedure Set_Value(Index: Integer); safecall;
  4146.     function  Get_Value: Integer; safecall;
  4147.     procedure Set_TabFixedWidth(Width: Single); safecall;
  4148.     function  Get_TabFixedWidth: Single; safecall;
  4149.     procedure Set_TabFixedHeight(Height: Single); safecall;
  4150.     function  Get_TabFixedHeight: Single; safecall;
  4151.     procedure Set_FontWeight(FontWeight: Smallint); safecall;
  4152.     function  Get_FontWeight: Smallint; safecall;
  4153.     property BackColor: OLE_COLOR read Get_BackColor write Set_BackColor;
  4154.     property ForeColor: OLE_COLOR read Get_ForeColor write Set_ForeColor;
  4155.     property _Font_Reserved: IFontDisp write Set__Font_Reserved;
  4156.     property Font: IFontDisp read Get_Font write Set_Font;
  4157.     property FontName: WideString read Get_FontName write Set_FontName;
  4158.     property FontBold: WordBool read Get_FontBold write Set_FontBold;
  4159.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  4160.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  4161.     property FontStrikethru: WordBool read Get_FontStrikethru write Set_FontStrikethru;
  4162.     property FontSize: Currency read Get_FontSize write Set_FontSize;
  4163.     property MultiRow: WordBool read Get_MultiRow write Set_MultiRow;
  4164.     property Style: fmTabStyle read Get_Style write Set_Style;
  4165.     property TabOrientation: fmTabOrientation read Get_TabOrientation write Set_TabOrientation;
  4166.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4167.     property SelectedItem: Page read Get_SelectedItem;
  4168.     property Pages: Pages read Get_Pages;
  4169.     property Value: Integer read Get_Value write Set_Value;
  4170.     property TabFixedWidth: Single read Get_TabFixedWidth write Set_TabFixedWidth;
  4171.     property TabFixedHeight: Single read Get_TabFixedHeight write Set_TabFixedHeight;
  4172.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  4173.   end;
  4174.  
  4175. // *********************************************************************//
  4176. // DispIntf:  IMultiPageDisp
  4177. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  4178. // GUID:      {04598FC9-866C-11CF-AB7C-00AA00C08FCF}
  4179. // *********************************************************************//
  4180.   IMultiPageDisp = dispinterface
  4181.     ['{04598FC9-866C-11CF-AB7C-00AA00C08FCF}']
  4182.     property BackColor: OLE_COLOR dispid -501;
  4183.     property ForeColor: OLE_COLOR dispid -513;
  4184.     property _Font_Reserved: IFontDisp writeonly dispid 2147483135;
  4185.     property Font: IFontDisp dispid -512;
  4186.     property FontName: WideString dispid 1;
  4187.     property FontBold: WordBool dispid 3;
  4188.     property FontItalic: WordBool dispid 4;
  4189.     property FontUnderline: WordBool dispid 5;
  4190.     property FontStrikethru: WordBool dispid 6;
  4191.     property FontSize: Currency dispid 2;
  4192.     property MultiRow: WordBool dispid 514;
  4193.     property Style: fmTabStyle dispid 513;
  4194.     property TabOrientation: fmTabOrientation dispid 512;
  4195.     procedure _SetTabFixedWidth(Width: Integer); dispid 1610743833;
  4196.     procedure _GetTabFixedWidth(out Width: Integer); dispid 1610743834;
  4197.     procedure _SetTabFixedHeight(Height: Integer); dispid 1610743835;
  4198.     procedure _GetTabFixedHeight(out Height: Integer); dispid 1610743836;
  4199.     property Enabled: WordBool dispid -514;
  4200.     property SelectedItem: Page readonly dispid 545;
  4201.     property Pages: Pages readonly dispid 0;
  4202.     property Value: Integer dispid 528;
  4203.     property TabFixedWidth: Single dispid 515;
  4204.     property TabFixedHeight: Single dispid 516;
  4205.     property FontWeight: Smallint dispid 7;
  4206.   end;
  4207.  
  4208. // *********************************************************************//
  4209. // DispIntf:  MultiPageEvents
  4210. // Flags:     (4112) Hidden Dispatchable
  4211. // GUID:      {7B020EC8-AF6C-11CE-9F46-00AA00574A4F}
  4212. // *********************************************************************//
  4213.   MultiPageEvents = dispinterface
  4214.     ['{7B020EC8-AF6C-11CE-9F46-00AA00574A4F}']
  4215.     procedure AddControl(Index: Integer; const Control: Control); dispid 768;
  4216.     procedure BeforeDragOver(Index: Integer; const Cancel: ReturnBoolean; const Control: Control; 
  4217.                              const Data: DataObject; X: Single; Y: Single; State: fmDragState; 
  4218.                              const Effect: ReturnEffect; Shift: Smallint); dispid 3;
  4219.     procedure BeforeDropOrPaste(Index: Integer; const Cancel: ReturnBoolean; 
  4220.                                 const Control: Control; Action: fmAction; const Data: DataObject; 
  4221.                                 X: Single; Y: Single; const Effect: ReturnEffect; Shift: Smallint); dispid 4;
  4222.     procedure Change; dispid 2;
  4223.     procedure Click(Index: Integer); dispid -600;
  4224.     procedure DblClick(Index: Integer; const Cancel: ReturnBoolean); dispid -601;
  4225.     procedure Error(Index: Integer; Number: Smallint; const Description: ReturnString; 
  4226.                     SCode: Integer; const Source: WideString; const HelpFile: WideString; 
  4227.                     HelpContext: Integer; const CancelDisplay: ReturnBoolean); dispid -608;
  4228.     procedure KeyDown(const KeyCode: ReturnInteger; Shift: Smallint); dispid -602;
  4229.     procedure KeyPress(const KeyAscii: ReturnInteger); dispid -603;
  4230.     procedure KeyUp(const KeyCode: ReturnInteger; Shift: Smallint); dispid -604;
  4231.     procedure Layout(Index: Integer); dispid 770;
  4232.     procedure MouseDown(Index: Integer; Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
  4233.     procedure MouseMove(Index: Integer; Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
  4234.     procedure MouseUp(Index: Integer; Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
  4235.     procedure RemoveControl(Index: Integer; const Control: Control); dispid 771;
  4236.     procedure Scroll(Index: Integer; ActionX: fmScrollAction; ActionY: fmScrollAction; 
  4237.                      RequestDx: Single; RequestDy: Single; const ActualDx: ReturnSingle; 
  4238.                      const ActualDy: ReturnSingle); dispid 772;
  4239.     procedure Zoom(Index: Integer; var Percent: Smallint); dispid 773;
  4240.   end;
  4241.  
  4242. // *********************************************************************//
  4243. // The Class CoReturnInteger provides a Create and CreateRemote method to          
  4244. // create instances of the default interface IReturnInteger exposed by              
  4245. // the CoClass ReturnInteger. The functions are intended to be used by             
  4246. // clients wishing to automate the CoClass objects exposed by the         
  4247. // server of this typelibrary.                                            
  4248. // *********************************************************************//
  4249.   CoReturnInteger = class
  4250.     class function Create: IReturnInteger;
  4251.     class function CreateRemote(const MachineName: string): IReturnInteger;
  4252.   end;
  4253.  
  4254. // *********************************************************************//
  4255. // The Class CoReturnBoolean provides a Create and CreateRemote method to          
  4256. // create instances of the default interface IReturnBoolean exposed by              
  4257. // the CoClass ReturnBoolean. The functions are intended to be used by             
  4258. // clients wishing to automate the CoClass objects exposed by the         
  4259. // server of this typelibrary.                                            
  4260. // *********************************************************************//
  4261.   CoReturnBoolean = class
  4262.     class function Create: IReturnBoolean;
  4263.     class function CreateRemote(const MachineName: string): IReturnBoolean;
  4264.   end;
  4265.  
  4266. // *********************************************************************//
  4267. // The Class CoReturnString provides a Create and CreateRemote method to          
  4268. // create instances of the default interface IReturnString exposed by              
  4269. // the CoClass ReturnString. The functions are intended to be used by             
  4270. // clients wishing to automate the CoClass objects exposed by the         
  4271. // server of this typelibrary.                                            
  4272. // *********************************************************************//
  4273.   CoReturnString = class
  4274.     class function Create: IReturnString;
  4275.     class function CreateRemote(const MachineName: string): IReturnString;
  4276.   end;
  4277.  
  4278. // *********************************************************************//
  4279. // The Class CoReturnSingle provides a Create and CreateRemote method to          
  4280. // create instances of the default interface IReturnSingle exposed by              
  4281. // the CoClass ReturnSingle. The functions are intended to be used by             
  4282. // clients wishing to automate the CoClass objects exposed by the         
  4283. // server of this typelibrary.                                            
  4284. // *********************************************************************//
  4285.   CoReturnSingle = class
  4286.     class function Create: IReturnSingle;
  4287.     class function CreateRemote(const MachineName: string): IReturnSingle;
  4288.   end;
  4289.  
  4290. // *********************************************************************//
  4291. // The Class CoReturnEffect provides a Create and CreateRemote method to          
  4292. // create instances of the default interface IReturnEffect exposed by              
  4293. // the CoClass ReturnEffect. The functions are intended to be used by             
  4294. // clients wishing to automate the CoClass objects exposed by the         
  4295. // server of this typelibrary.                                            
  4296. // *********************************************************************//
  4297.   CoReturnEffect = class
  4298.     class function Create: IReturnEffect;
  4299.     class function CreateRemote(const MachineName: string): IReturnEffect;
  4300.   end;
  4301.  
  4302. // *********************************************************************//
  4303. // The Class CoDataObject provides a Create and CreateRemote method to          
  4304. // create instances of the default interface IDataAutoWrapper exposed by              
  4305. // the CoClass DataObject. The functions are intended to be used by             
  4306. // clients wishing to automate the CoClass objects exposed by the         
  4307. // server of this typelibrary.                                            
  4308. // *********************************************************************//
  4309.   CoDataObject = class
  4310.     class function Create: IDataAutoWrapper;
  4311.     class function CreateRemote(const MachineName: string): IDataAutoWrapper;
  4312.   end;
  4313.  
  4314. // *********************************************************************//
  4315. // The Class CoControl provides a Create and CreateRemote method to          
  4316. // create instances of the default interface IControl exposed by              
  4317. // the CoClass Control. The functions are intended to be used by             
  4318. // clients wishing to automate the CoClass objects exposed by the         
  4319. // server of this typelibrary.                                            
  4320. // *********************************************************************//
  4321.   CoControl = class
  4322.     class function Create: IControl;
  4323.     class function CreateRemote(const MachineName: string): IControl;
  4324.   end;
  4325.  
  4326. // *********************************************************************//
  4327. // The Class CoNewFont provides a Create and CreateRemote method to          
  4328. // create instances of the default interface Font exposed by              
  4329. // the CoClass NewFont. The functions are intended to be used by             
  4330. // clients wishing to automate the CoClass objects exposed by the         
  4331. // server of this typelibrary.                                            
  4332. // *********************************************************************//
  4333.   CoNewFont = class
  4334.     class function Create: Font;
  4335.     class function CreateRemote(const MachineName: string): Font;
  4336.   end;
  4337.  
  4338. // *********************************************************************//
  4339. // The Class CoPage provides a Create and CreateRemote method to          
  4340. // create instances of the default interface IPage exposed by              
  4341. // the CoClass Page. The functions are intended to be used by             
  4342. // clients wishing to automate the CoClass objects exposed by the         
  4343. // server of this typelibrary.                                            
  4344. // *********************************************************************//
  4345.   CoPage = class
  4346.     class function Create: IPage;
  4347.     class function CreateRemote(const MachineName: string): IPage;
  4348.   end;
  4349.  
  4350. implementation
  4351.  
  4352. uses ComObj;
  4353.  
  4354. class function CoReturnInteger.Create: IReturnInteger;
  4355. begin
  4356.   Result := CreateComObject(CLASS_ReturnInteger) as IReturnInteger;
  4357. end;
  4358.  
  4359. class function CoReturnInteger.CreateRemote(const MachineName: string): IReturnInteger;
  4360. begin
  4361.   Result := CreateRemoteComObject(MachineName, CLASS_ReturnInteger) as IReturnInteger;
  4362. end;
  4363.  
  4364. class function CoReturnBoolean.Create: IReturnBoolean;
  4365. begin
  4366.   Result := CreateComObject(CLASS_ReturnBoolean) as IReturnBoolean;
  4367. end;
  4368.  
  4369. class function CoReturnBoolean.CreateRemote(const MachineName: string): IReturnBoolean;
  4370. begin
  4371.   Result := CreateRemoteComObject(MachineName, CLASS_ReturnBoolean) as IReturnBoolean;
  4372. end;
  4373.  
  4374. class function CoReturnString.Create: IReturnString;
  4375. begin
  4376.   Result := CreateComObject(CLASS_ReturnString) as IReturnString;
  4377. end;
  4378.  
  4379. class function CoReturnString.CreateRemote(const MachineName: string): IReturnString;
  4380. begin
  4381.   Result := CreateRemoteComObject(MachineName, CLASS_ReturnString) as IReturnString;
  4382. end;
  4383.  
  4384. class function CoReturnSingle.Create: IReturnSingle;
  4385. begin
  4386.   Result := CreateComObject(CLASS_ReturnSingle) as IReturnSingle;
  4387. end;
  4388.  
  4389. class function CoReturnSingle.CreateRemote(const MachineName: string): IReturnSingle;
  4390. begin
  4391.   Result := CreateRemoteComObject(MachineName, CLASS_ReturnSingle) as IReturnSingle;
  4392. end;
  4393.  
  4394. class function CoReturnEffect.Create: IReturnEffect;
  4395. begin
  4396.   Result := CreateComObject(CLASS_ReturnEffect) as IReturnEffect;
  4397. end;
  4398.  
  4399. class function CoReturnEffect.CreateRemote(const MachineName: string): IReturnEffect;
  4400. begin
  4401.   Result := CreateRemoteComObject(MachineName, CLASS_ReturnEffect) as IReturnEffect;
  4402. end;
  4403.  
  4404. class function CoDataObject.Create: IDataAutoWrapper;
  4405. begin
  4406.   Result := CreateComObject(CLASS_DataObject) as IDataAutoWrapper;
  4407. end;
  4408.  
  4409. class function CoDataObject.CreateRemote(const MachineName: string): IDataAutoWrapper;
  4410. begin
  4411.   Result := CreateRemoteComObject(MachineName, CLASS_DataObject) as IDataAutoWrapper;
  4412. end;
  4413.  
  4414. class function CoControl.Create: IControl;
  4415. begin
  4416.   Result := CreateComObject(CLASS_Control) as IControl;
  4417. end;
  4418.  
  4419. class function CoControl.CreateRemote(const MachineName: string): IControl;
  4420. begin
  4421.   Result := CreateRemoteComObject(MachineName, CLASS_Control) as IControl;
  4422. end;
  4423.  
  4424. class function CoNewFont.Create: Font;
  4425. begin
  4426.   Result := CreateComObject(CLASS_NewFont) as Font;
  4427. end;
  4428.  
  4429. class function CoNewFont.CreateRemote(const MachineName: string): Font;
  4430. begin
  4431.   Result := CreateRemoteComObject(MachineName, CLASS_NewFont) as Font;
  4432. end;
  4433.  
  4434. class function CoPage.Create: IPage;
  4435. begin
  4436.   Result := CreateComObject(CLASS_Page) as IPage;
  4437. end;
  4438.  
  4439. class function CoPage.CreateRemote(const MachineName: string): IPage;
  4440. begin
  4441.   Result := CreateRemoteComObject(MachineName, CLASS_Page) as IPage;
  4442. end;
  4443.  
  4444. end.
  4445.