home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Ocx / Servers / access97.pas next >
Pascal/Delphi Source File  |  1999-08-11  |  782KB  |  17,456 lines
  1. unit Access97;
  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.3  $
  15. // File generated on 6/3/99 9:50:16 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: typelibraries\msacc8.olb (1)
  19. // IID\LCID: {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}\0
  20. // Helpfile: C:\typelib\acvba80.hlp
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  23. //   (2) v4.0 DAO, (C:\typelib\DAO350.dll)
  24. //   (3) v2.0 Office, (D:\Program Files\Microsoft Office\Office\mso97.dll)
  25. //   (4) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
  26. // Errors:
  27. //   Hint: Symbol 'Hyperlink' renamed to 'AccessHyperlink'
  28. //   Hint: Symbol 'Page' renamed to 'AccessPage'
  29. //   Hint: Symbol 'Control' renamed to 'AccessControl'
  30. //   Hint: Symbol 'Label' renamed to 'AccessLabel'
  31. //   Hint: Symbol 'Rectangle' renamed to 'AccessRectangle'
  32. //   Hint: Symbol 'Line' renamed to 'AccessLine'
  33. //   Hint: Symbol 'Image' renamed to 'AccessImage'
  34. //   Hint: Symbol 'CommandButton' renamed to 'AccessCommandButton'
  35. //   Hint: Symbol 'OptionButton' renamed to 'AccessOptionButton'
  36. //   Hint: Symbol 'CheckBox' renamed to 'AccessCheckBox'
  37. //   Hint: Symbol 'OptionGroup' renamed to 'AccessOptionGroup'
  38. //   Hint: Symbol 'BoundObjectFrame' renamed to 'AccessBoundObjectFrame'
  39. //   Hint: Symbol 'TextBox' renamed to 'AccessTextBox'
  40. //   Hint: Symbol 'ListBox' renamed to 'AccessListBox'
  41. //   Hint: Symbol 'ComboBox' renamed to 'AccessComboBox'
  42. //   Hint: Symbol 'ObjectFrame' renamed to 'AccessObjectFrame'
  43. //   Hint: Symbol 'PageBreak' renamed to 'AccessPageBreak'
  44. //   Hint: Symbol 'ToggleButton' renamed to 'AccessToggleButton'
  45. //   Hint: Symbol 'PaletteButton' renamed to 'AccessPaletteButton'
  46. //   Hint: Symbol 'SubForm' renamed to 'AccessSubForm'
  47. //   Hint: Symbol 'SubReport' renamed to 'AccessSubReport'
  48. //   Hint: Symbol 'CustomControl' renamed to 'AccessCustomControl'
  49. //   Hint: Symbol 'TabControl' renamed to 'AccessTabControl'
  50. //   Hint: Symbol 'Section' renamed to 'AccessSection'
  51. //   Hint: Symbol 'GroupLevel' renamed to 'AccessGroupLevel'
  52. //   Hint: Symbol 'Form' renamed to 'AccessForm'
  53. //   Hint: Symbol 'Report' renamed to 'AccessReport'
  54. //   Hint: Symbol 'References' renamed to 'AccessReferences'
  55. //   Hint: TypeInfo 'Class' changed to 'Class_'
  56. //   Hint: Parameter 'Record' of IDoCmd.GoToRecord changed to 'Record_'
  57. //   Hint: Parameter 'To' of IDoCmd.SendObject changed to 'To_'
  58. //   Hint: Member 'Object' of '_Control' changed to 'Object_'
  59. //   Hint: Member 'Goto' of '_Control' changed to 'Goto_'
  60. //   Hint: Member 'Goto' of '_Image' changed to 'Goto_'
  61. //   Hint: Member 'Goto' of '_CommandButton' changed to 'Goto_'
  62. //   Hint: Member 'Goto' of '_OptionButton' changed to 'Goto_'
  63. //   Hint: Member 'Goto' of '_Checkbox' changed to 'Goto_'
  64. //   Hint: Member 'Goto' of '_OptionGroup' changed to 'Goto_'
  65. //   Hint: Member 'Object' of '_BoundObjectFrame' changed to 'Object_'
  66. //   Hint: Member 'Goto' of '_BoundObjectFrame' changed to 'Goto_'
  67. //   Hint: Member 'Class' of '_BoundObjectFrame' changed to 'Class_'
  68. //   Hint: Member 'Goto' of '_Textbox' changed to 'Goto_'
  69. //   Hint: Member 'Goto' of '_ListBox' changed to 'Goto_'
  70. //   Hint: Member 'Goto' of '_Combobox' changed to 'Goto_'
  71. //   Hint: Member 'Object' of '_ObjectFrame' changed to 'Object_'
  72. //   Hint: Member 'Goto' of '_ObjectFrame' changed to 'Goto_'
  73. //   Hint: Member 'Class' of '_ObjectFrame' changed to 'Class_'
  74. //   Hint: Member 'Goto' of '_ToggleButton' changed to 'Goto_'
  75. //   Hint: Member 'Goto' of '_PaletteButton' changed to 'Goto_'
  76. //   Hint: Member 'Goto' of '_SubForm' changed to 'Goto_'
  77. //   Hint: Member 'Object' of '_CustomControl' changed to 'Object_'
  78. //   Hint: Member 'Goto' of '_CustomControl' changed to 'Goto_'
  79. //   Hint: Member 'Class' of '_CustomControl' changed to 'Class_'
  80. //   Hint: Member 'Goto' of '_Page' changed to 'Goto_'
  81. //   Hint: Parameter 'String' of Module.AddFromString changed to 'String_'
  82. //   Hint: Parameter 'String' of Module.Lines changed to 'String_'
  83. //   Hint: Parameter 'String' of Module.InsertLines changed to 'String_'
  84. //   Hint: Parameter 'String' of Module.ReplaceLine changed to 'String_'
  85. //   Hint: Member 'Type' of 'Module' changed to 'Type_'
  86. //   Hint: Parameter 'var' of _Form.Section changed to 'var_'
  87. //   Hint: Parameter 'end' of _Report.Circle changed to 'end_'
  88. //   Hint: Parameter 'Procedure' of _Application.Run changed to 'Procedure_'
  89. //   Hint: Parameter 'String' of _Application.GUIDFromString changed to 'String_'
  90. //   Hint: Parameter 'var' of _References.Item changed to 'var_'
  91. //   Hint: Parameter 'String' of ___IVbaModule.AddFromString changed to 'String_'
  92. //   Hint: Parameter 'String' of ___IVbaModule.Lines changed to 'String_'
  93. //   Hint: Parameter 'String' of ___IVbaModule.InsertLines changed to 'String_'
  94. //   Hint: Parameter 'String' of ___IVbaModule.ReplaceLine changed to 'String_'
  95. //   Hint: Parameter 'var' of ___IVbaEditors.Item changed to 'var_'
  96. //   Hint: Parameter 'var' of IVbaReferences.Item changed to 'var_'
  97. //   Hint: Symbol 'Hyperlink' renamed to 'AccessHyperlink'
  98. //   Hint: Symbol 'Page' renamed to 'AccessPage'
  99. //   Hint: Symbol 'Control' renamed to 'AccessControl'
  100. //   Hint: Symbol 'Label' renamed to 'AccessLabel'
  101. //   Hint: Symbol 'Rectangle' renamed to 'AccessRectangle'
  102. //   Hint: Symbol 'Line' renamed to 'AccessLine'
  103. //   Hint: Symbol 'Image' renamed to 'AccessImage'
  104. //   Hint: Symbol 'CommandButton' renamed to 'AccessCommandButton'
  105. //   Hint: Symbol 'OptionButton' renamed to 'AccessOptionButton'
  106. //   Hint: Symbol 'CheckBox' renamed to 'AccessCheckBox'
  107. //   Hint: Symbol 'OptionGroup' renamed to 'AccessOptionGroup'
  108. //   Hint: Symbol 'BoundObjectFrame' renamed to 'AccessBoundObjectFrame'
  109. //   Hint: Symbol 'TextBox' renamed to 'AccessTextBox'
  110. //   Hint: Symbol 'ListBox' renamed to 'AccessListBox'
  111. //   Hint: Symbol 'ComboBox' renamed to 'AccessComboBox'
  112. //   Hint: Symbol 'ObjectFrame' renamed to 'AccessObjectFrame'
  113. //   Hint: Symbol 'PageBreak' renamed to 'AccessPageBreak'
  114. //   Hint: Symbol 'ToggleButton' renamed to 'AccessToggleButton'
  115. //   Hint: Symbol 'PaletteButton' renamed to 'AccessPaletteButton'
  116. //   Hint: Symbol 'SubForm' renamed to 'AccessSubForm'
  117. //   Hint: Symbol 'SubReport' renamed to 'AccessSubReport'
  118. //   Hint: Symbol 'CustomControl' renamed to 'AccessCustomControl'
  119. //   Hint: Symbol 'TabControl' renamed to 'AccessTabControl'
  120. //   Hint: Symbol 'Section' renamed to 'AccessSection'
  121. //   Hint: Symbol 'GroupLevel' renamed to 'AccessGroupLevel'
  122. //   Hint: Symbol 'Form' renamed to 'AccessForm'
  123. //   Hint: Symbol 'Report' renamed to 'AccessReport'
  124. //   Hint: Symbol 'References' renamed to 'AccessReferences'
  125. //   Hint: TypeInfo 'Class' changed to 'Class_'
  126. //   Hint: Member 'Object' of '_Control' changed to 'Object_'
  127. //   Hint: Member 'Goto' of '_Control' changed to 'Goto_'
  128. //   Hint: Member 'Goto' of '_Image' changed to 'Goto_'
  129. //   Hint: Member 'Goto' of '_CommandButton' changed to 'Goto_'
  130. //   Hint: Member 'Goto' of '_OptionButton' changed to 'Goto_'
  131. //   Hint: Member 'Goto' of '_Checkbox' changed to 'Goto_'
  132. //   Hint: Member 'Goto' of '_OptionGroup' changed to 'Goto_'
  133. //   Hint: Member 'Object' of '_BoundObjectFrame' changed to 'Object_'
  134. //   Hint: Member 'Goto' of '_BoundObjectFrame' changed to 'Goto_'
  135. //   Hint: Member 'Class' of '_BoundObjectFrame' changed to 'Class_'
  136. //   Hint: Member 'Goto' of '_Textbox' changed to 'Goto_'
  137. //   Hint: Member 'Goto' of '_ListBox' changed to 'Goto_'
  138. //   Hint: Member 'Goto' of '_Combobox' changed to 'Goto_'
  139. //   Hint: Member 'Object' of '_ObjectFrame' changed to 'Object_'
  140. //   Hint: Member 'Goto' of '_ObjectFrame' changed to 'Goto_'
  141. //   Hint: Member 'Class' of '_ObjectFrame' changed to 'Class_'
  142. //   Hint: Member 'Goto' of '_ToggleButton' changed to 'Goto_'
  143. //   Hint: Member 'Goto' of '_PaletteButton' changed to 'Goto_'
  144. //   Hint: Member 'Goto' of '_SubForm' changed to 'Goto_'
  145. //   Hint: Member 'Object' of '_CustomControl' changed to 'Object_'
  146. //   Hint: Member 'Goto' of '_CustomControl' changed to 'Goto_'
  147. //   Hint: Member 'Class' of '_CustomControl' changed to 'Class_'
  148. //   Hint: Member 'Goto' of '_Page' changed to 'Goto_'
  149. //   Hint: Member 'Type' of 'Module' changed to 'Type_'
  150. // ************************************************************************ //
  151. interface
  152.  
  153. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, 
  154.   DAO97, Office97;
  155.  
  156. // *********************************************************************//
  157. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  158. //   Type Libraries     : LIBID_xxxx                                      
  159. //   CoClasses          : CLASS_xxxx                                      
  160. //   DISPInterfaces     : DIID_xxxx                                       
  161. //   Non-DISP interfaces: IID_xxxx                                        
  162. // *********************************************************************//
  163. const
  164.   // TypeLibrary Major and minor versions
  165.   AccessMajorVersion = 8;
  166.   AccessMinorVersion = 0;
  167.  
  168.   LIBID_Access: TGUID = '{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}';
  169.  
  170.   IID_IDoCmd: TGUID = '{C547E760-9658-101B-81EE-00AA004750E2}';
  171.   CLASS_DoCmd: TGUID = '{C547E761-9658-101B-81EE-00AA004750E2}';
  172.   IID___AccessProperty: TGUID = '{331FDD01-CF31-11CD-8701-00AA003F0F07}';
  173.   IID__AccessProperty: TGUID = '{331FDD00-CF31-11CD-8701-00AA003F0F07}';
  174.   IID_Properties: TGUID = '{331FDD02-CF31-11CD-8701-00AA003F0F07}';
  175.   IID__ItemsSelected: TGUID = '{31B09710-EADC-11CD-B9F7-00AA004753B5}';
  176.   IID_Children: TGUID = '{3B06E977-E47C-11CD-8701-00AA003F0F07}';
  177.   IID__AccessField: TGUID = '{B1C1EAC1-486F-11CE-A65D-00AA003F0F07}';
  178.   CLASS_AccessField: TGUID = '{044E54C5-B19B-11CE-A689-00AA003F0F07}';
  179.   IID___Help: TGUID = '{9CD4A761-A6A9-11CE-A686-00AA003F0F07}';
  180.   IID__Hyperlink: TGUID = '{50D56611-60AC-11CF-82C9-00AA004B9FE6}';
  181.   CLASS_AccessHyperlink: TGUID = '{50D56610-60AC-11CF-82C9-00AA004B9FE6}';
  182.   IID__Page: TGUID = '{3B06E974-E47C-11CD-8701-00AA003F0F07}';
  183.   IID_Pages: TGUID = '{3B06E978-E47C-11CD-8701-00AA003F0F07}';
  184.   IID__Control: TGUID = '{26B96540-8F8E-101B-AF4E-00AA003F0F07}';
  185.   CLASS_AccessControl: TGUID = '{02F92C80-8F8E-101B-AF4E-00AA003F0F07}';
  186.   IID___ControlInReportEvents: TGUID = '{90B322A5-F1D9-11CD-8701-00AA003F0F07}';
  187.   CLASS__ControlInReportEvents: TGUID = '{90B322A4-F1D9-11CD-8701-00AA003F0F07}';
  188.   IID_Controls: TGUID = '{5970C574-EB8C-11CD-8701-00AA003F0F07}';
  189.   IID__Label: TGUID = '{3B06E948-E47C-11CD-8701-00AA003F0F07}';
  190.   IID__LabelEvents: TGUID = '{BC9E4341-F037-11CD-8701-00AA003F0F07}';
  191.   CLASS_AccessLabel: TGUID = '{3B06E947-E47C-11CD-8701-00AA003F0F07}';
  192.   IID__ChildLabelEvents: TGUID = '{BC9E4358-F037-11CD-8701-00AA003F0F07}';
  193.   CLASS__ChildLabel: TGUID = '{BC9E4359-F037-11CD-8701-00AA003F0F07}';
  194.   IID__Rectangle: TGUID = '{3B06E94A-E47C-11CD-8701-00AA003F0F07}';
  195.   IID__RectangleEvents: TGUID = '{BC9E4342-F037-11CD-8701-00AA003F0F07}';
  196.   CLASS_AccessRectangle: TGUID = '{3B06E949-E47C-11CD-8701-00AA003F0F07}';
  197.   IID__Line: TGUID = '{3B06E94C-E47C-11CD-8701-00AA003F0F07}';
  198.   IID__LineEvents: TGUID = '{BC9E4343-F037-11CD-8701-00AA003F0F07}';
  199.   CLASS_AccessLine: TGUID = '{3B06E94B-E47C-11CD-8701-00AA003F0F07}';
  200.   IID__Image: TGUID = '{3B06E94E-E47C-11CD-8701-00AA003F0F07}';
  201.   IID__ImageEvents: TGUID = '{BC9E4344-F037-11CD-8701-00AA003F0F07}';
  202.   CLASS_AccessImage: TGUID = '{3B06E94D-E47C-11CD-8701-00AA003F0F07}';
  203.   IID__CommandButton: TGUID = '{3B06E950-E47C-11CD-8701-00AA003F0F07}';
  204.   IID__CommandButtonEvents: TGUID = '{BC9E4345-F037-11CD-8701-00AA003F0F07}';
  205.   CLASS_AccessCommandButton: TGUID = '{3B06E94F-E47C-11CD-8701-00AA003F0F07}';
  206.   IID__OptionButton: TGUID = '{3B06E952-E47C-11CD-8701-00AA003F0F07}';
  207.   IID__OptionButtonEvents: TGUID = '{BC9E4346-F037-11CD-8701-00AA003F0F07}';
  208.   CLASS_AccessOptionButton: TGUID = '{3B06E951-E47C-11CD-8701-00AA003F0F07}';
  209.   IID__OptionButtonInOptionEvents: TGUID = '{BC9E435B-F037-11CD-8701-00AA003F0F07}';
  210.   CLASS__OptionButtonInOption: TGUID = '{BC9E435A-F037-11CD-8701-00AA003F0F07}';
  211.   IID__Checkbox: TGUID = '{3B06E954-E47C-11CD-8701-00AA003F0F07}';
  212.   IID__CheckBoxEvents: TGUID = '{BC9E4347-F037-11CD-8701-00AA003F0F07}';
  213.   CLASS_AccessCheckBox: TGUID = '{3B06E953-E47C-11CD-8701-00AA003F0F07}';
  214.   IID__CheckBoxInOptionEvents: TGUID = '{BC9E435D-F037-11CD-8701-00AA003F0F07}';
  215.   CLASS__CheckBoxInOption: TGUID = '{BC9E435C-F037-11CD-8701-00AA003F0F07}';
  216.   IID__OptionGroup: TGUID = '{3B06E956-E47C-11CD-8701-00AA003F0F07}';
  217.   IID__OptionGroupEvents: TGUID = '{BC9E4348-F037-11CD-8701-00AA003F0F07}';
  218.   CLASS_AccessOptionGroup: TGUID = '{3B06E955-E47C-11CD-8701-00AA003F0F07}';
  219.   IID__BoundObjectFrame: TGUID = '{3B06E958-E47C-11CD-8701-00AA003F0F07}';
  220.   IID__BoundObjectFrameEvents: TGUID = '{BC9E4349-F037-11CD-8701-00AA003F0F07}';
  221.   CLASS_AccessBoundObjectFrame: TGUID = '{3B06E957-E47C-11CD-8701-00AA003F0F07}';
  222.   IID__Textbox: TGUID = '{3B06E946-E47C-11CD-8701-00AA003F0F07}';
  223.   IID__TextBoxEvents: TGUID = '{BC9E4340-F037-11CD-8701-00AA003F0F07}';
  224.   CLASS_AccessTextBox: TGUID = '{3B06E945-E47C-11CD-8701-00AA003F0F07}';
  225.   IID__ListBox: TGUID = '{3B06E95A-E47C-11CD-8701-00AA003F0F07}';
  226.   IID__ListBoxEvents: TGUID = '{BC9E434B-F037-11CD-8701-00AA003F0F07}';
  227.   CLASS_AccessListBox: TGUID = '{3B06E959-E47C-11CD-8701-00AA003F0F07}';
  228.   IID__Combobox: TGUID = '{3B06E95C-E47C-11CD-8701-00AA003F0F07}';
  229.   IID__ComboBoxEvents: TGUID = '{BC9E434C-F037-11CD-8701-00AA003F0F07}';
  230.   CLASS_AccessComboBox: TGUID = '{3B06E95B-E47C-11CD-8701-00AA003F0F07}';
  231.   IID__ObjectFrame: TGUID = '{3B06E95E-E47C-11CD-8701-00AA003F0F07}';
  232.   IID__ObjectFrameEvents: TGUID = '{BC9E434D-F037-11CD-8701-00AA003F0F07}';
  233.   CLASS_AccessObjectFrame: TGUID = '{3B06E95D-E47C-11CD-8701-00AA003F0F07}';
  234.   IID__PageBreak: TGUID = '{3B06E960-E47C-11CD-8701-00AA003F0F07}';
  235.   IID__PageBreakEvents: TGUID = '{BC9E434E-F037-11CD-8701-00AA003F0F07}';
  236.   CLASS_AccessPageBreak: TGUID = '{3B06E95F-E47C-11CD-8701-00AA003F0F07}';
  237.   IID__ToggleButton: TGUID = '{3B06E962-E47C-11CD-8701-00AA003F0F07}';
  238.   IID__ToggleButtonEvents: TGUID = '{BC9E434F-F037-11CD-8701-00AA003F0F07}';
  239.   CLASS_AccessToggleButton: TGUID = '{3B06E961-E47C-11CD-8701-00AA003F0F07}';
  240.   IID__ToggleButtonInOptionEvents: TGUID = '{BC9E435F-F037-11CD-8701-00AA003F0F07}';
  241.   CLASS__ToggleButtonInOption: TGUID = '{BC9E435E-F037-11CD-8701-00AA003F0F07}';
  242.   IID__PaletteButton: TGUID = '{9CD4A760-A6A9-11CE-A686-00AA003F0F07}';
  243.   IID__PaletteButtonEvents: TGUID = '{A843CCD0-6E2C-11CF-A219-00A0C90542FF}';
  244.   CLASS_AccessPaletteButton: TGUID = '{9CD4A762-A6A9-11CE-A686-00AA003F0F07}';
  245.   IID__SubForm: TGUID = '{3B06E964-E47C-11CD-8701-00AA003F0F07}';
  246.   IID__SubFormEvents: TGUID = '{BC9E4350-F037-11CD-8701-00AA003F0F07}';
  247.   CLASS_AccessSubForm: TGUID = '{3B06E963-E47C-11CD-8701-00AA003F0F07}';
  248.   IID__SubReport: TGUID = '{3B06E966-E47C-11CD-8701-00AA003F0F07}';
  249.   IID__SubReportEvents: TGUID = '{BC9E4351-F037-11CD-8701-00AA003F0F07}';
  250.   CLASS_AccessSubReport: TGUID = '{3B06E965-E47C-11CD-8701-00AA003F0F07}';
  251.   IID__CustomControl: TGUID = '{3B06E968-E47C-11CD-8701-00AA003F0F07}';
  252.   IID__CustomControlEvents: TGUID = '{BC9E4352-F037-11CD-8701-00AA003F0F07}';
  253.   CLASS_AccessCustomControl: TGUID = '{3B06E967-E47C-11CD-8701-00AA003F0F07}';
  254.   IID__CustomControlInReportEvents: TGUID = '{300471E2-7426-11CE-AB64-00AA0042B7CE}';
  255.   CLASS__CustomControlInReport: TGUID = '{300471E0-7426-11CE-AB63-00AA0042B7CE}';
  256.   IID__TabControl: TGUID = '{3B06E971-E47C-11CD-8701-00AA003F0F07}';
  257.   IID__TabControlEvents: TGUID = '{3B06E972-E47C-11CD-8701-00AA003F0F07}';
  258.   CLASS_AccessTabControl: TGUID = '{3B06E970-E47C-11CD-8701-00AA003F0F07}';
  259.   IID__PageEvents: TGUID = '{3B06E975-E47C-11CD-8701-00AA003F0F07}';
  260.   CLASS_AccessPage: TGUID = '{3B06E973-E47C-11CD-8701-00AA003F0F07}';
  261.   IID__Section: TGUID = '{331FDCFC-CF31-11CD-8701-00AA003F0F07}';
  262.   IID__SectionEvents: TGUID = '{BC9E4353-F037-11CD-8701-00AA003F0F07}';
  263.   CLASS_AccessSection: TGUID = '{BC9E4355-F037-11CD-8701-00AA003F0F07}';
  264.   IID__GroupLevel: TGUID = '{331FDD27-CF31-11CD-8701-00AA003F0F07}';
  265.   IID__GroupLevelEvents: TGUID = '{BC9E4354-F037-11CD-8701-00AA003F0F07}';
  266.   CLASS_AccessGroupLevel: TGUID = '{BC9E4356-F037-11CD-8701-00AA003F0F07}';
  267.   IID__SectionInReportEvents: TGUID = '{BC9E4361-F037-11CD-8701-00AA003F0F07}';
  268.   CLASS__SectionInReport: TGUID = '{BC9E4360-F037-11CD-8701-00AA003F0F07}';
  269.   IID__PageHdrFtrInReportEvents: TGUID = '{7AD9E905-BAF8-11CE-A68A-00AA003F0F07}';
  270.   CLASS__PageHdrFtrInReport: TGUID = '{7AD9E906-BAF8-11CE-A68A-00AA003F0F07}';
  271.   IID_Module: TGUID = '{331FDCFE-CF31-11CD-8701-00AA003F0F07}';
  272.   IID_Modules: TGUID = '{9DD0AF42-6E28-11CF-9008-00AA0042B7CE}';
  273.   IID__Form: TGUID = '{E5135D80-8F8D-101B-AF4E-00AA003F0F07}';
  274.   IID__FormEvents: TGUID = '{331FDCFB-CF31-11CD-8701-00AA003F0F07}';
  275.   CLASS_AccessForm: TGUID = '{483615A0-74BE-101B-AF4E-00AA003F0F07}';
  276.   IID_Forms: TGUID = '{B1BB0E80-6128-101B-AF4E-00AA003F0F07}';
  277.   IID__Report: TGUID = '{3E8B6B00-91FF-101B-AF4E-00AA003F0F07}';
  278.   IID__ReportEvents: TGUID = '{BC9E4357-F037-11CD-8701-00AA003F0F07}';
  279.   CLASS_AccessReport: TGUID = '{27CE30A0-91FF-101B-AF4E-00AA003F0F07}';
  280.   IID_Reports: TGUID = '{D1523700-6128-101B-AF4E-00AA003F0F07}';
  281.   IID_Screen: TGUID = '{DC6B66C0-6128-101B-AF4E-00AA003F0F07}';
  282.   IID__Application: TGUID = '{68CCE6C0-6129-101B-AF4E-00AA003F0F07}';
  283.   CLASS_Application: TGUID = '{8CC49940-3146-11CF-97A1-00AA00424A9F}';
  284.   IID_Reference: TGUID = '{EB106212-9C89-11CF-A2B3-00A0C90542FF}';
  285.   IID__References: TGUID = '{EB106213-9C89-11CF-A2B3-00A0C90542FF}';
  286.   DIID__References_Events: TGUID = '{F163F201-ADA2-11CF-89A9-00A0C9054129}';
  287.   CLASS_AccessReferences: TGUID = '{EB106214-9C89-11CF-A2B3-00A0C90542FF}';
  288.   IID__Dummy: TGUID = '{8B06E320-B23C-11CF-89A8-00A0C9054129}';
  289.   IID__DummyEvents: TGUID = '{58BF3100-B580-11CF-89A8-00A0C9054129}';
  290.   CLASS_Class_: TGUID = '{8B06E321-B23C-11CF-89A8-00A0C9054129}';
  291.   IID____IVbaModule: TGUID = '{0002E16E-0000-0000-C000-000000000046}';
  292.   CLASS____CodeModule: TGUID = '{0002E170-0000-0000-C000-000000000046}';
  293.   IID____IVbaEditors: TGUID = '{0002E172-0000-0000-C000-000000000046}';
  294.   CLASS____Editors: TGUID = '{0002E174-0000-0000-C000-000000000046}';
  295.   IID____IVbaEditor: TGUID = '{0002E176-0000-0000-C000-000000000046}';
  296.   CLASS____Editor: TGUID = '{0002E178-0000-0000-C000-000000000046}';
  297.   IID_IVbaReferences: TGUID = '{0002E17A-0000-0000-C000-000000000046}';
  298.   IID____Reference: TGUID = '{0002E17E-0000-0000-C000-000000000046}';
  299.   DIID____IVbaExtReferencesEvents: TGUID = '{CDDE3804-2064-11CF-867F-00AA005FF34A}';
  300.   CLASS____References: TGUID = '{0002E17C-0000-0000-C000-000000000046}';
  301.  
  302. // *********************************************************************//
  303. // Declaration of Enumerations defined in Type Library                    
  304. // *********************************************************************//
  305. // AcModuleType constants
  306. type
  307.   AcModuleType = TOleEnum;
  308. const
  309.   acStandardModule = $00000000;
  310.   acClassModule = $00000001;
  311.  
  312. // AcCloseSave constants
  313. type
  314.   AcCloseSave = TOleEnum;
  315. const
  316.   acSavePrompt = $00000000;
  317.   acSaveYes = $00000001;
  318.   acSaveNo = $00000002;
  319.  
  320. // AcQuitOption constants
  321. type
  322.   AcQuitOption = TOleEnum;
  323. const
  324.   acQuitPrompt = $00000000;
  325.   acQuitSaveAll = $00000001;
  326.   acQuitSaveNone = $00000002;
  327.  
  328. // AcSection constants
  329. type
  330.   AcSection = TOleEnum;
  331. const
  332.   acDetail = $00000000;
  333.   acHeader = $00000001;
  334.   acFooter = $00000002;
  335.   acPageHeader = $00000003;
  336.   acPageFooter = $00000004;
  337.   acGroupLevel1Header = $00000005;
  338.   acGroupLevel1Footer = $00000006;
  339.   acGroupLevel2Header = $00000007;
  340.   acGroupLevel2Footer = $00000008;
  341.  
  342. // AcControlType constants
  343. type
  344.   AcControlType = TOleEnum;
  345. const
  346.   acLabel = $00000064;
  347.   acRectangle = $00000065;
  348.   acLine = $00000066;
  349.   acImage = $00000067;
  350.   acCommandButton = $00000068;
  351.   acOptionButton = $00000069;
  352.   acCheckBox = $0000006A;
  353.   acOptionGroup = $0000006B;
  354.   acBoundObjectFrame = $0000006C;
  355.   acTextBox = $0000006D;
  356.   acListBox = $0000006E;
  357.   acComboBox = $0000006F;
  358.   acSubform = $00000070;
  359.   acObjectFrame = $00000072;
  360.   acPageBreak = $00000076;
  361.   acCustomControl = $00000077;
  362.   acToggleButton = $0000007A;
  363.   acTabCtl = $0000007B;
  364.   acPage = $0000007C;
  365.  
  366. // AcDataObjectType constants
  367. type
  368.   AcDataObjectType = TOleEnum;
  369. const
  370.   acActiveDataObject = $FFFFFFFF;
  371.   acDataTable = $00000000;
  372.   acDataQuery = $00000001;
  373.   acDataForm = $00000002;
  374.  
  375. // AcDataTransferType constants
  376. type
  377.   AcDataTransferType = TOleEnum;
  378. const
  379.   acImport = $00000000;
  380.   acExport = $00000001;
  381.   acLink = $00000002;
  382.  
  383. // AcSendObjectType constants
  384. type
  385.   AcSendObjectType = TOleEnum;
  386. const
  387.   acSendNoObject = $FFFFFFFF;
  388.   acSendTable = $00000000;
  389.   acSendQuery = $00000001;
  390.   acSendForm = $00000002;
  391.   acSendReport = $00000003;
  392.   acSendModule = $00000005;
  393.  
  394. // AcObjectType constants
  395. type
  396.   AcObjectType = TOleEnum;
  397. const
  398.   acDefault = $FFFFFFFF;
  399.   acTable = $00000000;
  400.   acQuery = $00000001;
  401.   acForm = $00000002;
  402.   acReport = $00000003;
  403.   acMacro = $00000004;
  404.   acModule = $00000005;
  405.  
  406. // AcFindField constants
  407. type
  408.   AcFindField = TOleEnum;
  409. const
  410.   acCurrent = $FFFFFFFF;
  411.   acAll = $00000000;
  412.  
  413. // AcFindMatch constants
  414. type
  415.   AcFindMatch = TOleEnum;
  416. const
  417.   acAnywhere = $00000000;
  418.   acEntire = $00000001;
  419.   acStart = $00000002;
  420.  
  421. // AcFormView constants
  422. type
  423.   AcFormView = TOleEnum;
  424. const
  425.   acNormal = $00000000;
  426.   acDesign = $00000001;
  427.   acPreview = $00000002;
  428.   acFormDS = $00000003;
  429.  
  430. // AcOpenDataMode constants
  431. type
  432.   AcOpenDataMode = TOleEnum;
  433. const
  434.   acAdd = $00000000;
  435.   acEdit = $00000001;
  436.   acReadOnly = $00000002;
  437.  
  438. // AcFormOpenDataMode constants
  439. type
  440.   AcFormOpenDataMode = TOleEnum;
  441. const
  442.   acFormPropertySettings = $FFFFFFFF;
  443.   acFormAdd = $00000000;
  444.   acFormEdit = $00000001;
  445.   acFormReadOnly = $00000002;
  446.  
  447. // AcOutputObjectType constants
  448. type
  449.   AcOutputObjectType = TOleEnum;
  450. const
  451.   acOutputTable = $00000000;
  452.   acOutputQuery = $00000001;
  453.   acOutputForm = $00000002;
  454.   acOutputReport = $00000003;
  455.   acOutputModule = $00000005;
  456.  
  457. // AcPrintQuality constants
  458. type
  459.   AcPrintQuality = TOleEnum;
  460. const
  461.   acHigh = $00000000;
  462.   acMedium = $00000001;
  463.   acLow = $00000002;
  464.   acDraft = $00000003;
  465.  
  466. // AcPrintRange constants
  467. type
  468.   AcPrintRange = TOleEnum;
  469. const
  470.   acPrintAll = $00000000;
  471.   acSelection = $00000001;
  472.   acPages = $00000002;
  473.  
  474. // AcRecord constants
  475. type
  476.   AcRecord = TOleEnum;
  477. const
  478.   acPrevious = $00000000;
  479.   acNext = $00000001;
  480.   acFirst = $00000002;
  481.   acLast = $00000003;
  482.   acGoTo = $00000004;
  483.   acNewRec = $00000005;
  484.  
  485. // AcSearchDirection constants
  486. type
  487.   AcSearchDirection = TOleEnum;
  488. const
  489.   acUp = $00000000;
  490.   acDown = $00000001;
  491.   acSearchAll = $00000002;
  492.  
  493. // AcSysCmdAction constants
  494. type
  495.   AcSysCmdAction = TOleEnum;
  496. const
  497.   acSysCmdInitMeter = $00000001;
  498.   acSysCmdUpdateMeter = $00000002;
  499.   acSysCmdRemoveMeter = $00000003;
  500.   acSysCmdSetStatus = $00000004;
  501.   acSysCmdClearStatus = $00000005;
  502.   acSysCmdRuntime = $00000006;
  503.   acSysCmdAccessVer = $00000007;
  504.   acSysCmdIniFile = $00000008;
  505.   acSysCmdAccessDir = $00000009;
  506.   acSysCmdGetObjectState = $0000000A;
  507.   acSysCmdClearHelpTopic = $0000000B;
  508.   acSysCmdProfile = $0000000C;
  509.   acSysCmdGetWorkgroupFile = $0000000D;
  510.  
  511. // AcTextTransferType constants
  512. type
  513.   AcTextTransferType = TOleEnum;
  514. const
  515.   acImportDelim = $00000000;
  516.   acImportFixed = $00000001;
  517.   acExportDelim = $00000002;
  518.   acExportFixed = $00000003;
  519.   acExportMerge = $00000004;
  520.   acLinkDelim = $00000005;
  521.   acLinkFixed = $00000006;
  522.   acImportHTML = $00000007;
  523.   acExportHTML = $00000008;
  524.   acLinkHTML = $00000009;
  525.  
  526. // AcView constants
  527. type
  528.   AcView = TOleEnum;
  529. const
  530.   acViewNormal = $00000000;
  531.   acViewDesign = $00000001;
  532.   acViewPreview = $00000002;
  533.  
  534. // AcWindowMode constants
  535. type
  536.   AcWindowMode = TOleEnum;
  537. const
  538.   acWindowNormal = $00000000;
  539.   acHidden = $00000001;
  540.   acIcon = $00000002;
  541.   acDialog = $00000003;
  542.  
  543. // AcSpreadSheetType constants
  544. type
  545.   AcSpreadSheetType = TOleEnum;
  546. const
  547.   acSpreadsheetTypeExcel3 = $00000000;
  548.   acSpreadsheetTypeLotusWK1 = $00000002;
  549.   acSpreadsheetTypeLotusWK3 = $00000003;
  550.   acSpreadsheetTypeExcel5 = $00000005;
  551.   acSpreadsheetTypeExcel7 = $00000005;
  552.   acSpreadsheetTypeExcel4 = $00000006;
  553.   acSpreadsheetTypeLotusWK4 = $00000007;
  554.   acSpreadsheetTypeExcel97 = $00000008;
  555.  
  556. // AcHyperlinkPart constants
  557. type
  558.   AcHyperlinkPart = TOleEnum;
  559. const
  560.   acDisplayedValue = $00000000;
  561.   acDisplayText = $00000001;
  562.   acAddress = $00000002;
  563.   acSubAddress = $00000003;
  564.  
  565. // AcCommand constants
  566. type
  567.   AcCommand = TOleEnum;
  568. const
  569.   acCmdWindowUnhide = $00000001;
  570.   acCmdWindowHide = $00000002;
  571.   acCmdExit = $00000003;
  572.   acCmdCompactDatabase = $00000004;
  573.   acCmdEncryptDecryptDatabase = $00000005;
  574.   acCmdRepairDatabase = $00000006;
  575.   acCmdMakeMDEFile = $00000007;
  576.   acCmdMoreWindows = $00000008;
  577.   acCmdAppRestore = $00000009;
  578.   acCmdAppMaximize = $0000000A;
  579.   acCmdAppMinimize = $0000000B;
  580.   acCmdAppMove = $0000000C;
  581.   acCmdAppSize = $0000000D;
  582.   acCmdDocRestore = $0000000E;
  583.   acCmdDocMaximize = $0000000F;
  584.   acCmdDocMove = $00000010;
  585.   acCmdDocSize = $00000011;
  586.   acCmdRefresh = $00000012;
  587.   acCmdFont = $00000013;
  588.   acCmdSave = $00000014;
  589.   acCmdSaveAs = $00000015;
  590.   acCmdWindowCascade = $00000016;
  591.   acCmdTileVertically = $00000017;
  592.   acCmdWindowArrangeIcons = $00000018;
  593.   acCmdOpenDatabase = $00000019;
  594.   acCmdNewDatabase = $0000001A;
  595.   acCmdOLEDDELinks = $0000001B;
  596.   acCmdRecordsGoToNew = $0000001C;
  597.   acCmdReplace = $0000001D;
  598.   acCmdFind = $0000001E;
  599.   acCmdRunMacro = $0000001F;
  600.   acCmdPageSetup = $00000020;
  601.   acCmdInsertObject = $00000021;
  602.   acCmdDuplicate = $00000022;
  603.   acCmdAboutMicrosoftAccess = $00000023;
  604.   acCmdFormHdrFtr = $00000024;
  605.   acCmdReportHdrFtr = $00000025;
  606.   acCmdPasteAppend = $00000026;
  607.   acCmdInsertFile = $00000027;
  608.   acCmdSelectForm = $00000028;
  609.   acCmdTabOrder = $00000029;
  610.   acCmdFieldList = $0000002A;
  611.   acCmdAlignLeft = $0000002B;
  612.   acCmdAlignRight = $0000002C;
  613.   acCmdAlignTop = $0000002D;
  614.   acCmdAlignBottom = $0000002E;
  615.   acCmdAlignToGrid = $0000002F;
  616.   acCmdSizeToGrid = $00000030;
  617.   acCmdOptions = $00000031;
  618.   acCmdSelectRecord = $00000032;
  619.   acCmdSortingAndGrouping = $00000033;
  620.   acCmdBringToFront = $00000034;
  621.   acCmdSendToBack = $00000035;
  622.   acCmdPrintPreview = $00000036;
  623.   acCmdApplyDefault = $00000037;
  624.   acCmdSetControlDefaults = $00000038;
  625.   acCmdOLEObjectDefaultVerb = $00000039;
  626.   acCmdClose = $0000003A;
  627.   acCmdSizeToFit = $0000003B;
  628.   acCmdDocMinimize = $0000003C;
  629.   acCmdViewRuler = $0000003D;
  630.   acCmdSnapToGrid = $0000003E;
  631.   acCmdViewGrid = $0000003F;
  632.   acCmdPasteSpecial = $00000040;
  633.   acCmdRecordsGoToNext = $00000041;
  634.   acCmdRecordsGoToPrevious = $00000042;
  635.   acCmdRecordsGoToFirst = $00000043;
  636.   acCmdRecordsGoToLast = $00000044;
  637.   acCmdSizeToFitForm = $00000045;
  638.   acCmdEditingAllowed = $00000046;
  639.   acCmdClearGrid = $00000047;
  640.   acCmdJoinProperties = $00000048;
  641.   acCmdQueryTotals = $00000049;
  642.   acCmdQueryTypeCrosstab = $0000004A;
  643.   acCmdTableNames = $0000004B;
  644.   acCmdQueryParameters = $0000004C;
  645.   acCmdFormatCells = $0000004D;
  646.   acCmdDataEntry = $0000004E;
  647.   acCmdHideColumns = $0000004F;
  648.   acCmdUnhideColumns = $00000050;
  649.   acCmdDeleteQueryColumn = $00000051;
  650.   acCmdInsertQueryColumn = $00000052;
  651.   acCmdRemoveTable = $00000054;
  652.   acCmdViewToolbox = $00000055;
  653.   acCmdMacroNames = $00000056;
  654.   acCmdMacroConditions = $00000057;
  655.   acCmdSingleStep = $00000058;
  656.   acCmdQueryTypeSelect = $00000059;
  657.   acCmdQueryTypeUpdate = $0000005A;
  658.   acCmdQueryTypeAppend = $0000005B;
  659.   acCmdQueryTypeDelete = $0000005C;
  660.   acCmdApplyFilterSort = $0000005D;
  661.   acCmdQueryTypeMakeTable = $0000005E;
  662.   acCmdLoadFromQuery = $0000005F;
  663.   acCmdSaveAsQuery = $00000060;
  664.   acCmdSaveRecord = $00000061;
  665.   acCmdAdvancedFilterSort = $00000063;
  666.   acCmdMicrosoftAccessHelpTopics = $00000064;
  667.   acCmdLinkTables = $00000066;
  668.   acCmdUserAndGroupPermissions = $00000067;
  669.   acCmdUserAndGroupAccounts = $00000068;
  670.   acCmdFreezeColumn = $00000069;
  671.   acCmdUnfreezeAllColumns = $0000006A;
  672.   acCmdPrimaryKey = $0000006B;
  673.   acCmdSubformDatasheet = $0000006C;
  674.   acCmdSelectAllRecords = $0000006D;
  675.   acCmdViewTables = $0000006E;
  676.   acCmdViewQueries = $0000006F;
  677.   acCmdViewForms = $00000070;
  678.   acCmdViewReports = $00000071;
  679.   acCmdViewMacros = $00000072;
  680.   acCmdViewModules = $00000073;
  681.   acCmdRowHeight = $00000074;
  682.   acCmdColumnWidth = $00000075;
  683.   acCmdInsertFileIntoModule = $00000076;
  684.   acCmdSaveModuleAsText = $00000077;
  685.   acCmdFindPrevious = $00000078;
  686.   acCmdWindowSplit = $00000079;
  687.   acCmdProcedureDefinition = $0000007A;
  688.   acCmdDebugWindow = $0000007B;
  689.   acCmdReset = $0000007C;
  690.   acCmdCompileAllModules = $0000007D;
  691.   acCmdCompileAndSaveAllModules = $0000007E;
  692.   acCmdGoContinue = $0000007F;
  693.   acCmdStepOver = $00000080;
  694.   acCmdSetNextStatement = $00000081;
  695.   acCmdShowNextStatement = $00000082;
  696.   acCmdToggleBreakpoint = $00000083;
  697.   acCmdClearAllBreakpoints = $00000084;
  698.   acCmdRelationships = $00000085;
  699.   acCmdNewObjectTable = $00000086;
  700.   acCmdNewObjectQuery = $00000087;
  701.   acCmdNewObjectForm = $00000088;
  702.   acCmdNewObjectReport = $00000089;
  703.   acCmdNewObjectMacro = $0000008A;
  704.   acCmdNewObjectModule = $0000008B;
  705.   acCmdNewObjectClassModule = $0000008C;
  706.   acCmdLayoutPreview = $0000008D;
  707.   acCmdSaveAsReport = $0000008E;
  708.   acCmdRename = $0000008F;
  709.   acCmdRemoveFilterSort = $00000090;
  710.   acCmdSaveLayout = $00000091;
  711.   acCmdClearAll = $00000092;
  712.   acCmdHideTable = $00000093;
  713.   acCmdShowDirectRelationships = $00000094;
  714.   acCmdShowAllRelationships = $00000095;
  715.   acCmdCreateRelationship = $00000096;
  716.   acCmdEditRelationship = $00000097;
  717.   acCmdIndexes = $00000098;
  718.   acCmdAlignToShortest = $00000099;
  719.   acCmdAlignToTallest = $0000009A;
  720.   acCmdSizeToNarrowest = $0000009B;
  721.   acCmdSizeToWidest = $0000009C;
  722.   acCmdHorizontalSpacingMakeEqual = $0000009D;
  723.   acCmdHorizontalSpacingDecrease = $0000009E;
  724.   acCmdHorizontalSpacingIncrease = $0000009F;
  725.   acCmdVerticalSpacingMakeEqual = $000000A0;
  726.   acCmdVerticalSpacingDecrease = $000000A1;
  727.   acCmdVerticalSpacingIncrease = $000000A2;
  728.   acCmdSortAscending = $000000A3;
  729.   acCmdSortDescending = $000000A4;
  730.   acCmdToolbarsCustomize = $000000A5;
  731.   acCmdOLEObjectConvert = $000000A7;
  732.   acCmdQueryTypeSQLDataDefinition = $000000A8;
  733.   acCmdQueryTypeSQLPassThrough = $000000A9;
  734.   acCmdViewCode = $000000AA;
  735.   acCmdConvertDatabase = $000000AB;
  736.   acCmdCallStack = $000000AC;
  737.   acCmdSend = $000000AD;
  738.   acCmdOutputToExcel = $000000AF;
  739.   acCmdOutputToRTF = $000000B0;
  740.   acCmdOutputToText = $000000B1;
  741.   acCmdInvokeBuilder = $000000B2;
  742.   acCmdZoomBox = $000000B3;
  743.   acCmdQueryTypeSQLUnion = $000000B4;
  744.   acCmdRun = $000000B5;
  745.   acCmdPageHdrFtr = $000000B6;
  746.   acCmdDesignView = $000000B7;
  747.   acCmdSQLView = $000000B8;
  748.   acCmdShowTable = $000000B9;
  749.   acCmdCloseWindow = $000000BA;
  750.   acCmdInsertRows = $000000BB;
  751.   acCmdDeleteRows = $000000BC;
  752.   acCmdCut = $000000BD;
  753.   acCmdCopy = $000000BE;
  754.   acCmdPaste = $000000BF;
  755.   acCmdAutoDial = $000000C0;
  756.   acCmdNewObjectAutoForm = $000000C1;
  757.   acCmdNewObjectAutoReport = $000000C2;
  758.   acCmdWordMailMerge = $000000C3;
  759.   acCmdTestValidationRules = $000000C4;
  760.   acCmdControlWizardsToggle = $000000C5;
  761.   acCmdEnd = $000000C6;
  762.   acCmdRedo = $000000C7;
  763.   acCmdObjectBrowser = $000000C8;
  764.   acCmdAddWatch = $000000C9;
  765.   acCmdEditWatch = $000000CA;
  766.   acCmdQuickWatch = $000000CB;
  767.   acCmdStepToCursor = $000000CC;
  768.   acCmdIndent = $000000CD;
  769.   acCmdOutdent = $000000CE;
  770.   acCmdFilterByForm = $000000CF;
  771.   acCmdFilterBySelection = $000000D0;
  772.   acCmdViewLargeIcons = $000000D1;
  773.   acCmdViewDetails = $000000D2;
  774.   acCmdViewSmallIcons = $000000D3;
  775.   acCmdViewList = $000000D4;
  776.   acCmdLineUpIcons = $000000D5;
  777.   acCmdArrangeIconsByName = $000000D6;
  778.   acCmdArrangeIconsByType = $000000D7;
  779.   acCmdArrangeIconsByCreated = $000000D8;
  780.   acCmdArrangeIconsByModified = $000000D9;
  781.   acCmdArrangeIconsAuto = $000000DA;
  782.   acCmdCreateShortcut = $000000DB;
  783.   acCmdToggleFilter = $000000DC;
  784.   acCmdOpenTable = $000000DD;
  785.   acCmdInsertPicture = $000000DE;
  786.   acCmdDeleteRecord = $000000DF;
  787.   acCmdStartupProperties = $000000E0;
  788.   acCmdPageNumber = $000000E1;
  789.   acCmdDateAndTime = $000000E2;
  790.   acCmdChangeToTextBox = $000000E3;
  791.   acCmdChangeToLabel = $000000E4;
  792.   acCmdChangeToListBox = $000000E5;
  793.   acCmdChangeToComboBox = $000000E6;
  794.   acCmdChangeToCheckBox = $000000E7;
  795.   acCmdChangeToToggleButton = $000000E8;
  796.   acCmdChangeToOptionButton = $000000E9;
  797.   acCmdChangeToImage = $000000EA;
  798.   acCmdAnswerWizard = $000000EB;
  799.   acCmdMicrosoftOnTheWeb = $000000EC;
  800.   acCmdClearItemDefaults = $000000ED;
  801.   acCmdZoom200 = $000000EE;
  802.   acCmdZoom150 = $000000EF;
  803.   acCmdZoom100 = $000000F0;
  804.   acCmdZoom75 = $000000F1;
  805.   acCmdZoom50 = $000000F2;
  806.   acCmdZoom25 = $000000F3;
  807.   acCmdZoom10 = $000000F4;
  808.   acCmdFitToWindow = $000000F5;
  809.   acCmdPreviewOnePage = $000000F6;
  810.   acCmdPreviewTwoPages = $000000F7;
  811.   acCmdPreviewFourPages = $000000F8;
  812.   acCmdPreviewEightPages = $000000F9;
  813.   acCmdPreviewTwelvePages = $000000FA;
  814.   acCmdOpenURL = $000000FB;
  815.   acCmdOpenStartPage = $000000FC;
  816.   acCmdOpenSearchPage = $000000FD;
  817.   acCmdRegisterActiveXControls = $000000FE;
  818.   acCmdDeleteTab = $000000FF;
  819.   acCmdDatabaseProperties = $00000100;
  820.   acCmdImport = $00000101;
  821.   acCmdInsertActiveXControl = $00000102;
  822.   acCmdInsertHyperlink = $00000103;
  823.   acCmdReferences = $00000104;
  824.   acCmdAutoCorrect = $00000105;
  825.   acCmdInsertProcedure = $00000106;
  826.   acCmdCreateReplica = $00000107;
  827.   acCmdSynchronizeNow = $00000108;
  828.   acCmdRecoverDesignMaster = $00000109;
  829.   acCmdResolveConflicts = $0000010A;
  830.   acCmdDeleteWatch = $0000010B;
  831.   acCmdSpelling = $0000010D;
  832.   acCmdAutoFormat = $0000010E;
  833.   acCmdDeleteTableColumn = $0000010F;
  834.   acCmdInsertTableColumn = $00000110;
  835.   acCmdInsertLookupColumn = $00000111;
  836.   acCmdRenameColumn = $00000112;
  837.   acCmdSetDatabasePassword = $00000113;
  838.   acCmdUserLevelSecurityWizard = $00000114;
  839.   acCmdFilterExcludingSelection = $00000115;
  840.   acCmdQuickPrint = $00000116;
  841.   acCmdConvertMacrosToVisualBasic = $00000117;
  842.   acCmdSaveAllModules = $00000118;
  843.   acCmdFormView = $00000119;
  844.   acCmdDatasheetView = $0000011A;
  845.   acCmdAnalyzePerformance = $0000011B;
  846.   acCmdAnalyzeTable = $0000011C;
  847.   acCmdDocumenter = $0000011D;
  848.   acCmdTileHorizontally = $0000011E;
  849.   acCmdProperties = $0000011F;
  850.   acCmdTransparentBackground = $00000120;
  851.   acCmdTransparentBorder = $00000121;
  852.   acCmdCompileLoadedModules = $00000122;
  853.   acCmdInsertLookupField = $00000123;
  854.   acCmdUndo = $00000124;
  855.   acCmdInsertChart = $00000125;
  856.   acCmdGoBack = $00000126;
  857.   acCmdGoForward = $00000127;
  858.   acCmdStopLoadingPage = $00000128;
  859.   acCmdRefreshPage = $00000129;
  860.   acCmdFavoritesOpen = $0000012A;
  861.   acCmdFavoritesAddTo = $0000012B;
  862.   acCmdShowOnlyWebToolbar = $0000012C;
  863.   acCmdToolbarControlProperties = $0000012D;
  864.   acCmdShowMembers = $0000012E;
  865.   acCmdListConstants = $0000012F;
  866.   acCmdQuickInfo = $00000130;
  867.   acCmdParameterInfo = $00000131;
  868.   acCmdCompleteWord = $00000132;
  869.   acCmdBookmarksToggle = $00000133;
  870.   acCmdBookmarksNext = $00000134;
  871.   acCmdBookmarksPrevious = $00000135;
  872.   acCmdBookmarksClearAll = $00000136;
  873.   acCmdStepOut = $00000137;
  874.   acCmdFindPrevWordUnderCursor = $00000138;
  875.   acCmdFindNextWordUnderCursor = $00000139;
  876.   acCmdObjBrwFindWholeWordOnly = $0000013A;
  877.   acCmdObjBrwShowHiddenMembers = $0000013B;
  878.   acCmdObjBrwHelp = $0000013C;
  879.   acCmdObjBrwViewDefinition = $0000013D;
  880.   acCmdObjBrwGroupMembers = $0000013E;
  881.   acCmdSelectReport = $0000013F;
  882.   acCmdPublish = $00000140;
  883.   acCmdSaveAsHTML = $00000141;
  884.   acCmdSaveAsIDC = $00000142;
  885.   acCmdSaveAsASP = $00000143;
  886.   acCmdPublishDefaults = $00000144;
  887.   acCmdEditHyperlink = $00000145;
  888.   acCmdOpenHyperlink = $00000146;
  889.   acCmdOpenNewHyperlink = $00000147;
  890.   acCmdCopyHyperlink = $00000148;
  891.   acCmdHyperlinkDisplayText = $00000149;
  892.   acCmdTabControlPageOrder = $0000014A;
  893.   acCmdInsertPage = $0000014B;
  894.   acCmdDeletePage = $0000014C;
  895.   acCmdSelectAll = $0000014D;
  896.   acCmdCreateMenuFromMacro = $0000014E;
  897.   acCmdCreateToolbarFromMacro = $0000014F;
  898.   acCmdCreateShortcutMenuFromMacro = $00000150;
  899.   acCmdDelete = $00000151;
  900.   acCmdRunOpenMacro = $00000152;
  901.   acCmdLastPosition = $00000153;
  902.   acCmdPrint = $00000154;
  903.   acCmdFindNext = $00000155;
  904.   acCmdStepInto = $00000156;
  905.  
  906. // RefKind constants
  907. type
  908.   RefKind = TOleEnum;
  909. const
  910.   TypeLib = $00000000;
  911.   Project = $00000001;
  912.  
  913. // ProcKind constants
  914. type
  915.   ProcKind = TOleEnum;
  916. const
  917.   vbext_pk_Proc = $00000000;
  918.   vbext_pk_Let = $00000001;
  919.   vbext_pk_Set = $00000002;
  920.   vbext_pk_Get = $00000003;
  921.  
  922. // ___ProcKind constants
  923. type
  924.   ___ProcKind = TOleEnum;
  925. const
  926.   ___vbext_pkProc = $00000000;
  927.   ___vbext_pk_Let = $00000001;
  928.   ___vbext_pk_Set = $00000002;
  929.   ___vbext_pk_Get = $00000003;
  930.  
  931. // ___vbext_CodePaneview constants
  932. type
  933.   ___vbext_CodePaneview = TOleEnum;
  934. const
  935.   ___vbext_codeview_ProcedureView = $00000000;
  936.   ___vbext_cocdview_FullModuleView = $00000001;
  937.  
  938. // ___RefKind constants
  939. type
  940.   ___RefKind = TOleEnum;
  941. const
  942.   ___TypeLib = $00000000;
  943.   ___Project = $00000001;
  944.  
  945. type
  946.  
  947. // *********************************************************************//
  948. // Forward declaration of types defined in TypeLibrary                    
  949. // *********************************************************************//
  950.   IDoCmd = interface;
  951.   IDoCmdDisp = dispinterface;
  952.   __AccessProperty = interface;
  953.   _AccessProperty = interface;
  954.   _AccessPropertyDisp = dispinterface;
  955.   Properties = interface;
  956.   PropertiesDisp = dispinterface;
  957.   _ItemsSelected = interface;
  958.   _ItemsSelectedDisp = dispinterface;
  959.   Children = interface;
  960.   ChildrenDisp = dispinterface;
  961.   _AccessField = interface;
  962.   _AccessFieldDisp = dispinterface;
  963.   __Help = interface;
  964.   _Hyperlink = interface;
  965.   _HyperlinkDisp = dispinterface;
  966.   _Page = interface;
  967.   _PageDisp = dispinterface;
  968.   Pages = interface;
  969.   PagesDisp = dispinterface;
  970.   _Control = interface;
  971.   _ControlDisp = dispinterface;
  972.   __ControlInReportEvents = interface;
  973.   Controls = interface;
  974.   ControlsDisp = dispinterface;
  975.   _Label = interface;
  976.   _LabelDisp = dispinterface;
  977.   _LabelEvents = interface;
  978.   _ChildLabelEvents = interface;
  979.   _Rectangle = interface;
  980.   _RectangleDisp = dispinterface;
  981.   _RectangleEvents = interface;
  982.   _Line = interface;
  983.   _LineDisp = dispinterface;
  984.   _LineEvents = interface;
  985.   _Image = interface;
  986.   _ImageDisp = dispinterface;
  987.   _ImageEvents = interface;
  988.   _CommandButton = interface;
  989.   _CommandButtonDisp = dispinterface;
  990.   _CommandButtonEvents = interface;
  991.   _OptionButton = interface;
  992.   _OptionButtonDisp = dispinterface;
  993.   _OptionButtonEvents = interface;
  994.   _OptionButtonInOptionEvents = interface;
  995.   _Checkbox = interface;
  996.   _CheckboxDisp = dispinterface;
  997.   _CheckBoxEvents = interface;
  998.   _CheckBoxInOptionEvents = interface;
  999.   _OptionGroup = interface;
  1000.   _OptionGroupDisp = dispinterface;
  1001.   _OptionGroupEvents = interface;
  1002.   _BoundObjectFrame = interface;
  1003.   _BoundObjectFrameDisp = dispinterface;
  1004.   _BoundObjectFrameEvents = interface;
  1005.   _Textbox = interface;
  1006.   _TextboxDisp = dispinterface;
  1007.   _TextBoxEvents = interface;
  1008.   _ListBox = interface;
  1009.   _ListBoxDisp = dispinterface;
  1010.   _ListBoxEvents = interface;
  1011.   _Combobox = interface;
  1012.   _ComboboxDisp = dispinterface;
  1013.   _ComboBoxEvents = interface;
  1014.   _ObjectFrame = interface;
  1015.   _ObjectFrameDisp = dispinterface;
  1016.   _ObjectFrameEvents = interface;
  1017.   _PageBreak = interface;
  1018.   _PageBreakDisp = dispinterface;
  1019.   _PageBreakEvents = interface;
  1020.   _ToggleButton = interface;
  1021.   _ToggleButtonDisp = dispinterface;
  1022.   _ToggleButtonEvents = interface;
  1023.   _ToggleButtonInOptionEvents = interface;
  1024.   _PaletteButton = interface;
  1025.   _PaletteButtonDisp = dispinterface;
  1026.   _PaletteButtonEvents = interface;
  1027.   _SubForm = interface;
  1028.   _SubFormDisp = dispinterface;
  1029.   _SubFormEvents = interface;
  1030.   _SubReport = interface;
  1031.   _SubReportDisp = dispinterface;
  1032.   _SubReportEvents = interface;
  1033.   _CustomControl = interface;
  1034.   _CustomControlDisp = dispinterface;
  1035.   _CustomControlEvents = interface;
  1036.   _CustomControlInReportEvents = interface;
  1037.   _TabControl = interface;
  1038.   _TabControlDisp = dispinterface;
  1039.   _TabControlEvents = interface;
  1040.   _PageEvents = interface;
  1041.   _Section = interface;
  1042.   _SectionDisp = dispinterface;
  1043.   _SectionEvents = interface;
  1044.   _GroupLevel = interface;
  1045.   _GroupLevelDisp = dispinterface;
  1046.   _GroupLevelEvents = interface;
  1047.   _SectionInReportEvents = interface;
  1048.   _PageHdrFtrInReportEvents = interface;
  1049.   Module = interface;
  1050.   ModuleDisp = dispinterface;
  1051.   Modules = interface;
  1052.   ModulesDisp = dispinterface;
  1053.   _Form = interface;
  1054.   _FormDisp = dispinterface;
  1055.   _FormEvents = interface;
  1056.   Forms = interface;
  1057.   FormsDisp = dispinterface;
  1058.   _Report = interface;
  1059.   _ReportDisp = dispinterface;
  1060.   _ReportEvents = interface;
  1061.   Reports = interface;
  1062.   ReportsDisp = dispinterface;
  1063.   Screen = interface;
  1064.   ScreenDisp = dispinterface;
  1065.   _Application = interface;
  1066.   _ApplicationDisp = dispinterface;
  1067.   Reference = interface;
  1068.   ReferenceDisp = dispinterface;
  1069.   _References = interface;
  1070.   _ReferencesDisp = dispinterface;
  1071.   _References_Events = dispinterface;
  1072.   _Dummy = interface;
  1073.   _DummyDisp = dispinterface;
  1074.   _DummyEvents = interface;
  1075.   ___IVbaModule = interface;
  1076.   ___IVbaModuleDisp = dispinterface;
  1077.   ___IVbaEditors = interface;
  1078.   ___IVbaEditorsDisp = dispinterface;
  1079.   ___IVbaEditor = interface;
  1080.   ___IVbaEditorDisp = dispinterface;
  1081.   IVbaReferences = interface;
  1082.   IVbaReferencesDisp = dispinterface;
  1083.   ___Reference = interface;
  1084.   ___ReferenceDisp = dispinterface;
  1085.   ___IVbaExtReferencesEvents = dispinterface;
  1086.  
  1087. // *********************************************************************//
  1088. // Declaration of CoClasses defined in Type Library                       
  1089. // (NOTE: Here we map each CoClass to its Default Interface)              
  1090. // *********************************************************************//
  1091.   DoCmd = IDoCmd;
  1092.   AccessField = _AccessField;
  1093.   AccessHyperlink = _Hyperlink;
  1094.   AccessControl = _Control;
  1095.   _ControlInReportEvents = _Control;
  1096.   AccessLabel = _Label;
  1097.   _ChildLabel = _Label;
  1098.   AccessRectangle = _Rectangle;
  1099.   AccessLine = _Line;
  1100.   AccessImage = _Image;
  1101.   AccessCommandButton = _CommandButton;
  1102.   AccessOptionButton = _OptionButton;
  1103.   _OptionButtonInOption = _OptionButton;
  1104.   AccessCheckBox = _Checkbox;
  1105.   _CheckBoxInOption = _Checkbox;
  1106.   AccessOptionGroup = _OptionGroup;
  1107.   AccessBoundObjectFrame = _BoundObjectFrame;
  1108.   AccessTextBox = _Textbox;
  1109.   AccessListBox = _ListBox;
  1110.   AccessComboBox = _Combobox;
  1111.   AccessObjectFrame = _ObjectFrame;
  1112.   AccessPageBreak = _PageBreak;
  1113.   AccessToggleButton = _ToggleButton;
  1114.   _ToggleButtonInOption = _ToggleButton;
  1115.   AccessPaletteButton = _PaletteButton;
  1116.   AccessSubForm = _SubForm;
  1117.   AccessSubReport = _SubReport;
  1118.   AccessCustomControl = _CustomControl;
  1119.   _CustomControlInReport = _CustomControl;
  1120.   AccessTabControl = _TabControl;
  1121.   AccessPage = _Page;
  1122.   AccessSection = _Section;
  1123.   AccessGroupLevel = _GroupLevel;
  1124.   _SectionInReport = _Section;
  1125.   _PageHdrFtrInReport = _Section;
  1126.   AccessForm = _Form;
  1127.   AccessReport = _Report;
  1128.   Application = _Application;
  1129.   AccessReferences = _References;
  1130.   Class_ = _Dummy;
  1131.   ___CodeModule = ___IVbaModule;
  1132.   ___Editors = ___IVbaEditors;
  1133.   ___Editor = ___IVbaEditor;
  1134.   ___References = IVbaReferences;
  1135.  
  1136.  
  1137. // *********************************************************************//
  1138. // Declaration of structures, unions and aliases.                         
  1139. // *********************************************************************//
  1140.   POleVariant1 = ^OleVariant; {*}
  1141.   PPSafeArray1 = ^PSafeArray; {*}
  1142.  
  1143.  
  1144. // *********************************************************************//
  1145. // Interface: IDoCmd
  1146. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1147. // GUID:      {C547E760-9658-101B-81EE-00AA004750E2}
  1148. // *********************************************************************//
  1149.   IDoCmd = interface(IDispatch)
  1150.     ['{C547E760-9658-101B-81EE-00AA004750E2}']
  1151.     procedure AddMenu(MenuName: OleVariant; MenuMacroName: OleVariant; StatusBarText: OleVariant); safecall;
  1152.     procedure ApplyFilter(FilterName: OleVariant; WhereCondition: OleVariant); safecall;
  1153.     procedure Beep; safecall;
  1154.     procedure CancelEvent; safecall;
  1155.     procedure Close(ObjectType: AcObjectType; ObjectName: OleVariant; Save: AcCloseSave); safecall;
  1156.     procedure CopyObject(DestinationDatabase: OleVariant; NewName: OleVariant; 
  1157.                          SourceObjectType: AcObjectType; SourceObjectName: OleVariant); safecall;
  1158.     procedure DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant; 
  1159.                          Subcommand: OleVariant; Version: OleVariant); safecall;
  1160.     procedure Echo(EchoOn: OleVariant; StatusBarText: OleVariant); safecall;
  1161.     procedure FindNext; safecall;
  1162.     procedure FindRecord(FindWhat: OleVariant; Match: AcFindMatch; MatchCase: OleVariant; 
  1163.                          Search: AcSearchDirection; SearchAsFormatted: OleVariant; 
  1164.                          OnlyCurrentField: AcFindField; FindFirst: OleVariant); safecall;
  1165.     procedure GoToControl(ControlName: OleVariant); safecall;
  1166.     procedure GoToPage(PageNumber: OleVariant; Right: OleVariant; Down: OleVariant); safecall;
  1167.     procedure GoToRecord(ObjectType: AcDataObjectType; ObjectName: OleVariant; Record_: AcRecord; 
  1168.                          Offset: OleVariant); safecall;
  1169.     procedure Hourglass(HourglassOn: OleVariant); safecall;
  1170.     procedure Maximize; safecall;
  1171.     procedure Minimize; safecall;
  1172.     procedure MoveSize(Right: OleVariant; Down: OleVariant; Width: OleVariant; Height: OleVariant); safecall;
  1173.     procedure OpenForm(FormName: OleVariant; View: AcFormView; FilterName: OleVariant; 
  1174.                        WhereCondition: OleVariant; DataMode: AcFormOpenDataMode; 
  1175.                        WindowMode: AcWindowMode; OpenArgs: OleVariant); safecall;
  1176.     procedure OpenQuery(QueryName: OleVariant; View: AcView; DataMode: AcOpenDataMode); safecall;
  1177.     procedure OpenTable(TableName: OleVariant; View: AcView; DataMode: AcOpenDataMode); safecall;
  1178.     procedure PrintOut(PrintRange: AcPrintRange; PageFrom: OleVariant; PageTo: OleVariant; 
  1179.                        PrintQuality: AcPrintQuality; Copies: OleVariant; CollateCopies: OleVariant); safecall;
  1180.     procedure Quit(Options: AcQuitOption); safecall;
  1181.     procedure Requery(ControlName: OleVariant); safecall;
  1182.     procedure RepaintObject(ObjectType: AcObjectType; ObjectName: OleVariant); safecall;
  1183.     procedure Rename(NewName: OleVariant; ObjectType: AcObjectType; OldName: OleVariant); safecall;
  1184.     procedure Restore; safecall;
  1185.     procedure RunMacro(MacroName: OleVariant; RepeatCount: OleVariant; RepeatExpression: OleVariant); safecall;
  1186.     procedure RunSQL(SQLStatement: OleVariant; UseTransaction: OleVariant); safecall;
  1187.     procedure SelectObject(ObjectType: AcObjectType; ObjectName: OleVariant; 
  1188.                            InDatabaseWindow: OleVariant); safecall;
  1189.     procedure SetWarnings(WarningsOn: OleVariant); safecall;
  1190.     procedure ShowAllRecords; safecall;
  1191.     procedure OpenReport(ReportName: OleVariant; View: AcView; FilterName: OleVariant; 
  1192.                          WhereCondition: OleVariant); safecall;
  1193.     procedure TransferDatabase(TransferType: AcDataTransferType; DatabaseType: OleVariant; 
  1194.                                DatabaseName: OleVariant; ObjectType: AcObjectType; 
  1195.                                Source: OleVariant; Destination: OleVariant; 
  1196.                                StructureOnly: OleVariant; StoreLogin: OleVariant); safecall;
  1197.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  1198.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  1199.                                   FileName: OleVariant; HasFieldNames: OleVariant; 
  1200.                                   Range: OleVariant; UseOA: OleVariant); safecall;
  1201.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  1202.                            TableName: OleVariant; FileName: OleVariant; HasFieldNames: OleVariant; 
  1203.                            HTMLTableName: OleVariant); safecall;
  1204.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  1205.                        OutputFormat: OleVariant; OutputFile: OleVariant; AutoStart: OleVariant; 
  1206.                        TemplateFile: OleVariant); safecall;
  1207.     procedure DeleteObject(ObjectType: AcObjectType; ObjectName: OleVariant); safecall;
  1208.     procedure OpenModule(ModuleName: OleVariant; ProcedureName: OleVariant); safecall;
  1209.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  1210.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  1211.                          Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant; 
  1212.                          EditMessage: OleVariant; TemplateFile: OleVariant); safecall;
  1213.     procedure ShowToolbar(ToolbarName: OleVariant; Show: OleVariant); safecall;
  1214.     procedure Save(ObjectType: AcObjectType; ObjectName: OleVariant); safecall;
  1215.     procedure SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant; 
  1216.                           SubcommandIndex: OleVariant; Flag: OleVariant); safecall;
  1217.     procedure RunCommand(Command: AcCommand); safecall;
  1218.   end;
  1219.  
  1220. // *********************************************************************//
  1221. // DispIntf:  IDoCmdDisp
  1222. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1223. // GUID:      {C547E760-9658-101B-81EE-00AA004750E2}
  1224. // *********************************************************************//
  1225.   IDoCmdDisp = dispinterface
  1226.     ['{C547E760-9658-101B-81EE-00AA004750E2}']
  1227.     procedure AddMenu(MenuName: OleVariant; MenuMacroName: OleVariant; StatusBarText: OleVariant); dispid 1001;
  1228.     procedure ApplyFilter(FilterName: OleVariant; WhereCondition: OleVariant); dispid 1002;
  1229.     procedure Beep; dispid 1003;
  1230.     procedure CancelEvent; dispid 1004;
  1231.     procedure Close(ObjectType: AcObjectType; ObjectName: OleVariant; Save: AcCloseSave); dispid 1005;
  1232.     procedure CopyObject(DestinationDatabase: OleVariant; NewName: OleVariant; 
  1233.                          SourceObjectType: AcObjectType; SourceObjectName: OleVariant); dispid 1006;
  1234.     procedure DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant; 
  1235.                          Subcommand: OleVariant; Version: OleVariant); dispid 1007;
  1236.     procedure Echo(EchoOn: OleVariant; StatusBarText: OleVariant); dispid 1008;
  1237.     procedure FindNext; dispid 1009;
  1238.     procedure FindRecord(FindWhat: OleVariant; Match: AcFindMatch; MatchCase: OleVariant; 
  1239.                          Search: AcSearchDirection; SearchAsFormatted: OleVariant; 
  1240.                          OnlyCurrentField: AcFindField; FindFirst: OleVariant); dispid 1010;
  1241.     procedure GoToControl(ControlName: OleVariant); dispid 1011;
  1242.     procedure GoToPage(PageNumber: OleVariant; Right: OleVariant; Down: OleVariant); dispid 1012;
  1243.     procedure GoToRecord(ObjectType: AcDataObjectType; ObjectName: OleVariant; Record_: AcRecord; 
  1244.                          Offset: OleVariant); dispid 1013;
  1245.     procedure Hourglass(HourglassOn: OleVariant); dispid 1014;
  1246.     procedure Maximize; dispid 1015;
  1247.     procedure Minimize; dispid 1016;
  1248.     procedure MoveSize(Right: OleVariant; Down: OleVariant; Width: OleVariant; Height: OleVariant); dispid 1017;
  1249.     procedure OpenForm(FormName: OleVariant; View: AcFormView; FilterName: OleVariant; 
  1250.                        WhereCondition: OleVariant; DataMode: AcFormOpenDataMode; 
  1251.                        WindowMode: AcWindowMode; OpenArgs: OleVariant); dispid 1019;
  1252.     procedure OpenQuery(QueryName: OleVariant; View: AcView; DataMode: AcOpenDataMode); dispid 1020;
  1253.     procedure OpenTable(TableName: OleVariant; View: AcView; DataMode: AcOpenDataMode); dispid 1021;
  1254.     procedure PrintOut(PrintRange: AcPrintRange; PageFrom: OleVariant; PageTo: OleVariant; 
  1255.                        PrintQuality: AcPrintQuality; Copies: OleVariant; CollateCopies: OleVariant); dispid 1022;
  1256.     procedure Quit(Options: AcQuitOption); dispid 1023;
  1257.     procedure Requery(ControlName: OleVariant); dispid 1024;
  1258.     procedure RepaintObject(ObjectType: AcObjectType; ObjectName: OleVariant); dispid 1025;
  1259.     procedure Rename(NewName: OleVariant; ObjectType: AcObjectType; OldName: OleVariant); dispid 1026;
  1260.     procedure Restore; dispid 1027;
  1261.     procedure RunMacro(MacroName: OleVariant; RepeatCount: OleVariant; RepeatExpression: OleVariant); dispid 1030;
  1262.     procedure RunSQL(SQLStatement: OleVariant; UseTransaction: OleVariant); dispid 1031;
  1263.     procedure SelectObject(ObjectType: AcObjectType; ObjectName: OleVariant; 
  1264.                            InDatabaseWindow: OleVariant); dispid 1032;
  1265.     procedure SetWarnings(WarningsOn: OleVariant); dispid 1035;
  1266.     procedure ShowAllRecords; dispid 1036;
  1267.     procedure OpenReport(ReportName: OleVariant; View: AcView; FilterName: OleVariant; 
  1268.                          WhereCondition: OleVariant); dispid 1039;
  1269.     procedure TransferDatabase(TransferType: AcDataTransferType; DatabaseType: OleVariant; 
  1270.                                DatabaseName: OleVariant; ObjectType: AcObjectType; 
  1271.                                Source: OleVariant; Destination: OleVariant; 
  1272.                                StructureOnly: OleVariant; StoreLogin: OleVariant); dispid 1040;
  1273.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  1274.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  1275.                                   FileName: OleVariant; HasFieldNames: OleVariant; 
  1276.                                   Range: OleVariant; UseOA: OleVariant); dispid 1041;
  1277.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  1278.                            TableName: OleVariant; FileName: OleVariant; HasFieldNames: OleVariant; 
  1279.                            HTMLTableName: OleVariant); dispid 1042;
  1280.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  1281.                        OutputFormat: OleVariant; OutputFile: OleVariant; AutoStart: OleVariant; 
  1282.                        TemplateFile: OleVariant); dispid 1341;
  1283.     procedure DeleteObject(ObjectType: AcObjectType; ObjectName: OleVariant); dispid 1372;
  1284.     procedure OpenModule(ModuleName: OleVariant; ProcedureName: OleVariant); dispid 1374;
  1285.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  1286.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  1287.                          Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant; 
  1288.                          EditMessage: OleVariant; TemplateFile: OleVariant); dispid 1377;
  1289.     procedure ShowToolbar(ToolbarName: OleVariant; Show: OleVariant); dispid 1394;
  1290.     procedure Save(ObjectType: AcObjectType; ObjectName: OleVariant); dispid 1453;
  1291.     procedure SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant; 
  1292.                           SubcommandIndex: OleVariant; Flag: OleVariant); dispid 1454;
  1293.     procedure RunCommand(Command: AcCommand); dispid 1602;
  1294.   end;
  1295.  
  1296. // *********************************************************************//
  1297. // Interface: __AccessProperty
  1298. // Flags:     (16) Hidden
  1299. // GUID:      {331FDD01-CF31-11CD-8701-00AA003F0F07}
  1300. // *********************************************************************//
  1301.   __AccessProperty = interface(IUnknown)
  1302.     ['{331FDD01-CF31-11CD-8701-00AA003F0F07}']
  1303.     function  Get_Value(out pRet: OleVariant): HResult; stdcall;
  1304.     function  Set_Value(pRet: OleVariant): HResult; stdcall;
  1305.     function  Get_Name(out pRet: OleVariant): HResult; stdcall;
  1306.   end;
  1307.  
  1308. // *********************************************************************//
  1309. // Interface: _AccessProperty
  1310. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1311. // GUID:      {331FDD00-CF31-11CD-8701-00AA003F0F07}
  1312. // *********************************************************************//
  1313.   _AccessProperty = interface(Property_)
  1314.     ['{331FDD00-CF31-11CD-8701-00AA003F0F07}']
  1315.     function  Get_Application: Application; safecall;
  1316.     function  Get_Parent: IDispatch; safecall;
  1317.     function  Get_Category: Smallint; safecall;
  1318.     property Application: Application read Get_Application;
  1319.     property Parent: IDispatch read Get_Parent;
  1320.     property Category: Smallint read Get_Category;
  1321.   end;
  1322.  
  1323. // *********************************************************************//
  1324. // DispIntf:  _AccessPropertyDisp
  1325. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1326. // GUID:      {331FDD00-CF31-11CD-8701-00AA003F0F07}
  1327. // *********************************************************************//
  1328.   _AccessPropertyDisp = dispinterface
  1329.     ['{331FDD00-CF31-11CD-8701-00AA003F0F07}']
  1330.     property Application: Application readonly dispid 2005;
  1331.     property Parent: IDispatch readonly dispid 2087;
  1332.     property Category: Smallint readonly dispid 2096;
  1333.     property Value: OleVariant dispid 0;
  1334.     property Name: WideString dispid 1610809346;
  1335.     property Type_: Smallint dispid 1610809348;
  1336.     property Inherited_: WordBool readonly dispid 1610809350;
  1337.     property Properties: Properties readonly dispid 10;
  1338.   end;
  1339.  
  1340. // *********************************************************************//
  1341. // Interface: Properties
  1342. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1343. // GUID:      {331FDD02-CF31-11CD-8701-00AA003F0F07}
  1344. // *********************************************************************//
  1345.   Properties = interface(IDispatch)
  1346.     ['{331FDD02-CF31-11CD-8701-00AA003F0F07}']
  1347.     function  Get_Application: Application; safecall;
  1348.     function  Get_Parent: IDispatch; safecall;
  1349.     function  Get_Item(Index: OleVariant): IDispatch; safecall;
  1350.     function  Get_Count: Integer; safecall;
  1351.     function  _NewEnum: IUnknown; safecall;
  1352.     property Application: Application read Get_Application;
  1353.     property Parent: IDispatch read Get_Parent;
  1354.     property Item[Index: OleVariant]: IDispatch read Get_Item; default;
  1355.     property Count: Integer read Get_Count;
  1356.   end;
  1357.  
  1358. // *********************************************************************//
  1359. // DispIntf:  PropertiesDisp
  1360. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1361. // GUID:      {331FDD02-CF31-11CD-8701-00AA003F0F07}
  1362. // *********************************************************************//
  1363.   PropertiesDisp = dispinterface
  1364.     ['{331FDD02-CF31-11CD-8701-00AA003F0F07}']
  1365.     property Application: Application readonly dispid 2005;
  1366.     property Parent: IDispatch readonly dispid 2087;
  1367.     property Item[Index: OleVariant]: IDispatch readonly dispid 0; default;
  1368.     property Count: Integer readonly dispid 2001;
  1369.     function  _NewEnum: IUnknown; dispid -4;
  1370.   end;
  1371.  
  1372. // *********************************************************************//
  1373. // Interface: _ItemsSelected
  1374. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1375. // GUID:      {31B09710-EADC-11CD-B9F7-00AA004753B5}
  1376. // *********************************************************************//
  1377.   _ItemsSelected = interface(IDispatch)
  1378.     ['{31B09710-EADC-11CD-B9F7-00AA004753B5}']
  1379.     function  Get_Item(Index: OleVariant): Integer; safecall;
  1380.     function  Get_Count: Integer; safecall;
  1381.     function  _NewEnum: IUnknown; safecall;
  1382.     property Item[Index: OleVariant]: Integer read Get_Item; default;
  1383.     property Count: Integer read Get_Count;
  1384.   end;
  1385.  
  1386. // *********************************************************************//
  1387. // DispIntf:  _ItemsSelectedDisp
  1388. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1389. // GUID:      {31B09710-EADC-11CD-B9F7-00AA004753B5}
  1390. // *********************************************************************//
  1391.   _ItemsSelectedDisp = dispinterface
  1392.     ['{31B09710-EADC-11CD-B9F7-00AA004753B5}']
  1393.     property Item[Index: OleVariant]: Integer readonly dispid 0; default;
  1394.     property Count: Integer readonly dispid 2001;
  1395.     function  _NewEnum: IUnknown; dispid -4;
  1396.   end;
  1397.  
  1398. // *********************************************************************//
  1399. // Interface: Children
  1400. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1401. // GUID:      {3B06E977-E47C-11CD-8701-00AA003F0F07}
  1402. // *********************************************************************//
  1403.   Children = interface(IDispatch)
  1404.     ['{3B06E977-E47C-11CD-8701-00AA003F0F07}']
  1405.     function  Get_Item(Index: OleVariant): IDispatch; safecall;
  1406.     function  Get_Count: Integer; safecall;
  1407.     function  _NewEnum: IUnknown; safecall;
  1408.     property Item[Index: OleVariant]: IDispatch read Get_Item; default;
  1409.     property Count: Integer read Get_Count;
  1410.   end;
  1411.  
  1412. // *********************************************************************//
  1413. // DispIntf:  ChildrenDisp
  1414. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1415. // GUID:      {3B06E977-E47C-11CD-8701-00AA003F0F07}
  1416. // *********************************************************************//
  1417.   ChildrenDisp = dispinterface
  1418.     ['{3B06E977-E47C-11CD-8701-00AA003F0F07}']
  1419.     property Item[Index: OleVariant]: IDispatch readonly dispid 0; default;
  1420.     property Count: Integer readonly dispid 2001;
  1421.     function  _NewEnum: IUnknown; dispid -4;
  1422.   end;
  1423.  
  1424. // *********************************************************************//
  1425. // Interface: _AccessField
  1426. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1427. // GUID:      {B1C1EAC1-486F-11CE-A65D-00AA003F0F07}
  1428. // *********************************************************************//
  1429.   _AccessField = interface(IDispatch)
  1430.     ['{B1C1EAC1-486F-11CE-A65D-00AA003F0F07}']
  1431.     function  Get_Value: OleVariant; safecall;
  1432.     procedure Set_Value(pRet: OleVariant); safecall;
  1433.     property Value: OleVariant read Get_Value write Set_Value;
  1434.   end;
  1435.  
  1436. // *********************************************************************//
  1437. // DispIntf:  _AccessFieldDisp
  1438. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1439. // GUID:      {B1C1EAC1-486F-11CE-A65D-00AA003F0F07}
  1440. // *********************************************************************//
  1441.   _AccessFieldDisp = dispinterface
  1442.     ['{B1C1EAC1-486F-11CE-A65D-00AA003F0F07}']
  1443.     property Value: OleVariant dispid 0;
  1444.   end;
  1445.  
  1446. // *********************************************************************//
  1447. // Interface: __Help
  1448. // Flags:     (16) Hidden
  1449. // GUID:      {9CD4A761-A6A9-11CE-A686-00AA003F0F07}
  1450. // *********************************************************************//
  1451.   __Help = interface(IUnknown)
  1452.     ['{9CD4A761-A6A9-11CE-A686-00AA003F0F07}']
  1453.     function  Get_FieldName(out pRet: OleVariant): HResult; stdcall;
  1454.     function  Set_FieldName(pRet: OleVariant): HResult; stdcall;
  1455.     function  Get_DataType(out pRet: OleVariant): HResult; stdcall;
  1456.     function  Set_DataType(pRet: OleVariant): HResult; stdcall;
  1457.     function  Get_Description(out pRet: OleVariant): HResult; stdcall;
  1458.     function  Set_Description(pRet: OleVariant): HResult; stdcall;
  1459.     function  Get_FieldSize(out pRet: OleVariant): HResult; stdcall;
  1460.     function  Set_FieldSize(pRet: OleVariant): HResult; stdcall;
  1461.     function  Get_NewValues(out pRet: OleVariant): HResult; stdcall;
  1462.     function  Set_NewValues(pRet: OleVariant): HResult; stdcall;
  1463.     function  Get_Required(out pRet: OleVariant): HResult; stdcall;
  1464.     function  Set_Required(pRet: OleVariant): HResult; stdcall;
  1465.     function  Get_AllowZeroLength(out pRet: OleVariant): HResult; stdcall;
  1466.     function  Set_AllowZeroLength(pRet: OleVariant): HResult; stdcall;
  1467.     function  Get_Indexed(out pRet: OleVariant): HResult; stdcall;
  1468.     function  Set_Indexed(pRet: OleVariant): HResult; stdcall;
  1469.     function  Get_DisplayControl(out pRet: OleVariant): HResult; stdcall;
  1470.     function  Set_DisplayControl(pRet: OleVariant): HResult; stdcall;
  1471.     function  Get_ReplicationConflictFunction(out pRet: OleVariant): HResult; stdcall;
  1472.     function  Set_ReplicationConflictFunction(var pRet: OleVariant): HResult; stdcall;
  1473.     function  Get_ProjectName(out pRet: OleVariant): HResult; stdcall;
  1474.     function  Set_ProjectName(var pRet: OleVariant): HResult; stdcall;
  1475.     function  Get_MDE(out pRet: OleVariant): HResult; stdcall;
  1476.     function  Set_MDE(var pRet: OleVariant): HResult; stdcall;
  1477.     function  Get_AllowBreakIntoCode(out pRet: OleVariant): HResult; stdcall;
  1478.     function  Set_AllowBreakIntoCode(pRet: OleVariant): HResult; stdcall;
  1479.     function  Get_AllowBuiltInToolbars(out pRet: OleVariant): HResult; stdcall;
  1480.     function  Set_AllowBuiltInToolbars(pRet: OleVariant): HResult; stdcall;
  1481.     function  Get_AllowBypassKey(out pRet: OleVariant): HResult; stdcall;
  1482.     function  Set_AllowBypassKey(pRet: OleVariant): HResult; stdcall;
  1483.     function  Get_AllowFullMenus(out pRet: OleVariant): HResult; stdcall;
  1484.     function  Set_AllowFullMenus(pRet: OleVariant): HResult; stdcall;
  1485.     function  Get_AllowSpecialKeys(out pRet: OleVariant): HResult; stdcall;
  1486.     function  Set_AllowSpecialKeys(pRet: OleVariant): HResult; stdcall;
  1487.     function  Get_AllowToolbarChanges(out pRet: OleVariant): HResult; stdcall;
  1488.     function  Set_AllowToolbarChanges(pRet: OleVariant): HResult; stdcall;
  1489.     function  Get_StartUpForm(out pRet: OleVariant): HResult; stdcall;
  1490.     function  Set_StartUpForm(pRet: OleVariant): HResult; stdcall;
  1491.     function  Get_StartUpMenuBar(out pRet: OleVariant): HResult; stdcall;
  1492.     function  Set_StartUpMenuBar(pRet: OleVariant): HResult; stdcall;
  1493.     function  Get_StartUpShortcutMenuBar(out pRet: OleVariant): HResult; stdcall;
  1494.     function  Set_StartUpShortcutMenuBar(pRet: OleVariant): HResult; stdcall;
  1495.     function  Get_StartUpShowDBWindow(out pRet: OleVariant): HResult; stdcall;
  1496.     function  Set_StartUpShowDBWindow(pRet: OleVariant): HResult; stdcall;
  1497.     function  Get_StartUpShowStatusBar(out pRet: OleVariant): HResult; stdcall;
  1498.     function  Set_StartUpShowStatusBar(pRet: OleVariant): HResult; stdcall;
  1499.     function  Get_AppIcon(out pRet: OleVariant): HResult; stdcall;
  1500.     function  Set_AppIcon(pRet: OleVariant): HResult; stdcall;
  1501.     function  Get_AppTitle(out pRet: OleVariant): HResult; stdcall;
  1502.     function  Set_AppTitle(pRet: OleVariant): HResult; stdcall;
  1503.     function  Get_ODBCConnectStr(out pRet: OleVariant): HResult; stdcall;
  1504.     function  Set_ODBCConnectStr(pRet: OleVariant): HResult; stdcall;
  1505.     function  Get_LogMessages(out pRet: OleVariant): HResult; stdcall;
  1506.     function  Set_LogMessages(var pRet: OleVariant): HResult; stdcall;
  1507.   end;
  1508.  
  1509. // *********************************************************************//
  1510. // Interface: _Hyperlink
  1511. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1512. // GUID:      {50D56611-60AC-11CF-82C9-00AA004B9FE6}
  1513. // *********************************************************************//
  1514.   _Hyperlink = interface(IDispatch)
  1515.     ['{50D56611-60AC-11CF-82C9-00AA004B9FE6}']
  1516.     function  Get_SubAddress: WideString; safecall;
  1517.     procedure Set_SubAddress(pbstrResult: OleVariant); safecall;
  1518.     function  Get_Address: WideString; safecall;
  1519.     procedure Set_Address(pbstrResult: OleVariant); safecall;
  1520.     procedure AddToFavorites; safecall;
  1521.     procedure Follow(NewWindow: WordBool; AddHistory: WordBool; ExtraInfo: OleVariant; 
  1522.                      Method: MsoExtraInfoMethod; const HeaderInfo: WideString); safecall;
  1523.   end;
  1524.  
  1525. // *********************************************************************//
  1526. // DispIntf:  _HyperlinkDisp
  1527. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1528. // GUID:      {50D56611-60AC-11CF-82C9-00AA004B9FE6}
  1529. // *********************************************************************//
  1530.   _HyperlinkDisp = dispinterface
  1531.     ['{50D56611-60AC-11CF-82C9-00AA004B9FE6}']
  1532.     function  SubAddress: WideString; dispid 2182;
  1533.     function  Address: WideString; dispid 2183;
  1534.     procedure AddToFavorites; dispid 2184;
  1535.     procedure Follow(NewWindow: WordBool; AddHistory: WordBool; ExtraInfo: OleVariant; 
  1536.                      Method: MsoExtraInfoMethod; const HeaderInfo: WideString); dispid 2185;
  1537.   end;
  1538.  
  1539. // *********************************************************************//
  1540. // Interface: _Page
  1541. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1542. // GUID:      {3B06E974-E47C-11CD-8701-00AA003F0F07}
  1543. // *********************************************************************//
  1544.   _Page = interface(IDispatch)
  1545.     ['{3B06E974-E47C-11CD-8701-00AA003F0F07}']
  1546.     function  Get_Application: Application; safecall;
  1547.     function  Get_Parent: IDispatch; safecall;
  1548.     function  Get_Properties: Properties; safecall;
  1549.     procedure SizeToFit; safecall;
  1550.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  1551.     procedure Requery; safecall;
  1552.     procedure Goto_; safecall;
  1553.     procedure SetFocus; safecall;
  1554.     function  Get_Controls: Children; safecall;
  1555.     function  Get_EventProcPrefix: WideString; safecall;
  1556.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  1557.     function  Get_Name: WideString; safecall;
  1558.     procedure Set_Name(const pRet: WideString); safecall;
  1559.     function  Get_ControlType: Byte; safecall;
  1560.     procedure Set_ControlType(pRet: Byte); safecall;
  1561.     function  Get_Caption: WideString; safecall;
  1562.     procedure Set_Caption(const pRet: WideString); safecall;
  1563.     function  Get_Picture: WideString; safecall;
  1564.     procedure Set_Picture(const pRet: WideString); safecall;
  1565.     function  Get_PictureType: Byte; safecall;
  1566.     procedure Set_PictureType(pRet: Byte); safecall;
  1567.     function  Get_PageIndex: Smallint; safecall;
  1568.     procedure Set_PageIndex(pRet: Smallint); safecall;
  1569.     function  Get_StatusBarText: WideString; safecall;
  1570.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  1571.     function  Get_Visible: WordBool; safecall;
  1572.     procedure Set_Visible(pRet: WordBool); safecall;
  1573.     function  Get_Enabled: WordBool; safecall;
  1574.     procedure Set_Enabled(pRet: WordBool); safecall;
  1575.     function  Get_Left: Smallint; safecall;
  1576.     procedure Set_Left(pRet: Smallint); safecall;
  1577.     function  Get_Top: Smallint; safecall;
  1578.     procedure Set_Top(pRet: Smallint); safecall;
  1579.     function  Get_Width: Smallint; safecall;
  1580.     procedure Set_Width(pRet: Smallint); safecall;
  1581.     function  Get_Height: Smallint; safecall;
  1582.     procedure Set_Height(pRet: Smallint); safecall;
  1583.     function  Get_ShortcutMenuBar: WideString; safecall;
  1584.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  1585.     function  Get_ControlTipText: WideString; safecall;
  1586.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  1587.     function  Get_HelpContextId: Integer; safecall;
  1588.     procedure Set_HelpContextId(pRet: Integer); safecall;
  1589.     function  Get_Section: Smallint; safecall;
  1590.     procedure Set_Section(pRet: Smallint); safecall;
  1591.     function  Get_ControlName: WideString; safecall;
  1592.     procedure Set_ControlName(const pRet: WideString); safecall;
  1593.     function  Get_Tag: WideString; safecall;
  1594.     procedure Set_Tag(const pRet: WideString); safecall;
  1595.     function  Get_IsVisible: WordBool; safecall;
  1596.     procedure Set_IsVisible(pRet: WordBool); safecall;
  1597.     function  Get_InSelection: WordBool; safecall;
  1598.     procedure Set_InSelection(pRet: WordBool); safecall;
  1599.     function  Get_OnClick: WideString; safecall;
  1600.     procedure Set_OnClick(const pRet: WideString); safecall;
  1601.     function  Get_OnDblClick: WideString; safecall;
  1602.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  1603.     function  Get_OnMouseDown: WideString; safecall;
  1604.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  1605.     function  Get_OnMouseMove: WideString; safecall;
  1606.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  1607.     function  Get_OnMouseUp: WideString; safecall;
  1608.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  1609.     function  Get_PictureData: OleVariant; safecall;
  1610.     procedure Set_PictureData(pRet: OleVariant); safecall;
  1611.     property Application: Application read Get_Application;
  1612.     property Parent: IDispatch read Get_Parent;
  1613.     property Properties: Properties read Get_Properties;
  1614.     property Controls: Children read Get_Controls;
  1615.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  1616.     property Name: WideString read Get_Name write Set_Name;
  1617.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  1618.     property Caption: WideString read Get_Caption write Set_Caption;
  1619.     property Picture: WideString read Get_Picture write Set_Picture;
  1620.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  1621.     property PageIndex: Smallint read Get_PageIndex write Set_PageIndex;
  1622.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  1623.     property Visible: WordBool read Get_Visible write Set_Visible;
  1624.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1625.     property Left: Smallint read Get_Left write Set_Left;
  1626.     property Top: Smallint read Get_Top write Set_Top;
  1627.     property Width: Smallint read Get_Width write Set_Width;
  1628.     property Height: Smallint read Get_Height write Set_Height;
  1629.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  1630.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  1631.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  1632.     property Section: Smallint read Get_Section write Set_Section;
  1633.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  1634.     property Tag: WideString read Get_Tag write Set_Tag;
  1635.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  1636.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  1637.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  1638.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  1639.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  1640.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  1641.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  1642.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  1643.   end;
  1644.  
  1645. // *********************************************************************//
  1646. // DispIntf:  _PageDisp
  1647. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1648. // GUID:      {3B06E974-E47C-11CD-8701-00AA003F0F07}
  1649. // *********************************************************************//
  1650.   _PageDisp = dispinterface
  1651.     ['{3B06E974-E47C-11CD-8701-00AA003F0F07}']
  1652.     property Application: Application readonly dispid 2005;
  1653.     property Parent: IDispatch readonly dispid 2087;
  1654.     property Properties: Properties readonly dispid 2091;
  1655.     procedure SizeToFit; dispid 2151;
  1656.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  1657.     procedure Requery; dispid 2018;
  1658.     procedure Goto_; dispid 2023;
  1659.     procedure SetFocus; dispid 2022;
  1660.     property Controls: Children readonly dispid 2190;
  1661.     property EventProcPrefix: WideString dispid 22;
  1662.     property Name: WideString dispid 20;
  1663.     property ControlType: Byte dispid 21;
  1664.     property Caption: WideString dispid 17;
  1665.     property Picture: WideString dispid 7;
  1666.     property PictureType: Byte dispid 384;
  1667.     property PageIndex: Smallint dispid 395;
  1668.     property StatusBarText: WideString dispid 132;
  1669.     property Visible: WordBool dispid 145;
  1670.     property Enabled: WordBool dispid 25;
  1671.     property Left: Smallint dispid 54;
  1672.     property Top: Smallint dispid 138;
  1673.     property Width: Smallint dispid 147;
  1674.     property Height: Smallint dispid 44;
  1675.     property ShortcutMenuBar: WideString dispid 336;
  1676.     property ControlTipText: WideString dispid 362;
  1677.     property HelpContextId: Integer dispid 218;
  1678.     property Section: Smallint dispid 238;
  1679.     property ControlName: WideString dispid 296;
  1680.     property Tag: WideString dispid 297;
  1681.     property IsVisible: WordBool dispid 137;
  1682.     property InSelection: WordBool dispid 312;
  1683.     property OnClick: WideString dispid 123;
  1684.     property OnDblClick: WideString dispid 223;
  1685.     property OnMouseDown: WideString dispid 104;
  1686.     property OnMouseMove: WideString dispid 106;
  1687.     property OnMouseUp: WideString dispid 105;
  1688.     property PictureData: OleVariant dispid 187;
  1689.   end;
  1690.  
  1691. // *********************************************************************//
  1692. // Interface: Pages
  1693. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1694. // GUID:      {3B06E978-E47C-11CD-8701-00AA003F0F07}
  1695. // *********************************************************************//
  1696.   Pages = interface(IDispatch)
  1697.     ['{3B06E978-E47C-11CD-8701-00AA003F0F07}']
  1698.     function  Get_Item(Index: OleVariant): AccessPage; safecall;
  1699.     function  Get_Count: Integer; safecall;
  1700.     function  _NewEnum: IUnknown; safecall;
  1701.     function  Add(Before: OleVariant): AccessPage; safecall;
  1702.     procedure Remove(Item: OleVariant); safecall;
  1703.     property Item[Index: OleVariant]: AccessPage read Get_Item; default;
  1704.     property Count: Integer read Get_Count;
  1705.   end;
  1706.  
  1707. // *********************************************************************//
  1708. // DispIntf:  PagesDisp
  1709. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1710. // GUID:      {3B06E978-E47C-11CD-8701-00AA003F0F07}
  1711. // *********************************************************************//
  1712.   PagesDisp = dispinterface
  1713.     ['{3B06E978-E47C-11CD-8701-00AA003F0F07}']
  1714.     property Item[Index: OleVariant]: AccessPage readonly dispid 0; default;
  1715.     property Count: Integer readonly dispid 2001;
  1716.     function  _NewEnum: IUnknown; dispid -4;
  1717.     function  Add(Before: OleVariant): AccessPage; dispid 2191;
  1718.     procedure Remove(Item: OleVariant); dispid 2192;
  1719.   end;
  1720.  
  1721. // *********************************************************************//
  1722. // Interface: _Control
  1723. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1724. // GUID:      {26B96540-8F8E-101B-AF4E-00AA003F0F07}
  1725. // *********************************************************************//
  1726.   _Control = interface(IDispatch)
  1727.     ['{26B96540-8F8E-101B-AF4E-00AA003F0F07}']
  1728.     function  Get_Application: Application; safecall;
  1729.     function  Get_Parent: IDispatch; safecall;
  1730.     procedure Undo; safecall;
  1731.     procedure Dropdown; safecall;
  1732.     function  Get_Column(Index: Integer; Row: OleVariant): OleVariant; safecall;
  1733.     function  Get_Selected(lRow: Integer): Integer; safecall;
  1734.     procedure Set_Selected(lRow: Integer; pRet: Integer); safecall;
  1735.     function  Get_OldValue: OleVariant; safecall;
  1736.     function  Get_Form: AccessForm; safecall;
  1737.     function  Get_Report: AccessReport; safecall;
  1738.     function  Get_ItemData(Index: Integer): OleVariant; safecall;
  1739.     function  Get_Object_: IDispatch; safecall;
  1740.     function  Get_ObjectVerbs(Index: Integer): WideString; safecall;
  1741.     function  Get_Properties: Properties; safecall;
  1742.     procedure Requery; safecall;
  1743.     procedure SizeToFit; safecall;
  1744.     procedure Goto_; safecall;
  1745.     function  Get_ItemsSelected: _ItemsSelected; safecall;
  1746.     procedure SetFocus; safecall;
  1747.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  1748.     function  Get_Pages: Pages; safecall;
  1749.     function  Get_Controls: Children; safecall;
  1750.     function  Get_Hyperlink: _Hyperlink; safecall;
  1751.     property Application: Application read Get_Application;
  1752.     property Parent: IDispatch read Get_Parent;
  1753.     property Column[Index: Integer; Row: OleVariant]: OleVariant read Get_Column;
  1754.     property Selected[lRow: Integer]: Integer read Get_Selected write Set_Selected;
  1755.     property OldValue: OleVariant read Get_OldValue;
  1756.     property Form: AccessForm read Get_Form;
  1757.     property Report: AccessReport read Get_Report;
  1758.     property ItemData[Index: Integer]: OleVariant read Get_ItemData;
  1759.     property Object_: IDispatch read Get_Object_;
  1760.     property ObjectVerbs[Index: Integer]: WideString read Get_ObjectVerbs;
  1761.     property Properties: Properties read Get_Properties;
  1762.     property ItemsSelected: _ItemsSelected read Get_ItemsSelected;
  1763.     property Pages: Pages read Get_Pages;
  1764.     property Controls: Children read Get_Controls;
  1765.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  1766.   end;
  1767.  
  1768. // *********************************************************************//
  1769. // DispIntf:  _ControlDisp
  1770. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1771. // GUID:      {26B96540-8F8E-101B-AF4E-00AA003F0F07}
  1772. // *********************************************************************//
  1773.   _ControlDisp = dispinterface
  1774.     ['{26B96540-8F8E-101B-AF4E-00AA003F0F07}']
  1775.     property Application: Application readonly dispid 2005;
  1776.     property Parent: IDispatch readonly dispid 2087;
  1777.     procedure Undo; dispid 2144;
  1778.     procedure Dropdown; dispid 2143;
  1779.     property Column[Index: Integer; Row: OleVariant]: OleVariant readonly dispid 2101;
  1780.     property Selected[lRow: Integer]: Integer dispid 2113;
  1781.     property OldValue: OleVariant readonly dispid 2102;
  1782.     property Form: AccessForm readonly dispid 2089;
  1783.     property Report: AccessReport readonly dispid 2097;
  1784.     property ItemData[Index: Integer]: OleVariant readonly dispid 2103;
  1785.     property Object_: IDispatch readonly dispid 2104;
  1786.     property ObjectVerbs[Index: Integer]: WideString readonly dispid 2105;
  1787.     property Properties: Properties readonly dispid 2091;
  1788.     procedure Requery; dispid 2018;
  1789.     procedure SizeToFit; dispid 2151;
  1790.     procedure Goto_; dispid 2023;
  1791.     property ItemsSelected: _ItemsSelected readonly dispid 2137;
  1792.     procedure SetFocus; dispid 2022;
  1793.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  1794.     property Pages: Pages readonly dispid 2180;
  1795.     property Controls: Children readonly dispid 2190;
  1796.     property Hyperlink: _Hyperlink readonly dispid 2181;
  1797.   end;
  1798.  
  1799. // *********************************************************************//
  1800. // Interface: __ControlInReportEvents
  1801. // Flags:     (16) Hidden
  1802. // GUID:      {90B322A5-F1D9-11CD-8701-00AA003F0F07}
  1803. // *********************************************************************//
  1804.   __ControlInReportEvents = interface(IUnknown)
  1805.     ['{90B322A5-F1D9-11CD-8701-00AA003F0F07}']
  1806.   end;
  1807.  
  1808. // *********************************************************************//
  1809. // Interface: Controls
  1810. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1811. // GUID:      {5970C574-EB8C-11CD-8701-00AA003F0F07}
  1812. // *********************************************************************//
  1813.   Controls = interface(IDispatch)
  1814.     ['{5970C574-EB8C-11CD-8701-00AA003F0F07}']
  1815.     function  Get_Application: Application; safecall;
  1816.     function  Get_Parent: IDispatch; safecall;
  1817.     function  Get_Item(Index: OleVariant): IDispatch; safecall;
  1818.     function  Get_Count: Integer; safecall;
  1819.     function  _NewEnum: IUnknown; safecall;
  1820.     property Application: Application read Get_Application;
  1821.     property Parent: IDispatch read Get_Parent;
  1822.     property Item[Index: OleVariant]: IDispatch read Get_Item; default;
  1823.     property Count: Integer read Get_Count;
  1824.   end;
  1825.  
  1826. // *********************************************************************//
  1827. // DispIntf:  ControlsDisp
  1828. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1829. // GUID:      {5970C574-EB8C-11CD-8701-00AA003F0F07}
  1830. // *********************************************************************//
  1831.   ControlsDisp = dispinterface
  1832.     ['{5970C574-EB8C-11CD-8701-00AA003F0F07}']
  1833.     property Application: Application readonly dispid 2005;
  1834.     property Parent: IDispatch readonly dispid 2087;
  1835.     property Item[Index: OleVariant]: IDispatch readonly dispid 0; default;
  1836.     property Count: Integer readonly dispid 2001;
  1837.     function  _NewEnum: IUnknown; dispid -4;
  1838.   end;
  1839.  
  1840. // *********************************************************************//
  1841. // Interface: _Label
  1842. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1843. // GUID:      {3B06E948-E47C-11CD-8701-00AA003F0F07}
  1844. // *********************************************************************//
  1845.   _Label = interface(IDispatch)
  1846.     ['{3B06E948-E47C-11CD-8701-00AA003F0F07}']
  1847.     function  Get_Application: Application; safecall;
  1848.     function  Get_Parent: IDispatch; safecall;
  1849.     function  Get_Properties: Properties; safecall;
  1850.     procedure SizeToFit; safecall;
  1851.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  1852.     function  Get_Hyperlink: _Hyperlink; safecall;
  1853.     function  Get_EventProcPrefix: WideString; safecall;
  1854.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  1855.     function  Get_Name: WideString; safecall;
  1856.     procedure Set_Name(const pRet: WideString); safecall;
  1857.     function  Get_ControlType: Byte; safecall;
  1858.     procedure Set_ControlType(pRet: Byte); safecall;
  1859.     function  Get_Caption: WideString; safecall;
  1860.     procedure Set_Caption(const pRet: WideString); safecall;
  1861.     function  Get_HyperlinkAddress: WideString; safecall;
  1862.     procedure Set_HyperlinkAddress(const pRet: WideString); safecall;
  1863.     function  Get_HyperlinkSubAddress: WideString; safecall;
  1864.     procedure Set_HyperlinkSubAddress(const pRet: WideString); safecall;
  1865.     function  Get_Visible: WordBool; safecall;
  1866.     procedure Set_Visible(pRet: WordBool); safecall;
  1867.     function  Get_DisplayWhen: Byte; safecall;
  1868.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  1869.     function  Get_Left: Smallint; safecall;
  1870.     procedure Set_Left(pRet: Smallint); safecall;
  1871.     function  Get_Top: Smallint; safecall;
  1872.     procedure Set_Top(pRet: Smallint); safecall;
  1873.     function  Get_Width: Smallint; safecall;
  1874.     procedure Set_Width(pRet: Smallint); safecall;
  1875.     function  Get_Height: Smallint; safecall;
  1876.     procedure Set_Height(pRet: Smallint); safecall;
  1877.     function  Get_BackStyle: Byte; safecall;
  1878.     procedure Set_BackStyle(pRet: Byte); safecall;
  1879.     function  Get_BackColor: Integer; safecall;
  1880.     procedure Set_BackColor(pRet: Integer); safecall;
  1881.     function  Get_SpecialEffect: Byte; safecall;
  1882.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  1883.     function  Get_BorderStyle: Byte; safecall;
  1884.     procedure Set_BorderStyle(pRet: Byte); safecall;
  1885.     function  Get_OldBorderStyle: Byte; safecall;
  1886.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  1887.     function  Get_BorderColor: Integer; safecall;
  1888.     procedure Set_BorderColor(pRet: Integer); safecall;
  1889.     function  Get_BorderWidth: Byte; safecall;
  1890.     procedure Set_BorderWidth(pRet: Byte); safecall;
  1891.     function  Get_BorderLineStyle: Byte; safecall;
  1892.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  1893.     function  Get_ForeColor: Integer; safecall;
  1894.     procedure Set_ForeColor(pRet: Integer); safecall;
  1895.     function  Get_FontName: WideString; safecall;
  1896.     procedure Set_FontName(const pRet: WideString); safecall;
  1897.     function  Get_FontSize: Smallint; safecall;
  1898.     procedure Set_FontSize(pRet: Smallint); safecall;
  1899.     function  Get_FontWeight: Smallint; safecall;
  1900.     procedure Set_FontWeight(pRet: Smallint); safecall;
  1901.     function  Get_FontItalic: WordBool; safecall;
  1902.     procedure Set_FontItalic(pRet: WordBool); safecall;
  1903.     function  Get_FontUnderline: WordBool; safecall;
  1904.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  1905.     function  Get_TextFontCharSet: Byte; safecall;
  1906.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  1907.     function  Get_TextAlign: Byte; safecall;
  1908.     procedure Set_TextAlign(pRet: Byte); safecall;
  1909.     function  Get_FontBold: Smallint; safecall;
  1910.     procedure Set_FontBold(pRet: Smallint); safecall;
  1911.     function  Get_ControlTipText: WideString; safecall;
  1912.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  1913.     function  Get_HelpContextId: Integer; safecall;
  1914.     procedure Set_HelpContextId(pRet: Integer); safecall;
  1915.     function  Get_Section: Smallint; safecall;
  1916.     procedure Set_Section(pRet: Smallint); safecall;
  1917.     function  Get_ControlName: WideString; safecall;
  1918.     procedure Set_ControlName(const pRet: WideString); safecall;
  1919.     function  Get_IsVisible: WordBool; safecall;
  1920.     procedure Set_IsVisible(pRet: WordBool); safecall;
  1921.     function  Get_InSelection: WordBool; safecall;
  1922.     procedure Set_InSelection(pRet: WordBool); safecall;
  1923.     function  Get_OnClick: WideString; safecall;
  1924.     procedure Set_OnClick(const pRet: WideString); safecall;
  1925.     function  Get_OnDblClick: WideString; safecall;
  1926.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  1927.     function  Get_OnMouseDown: WideString; safecall;
  1928.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  1929.     function  Get_OnMouseMove: WideString; safecall;
  1930.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  1931.     function  Get_OnMouseUp: WideString; safecall;
  1932.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  1933.     function  Get_ShortcutMenuBar: WideString; safecall;
  1934.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  1935.     function  Get_Tag: WideString; safecall;
  1936.     procedure Set_Tag(const pRet: WideString); safecall;
  1937.     property Application: Application read Get_Application;
  1938.     property Parent: IDispatch read Get_Parent;
  1939.     property Properties: Properties read Get_Properties;
  1940.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  1941.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  1942.     property Name: WideString read Get_Name write Set_Name;
  1943.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  1944.     property Caption: WideString read Get_Caption write Set_Caption;
  1945.     property HyperlinkAddress: WideString read Get_HyperlinkAddress write Set_HyperlinkAddress;
  1946.     property HyperlinkSubAddress: WideString read Get_HyperlinkSubAddress write Set_HyperlinkSubAddress;
  1947.     property Visible: WordBool read Get_Visible write Set_Visible;
  1948.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  1949.     property Left: Smallint read Get_Left write Set_Left;
  1950.     property Top: Smallint read Get_Top write Set_Top;
  1951.     property Width: Smallint read Get_Width write Set_Width;
  1952.     property Height: Smallint read Get_Height write Set_Height;
  1953.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  1954.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  1955.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  1956.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  1957.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  1958.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  1959.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  1960.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  1961.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  1962.     property FontName: WideString read Get_FontName write Set_FontName;
  1963.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  1964.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  1965.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  1966.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  1967.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  1968.     property TextAlign: Byte read Get_TextAlign write Set_TextAlign;
  1969.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  1970.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  1971.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  1972.     property Section: Smallint read Get_Section write Set_Section;
  1973.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  1974.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  1975.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  1976.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  1977.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  1978.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  1979.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  1980.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  1981.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  1982.     property Tag: WideString read Get_Tag write Set_Tag;
  1983.   end;
  1984.  
  1985. // *********************************************************************//
  1986. // DispIntf:  _LabelDisp
  1987. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1988. // GUID:      {3B06E948-E47C-11CD-8701-00AA003F0F07}
  1989. // *********************************************************************//
  1990.   _LabelDisp = dispinterface
  1991.     ['{3B06E948-E47C-11CD-8701-00AA003F0F07}']
  1992.     property Application: Application readonly dispid 2005;
  1993.     property Parent: IDispatch readonly dispid 2087;
  1994.     property Properties: Properties readonly dispid 2091;
  1995.     procedure SizeToFit; dispid 2151;
  1996.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  1997.     property Hyperlink: _Hyperlink readonly dispid 2181;
  1998.     property EventProcPrefix: WideString dispid 22;
  1999.     property Name: WideString dispid 20;
  2000.     property ControlType: Byte dispid 21;
  2001.     property Caption: WideString dispid 17;
  2002.     property HyperlinkAddress: WideString dispid 386;
  2003.     property HyperlinkSubAddress: WideString dispid 390;
  2004.     property Visible: WordBool dispid 145;
  2005.     property DisplayWhen: Byte dispid 146;
  2006.     property Left: Smallint dispid 54;
  2007.     property Top: Smallint dispid 138;
  2008.     property Width: Smallint dispid 147;
  2009.     property Height: Smallint dispid 44;
  2010.     property BackStyle: Byte dispid 29;
  2011.     property BackColor: Integer dispid 28;
  2012.     property SpecialEffect: Byte dispid 4;
  2013.     property BorderStyle: Byte dispid 9;
  2014.     property OldBorderStyle: Byte dispid 371;
  2015.     property BorderColor: Integer dispid 8;
  2016.     property BorderWidth: Byte dispid 10;
  2017.     property BorderLineStyle: Byte dispid 11;
  2018.     property ForeColor: Integer dispid 203;
  2019.     property FontName: WideString dispid 34;
  2020.     property FontSize: Smallint dispid 35;
  2021.     property FontWeight: Smallint dispid 37;
  2022.     property FontItalic: WordBool dispid 33;
  2023.     property FontUnderline: WordBool dispid 36;
  2024.     property TextFontCharSet: Byte dispid 192;
  2025.     property TextAlign: Byte dispid 133;
  2026.     property FontBold: Smallint dispid 32;
  2027.     property ControlTipText: WideString dispid 362;
  2028.     property HelpContextId: Integer dispid 218;
  2029.     property Section: Smallint dispid 238;
  2030.     property ControlName: WideString dispid 296;
  2031.     property IsVisible: WordBool dispid 137;
  2032.     property InSelection: WordBool dispid 312;
  2033.     property OnClick: WideString dispid 123;
  2034.     property OnDblClick: WideString dispid 223;
  2035.     property OnMouseDown: WideString dispid 104;
  2036.     property OnMouseMove: WideString dispid 106;
  2037.     property OnMouseUp: WideString dispid 105;
  2038.     property ShortcutMenuBar: WideString dispid 336;
  2039.     property Tag: WideString dispid 297;
  2040.   end;
  2041.  
  2042. // *********************************************************************//
  2043. // Interface: _LabelEvents
  2044. // Flags:     (16) Hidden
  2045. // GUID:      {BC9E4341-F037-11CD-8701-00AA003F0F07}
  2046. // *********************************************************************//
  2047.   _LabelEvents = interface(IUnknown)
  2048.     ['{BC9E4341-F037-11CD-8701-00AA003F0F07}']
  2049.     function  Click: HResult; stdcall;
  2050.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  2051.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2052.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2053.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2054.   end;
  2055.  
  2056. // *********************************************************************//
  2057. // Interface: _ChildLabelEvents
  2058. // Flags:     (16) Hidden
  2059. // GUID:      {BC9E4358-F037-11CD-8701-00AA003F0F07}
  2060. // *********************************************************************//
  2061.   _ChildLabelEvents = interface(IUnknown)
  2062.     ['{BC9E4358-F037-11CD-8701-00AA003F0F07}']
  2063.   end;
  2064.  
  2065. // *********************************************************************//
  2066. // Interface: _Rectangle
  2067. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2068. // GUID:      {3B06E94A-E47C-11CD-8701-00AA003F0F07}
  2069. // *********************************************************************//
  2070.   _Rectangle = interface(IDispatch)
  2071.     ['{3B06E94A-E47C-11CD-8701-00AA003F0F07}']
  2072.     function  Get_Application: Application; safecall;
  2073.     function  Get_Parent: IDispatch; safecall;
  2074.     function  Get_Properties: Properties; safecall;
  2075.     procedure SizeToFit; safecall;
  2076.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  2077.     function  Get_EventProcPrefix: WideString; safecall;
  2078.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  2079.     function  Get_Name: WideString; safecall;
  2080.     procedure Set_Name(const pRet: WideString); safecall;
  2081.     function  Get_ControlType: Byte; safecall;
  2082.     procedure Set_ControlType(pRet: Byte); safecall;
  2083.     function  Get_Visible: WordBool; safecall;
  2084.     procedure Set_Visible(pRet: WordBool); safecall;
  2085.     function  Get_DisplayWhen: Byte; safecall;
  2086.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  2087.     function  Get_Left: Smallint; safecall;
  2088.     procedure Set_Left(pRet: Smallint); safecall;
  2089.     function  Get_Top: Smallint; safecall;
  2090.     procedure Set_Top(pRet: Smallint); safecall;
  2091.     function  Get_Width: Smallint; safecall;
  2092.     procedure Set_Width(pRet: Smallint); safecall;
  2093.     function  Get_Height: Smallint; safecall;
  2094.     procedure Set_Height(pRet: Smallint); safecall;
  2095.     function  Get_BackStyle: Byte; safecall;
  2096.     procedure Set_BackStyle(pRet: Byte); safecall;
  2097.     function  Get_BackColor: Integer; safecall;
  2098.     procedure Set_BackColor(pRet: Integer); safecall;
  2099.     function  Get_SpecialEffect: Byte; safecall;
  2100.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  2101.     function  Get_BorderStyle: Byte; safecall;
  2102.     procedure Set_BorderStyle(pRet: Byte); safecall;
  2103.     function  Get_OldBorderStyle: Byte; safecall;
  2104.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  2105.     function  Get_BorderColor: Integer; safecall;
  2106.     procedure Set_BorderColor(pRet: Integer); safecall;
  2107.     function  Get_BorderWidth: Byte; safecall;
  2108.     procedure Set_BorderWidth(pRet: Byte); safecall;
  2109.     function  Get_BorderLineStyle: Byte; safecall;
  2110.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  2111.     function  Get_Section: Smallint; safecall;
  2112.     procedure Set_Section(pRet: Smallint); safecall;
  2113.     function  Get_ControlName: WideString; safecall;
  2114.     procedure Set_ControlName(const pRet: WideString); safecall;
  2115.     function  Get_Tag: WideString; safecall;
  2116.     procedure Set_Tag(const pRet: WideString); safecall;
  2117.     function  Get_IsVisible: WordBool; safecall;
  2118.     procedure Set_IsVisible(pRet: WordBool); safecall;
  2119.     function  Get_InSelection: WordBool; safecall;
  2120.     procedure Set_InSelection(pRet: WordBool); safecall;
  2121.     function  Get_OnClick: WideString; safecall;
  2122.     procedure Set_OnClick(const pRet: WideString); safecall;
  2123.     function  Get_OnDblClick: WideString; safecall;
  2124.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  2125.     function  Get_OnMouseDown: WideString; safecall;
  2126.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  2127.     function  Get_OnMouseMove: WideString; safecall;
  2128.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  2129.     function  Get_OnMouseUp: WideString; safecall;
  2130.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  2131.     property Application: Application read Get_Application;
  2132.     property Parent: IDispatch read Get_Parent;
  2133.     property Properties: Properties read Get_Properties;
  2134.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  2135.     property Name: WideString read Get_Name write Set_Name;
  2136.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  2137.     property Visible: WordBool read Get_Visible write Set_Visible;
  2138.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  2139.     property Left: Smallint read Get_Left write Set_Left;
  2140.     property Top: Smallint read Get_Top write Set_Top;
  2141.     property Width: Smallint read Get_Width write Set_Width;
  2142.     property Height: Smallint read Get_Height write Set_Height;
  2143.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  2144.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  2145.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  2146.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  2147.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  2148.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  2149.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  2150.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  2151.     property Section: Smallint read Get_Section write Set_Section;
  2152.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  2153.     property Tag: WideString read Get_Tag write Set_Tag;
  2154.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  2155.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  2156.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  2157.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  2158.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  2159.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  2160.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  2161.   end;
  2162.  
  2163. // *********************************************************************//
  2164. // DispIntf:  _RectangleDisp
  2165. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2166. // GUID:      {3B06E94A-E47C-11CD-8701-00AA003F0F07}
  2167. // *********************************************************************//
  2168.   _RectangleDisp = dispinterface
  2169.     ['{3B06E94A-E47C-11CD-8701-00AA003F0F07}']
  2170.     property Application: Application readonly dispid 2005;
  2171.     property Parent: IDispatch readonly dispid 2087;
  2172.     property Properties: Properties readonly dispid 2091;
  2173.     procedure SizeToFit; dispid 2151;
  2174.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  2175.     property EventProcPrefix: WideString dispid 22;
  2176.     property Name: WideString dispid 20;
  2177.     property ControlType: Byte dispid 21;
  2178.     property Visible: WordBool dispid 145;
  2179.     property DisplayWhen: Byte dispid 146;
  2180.     property Left: Smallint dispid 54;
  2181.     property Top: Smallint dispid 138;
  2182.     property Width: Smallint dispid 147;
  2183.     property Height: Smallint dispid 44;
  2184.     property BackStyle: Byte dispid 29;
  2185.     property BackColor: Integer dispid 28;
  2186.     property SpecialEffect: Byte dispid 4;
  2187.     property BorderStyle: Byte dispid 9;
  2188.     property OldBorderStyle: Byte dispid 371;
  2189.     property BorderColor: Integer dispid 8;
  2190.     property BorderWidth: Byte dispid 10;
  2191.     property BorderLineStyle: Byte dispid 11;
  2192.     property Section: Smallint dispid 238;
  2193.     property ControlName: WideString dispid 296;
  2194.     property Tag: WideString dispid 297;
  2195.     property IsVisible: WordBool dispid 137;
  2196.     property InSelection: WordBool dispid 312;
  2197.     property OnClick: WideString dispid 123;
  2198.     property OnDblClick: WideString dispid 223;
  2199.     property OnMouseDown: WideString dispid 104;
  2200.     property OnMouseMove: WideString dispid 106;
  2201.     property OnMouseUp: WideString dispid 105;
  2202.   end;
  2203.  
  2204. // *********************************************************************//
  2205. // Interface: _RectangleEvents
  2206. // Flags:     (16) Hidden
  2207. // GUID:      {BC9E4342-F037-11CD-8701-00AA003F0F07}
  2208. // *********************************************************************//
  2209.   _RectangleEvents = interface(IUnknown)
  2210.     ['{BC9E4342-F037-11CD-8701-00AA003F0F07}']
  2211.     function  Click: HResult; stdcall;
  2212.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  2213.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2214.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2215.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2216.   end;
  2217.  
  2218. // *********************************************************************//
  2219. // Interface: _Line
  2220. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2221. // GUID:      {3B06E94C-E47C-11CD-8701-00AA003F0F07}
  2222. // *********************************************************************//
  2223.   _Line = interface(IDispatch)
  2224.     ['{3B06E94C-E47C-11CD-8701-00AA003F0F07}']
  2225.     function  Get_Application: Application; safecall;
  2226.     function  Get_Parent: IDispatch; safecall;
  2227.     function  Get_Properties: Properties; safecall;
  2228.     procedure SizeToFit; safecall;
  2229.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  2230.     function  Get_EventProcPrefix: WideString; safecall;
  2231.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  2232.     function  Get_Name: WideString; safecall;
  2233.     procedure Set_Name(const pRet: WideString); safecall;
  2234.     function  Get_ControlType: Byte; safecall;
  2235.     procedure Set_ControlType(pRet: Byte); safecall;
  2236.     function  Get_LineSlant: WordBool; safecall;
  2237.     procedure Set_LineSlant(pRet: WordBool); safecall;
  2238.     function  Get_Visible: WordBool; safecall;
  2239.     procedure Set_Visible(pRet: WordBool); safecall;
  2240.     function  Get_DisplayWhen: Byte; safecall;
  2241.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  2242.     function  Get_Left: Smallint; safecall;
  2243.     procedure Set_Left(pRet: Smallint); safecall;
  2244.     function  Get_Top: Smallint; safecall;
  2245.     procedure Set_Top(pRet: Smallint); safecall;
  2246.     function  Get_Width: Smallint; safecall;
  2247.     procedure Set_Width(pRet: Smallint); safecall;
  2248.     function  Get_Height: Smallint; safecall;
  2249.     procedure Set_Height(pRet: Smallint); safecall;
  2250.     function  Get_SpecialEffect: Byte; safecall;
  2251.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  2252.     function  Get_BorderStyle: Byte; safecall;
  2253.     procedure Set_BorderStyle(pRet: Byte); safecall;
  2254.     function  Get_OldBorderStyle: Byte; safecall;
  2255.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  2256.     function  Get_BorderColor: Integer; safecall;
  2257.     procedure Set_BorderColor(pRet: Integer); safecall;
  2258.     function  Get_BorderWidth: Byte; safecall;
  2259.     procedure Set_BorderWidth(pRet: Byte); safecall;
  2260.     function  Get_BorderLineStyle: Byte; safecall;
  2261.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  2262.     function  Get_Section: Smallint; safecall;
  2263.     procedure Set_Section(pRet: Smallint); safecall;
  2264.     function  Get_ControlName: WideString; safecall;
  2265.     procedure Set_ControlName(const pRet: WideString); safecall;
  2266.     function  Get_Tag: WideString; safecall;
  2267.     procedure Set_Tag(const pRet: WideString); safecall;
  2268.     function  Get_IsVisible: WordBool; safecall;
  2269.     procedure Set_IsVisible(pRet: WordBool); safecall;
  2270.     function  Get_InSelection: WordBool; safecall;
  2271.     procedure Set_InSelection(pRet: WordBool); safecall;
  2272.     property Application: Application read Get_Application;
  2273.     property Parent: IDispatch read Get_Parent;
  2274.     property Properties: Properties read Get_Properties;
  2275.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  2276.     property Name: WideString read Get_Name write Set_Name;
  2277.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  2278.     property LineSlant: WordBool read Get_LineSlant write Set_LineSlant;
  2279.     property Visible: WordBool read Get_Visible write Set_Visible;
  2280.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  2281.     property Left: Smallint read Get_Left write Set_Left;
  2282.     property Top: Smallint read Get_Top write Set_Top;
  2283.     property Width: Smallint read Get_Width write Set_Width;
  2284.     property Height: Smallint read Get_Height write Set_Height;
  2285.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  2286.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  2287.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  2288.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  2289.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  2290.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  2291.     property Section: Smallint read Get_Section write Set_Section;
  2292.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  2293.     property Tag: WideString read Get_Tag write Set_Tag;
  2294.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  2295.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  2296.   end;
  2297.  
  2298. // *********************************************************************//
  2299. // DispIntf:  _LineDisp
  2300. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2301. // GUID:      {3B06E94C-E47C-11CD-8701-00AA003F0F07}
  2302. // *********************************************************************//
  2303.   _LineDisp = dispinterface
  2304.     ['{3B06E94C-E47C-11CD-8701-00AA003F0F07}']
  2305.     property Application: Application readonly dispid 2005;
  2306.     property Parent: IDispatch readonly dispid 2087;
  2307.     property Properties: Properties readonly dispid 2091;
  2308.     procedure SizeToFit; dispid 2151;
  2309.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  2310.     property EventProcPrefix: WideString dispid 22;
  2311.     property Name: WideString dispid 20;
  2312.     property ControlType: Byte dispid 21;
  2313.     property LineSlant: WordBool dispid 55;
  2314.     property Visible: WordBool dispid 145;
  2315.     property DisplayWhen: Byte dispid 146;
  2316.     property Left: Smallint dispid 54;
  2317.     property Top: Smallint dispid 138;
  2318.     property Width: Smallint dispid 147;
  2319.     property Height: Smallint dispid 44;
  2320.     property SpecialEffect: Byte dispid 4;
  2321.     property BorderStyle: Byte dispid 9;
  2322.     property OldBorderStyle: Byte dispid 371;
  2323.     property BorderColor: Integer dispid 8;
  2324.     property BorderWidth: Byte dispid 10;
  2325.     property BorderLineStyle: Byte dispid 11;
  2326.     property Section: Smallint dispid 238;
  2327.     property ControlName: WideString dispid 296;
  2328.     property Tag: WideString dispid 297;
  2329.     property IsVisible: WordBool dispid 137;
  2330.     property InSelection: WordBool dispid 312;
  2331.   end;
  2332.  
  2333. // *********************************************************************//
  2334. // Interface: _LineEvents
  2335. // Flags:     (16) Hidden
  2336. // GUID:      {BC9E4343-F037-11CD-8701-00AA003F0F07}
  2337. // *********************************************************************//
  2338.   _LineEvents = interface(IUnknown)
  2339.     ['{BC9E4343-F037-11CD-8701-00AA003F0F07}']
  2340.   end;
  2341.  
  2342. // *********************************************************************//
  2343. // Interface: _Image
  2344. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2345. // GUID:      {3B06E94E-E47C-11CD-8701-00AA003F0F07}
  2346. // *********************************************************************//
  2347.   _Image = interface(IDispatch)
  2348.     ['{3B06E94E-E47C-11CD-8701-00AA003F0F07}']
  2349.     function  Get_Application: Application; safecall;
  2350.     function  Get_Parent: IDispatch; safecall;
  2351.     function  Get_OldValue: OleVariant; safecall;
  2352.     function  Get_Properties: Properties; safecall;
  2353.     procedure SizeToFit; safecall;
  2354.     procedure Requery; safecall;
  2355.     procedure Goto_; safecall;
  2356.     procedure SetFocus; safecall;
  2357.     function  Get_Controls: Children; safecall;
  2358.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  2359.     function  Get_Hyperlink: _Hyperlink; safecall;
  2360.     function  Get_Value: OleVariant; safecall;
  2361.     procedure Set_Value(pRet: OleVariant); safecall;
  2362.     function  Get_EventProcPrefix: WideString; safecall;
  2363.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  2364.     function  Get_Name: WideString; safecall;
  2365.     procedure Set_Name(const pRet: WideString); safecall;
  2366.     function  Get_ControlType: Byte; safecall;
  2367.     procedure Set_ControlType(pRet: Byte); safecall;
  2368.     function  Get_Picture: WideString; safecall;
  2369.     procedure Set_Picture(const pRet: WideString); safecall;
  2370.     function  Get_PictureType: Byte; safecall;
  2371.     procedure Set_PictureType(pRet: Byte); safecall;
  2372.     function  Get_PictureData: OleVariant; safecall;
  2373.     procedure Set_PictureData(pRet: OleVariant); safecall;
  2374.     function  Get_SizeMode: Byte; safecall;
  2375.     procedure Set_SizeMode(pRet: Byte); safecall;
  2376.     function  Get_PictureAlignment: Byte; safecall;
  2377.     procedure Set_PictureAlignment(pRet: Byte); safecall;
  2378.     function  Get_PictureTiling: WordBool; safecall;
  2379.     procedure Set_PictureTiling(pRet: WordBool); safecall;
  2380.     function  Get_HyperlinkAddress: WideString; safecall;
  2381.     procedure Set_HyperlinkAddress(const pRet: WideString); safecall;
  2382.     function  Get_HyperlinkSubAddress: WideString; safecall;
  2383.     procedure Set_HyperlinkSubAddress(const pRet: WideString); safecall;
  2384.     function  Get_Visible: WordBool; safecall;
  2385.     procedure Set_Visible(pRet: WordBool); safecall;
  2386.     function  Get_DisplayWhen: Byte; safecall;
  2387.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  2388.     function  Get_Left: Smallint; safecall;
  2389.     procedure Set_Left(pRet: Smallint); safecall;
  2390.     function  Get_Top: Smallint; safecall;
  2391.     procedure Set_Top(pRet: Smallint); safecall;
  2392.     function  Get_Width: Smallint; safecall;
  2393.     procedure Set_Width(pRet: Smallint); safecall;
  2394.     function  Get_Height: Smallint; safecall;
  2395.     procedure Set_Height(pRet: Smallint); safecall;
  2396.     function  Get_BackStyle: Byte; safecall;
  2397.     procedure Set_BackStyle(pRet: Byte); safecall;
  2398.     function  Get_BackColor: Integer; safecall;
  2399.     procedure Set_BackColor(pRet: Integer); safecall;
  2400.     function  Get_SpecialEffect: Byte; safecall;
  2401.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  2402.     function  Get_BorderStyle: Byte; safecall;
  2403.     procedure Set_BorderStyle(pRet: Byte); safecall;
  2404.     function  Get_OldBorderStyle: Byte; safecall;
  2405.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  2406.     function  Get_BorderColor: Integer; safecall;
  2407.     procedure Set_BorderColor(pRet: Integer); safecall;
  2408.     function  Get_BorderWidth: Byte; safecall;
  2409.     procedure Set_BorderWidth(pRet: Byte); safecall;
  2410.     function  Get_BorderLineStyle: Byte; safecall;
  2411.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  2412.     function  Get_ControlTipText: WideString; safecall;
  2413.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  2414.     function  Get_HelpContextId: Integer; safecall;
  2415.     procedure Set_HelpContextId(pRet: Integer); safecall;
  2416.     function  Get_Section: Smallint; safecall;
  2417.     procedure Set_Section(pRet: Smallint); safecall;
  2418.     function  Get_ControlName: WideString; safecall;
  2419.     procedure Set_ControlName(const pRet: WideString); safecall;
  2420.     function  Get_ObjectPalette: OleVariant; safecall;
  2421.     procedure Set_ObjectPalette(pRet: OleVariant); safecall;
  2422.     function  Get_IsVisible: WordBool; safecall;
  2423.     procedure Set_IsVisible(pRet: WordBool); safecall;
  2424.     function  Get_OnClick: WideString; safecall;
  2425.     procedure Set_OnClick(const pRet: WideString); safecall;
  2426.     function  Get_OnDblClick: WideString; safecall;
  2427.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  2428.     function  Get_OnMouseDown: WideString; safecall;
  2429.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  2430.     function  Get_OnMouseMove: WideString; safecall;
  2431.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  2432.     function  Get_OnMouseUp: WideString; safecall;
  2433.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  2434.     function  Get_ShortcutMenuBar: WideString; safecall;
  2435.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  2436.     function  Get_ImageHeight: Integer; safecall;
  2437.     procedure Set_ImageHeight(pRet: Integer); safecall;
  2438.     function  Get_ImageWidth: Integer; safecall;
  2439.     procedure Set_ImageWidth(pRet: Integer); safecall;
  2440.     function  Get_InSelection: WordBool; safecall;
  2441.     procedure Set_InSelection(pRet: WordBool); safecall;
  2442.     function  Get_Tag: WideString; safecall;
  2443.     procedure Set_Tag(const pRet: WideString); safecall;
  2444.     property Application: Application read Get_Application;
  2445.     property Parent: IDispatch read Get_Parent;
  2446.     property OldValue: OleVariant read Get_OldValue;
  2447.     property Properties: Properties read Get_Properties;
  2448.     property Controls: Children read Get_Controls;
  2449.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  2450.     property Value: OleVariant read Get_Value write Set_Value;
  2451.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  2452.     property Name: WideString read Get_Name write Set_Name;
  2453.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  2454.     property Picture: WideString read Get_Picture write Set_Picture;
  2455.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  2456.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  2457.     property SizeMode: Byte read Get_SizeMode write Set_SizeMode;
  2458.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  2459.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  2460.     property HyperlinkAddress: WideString read Get_HyperlinkAddress write Set_HyperlinkAddress;
  2461.     property HyperlinkSubAddress: WideString read Get_HyperlinkSubAddress write Set_HyperlinkSubAddress;
  2462.     property Visible: WordBool read Get_Visible write Set_Visible;
  2463.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  2464.     property Left: Smallint read Get_Left write Set_Left;
  2465.     property Top: Smallint read Get_Top write Set_Top;
  2466.     property Width: Smallint read Get_Width write Set_Width;
  2467.     property Height: Smallint read Get_Height write Set_Height;
  2468.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  2469.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  2470.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  2471.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  2472.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  2473.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  2474.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  2475.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  2476.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  2477.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  2478.     property Section: Smallint read Get_Section write Set_Section;
  2479.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  2480.     property ObjectPalette: OleVariant read Get_ObjectPalette write Set_ObjectPalette;
  2481.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  2482.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  2483.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  2484.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  2485.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  2486.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  2487.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  2488.     property ImageHeight: Integer read Get_ImageHeight write Set_ImageHeight;
  2489.     property ImageWidth: Integer read Get_ImageWidth write Set_ImageWidth;
  2490.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  2491.     property Tag: WideString read Get_Tag write Set_Tag;
  2492.   end;
  2493.  
  2494. // *********************************************************************//
  2495. // DispIntf:  _ImageDisp
  2496. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2497. // GUID:      {3B06E94E-E47C-11CD-8701-00AA003F0F07}
  2498. // *********************************************************************//
  2499.   _ImageDisp = dispinterface
  2500.     ['{3B06E94E-E47C-11CD-8701-00AA003F0F07}']
  2501.     property Application: Application readonly dispid 2005;
  2502.     property Parent: IDispatch readonly dispid 2087;
  2503.     property OldValue: OleVariant readonly dispid 2102;
  2504.     property Properties: Properties readonly dispid 2091;
  2505.     procedure SizeToFit; dispid 2151;
  2506.     procedure Requery; dispid 2018;
  2507.     procedure Goto_; dispid 2023;
  2508.     procedure SetFocus; dispid 2022;
  2509.     property Controls: Children readonly dispid 2190;
  2510.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  2511.     property Hyperlink: _Hyperlink readonly dispid 2181;
  2512.     property Value: OleVariant dispid 0;
  2513.     property EventProcPrefix: WideString dispid 22;
  2514.     property Name: WideString dispid 20;
  2515.     property ControlType: Byte dispid 21;
  2516.     property Picture: WideString dispid 7;
  2517.     property PictureType: Byte dispid 384;
  2518.     property PictureData: OleVariant dispid 187;
  2519.     property SizeMode: Byte dispid 85;
  2520.     property PictureAlignment: Byte dispid 354;
  2521.     property PictureTiling: WordBool dispid 358;
  2522.     property HyperlinkAddress: WideString dispid 386;
  2523.     property HyperlinkSubAddress: WideString dispid 390;
  2524.     property Visible: WordBool dispid 145;
  2525.     property DisplayWhen: Byte dispid 146;
  2526.     property Left: Smallint dispid 54;
  2527.     property Top: Smallint dispid 138;
  2528.     property Width: Smallint dispid 147;
  2529.     property Height: Smallint dispid 44;
  2530.     property BackStyle: Byte dispid 29;
  2531.     property BackColor: Integer dispid 28;
  2532.     property SpecialEffect: Byte dispid 4;
  2533.     property BorderStyle: Byte dispid 9;
  2534.     property OldBorderStyle: Byte dispid 371;
  2535.     property BorderColor: Integer dispid 8;
  2536.     property BorderWidth: Byte dispid 10;
  2537.     property BorderLineStyle: Byte dispid 11;
  2538.     property ControlTipText: WideString dispid 362;
  2539.     property HelpContextId: Integer dispid 218;
  2540.     property Section: Smallint dispid 238;
  2541.     property ControlName: WideString dispid 296;
  2542.     property ObjectPalette: OleVariant dispid 96;
  2543.     property IsVisible: WordBool dispid 137;
  2544.     property OnClick: WideString dispid 123;
  2545.     property OnDblClick: WideString dispid 223;
  2546.     property OnMouseDown: WideString dispid 104;
  2547.     property OnMouseMove: WideString dispid 106;
  2548.     property OnMouseUp: WideString dispid 105;
  2549.     property ShortcutMenuBar: WideString dispid 336;
  2550.     property ImageHeight: Integer dispid 350;
  2551.     property ImageWidth: Integer dispid 351;
  2552.     property InSelection: WordBool dispid 312;
  2553.     property Tag: WideString dispid 297;
  2554.   end;
  2555.  
  2556. // *********************************************************************//
  2557. // Interface: _ImageEvents
  2558. // Flags:     (16) Hidden
  2559. // GUID:      {BC9E4344-F037-11CD-8701-00AA003F0F07}
  2560. // *********************************************************************//
  2561.   _ImageEvents = interface(IUnknown)
  2562.     ['{BC9E4344-F037-11CD-8701-00AA003F0F07}']
  2563.     function  Click: HResult; stdcall;
  2564.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  2565.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2566.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2567.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2568.   end;
  2569.  
  2570. // *********************************************************************//
  2571. // Interface: _CommandButton
  2572. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2573. // GUID:      {3B06E950-E47C-11CD-8701-00AA003F0F07}
  2574. // *********************************************************************//
  2575.   _CommandButton = interface(IDispatch)
  2576.     ['{3B06E950-E47C-11CD-8701-00AA003F0F07}']
  2577.     function  Get_Application: Application; safecall;
  2578.     function  Get_Parent: IDispatch; safecall;
  2579.     function  Get_OldValue: OleVariant; safecall;
  2580.     function  Get_Properties: Properties; safecall;
  2581.     procedure SizeToFit; safecall;
  2582.     procedure Requery; safecall;
  2583.     procedure Goto_; safecall;
  2584.     procedure SetFocus; safecall;
  2585.     function  Get_Controls: Children; safecall;
  2586.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  2587.     function  Get_Hyperlink: _Hyperlink; safecall;
  2588.     function  Get_Value: OleVariant; safecall;
  2589.     procedure Set_Value(pRet: OleVariant); safecall;
  2590.     function  Get_EventProcPrefix: WideString; safecall;
  2591.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  2592.     function  Get_Name: WideString; safecall;
  2593.     procedure Set_Name(const pRet: WideString); safecall;
  2594.     function  Get_ControlType: Byte; safecall;
  2595.     procedure Set_ControlType(pRet: Byte); safecall;
  2596.     function  Get_Caption: WideString; safecall;
  2597.     procedure Set_Caption(const pRet: WideString); safecall;
  2598.     function  Get_Picture: WideString; safecall;
  2599.     procedure Set_Picture(const pRet: WideString); safecall;
  2600.     function  Get_PictureType: Byte; safecall;
  2601.     procedure Set_PictureType(pRet: Byte); safecall;
  2602.     function  Get_PictureData: OleVariant; safecall;
  2603.     procedure Set_PictureData(pRet: OleVariant); safecall;
  2604.     function  Get_Transparent: WordBool; safecall;
  2605.     procedure Set_Transparent(pRet: WordBool); safecall;
  2606.     function  Get_Default: WordBool; safecall;
  2607.     procedure Set_Default(pRet: WordBool); safecall;
  2608.     function  Get_Cancel: WordBool; safecall;
  2609.     procedure Set_Cancel(pRet: WordBool); safecall;
  2610.     function  Get_AutoRepeat: WordBool; safecall;
  2611.     procedure Set_AutoRepeat(pRet: WordBool); safecall;
  2612.     function  Get_StatusBarText: WideString; safecall;
  2613.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  2614.     function  Get_OnPush: WideString; safecall;
  2615.     procedure Set_OnPush(const pRet: WideString); safecall;
  2616.     function  Get_HyperlinkAddress: WideString; safecall;
  2617.     procedure Set_HyperlinkAddress(const pRet: WideString); safecall;
  2618.     function  Get_HyperlinkSubAddress: WideString; safecall;
  2619.     procedure Set_HyperlinkSubAddress(const pRet: WideString); safecall;
  2620.     function  Get_Visible: WordBool; safecall;
  2621.     procedure Set_Visible(pRet: WordBool); safecall;
  2622.     function  Get_DisplayWhen: Byte; safecall;
  2623.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  2624.     function  Get_Enabled: WordBool; safecall;
  2625.     procedure Set_Enabled(pRet: WordBool); safecall;
  2626.     function  Get_TabStop: WordBool; safecall;
  2627.     procedure Set_TabStop(pRet: WordBool); safecall;
  2628.     function  Get_TabIndex: Smallint; safecall;
  2629.     procedure Set_TabIndex(pRet: Smallint); safecall;
  2630.     function  Get_Left: Smallint; safecall;
  2631.     procedure Set_Left(pRet: Smallint); safecall;
  2632.     function  Get_Top: Smallint; safecall;
  2633.     procedure Set_Top(pRet: Smallint); safecall;
  2634.     function  Get_Width: Smallint; safecall;
  2635.     procedure Set_Width(pRet: Smallint); safecall;
  2636.     function  Get_Height: Smallint; safecall;
  2637.     procedure Set_Height(pRet: Smallint); safecall;
  2638.     function  Get_ForeColor: Integer; safecall;
  2639.     procedure Set_ForeColor(pRet: Integer); safecall;
  2640.     function  Get_FontName: WideString; safecall;
  2641.     procedure Set_FontName(const pRet: WideString); safecall;
  2642.     function  Get_FontSize: Smallint; safecall;
  2643.     procedure Set_FontSize(pRet: Smallint); safecall;
  2644.     function  Get_FontWeight: Smallint; safecall;
  2645.     procedure Set_FontWeight(pRet: Smallint); safecall;
  2646.     function  Get_FontItalic: WordBool; safecall;
  2647.     procedure Set_FontItalic(pRet: WordBool); safecall;
  2648.     function  Get_FontUnderline: WordBool; safecall;
  2649.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  2650.     function  Get_TextFontCharSet: Byte; safecall;
  2651.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  2652.     function  Get_FontBold: Smallint; safecall;
  2653.     procedure Set_FontBold(pRet: Smallint); safecall;
  2654.     function  Get_ShortcutMenuBar: WideString; safecall;
  2655.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  2656.     function  Get_ControlTipText: WideString; safecall;
  2657.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  2658.     function  Get_HelpContextId: Integer; safecall;
  2659.     procedure Set_HelpContextId(pRet: Integer); safecall;
  2660.     function  Get_AutoLabel: WordBool; safecall;
  2661.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  2662.     function  Get_AddColon: WordBool; safecall;
  2663.     procedure Set_AddColon(pRet: WordBool); safecall;
  2664.     function  Get_LabelX: Smallint; safecall;
  2665.     procedure Set_LabelX(pRet: Smallint); safecall;
  2666.     function  Get_LabelY: Smallint; safecall;
  2667.     procedure Set_LabelY(pRet: Smallint); safecall;
  2668.     function  Get_LabelAlign: Byte; safecall;
  2669.     procedure Set_LabelAlign(pRet: Byte); safecall;
  2670.     function  Get_Section: Smallint; safecall;
  2671.     procedure Set_Section(pRet: Smallint); safecall;
  2672.     function  Get_ControlName: WideString; safecall;
  2673.     procedure Set_ControlName(const pRet: WideString); safecall;
  2674.     function  Get_Tag: WideString; safecall;
  2675.     procedure Set_Tag(const pRet: WideString); safecall;
  2676.     function  Get_ObjectPalette: OleVariant; safecall;
  2677.     procedure Set_ObjectPalette(pRet: OleVariant); safecall;
  2678.     function  Get_IsVisible: WordBool; safecall;
  2679.     procedure Set_IsVisible(pRet: WordBool); safecall;
  2680.     function  Get_InSelection: WordBool; safecall;
  2681.     procedure Set_InSelection(pRet: WordBool); safecall;
  2682.     function  Get_OnEnter: WideString; safecall;
  2683.     procedure Set_OnEnter(const pRet: WideString); safecall;
  2684.     function  Get_OnExit: WideString; safecall;
  2685.     procedure Set_OnExit(const pRet: WideString); safecall;
  2686.     function  Get_OnGotFocus: WideString; safecall;
  2687.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  2688.     function  Get_OnLostFocus: WideString; safecall;
  2689.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  2690.     function  Get_OnClick: WideString; safecall;
  2691.     procedure Set_OnClick(const pRet: WideString); safecall;
  2692.     function  Get_OnDblClick: WideString; safecall;
  2693.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  2694.     function  Get_OnMouseDown: WideString; safecall;
  2695.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  2696.     function  Get_OnMouseMove: WideString; safecall;
  2697.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  2698.     function  Get_OnMouseUp: WideString; safecall;
  2699.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  2700.     function  Get_OnKeyDown: WideString; safecall;
  2701.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  2702.     function  Get_OnKeyUp: WideString; safecall;
  2703.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  2704.     function  Get_OnKeyPress: WideString; safecall;
  2705.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  2706.     property Application: Application read Get_Application;
  2707.     property Parent: IDispatch read Get_Parent;
  2708.     property OldValue: OleVariant read Get_OldValue;
  2709.     property Properties: Properties read Get_Properties;
  2710.     property Controls: Children read Get_Controls;
  2711.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  2712.     property Value: OleVariant read Get_Value write Set_Value;
  2713.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  2714.     property Name: WideString read Get_Name write Set_Name;
  2715.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  2716.     property Caption: WideString read Get_Caption write Set_Caption;
  2717.     property Picture: WideString read Get_Picture write Set_Picture;
  2718.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  2719.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  2720.     property Transparent: WordBool read Get_Transparent write Set_Transparent;
  2721.     property Default: WordBool read Get_Default write Set_Default;
  2722.     property Cancel: WordBool read Get_Cancel write Set_Cancel;
  2723.     property AutoRepeat: WordBool read Get_AutoRepeat write Set_AutoRepeat;
  2724.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  2725.     property OnPush: WideString read Get_OnPush write Set_OnPush;
  2726.     property HyperlinkAddress: WideString read Get_HyperlinkAddress write Set_HyperlinkAddress;
  2727.     property HyperlinkSubAddress: WideString read Get_HyperlinkSubAddress write Set_HyperlinkSubAddress;
  2728.     property Visible: WordBool read Get_Visible write Set_Visible;
  2729.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  2730.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2731.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  2732.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  2733.     property Left: Smallint read Get_Left write Set_Left;
  2734.     property Top: Smallint read Get_Top write Set_Top;
  2735.     property Width: Smallint read Get_Width write Set_Width;
  2736.     property Height: Smallint read Get_Height write Set_Height;
  2737.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  2738.     property FontName: WideString read Get_FontName write Set_FontName;
  2739.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  2740.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  2741.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  2742.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  2743.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  2744.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  2745.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  2746.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  2747.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  2748.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  2749.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  2750.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  2751.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  2752.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  2753.     property Section: Smallint read Get_Section write Set_Section;
  2754.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  2755.     property Tag: WideString read Get_Tag write Set_Tag;
  2756.     property ObjectPalette: OleVariant read Get_ObjectPalette write Set_ObjectPalette;
  2757.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  2758.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  2759.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  2760.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  2761.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  2762.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  2763.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  2764.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  2765.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  2766.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  2767.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  2768.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  2769.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  2770.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  2771.   end;
  2772.  
  2773. // *********************************************************************//
  2774. // DispIntf:  _CommandButtonDisp
  2775. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2776. // GUID:      {3B06E950-E47C-11CD-8701-00AA003F0F07}
  2777. // *********************************************************************//
  2778.   _CommandButtonDisp = dispinterface
  2779.     ['{3B06E950-E47C-11CD-8701-00AA003F0F07}']
  2780.     property Application: Application readonly dispid 2005;
  2781.     property Parent: IDispatch readonly dispid 2087;
  2782.     property OldValue: OleVariant readonly dispid 2102;
  2783.     property Properties: Properties readonly dispid 2091;
  2784.     procedure SizeToFit; dispid 2151;
  2785.     procedure Requery; dispid 2018;
  2786.     procedure Goto_; dispid 2023;
  2787.     procedure SetFocus; dispid 2022;
  2788.     property Controls: Children readonly dispid 2190;
  2789.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  2790.     property Hyperlink: _Hyperlink readonly dispid 2181;
  2791.     property Value: OleVariant dispid 0;
  2792.     property EventProcPrefix: WideString dispid 22;
  2793.     property Name: WideString dispid 20;
  2794.     property ControlType: Byte dispid 21;
  2795.     property Caption: WideString dispid 17;
  2796.     property Picture: WideString dispid 7;
  2797.     property PictureType: Byte dispid 384;
  2798.     property PictureData: OleVariant dispid 187;
  2799.     property Transparent: WordBool dispid 46;
  2800.     property Default: WordBool dispid 219;
  2801.     property Cancel: WordBool dispid 220;
  2802.     property AutoRepeat: WordBool dispid 5;
  2803.     property StatusBarText: WideString dispid 132;
  2804.     property OnPush: WideString dispid 152;
  2805.     property HyperlinkAddress: WideString dispid 386;
  2806.     property HyperlinkSubAddress: WideString dispid 390;
  2807.     property Visible: WordBool dispid 145;
  2808.     property DisplayWhen: Byte dispid 146;
  2809.     property Enabled: WordBool dispid 25;
  2810.     property TabStop: WordBool dispid 292;
  2811.     property TabIndex: Smallint dispid 291;
  2812.     property Left: Smallint dispid 54;
  2813.     property Top: Smallint dispid 138;
  2814.     property Width: Smallint dispid 147;
  2815.     property Height: Smallint dispid 44;
  2816.     property ForeColor: Integer dispid 203;
  2817.     property FontName: WideString dispid 34;
  2818.     property FontSize: Smallint dispid 35;
  2819.     property FontWeight: Smallint dispid 37;
  2820.     property FontItalic: WordBool dispid 33;
  2821.     property FontUnderline: WordBool dispid 36;
  2822.     property TextFontCharSet: Byte dispid 192;
  2823.     property FontBold: Smallint dispid 32;
  2824.     property ShortcutMenuBar: WideString dispid 336;
  2825.     property ControlTipText: WideString dispid 362;
  2826.     property HelpContextId: Integer dispid 218;
  2827.     property AutoLabel: WordBool dispid 57;
  2828.     property AddColon: WordBool dispid 3;
  2829.     property LabelX: Smallint dispid 52;
  2830.     property LabelY: Smallint dispid 53;
  2831.     property LabelAlign: Byte dispid 51;
  2832.     property Section: Smallint dispid 238;
  2833.     property ControlName: WideString dispid 296;
  2834.     property Tag: WideString dispid 297;
  2835.     property ObjectPalette: OleVariant dispid 96;
  2836.     property IsVisible: WordBool dispid 137;
  2837.     property InSelection: WordBool dispid 312;
  2838.     property OnEnter: WideString dispid 221;
  2839.     property OnExit: WideString dispid 222;
  2840.     property OnGotFocus: WideString dispid 112;
  2841.     property OnLostFocus: WideString dispid 113;
  2842.     property OnClick: WideString dispid 123;
  2843.     property OnDblClick: WideString dispid 223;
  2844.     property OnMouseDown: WideString dispid 104;
  2845.     property OnMouseMove: WideString dispid 106;
  2846.     property OnMouseUp: WideString dispid 105;
  2847.     property OnKeyDown: WideString dispid 101;
  2848.     property OnKeyUp: WideString dispid 102;
  2849.     property OnKeyPress: WideString dispid 103;
  2850.   end;
  2851.  
  2852. // *********************************************************************//
  2853. // Interface: _CommandButtonEvents
  2854. // Flags:     (16) Hidden
  2855. // GUID:      {BC9E4345-F037-11CD-8701-00AA003F0F07}
  2856. // *********************************************************************//
  2857.   _CommandButtonEvents = interface(IUnknown)
  2858.     ['{BC9E4345-F037-11CD-8701-00AA003F0F07}']
  2859.     function  Click: HResult; stdcall;
  2860.     function  Enter: HResult; stdcall;
  2861.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  2862.     function  GotFocus: HResult; stdcall;
  2863.     function  LostFocus: HResult; stdcall;
  2864.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  2865.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2866.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2867.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  2868.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  2869.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  2870.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  2871.   end;
  2872.  
  2873. // *********************************************************************//
  2874. // Interface: _OptionButton
  2875. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2876. // GUID:      {3B06E952-E47C-11CD-8701-00AA003F0F07}
  2877. // *********************************************************************//
  2878.   _OptionButton = interface(IDispatch)
  2879.     ['{3B06E952-E47C-11CD-8701-00AA003F0F07}']
  2880.     function  Get_Application: Application; safecall;
  2881.     function  Get_Parent: IDispatch; safecall;
  2882.     function  Get_OldValue: OleVariant; safecall;
  2883.     function  Get_Properties: Properties; safecall;
  2884.     procedure SizeToFit; safecall;
  2885.     procedure Requery; safecall;
  2886.     procedure Goto_; safecall;
  2887.     procedure SetFocus; safecall;
  2888.     function  Get_Controls: Children; safecall;
  2889.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  2890.     function  Get_Value: OleVariant; safecall;
  2891.     procedure Set_Value(pRet: OleVariant); safecall;
  2892.     function  Get_EventProcPrefix: WideString; safecall;
  2893.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  2894.     function  Get_Name: WideString; safecall;
  2895.     procedure Set_Name(const pRet: WideString); safecall;
  2896.     function  Get_ControlType: Byte; safecall;
  2897.     procedure Set_ControlType(pRet: Byte); safecall;
  2898.     function  Get_OptionValue: Integer; safecall;
  2899.     procedure Set_OptionValue(pRet: Integer); safecall;
  2900.     function  Get_ControlSource: WideString; safecall;
  2901.     procedure Set_ControlSource(const pRet: WideString); safecall;
  2902.     function  Get_DefaultValue: WideString; safecall;
  2903.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  2904.     function  Get_ValidationRule: WideString; safecall;
  2905.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  2906.     function  Get_ValidationText: WideString; safecall;
  2907.     procedure Set_ValidationText(const pRet: WideString); safecall;
  2908.     function  Get_StatusBarText: WideString; safecall;
  2909.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  2910.     function  Get_Visible: WordBool; safecall;
  2911.     procedure Set_Visible(pRet: WordBool); safecall;
  2912.     function  Get_DisplayWhen: Byte; safecall;
  2913.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  2914.     function  Get_Enabled: WordBool; safecall;
  2915.     procedure Set_Enabled(pRet: WordBool); safecall;
  2916.     function  Get_Locked: WordBool; safecall;
  2917.     procedure Set_Locked(pRet: WordBool); safecall;
  2918.     function  Get_TripleState: WordBool; safecall;
  2919.     procedure Set_TripleState(pRet: WordBool); safecall;
  2920.     function  Get_TabStop: WordBool; safecall;
  2921.     procedure Set_TabStop(pRet: WordBool); safecall;
  2922.     function  Get_TabIndex: Smallint; safecall;
  2923.     procedure Set_TabIndex(pRet: Smallint); safecall;
  2924.     function  Get_HideDuplicates: WordBool; safecall;
  2925.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  2926.     function  Get_Left: Smallint; safecall;
  2927.     procedure Set_Left(pRet: Smallint); safecall;
  2928.     function  Get_Top: Smallint; safecall;
  2929.     procedure Set_Top(pRet: Smallint); safecall;
  2930.     function  Get_Width: Smallint; safecall;
  2931.     procedure Set_Width(pRet: Smallint); safecall;
  2932.     function  Get_Height: Smallint; safecall;
  2933.     procedure Set_Height(pRet: Smallint); safecall;
  2934.     function  Get_SpecialEffect: Byte; safecall;
  2935.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  2936.     function  Get_BorderStyle: Byte; safecall;
  2937.     procedure Set_BorderStyle(pRet: Byte); safecall;
  2938.     function  Get_OldBorderStyle: Byte; safecall;
  2939.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  2940.     function  Get_BorderWidth: Byte; safecall;
  2941.     procedure Set_BorderWidth(pRet: Byte); safecall;
  2942.     function  Get_BorderLineStyle: Byte; safecall;
  2943.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  2944.     function  Get_BorderColor: Integer; safecall;
  2945.     procedure Set_BorderColor(pRet: Integer); safecall;
  2946.     function  Get_ShortcutMenuBar: WideString; safecall;
  2947.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  2948.     function  Get_ControlTipText: WideString; safecall;
  2949.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  2950.     function  Get_HelpContextId: Integer; safecall;
  2951.     procedure Set_HelpContextId(pRet: Integer); safecall;
  2952.     function  Get_ColumnWidth: Smallint; safecall;
  2953.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  2954.     function  Get_ColumnOrder: Smallint; safecall;
  2955.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  2956.     function  Get_ColumnHidden: WordBool; safecall;
  2957.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  2958.     function  Get_AutoLabel: WordBool; safecall;
  2959.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  2960.     function  Get_AddColon: WordBool; safecall;
  2961.     procedure Set_AddColon(pRet: WordBool); safecall;
  2962.     function  Get_LabelX: Smallint; safecall;
  2963.     procedure Set_LabelX(pRet: Smallint); safecall;
  2964.     function  Get_LabelY: Smallint; safecall;
  2965.     procedure Set_LabelY(pRet: Smallint); safecall;
  2966.     function  Get_LabelAlign: Byte; safecall;
  2967.     procedure Set_LabelAlign(pRet: Byte); safecall;
  2968.     function  Get_Section: Smallint; safecall;
  2969.     procedure Set_Section(pRet: Smallint); safecall;
  2970.     function  Get_ControlName: WideString; safecall;
  2971.     procedure Set_ControlName(const pRet: WideString); safecall;
  2972.     function  Get_Tag: WideString; safecall;
  2973.     procedure Set_Tag(const pRet: WideString); safecall;
  2974.     function  Get_IsVisible: WordBool; safecall;
  2975.     procedure Set_IsVisible(pRet: WordBool); safecall;
  2976.     function  Get_InSelection: WordBool; safecall;
  2977.     procedure Set_InSelection(pRet: WordBool); safecall;
  2978.     function  Get_BeforeUpdate: WideString; safecall;
  2979.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  2980.     function  Get_AfterUpdate: WideString; safecall;
  2981.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  2982.     function  Get_OnEnter: WideString; safecall;
  2983.     procedure Set_OnEnter(const pRet: WideString); safecall;
  2984.     function  Get_OnExit: WideString; safecall;
  2985.     procedure Set_OnExit(const pRet: WideString); safecall;
  2986.     function  Get_OnGotFocus: WideString; safecall;
  2987.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  2988.     function  Get_OnLostFocus: WideString; safecall;
  2989.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  2990.     function  Get_OnClick: WideString; safecall;
  2991.     procedure Set_OnClick(const pRet: WideString); safecall;
  2992.     function  Get_OnDblClick: WideString; safecall;
  2993.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  2994.     function  Get_OnMouseDown: WideString; safecall;
  2995.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  2996.     function  Get_OnMouseMove: WideString; safecall;
  2997.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  2998.     function  Get_OnMouseUp: WideString; safecall;
  2999.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  3000.     function  Get_OnKeyDown: WideString; safecall;
  3001.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  3002.     function  Get_OnKeyUp: WideString; safecall;
  3003.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  3004.     function  Get_OnKeyPress: WideString; safecall;
  3005.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  3006.     property Application: Application read Get_Application;
  3007.     property Parent: IDispatch read Get_Parent;
  3008.     property OldValue: OleVariant read Get_OldValue;
  3009.     property Properties: Properties read Get_Properties;
  3010.     property Controls: Children read Get_Controls;
  3011.     property Value: OleVariant read Get_Value write Set_Value;
  3012.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  3013.     property Name: WideString read Get_Name write Set_Name;
  3014.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  3015.     property OptionValue: Integer read Get_OptionValue write Set_OptionValue;
  3016.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  3017.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  3018.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  3019.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  3020.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  3021.     property Visible: WordBool read Get_Visible write Set_Visible;
  3022.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  3023.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3024.     property Locked: WordBool read Get_Locked write Set_Locked;
  3025.     property TripleState: WordBool read Get_TripleState write Set_TripleState;
  3026.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  3027.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  3028.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  3029.     property Left: Smallint read Get_Left write Set_Left;
  3030.     property Top: Smallint read Get_Top write Set_Top;
  3031.     property Width: Smallint read Get_Width write Set_Width;
  3032.     property Height: Smallint read Get_Height write Set_Height;
  3033.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  3034.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  3035.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  3036.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  3037.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  3038.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  3039.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  3040.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  3041.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  3042.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  3043.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  3044.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  3045.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  3046.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  3047.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  3048.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  3049.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  3050.     property Section: Smallint read Get_Section write Set_Section;
  3051.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  3052.     property Tag: WideString read Get_Tag write Set_Tag;
  3053.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  3054.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  3055.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  3056.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  3057.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  3058.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  3059.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  3060.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  3061.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  3062.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  3063.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  3064.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  3065.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  3066.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  3067.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  3068.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  3069.   end;
  3070.  
  3071. // *********************************************************************//
  3072. // DispIntf:  _OptionButtonDisp
  3073. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3074. // GUID:      {3B06E952-E47C-11CD-8701-00AA003F0F07}
  3075. // *********************************************************************//
  3076.   _OptionButtonDisp = dispinterface
  3077.     ['{3B06E952-E47C-11CD-8701-00AA003F0F07}']
  3078.     property Application: Application readonly dispid 2005;
  3079.     property Parent: IDispatch readonly dispid 2087;
  3080.     property OldValue: OleVariant readonly dispid 2102;
  3081.     property Properties: Properties readonly dispid 2091;
  3082.     procedure SizeToFit; dispid 2151;
  3083.     procedure Requery; dispid 2018;
  3084.     procedure Goto_; dispid 2023;
  3085.     procedure SetFocus; dispid 2022;
  3086.     property Controls: Children readonly dispid 2190;
  3087.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  3088.     property Value: OleVariant dispid 0;
  3089.     property EventProcPrefix: WideString dispid 22;
  3090.     property Name: WideString dispid 20;
  3091.     property ControlType: Byte dispid 21;
  3092.     property OptionValue: Integer dispid 58;
  3093.     property ControlSource: WideString dispid 27;
  3094.     property DefaultValue: WideString dispid 23;
  3095.     property ValidationRule: WideString dispid 142;
  3096.     property ValidationText: WideString dispid 61;
  3097.     property StatusBarText: WideString dispid 132;
  3098.     property Visible: WordBool dispid 145;
  3099.     property DisplayWhen: Byte dispid 146;
  3100.     property Enabled: WordBool dispid 25;
  3101.     property Locked: WordBool dispid 56;
  3102.     property TripleState: WordBool dispid 326;
  3103.     property TabStop: WordBool dispid 292;
  3104.     property TabIndex: Smallint dispid 291;
  3105.     property HideDuplicates: WordBool dispid 65;
  3106.     property Left: Smallint dispid 54;
  3107.     property Top: Smallint dispid 138;
  3108.     property Width: Smallint dispid 147;
  3109.     property Height: Smallint dispid 44;
  3110.     property SpecialEffect: Byte dispid 4;
  3111.     property BorderStyle: Byte dispid 9;
  3112.     property OldBorderStyle: Byte dispid 371;
  3113.     property BorderWidth: Byte dispid 10;
  3114.     property BorderLineStyle: Byte dispid 11;
  3115.     property BorderColor: Integer dispid 8;
  3116.     property ShortcutMenuBar: WideString dispid 336;
  3117.     property ControlTipText: WideString dispid 362;
  3118.     property HelpContextId: Integer dispid 218;
  3119.     property ColumnWidth: Smallint dispid 163;
  3120.     property ColumnOrder: Smallint dispid 162;
  3121.     property ColumnHidden: WordBool dispid 164;
  3122.     property AutoLabel: WordBool dispid 57;
  3123.     property AddColon: WordBool dispid 3;
  3124.     property LabelX: Smallint dispid 52;
  3125.     property LabelY: Smallint dispid 53;
  3126.     property LabelAlign: Byte dispid 51;
  3127.     property Section: Smallint dispid 238;
  3128.     property ControlName: WideString dispid 296;
  3129.     property Tag: WideString dispid 297;
  3130.     property IsVisible: WordBool dispid 137;
  3131.     property InSelection: WordBool dispid 312;
  3132.     property BeforeUpdate: WideString dispid 81;
  3133.     property AfterUpdate: WideString dispid 82;
  3134.     property OnEnter: WideString dispid 221;
  3135.     property OnExit: WideString dispid 222;
  3136.     property OnGotFocus: WideString dispid 112;
  3137.     property OnLostFocus: WideString dispid 113;
  3138.     property OnClick: WideString dispid 123;
  3139.     property OnDblClick: WideString dispid 223;
  3140.     property OnMouseDown: WideString dispid 104;
  3141.     property OnMouseMove: WideString dispid 106;
  3142.     property OnMouseUp: WideString dispid 105;
  3143.     property OnKeyDown: WideString dispid 101;
  3144.     property OnKeyUp: WideString dispid 102;
  3145.     property OnKeyPress: WideString dispid 103;
  3146.   end;
  3147.  
  3148. // *********************************************************************//
  3149. // Interface: _OptionButtonEvents
  3150. // Flags:     (16) Hidden
  3151. // GUID:      {BC9E4346-F037-11CD-8701-00AA003F0F07}
  3152. // *********************************************************************//
  3153.   _OptionButtonEvents = interface(IUnknown)
  3154.     ['{BC9E4346-F037-11CD-8701-00AA003F0F07}']
  3155.     function  Click: HResult; stdcall;
  3156.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  3157.     function  AfterUpdate: HResult; stdcall;
  3158.     function  Enter: HResult; stdcall;
  3159.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  3160.     function  GotFocus: HResult; stdcall;
  3161.     function  LostFocus: HResult; stdcall;
  3162.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  3163.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3164.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3165.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3166.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3167.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  3168.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3169.   end;
  3170.  
  3171. // *********************************************************************//
  3172. // Interface: _OptionButtonInOptionEvents
  3173. // Flags:     (16) Hidden
  3174. // GUID:      {BC9E435B-F037-11CD-8701-00AA003F0F07}
  3175. // *********************************************************************//
  3176.   _OptionButtonInOptionEvents = interface(IUnknown)
  3177.     ['{BC9E435B-F037-11CD-8701-00AA003F0F07}']
  3178.     function  GotFocus: HResult; stdcall;
  3179.     function  LostFocus: HResult; stdcall;
  3180.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3181.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3182.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3183.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3184.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  3185.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3186.   end;
  3187.  
  3188. // *********************************************************************//
  3189. // Interface: _Checkbox
  3190. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3191. // GUID:      {3B06E954-E47C-11CD-8701-00AA003F0F07}
  3192. // *********************************************************************//
  3193.   _Checkbox = interface(IDispatch)
  3194.     ['{3B06E954-E47C-11CD-8701-00AA003F0F07}']
  3195.     function  Get_Application: Application; safecall;
  3196.     function  Get_Parent: IDispatch; safecall;
  3197.     procedure Undo; safecall;
  3198.     function  Get_OldValue: OleVariant; safecall;
  3199.     function  Get_Properties: Properties; safecall;
  3200.     procedure SizeToFit; safecall;
  3201.     procedure Requery; safecall;
  3202.     procedure Goto_; safecall;
  3203.     procedure SetFocus; safecall;
  3204.     function  Get_Controls: Children; safecall;
  3205.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  3206.     function  Get_Value: OleVariant; safecall;
  3207.     procedure Set_Value(pRet: OleVariant); safecall;
  3208.     function  Get_EventProcPrefix: WideString; safecall;
  3209.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  3210.     function  Get_Name: WideString; safecall;
  3211.     procedure Set_Name(const pRet: WideString); safecall;
  3212.     function  Get_ControlType: Byte; safecall;
  3213.     procedure Set_ControlType(pRet: Byte); safecall;
  3214.     function  Get_OptionValue: Integer; safecall;
  3215.     procedure Set_OptionValue(pRet: Integer); safecall;
  3216.     function  Get_ControlSource: WideString; safecall;
  3217.     procedure Set_ControlSource(const pRet: WideString); safecall;
  3218.     function  Get_DefaultValue: WideString; safecall;
  3219.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  3220.     function  Get_ValidationRule: WideString; safecall;
  3221.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  3222.     function  Get_ValidationText: WideString; safecall;
  3223.     procedure Set_ValidationText(const pRet: WideString); safecall;
  3224.     function  Get_StatusBarText: WideString; safecall;
  3225.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  3226.     function  Get_Visible: WordBool; safecall;
  3227.     procedure Set_Visible(pRet: WordBool); safecall;
  3228.     function  Get_DisplayWhen: Byte; safecall;
  3229.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  3230.     function  Get_Enabled: WordBool; safecall;
  3231.     procedure Set_Enabled(pRet: WordBool); safecall;
  3232.     function  Get_Locked: WordBool; safecall;
  3233.     procedure Set_Locked(pRet: WordBool); safecall;
  3234.     function  Get_TripleState: WordBool; safecall;
  3235.     procedure Set_TripleState(pRet: WordBool); safecall;
  3236.     function  Get_TabStop: WordBool; safecall;
  3237.     procedure Set_TabStop(pRet: WordBool); safecall;
  3238.     function  Get_TabIndex: Smallint; safecall;
  3239.     procedure Set_TabIndex(pRet: Smallint); safecall;
  3240.     function  Get_HideDuplicates: WordBool; safecall;
  3241.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  3242.     function  Get_Left: Smallint; safecall;
  3243.     procedure Set_Left(pRet: Smallint); safecall;
  3244.     function  Get_Top: Smallint; safecall;
  3245.     procedure Set_Top(pRet: Smallint); safecall;
  3246.     function  Get_Width: Smallint; safecall;
  3247.     procedure Set_Width(pRet: Smallint); safecall;
  3248.     function  Get_Height: Smallint; safecall;
  3249.     procedure Set_Height(pRet: Smallint); safecall;
  3250.     function  Get_SpecialEffect: Byte; safecall;
  3251.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  3252.     function  Get_BorderStyle: Byte; safecall;
  3253.     procedure Set_BorderStyle(pRet: Byte); safecall;
  3254.     function  Get_OldBorderStyle: Byte; safecall;
  3255.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  3256.     function  Get_BorderWidth: Byte; safecall;
  3257.     procedure Set_BorderWidth(pRet: Byte); safecall;
  3258.     function  Get_BorderLineStyle: Byte; safecall;
  3259.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  3260.     function  Get_BorderColor: Integer; safecall;
  3261.     procedure Set_BorderColor(pRet: Integer); safecall;
  3262.     function  Get_ShortcutMenuBar: WideString; safecall;
  3263.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  3264.     function  Get_ControlTipText: WideString; safecall;
  3265.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  3266.     function  Get_HelpContextId: Integer; safecall;
  3267.     procedure Set_HelpContextId(pRet: Integer); safecall;
  3268.     function  Get_ColumnWidth: Smallint; safecall;
  3269.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  3270.     function  Get_ColumnOrder: Smallint; safecall;
  3271.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  3272.     function  Get_ColumnHidden: WordBool; safecall;
  3273.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  3274.     function  Get_AutoLabel: WordBool; safecall;
  3275.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  3276.     function  Get_AddColon: WordBool; safecall;
  3277.     procedure Set_AddColon(pRet: WordBool); safecall;
  3278.     function  Get_LabelX: Smallint; safecall;
  3279.     procedure Set_LabelX(pRet: Smallint); safecall;
  3280.     function  Get_LabelY: Smallint; safecall;
  3281.     procedure Set_LabelY(pRet: Smallint); safecall;
  3282.     function  Get_LabelAlign: Byte; safecall;
  3283.     procedure Set_LabelAlign(pRet: Byte); safecall;
  3284.     function  Get_Section: Smallint; safecall;
  3285.     procedure Set_Section(pRet: Smallint); safecall;
  3286.     function  Get_ControlName: WideString; safecall;
  3287.     procedure Set_ControlName(const pRet: WideString); safecall;
  3288.     function  Get_Tag: WideString; safecall;
  3289.     procedure Set_Tag(const pRet: WideString); safecall;
  3290.     function  Get_IsVisible: WordBool; safecall;
  3291.     procedure Set_IsVisible(pRet: WordBool); safecall;
  3292.     function  Get_InSelection: WordBool; safecall;
  3293.     procedure Set_InSelection(pRet: WordBool); safecall;
  3294.     function  Get_BeforeUpdate: WideString; safecall;
  3295.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  3296.     function  Get_AfterUpdate: WideString; safecall;
  3297.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  3298.     function  Get_OnEnter: WideString; safecall;
  3299.     procedure Set_OnEnter(const pRet: WideString); safecall;
  3300.     function  Get_OnExit: WideString; safecall;
  3301.     procedure Set_OnExit(const pRet: WideString); safecall;
  3302.     function  Get_OnGotFocus: WideString; safecall;
  3303.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  3304.     function  Get_OnLostFocus: WideString; safecall;
  3305.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  3306.     function  Get_OnClick: WideString; safecall;
  3307.     procedure Set_OnClick(const pRet: WideString); safecall;
  3308.     function  Get_OnDblClick: WideString; safecall;
  3309.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  3310.     function  Get_OnMouseDown: WideString; safecall;
  3311.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  3312.     function  Get_OnMouseMove: WideString; safecall;
  3313.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  3314.     function  Get_OnMouseUp: WideString; safecall;
  3315.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  3316.     function  Get_OnKeyDown: WideString; safecall;
  3317.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  3318.     function  Get_OnKeyUp: WideString; safecall;
  3319.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  3320.     function  Get_OnKeyPress: WideString; safecall;
  3321.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  3322.     property Application: Application read Get_Application;
  3323.     property Parent: IDispatch read Get_Parent;
  3324.     property OldValue: OleVariant read Get_OldValue;
  3325.     property Properties: Properties read Get_Properties;
  3326.     property Controls: Children read Get_Controls;
  3327.     property Value: OleVariant read Get_Value write Set_Value;
  3328.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  3329.     property Name: WideString read Get_Name write Set_Name;
  3330.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  3331.     property OptionValue: Integer read Get_OptionValue write Set_OptionValue;
  3332.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  3333.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  3334.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  3335.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  3336.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  3337.     property Visible: WordBool read Get_Visible write Set_Visible;
  3338.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  3339.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3340.     property Locked: WordBool read Get_Locked write Set_Locked;
  3341.     property TripleState: WordBool read Get_TripleState write Set_TripleState;
  3342.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  3343.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  3344.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  3345.     property Left: Smallint read Get_Left write Set_Left;
  3346.     property Top: Smallint read Get_Top write Set_Top;
  3347.     property Width: Smallint read Get_Width write Set_Width;
  3348.     property Height: Smallint read Get_Height write Set_Height;
  3349.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  3350.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  3351.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  3352.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  3353.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  3354.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  3355.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  3356.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  3357.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  3358.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  3359.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  3360.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  3361.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  3362.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  3363.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  3364.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  3365.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  3366.     property Section: Smallint read Get_Section write Set_Section;
  3367.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  3368.     property Tag: WideString read Get_Tag write Set_Tag;
  3369.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  3370.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  3371.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  3372.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  3373.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  3374.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  3375.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  3376.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  3377.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  3378.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  3379.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  3380.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  3381.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  3382.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  3383.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  3384.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  3385.   end;
  3386.  
  3387. // *********************************************************************//
  3388. // DispIntf:  _CheckboxDisp
  3389. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3390. // GUID:      {3B06E954-E47C-11CD-8701-00AA003F0F07}
  3391. // *********************************************************************//
  3392.   _CheckboxDisp = dispinterface
  3393.     ['{3B06E954-E47C-11CD-8701-00AA003F0F07}']
  3394.     property Application: Application readonly dispid 2005;
  3395.     property Parent: IDispatch readonly dispid 2087;
  3396.     procedure Undo; dispid 2144;
  3397.     property OldValue: OleVariant readonly dispid 2102;
  3398.     property Properties: Properties readonly dispid 2091;
  3399.     procedure SizeToFit; dispid 2151;
  3400.     procedure Requery; dispid 2018;
  3401.     procedure Goto_; dispid 2023;
  3402.     procedure SetFocus; dispid 2022;
  3403.     property Controls: Children readonly dispid 2190;
  3404.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  3405.     property Value: OleVariant dispid 0;
  3406.     property EventProcPrefix: WideString dispid 22;
  3407.     property Name: WideString dispid 20;
  3408.     property ControlType: Byte dispid 21;
  3409.     property OptionValue: Integer dispid 58;
  3410.     property ControlSource: WideString dispid 27;
  3411.     property DefaultValue: WideString dispid 23;
  3412.     property ValidationRule: WideString dispid 142;
  3413.     property ValidationText: WideString dispid 61;
  3414.     property StatusBarText: WideString dispid 132;
  3415.     property Visible: WordBool dispid 145;
  3416.     property DisplayWhen: Byte dispid 146;
  3417.     property Enabled: WordBool dispid 25;
  3418.     property Locked: WordBool dispid 56;
  3419.     property TripleState: WordBool dispid 326;
  3420.     property TabStop: WordBool dispid 292;
  3421.     property TabIndex: Smallint dispid 291;
  3422.     property HideDuplicates: WordBool dispid 65;
  3423.     property Left: Smallint dispid 54;
  3424.     property Top: Smallint dispid 138;
  3425.     property Width: Smallint dispid 147;
  3426.     property Height: Smallint dispid 44;
  3427.     property SpecialEffect: Byte dispid 4;
  3428.     property BorderStyle: Byte dispid 9;
  3429.     property OldBorderStyle: Byte dispid 371;
  3430.     property BorderWidth: Byte dispid 10;
  3431.     property BorderLineStyle: Byte dispid 11;
  3432.     property BorderColor: Integer dispid 8;
  3433.     property ShortcutMenuBar: WideString dispid 336;
  3434.     property ControlTipText: WideString dispid 362;
  3435.     property HelpContextId: Integer dispid 218;
  3436.     property ColumnWidth: Smallint dispid 163;
  3437.     property ColumnOrder: Smallint dispid 162;
  3438.     property ColumnHidden: WordBool dispid 164;
  3439.     property AutoLabel: WordBool dispid 57;
  3440.     property AddColon: WordBool dispid 3;
  3441.     property LabelX: Smallint dispid 52;
  3442.     property LabelY: Smallint dispid 53;
  3443.     property LabelAlign: Byte dispid 51;
  3444.     property Section: Smallint dispid 238;
  3445.     property ControlName: WideString dispid 296;
  3446.     property Tag: WideString dispid 297;
  3447.     property IsVisible: WordBool dispid 137;
  3448.     property InSelection: WordBool dispid 312;
  3449.     property BeforeUpdate: WideString dispid 81;
  3450.     property AfterUpdate: WideString dispid 82;
  3451.     property OnEnter: WideString dispid 221;
  3452.     property OnExit: WideString dispid 222;
  3453.     property OnGotFocus: WideString dispid 112;
  3454.     property OnLostFocus: WideString dispid 113;
  3455.     property OnClick: WideString dispid 123;
  3456.     property OnDblClick: WideString dispid 223;
  3457.     property OnMouseDown: WideString dispid 104;
  3458.     property OnMouseMove: WideString dispid 106;
  3459.     property OnMouseUp: WideString dispid 105;
  3460.     property OnKeyDown: WideString dispid 101;
  3461.     property OnKeyUp: WideString dispid 102;
  3462.     property OnKeyPress: WideString dispid 103;
  3463.   end;
  3464.  
  3465. // *********************************************************************//
  3466. // Interface: _CheckBoxEvents
  3467. // Flags:     (16) Hidden
  3468. // GUID:      {BC9E4347-F037-11CD-8701-00AA003F0F07}
  3469. // *********************************************************************//
  3470.   _CheckBoxEvents = interface(IUnknown)
  3471.     ['{BC9E4347-F037-11CD-8701-00AA003F0F07}']
  3472.     function  Click: HResult; stdcall;
  3473.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  3474.     function  AfterUpdate: HResult; stdcall;
  3475.     function  Enter: HResult; stdcall;
  3476.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  3477.     function  GotFocus: HResult; stdcall;
  3478.     function  LostFocus: HResult; stdcall;
  3479.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  3480.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3481.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3482.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3483.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3484.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  3485.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3486.   end;
  3487.  
  3488. // *********************************************************************//
  3489. // Interface: _CheckBoxInOptionEvents
  3490. // Flags:     (16) Hidden
  3491. // GUID:      {BC9E435D-F037-11CD-8701-00AA003F0F07}
  3492. // *********************************************************************//
  3493.   _CheckBoxInOptionEvents = interface(IUnknown)
  3494.     ['{BC9E435D-F037-11CD-8701-00AA003F0F07}']
  3495.     function  GotFocus: HResult; stdcall;
  3496.     function  LostFocus: HResult; stdcall;
  3497.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3498.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3499.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3500.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3501.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  3502.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  3503.   end;
  3504.  
  3505. // *********************************************************************//
  3506. // Interface: _OptionGroup
  3507. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3508. // GUID:      {3B06E956-E47C-11CD-8701-00AA003F0F07}
  3509. // *********************************************************************//
  3510.   _OptionGroup = interface(IDispatch)
  3511.     ['{3B06E956-E47C-11CD-8701-00AA003F0F07}']
  3512.     function  Get_Application: Application; safecall;
  3513.     function  Get_Parent: IDispatch; safecall;
  3514.     procedure Undo; safecall;
  3515.     function  Get_OldValue: OleVariant; safecall;
  3516.     function  Get_Properties: Properties; safecall;
  3517.     procedure SizeToFit; safecall;
  3518.     procedure Requery; safecall;
  3519.     procedure Goto_; safecall;
  3520.     procedure SetFocus; safecall;
  3521.     function  Get_Controls: Children; safecall;
  3522.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  3523.     function  Get_Value: OleVariant; safecall;
  3524.     procedure Set_Value(pRet: OleVariant); safecall;
  3525.     function  Get_EventProcPrefix: WideString; safecall;
  3526.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  3527.     function  Get_Name: WideString; safecall;
  3528.     procedure Set_Name(const pRet: WideString); safecall;
  3529.     function  Get_ControlType: Byte; safecall;
  3530.     procedure Set_ControlType(pRet: Byte); safecall;
  3531.     function  Get_ControlSource: WideString; safecall;
  3532.     procedure Set_ControlSource(const pRet: WideString); safecall;
  3533.     function  Get_DefaultValue: WideString; safecall;
  3534.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  3535.     function  Get_ValidationRule: WideString; safecall;
  3536.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  3537.     function  Get_ValidationText: WideString; safecall;
  3538.     procedure Set_ValidationText(const pRet: WideString); safecall;
  3539.     function  Get_StatusBarText: WideString; safecall;
  3540.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  3541.     function  Get_Visible: WordBool; safecall;
  3542.     procedure Set_Visible(pRet: WordBool); safecall;
  3543.     function  Get_DisplayWhen: Byte; safecall;
  3544.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  3545.     function  Get_Enabled: WordBool; safecall;
  3546.     procedure Set_Enabled(pRet: WordBool); safecall;
  3547.     function  Get_Locked: WordBool; safecall;
  3548.     procedure Set_Locked(pRet: WordBool); safecall;
  3549.     function  Get_TabStop: WordBool; safecall;
  3550.     procedure Set_TabStop(pRet: WordBool); safecall;
  3551.     function  Get_TabIndex: Smallint; safecall;
  3552.     procedure Set_TabIndex(pRet: Smallint); safecall;
  3553.     function  Get_HideDuplicates: WordBool; safecall;
  3554.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  3555.     function  Get_Left: Smallint; safecall;
  3556.     procedure Set_Left(pRet: Smallint); safecall;
  3557.     function  Get_Top: Smallint; safecall;
  3558.     procedure Set_Top(pRet: Smallint); safecall;
  3559.     function  Get_Width: Smallint; safecall;
  3560.     procedure Set_Width(pRet: Smallint); safecall;
  3561.     function  Get_Height: Smallint; safecall;
  3562.     procedure Set_Height(pRet: Smallint); safecall;
  3563.     function  Get_BackStyle: Byte; safecall;
  3564.     procedure Set_BackStyle(pRet: Byte); safecall;
  3565.     function  Get_BackColor: Integer; safecall;
  3566.     procedure Set_BackColor(pRet: Integer); safecall;
  3567.     function  Get_SpecialEffect: Byte; safecall;
  3568.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  3569.     function  Get_BorderStyle: Byte; safecall;
  3570.     procedure Set_BorderStyle(pRet: Byte); safecall;
  3571.     function  Get_OldBorderStyle: Byte; safecall;
  3572.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  3573.     function  Get_BorderColor: Integer; safecall;
  3574.     procedure Set_BorderColor(pRet: Integer); safecall;
  3575.     function  Get_BorderWidth: Byte; safecall;
  3576.     procedure Set_BorderWidth(pRet: Byte); safecall;
  3577.     function  Get_BorderLineStyle: Byte; safecall;
  3578.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  3579.     function  Get_ShortcutMenuBar: WideString; safecall;
  3580.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  3581.     function  Get_ControlTipText: WideString; safecall;
  3582.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  3583.     function  Get_HelpContextId: Integer; safecall;
  3584.     procedure Set_HelpContextId(pRet: Integer); safecall;
  3585.     function  Get_ColumnWidth: Smallint; safecall;
  3586.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  3587.     function  Get_ColumnOrder: Smallint; safecall;
  3588.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  3589.     function  Get_ColumnHidden: WordBool; safecall;
  3590.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  3591.     function  Get_AutoLabel: WordBool; safecall;
  3592.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  3593.     function  Get_AddColon: WordBool; safecall;
  3594.     procedure Set_AddColon(pRet: WordBool); safecall;
  3595.     function  Get_LabelX: Smallint; safecall;
  3596.     procedure Set_LabelX(pRet: Smallint); safecall;
  3597.     function  Get_LabelY: Smallint; safecall;
  3598.     procedure Set_LabelY(pRet: Smallint); safecall;
  3599.     function  Get_LabelAlign: Byte; safecall;
  3600.     procedure Set_LabelAlign(pRet: Byte); safecall;
  3601.     function  Get_Section: Smallint; safecall;
  3602.     procedure Set_Section(pRet: Smallint); safecall;
  3603.     function  Get_ControlName: WideString; safecall;
  3604.     procedure Set_ControlName(const pRet: WideString); safecall;
  3605.     function  Get_Tag: WideString; safecall;
  3606.     procedure Set_Tag(const pRet: WideString); safecall;
  3607.     function  Get_IsVisible: WordBool; safecall;
  3608.     procedure Set_IsVisible(pRet: WordBool); safecall;
  3609.     function  Get_InSelection: WordBool; safecall;
  3610.     procedure Set_InSelection(pRet: WordBool); safecall;
  3611.     function  Get_BeforeUpdate: WideString; safecall;
  3612.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  3613.     function  Get_AfterUpdate: WideString; safecall;
  3614.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  3615.     function  Get_OnEnter: WideString; safecall;
  3616.     procedure Set_OnEnter(const pRet: WideString); safecall;
  3617.     function  Get_OnExit: WideString; safecall;
  3618.     procedure Set_OnExit(const pRet: WideString); safecall;
  3619.     function  Get_OnClick: WideString; safecall;
  3620.     procedure Set_OnClick(const pRet: WideString); safecall;
  3621.     function  Get_OnDblClick: WideString; safecall;
  3622.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  3623.     function  Get_OnMouseDown: WideString; safecall;
  3624.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  3625.     function  Get_OnMouseMove: WideString; safecall;
  3626.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  3627.     function  Get_OnMouseUp: WideString; safecall;
  3628.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  3629.     property Application: Application read Get_Application;
  3630.     property Parent: IDispatch read Get_Parent;
  3631.     property OldValue: OleVariant read Get_OldValue;
  3632.     property Properties: Properties read Get_Properties;
  3633.     property Controls: Children read Get_Controls;
  3634.     property Value: OleVariant read Get_Value write Set_Value;
  3635.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  3636.     property Name: WideString read Get_Name write Set_Name;
  3637.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  3638.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  3639.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  3640.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  3641.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  3642.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  3643.     property Visible: WordBool read Get_Visible write Set_Visible;
  3644.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  3645.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3646.     property Locked: WordBool read Get_Locked write Set_Locked;
  3647.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  3648.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  3649.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  3650.     property Left: Smallint read Get_Left write Set_Left;
  3651.     property Top: Smallint read Get_Top write Set_Top;
  3652.     property Width: Smallint read Get_Width write Set_Width;
  3653.     property Height: Smallint read Get_Height write Set_Height;
  3654.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  3655.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  3656.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  3657.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  3658.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  3659.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  3660.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  3661.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  3662.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  3663.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  3664.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  3665.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  3666.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  3667.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  3668.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  3669.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  3670.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  3671.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  3672.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  3673.     property Section: Smallint read Get_Section write Set_Section;
  3674.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  3675.     property Tag: WideString read Get_Tag write Set_Tag;
  3676.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  3677.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  3678.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  3679.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  3680.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  3681.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  3682.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  3683.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  3684.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  3685.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  3686.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  3687.   end;
  3688.  
  3689. // *********************************************************************//
  3690. // DispIntf:  _OptionGroupDisp
  3691. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3692. // GUID:      {3B06E956-E47C-11CD-8701-00AA003F0F07}
  3693. // *********************************************************************//
  3694.   _OptionGroupDisp = dispinterface
  3695.     ['{3B06E956-E47C-11CD-8701-00AA003F0F07}']
  3696.     property Application: Application readonly dispid 2005;
  3697.     property Parent: IDispatch readonly dispid 2087;
  3698.     procedure Undo; dispid 2144;
  3699.     property OldValue: OleVariant readonly dispid 2102;
  3700.     property Properties: Properties readonly dispid 2091;
  3701.     procedure SizeToFit; dispid 2151;
  3702.     procedure Requery; dispid 2018;
  3703.     procedure Goto_; dispid 2023;
  3704.     procedure SetFocus; dispid 2022;
  3705.     property Controls: Children readonly dispid 2190;
  3706.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  3707.     property Value: OleVariant dispid 0;
  3708.     property EventProcPrefix: WideString dispid 22;
  3709.     property Name: WideString dispid 20;
  3710.     property ControlType: Byte dispid 21;
  3711.     property ControlSource: WideString dispid 27;
  3712.     property DefaultValue: WideString dispid 23;
  3713.     property ValidationRule: WideString dispid 142;
  3714.     property ValidationText: WideString dispid 61;
  3715.     property StatusBarText: WideString dispid 132;
  3716.     property Visible: WordBool dispid 145;
  3717.     property DisplayWhen: Byte dispid 146;
  3718.     property Enabled: WordBool dispid 25;
  3719.     property Locked: WordBool dispid 56;
  3720.     property TabStop: WordBool dispid 292;
  3721.     property TabIndex: Smallint dispid 291;
  3722.     property HideDuplicates: WordBool dispid 65;
  3723.     property Left: Smallint dispid 54;
  3724.     property Top: Smallint dispid 138;
  3725.     property Width: Smallint dispid 147;
  3726.     property Height: Smallint dispid 44;
  3727.     property BackStyle: Byte dispid 29;
  3728.     property BackColor: Integer dispid 28;
  3729.     property SpecialEffect: Byte dispid 4;
  3730.     property BorderStyle: Byte dispid 9;
  3731.     property OldBorderStyle: Byte dispid 371;
  3732.     property BorderColor: Integer dispid 8;
  3733.     property BorderWidth: Byte dispid 10;
  3734.     property BorderLineStyle: Byte dispid 11;
  3735.     property ShortcutMenuBar: WideString dispid 336;
  3736.     property ControlTipText: WideString dispid 362;
  3737.     property HelpContextId: Integer dispid 218;
  3738.     property ColumnWidth: Smallint dispid 163;
  3739.     property ColumnOrder: Smallint dispid 162;
  3740.     property ColumnHidden: WordBool dispid 164;
  3741.     property AutoLabel: WordBool dispid 57;
  3742.     property AddColon: WordBool dispid 3;
  3743.     property LabelX: Smallint dispid 52;
  3744.     property LabelY: Smallint dispid 53;
  3745.     property LabelAlign: Byte dispid 51;
  3746.     property Section: Smallint dispid 238;
  3747.     property ControlName: WideString dispid 296;
  3748.     property Tag: WideString dispid 297;
  3749.     property IsVisible: WordBool dispid 137;
  3750.     property InSelection: WordBool dispid 312;
  3751.     property BeforeUpdate: WideString dispid 81;
  3752.     property AfterUpdate: WideString dispid 82;
  3753.     property OnEnter: WideString dispid 221;
  3754.     property OnExit: WideString dispid 222;
  3755.     property OnClick: WideString dispid 123;
  3756.     property OnDblClick: WideString dispid 223;
  3757.     property OnMouseDown: WideString dispid 104;
  3758.     property OnMouseMove: WideString dispid 106;
  3759.     property OnMouseUp: WideString dispid 105;
  3760.   end;
  3761.  
  3762. // *********************************************************************//
  3763. // Interface: _OptionGroupEvents
  3764. // Flags:     (16) Hidden
  3765. // GUID:      {BC9E4348-F037-11CD-8701-00AA003F0F07}
  3766. // *********************************************************************//
  3767.   _OptionGroupEvents = interface(IUnknown)
  3768.     ['{BC9E4348-F037-11CD-8701-00AA003F0F07}']
  3769.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  3770.     function  AfterUpdate: HResult; stdcall;
  3771.     function  Enter: HResult; stdcall;
  3772.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  3773.     function  Click: HResult; stdcall;
  3774.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  3775.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3776.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3777.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  3778.   end;
  3779.  
  3780. // *********************************************************************//
  3781. // Interface: _BoundObjectFrame
  3782. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  3783. // GUID:      {3B06E958-E47C-11CD-8701-00AA003F0F07}
  3784. // *********************************************************************//
  3785.   _BoundObjectFrame = interface(IDispatch)
  3786.     ['{3B06E958-E47C-11CD-8701-00AA003F0F07}']
  3787.     function  Get_Application: Application; safecall;
  3788.     function  Get_Parent: IDispatch; safecall;
  3789.     function  Get_OldValue: OleVariant; safecall;
  3790.     function  Get_Object_: IDispatch; safecall;
  3791.     function  Get_ObjectVerbs(Index: Integer): WideString; safecall;
  3792.     function  Get_Properties: Properties; safecall;
  3793.     procedure SizeToFit; safecall;
  3794.     procedure Requery; safecall;
  3795.     procedure Goto_; safecall;
  3796.     procedure SetFocus; safecall;
  3797.     function  Get_Controls: Children; safecall;
  3798.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  3799.     function  Get_Value: OleVariant; safecall;
  3800.     procedure Set_Value(pRet: OleVariant); safecall;
  3801.     function  Get_EventProcPrefix: WideString; safecall;
  3802.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  3803.     function  Get_Name: WideString; safecall;
  3804.     procedure Set_Name(const pRet: WideString); safecall;
  3805.     function  Get_ControlType: Byte; safecall;
  3806.     procedure Set_ControlType(pRet: Byte); safecall;
  3807.     function  Get_ControlSource: WideString; safecall;
  3808.     procedure Set_ControlSource(const pRet: WideString); safecall;
  3809.     function  Get_SizeMode: Byte; safecall;
  3810.     procedure Set_SizeMode(pRet: Byte); safecall;
  3811.     function  Get_Class_: WideString; safecall;
  3812.     procedure Set_Class_(const pRet: WideString); safecall;
  3813.     function  Get_SourceDoc: WideString; safecall;
  3814.     procedure Set_SourceDoc(const pRet: WideString); safecall;
  3815.     function  Get_SourceItem: WideString; safecall;
  3816.     procedure Set_SourceItem(const pRet: WideString); safecall;
  3817.     function  Get_AutoActivate: Smallint; safecall;
  3818.     procedure Set_AutoActivate(pRet: Smallint); safecall;
  3819.     function  Get_DisplayType: WordBool; safecall;
  3820.     procedure Set_DisplayType(pRet: WordBool); safecall;
  3821.     function  Get_UpdateOptions: Smallint; safecall;
  3822.     procedure Set_UpdateOptions(pRet: Smallint); safecall;
  3823.     function  Get_Verb: Integer; safecall;
  3824.     procedure Set_Verb(pRet: Integer); safecall;
  3825.     function  Get_OLETypeAllowed: Byte; safecall;
  3826.     procedure Set_OLETypeAllowed(pRet: Byte); safecall;
  3827.     function  Get_StatusBarText: WideString; safecall;
  3828.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  3829.     function  Get_Visible: WordBool; safecall;
  3830.     procedure Set_Visible(pRet: WordBool); safecall;
  3831.     function  Get_DisplayWhen: Byte; safecall;
  3832.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  3833.     function  Get_Enabled: WordBool; safecall;
  3834.     procedure Set_Enabled(pRet: WordBool); safecall;
  3835.     function  Get_Locked: WordBool; safecall;
  3836.     procedure Set_Locked(pRet: WordBool); safecall;
  3837.     function  Get_TabStop: WordBool; safecall;
  3838.     procedure Set_TabStop(pRet: WordBool); safecall;
  3839.     function  Get_TabIndex: Smallint; safecall;
  3840.     procedure Set_TabIndex(pRet: Smallint); safecall;
  3841.     function  Get_Left: Smallint; safecall;
  3842.     procedure Set_Left(pRet: Smallint); safecall;
  3843.     function  Get_Top: Smallint; safecall;
  3844.     procedure Set_Top(pRet: Smallint); safecall;
  3845.     function  Get_Width: Smallint; safecall;
  3846.     procedure Set_Width(pRet: Smallint); safecall;
  3847.     function  Get_Height: Smallint; safecall;
  3848.     procedure Set_Height(pRet: Smallint); safecall;
  3849.     function  Get_BackStyle: Byte; safecall;
  3850.     procedure Set_BackStyle(pRet: Byte); safecall;
  3851.     function  Get_BackColor: Integer; safecall;
  3852.     procedure Set_BackColor(pRet: Integer); safecall;
  3853.     function  Get_SpecialEffect: Byte; safecall;
  3854.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  3855.     function  Get_BorderStyle: Byte; safecall;
  3856.     procedure Set_BorderStyle(pRet: Byte); safecall;
  3857.     function  Get_OldBorderStyle: Byte; safecall;
  3858.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  3859.     function  Get_BorderColor: Integer; safecall;
  3860.     procedure Set_BorderColor(pRet: Integer); safecall;
  3861.     function  Get_BorderWidth: Byte; safecall;
  3862.     procedure Set_BorderWidth(pRet: Byte); safecall;
  3863.     function  Get_BorderLineStyle: Byte; safecall;
  3864.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  3865.     function  Get_ShortcutMenuBar: WideString; safecall;
  3866.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  3867.     function  Get_ControlTipText: WideString; safecall;
  3868.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  3869.     function  Get_HelpContextId: Integer; safecall;
  3870.     procedure Set_HelpContextId(pRet: Integer); safecall;
  3871.     function  Get_ColumnWidth: Smallint; safecall;
  3872.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  3873.     function  Get_ColumnOrder: Smallint; safecall;
  3874.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  3875.     function  Get_ColumnHidden: WordBool; safecall;
  3876.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  3877.     function  Get_AutoLabel: WordBool; safecall;
  3878.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  3879.     function  Get_AddColon: WordBool; safecall;
  3880.     procedure Set_AddColon(pRet: WordBool); safecall;
  3881.     function  Get_LabelX: Smallint; safecall;
  3882.     procedure Set_LabelX(pRet: Smallint); safecall;
  3883.     function  Get_LabelY: Smallint; safecall;
  3884.     procedure Set_LabelY(pRet: Smallint); safecall;
  3885.     function  Get_LabelAlign: Byte; safecall;
  3886.     procedure Set_LabelAlign(pRet: Byte); safecall;
  3887.     function  Get_Section: Smallint; safecall;
  3888.     procedure Set_Section(pRet: Smallint); safecall;
  3889.     function  Get_ControlName: WideString; safecall;
  3890.     procedure Set_ControlName(const pRet: WideString); safecall;
  3891.     function  Get_Tag: WideString; safecall;
  3892.     procedure Set_Tag(const pRet: WideString); safecall;
  3893.     function  Get_ObjectPalette: OleVariant; safecall;
  3894.     procedure Set_ObjectPalette(pRet: OleVariant); safecall;
  3895.     function  Get_LpOleObject: Integer; safecall;
  3896.     procedure Set_LpOleObject(pRet: Integer); safecall;
  3897.     function  Get_ObjectVerbsCount: Integer; safecall;
  3898.     procedure Set_ObjectVerbsCount(pRet: Integer); safecall;
  3899.     function  Get_Action: Smallint; safecall;
  3900.     procedure Set_Action(pRet: Smallint); safecall;
  3901.     function  Get_Scaling: Byte; safecall;
  3902.     procedure Set_Scaling(pRet: Byte); safecall;
  3903.     function  Get_OLEType: Byte; safecall;
  3904.     procedure Set_OLEType(pRet: Byte); safecall;
  3905.     function  Get_IsVisible: WordBool; safecall;
  3906.     procedure Set_IsVisible(pRet: WordBool); safecall;
  3907.     function  Get_InSelection: WordBool; safecall;
  3908.     procedure Set_InSelection(pRet: WordBool); safecall;
  3909.     function  Get_BeforeUpdate: WideString; safecall;
  3910.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  3911.     function  Get_AfterUpdate: WideString; safecall;
  3912.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  3913.     function  Get_OnUpdated: WideString; safecall;
  3914.     procedure Set_OnUpdated(const pRet: WideString); safecall;
  3915.     function  Get_OnEnter: WideString; safecall;
  3916.     procedure Set_OnEnter(const pRet: WideString); safecall;
  3917.     function  Get_OnExit: WideString; safecall;
  3918.     procedure Set_OnExit(const pRet: WideString); safecall;
  3919.     function  Get_OnGotFocus: WideString; safecall;
  3920.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  3921.     function  Get_OnLostFocus: WideString; safecall;
  3922.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  3923.     function  Get_OnClick: WideString; safecall;
  3924.     procedure Set_OnClick(const pRet: WideString); safecall;
  3925.     function  Get_OnDblClick: WideString; safecall;
  3926.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  3927.     function  Get_OnMouseDown: WideString; safecall;
  3928.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  3929.     function  Get_OnMouseMove: WideString; safecall;
  3930.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  3931.     function  Get_OnMouseUp: WideString; safecall;
  3932.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  3933.     function  Get_OnKeyDown: WideString; safecall;
  3934.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  3935.     function  Get_OnKeyUp: WideString; safecall;
  3936.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  3937.     function  Get_OnKeyPress: WideString; safecall;
  3938.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  3939.     property Application: Application read Get_Application;
  3940.     property Parent: IDispatch read Get_Parent;
  3941.     property OldValue: OleVariant read Get_OldValue;
  3942.     property Object_: IDispatch read Get_Object_;
  3943.     property ObjectVerbs[Index: Integer]: WideString read Get_ObjectVerbs;
  3944.     property Properties: Properties read Get_Properties;
  3945.     property Controls: Children read Get_Controls;
  3946.     property Value: OleVariant read Get_Value write Set_Value;
  3947.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  3948.     property Name: WideString read Get_Name write Set_Name;
  3949.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  3950.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  3951.     property SizeMode: Byte read Get_SizeMode write Set_SizeMode;
  3952.     property Class_: WideString read Get_Class_ write Set_Class_;
  3953.     property SourceDoc: WideString read Get_SourceDoc write Set_SourceDoc;
  3954.     property SourceItem: WideString read Get_SourceItem write Set_SourceItem;
  3955.     property AutoActivate: Smallint read Get_AutoActivate write Set_AutoActivate;
  3956.     property DisplayType: WordBool read Get_DisplayType write Set_DisplayType;
  3957.     property UpdateOptions: Smallint read Get_UpdateOptions write Set_UpdateOptions;
  3958.     property Verb: Integer read Get_Verb write Set_Verb;
  3959.     property OLETypeAllowed: Byte read Get_OLETypeAllowed write Set_OLETypeAllowed;
  3960.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  3961.     property Visible: WordBool read Get_Visible write Set_Visible;
  3962.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  3963.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3964.     property Locked: WordBool read Get_Locked write Set_Locked;
  3965.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  3966.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  3967.     property Left: Smallint read Get_Left write Set_Left;
  3968.     property Top: Smallint read Get_Top write Set_Top;
  3969.     property Width: Smallint read Get_Width write Set_Width;
  3970.     property Height: Smallint read Get_Height write Set_Height;
  3971.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  3972.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  3973.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  3974.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  3975.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  3976.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  3977.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  3978.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  3979.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  3980.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  3981.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  3982.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  3983.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  3984.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  3985.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  3986.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  3987.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  3988.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  3989.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  3990.     property Section: Smallint read Get_Section write Set_Section;
  3991.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  3992.     property Tag: WideString read Get_Tag write Set_Tag;
  3993.     property ObjectPalette: OleVariant read Get_ObjectPalette write Set_ObjectPalette;
  3994.     property LpOleObject: Integer read Get_LpOleObject write Set_LpOleObject;
  3995.     property ObjectVerbsCount: Integer read Get_ObjectVerbsCount write Set_ObjectVerbsCount;
  3996.     property Action: Smallint read Get_Action write Set_Action;
  3997.     property Scaling: Byte read Get_Scaling write Set_Scaling;
  3998.     property OLEType: Byte read Get_OLEType write Set_OLEType;
  3999.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  4000.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  4001.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  4002.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  4003.     property OnUpdated: WideString read Get_OnUpdated write Set_OnUpdated;
  4004.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  4005.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  4006.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  4007.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  4008.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  4009.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  4010.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  4011.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  4012.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  4013.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  4014.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  4015.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  4016.   end;
  4017.  
  4018. // *********************************************************************//
  4019. // DispIntf:  _BoundObjectFrameDisp
  4020. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  4021. // GUID:      {3B06E958-E47C-11CD-8701-00AA003F0F07}
  4022. // *********************************************************************//
  4023.   _BoundObjectFrameDisp = dispinterface
  4024.     ['{3B06E958-E47C-11CD-8701-00AA003F0F07}']
  4025.     property Application: Application readonly dispid 2005;
  4026.     property Parent: IDispatch readonly dispid 2087;
  4027.     property OldValue: OleVariant readonly dispid 2102;
  4028.     property Object_: IDispatch readonly dispid 2104;
  4029.     property ObjectVerbs[Index: Integer]: WideString readonly dispid 2105;
  4030.     property Properties: Properties readonly dispid 2091;
  4031.     procedure SizeToFit; dispid 2151;
  4032.     procedure Requery; dispid 2018;
  4033.     procedure Goto_; dispid 2023;
  4034.     procedure SetFocus; dispid 2022;
  4035.     property Controls: Children readonly dispid 2190;
  4036.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  4037.     property Value: OleVariant dispid 0;
  4038.     property EventProcPrefix: WideString dispid 22;
  4039.     property Name: WideString dispid 20;
  4040.     property ControlType: Byte dispid 21;
  4041.     property ControlSource: WideString dispid 27;
  4042.     property SizeMode: Byte dispid 85;
  4043.     property Class_: WideString dispid 306;
  4044.     property SourceDoc: WideString dispid 130;
  4045.     property SourceItem: WideString dispid 48;
  4046.     property AutoActivate: Smallint dispid 98;
  4047.     property DisplayType: WordBool dispid 304;
  4048.     property UpdateOptions: Smallint dispid 100;
  4049.     property Verb: Integer dispid 99;
  4050.     property OLETypeAllowed: Byte dispid 307;
  4051.     property StatusBarText: WideString dispid 132;
  4052.     property Visible: WordBool dispid 145;
  4053.     property DisplayWhen: Byte dispid 146;
  4054.     property Enabled: WordBool dispid 25;
  4055.     property Locked: WordBool dispid 56;
  4056.     property TabStop: WordBool dispid 292;
  4057.     property TabIndex: Smallint dispid 291;
  4058.     property Left: Smallint dispid 54;
  4059.     property Top: Smallint dispid 138;
  4060.     property Width: Smallint dispid 147;
  4061.     property Height: Smallint dispid 44;
  4062.     property BackStyle: Byte dispid 29;
  4063.     property BackColor: Integer dispid 28;
  4064.     property SpecialEffect: Byte dispid 4;
  4065.     property BorderStyle: Byte dispid 9;
  4066.     property OldBorderStyle: Byte dispid 371;
  4067.     property BorderColor: Integer dispid 8;
  4068.     property BorderWidth: Byte dispid 10;
  4069.     property BorderLineStyle: Byte dispid 11;
  4070.     property ShortcutMenuBar: WideString dispid 336;
  4071.     property ControlTipText: WideString dispid 362;
  4072.     property HelpContextId: Integer dispid 218;
  4073.     property ColumnWidth: Smallint dispid 163;
  4074.     property ColumnOrder: Smallint dispid 162;
  4075.     property ColumnHidden: WordBool dispid 164;
  4076.     property AutoLabel: WordBool dispid 57;
  4077.     property AddColon: WordBool dispid 3;
  4078.     property LabelX: Smallint dispid 52;
  4079.     property LabelY: Smallint dispid 53;
  4080.     property LabelAlign: Byte dispid 51;
  4081.     property Section: Smallint dispid 238;
  4082.     property ControlName: WideString dispid 296;
  4083.     property Tag: WideString dispid 297;
  4084.     property ObjectPalette: OleVariant dispid 96;
  4085.     property LpOleObject: Integer dispid 169;
  4086.     property ObjectVerbsCount: Integer dispid 172;
  4087.     property Action: Smallint dispid 305;
  4088.     property Scaling: Byte dispid 84;
  4089.     property OLEType: Byte dispid 308;
  4090.     property IsVisible: WordBool dispid 137;
  4091.     property InSelection: WordBool dispid 312;
  4092.     property BeforeUpdate: WideString dispid 81;
  4093.     property AfterUpdate: WideString dispid 82;
  4094.     property OnUpdated: WideString dispid 115;
  4095.     property OnEnter: WideString dispid 221;
  4096.     property OnExit: WideString dispid 222;
  4097.     property OnGotFocus: WideString dispid 112;
  4098.     property OnLostFocus: WideString dispid 113;
  4099.     property OnClick: WideString dispid 123;
  4100.     property OnDblClick: WideString dispid 223;
  4101.     property OnMouseDown: WideString dispid 104;
  4102.     property OnMouseMove: WideString dispid 106;
  4103.     property OnMouseUp: WideString dispid 105;
  4104.     property OnKeyDown: WideString dispid 101;
  4105.     property OnKeyUp: WideString dispid 102;
  4106.     property OnKeyPress: WideString dispid 103;
  4107.   end;
  4108.  
  4109. // *********************************************************************//
  4110. // Interface: _BoundObjectFrameEvents
  4111. // Flags:     (16) Hidden
  4112. // GUID:      {BC9E4349-F037-11CD-8701-00AA003F0F07}
  4113. // *********************************************************************//
  4114.   _BoundObjectFrameEvents = interface(IUnknown)
  4115.     ['{BC9E4349-F037-11CD-8701-00AA003F0F07}']
  4116.     function  Updated(var Code: Smallint): HResult; stdcall;
  4117.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  4118.     function  AfterUpdate: HResult; stdcall;
  4119.     function  Enter: HResult; stdcall;
  4120.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  4121.     function  GotFocus: HResult; stdcall;
  4122.     function  LostFocus: HResult; stdcall;
  4123.     function  Click: HResult; stdcall;
  4124.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  4125.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4126.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4127.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4128.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  4129.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  4130.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  4131.   end;
  4132.  
  4133. // *********************************************************************//
  4134. // Interface: _Textbox
  4135. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4136. // GUID:      {3B06E946-E47C-11CD-8701-00AA003F0F07}
  4137. // *********************************************************************//
  4138.   _Textbox = interface(IDispatch)
  4139.     ['{3B06E946-E47C-11CD-8701-00AA003F0F07}']
  4140.     function  Get_Application: Application; safecall;
  4141.     function  Get_Parent: IDispatch; safecall;
  4142.     procedure Undo; safecall;
  4143.     function  Get_OldValue: OleVariant; safecall;
  4144.     function  Get_Properties: Properties; safecall;
  4145.     procedure SizeToFit; safecall;
  4146.     procedure Requery; safecall;
  4147.     procedure Goto_; safecall;
  4148.     procedure SetFocus; safecall;
  4149.     function  Get_Controls: Children; safecall;
  4150.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  4151.     function  Get_Hyperlink: _Hyperlink; safecall;
  4152.     function  Get_Value: OleVariant; safecall;
  4153.     procedure Set_Value(pRet: OleVariant); safecall;
  4154.     function  Get_EventProcPrefix: WideString; safecall;
  4155.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  4156.     function  Get_Name: WideString; safecall;
  4157.     procedure Set_Name(const pRet: WideString); safecall;
  4158.     function  Get_ControlType: Byte; safecall;
  4159.     procedure Set_ControlType(pRet: Byte); safecall;
  4160.     function  Get_ControlSource: WideString; safecall;
  4161.     procedure Set_ControlSource(const pRet: WideString); safecall;
  4162.     function  Get_Format: WideString; safecall;
  4163.     procedure Set_Format(const pRet: WideString); safecall;
  4164.     function  Get_DecimalPlaces: Byte; safecall;
  4165.     procedure Set_DecimalPlaces(pRet: Byte); safecall;
  4166.     function  Get_InputMask: WideString; safecall;
  4167.     procedure Set_InputMask(const pRet: WideString); safecall;
  4168.     function  Get_DefaultValue: WideString; safecall;
  4169.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  4170.     function  Get_ValidationRule: WideString; safecall;
  4171.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  4172.     function  Get_ValidationText: WideString; safecall;
  4173.     procedure Set_ValidationText(const pRet: WideString); safecall;
  4174.     function  Get_StatusBarText: WideString; safecall;
  4175.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  4176.     function  Get_EnterKeyBehavior: WordBool; safecall;
  4177.     procedure Set_EnterKeyBehavior(pRet: WordBool); safecall;
  4178.     function  Get_AllowAutoCorrect: WordBool; safecall;
  4179.     procedure Set_AllowAutoCorrect(pRet: WordBool); safecall;
  4180.     function  Get_Visible: WordBool; safecall;
  4181.     procedure Set_Visible(pRet: WordBool); safecall;
  4182.     function  Get_DisplayWhen: Byte; safecall;
  4183.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  4184.     function  Get_Enabled: WordBool; safecall;
  4185.     procedure Set_Enabled(pRet: WordBool); safecall;
  4186.     function  Get_Locked: WordBool; safecall;
  4187.     procedure Set_Locked(pRet: WordBool); safecall;
  4188.     function  Get_FilterLookup: Byte; safecall;
  4189.     procedure Set_FilterLookup(pRet: Byte); safecall;
  4190.     function  Get_AutoTab: WordBool; safecall;
  4191.     procedure Set_AutoTab(pRet: WordBool); safecall;
  4192.     function  Get_TabStop: WordBool; safecall;
  4193.     procedure Set_TabStop(pRet: WordBool); safecall;
  4194.     function  Get_TabIndex: Smallint; safecall;
  4195.     procedure Set_TabIndex(pRet: Smallint); safecall;
  4196.     function  Get_ScrollBars: Byte; safecall;
  4197.     procedure Set_ScrollBars(pRet: Byte); safecall;
  4198.     function  Get_HideDuplicates: WordBool; safecall;
  4199.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  4200.     function  Get_CanGrow: WordBool; safecall;
  4201.     procedure Set_CanGrow(pRet: WordBool); safecall;
  4202.     function  Get_CanShrink: WordBool; safecall;
  4203.     procedure Set_CanShrink(pRet: WordBool); safecall;
  4204.     function  Get_RunningSum: Byte; safecall;
  4205.     procedure Set_RunningSum(pRet: Byte); safecall;
  4206.     function  Get_Left: Smallint; safecall;
  4207.     procedure Set_Left(pRet: Smallint); safecall;
  4208.     function  Get_Top: Smallint; safecall;
  4209.     procedure Set_Top(pRet: Smallint); safecall;
  4210.     function  Get_Width: Smallint; safecall;
  4211.     procedure Set_Width(pRet: Smallint); safecall;
  4212.     function  Get_Height: Smallint; safecall;
  4213.     procedure Set_Height(pRet: Smallint); safecall;
  4214.     function  Get_BackStyle: Byte; safecall;
  4215.     procedure Set_BackStyle(pRet: Byte); safecall;
  4216.     function  Get_BackColor: Integer; safecall;
  4217.     procedure Set_BackColor(pRet: Integer); safecall;
  4218.     function  Get_SpecialEffect: Byte; safecall;
  4219.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  4220.     function  Get_BorderStyle: Byte; safecall;
  4221.     procedure Set_BorderStyle(pRet: Byte); safecall;
  4222.     function  Get_OldBorderStyle: Byte; safecall;
  4223.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  4224.     function  Get_BorderColor: Integer; safecall;
  4225.     procedure Set_BorderColor(pRet: Integer); safecall;
  4226.     function  Get_BorderWidth: Byte; safecall;
  4227.     procedure Set_BorderWidth(pRet: Byte); safecall;
  4228.     function  Get_BorderLineStyle: Byte; safecall;
  4229.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  4230.     function  Get_ForeColor: Integer; safecall;
  4231.     procedure Set_ForeColor(pRet: Integer); safecall;
  4232.     function  Get_FontName: WideString; safecall;
  4233.     procedure Set_FontName(const pRet: WideString); safecall;
  4234.     function  Get_FontSize: Smallint; safecall;
  4235.     procedure Set_FontSize(pRet: Smallint); safecall;
  4236.     function  Get_FontWeight: Smallint; safecall;
  4237.     procedure Set_FontWeight(pRet: Smallint); safecall;
  4238.     function  Get_FontItalic: WordBool; safecall;
  4239.     procedure Set_FontItalic(pRet: WordBool); safecall;
  4240.     function  Get_FontUnderline: WordBool; safecall;
  4241.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  4242.     function  Get_TextFontCharSet: Byte; safecall;
  4243.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  4244.     function  Get_TextAlign: Byte; safecall;
  4245.     procedure Set_TextAlign(pRet: Byte); safecall;
  4246.     function  Get_FontBold: Smallint; safecall;
  4247.     procedure Set_FontBold(pRet: Smallint); safecall;
  4248.     function  Get_ShortcutMenuBar: WideString; safecall;
  4249.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  4250.     function  Get_ControlTipText: WideString; safecall;
  4251.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  4252.     function  Get_HelpContextId: Integer; safecall;
  4253.     procedure Set_HelpContextId(pRet: Integer); safecall;
  4254.     function  Get_ColumnWidth: Smallint; safecall;
  4255.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  4256.     function  Get_ColumnOrder: Smallint; safecall;
  4257.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  4258.     function  Get_ColumnHidden: WordBool; safecall;
  4259.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  4260.     function  Get_AutoLabel: WordBool; safecall;
  4261.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  4262.     function  Get_AddColon: WordBool; safecall;
  4263.     procedure Set_AddColon(pRet: WordBool); safecall;
  4264.     function  Get_LabelX: Smallint; safecall;
  4265.     procedure Set_LabelX(pRet: Smallint); safecall;
  4266.     function  Get_LabelY: Smallint; safecall;
  4267.     procedure Set_LabelY(pRet: Smallint); safecall;
  4268.     function  Get_LabelAlign: Byte; safecall;
  4269.     procedure Set_LabelAlign(pRet: Byte); safecall;
  4270.     function  Get_Section: Smallint; safecall;
  4271.     procedure Set_Section(pRet: Smallint); safecall;
  4272.     function  Get_ControlName: WideString; safecall;
  4273.     procedure Set_ControlName(const pRet: WideString); safecall;
  4274.     function  Get_Tag: WideString; safecall;
  4275.     procedure Set_Tag(const pRet: WideString); safecall;
  4276.     function  Get_Text: WideString; safecall;
  4277.     procedure Set_Text(const pRet: WideString); safecall;
  4278.     function  Get_SelText: WideString; safecall;
  4279.     procedure Set_SelText(const pRet: WideString); safecall;
  4280.     function  Get_SelStart: Smallint; safecall;
  4281.     procedure Set_SelStart(pRet: Smallint); safecall;
  4282.     function  Get_SelLength: Smallint; safecall;
  4283.     procedure Set_SelLength(pRet: Smallint); safecall;
  4284.     function  Get_TextAlignGeneral: Smallint; safecall;
  4285.     procedure Set_TextAlignGeneral(pRet: Smallint); safecall;
  4286.     function  Get_Coltyp: Integer; safecall;
  4287.     procedure Set_Coltyp(pRet: Integer); safecall;
  4288.     function  Get_FormatPictureText: WideString; safecall;
  4289.     procedure Set_FormatPictureText(const pRet: WideString); safecall;
  4290.     function  Get_IsVisible: WordBool; safecall;
  4291.     procedure Set_IsVisible(pRet: WordBool); safecall;
  4292.     function  Get_InSelection: WordBool; safecall;
  4293.     procedure Set_InSelection(pRet: WordBool); safecall;
  4294.     function  Get_BeforeUpdate: WideString; safecall;
  4295.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  4296.     function  Get_AfterUpdate: WideString; safecall;
  4297.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  4298.     function  Get_OnChange: WideString; safecall;
  4299.     procedure Set_OnChange(const pRet: WideString); safecall;
  4300.     function  Get_OnEnter: WideString; safecall;
  4301.     procedure Set_OnEnter(const pRet: WideString); safecall;
  4302.     function  Get_OnExit: WideString; safecall;
  4303.     procedure Set_OnExit(const pRet: WideString); safecall;
  4304.     function  Get_OnGotFocus: WideString; safecall;
  4305.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  4306.     function  Get_OnLostFocus: WideString; safecall;
  4307.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  4308.     function  Get_OnClick: WideString; safecall;
  4309.     procedure Set_OnClick(const pRet: WideString); safecall;
  4310.     function  Get_OnDblClick: WideString; safecall;
  4311.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  4312.     function  Get_OnMouseDown: WideString; safecall;
  4313.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  4314.     function  Get_OnMouseMove: WideString; safecall;
  4315.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  4316.     function  Get_OnMouseUp: WideString; safecall;
  4317.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  4318.     function  Get_OnKeyDown: WideString; safecall;
  4319.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  4320.     function  Get_OnKeyUp: WideString; safecall;
  4321.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  4322.     function  Get_OnKeyPress: WideString; safecall;
  4323.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  4324.     property Application: Application read Get_Application;
  4325.     property Parent: IDispatch read Get_Parent;
  4326.     property OldValue: OleVariant read Get_OldValue;
  4327.     property Properties: Properties read Get_Properties;
  4328.     property Controls: Children read Get_Controls;
  4329.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  4330.     property Value: OleVariant read Get_Value write Set_Value;
  4331.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  4332.     property Name: WideString read Get_Name write Set_Name;
  4333.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  4334.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  4335.     property Format: WideString read Get_Format write Set_Format;
  4336.     property DecimalPlaces: Byte read Get_DecimalPlaces write Set_DecimalPlaces;
  4337.     property InputMask: WideString read Get_InputMask write Set_InputMask;
  4338.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  4339.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  4340.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  4341.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  4342.     property EnterKeyBehavior: WordBool read Get_EnterKeyBehavior write Set_EnterKeyBehavior;
  4343.     property AllowAutoCorrect: WordBool read Get_AllowAutoCorrect write Set_AllowAutoCorrect;
  4344.     property Visible: WordBool read Get_Visible write Set_Visible;
  4345.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  4346.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4347.     property Locked: WordBool read Get_Locked write Set_Locked;
  4348.     property FilterLookup: Byte read Get_FilterLookup write Set_FilterLookup;
  4349.     property AutoTab: WordBool read Get_AutoTab write Set_AutoTab;
  4350.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  4351.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  4352.     property ScrollBars: Byte read Get_ScrollBars write Set_ScrollBars;
  4353.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  4354.     property CanGrow: WordBool read Get_CanGrow write Set_CanGrow;
  4355.     property CanShrink: WordBool read Get_CanShrink write Set_CanShrink;
  4356.     property RunningSum: Byte read Get_RunningSum write Set_RunningSum;
  4357.     property Left: Smallint read Get_Left write Set_Left;
  4358.     property Top: Smallint read Get_Top write Set_Top;
  4359.     property Width: Smallint read Get_Width write Set_Width;
  4360.     property Height: Smallint read Get_Height write Set_Height;
  4361.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  4362.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  4363.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  4364.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  4365.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  4366.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  4367.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  4368.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  4369.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  4370.     property FontName: WideString read Get_FontName write Set_FontName;
  4371.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  4372.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  4373.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  4374.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  4375.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  4376.     property TextAlign: Byte read Get_TextAlign write Set_TextAlign;
  4377.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  4378.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  4379.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  4380.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  4381.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  4382.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  4383.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  4384.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  4385.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  4386.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  4387.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  4388.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  4389.     property Section: Smallint read Get_Section write Set_Section;
  4390.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  4391.     property Tag: WideString read Get_Tag write Set_Tag;
  4392.     property Text: WideString read Get_Text write Set_Text;
  4393.     property SelText: WideString read Get_SelText write Set_SelText;
  4394.     property SelStart: Smallint read Get_SelStart write Set_SelStart;
  4395.     property SelLength: Smallint read Get_SelLength write Set_SelLength;
  4396.     property TextAlignGeneral: Smallint read Get_TextAlignGeneral write Set_TextAlignGeneral;
  4397.     property Coltyp: Integer read Get_Coltyp write Set_Coltyp;
  4398.     property FormatPictureText: WideString read Get_FormatPictureText write Set_FormatPictureText;
  4399.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  4400.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  4401.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  4402.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  4403.     property OnChange: WideString read Get_OnChange write Set_OnChange;
  4404.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  4405.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  4406.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  4407.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  4408.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  4409.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  4410.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  4411.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  4412.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  4413.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  4414.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  4415.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  4416.   end;
  4417.  
  4418. // *********************************************************************//
  4419. // DispIntf:  _TextboxDisp
  4420. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4421. // GUID:      {3B06E946-E47C-11CD-8701-00AA003F0F07}
  4422. // *********************************************************************//
  4423.   _TextboxDisp = dispinterface
  4424.     ['{3B06E946-E47C-11CD-8701-00AA003F0F07}']
  4425.     property Application: Application readonly dispid 2005;
  4426.     property Parent: IDispatch readonly dispid 2087;
  4427.     procedure Undo; dispid 2144;
  4428.     property OldValue: OleVariant readonly dispid 2102;
  4429.     property Properties: Properties readonly dispid 2091;
  4430.     procedure SizeToFit; dispid 2151;
  4431.     procedure Requery; dispid 2018;
  4432.     procedure Goto_; dispid 2023;
  4433.     procedure SetFocus; dispid 2022;
  4434.     property Controls: Children readonly dispid 2190;
  4435.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  4436.     property Hyperlink: _Hyperlink readonly dispid 2181;
  4437.     property Value: OleVariant dispid 0;
  4438.     property EventProcPrefix: WideString dispid 22;
  4439.     property Name: WideString dispid 20;
  4440.     property ControlType: Byte dispid 21;
  4441.     property ControlSource: WideString dispid 27;
  4442.     property Format: WideString dispid 38;
  4443.     property DecimalPlaces: Byte dispid 67;
  4444.     property InputMask: WideString dispid 68;
  4445.     property DefaultValue: WideString dispid 23;
  4446.     property ValidationRule: WideString dispid 142;
  4447.     property ValidationText: WideString dispid 61;
  4448.     property StatusBarText: WideString dispid 132;
  4449.     property EnterKeyBehavior: WordBool dispid 70;
  4450.     property AllowAutoCorrect: WordBool dispid 383;
  4451.     property Visible: WordBool dispid 145;
  4452.     property DisplayWhen: Byte dispid 146;
  4453.     property Enabled: WordBool dispid 25;
  4454.     property Locked: WordBool dispid 56;
  4455.     property FilterLookup: Byte dispid 337;
  4456.     property AutoTab: WordBool dispid 69;
  4457.     property TabStop: WordBool dispid 292;
  4458.     property TabIndex: Smallint dispid 291;
  4459.     property ScrollBars: Byte dispid 149;
  4460.     property HideDuplicates: WordBool dispid 65;
  4461.     property CanGrow: WordBool dispid 14;
  4462.     property CanShrink: WordBool dispid 16;
  4463.     property RunningSum: Byte dispid 127;
  4464.     property Left: Smallint dispid 54;
  4465.     property Top: Smallint dispid 138;
  4466.     property Width: Smallint dispid 147;
  4467.     property Height: Smallint dispid 44;
  4468.     property BackStyle: Byte dispid 29;
  4469.     property BackColor: Integer dispid 28;
  4470.     property SpecialEffect: Byte dispid 4;
  4471.     property BorderStyle: Byte dispid 9;
  4472.     property OldBorderStyle: Byte dispid 371;
  4473.     property BorderColor: Integer dispid 8;
  4474.     property BorderWidth: Byte dispid 10;
  4475.     property BorderLineStyle: Byte dispid 11;
  4476.     property ForeColor: Integer dispid 203;
  4477.     property FontName: WideString dispid 34;
  4478.     property FontSize: Smallint dispid 35;
  4479.     property FontWeight: Smallint dispid 37;
  4480.     property FontItalic: WordBool dispid 33;
  4481.     property FontUnderline: WordBool dispid 36;
  4482.     property TextFontCharSet: Byte dispid 192;
  4483.     property TextAlign: Byte dispid 133;
  4484.     property FontBold: Smallint dispid 32;
  4485.     property ShortcutMenuBar: WideString dispid 336;
  4486.     property ControlTipText: WideString dispid 362;
  4487.     property HelpContextId: Integer dispid 218;
  4488.     property ColumnWidth: Smallint dispid 163;
  4489.     property ColumnOrder: Smallint dispid 162;
  4490.     property ColumnHidden: WordBool dispid 164;
  4491.     property AutoLabel: WordBool dispid 57;
  4492.     property AddColon: WordBool dispid 3;
  4493.     property LabelX: Smallint dispid 52;
  4494.     property LabelY: Smallint dispid 53;
  4495.     property LabelAlign: Byte dispid 51;
  4496.     property Section: Smallint dispid 238;
  4497.     property ControlName: WideString dispid 296;
  4498.     property Tag: WideString dispid 297;
  4499.     property Text: WideString dispid 298;
  4500.     property SelText: WideString dispid 302;
  4501.     property SelStart: Smallint dispid 301;
  4502.     property SelLength: Smallint dispid 300;
  4503.     property TextAlignGeneral: Smallint dispid 134;
  4504.     property Coltyp: Integer dispid 136;
  4505.     property FormatPictureText: WideString dispid 135;
  4506.     property IsVisible: WordBool dispid 137;
  4507.     property InSelection: WordBool dispid 312;
  4508.     property BeforeUpdate: WideString dispid 81;
  4509.     property AfterUpdate: WideString dispid 82;
  4510.     property OnChange: WideString dispid 111;
  4511.     property OnEnter: WideString dispid 221;
  4512.     property OnExit: WideString dispid 222;
  4513.     property OnGotFocus: WideString dispid 112;
  4514.     property OnLostFocus: WideString dispid 113;
  4515.     property OnClick: WideString dispid 123;
  4516.     property OnDblClick: WideString dispid 223;
  4517.     property OnMouseDown: WideString dispid 104;
  4518.     property OnMouseMove: WideString dispid 106;
  4519.     property OnMouseUp: WideString dispid 105;
  4520.     property OnKeyDown: WideString dispid 101;
  4521.     property OnKeyUp: WideString dispid 102;
  4522.     property OnKeyPress: WideString dispid 103;
  4523.   end;
  4524.  
  4525. // *********************************************************************//
  4526. // Interface: _TextBoxEvents
  4527. // Flags:     (16) Hidden
  4528. // GUID:      {BC9E4340-F037-11CD-8701-00AA003F0F07}
  4529. // *********************************************************************//
  4530.   _TextBoxEvents = interface(IUnknown)
  4531.     ['{BC9E4340-F037-11CD-8701-00AA003F0F07}']
  4532.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  4533.     function  AfterUpdate: HResult; stdcall;
  4534.     function  Change: HResult; stdcall;
  4535.     function  Enter: HResult; stdcall;
  4536.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  4537.     function  GotFocus: HResult; stdcall;
  4538.     function  LostFocus: HResult; stdcall;
  4539.     function  Click: HResult; stdcall;
  4540.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  4541.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4542.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4543.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4544.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  4545.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  4546.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  4547.   end;
  4548.  
  4549. // *********************************************************************//
  4550. // Interface: _ListBox
  4551. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4552. // GUID:      {3B06E95A-E47C-11CD-8701-00AA003F0F07}
  4553. // *********************************************************************//
  4554.   _ListBox = interface(IDispatch)
  4555.     ['{3B06E95A-E47C-11CD-8701-00AA003F0F07}']
  4556.     function  Get_Application: Application; safecall;
  4557.     function  Get_Parent: IDispatch; safecall;
  4558.     procedure Undo; safecall;
  4559.     function  Get_Column(Index: Integer; Row: OleVariant): OleVariant; safecall;
  4560.     function  Get_Selected(lRow: Integer): Integer; safecall;
  4561.     procedure Set_Selected(lRow: Integer; pRet: Integer); safecall;
  4562.     function  Get_OldValue: OleVariant; safecall;
  4563.     function  Get_ItemData(Index: Integer): OleVariant; safecall;
  4564.     function  Get_Properties: Properties; safecall;
  4565.     procedure SizeToFit; safecall;
  4566.     procedure Requery; safecall;
  4567.     procedure Goto_; safecall;
  4568.     procedure SetFocus; safecall;
  4569.     function  Get_Controls: Children; safecall;
  4570.     function  Get_ItemsSelected: _ItemsSelected; safecall;
  4571.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  4572.     function  Get_Hyperlink: _Hyperlink; safecall;
  4573.     function  Get_Value: OleVariant; safecall;
  4574.     procedure Set_Value(pRet: OleVariant); safecall;
  4575.     function  Get_EventProcPrefix: WideString; safecall;
  4576.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  4577.     function  Get_Name: WideString; safecall;
  4578.     procedure Set_Name(const pRet: WideString); safecall;
  4579.     function  Get_ControlType: Byte; safecall;
  4580.     procedure Set_ControlType(pRet: Byte); safecall;
  4581.     function  Get_ControlSource: WideString; safecall;
  4582.     procedure Set_ControlSource(const pRet: WideString); safecall;
  4583.     function  Get_RowSourceType: WideString; safecall;
  4584.     procedure Set_RowSourceType(const pRet: WideString); safecall;
  4585.     function  Get_RowSource: WideString; safecall;
  4586.     procedure Set_RowSource(const pRet: WideString); safecall;
  4587.     function  Get_ColumnCount: Smallint; safecall;
  4588.     procedure Set_ColumnCount(pRet: Smallint); safecall;
  4589.     function  Get_ColumnHeads: WordBool; safecall;
  4590.     procedure Set_ColumnHeads(pRet: WordBool); safecall;
  4591.     function  Get_ColumnWidths: WideString; safecall;
  4592.     procedure Set_ColumnWidths(const pRet: WideString); safecall;
  4593.     function  Get_BoundColumn: Integer; safecall;
  4594.     procedure Set_BoundColumn(pRet: Integer); safecall;
  4595.     function  Get_DefaultValue: WideString; safecall;
  4596.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  4597.     function  Get_ValidationRule: WideString; safecall;
  4598.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  4599.     function  Get_ValidationText: WideString; safecall;
  4600.     procedure Set_ValidationText(const pRet: WideString); safecall;
  4601.     function  Get_StatusBarText: WideString; safecall;
  4602.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  4603.     function  Get_Visible: WordBool; safecall;
  4604.     procedure Set_Visible(pRet: WordBool); safecall;
  4605.     function  Get_DisplayWhen: Byte; safecall;
  4606.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  4607.     function  Get_Enabled: WordBool; safecall;
  4608.     procedure Set_Enabled(pRet: WordBool); safecall;
  4609.     function  Get_Locked: WordBool; safecall;
  4610.     procedure Set_Locked(pRet: WordBool); safecall;
  4611.     function  Get_MultiSelect: Byte; safecall;
  4612.     procedure Set_MultiSelect(pRet: Byte); safecall;
  4613.     function  Get_TabStop: WordBool; safecall;
  4614.     procedure Set_TabStop(pRet: WordBool); safecall;
  4615.     function  Get_TabIndex: Smallint; safecall;
  4616.     procedure Set_TabIndex(pRet: Smallint); safecall;
  4617.     function  Get_HideDuplicates: WordBool; safecall;
  4618.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  4619.     function  Get_Left: Smallint; safecall;
  4620.     procedure Set_Left(pRet: Smallint); safecall;
  4621.     function  Get_Top: Smallint; safecall;
  4622.     procedure Set_Top(pRet: Smallint); safecall;
  4623.     function  Get_Width: Smallint; safecall;
  4624.     procedure Set_Width(pRet: Smallint); safecall;
  4625.     function  Get_Height: Smallint; safecall;
  4626.     procedure Set_Height(pRet: Smallint); safecall;
  4627.     function  Get_BackColor: Integer; safecall;
  4628.     procedure Set_BackColor(pRet: Integer); safecall;
  4629.     function  Get_SpecialEffect: Byte; safecall;
  4630.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  4631.     function  Get_BorderStyle: Byte; safecall;
  4632.     procedure Set_BorderStyle(pRet: Byte); safecall;
  4633.     function  Get_OldBorderStyle: Byte; safecall;
  4634.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  4635.     function  Get_BorderWidth: Byte; safecall;
  4636.     procedure Set_BorderWidth(pRet: Byte); safecall;
  4637.     function  Get_BorderLineStyle: Byte; safecall;
  4638.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  4639.     function  Get_BorderColor: Integer; safecall;
  4640.     procedure Set_BorderColor(pRet: Integer); safecall;
  4641.     function  Get_ForeColor: Integer; safecall;
  4642.     procedure Set_ForeColor(pRet: Integer); safecall;
  4643.     function  Get_FontName: WideString; safecall;
  4644.     procedure Set_FontName(const pRet: WideString); safecall;
  4645.     function  Get_FontSize: Smallint; safecall;
  4646.     procedure Set_FontSize(pRet: Smallint); safecall;
  4647.     function  Get_FontWeight: Smallint; safecall;
  4648.     procedure Set_FontWeight(pRet: Smallint); safecall;
  4649.     function  Get_FontItalic: WordBool; safecall;
  4650.     procedure Set_FontItalic(pRet: WordBool); safecall;
  4651.     function  Get_FontUnderline: WordBool; safecall;
  4652.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  4653.     function  Get_TextFontCharSet: Byte; safecall;
  4654.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  4655.     function  Get_FontBold: Smallint; safecall;
  4656.     procedure Set_FontBold(pRet: Smallint); safecall;
  4657.     function  Get_ShortcutMenuBar: WideString; safecall;
  4658.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  4659.     function  Get_ControlTipText: WideString; safecall;
  4660.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  4661.     function  Get_HelpContextId: Integer; safecall;
  4662.     procedure Set_HelpContextId(pRet: Integer); safecall;
  4663.     function  Get_ColumnWidth: Smallint; safecall;
  4664.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  4665.     function  Get_ColumnOrder: Smallint; safecall;
  4666.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  4667.     function  Get_ColumnHidden: WordBool; safecall;
  4668.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  4669.     function  Get_AutoLabel: WordBool; safecall;
  4670.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  4671.     function  Get_AddColon: WordBool; safecall;
  4672.     procedure Set_AddColon(pRet: WordBool); safecall;
  4673.     function  Get_LabelX: Smallint; safecall;
  4674.     procedure Set_LabelX(pRet: Smallint); safecall;
  4675.     function  Get_LabelY: Smallint; safecall;
  4676.     procedure Set_LabelY(pRet: Smallint); safecall;
  4677.     function  Get_LabelAlign: Byte; safecall;
  4678.     procedure Set_LabelAlign(pRet: Byte); safecall;
  4679.     function  Get_Section: Smallint; safecall;
  4680.     procedure Set_Section(pRet: Smallint); safecall;
  4681.     function  Get_ControlName: WideString; safecall;
  4682.     procedure Set_ControlName(const pRet: WideString); safecall;
  4683.     function  Get_Tag: WideString; safecall;
  4684.     procedure Set_Tag(const pRet: WideString); safecall;
  4685.     function  Get_ListCount: Integer; safecall;
  4686.     procedure Set_ListCount(pRet: Integer); safecall;
  4687.     function  Get_ListIndex: Integer; safecall;
  4688.     procedure Set_ListIndex(pRet: Integer); safecall;
  4689.     function  Get_IsVisible: WordBool; safecall;
  4690.     procedure Set_IsVisible(pRet: WordBool); safecall;
  4691.     function  Get_InSelection: WordBool; safecall;
  4692.     procedure Set_InSelection(pRet: WordBool); safecall;
  4693.     function  Get_BeforeUpdate: WideString; safecall;
  4694.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  4695.     function  Get_AfterUpdate: WideString; safecall;
  4696.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  4697.     function  Get_OnEnter: WideString; safecall;
  4698.     procedure Set_OnEnter(const pRet: WideString); safecall;
  4699.     function  Get_OnExit: WideString; safecall;
  4700.     procedure Set_OnExit(const pRet: WideString); safecall;
  4701.     function  Get_OnGotFocus: WideString; safecall;
  4702.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  4703.     function  Get_OnLostFocus: WideString; safecall;
  4704.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  4705.     function  Get_OnClick: WideString; safecall;
  4706.     procedure Set_OnClick(const pRet: WideString); safecall;
  4707.     function  Get_OnDblClick: WideString; safecall;
  4708.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  4709.     function  Get_OnMouseDown: WideString; safecall;
  4710.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  4711.     function  Get_OnMouseMove: WideString; safecall;
  4712.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  4713.     function  Get_OnMouseUp: WideString; safecall;
  4714.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  4715.     function  Get_OnKeyDown: WideString; safecall;
  4716.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  4717.     function  Get_OnKeyUp: WideString; safecall;
  4718.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  4719.     function  Get_OnKeyPress: WideString; safecall;
  4720.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  4721.     property Application: Application read Get_Application;
  4722.     property Parent: IDispatch read Get_Parent;
  4723.     property Column[Index: Integer; Row: OleVariant]: OleVariant read Get_Column;
  4724.     property Selected[lRow: Integer]: Integer read Get_Selected write Set_Selected;
  4725.     property OldValue: OleVariant read Get_OldValue;
  4726.     property ItemData[Index: Integer]: OleVariant read Get_ItemData;
  4727.     property Properties: Properties read Get_Properties;
  4728.     property Controls: Children read Get_Controls;
  4729.     property ItemsSelected: _ItemsSelected read Get_ItemsSelected;
  4730.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  4731.     property Value: OleVariant read Get_Value write Set_Value;
  4732.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  4733.     property Name: WideString read Get_Name write Set_Name;
  4734.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  4735.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  4736.     property RowSourceType: WideString read Get_RowSourceType write Set_RowSourceType;
  4737.     property RowSource: WideString read Get_RowSource write Set_RowSource;
  4738.     property ColumnCount: Smallint read Get_ColumnCount write Set_ColumnCount;
  4739.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  4740.     property ColumnWidths: WideString read Get_ColumnWidths write Set_ColumnWidths;
  4741.     property BoundColumn: Integer read Get_BoundColumn write Set_BoundColumn;
  4742.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  4743.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  4744.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  4745.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  4746.     property Visible: WordBool read Get_Visible write Set_Visible;
  4747.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  4748.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4749.     property Locked: WordBool read Get_Locked write Set_Locked;
  4750.     property MultiSelect: Byte read Get_MultiSelect write Set_MultiSelect;
  4751.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  4752.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  4753.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  4754.     property Left: Smallint read Get_Left write Set_Left;
  4755.     property Top: Smallint read Get_Top write Set_Top;
  4756.     property Width: Smallint read Get_Width write Set_Width;
  4757.     property Height: Smallint read Get_Height write Set_Height;
  4758.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  4759.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  4760.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  4761.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  4762.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  4763.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  4764.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  4765.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  4766.     property FontName: WideString read Get_FontName write Set_FontName;
  4767.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  4768.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  4769.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  4770.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  4771.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  4772.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  4773.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  4774.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  4775.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  4776.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  4777.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  4778.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  4779.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  4780.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  4781.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  4782.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  4783.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  4784.     property Section: Smallint read Get_Section write Set_Section;
  4785.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  4786.     property Tag: WideString read Get_Tag write Set_Tag;
  4787.     property ListCount: Integer read Get_ListCount write Set_ListCount;
  4788.     property ListIndex: Integer read Get_ListIndex write Set_ListIndex;
  4789.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  4790.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  4791.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  4792.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  4793.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  4794.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  4795.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  4796.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  4797.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  4798.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  4799.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  4800.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  4801.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  4802.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  4803.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  4804.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  4805.   end;
  4806.  
  4807. // *********************************************************************//
  4808. // DispIntf:  _ListBoxDisp
  4809. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4810. // GUID:      {3B06E95A-E47C-11CD-8701-00AA003F0F07}
  4811. // *********************************************************************//
  4812.   _ListBoxDisp = dispinterface
  4813.     ['{3B06E95A-E47C-11CD-8701-00AA003F0F07}']
  4814.     property Application: Application readonly dispid 2005;
  4815.     property Parent: IDispatch readonly dispid 2087;
  4816.     procedure Undo; dispid 2144;
  4817.     property Column[Index: Integer; Row: OleVariant]: OleVariant readonly dispid 2101;
  4818.     property Selected[lRow: Integer]: Integer dispid 2113;
  4819.     property OldValue: OleVariant readonly dispid 2102;
  4820.     property ItemData[Index: Integer]: OleVariant readonly dispid 2103;
  4821.     property Properties: Properties readonly dispid 2091;
  4822.     procedure SizeToFit; dispid 2151;
  4823.     procedure Requery; dispid 2018;
  4824.     procedure Goto_; dispid 2023;
  4825.     procedure SetFocus; dispid 2022;
  4826.     property Controls: Children readonly dispid 2190;
  4827.     property ItemsSelected: _ItemsSelected readonly dispid 2137;
  4828.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  4829.     property Hyperlink: _Hyperlink readonly dispid 2181;
  4830.     property Value: OleVariant dispid 0;
  4831.     property EventProcPrefix: WideString dispid 22;
  4832.     property Name: WideString dispid 20;
  4833.     property ControlType: Byte dispid 21;
  4834.     property ControlSource: WideString dispid 27;
  4835.     property RowSourceType: WideString dispid 90;
  4836.     property RowSource: WideString dispid 88;
  4837.     property ColumnCount: Smallint dispid 66;
  4838.     property ColumnHeads: WordBool dispid 128;
  4839.     property ColumnWidths: WideString dispid 18;
  4840.     property BoundColumn: Integer dispid 13;
  4841.     property DefaultValue: WideString dispid 23;
  4842.     property ValidationRule: WideString dispid 142;
  4843.     property ValidationText: WideString dispid 61;
  4844.     property StatusBarText: WideString dispid 132;
  4845.     property Visible: WordBool dispid 145;
  4846.     property DisplayWhen: Byte dispid 146;
  4847.     property Enabled: WordBool dispid 25;
  4848.     property Locked: WordBool dispid 56;
  4849.     property MultiSelect: Byte dispid 325;
  4850.     property TabStop: WordBool dispid 292;
  4851.     property TabIndex: Smallint dispid 291;
  4852.     property HideDuplicates: WordBool dispid 65;
  4853.     property Left: Smallint dispid 54;
  4854.     property Top: Smallint dispid 138;
  4855.     property Width: Smallint dispid 147;
  4856.     property Height: Smallint dispid 44;
  4857.     property BackColor: Integer dispid 28;
  4858.     property SpecialEffect: Byte dispid 4;
  4859.     property BorderStyle: Byte dispid 9;
  4860.     property OldBorderStyle: Byte dispid 371;
  4861.     property BorderWidth: Byte dispid 10;
  4862.     property BorderLineStyle: Byte dispid 11;
  4863.     property BorderColor: Integer dispid 8;
  4864.     property ForeColor: Integer dispid 203;
  4865.     property FontName: WideString dispid 34;
  4866.     property FontSize: Smallint dispid 35;
  4867.     property FontWeight: Smallint dispid 37;
  4868.     property FontItalic: WordBool dispid 33;
  4869.     property FontUnderline: WordBool dispid 36;
  4870.     property TextFontCharSet: Byte dispid 192;
  4871.     property FontBold: Smallint dispid 32;
  4872.     property ShortcutMenuBar: WideString dispid 336;
  4873.     property ControlTipText: WideString dispid 362;
  4874.     property HelpContextId: Integer dispid 218;
  4875.     property ColumnWidth: Smallint dispid 163;
  4876.     property ColumnOrder: Smallint dispid 162;
  4877.     property ColumnHidden: WordBool dispid 164;
  4878.     property AutoLabel: WordBool dispid 57;
  4879.     property AddColon: WordBool dispid 3;
  4880.     property LabelX: Smallint dispid 52;
  4881.     property LabelY: Smallint dispid 53;
  4882.     property LabelAlign: Byte dispid 51;
  4883.     property Section: Smallint dispid 238;
  4884.     property ControlName: WideString dispid 296;
  4885.     property Tag: WideString dispid 297;
  4886.     property ListCount: Integer dispid 241;
  4887.     property ListIndex: Integer dispid 242;
  4888.     property IsVisible: WordBool dispid 137;
  4889.     property InSelection: WordBool dispid 312;
  4890.     property BeforeUpdate: WideString dispid 81;
  4891.     property AfterUpdate: WideString dispid 82;
  4892.     property OnEnter: WideString dispid 221;
  4893.     property OnExit: WideString dispid 222;
  4894.     property OnGotFocus: WideString dispid 112;
  4895.     property OnLostFocus: WideString dispid 113;
  4896.     property OnClick: WideString dispid 123;
  4897.     property OnDblClick: WideString dispid 223;
  4898.     property OnMouseDown: WideString dispid 104;
  4899.     property OnMouseMove: WideString dispid 106;
  4900.     property OnMouseUp: WideString dispid 105;
  4901.     property OnKeyDown: WideString dispid 101;
  4902.     property OnKeyUp: WideString dispid 102;
  4903.     property OnKeyPress: WideString dispid 103;
  4904.   end;
  4905.  
  4906. // *********************************************************************//
  4907. // Interface: _ListBoxEvents
  4908. // Flags:     (16) Hidden
  4909. // GUID:      {BC9E434B-F037-11CD-8701-00AA003F0F07}
  4910. // *********************************************************************//
  4911.   _ListBoxEvents = interface(IUnknown)
  4912.     ['{BC9E434B-F037-11CD-8701-00AA003F0F07}']
  4913.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  4914.     function  AfterUpdate: HResult; stdcall;
  4915.     function  Enter: HResult; stdcall;
  4916.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  4917.     function  GotFocus: HResult; stdcall;
  4918.     function  LostFocus: HResult; stdcall;
  4919.     function  Click: HResult; stdcall;
  4920.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  4921.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4922.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4923.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  4924.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  4925.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  4926.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  4927.   end;
  4928.  
  4929. // *********************************************************************//
  4930. // Interface: _Combobox
  4931. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4932. // GUID:      {3B06E95C-E47C-11CD-8701-00AA003F0F07}
  4933. // *********************************************************************//
  4934.   _Combobox = interface(IDispatch)
  4935.     ['{3B06E95C-E47C-11CD-8701-00AA003F0F07}']
  4936.     function  Get_Application: Application; safecall;
  4937.     function  Get_Parent: IDispatch; safecall;
  4938.     procedure Undo; safecall;
  4939.     procedure Dropdown; safecall;
  4940.     function  Get_Column(Index: Integer; Row: OleVariant): OleVariant; safecall;
  4941.     function  Get_OldValue: OleVariant; safecall;
  4942.     function  Get_ItemData(Index: Integer): OleVariant; safecall;
  4943.     function  Get_Properties: Properties; safecall;
  4944.     procedure SizeToFit; safecall;
  4945.     procedure Requery; safecall;
  4946.     procedure Goto_; safecall;
  4947.     procedure SetFocus; safecall;
  4948.     function  Get_Controls: Children; safecall;
  4949.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  4950.     function  Get_Hyperlink: _Hyperlink; safecall;
  4951.     function  Get_Value: OleVariant; safecall;
  4952.     procedure Set_Value(pRet: OleVariant); safecall;
  4953.     function  Get_EventProcPrefix: WideString; safecall;
  4954.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  4955.     function  Get_Name: WideString; safecall;
  4956.     procedure Set_Name(const pRet: WideString); safecall;
  4957.     function  Get_ControlType: Byte; safecall;
  4958.     procedure Set_ControlType(pRet: Byte); safecall;
  4959.     function  Get_ControlSource: WideString; safecall;
  4960.     procedure Set_ControlSource(const pRet: WideString); safecall;
  4961.     function  Get_Format: WideString; safecall;
  4962.     procedure Set_Format(const pRet: WideString); safecall;
  4963.     function  Get_DecimalPlaces: Byte; safecall;
  4964.     procedure Set_DecimalPlaces(pRet: Byte); safecall;
  4965.     function  Get_InputMask: WideString; safecall;
  4966.     procedure Set_InputMask(const pRet: WideString); safecall;
  4967.     function  Get_RowSourceType: WideString; safecall;
  4968.     procedure Set_RowSourceType(const pRet: WideString); safecall;
  4969.     function  Get_RowSource: WideString; safecall;
  4970.     procedure Set_RowSource(const pRet: WideString); safecall;
  4971.     function  Get_ColumnCount: Smallint; safecall;
  4972.     procedure Set_ColumnCount(pRet: Smallint); safecall;
  4973.     function  Get_ColumnHeads: WordBool; safecall;
  4974.     procedure Set_ColumnHeads(pRet: WordBool); safecall;
  4975.     function  Get_ColumnWidths: WideString; safecall;
  4976.     procedure Set_ColumnWidths(const pRet: WideString); safecall;
  4977.     function  Get_BoundColumn: Integer; safecall;
  4978.     procedure Set_BoundColumn(pRet: Integer); safecall;
  4979.     function  Get_ListRows: Smallint; safecall;
  4980.     procedure Set_ListRows(pRet: Smallint); safecall;
  4981.     function  Get_ListWidth: WideString; safecall;
  4982.     procedure Set_ListWidth(const pRet: WideString); safecall;
  4983.     function  Get_StatusBarText: WideString; safecall;
  4984.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  4985.     function  Get_LimitToList: WordBool; safecall;
  4986.     procedure Set_LimitToList(pRet: WordBool); safecall;
  4987.     function  Get_AutoExpand: WordBool; safecall;
  4988.     procedure Set_AutoExpand(pRet: WordBool); safecall;
  4989.     function  Get_DefaultValue: WideString; safecall;
  4990.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  4991.     function  Get_ValidationRule: WideString; safecall;
  4992.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  4993.     function  Get_ValidationText: WideString; safecall;
  4994.     procedure Set_ValidationText(const pRet: WideString); safecall;
  4995.     function  Get_Visible: WordBool; safecall;
  4996.     procedure Set_Visible(pRet: WordBool); safecall;
  4997.     function  Get_DisplayWhen: Byte; safecall;
  4998.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  4999.     function  Get_Enabled: WordBool; safecall;
  5000.     procedure Set_Enabled(pRet: WordBool); safecall;
  5001.     function  Get_Locked: WordBool; safecall;
  5002.     procedure Set_Locked(pRet: WordBool); safecall;
  5003.     function  Get_AllowAutoCorrect: WordBool; safecall;
  5004.     procedure Set_AllowAutoCorrect(pRet: WordBool); safecall;
  5005.     function  Get_TabStop: WordBool; safecall;
  5006.     procedure Set_TabStop(pRet: WordBool); safecall;
  5007.     function  Get_TabIndex: Smallint; safecall;
  5008.     procedure Set_TabIndex(pRet: Smallint); safecall;
  5009.     function  Get_HideDuplicates: WordBool; safecall;
  5010.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  5011.     function  Get_Left: Smallint; safecall;
  5012.     procedure Set_Left(pRet: Smallint); safecall;
  5013.     function  Get_Top: Smallint; safecall;
  5014.     procedure Set_Top(pRet: Smallint); safecall;
  5015.     function  Get_Width: Smallint; safecall;
  5016.     procedure Set_Width(pRet: Smallint); safecall;
  5017.     function  Get_Height: Smallint; safecall;
  5018.     procedure Set_Height(pRet: Smallint); safecall;
  5019.     function  Get_BackStyle: Byte; safecall;
  5020.     procedure Set_BackStyle(pRet: Byte); safecall;
  5021.     function  Get_BackColor: Integer; safecall;
  5022.     procedure Set_BackColor(pRet: Integer); safecall;
  5023.     function  Get_SpecialEffect: Byte; safecall;
  5024.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  5025.     function  Get_BorderStyle: Byte; safecall;
  5026.     procedure Set_BorderStyle(pRet: Byte); safecall;
  5027.     function  Get_OldBorderStyle: Byte; safecall;
  5028.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  5029.     function  Get_BorderColor: Integer; safecall;
  5030.     procedure Set_BorderColor(pRet: Integer); safecall;
  5031.     function  Get_BorderWidth: Byte; safecall;
  5032.     procedure Set_BorderWidth(pRet: Byte); safecall;
  5033.     function  Get_BorderLineStyle: Byte; safecall;
  5034.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  5035.     function  Get_ForeColor: Integer; safecall;
  5036.     procedure Set_ForeColor(pRet: Integer); safecall;
  5037.     function  Get_FontName: WideString; safecall;
  5038.     procedure Set_FontName(const pRet: WideString); safecall;
  5039.     function  Get_FontSize: Smallint; safecall;
  5040.     procedure Set_FontSize(pRet: Smallint); safecall;
  5041.     function  Get_FontWeight: Smallint; safecall;
  5042.     procedure Set_FontWeight(pRet: Smallint); safecall;
  5043.     function  Get_FontItalic: WordBool; safecall;
  5044.     procedure Set_FontItalic(pRet: WordBool); safecall;
  5045.     function  Get_FontUnderline: WordBool; safecall;
  5046.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  5047.     function  Get_TextFontCharSet: Byte; safecall;
  5048.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  5049.     function  Get_TextAlign: Byte; safecall;
  5050.     procedure Set_TextAlign(pRet: Byte); safecall;
  5051.     function  Get_FontBold: Smallint; safecall;
  5052.     procedure Set_FontBold(pRet: Smallint); safecall;
  5053.     function  Get_ShortcutMenuBar: WideString; safecall;
  5054.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  5055.     function  Get_ControlTipText: WideString; safecall;
  5056.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  5057.     function  Get_HelpContextId: Integer; safecall;
  5058.     procedure Set_HelpContextId(pRet: Integer); safecall;
  5059.     function  Get_ColumnWidth: Smallint; safecall;
  5060.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  5061.     function  Get_ColumnOrder: Smallint; safecall;
  5062.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  5063.     function  Get_ColumnHidden: WordBool; safecall;
  5064.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  5065.     function  Get_AutoLabel: WordBool; safecall;
  5066.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  5067.     function  Get_AddColon: WordBool; safecall;
  5068.     procedure Set_AddColon(pRet: WordBool); safecall;
  5069.     function  Get_LabelX: Smallint; safecall;
  5070.     procedure Set_LabelX(pRet: Smallint); safecall;
  5071.     function  Get_LabelY: Smallint; safecall;
  5072.     procedure Set_LabelY(pRet: Smallint); safecall;
  5073.     function  Get_LabelAlign: Byte; safecall;
  5074.     procedure Set_LabelAlign(pRet: Byte); safecall;
  5075.     function  Get_Section: Smallint; safecall;
  5076.     procedure Set_Section(pRet: Smallint); safecall;
  5077.     function  Get_ControlName: WideString; safecall;
  5078.     procedure Set_ControlName(const pRet: WideString); safecall;
  5079.     function  Get_Tag: WideString; safecall;
  5080.     procedure Set_Tag(const pRet: WideString); safecall;
  5081.     function  Get_Text: WideString; safecall;
  5082.     procedure Set_Text(const pRet: WideString); safecall;
  5083.     function  Get_SelText: WideString; safecall;
  5084.     procedure Set_SelText(const pRet: WideString); safecall;
  5085.     function  Get_SelStart: Smallint; safecall;
  5086.     procedure Set_SelStart(pRet: Smallint); safecall;
  5087.     function  Get_SelLength: Smallint; safecall;
  5088.     procedure Set_SelLength(pRet: Smallint); safecall;
  5089.     function  Get_TextAlignGeneral: Smallint; safecall;
  5090.     procedure Set_TextAlignGeneral(pRet: Smallint); safecall;
  5091.     function  Get_FormatPictureText: WideString; safecall;
  5092.     procedure Set_FormatPictureText(const pRet: WideString); safecall;
  5093.     function  Get_Coltyp: Integer; safecall;
  5094.     procedure Set_Coltyp(pRet: Integer); safecall;
  5095.     function  Get_ListCount: Integer; safecall;
  5096.     procedure Set_ListCount(pRet: Integer); safecall;
  5097.     function  Get_ListIndex: Integer; safecall;
  5098.     procedure Set_ListIndex(pRet: Integer); safecall;
  5099.     function  Get_IsVisible: WordBool; safecall;
  5100.     procedure Set_IsVisible(pRet: WordBool); safecall;
  5101.     function  Get_InSelection: WordBool; safecall;
  5102.     procedure Set_InSelection(pRet: WordBool); safecall;
  5103.     function  Get_BeforeUpdate: WideString; safecall;
  5104.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  5105.     function  Get_AfterUpdate: WideString; safecall;
  5106.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  5107.     function  Get_OnChange: WideString; safecall;
  5108.     procedure Set_OnChange(const pRet: WideString); safecall;
  5109.     function  Get_OnNotInList: WideString; safecall;
  5110.     procedure Set_OnNotInList(const pRet: WideString); safecall;
  5111.     function  Get_OnEnter: WideString; safecall;
  5112.     procedure Set_OnEnter(const pRet: WideString); safecall;
  5113.     function  Get_OnExit: WideString; safecall;
  5114.     procedure Set_OnExit(const pRet: WideString); safecall;
  5115.     function  Get_OnGotFocus: WideString; safecall;
  5116.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  5117.     function  Get_OnLostFocus: WideString; safecall;
  5118.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  5119.     function  Get_OnClick: WideString; safecall;
  5120.     procedure Set_OnClick(const pRet: WideString); safecall;
  5121.     function  Get_OnDblClick: WideString; safecall;
  5122.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  5123.     function  Get_OnMouseDown: WideString; safecall;
  5124.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  5125.     function  Get_OnMouseMove: WideString; safecall;
  5126.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  5127.     function  Get_OnMouseUp: WideString; safecall;
  5128.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  5129.     function  Get_OnKeyDown: WideString; safecall;
  5130.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  5131.     function  Get_OnKeyUp: WideString; safecall;
  5132.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  5133.     function  Get_OnKeyPress: WideString; safecall;
  5134.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  5135.     property Application: Application read Get_Application;
  5136.     property Parent: IDispatch read Get_Parent;
  5137.     property Column[Index: Integer; Row: OleVariant]: OleVariant read Get_Column;
  5138.     property OldValue: OleVariant read Get_OldValue;
  5139.     property ItemData[Index: Integer]: OleVariant read Get_ItemData;
  5140.     property Properties: Properties read Get_Properties;
  5141.     property Controls: Children read Get_Controls;
  5142.     property Hyperlink: _Hyperlink read Get_Hyperlink;
  5143.     property Value: OleVariant read Get_Value write Set_Value;
  5144.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  5145.     property Name: WideString read Get_Name write Set_Name;
  5146.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  5147.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  5148.     property Format: WideString read Get_Format write Set_Format;
  5149.     property DecimalPlaces: Byte read Get_DecimalPlaces write Set_DecimalPlaces;
  5150.     property InputMask: WideString read Get_InputMask write Set_InputMask;
  5151.     property RowSourceType: WideString read Get_RowSourceType write Set_RowSourceType;
  5152.     property RowSource: WideString read Get_RowSource write Set_RowSource;
  5153.     property ColumnCount: Smallint read Get_ColumnCount write Set_ColumnCount;
  5154.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  5155.     property ColumnWidths: WideString read Get_ColumnWidths write Set_ColumnWidths;
  5156.     property BoundColumn: Integer read Get_BoundColumn write Set_BoundColumn;
  5157.     property ListRows: Smallint read Get_ListRows write Set_ListRows;
  5158.     property ListWidth: WideString read Get_ListWidth write Set_ListWidth;
  5159.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  5160.     property LimitToList: WordBool read Get_LimitToList write Set_LimitToList;
  5161.     property AutoExpand: WordBool read Get_AutoExpand write Set_AutoExpand;
  5162.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  5163.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  5164.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  5165.     property Visible: WordBool read Get_Visible write Set_Visible;
  5166.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  5167.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5168.     property Locked: WordBool read Get_Locked write Set_Locked;
  5169.     property AllowAutoCorrect: WordBool read Get_AllowAutoCorrect write Set_AllowAutoCorrect;
  5170.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  5171.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  5172.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  5173.     property Left: Smallint read Get_Left write Set_Left;
  5174.     property Top: Smallint read Get_Top write Set_Top;
  5175.     property Width: Smallint read Get_Width write Set_Width;
  5176.     property Height: Smallint read Get_Height write Set_Height;
  5177.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  5178.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  5179.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  5180.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  5181.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  5182.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  5183.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  5184.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  5185.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  5186.     property FontName: WideString read Get_FontName write Set_FontName;
  5187.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  5188.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  5189.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  5190.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  5191.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  5192.     property TextAlign: Byte read Get_TextAlign write Set_TextAlign;
  5193.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  5194.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  5195.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  5196.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  5197.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  5198.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  5199.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  5200.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  5201.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  5202.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  5203.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  5204.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  5205.     property Section: Smallint read Get_Section write Set_Section;
  5206.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  5207.     property Tag: WideString read Get_Tag write Set_Tag;
  5208.     property Text: WideString read Get_Text write Set_Text;
  5209.     property SelText: WideString read Get_SelText write Set_SelText;
  5210.     property SelStart: Smallint read Get_SelStart write Set_SelStart;
  5211.     property SelLength: Smallint read Get_SelLength write Set_SelLength;
  5212.     property TextAlignGeneral: Smallint read Get_TextAlignGeneral write Set_TextAlignGeneral;
  5213.     property FormatPictureText: WideString read Get_FormatPictureText write Set_FormatPictureText;
  5214.     property Coltyp: Integer read Get_Coltyp write Set_Coltyp;
  5215.     property ListCount: Integer read Get_ListCount write Set_ListCount;
  5216.     property ListIndex: Integer read Get_ListIndex write Set_ListIndex;
  5217.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  5218.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  5219.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  5220.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  5221.     property OnChange: WideString read Get_OnChange write Set_OnChange;
  5222.     property OnNotInList: WideString read Get_OnNotInList write Set_OnNotInList;
  5223.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  5224.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  5225.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  5226.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  5227.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  5228.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  5229.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  5230.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  5231.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  5232.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  5233.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  5234.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  5235.   end;
  5236.  
  5237. // *********************************************************************//
  5238. // DispIntf:  _ComboboxDisp
  5239. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5240. // GUID:      {3B06E95C-E47C-11CD-8701-00AA003F0F07}
  5241. // *********************************************************************//
  5242.   _ComboboxDisp = dispinterface
  5243.     ['{3B06E95C-E47C-11CD-8701-00AA003F0F07}']
  5244.     property Application: Application readonly dispid 2005;
  5245.     property Parent: IDispatch readonly dispid 2087;
  5246.     procedure Undo; dispid 2144;
  5247.     procedure Dropdown; dispid 2143;
  5248.     property Column[Index: Integer; Row: OleVariant]: OleVariant readonly dispid 2101;
  5249.     property OldValue: OleVariant readonly dispid 2102;
  5250.     property ItemData[Index: Integer]: OleVariant readonly dispid 2103;
  5251.     property Properties: Properties readonly dispid 2091;
  5252.     procedure SizeToFit; dispid 2151;
  5253.     procedure Requery; dispid 2018;
  5254.     procedure Goto_; dispid 2023;
  5255.     procedure SetFocus; dispid 2022;
  5256.     property Controls: Children readonly dispid 2190;
  5257.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  5258.     property Hyperlink: _Hyperlink readonly dispid 2181;
  5259.     property Value: OleVariant dispid 0;
  5260.     property EventProcPrefix: WideString dispid 22;
  5261.     property Name: WideString dispid 20;
  5262.     property ControlType: Byte dispid 21;
  5263.     property ControlSource: WideString dispid 27;
  5264.     property Format: WideString dispid 38;
  5265.     property DecimalPlaces: Byte dispid 67;
  5266.     property InputMask: WideString dispid 68;
  5267.     property RowSourceType: WideString dispid 90;
  5268.     property RowSource: WideString dispid 88;
  5269.     property ColumnCount: Smallint dispid 66;
  5270.     property ColumnHeads: WordBool dispid 128;
  5271.     property ColumnWidths: WideString dispid 18;
  5272.     property BoundColumn: Integer dispid 13;
  5273.     property ListRows: Smallint dispid 150;
  5274.     property ListWidth: WideString dispid 151;
  5275.     property StatusBarText: WideString dispid 132;
  5276.     property LimitToList: WordBool dispid 63;
  5277.     property AutoExpand: WordBool dispid 64;
  5278.     property DefaultValue: WideString dispid 23;
  5279.     property ValidationRule: WideString dispid 142;
  5280.     property ValidationText: WideString dispid 61;
  5281.     property Visible: WordBool dispid 145;
  5282.     property DisplayWhen: Byte dispid 146;
  5283.     property Enabled: WordBool dispid 25;
  5284.     property Locked: WordBool dispid 56;
  5285.     property AllowAutoCorrect: WordBool dispid 383;
  5286.     property TabStop: WordBool dispid 292;
  5287.     property TabIndex: Smallint dispid 291;
  5288.     property HideDuplicates: WordBool dispid 65;
  5289.     property Left: Smallint dispid 54;
  5290.     property Top: Smallint dispid 138;
  5291.     property Width: Smallint dispid 147;
  5292.     property Height: Smallint dispid 44;
  5293.     property BackStyle: Byte dispid 29;
  5294.     property BackColor: Integer dispid 28;
  5295.     property SpecialEffect: Byte dispid 4;
  5296.     property BorderStyle: Byte dispid 9;
  5297.     property OldBorderStyle: Byte dispid 371;
  5298.     property BorderColor: Integer dispid 8;
  5299.     property BorderWidth: Byte dispid 10;
  5300.     property BorderLineStyle: Byte dispid 11;
  5301.     property ForeColor: Integer dispid 203;
  5302.     property FontName: WideString dispid 34;
  5303.     property FontSize: Smallint dispid 35;
  5304.     property FontWeight: Smallint dispid 37;
  5305.     property FontItalic: WordBool dispid 33;
  5306.     property FontUnderline: WordBool dispid 36;
  5307.     property TextFontCharSet: Byte dispid 192;
  5308.     property TextAlign: Byte dispid 133;
  5309.     property FontBold: Smallint dispid 32;
  5310.     property ShortcutMenuBar: WideString dispid 336;
  5311.     property ControlTipText: WideString dispid 362;
  5312.     property HelpContextId: Integer dispid 218;
  5313.     property ColumnWidth: Smallint dispid 163;
  5314.     property ColumnOrder: Smallint dispid 162;
  5315.     property ColumnHidden: WordBool dispid 164;
  5316.     property AutoLabel: WordBool dispid 57;
  5317.     property AddColon: WordBool dispid 3;
  5318.     property LabelX: Smallint dispid 52;
  5319.     property LabelY: Smallint dispid 53;
  5320.     property LabelAlign: Byte dispid 51;
  5321.     property Section: Smallint dispid 238;
  5322.     property ControlName: WideString dispid 296;
  5323.     property Tag: WideString dispid 297;
  5324.     property Text: WideString dispid 298;
  5325.     property SelText: WideString dispid 302;
  5326.     property SelStart: Smallint dispid 301;
  5327.     property SelLength: Smallint dispid 300;
  5328.     property TextAlignGeneral: Smallint dispid 134;
  5329.     property FormatPictureText: WideString dispid 135;
  5330.     property Coltyp: Integer dispid 136;
  5331.     property ListCount: Integer dispid 241;
  5332.     property ListIndex: Integer dispid 242;
  5333.     property IsVisible: WordBool dispid 137;
  5334.     property InSelection: WordBool dispid 312;
  5335.     property BeforeUpdate: WideString dispid 81;
  5336.     property AfterUpdate: WideString dispid 82;
  5337.     property OnChange: WideString dispid 111;
  5338.     property OnNotInList: WideString dispid 117;
  5339.     property OnEnter: WideString dispid 221;
  5340.     property OnExit: WideString dispid 222;
  5341.     property OnGotFocus: WideString dispid 112;
  5342.     property OnLostFocus: WideString dispid 113;
  5343.     property OnClick: WideString dispid 123;
  5344.     property OnDblClick: WideString dispid 223;
  5345.     property OnMouseDown: WideString dispid 104;
  5346.     property OnMouseMove: WideString dispid 106;
  5347.     property OnMouseUp: WideString dispid 105;
  5348.     property OnKeyDown: WideString dispid 101;
  5349.     property OnKeyUp: WideString dispid 102;
  5350.     property OnKeyPress: WideString dispid 103;
  5351.   end;
  5352.  
  5353. // *********************************************************************//
  5354. // Interface: _ComboBoxEvents
  5355. // Flags:     (16) Hidden
  5356. // GUID:      {BC9E434C-F037-11CD-8701-00AA003F0F07}
  5357. // *********************************************************************//
  5358.   _ComboBoxEvents = interface(IUnknown)
  5359.     ['{BC9E434C-F037-11CD-8701-00AA003F0F07}']
  5360.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  5361.     function  AfterUpdate: HResult; stdcall;
  5362.     function  Change: HResult; stdcall;
  5363.     function  NotInList(var NewData: WideString; out Response: Smallint): HResult; stdcall;
  5364.     function  Enter: HResult; stdcall;
  5365.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  5366.     function  GotFocus: HResult; stdcall;
  5367.     function  LostFocus: HResult; stdcall;
  5368.     function  Click: HResult; stdcall;
  5369.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  5370.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  5371.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  5372.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  5373.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  5374.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  5375.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  5376.   end;
  5377.  
  5378. // *********************************************************************//
  5379. // Interface: _ObjectFrame
  5380. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  5381. // GUID:      {3B06E95E-E47C-11CD-8701-00AA003F0F07}
  5382. // *********************************************************************//
  5383.   _ObjectFrame = interface(IDispatch)
  5384.     ['{3B06E95E-E47C-11CD-8701-00AA003F0F07}']
  5385.     function  Get_Application: Application; safecall;
  5386.     function  Get_Parent: IDispatch; safecall;
  5387.     function  Get_OldValue: OleVariant; safecall;
  5388.     function  Get_Object_: IDispatch; safecall;
  5389.     function  Get_ObjectVerbs(Index: Integer): WideString; safecall;
  5390.     function  Get_Properties: Properties; safecall;
  5391.     procedure SizeToFit; safecall;
  5392.     procedure Requery; safecall;
  5393.     procedure Goto_; safecall;
  5394.     procedure SetFocus; safecall;
  5395.     function  Get_Controls: Children; safecall;
  5396.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  5397.     function  Get_Value: OleVariant; safecall;
  5398.     procedure Set_Value(pRet: OleVariant); safecall;
  5399.     function  Get_EventProcPrefix: WideString; safecall;
  5400.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  5401.     function  Get_Name: WideString; safecall;
  5402.     procedure Set_Name(const pRet: WideString); safecall;
  5403.     function  Get_ControlType: Byte; safecall;
  5404.     procedure Set_ControlType(pRet: Byte); safecall;
  5405.     function  Get_SizeMode: Byte; safecall;
  5406.     procedure Set_SizeMode(pRet: Byte); safecall;
  5407.     function  Get_OLEClass: WideString; safecall;
  5408.     procedure Set_OLEClass(const pRet: WideString); safecall;
  5409.     function  Get_Item: WideString; safecall;
  5410.     procedure Set_Item(const pRet: WideString); safecall;
  5411.     function  Get_RowSourceType: WideString; safecall;
  5412.     procedure Set_RowSourceType(const pRet: WideString); safecall;
  5413.     function  Get_RowSource: WideString; safecall;
  5414.     procedure Set_RowSource(const pRet: WideString); safecall;
  5415.     function  Get_LinkChildFields: WideString; safecall;
  5416.     procedure Set_LinkChildFields(const pRet: WideString); safecall;
  5417.     function  Get_LinkMasterFields: WideString; safecall;
  5418.     procedure Set_LinkMasterFields(const pRet: WideString); safecall;
  5419.     function  Get_AutoActivate: Smallint; safecall;
  5420.     procedure Set_AutoActivate(pRet: Smallint); safecall;
  5421.     function  Get_DisplayType: WordBool; safecall;
  5422.     procedure Set_DisplayType(pRet: WordBool); safecall;
  5423.     function  Get_UpdateOptions: Smallint; safecall;
  5424.     procedure Set_UpdateOptions(pRet: Smallint); safecall;
  5425.     function  Get_Verb: Integer; safecall;
  5426.     procedure Set_Verb(pRet: Integer); safecall;
  5427.     function  Get_OLEType: Byte; safecall;
  5428.     procedure Set_OLEType(pRet: Byte); safecall;
  5429.     function  Get_OLETypeAllowed: Byte; safecall;
  5430.     procedure Set_OLETypeAllowed(pRet: Byte); safecall;
  5431.     function  Get_SourceObject: WideString; safecall;
  5432.     procedure Set_SourceObject(const pRet: WideString); safecall;
  5433.     function  Get_Class_: WideString; safecall;
  5434.     procedure Set_Class_(const pRet: WideString); safecall;
  5435.     function  Get_SourceDoc: WideString; safecall;
  5436.     procedure Set_SourceDoc(const pRet: WideString); safecall;
  5437.     function  Get_SourceItem: WideString; safecall;
  5438.     procedure Set_SourceItem(const pRet: WideString); safecall;
  5439.     function  Get_ColumnCount: Smallint; safecall;
  5440.     procedure Set_ColumnCount(pRet: Smallint); safecall;
  5441.     function  Get_ColumnHeads: WordBool; safecall;
  5442.     procedure Set_ColumnHeads(pRet: WordBool); safecall;
  5443.     function  Get_Visible: WordBool; safecall;
  5444.     procedure Set_Visible(pRet: WordBool); safecall;
  5445.     function  Get_DisplayWhen: Byte; safecall;
  5446.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  5447.     function  Get_OleData: OleVariant; safecall;
  5448.     procedure Set_OleData(pRet: OleVariant); safecall;
  5449.     function  Get_UpdateMethod: Smallint; safecall;
  5450.     procedure Set_UpdateMethod(pRet: Smallint); safecall;
  5451.     function  Get_Enabled: WordBool; safecall;
  5452.     procedure Set_Enabled(pRet: WordBool); safecall;
  5453.     function  Get_Locked: WordBool; safecall;
  5454.     procedure Set_Locked(pRet: WordBool); safecall;
  5455.     function  Get_StatusBarText: WideString; safecall;
  5456.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  5457.     function  Get_TabStop: WordBool; safecall;
  5458.     procedure Set_TabStop(pRet: WordBool); safecall;
  5459.     function  Get_TabIndex: Smallint; safecall;
  5460.     procedure Set_TabIndex(pRet: Smallint); safecall;
  5461.     function  Get_Left: Smallint; safecall;
  5462.     procedure Set_Left(pRet: Smallint); safecall;
  5463.     function  Get_Top: Smallint; safecall;
  5464.     procedure Set_Top(pRet: Smallint); safecall;
  5465.     function  Get_Width: Smallint; safecall;
  5466.     procedure Set_Width(pRet: Smallint); safecall;
  5467.     function  Get_Height: Smallint; safecall;
  5468.     procedure Set_Height(pRet: Smallint); safecall;
  5469.     function  Get_BackStyle: Byte; safecall;
  5470.     procedure Set_BackStyle(pRet: Byte); safecall;
  5471.     function  Get_BackColor: Integer; safecall;
  5472.     procedure Set_BackColor(pRet: Integer); safecall;
  5473.     function  Get_SpecialEffect: Byte; safecall;
  5474.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  5475.     function  Get_BorderStyle: Byte; safecall;
  5476.     procedure Set_BorderStyle(pRet: Byte); safecall;
  5477.     function  Get_OldBorderStyle: Byte; safecall;
  5478.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  5479.     function  Get_BorderColor: Integer; safecall;
  5480.     procedure Set_BorderColor(pRet: Integer); safecall;
  5481.     function  Get_BorderWidth: Byte; safecall;
  5482.     procedure Set_BorderWidth(pRet: Byte); safecall;
  5483.     function  Get_BorderLineStyle: Byte; safecall;
  5484.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  5485.     function  Get_ShortcutMenuBar: WideString; safecall;
  5486.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  5487.     function  Get_ControlTipText: WideString; safecall;
  5488.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  5489.     function  Get_HelpContextId: Integer; safecall;
  5490.     procedure Set_HelpContextId(pRet: Integer); safecall;
  5491.     function  Get_Data: Smallint; safecall;
  5492.     procedure Set_Data(pRet: Smallint); safecall;
  5493.     function  Get_Section: Smallint; safecall;
  5494.     procedure Set_Section(pRet: Smallint); safecall;
  5495.     function  Get_ControlName: WideString; safecall;
  5496.     procedure Set_ControlName(const pRet: WideString); safecall;
  5497.     function  Get_Tag: WideString; safecall;
  5498.     procedure Set_Tag(const pRet: WideString); safecall;
  5499.     function  Get_ObjectPalette: OleVariant; safecall;
  5500.     procedure Set_ObjectPalette(pRet: OleVariant); safecall;
  5501.     function  Get_LpOleObject: Integer; safecall;
  5502.     procedure Set_LpOleObject(pRet: Integer); safecall;
  5503.     function  Get_ObjectVerbsCount: Integer; safecall;
  5504.     procedure Set_ObjectVerbsCount(pRet: Integer); safecall;
  5505.     function  Get_Action: Smallint; safecall;
  5506.     procedure Set_Action(pRet: Smallint); safecall;
  5507.     function  Get_Scaling: Byte; safecall;
  5508.     procedure Set_Scaling(pRet: Byte); safecall;
  5509.     function  Get_IsVisible: WordBool; safecall;
  5510.     procedure Set_IsVisible(pRet: WordBool); safecall;
  5511.     function  Get_InSelection: WordBool; safecall;
  5512.     procedure Set_InSelection(pRet: WordBool); safecall;
  5513.     function  Get_OnUpdated: WideString; safecall;
  5514.     procedure Set_OnUpdated(const pRet: WideString); safecall;
  5515.     function  Get_OnEnter: WideString; safecall;
  5516.     procedure Set_OnEnter(const pRet: WideString); safecall;
  5517.     function  Get_OnExit: WideString; safecall;
  5518.     procedure Set_OnExit(const pRet: WideString); safecall;
  5519.     function  Get_OnGotFocus: WideString; safecall;
  5520.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  5521.     function  Get_OnLostFocus: WideString; safecall;
  5522.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  5523.     function  Get_OnClick: WideString; safecall;
  5524.     procedure Set_OnClick(const pRet: WideString); safecall;
  5525.     function  Get_OnDblClick: WideString; safecall;
  5526.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  5527.     function  Get_OnMouseDown: WideString; safecall;
  5528.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  5529.     function  Get_OnMouseMove: WideString; safecall;
  5530.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  5531.     function  Get_OnMouseUp: WideString; safecall;
  5532.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  5533.     property Application: Application read Get_Application;
  5534.     property Parent: IDispatch read Get_Parent;
  5535.     property OldValue: OleVariant read Get_OldValue;
  5536.     property Object_: IDispatch read Get_Object_;
  5537.     property ObjectVerbs[Index: Integer]: WideString read Get_ObjectVerbs;
  5538.     property Properties: Properties read Get_Properties;
  5539.     property Controls: Children read Get_Controls;
  5540.     property Value: OleVariant read Get_Value write Set_Value;
  5541.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  5542.     property Name: WideString read Get_Name write Set_Name;
  5543.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  5544.     property SizeMode: Byte read Get_SizeMode write Set_SizeMode;
  5545.     property OLEClass: WideString read Get_OLEClass write Set_OLEClass;
  5546.     property Item: WideString read Get_Item write Set_Item;
  5547.     property RowSourceType: WideString read Get_RowSourceType write Set_RowSourceType;
  5548.     property RowSource: WideString read Get_RowSource write Set_RowSource;
  5549.     property LinkChildFields: WideString read Get_LinkChildFields write Set_LinkChildFields;
  5550.     property LinkMasterFields: WideString read Get_LinkMasterFields write Set_LinkMasterFields;
  5551.     property AutoActivate: Smallint read Get_AutoActivate write Set_AutoActivate;
  5552.     property DisplayType: WordBool read Get_DisplayType write Set_DisplayType;
  5553.     property UpdateOptions: Smallint read Get_UpdateOptions write Set_UpdateOptions;
  5554.     property Verb: Integer read Get_Verb write Set_Verb;
  5555.     property OLEType: Byte read Get_OLEType write Set_OLEType;
  5556.     property OLETypeAllowed: Byte read Get_OLETypeAllowed write Set_OLETypeAllowed;
  5557.     property SourceObject: WideString read Get_SourceObject write Set_SourceObject;
  5558.     property Class_: WideString read Get_Class_ write Set_Class_;
  5559.     property SourceDoc: WideString read Get_SourceDoc write Set_SourceDoc;
  5560.     property SourceItem: WideString read Get_SourceItem write Set_SourceItem;
  5561.     property ColumnCount: Smallint read Get_ColumnCount write Set_ColumnCount;
  5562.     property ColumnHeads: WordBool read Get_ColumnHeads write Set_ColumnHeads;
  5563.     property Visible: WordBool read Get_Visible write Set_Visible;
  5564.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  5565.     property OleData: OleVariant read Get_OleData write Set_OleData;
  5566.     property UpdateMethod: Smallint read Get_UpdateMethod write Set_UpdateMethod;
  5567.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5568.     property Locked: WordBool read Get_Locked write Set_Locked;
  5569.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  5570.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  5571.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  5572.     property Left: Smallint read Get_Left write Set_Left;
  5573.     property Top: Smallint read Get_Top write Set_Top;
  5574.     property Width: Smallint read Get_Width write Set_Width;
  5575.     property Height: Smallint read Get_Height write Set_Height;
  5576.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  5577.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  5578.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  5579.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  5580.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  5581.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  5582.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  5583.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  5584.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  5585.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  5586.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  5587.     property Data: Smallint read Get_Data write Set_Data;
  5588.     property Section: Smallint read Get_Section write Set_Section;
  5589.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  5590.     property Tag: WideString read Get_Tag write Set_Tag;
  5591.     property ObjectPalette: OleVariant read Get_ObjectPalette write Set_ObjectPalette;
  5592.     property LpOleObject: Integer read Get_LpOleObject write Set_LpOleObject;
  5593.     property ObjectVerbsCount: Integer read Get_ObjectVerbsCount write Set_ObjectVerbsCount;
  5594.     property Action: Smallint read Get_Action write Set_Action;
  5595.     property Scaling: Byte read Get_Scaling write Set_Scaling;
  5596.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  5597.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  5598.     property OnUpdated: WideString read Get_OnUpdated write Set_OnUpdated;
  5599.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  5600.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  5601.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  5602.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  5603.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  5604.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  5605.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  5606.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  5607.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  5608.   end;
  5609.  
  5610. // *********************************************************************//
  5611. // DispIntf:  _ObjectFrameDisp
  5612. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  5613. // GUID:      {3B06E95E-E47C-11CD-8701-00AA003F0F07}
  5614. // *********************************************************************//
  5615.   _ObjectFrameDisp = dispinterface
  5616.     ['{3B06E95E-E47C-11CD-8701-00AA003F0F07}']
  5617.     property Application: Application readonly dispid 2005;
  5618.     property Parent: IDispatch readonly dispid 2087;
  5619.     property OldValue: OleVariant readonly dispid 2102;
  5620.     property Object_: IDispatch readonly dispid 2104;
  5621.     property ObjectVerbs[Index: Integer]: WideString readonly dispid 2105;
  5622.     property Properties: Properties readonly dispid 2091;
  5623.     procedure SizeToFit; dispid 2151;
  5624.     procedure Requery; dispid 2018;
  5625.     procedure Goto_; dispid 2023;
  5626.     procedure SetFocus; dispid 2022;
  5627.     property Controls: Children readonly dispid 2190;
  5628.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  5629.     property Value: OleVariant dispid 0;
  5630.     property EventProcPrefix: WideString dispid 22;
  5631.     property Name: WideString dispid 20;
  5632.     property ControlType: Byte dispid 21;
  5633.     property SizeMode: Byte dispid 85;
  5634.     property OLEClass: WideString dispid 72;
  5635.     property Item: WideString dispid 47;
  5636.     property RowSourceType: WideString dispid 90;
  5637.     property RowSource: WideString dispid 88;
  5638.     property LinkChildFields: WideString dispid 49;
  5639.     property LinkMasterFields: WideString dispid 50;
  5640.     property AutoActivate: Smallint dispid 98;
  5641.     property DisplayType: WordBool dispid 304;
  5642.     property UpdateOptions: Smallint dispid 100;
  5643.     property Verb: Integer dispid 99;
  5644.     property OLEType: Byte dispid 308;
  5645.     property OLETypeAllowed: Byte dispid 307;
  5646.     property SourceObject: WideString dispid 129;
  5647.     property Class_: WideString dispid 306;
  5648.     property SourceDoc: WideString dispid 130;
  5649.     property SourceItem: WideString dispid 48;
  5650.     property ColumnCount: Smallint dispid 66;
  5651.     property ColumnHeads: WordBool dispid 128;
  5652.     property Visible: WordBool dispid 145;
  5653.     property DisplayWhen: Byte dispid 146;
  5654.     property OleData: OleVariant dispid 168;
  5655.     property UpdateMethod: Smallint dispid 139;
  5656.     property Enabled: WordBool dispid 25;
  5657.     property Locked: WordBool dispid 56;
  5658.     property StatusBarText: WideString dispid 132;
  5659.     property TabStop: WordBool dispid 292;
  5660.     property TabIndex: Smallint dispid 291;
  5661.     property Left: Smallint dispid 54;
  5662.     property Top: Smallint dispid 138;
  5663.     property Width: Smallint dispid 147;
  5664.     property Height: Smallint dispid 44;
  5665.     property BackStyle: Byte dispid 29;
  5666.     property BackColor: Integer dispid 28;
  5667.     property SpecialEffect: Byte dispid 4;
  5668.     property BorderStyle: Byte dispid 9;
  5669.     property OldBorderStyle: Byte dispid 371;
  5670.     property BorderColor: Integer dispid 8;
  5671.     property BorderWidth: Byte dispid 10;
  5672.     property BorderLineStyle: Byte dispid 11;
  5673.     property ShortcutMenuBar: WideString dispid 336;
  5674.     property ControlTipText: WideString dispid 362;
  5675.     property HelpContextId: Integer dispid 218;
  5676.     property Data: Smallint dispid 265;
  5677.     property Section: Smallint dispid 238;
  5678.     property ControlName: WideString dispid 296;
  5679.     property Tag: WideString dispid 297;
  5680.     property ObjectPalette: OleVariant dispid 96;
  5681.     property LpOleObject: Integer dispid 169;
  5682.     property ObjectVerbsCount: Integer dispid 172;
  5683.     property Action: Smallint dispid 305;
  5684.     property Scaling: Byte dispid 84;
  5685.     property IsVisible: WordBool dispid 137;
  5686.     property InSelection: WordBool dispid 312;
  5687.     property OnUpdated: WideString dispid 115;
  5688.     property OnEnter: WideString dispid 221;
  5689.     property OnExit: WideString dispid 222;
  5690.     property OnGotFocus: WideString dispid 112;
  5691.     property OnLostFocus: WideString dispid 113;
  5692.     property OnClick: WideString dispid 123;
  5693.     property OnDblClick: WideString dispid 223;
  5694.     property OnMouseDown: WideString dispid 104;
  5695.     property OnMouseMove: WideString dispid 106;
  5696.     property OnMouseUp: WideString dispid 105;
  5697.   end;
  5698.  
  5699. // *********************************************************************//
  5700. // Interface: _ObjectFrameEvents
  5701. // Flags:     (16) Hidden
  5702. // GUID:      {BC9E434D-F037-11CD-8701-00AA003F0F07}
  5703. // *********************************************************************//
  5704.   _ObjectFrameEvents = interface(IUnknown)
  5705.     ['{BC9E434D-F037-11CD-8701-00AA003F0F07}']
  5706.     function  Updated(var Code: Smallint): HResult; stdcall;
  5707.     function  Enter: HResult; stdcall;
  5708.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  5709.     function  GotFocus: HResult; stdcall;
  5710.     function  LostFocus: HResult; stdcall;
  5711.     function  Click: HResult; stdcall;
  5712.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  5713.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  5714.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  5715.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  5716.   end;
  5717.  
  5718. // *********************************************************************//
  5719. // Interface: _PageBreak
  5720. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5721. // GUID:      {3B06E960-E47C-11CD-8701-00AA003F0F07}
  5722. // *********************************************************************//
  5723.   _PageBreak = interface(IDispatch)
  5724.     ['{3B06E960-E47C-11CD-8701-00AA003F0F07}']
  5725.     function  Get_Application: Application; safecall;
  5726.     function  Get_Parent: IDispatch; safecall;
  5727.     function  Get_Properties: Properties; safecall;
  5728.     procedure SizeToFit; safecall;
  5729.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  5730.     function  Get_EventProcPrefix: WideString; safecall;
  5731.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  5732.     function  Get_Name: WideString; safecall;
  5733.     procedure Set_Name(const pRet: WideString); safecall;
  5734.     function  Get_ControlType: Byte; safecall;
  5735.     procedure Set_ControlType(pRet: Byte); safecall;
  5736.     function  Get_Left: Smallint; safecall;
  5737.     procedure Set_Left(pRet: Smallint); safecall;
  5738.     function  Get_Top: Smallint; safecall;
  5739.     procedure Set_Top(pRet: Smallint); safecall;
  5740.     function  Get_Tag: WideString; safecall;
  5741.     procedure Set_Tag(const pRet: WideString); safecall;
  5742.     function  Get_Section: Smallint; safecall;
  5743.     procedure Set_Section(pRet: Smallint); safecall;
  5744.     function  Get_Visible: WordBool; safecall;
  5745.     procedure Set_Visible(pRet: WordBool); safecall;
  5746.     function  Get_IsVisible: WordBool; safecall;
  5747.     procedure Set_IsVisible(pRet: WordBool); safecall;
  5748.     function  Get_InSelection: WordBool; safecall;
  5749.     procedure Set_InSelection(pRet: WordBool); safecall;
  5750.     function  Get_ControlName: WideString; safecall;
  5751.     procedure Set_ControlName(const pRet: WideString); safecall;
  5752.     property Application: Application read Get_Application;
  5753.     property Parent: IDispatch read Get_Parent;
  5754.     property Properties: Properties read Get_Properties;
  5755.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  5756.     property Name: WideString read Get_Name write Set_Name;
  5757.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  5758.     property Left: Smallint read Get_Left write Set_Left;
  5759.     property Top: Smallint read Get_Top write Set_Top;
  5760.     property Tag: WideString read Get_Tag write Set_Tag;
  5761.     property Section: Smallint read Get_Section write Set_Section;
  5762.     property Visible: WordBool read Get_Visible write Set_Visible;
  5763.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  5764.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  5765.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  5766.   end;
  5767.  
  5768. // *********************************************************************//
  5769. // DispIntf:  _PageBreakDisp
  5770. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5771. // GUID:      {3B06E960-E47C-11CD-8701-00AA003F0F07}
  5772. // *********************************************************************//
  5773.   _PageBreakDisp = dispinterface
  5774.     ['{3B06E960-E47C-11CD-8701-00AA003F0F07}']
  5775.     property Application: Application readonly dispid 2005;
  5776.     property Parent: IDispatch readonly dispid 2087;
  5777.     property Properties: Properties readonly dispid 2091;
  5778.     procedure SizeToFit; dispid 2151;
  5779.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  5780.     property EventProcPrefix: WideString dispid 22;
  5781.     property Name: WideString dispid 20;
  5782.     property ControlType: Byte dispid 21;
  5783.     property Left: Smallint dispid 54;
  5784.     property Top: Smallint dispid 138;
  5785.     property Tag: WideString dispid 297;
  5786.     property Section: Smallint dispid 238;
  5787.     property Visible: WordBool dispid 145;
  5788.     property IsVisible: WordBool dispid 137;
  5789.     property InSelection: WordBool dispid 312;
  5790.     property ControlName: WideString dispid 296;
  5791.   end;
  5792.  
  5793. // *********************************************************************//
  5794. // Interface: _PageBreakEvents
  5795. // Flags:     (16) Hidden
  5796. // GUID:      {BC9E434E-F037-11CD-8701-00AA003F0F07}
  5797. // *********************************************************************//
  5798.   _PageBreakEvents = interface(IUnknown)
  5799.     ['{BC9E434E-F037-11CD-8701-00AA003F0F07}']
  5800.   end;
  5801.  
  5802. // *********************************************************************//
  5803. // Interface: _ToggleButton
  5804. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5805. // GUID:      {3B06E962-E47C-11CD-8701-00AA003F0F07}
  5806. // *********************************************************************//
  5807.   _ToggleButton = interface(IDispatch)
  5808.     ['{3B06E962-E47C-11CD-8701-00AA003F0F07}']
  5809.     function  Get_Application: Application; safecall;
  5810.     function  Get_Parent: IDispatch; safecall;
  5811.     procedure Undo; safecall;
  5812.     function  Get_OldValue: OleVariant; safecall;
  5813.     function  Get_Properties: Properties; safecall;
  5814.     procedure SizeToFit; safecall;
  5815.     procedure Requery; safecall;
  5816.     procedure Goto_; safecall;
  5817.     procedure SetFocus; safecall;
  5818.     function  Get_Controls: Children; safecall;
  5819.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  5820.     function  Get_Value: OleVariant; safecall;
  5821.     procedure Set_Value(pRet: OleVariant); safecall;
  5822.     function  Get_EventProcPrefix: WideString; safecall;
  5823.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  5824.     function  Get_Name: WideString; safecall;
  5825.     procedure Set_Name(const pRet: WideString); safecall;
  5826.     function  Get_ControlType: Byte; safecall;
  5827.     procedure Set_ControlType(pRet: Byte); safecall;
  5828.     function  Get_ControlSource: WideString; safecall;
  5829.     procedure Set_ControlSource(const pRet: WideString); safecall;
  5830.     function  Get_Caption: WideString; safecall;
  5831.     procedure Set_Caption(const pRet: WideString); safecall;
  5832.     function  Get_Picture: WideString; safecall;
  5833.     procedure Set_Picture(const pRet: WideString); safecall;
  5834.     function  Get_PictureType: Byte; safecall;
  5835.     procedure Set_PictureType(pRet: Byte); safecall;
  5836.     function  Get_PictureData: OleVariant; safecall;
  5837.     procedure Set_PictureData(pRet: OleVariant); safecall;
  5838.     function  Get_OptionValue: Integer; safecall;
  5839.     procedure Set_OptionValue(pRet: Integer); safecall;
  5840.     function  Get_DefaultValue: WideString; safecall;
  5841.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  5842.     function  Get_ValidationRule: WideString; safecall;
  5843.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  5844.     function  Get_ValidationText: WideString; safecall;
  5845.     procedure Set_ValidationText(const pRet: WideString); safecall;
  5846.     function  Get_StatusBarText: WideString; safecall;
  5847.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  5848.     function  Get_Visible: WordBool; safecall;
  5849.     procedure Set_Visible(pRet: WordBool); safecall;
  5850.     function  Get_DisplayWhen: Byte; safecall;
  5851.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  5852.     function  Get_Enabled: WordBool; safecall;
  5853.     procedure Set_Enabled(pRet: WordBool); safecall;
  5854.     function  Get_Locked: WordBool; safecall;
  5855.     procedure Set_Locked(pRet: WordBool); safecall;
  5856.     function  Get_TripleState: WordBool; safecall;
  5857.     procedure Set_TripleState(pRet: WordBool); safecall;
  5858.     function  Get_TabStop: WordBool; safecall;
  5859.     procedure Set_TabStop(pRet: WordBool); safecall;
  5860.     function  Get_TabIndex: Smallint; safecall;
  5861.     procedure Set_TabIndex(pRet: Smallint); safecall;
  5862.     function  Get_HideDuplicates: WordBool; safecall;
  5863.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  5864.     function  Get_Left: Smallint; safecall;
  5865.     procedure Set_Left(pRet: Smallint); safecall;
  5866.     function  Get_Top: Smallint; safecall;
  5867.     procedure Set_Top(pRet: Smallint); safecall;
  5868.     function  Get_Width: Smallint; safecall;
  5869.     procedure Set_Width(pRet: Smallint); safecall;
  5870.     function  Get_Height: Smallint; safecall;
  5871.     procedure Set_Height(pRet: Smallint); safecall;
  5872.     function  Get_ForeColor: Integer; safecall;
  5873.     procedure Set_ForeColor(pRet: Integer); safecall;
  5874.     function  Get_FontName: WideString; safecall;
  5875.     procedure Set_FontName(const pRet: WideString); safecall;
  5876.     function  Get_FontSize: Smallint; safecall;
  5877.     procedure Set_FontSize(pRet: Smallint); safecall;
  5878.     function  Get_FontWeight: Smallint; safecall;
  5879.     procedure Set_FontWeight(pRet: Smallint); safecall;
  5880.     function  Get_FontItalic: WordBool; safecall;
  5881.     procedure Set_FontItalic(pRet: WordBool); safecall;
  5882.     function  Get_FontUnderline: WordBool; safecall;
  5883.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  5884.     function  Get_TextFontCharSet: Byte; safecall;
  5885.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  5886.     function  Get_FontBold: Smallint; safecall;
  5887.     procedure Set_FontBold(pRet: Smallint); safecall;
  5888.     function  Get_ShortcutMenuBar: WideString; safecall;
  5889.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  5890.     function  Get_ControlTipText: WideString; safecall;
  5891.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  5892.     function  Get_HelpContextId: Integer; safecall;
  5893.     procedure Set_HelpContextId(pRet: Integer); safecall;
  5894.     function  Get_ColumnWidth: Smallint; safecall;
  5895.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  5896.     function  Get_ColumnOrder: Smallint; safecall;
  5897.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  5898.     function  Get_ColumnHidden: WordBool; safecall;
  5899.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  5900.     function  Get_AutoLabel: WordBool; safecall;
  5901.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  5902.     function  Get_AddColon: WordBool; safecall;
  5903.     procedure Set_AddColon(pRet: WordBool); safecall;
  5904.     function  Get_LabelX: Smallint; safecall;
  5905.     procedure Set_LabelX(pRet: Smallint); safecall;
  5906.     function  Get_LabelY: Smallint; safecall;
  5907.     procedure Set_LabelY(pRet: Smallint); safecall;
  5908.     function  Get_LabelAlign: Byte; safecall;
  5909.     procedure Set_LabelAlign(pRet: Byte); safecall;
  5910.     function  Get_Section: Smallint; safecall;
  5911.     procedure Set_Section(pRet: Smallint); safecall;
  5912.     function  Get_ControlName: WideString; safecall;
  5913.     procedure Set_ControlName(const pRet: WideString); safecall;
  5914.     function  Get_Tag: WideString; safecall;
  5915.     procedure Set_Tag(const pRet: WideString); safecall;
  5916.     function  Get_ObjectPalette: OleVariant; safecall;
  5917.     procedure Set_ObjectPalette(pRet: OleVariant); safecall;
  5918.     function  Get_IsVisible: WordBool; safecall;
  5919.     procedure Set_IsVisible(pRet: WordBool); safecall;
  5920.     function  Get_InSelection: WordBool; safecall;
  5921.     procedure Set_InSelection(pRet: WordBool); safecall;
  5922.     function  Get_BeforeUpdate: WideString; safecall;
  5923.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  5924.     function  Get_AfterUpdate: WideString; safecall;
  5925.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  5926.     function  Get_OnEnter: WideString; safecall;
  5927.     procedure Set_OnEnter(const pRet: WideString); safecall;
  5928.     function  Get_OnExit: WideString; safecall;
  5929.     procedure Set_OnExit(const pRet: WideString); safecall;
  5930.     function  Get_OnGotFocus: WideString; safecall;
  5931.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  5932.     function  Get_OnLostFocus: WideString; safecall;
  5933.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  5934.     function  Get_OnClick: WideString; safecall;
  5935.     procedure Set_OnClick(const pRet: WideString); safecall;
  5936.     function  Get_OnDblClick: WideString; safecall;
  5937.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  5938.     function  Get_OnMouseDown: WideString; safecall;
  5939.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  5940.     function  Get_OnMouseMove: WideString; safecall;
  5941.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  5942.     function  Get_OnMouseUp: WideString; safecall;
  5943.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  5944.     function  Get_OnKeyDown: WideString; safecall;
  5945.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  5946.     function  Get_OnKeyUp: WideString; safecall;
  5947.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  5948.     function  Get_OnKeyPress: WideString; safecall;
  5949.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  5950.     property Application: Application read Get_Application;
  5951.     property Parent: IDispatch read Get_Parent;
  5952.     property OldValue: OleVariant read Get_OldValue;
  5953.     property Properties: Properties read Get_Properties;
  5954.     property Controls: Children read Get_Controls;
  5955.     property Value: OleVariant read Get_Value write Set_Value;
  5956.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  5957.     property Name: WideString read Get_Name write Set_Name;
  5958.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  5959.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  5960.     property Caption: WideString read Get_Caption write Set_Caption;
  5961.     property Picture: WideString read Get_Picture write Set_Picture;
  5962.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  5963.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  5964.     property OptionValue: Integer read Get_OptionValue write Set_OptionValue;
  5965.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  5966.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  5967.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  5968.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  5969.     property Visible: WordBool read Get_Visible write Set_Visible;
  5970.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  5971.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5972.     property Locked: WordBool read Get_Locked write Set_Locked;
  5973.     property TripleState: WordBool read Get_TripleState write Set_TripleState;
  5974.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  5975.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  5976.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  5977.     property Left: Smallint read Get_Left write Set_Left;
  5978.     property Top: Smallint read Get_Top write Set_Top;
  5979.     property Width: Smallint read Get_Width write Set_Width;
  5980.     property Height: Smallint read Get_Height write Set_Height;
  5981.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  5982.     property FontName: WideString read Get_FontName write Set_FontName;
  5983.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  5984.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  5985.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  5986.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  5987.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  5988.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  5989.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  5990.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  5991.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  5992.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  5993.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  5994.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  5995.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  5996.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  5997.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  5998.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  5999.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  6000.     property Section: Smallint read Get_Section write Set_Section;
  6001.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  6002.     property Tag: WideString read Get_Tag write Set_Tag;
  6003.     property ObjectPalette: OleVariant read Get_ObjectPalette write Set_ObjectPalette;
  6004.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  6005.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  6006.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  6007.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  6008.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  6009.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  6010.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  6011.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  6012.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6013.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  6014.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  6015.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  6016.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  6017.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  6018.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  6019.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  6020.   end;
  6021.  
  6022. // *********************************************************************//
  6023. // DispIntf:  _ToggleButtonDisp
  6024. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6025. // GUID:      {3B06E962-E47C-11CD-8701-00AA003F0F07}
  6026. // *********************************************************************//
  6027.   _ToggleButtonDisp = dispinterface
  6028.     ['{3B06E962-E47C-11CD-8701-00AA003F0F07}']
  6029.     property Application: Application readonly dispid 2005;
  6030.     property Parent: IDispatch readonly dispid 2087;
  6031.     procedure Undo; dispid 2144;
  6032.     property OldValue: OleVariant readonly dispid 2102;
  6033.     property Properties: Properties readonly dispid 2091;
  6034.     procedure SizeToFit; dispid 2151;
  6035.     procedure Requery; dispid 2018;
  6036.     procedure Goto_; dispid 2023;
  6037.     procedure SetFocus; dispid 2022;
  6038.     property Controls: Children readonly dispid 2190;
  6039.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  6040.     property Value: OleVariant dispid 0;
  6041.     property EventProcPrefix: WideString dispid 22;
  6042.     property Name: WideString dispid 20;
  6043.     property ControlType: Byte dispid 21;
  6044.     property ControlSource: WideString dispid 27;
  6045.     property Caption: WideString dispid 17;
  6046.     property Picture: WideString dispid 7;
  6047.     property PictureType: Byte dispid 384;
  6048.     property PictureData: OleVariant dispid 187;
  6049.     property OptionValue: Integer dispid 58;
  6050.     property DefaultValue: WideString dispid 23;
  6051.     property ValidationRule: WideString dispid 142;
  6052.     property ValidationText: WideString dispid 61;
  6053.     property StatusBarText: WideString dispid 132;
  6054.     property Visible: WordBool dispid 145;
  6055.     property DisplayWhen: Byte dispid 146;
  6056.     property Enabled: WordBool dispid 25;
  6057.     property Locked: WordBool dispid 56;
  6058.     property TripleState: WordBool dispid 326;
  6059.     property TabStop: WordBool dispid 292;
  6060.     property TabIndex: Smallint dispid 291;
  6061.     property HideDuplicates: WordBool dispid 65;
  6062.     property Left: Smallint dispid 54;
  6063.     property Top: Smallint dispid 138;
  6064.     property Width: Smallint dispid 147;
  6065.     property Height: Smallint dispid 44;
  6066.     property ForeColor: Integer dispid 203;
  6067.     property FontName: WideString dispid 34;
  6068.     property FontSize: Smallint dispid 35;
  6069.     property FontWeight: Smallint dispid 37;
  6070.     property FontItalic: WordBool dispid 33;
  6071.     property FontUnderline: WordBool dispid 36;
  6072.     property TextFontCharSet: Byte dispid 192;
  6073.     property FontBold: Smallint dispid 32;
  6074.     property ShortcutMenuBar: WideString dispid 336;
  6075.     property ControlTipText: WideString dispid 362;
  6076.     property HelpContextId: Integer dispid 218;
  6077.     property ColumnWidth: Smallint dispid 163;
  6078.     property ColumnOrder: Smallint dispid 162;
  6079.     property ColumnHidden: WordBool dispid 164;
  6080.     property AutoLabel: WordBool dispid 57;
  6081.     property AddColon: WordBool dispid 3;
  6082.     property LabelX: Smallint dispid 52;
  6083.     property LabelY: Smallint dispid 53;
  6084.     property LabelAlign: Byte dispid 51;
  6085.     property Section: Smallint dispid 238;
  6086.     property ControlName: WideString dispid 296;
  6087.     property Tag: WideString dispid 297;
  6088.     property ObjectPalette: OleVariant dispid 96;
  6089.     property IsVisible: WordBool dispid 137;
  6090.     property InSelection: WordBool dispid 312;
  6091.     property BeforeUpdate: WideString dispid 81;
  6092.     property AfterUpdate: WideString dispid 82;
  6093.     property OnEnter: WideString dispid 221;
  6094.     property OnExit: WideString dispid 222;
  6095.     property OnGotFocus: WideString dispid 112;
  6096.     property OnLostFocus: WideString dispid 113;
  6097.     property OnClick: WideString dispid 123;
  6098.     property OnDblClick: WideString dispid 223;
  6099.     property OnMouseDown: WideString dispid 104;
  6100.     property OnMouseMove: WideString dispid 106;
  6101.     property OnMouseUp: WideString dispid 105;
  6102.     property OnKeyDown: WideString dispid 101;
  6103.     property OnKeyUp: WideString dispid 102;
  6104.     property OnKeyPress: WideString dispid 103;
  6105.   end;
  6106.  
  6107. // *********************************************************************//
  6108. // Interface: _ToggleButtonEvents
  6109. // Flags:     (16) Hidden
  6110. // GUID:      {BC9E434F-F037-11CD-8701-00AA003F0F07}
  6111. // *********************************************************************//
  6112.   _ToggleButtonEvents = interface(IUnknown)
  6113.     ['{BC9E434F-F037-11CD-8701-00AA003F0F07}']
  6114.     function  Click: HResult; stdcall;
  6115.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  6116.     function  AfterUpdate: HResult; stdcall;
  6117.     function  Enter: HResult; stdcall;
  6118.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  6119.     function  GotFocus: HResult; stdcall;
  6120.     function  LostFocus: HResult; stdcall;
  6121.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  6122.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6123.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6124.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6125.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  6126.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  6127.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  6128.   end;
  6129.  
  6130. // *********************************************************************//
  6131. // Interface: _ToggleButtonInOptionEvents
  6132. // Flags:     (16) Hidden
  6133. // GUID:      {BC9E435F-F037-11CD-8701-00AA003F0F07}
  6134. // *********************************************************************//
  6135.   _ToggleButtonInOptionEvents = interface(IUnknown)
  6136.     ['{BC9E435F-F037-11CD-8701-00AA003F0F07}']
  6137.     function  GotFocus: HResult; stdcall;
  6138.     function  LostFocus: HResult; stdcall;
  6139.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6140.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6141.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6142.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  6143.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  6144.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  6145.   end;
  6146.  
  6147. // *********************************************************************//
  6148. // Interface: _PaletteButton
  6149. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6150. // GUID:      {9CD4A760-A6A9-11CE-A686-00AA003F0F07}
  6151. // *********************************************************************//
  6152.   _PaletteButton = interface(IDispatch)
  6153.     ['{9CD4A760-A6A9-11CE-A686-00AA003F0F07}']
  6154.     function  Get_Application: Application; safecall;
  6155.     function  Get_Parent: IDispatch; safecall;
  6156.     function  Get_OldValue: OleVariant; safecall;
  6157.     function  Get_Properties: Properties; safecall;
  6158.     procedure SizeToFit; safecall;
  6159.     procedure Requery; safecall;
  6160.     procedure Goto_; safecall;
  6161.     procedure SetFocus; safecall;
  6162.     function  Get_Controls: Children; safecall;
  6163.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  6164.     function  Get_Value: OleVariant; safecall;
  6165.     procedure Set_Value(pRet: OleVariant); safecall;
  6166.     function  Get_EventProcPrefix: WideString; safecall;
  6167.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  6168.     function  Get_Name: WideString; safecall;
  6169.     procedure Set_Name(const pRet: WideString); safecall;
  6170.     function  Get_ControlType: Byte; safecall;
  6171.     procedure Set_ControlType(pRet: Byte); safecall;
  6172.     function  Get_OptionValue: Integer; safecall;
  6173.     procedure Set_OptionValue(pRet: Integer); safecall;
  6174.     function  Get_ControlSource: WideString; safecall;
  6175.     procedure Set_ControlSource(const pRet: WideString); safecall;
  6176.     function  Get_DefaultValue: WideString; safecall;
  6177.     procedure Set_DefaultValue(const pRet: WideString); safecall;
  6178.     function  Get_ValidationRule: WideString; safecall;
  6179.     procedure Set_ValidationRule(const pRet: WideString); safecall;
  6180.     function  Get_ValidationText: WideString; safecall;
  6181.     procedure Set_ValidationText(const pRet: WideString); safecall;
  6182.     function  Get_StatusBarText: WideString; safecall;
  6183.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  6184.     function  Get_Visible: WordBool; safecall;
  6185.     procedure Set_Visible(pRet: WordBool); safecall;
  6186.     function  Get_DisplayWhen: Byte; safecall;
  6187.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  6188.     function  Get_Enabled: WordBool; safecall;
  6189.     procedure Set_Enabled(pRet: WordBool); safecall;
  6190.     function  Get_Locked: WordBool; safecall;
  6191.     procedure Set_Locked(pRet: WordBool); safecall;
  6192.     function  Get_TripleState: WordBool; safecall;
  6193.     procedure Set_TripleState(pRet: WordBool); safecall;
  6194.     function  Get_TabStop: WordBool; safecall;
  6195.     procedure Set_TabStop(pRet: WordBool); safecall;
  6196.     function  Get_TabIndex: Smallint; safecall;
  6197.     procedure Set_TabIndex(pRet: Smallint); safecall;
  6198.     function  Get_HideDuplicates: WordBool; safecall;
  6199.     procedure Set_HideDuplicates(pRet: WordBool); safecall;
  6200.     function  Get_Left: Smallint; safecall;
  6201.     procedure Set_Left(pRet: Smallint); safecall;
  6202.     function  Get_Top: Smallint; safecall;
  6203.     procedure Set_Top(pRet: Smallint); safecall;
  6204.     function  Get_Width: Smallint; safecall;
  6205.     procedure Set_Width(pRet: Smallint); safecall;
  6206.     function  Get_Height: Smallint; safecall;
  6207.     procedure Set_Height(pRet: Smallint); safecall;
  6208.     function  Get_BackStyle: Byte; safecall;
  6209.     procedure Set_BackStyle(pRet: Byte); safecall;
  6210.     function  Get_BackColor: Integer; safecall;
  6211.     procedure Set_BackColor(pRet: Integer); safecall;
  6212.     function  Get_ShortcutMenuBar: WideString; safecall;
  6213.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  6214.     function  Get_ControlTipText: WideString; safecall;
  6215.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  6216.     function  Get_HelpContextId: Integer; safecall;
  6217.     procedure Set_HelpContextId(pRet: Integer); safecall;
  6218.     function  Get_ColumnWidth: Smallint; safecall;
  6219.     procedure Set_ColumnWidth(pRet: Smallint); safecall;
  6220.     function  Get_ColumnOrder: Smallint; safecall;
  6221.     procedure Set_ColumnOrder(pRet: Smallint); safecall;
  6222.     function  Get_ColumnHidden: WordBool; safecall;
  6223.     procedure Set_ColumnHidden(pRet: WordBool); safecall;
  6224.     function  Get_AutoLabel: WordBool; safecall;
  6225.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  6226.     function  Get_AddColon: WordBool; safecall;
  6227.     procedure Set_AddColon(pRet: WordBool); safecall;
  6228.     function  Get_LabelX: Smallint; safecall;
  6229.     procedure Set_LabelX(pRet: Smallint); safecall;
  6230.     function  Get_LabelY: Smallint; safecall;
  6231.     procedure Set_LabelY(pRet: Smallint); safecall;
  6232.     function  Get_LabelAlign: Byte; safecall;
  6233.     procedure Set_LabelAlign(pRet: Byte); safecall;
  6234.     function  Get_Section: Smallint; safecall;
  6235.     procedure Set_Section(pRet: Smallint); safecall;
  6236.     function  Get_ControlName: WideString; safecall;
  6237.     procedure Set_ControlName(const pRet: WideString); safecall;
  6238.     function  Get_Tag: WideString; safecall;
  6239.     procedure Set_Tag(const pRet: WideString); safecall;
  6240.     function  Get_IsVisible: WordBool; safecall;
  6241.     procedure Set_IsVisible(pRet: WordBool); safecall;
  6242.     function  Get_InSelection: WordBool; safecall;
  6243.     procedure Set_InSelection(pRet: WordBool); safecall;
  6244.     function  Get_BeforeUpdate: WideString; safecall;
  6245.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  6246.     function  Get_AfterUpdate: WideString; safecall;
  6247.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  6248.     function  Get_OnEnter: WideString; safecall;
  6249.     procedure Set_OnEnter(const pRet: WideString); safecall;
  6250.     function  Get_OnExit: WideString; safecall;
  6251.     procedure Set_OnExit(const pRet: WideString); safecall;
  6252.     function  Get_OnGotFocus: WideString; safecall;
  6253.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  6254.     function  Get_OnLostFocus: WideString; safecall;
  6255.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  6256.     function  Get_OnClick: WideString; safecall;
  6257.     procedure Set_OnClick(const pRet: WideString); safecall;
  6258.     function  Get_OnDblClick: WideString; safecall;
  6259.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  6260.     function  Get_OnMouseDown: WideString; safecall;
  6261.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  6262.     function  Get_OnMouseMove: WideString; safecall;
  6263.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  6264.     function  Get_OnMouseUp: WideString; safecall;
  6265.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  6266.     function  Get_OnKeyDown: WideString; safecall;
  6267.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  6268.     function  Get_OnKeyUp: WideString; safecall;
  6269.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  6270.     function  Get_OnKeyPress: WideString; safecall;
  6271.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  6272.     property Application: Application read Get_Application;
  6273.     property Parent: IDispatch read Get_Parent;
  6274.     property OldValue: OleVariant read Get_OldValue;
  6275.     property Properties: Properties read Get_Properties;
  6276.     property Controls: Children read Get_Controls;
  6277.     property Value: OleVariant read Get_Value write Set_Value;
  6278.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  6279.     property Name: WideString read Get_Name write Set_Name;
  6280.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  6281.     property OptionValue: Integer read Get_OptionValue write Set_OptionValue;
  6282.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  6283.     property DefaultValue: WideString read Get_DefaultValue write Set_DefaultValue;
  6284.     property ValidationRule: WideString read Get_ValidationRule write Set_ValidationRule;
  6285.     property ValidationText: WideString read Get_ValidationText write Set_ValidationText;
  6286.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  6287.     property Visible: WordBool read Get_Visible write Set_Visible;
  6288.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  6289.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  6290.     property Locked: WordBool read Get_Locked write Set_Locked;
  6291.     property TripleState: WordBool read Get_TripleState write Set_TripleState;
  6292.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  6293.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  6294.     property HideDuplicates: WordBool read Get_HideDuplicates write Set_HideDuplicates;
  6295.     property Left: Smallint read Get_Left write Set_Left;
  6296.     property Top: Smallint read Get_Top write Set_Top;
  6297.     property Width: Smallint read Get_Width write Set_Width;
  6298.     property Height: Smallint read Get_Height write Set_Height;
  6299.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  6300.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  6301.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  6302.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  6303.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  6304.     property ColumnWidth: Smallint read Get_ColumnWidth write Set_ColumnWidth;
  6305.     property ColumnOrder: Smallint read Get_ColumnOrder write Set_ColumnOrder;
  6306.     property ColumnHidden: WordBool read Get_ColumnHidden write Set_ColumnHidden;
  6307.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  6308.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  6309.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  6310.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  6311.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  6312.     property Section: Smallint read Get_Section write Set_Section;
  6313.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  6314.     property Tag: WideString read Get_Tag write Set_Tag;
  6315.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  6316.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  6317.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  6318.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  6319.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  6320.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  6321.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  6322.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  6323.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  6324.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  6325.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  6326.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  6327.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  6328.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  6329.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  6330.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  6331.   end;
  6332.  
  6333. // *********************************************************************//
  6334. // DispIntf:  _PaletteButtonDisp
  6335. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6336. // GUID:      {9CD4A760-A6A9-11CE-A686-00AA003F0F07}
  6337. // *********************************************************************//
  6338.   _PaletteButtonDisp = dispinterface
  6339.     ['{9CD4A760-A6A9-11CE-A686-00AA003F0F07}']
  6340.     property Application: Application readonly dispid 2005;
  6341.     property Parent: IDispatch readonly dispid 2087;
  6342.     property OldValue: OleVariant readonly dispid 2102;
  6343.     property Properties: Properties readonly dispid 2091;
  6344.     procedure SizeToFit; dispid 2151;
  6345.     procedure Requery; dispid 2018;
  6346.     procedure Goto_; dispid 2023;
  6347.     procedure SetFocus; dispid 2022;
  6348.     property Controls: Children readonly dispid 2190;
  6349.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  6350.     property Value: OleVariant dispid 0;
  6351.     property EventProcPrefix: WideString dispid 22;
  6352.     property Name: WideString dispid 20;
  6353.     property ControlType: Byte dispid 21;
  6354.     property OptionValue: Integer dispid 58;
  6355.     property ControlSource: WideString dispid 27;
  6356.     property DefaultValue: WideString dispid 23;
  6357.     property ValidationRule: WideString dispid 142;
  6358.     property ValidationText: WideString dispid 61;
  6359.     property StatusBarText: WideString dispid 132;
  6360.     property Visible: WordBool dispid 145;
  6361.     property DisplayWhen: Byte dispid 146;
  6362.     property Enabled: WordBool dispid 25;
  6363.     property Locked: WordBool dispid 56;
  6364.     property TripleState: WordBool dispid 326;
  6365.     property TabStop: WordBool dispid 292;
  6366.     property TabIndex: Smallint dispid 291;
  6367.     property HideDuplicates: WordBool dispid 65;
  6368.     property Left: Smallint dispid 54;
  6369.     property Top: Smallint dispid 138;
  6370.     property Width: Smallint dispid 147;
  6371.     property Height: Smallint dispid 44;
  6372.     property BackStyle: Byte dispid 29;
  6373.     property BackColor: Integer dispid 28;
  6374.     property ShortcutMenuBar: WideString dispid 336;
  6375.     property ControlTipText: WideString dispid 362;
  6376.     property HelpContextId: Integer dispid 218;
  6377.     property ColumnWidth: Smallint dispid 163;
  6378.     property ColumnOrder: Smallint dispid 162;
  6379.     property ColumnHidden: WordBool dispid 164;
  6380.     property AutoLabel: WordBool dispid 57;
  6381.     property AddColon: WordBool dispid 3;
  6382.     property LabelX: Smallint dispid 52;
  6383.     property LabelY: Smallint dispid 53;
  6384.     property LabelAlign: Byte dispid 51;
  6385.     property Section: Smallint dispid 238;
  6386.     property ControlName: WideString dispid 296;
  6387.     property Tag: WideString dispid 297;
  6388.     property IsVisible: WordBool dispid 137;
  6389.     property InSelection: WordBool dispid 312;
  6390.     property BeforeUpdate: WideString dispid 81;
  6391.     property AfterUpdate: WideString dispid 82;
  6392.     property OnEnter: WideString dispid 221;
  6393.     property OnExit: WideString dispid 222;
  6394.     property OnGotFocus: WideString dispid 112;
  6395.     property OnLostFocus: WideString dispid 113;
  6396.     property OnClick: WideString dispid 123;
  6397.     property OnDblClick: WideString dispid 223;
  6398.     property OnMouseDown: WideString dispid 104;
  6399.     property OnMouseMove: WideString dispid 106;
  6400.     property OnMouseUp: WideString dispid 105;
  6401.     property OnKeyDown: WideString dispid 101;
  6402.     property OnKeyUp: WideString dispid 102;
  6403.     property OnKeyPress: WideString dispid 103;
  6404.   end;
  6405.  
  6406. // *********************************************************************//
  6407. // Interface: _PaletteButtonEvents
  6408. // Flags:     (16) Hidden
  6409. // GUID:      {A843CCD0-6E2C-11CF-A219-00A0C90542FF}
  6410. // *********************************************************************//
  6411.   _PaletteButtonEvents = interface(IUnknown)
  6412.     ['{A843CCD0-6E2C-11CF-A219-00A0C90542FF}']
  6413.     function  Click: HResult; stdcall;
  6414.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  6415.     function  AfterUpdate: HResult; stdcall;
  6416.     function  Enter: HResult; stdcall;
  6417.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  6418.     function  GotFocus: HResult; stdcall;
  6419.     function  LostFocus: HResult; stdcall;
  6420.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  6421.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6422.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6423.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  6424.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  6425.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  6426.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  6427.   end;
  6428.  
  6429. // *********************************************************************//
  6430. // Interface: _SubForm
  6431. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6432. // GUID:      {3B06E964-E47C-11CD-8701-00AA003F0F07}
  6433. // *********************************************************************//
  6434.   _SubForm = interface(IDispatch)
  6435.     ['{3B06E964-E47C-11CD-8701-00AA003F0F07}']
  6436.     function  Get_Application: Application; safecall;
  6437.     function  Get_Parent: IDispatch; safecall;
  6438.     function  Get_Form: AccessForm; safecall;
  6439.     function  Get_Report: AccessReport; safecall;
  6440.     function  Get_Properties: Properties; safecall;
  6441.     procedure SizeToFit; safecall;
  6442.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  6443.     procedure Goto_; safecall;
  6444.     procedure SetFocus; safecall;
  6445.     procedure Requery; safecall;
  6446.     function  Get_Controls: Controls; safecall;
  6447.     function  Get_EventProcPrefix: WideString; safecall;
  6448.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  6449.     function  Get_Name: WideString; safecall;
  6450.     procedure Set_Name(const pRet: WideString); safecall;
  6451.     function  Get_ControlType: Byte; safecall;
  6452.     procedure Set_ControlType(pRet: Byte); safecall;
  6453.     function  Get_SourceObject: WideString; safecall;
  6454.     procedure Set_SourceObject(const pRet: WideString); safecall;
  6455.     function  Get_LinkChildFields: WideString; safecall;
  6456.     procedure Set_LinkChildFields(const pRet: WideString); safecall;
  6457.     function  Get_LinkMasterFields: WideString; safecall;
  6458.     procedure Set_LinkMasterFields(const pRet: WideString); safecall;
  6459.     function  Get_StatusBarText: WideString; safecall;
  6460.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  6461.     function  Get_Visible: WordBool; safecall;
  6462.     procedure Set_Visible(pRet: WordBool); safecall;
  6463.     function  Get_DisplayWhen: Byte; safecall;
  6464.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  6465.     function  Get_Enabled: WordBool; safecall;
  6466.     procedure Set_Enabled(pRet: WordBool); safecall;
  6467.     function  Get_Locked: WordBool; safecall;
  6468.     procedure Set_Locked(pRet: WordBool); safecall;
  6469.     function  Get_TabStop: WordBool; safecall;
  6470.     procedure Set_TabStop(pRet: WordBool); safecall;
  6471.     function  Get_TabIndex: Smallint; safecall;
  6472.     procedure Set_TabIndex(pRet: Smallint); safecall;
  6473.     function  Get_CanGrow: WordBool; safecall;
  6474.     procedure Set_CanGrow(pRet: WordBool); safecall;
  6475.     function  Get_CanShrink: WordBool; safecall;
  6476.     procedure Set_CanShrink(pRet: WordBool); safecall;
  6477.     function  Get_Left: Smallint; safecall;
  6478.     procedure Set_Left(pRet: Smallint); safecall;
  6479.     function  Get_Top: Smallint; safecall;
  6480.     procedure Set_Top(pRet: Smallint); safecall;
  6481.     function  Get_Width: Smallint; safecall;
  6482.     procedure Set_Width(pRet: Smallint); safecall;
  6483.     function  Get_Height: Smallint; safecall;
  6484.     procedure Set_Height(pRet: Smallint); safecall;
  6485.     function  Get_SpecialEffect: Byte; safecall;
  6486.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  6487.     function  Get_BorderStyle: Byte; safecall;
  6488.     procedure Set_BorderStyle(pRet: Byte); safecall;
  6489.     function  Get_OldBorderStyle: Byte; safecall;
  6490.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  6491.     function  Get_BorderWidth: Byte; safecall;
  6492.     procedure Set_BorderWidth(pRet: Byte); safecall;
  6493.     function  Get_BorderLineStyle: Byte; safecall;
  6494.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  6495.     function  Get_BorderColor: Integer; safecall;
  6496.     procedure Set_BorderColor(pRet: Integer); safecall;
  6497.     function  Get_AutoLabel: WordBool; safecall;
  6498.     procedure Set_AutoLabel(pRet: WordBool); safecall;
  6499.     function  Get_AddColon: WordBool; safecall;
  6500.     procedure Set_AddColon(pRet: WordBool); safecall;
  6501.     function  Get_LabelX: Smallint; safecall;
  6502.     procedure Set_LabelX(pRet: Smallint); safecall;
  6503.     function  Get_LabelY: Smallint; safecall;
  6504.     procedure Set_LabelY(pRet: Smallint); safecall;
  6505.     function  Get_LabelAlign: Byte; safecall;
  6506.     procedure Set_LabelAlign(pRet: Byte); safecall;
  6507.     function  Get_Section: Smallint; safecall;
  6508.     procedure Set_Section(pRet: Smallint); safecall;
  6509.     function  Get_ControlName: WideString; safecall;
  6510.     procedure Set_ControlName(const pRet: WideString); safecall;
  6511.     function  Get_Tag: WideString; safecall;
  6512.     procedure Set_Tag(const pRet: WideString); safecall;
  6513.     function  Get_IsVisible: WordBool; safecall;
  6514.     procedure Set_IsVisible(pRet: WordBool); safecall;
  6515.     function  Get_InSelection: WordBool; safecall;
  6516.     procedure Set_InSelection(pRet: WordBool); safecall;
  6517.     function  Get_OnEnter: WideString; safecall;
  6518.     procedure Set_OnEnter(const pRet: WideString); safecall;
  6519.     function  Get_OnExit: WideString; safecall;
  6520.     procedure Set_OnExit(const pRet: WideString); safecall;
  6521.     property Application: Application read Get_Application;
  6522.     property Parent: IDispatch read Get_Parent;
  6523.     property Form: AccessForm read Get_Form;
  6524.     property Report: AccessReport read Get_Report;
  6525.     property Properties: Properties read Get_Properties;
  6526.     property Controls: Controls read Get_Controls;
  6527.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  6528.     property Name: WideString read Get_Name write Set_Name;
  6529.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  6530.     property SourceObject: WideString read Get_SourceObject write Set_SourceObject;
  6531.     property LinkChildFields: WideString read Get_LinkChildFields write Set_LinkChildFields;
  6532.     property LinkMasterFields: WideString read Get_LinkMasterFields write Set_LinkMasterFields;
  6533.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  6534.     property Visible: WordBool read Get_Visible write Set_Visible;
  6535.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  6536.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  6537.     property Locked: WordBool read Get_Locked write Set_Locked;
  6538.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  6539.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  6540.     property CanGrow: WordBool read Get_CanGrow write Set_CanGrow;
  6541.     property CanShrink: WordBool read Get_CanShrink write Set_CanShrink;
  6542.     property Left: Smallint read Get_Left write Set_Left;
  6543.     property Top: Smallint read Get_Top write Set_Top;
  6544.     property Width: Smallint read Get_Width write Set_Width;
  6545.     property Height: Smallint read Get_Height write Set_Height;
  6546.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  6547.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  6548.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  6549.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  6550.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  6551.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  6552.     property AutoLabel: WordBool read Get_AutoLabel write Set_AutoLabel;
  6553.     property AddColon: WordBool read Get_AddColon write Set_AddColon;
  6554.     property LabelX: Smallint read Get_LabelX write Set_LabelX;
  6555.     property LabelY: Smallint read Get_LabelY write Set_LabelY;
  6556.     property LabelAlign: Byte read Get_LabelAlign write Set_LabelAlign;
  6557.     property Section: Smallint read Get_Section write Set_Section;
  6558.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  6559.     property Tag: WideString read Get_Tag write Set_Tag;
  6560.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  6561.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  6562.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  6563.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  6564.   end;
  6565.  
  6566. // *********************************************************************//
  6567. // DispIntf:  _SubFormDisp
  6568. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6569. // GUID:      {3B06E964-E47C-11CD-8701-00AA003F0F07}
  6570. // *********************************************************************//
  6571.   _SubFormDisp = dispinterface
  6572.     ['{3B06E964-E47C-11CD-8701-00AA003F0F07}']
  6573.     property Application: Application readonly dispid 2005;
  6574.     property Parent: IDispatch readonly dispid 2087;
  6575.     property Form: AccessForm readonly dispid 2089;
  6576.     property Report: AccessReport readonly dispid 2097;
  6577.     property Properties: Properties readonly dispid 2091;
  6578.     procedure SizeToFit; dispid 2151;
  6579.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  6580.     procedure Goto_; dispid 2023;
  6581.     procedure SetFocus; dispid 2022;
  6582.     procedure Requery; dispid 2018;
  6583.     property Controls: Controls readonly dispid 0;
  6584.     property EventProcPrefix: WideString dispid 22;
  6585.     property Name: WideString dispid 20;
  6586.     property ControlType: Byte dispid 21;
  6587.     property SourceObject: WideString dispid 129;
  6588.     property LinkChildFields: WideString dispid 49;
  6589.     property LinkMasterFields: WideString dispid 50;
  6590.     property StatusBarText: WideString dispid 132;
  6591.     property Visible: WordBool dispid 145;
  6592.     property DisplayWhen: Byte dispid 146;
  6593.     property Enabled: WordBool dispid 25;
  6594.     property Locked: WordBool dispid 56;
  6595.     property TabStop: WordBool dispid 292;
  6596.     property TabIndex: Smallint dispid 291;
  6597.     property CanGrow: WordBool dispid 14;
  6598.     property CanShrink: WordBool dispid 16;
  6599.     property Left: Smallint dispid 54;
  6600.     property Top: Smallint dispid 138;
  6601.     property Width: Smallint dispid 147;
  6602.     property Height: Smallint dispid 44;
  6603.     property SpecialEffect: Byte dispid 4;
  6604.     property BorderStyle: Byte dispid 9;
  6605.     property OldBorderStyle: Byte dispid 371;
  6606.     property BorderWidth: Byte dispid 10;
  6607.     property BorderLineStyle: Byte dispid 11;
  6608.     property BorderColor: Integer dispid 8;
  6609.     property AutoLabel: WordBool dispid 57;
  6610.     property AddColon: WordBool dispid 3;
  6611.     property LabelX: Smallint dispid 52;
  6612.     property LabelY: Smallint dispid 53;
  6613.     property LabelAlign: Byte dispid 51;
  6614.     property Section: Smallint dispid 238;
  6615.     property ControlName: WideString dispid 296;
  6616.     property Tag: WideString dispid 297;
  6617.     property IsVisible: WordBool dispid 137;
  6618.     property InSelection: WordBool dispid 312;
  6619.     property OnEnter: WideString dispid 221;
  6620.     property OnExit: WideString dispid 222;
  6621.   end;
  6622.  
  6623. // *********************************************************************//
  6624. // Interface: _SubFormEvents
  6625. // Flags:     (16) Hidden
  6626. // GUID:      {BC9E4350-F037-11CD-8701-00AA003F0F07}
  6627. // *********************************************************************//
  6628.   _SubFormEvents = interface(IUnknown)
  6629.     ['{BC9E4350-F037-11CD-8701-00AA003F0F07}']
  6630.     function  Enter: HResult; stdcall;
  6631.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  6632.   end;
  6633.  
  6634. // *********************************************************************//
  6635. // Interface: _SubReport
  6636. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  6637. // GUID:      {3B06E966-E47C-11CD-8701-00AA003F0F07}
  6638. // *********************************************************************//
  6639.   _SubReport = interface(IDispatch)
  6640.     ['{3B06E966-E47C-11CD-8701-00AA003F0F07}']
  6641.     function  Get_Application: Application; safecall;
  6642.     function  Get_Parent: IDispatch; safecall;
  6643.     function  Get_Form: AccessForm; safecall;
  6644.     function  Get_Report: AccessReport; safecall;
  6645.     property Application: Application read Get_Application;
  6646.     property Parent: IDispatch read Get_Parent;
  6647.     property Form: AccessForm read Get_Form;
  6648.     property Report: AccessReport read Get_Report;
  6649.   end;
  6650.  
  6651. // *********************************************************************//
  6652. // DispIntf:  _SubReportDisp
  6653. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  6654. // GUID:      {3B06E966-E47C-11CD-8701-00AA003F0F07}
  6655. // *********************************************************************//
  6656.   _SubReportDisp = dispinterface
  6657.     ['{3B06E966-E47C-11CD-8701-00AA003F0F07}']
  6658.     property Application: Application readonly dispid 2005;
  6659.     property Parent: IDispatch readonly dispid 2087;
  6660.     property Form: AccessForm readonly dispid 2089;
  6661.     property Report: AccessReport readonly dispid 2097;
  6662.   end;
  6663.  
  6664. // *********************************************************************//
  6665. // Interface: _SubReportEvents
  6666. // Flags:     (16) Hidden
  6667. // GUID:      {BC9E4351-F037-11CD-8701-00AA003F0F07}
  6668. // *********************************************************************//
  6669.   _SubReportEvents = interface(IUnknown)
  6670.     ['{BC9E4351-F037-11CD-8701-00AA003F0F07}']
  6671.     function  Enter: HResult; stdcall;
  6672.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  6673.   end;
  6674.  
  6675. // *********************************************************************//
  6676. // Interface: _CustomControl
  6677. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  6678. // GUID:      {3B06E968-E47C-11CD-8701-00AA003F0F07}
  6679. // *********************************************************************//
  6680.   _CustomControl = interface(IDispatch)
  6681.     ['{3B06E968-E47C-11CD-8701-00AA003F0F07}']
  6682.     function  Get_Application: Application; safecall;
  6683.     function  Get_Parent: IDispatch; safecall;
  6684.     function  Get_OldValue: OleVariant; safecall;
  6685.     function  Get_Object_: IDispatch; safecall;
  6686.     function  Get_ObjectVerbs(Index: Integer): WideString; safecall;
  6687.     function  Get_Properties: Properties; safecall;
  6688.     procedure SizeToFit; safecall;
  6689.     procedure Requery; safecall;
  6690.     procedure Goto_; safecall;
  6691.     procedure SetFocus; safecall;
  6692.     function  Get_Controls: Children; safecall;
  6693.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  6694.     function  Get_Value: OleVariant; safecall;
  6695.     procedure Set_Value(pRet: OleVariant); safecall;
  6696.     function  Get_EventProcPrefix: WideString; safecall;
  6697.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  6698.     function  Get_Name: WideString; safecall;
  6699.     procedure Set_Name(const pRet: WideString); safecall;
  6700.     function  Get_ControlType: Byte; safecall;
  6701.     procedure Set_ControlType(pRet: Byte); safecall;
  6702.     function  Get_ControlSource: WideString; safecall;
  6703.     procedure Set_ControlSource(const pRet: WideString); safecall;
  6704.     function  Get_OLEClass: WideString; safecall;
  6705.     procedure Set_OLEClass(const pRet: WideString); safecall;
  6706.     function  Get_Verb: Integer; safecall;
  6707.     procedure Set_Verb(pRet: Integer); safecall;
  6708.     function  Get_Class_: WideString; safecall;
  6709.     procedure Set_Class_(const pRet: WideString); safecall;
  6710.     function  Get_Visible: WordBool; safecall;
  6711.     procedure Set_Visible(pRet: WordBool); safecall;
  6712.     function  Get_DisplayWhen: Byte; safecall;
  6713.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  6714.     function  Get_Enabled: WordBool; safecall;
  6715.     procedure Set_Enabled(pRet: WordBool); safecall;
  6716.     function  Get_Locked: WordBool; safecall;
  6717.     procedure Set_Locked(pRet: WordBool); safecall;
  6718.     function  Get_OleData: OleVariant; safecall;
  6719.     procedure Set_OleData(pRet: OleVariant); safecall;
  6720.     function  Get_TabStop: WordBool; safecall;
  6721.     procedure Set_TabStop(pRet: WordBool); safecall;
  6722.     function  Get_TabIndex: Smallint; safecall;
  6723.     procedure Set_TabIndex(pRet: Smallint); safecall;
  6724.     function  Get_Left: Smallint; safecall;
  6725.     procedure Set_Left(pRet: Smallint); safecall;
  6726.     function  Get_Top: Smallint; safecall;
  6727.     procedure Set_Top(pRet: Smallint); safecall;
  6728.     function  Get_Width: Smallint; safecall;
  6729.     procedure Set_Width(pRet: Smallint); safecall;
  6730.     function  Get_Height: Smallint; safecall;
  6731.     procedure Set_Height(pRet: Smallint); safecall;
  6732.     function  Get_SpecialEffect: Byte; safecall;
  6733.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  6734.     function  Get_BorderStyle: Byte; safecall;
  6735.     procedure Set_BorderStyle(pRet: Byte); safecall;
  6736.     function  Get_OldBorderStyle: Byte; safecall;
  6737.     procedure Set_OldBorderStyle(pRet: Byte); safecall;
  6738.     function  Get_BorderColor: Integer; safecall;
  6739.     procedure Set_BorderColor(pRet: Integer); safecall;
  6740.     function  Get_BorderWidth: Byte; safecall;
  6741.     procedure Set_BorderWidth(pRet: Byte); safecall;
  6742.     function  Get_BorderLineStyle: Byte; safecall;
  6743.     procedure Set_BorderLineStyle(pRet: Byte); safecall;
  6744.     function  Get_ControlTipText: WideString; safecall;
  6745.     procedure Set_ControlTipText(const pRet: WideString); safecall;
  6746.     function  Get_HelpContextId: Integer; safecall;
  6747.     procedure Set_HelpContextId(pRet: Integer); safecall;
  6748.     function  Get_Section: Smallint; safecall;
  6749.     procedure Set_Section(pRet: Smallint); safecall;
  6750.     function  Get_ControlName: WideString; safecall;
  6751.     procedure Set_ControlName(const pRet: WideString); safecall;
  6752.     function  Get_Tag: WideString; safecall;
  6753.     procedure Set_Tag(const pRet: WideString); safecall;
  6754.     function  Get_ObjectPalette: OleVariant; safecall;
  6755.     procedure Set_ObjectPalette(pRet: OleVariant); safecall;
  6756.     function  Get_LpOleObject: Integer; safecall;
  6757.     procedure Set_LpOleObject(pRet: Integer); safecall;
  6758.     function  Get_ObjectVerbsCount: Integer; safecall;
  6759.     procedure Set_ObjectVerbsCount(pRet: Integer); safecall;
  6760.     function  Get_IsVisible: WordBool; safecall;
  6761.     procedure Set_IsVisible(pRet: WordBool); safecall;
  6762.     function  Get_InSelection: WordBool; safecall;
  6763.     procedure Set_InSelection(pRet: WordBool); safecall;
  6764.     function  Get_OnUpdated: WideString; safecall;
  6765.     procedure Set_OnUpdated(const pRet: WideString); safecall;
  6766.     function  Get_OnEnter: WideString; safecall;
  6767.     procedure Set_OnEnter(const pRet: WideString); safecall;
  6768.     function  Get_OnExit: WideString; safecall;
  6769.     procedure Set_OnExit(const pRet: WideString); safecall;
  6770.     function  Get_OnGotFocus: WideString; safecall;
  6771.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  6772.     function  Get_OnLostFocus: WideString; safecall;
  6773.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  6774.     function  Get_Default: WordBool; safecall;
  6775.     procedure Set_Default(pRet: WordBool); safecall;
  6776.     function  Get_Cancel: WordBool; safecall;
  6777.     procedure Set_Cancel(pRet: WordBool); safecall;
  6778.     function  Get_Custom: WideString; safecall;
  6779.     procedure Set_Custom(const pRet: WideString); safecall;
  6780.     function  Get_About: WideString; safecall;
  6781.     procedure Set_About(const pRet: WideString); safecall;
  6782.     property Application: Application read Get_Application;
  6783.     property Parent: IDispatch read Get_Parent;
  6784.     property OldValue: OleVariant read Get_OldValue;
  6785.     property Object_: IDispatch read Get_Object_;
  6786.     property ObjectVerbs[Index: Integer]: WideString read Get_ObjectVerbs;
  6787.     property Properties: Properties read Get_Properties;
  6788.     property Controls: Children read Get_Controls;
  6789.     property Value: OleVariant read Get_Value write Set_Value;
  6790.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  6791.     property Name: WideString read Get_Name write Set_Name;
  6792.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  6793.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  6794.     property OLEClass: WideString read Get_OLEClass write Set_OLEClass;
  6795.     property Verb: Integer read Get_Verb write Set_Verb;
  6796.     property Class_: WideString read Get_Class_ write Set_Class_;
  6797.     property Visible: WordBool read Get_Visible write Set_Visible;
  6798.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  6799.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  6800.     property Locked: WordBool read Get_Locked write Set_Locked;
  6801.     property OleData: OleVariant read Get_OleData write Set_OleData;
  6802.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  6803.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  6804.     property Left: Smallint read Get_Left write Set_Left;
  6805.     property Top: Smallint read Get_Top write Set_Top;
  6806.     property Width: Smallint read Get_Width write Set_Width;
  6807.     property Height: Smallint read Get_Height write Set_Height;
  6808.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  6809.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  6810.     property OldBorderStyle: Byte read Get_OldBorderStyle write Set_OldBorderStyle;
  6811.     property BorderColor: Integer read Get_BorderColor write Set_BorderColor;
  6812.     property BorderWidth: Byte read Get_BorderWidth write Set_BorderWidth;
  6813.     property BorderLineStyle: Byte read Get_BorderLineStyle write Set_BorderLineStyle;
  6814.     property ControlTipText: WideString read Get_ControlTipText write Set_ControlTipText;
  6815.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  6816.     property Section: Smallint read Get_Section write Set_Section;
  6817.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  6818.     property Tag: WideString read Get_Tag write Set_Tag;
  6819.     property ObjectPalette: OleVariant read Get_ObjectPalette write Set_ObjectPalette;
  6820.     property LpOleObject: Integer read Get_LpOleObject write Set_LpOleObject;
  6821.     property ObjectVerbsCount: Integer read Get_ObjectVerbsCount write Set_ObjectVerbsCount;
  6822.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  6823.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  6824.     property OnUpdated: WideString read Get_OnUpdated write Set_OnUpdated;
  6825.     property OnEnter: WideString read Get_OnEnter write Set_OnEnter;
  6826.     property OnExit: WideString read Get_OnExit write Set_OnExit;
  6827.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  6828.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  6829.     property Default: WordBool read Get_Default write Set_Default;
  6830.     property Cancel: WordBool read Get_Cancel write Set_Cancel;
  6831.     property Custom: WideString read Get_Custom write Set_Custom;
  6832.     property About: WideString read Get_About write Set_About;
  6833.   end;
  6834.  
  6835. // *********************************************************************//
  6836. // DispIntf:  _CustomControlDisp
  6837. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  6838. // GUID:      {3B06E968-E47C-11CD-8701-00AA003F0F07}
  6839. // *********************************************************************//
  6840.   _CustomControlDisp = dispinterface
  6841.     ['{3B06E968-E47C-11CD-8701-00AA003F0F07}']
  6842.     property Application: Application readonly dispid 2005;
  6843.     property Parent: IDispatch readonly dispid 2087;
  6844.     property OldValue: OleVariant readonly dispid 2102;
  6845.     property Object_: IDispatch readonly dispid 2104;
  6846.     property ObjectVerbs[Index: Integer]: WideString readonly dispid 2105;
  6847.     property Properties: Properties readonly dispid 2091;
  6848.     procedure SizeToFit; dispid 2151;
  6849.     procedure Requery; dispid 2018;
  6850.     procedure Goto_; dispid 2023;
  6851.     procedure SetFocus; dispid 2022;
  6852.     property Controls: Children readonly dispid 2190;
  6853.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  6854.     property Value: OleVariant dispid 0;
  6855.     property EventProcPrefix: WideString dispid 22;
  6856.     property Name: WideString dispid 20;
  6857.     property ControlType: Byte dispid 21;
  6858.     property ControlSource: WideString dispid 27;
  6859.     property OLEClass: WideString dispid 72;
  6860.     property Verb: Integer dispid 99;
  6861.     property Class_: WideString dispid 306;
  6862.     property Visible: WordBool dispid 145;
  6863.     property DisplayWhen: Byte dispid 146;
  6864.     property Enabled: WordBool dispid 25;
  6865.     property Locked: WordBool dispid 56;
  6866.     property OleData: OleVariant dispid 168;
  6867.     property TabStop: WordBool dispid 292;
  6868.     property TabIndex: Smallint dispid 291;
  6869.     property Left: Smallint dispid 54;
  6870.     property Top: Smallint dispid 138;
  6871.     property Width: Smallint dispid 147;
  6872.     property Height: Smallint dispid 44;
  6873.     property SpecialEffect: Byte dispid 4;
  6874.     property BorderStyle: Byte dispid 9;
  6875.     property OldBorderStyle: Byte dispid 371;
  6876.     property BorderColor: Integer dispid 8;
  6877.     property BorderWidth: Byte dispid 10;
  6878.     property BorderLineStyle: Byte dispid 11;
  6879.     property ControlTipText: WideString dispid 362;
  6880.     property HelpContextId: Integer dispid 218;
  6881.     property Section: Smallint dispid 238;
  6882.     property ControlName: WideString dispid 296;
  6883.     property Tag: WideString dispid 297;
  6884.     property ObjectPalette: OleVariant dispid 96;
  6885.     property LpOleObject: Integer dispid 169;
  6886.     property ObjectVerbsCount: Integer dispid 172;
  6887.     property IsVisible: WordBool dispid 137;
  6888.     property InSelection: WordBool dispid 312;
  6889.     property OnUpdated: WideString dispid 115;
  6890.     property OnEnter: WideString dispid 221;
  6891.     property OnExit: WideString dispid 222;
  6892.     property OnGotFocus: WideString dispid 112;
  6893.     property OnLostFocus: WideString dispid 113;
  6894.     property Default: WordBool dispid 219;
  6895.     property Cancel: WordBool dispid 220;
  6896.     property Custom: WideString dispid 328;
  6897.     property About: WideString dispid 329;
  6898.   end;
  6899.  
  6900. // *********************************************************************//
  6901. // Interface: _CustomControlEvents
  6902. // Flags:     (16) Hidden
  6903. // GUID:      {BC9E4352-F037-11CD-8701-00AA003F0F07}
  6904. // *********************************************************************//
  6905.   _CustomControlEvents = interface(IUnknown)
  6906.     ['{BC9E4352-F037-11CD-8701-00AA003F0F07}']
  6907.     function  Updated(var Code: Smallint): HResult; stdcall;
  6908.     function  Enter: HResult; stdcall;
  6909.     function  Exit(out Cancel: Smallint): HResult; stdcall;
  6910.     function  GotFocus: HResult; stdcall;
  6911.     function  LostFocus: HResult; stdcall;
  6912.   end;
  6913.  
  6914. // *********************************************************************//
  6915. // Interface: _CustomControlInReportEvents
  6916. // Flags:     (16) Hidden
  6917. // GUID:      {300471E2-7426-11CE-AB64-00AA0042B7CE}
  6918. // *********************************************************************//
  6919.   _CustomControlInReportEvents = interface(IUnknown)
  6920.     ['{300471E2-7426-11CE-AB64-00AA0042B7CE}']
  6921.   end;
  6922.  
  6923. // *********************************************************************//
  6924. // Interface: _TabControl
  6925. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  6926. // GUID:      {3B06E971-E47C-11CD-8701-00AA003F0F07}
  6927. // *********************************************************************//
  6928.   _TabControl = interface(IDispatch)
  6929.     ['{3B06E971-E47C-11CD-8701-00AA003F0F07}']
  6930.     function  Get_Application: Application; safecall;
  6931.     function  Get_Parent: IDispatch; safecall;
  6932.     function  Get_OldValue: OleVariant; safecall;
  6933.     function  Get_Properties: Properties; safecall;
  6934.     procedure SizeToFit; safecall;
  6935.     function  Get_Pages: Pages; safecall;
  6936.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  6937.     function  Get_Value: OleVariant; safecall;
  6938.     procedure Set_Value(pRet: OleVariant); safecall;
  6939.     function  Get_EventProcPrefix: WideString; safecall;
  6940.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  6941.     function  Get_Name: WideString; safecall;
  6942.     procedure Set_Name(const pRet: WideString); safecall;
  6943.     function  Get_ControlType: Byte; safecall;
  6944.     procedure Set_ControlType(pRet: Byte); safecall;
  6945.     function  Get_StatusBarText: WideString; safecall;
  6946.     procedure Set_StatusBarText(const pRet: WideString); safecall;
  6947.     function  Get_Visible: WordBool; safecall;
  6948.     procedure Set_Visible(pRet: WordBool); safecall;
  6949.     function  Get_DisplayWhen: Byte; safecall;
  6950.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  6951.     function  Get_Enabled: WordBool; safecall;
  6952.     procedure Set_Enabled(pRet: WordBool); safecall;
  6953.     function  Get_TabStop: WordBool; safecall;
  6954.     procedure Set_TabStop(pRet: WordBool); safecall;
  6955.     function  Get_TabIndex: Smallint; safecall;
  6956.     procedure Set_TabIndex(pRet: Smallint); safecall;
  6957.     function  Get_Left: Smallint; safecall;
  6958.     procedure Set_Left(pRet: Smallint); safecall;
  6959.     function  Get_Top: Smallint; safecall;
  6960.     procedure Set_Top(pRet: Smallint); safecall;
  6961.     function  Get_Width: Smallint; safecall;
  6962.     procedure Set_Width(pRet: Smallint); safecall;
  6963.     function  Get_Height: Smallint; safecall;
  6964.     procedure Set_Height(pRet: Smallint); safecall;
  6965.     function  Get_BackStyle: Byte; safecall;
  6966.     procedure Set_BackStyle(pRet: Byte); safecall;
  6967.     function  Get_MultiRow: WordBool; safecall;
  6968.     procedure Set_MultiRow(pRet: WordBool); safecall;
  6969.     function  Get_Style: Byte; safecall;
  6970.     procedure Set_Style(pRet: Byte); safecall;
  6971.     function  Get_TabFixedHeight: Smallint; safecall;
  6972.     procedure Set_TabFixedHeight(pRet: Smallint); safecall;
  6973.     function  Get_TabFixedWidth: Smallint; safecall;
  6974.     procedure Set_TabFixedWidth(pRet: Smallint); safecall;
  6975.     function  Get_FontName: WideString; safecall;
  6976.     procedure Set_FontName(const pRet: WideString); safecall;
  6977.     function  Get_FontSize: Smallint; safecall;
  6978.     procedure Set_FontSize(pRet: Smallint); safecall;
  6979.     function  Get_FontWeight: Smallint; safecall;
  6980.     procedure Set_FontWeight(pRet: Smallint); safecall;
  6981.     function  Get_FontItalic: WordBool; safecall;
  6982.     procedure Set_FontItalic(pRet: WordBool); safecall;
  6983.     function  Get_FontUnderline: WordBool; safecall;
  6984.     procedure Set_FontUnderline(pRet: WordBool); safecall;
  6985.     function  Get_TextFontCharSet: Byte; safecall;
  6986.     procedure Set_TextFontCharSet(pRet: Byte); safecall;
  6987.     function  Get_FontBold: Smallint; safecall;
  6988.     procedure Set_FontBold(pRet: Smallint); safecall;
  6989.     function  Get_ShortcutMenuBar: WideString; safecall;
  6990.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  6991.     function  Get_HelpContextId: Integer; safecall;
  6992.     procedure Set_HelpContextId(pRet: Integer); safecall;
  6993.     function  Get_Section: Smallint; safecall;
  6994.     procedure Set_Section(pRet: Smallint); safecall;
  6995.     function  Get_ControlName: WideString; safecall;
  6996.     procedure Set_ControlName(const pRet: WideString); safecall;
  6997.     function  Get_Tag: WideString; safecall;
  6998.     procedure Set_Tag(const pRet: WideString); safecall;
  6999.     function  Get_IsVisible: WordBool; safecall;
  7000.     procedure Set_IsVisible(pRet: WordBool); safecall;
  7001.     function  Get_InSelection: WordBool; safecall;
  7002.     procedure Set_InSelection(pRet: WordBool); safecall;
  7003.     function  Get_OnChange: WideString; safecall;
  7004.     procedure Set_OnChange(const pRet: WideString); safecall;
  7005.     function  Get_OnClick: WideString; safecall;
  7006.     procedure Set_OnClick(const pRet: WideString); safecall;
  7007.     function  Get_OnDblClick: WideString; safecall;
  7008.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  7009.     function  Get_OnMouseDown: WideString; safecall;
  7010.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  7011.     function  Get_OnMouseMove: WideString; safecall;
  7012.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  7013.     function  Get_OnMouseUp: WideString; safecall;
  7014.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  7015.     function  Get_OnKeyDown: WideString; safecall;
  7016.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  7017.     function  Get_OnKeyUp: WideString; safecall;
  7018.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  7019.     function  Get_OnKeyPress: WideString; safecall;
  7020.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  7021.     function  _NewEnum: IUnknown; safecall;
  7022.     property Application: Application read Get_Application;
  7023.     property Parent: IDispatch read Get_Parent;
  7024.     property OldValue: OleVariant read Get_OldValue;
  7025.     property Properties: Properties read Get_Properties;
  7026.     property Pages: Pages read Get_Pages;
  7027.     property Value: OleVariant read Get_Value write Set_Value;
  7028.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  7029.     property Name: WideString read Get_Name write Set_Name;
  7030.     property ControlType: Byte read Get_ControlType write Set_ControlType;
  7031.     property StatusBarText: WideString read Get_StatusBarText write Set_StatusBarText;
  7032.     property Visible: WordBool read Get_Visible write Set_Visible;
  7033.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  7034.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  7035.     property TabStop: WordBool read Get_TabStop write Set_TabStop;
  7036.     property TabIndex: Smallint read Get_TabIndex write Set_TabIndex;
  7037.     property Left: Smallint read Get_Left write Set_Left;
  7038.     property Top: Smallint read Get_Top write Set_Top;
  7039.     property Width: Smallint read Get_Width write Set_Width;
  7040.     property Height: Smallint read Get_Height write Set_Height;
  7041.     property BackStyle: Byte read Get_BackStyle write Set_BackStyle;
  7042.     property MultiRow: WordBool read Get_MultiRow write Set_MultiRow;
  7043.     property Style: Byte read Get_Style write Set_Style;
  7044.     property TabFixedHeight: Smallint read Get_TabFixedHeight write Set_TabFixedHeight;
  7045.     property TabFixedWidth: Smallint read Get_TabFixedWidth write Set_TabFixedWidth;
  7046.     property FontName: WideString read Get_FontName write Set_FontName;
  7047.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  7048.     property FontWeight: Smallint read Get_FontWeight write Set_FontWeight;
  7049.     property FontItalic: WordBool read Get_FontItalic write Set_FontItalic;
  7050.     property FontUnderline: WordBool read Get_FontUnderline write Set_FontUnderline;
  7051.     property TextFontCharSet: Byte read Get_TextFontCharSet write Set_TextFontCharSet;
  7052.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  7053.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  7054.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  7055.     property Section: Smallint read Get_Section write Set_Section;
  7056.     property ControlName: WideString read Get_ControlName write Set_ControlName;
  7057.     property Tag: WideString read Get_Tag write Set_Tag;
  7058.     property IsVisible: WordBool read Get_IsVisible write Set_IsVisible;
  7059.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  7060.     property OnChange: WideString read Get_OnChange write Set_OnChange;
  7061.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  7062.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  7063.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  7064.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  7065.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  7066.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  7067.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  7068.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  7069.   end;
  7070.  
  7071. // *********************************************************************//
  7072. // DispIntf:  _TabControlDisp
  7073. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7074. // GUID:      {3B06E971-E47C-11CD-8701-00AA003F0F07}
  7075. // *********************************************************************//
  7076.   _TabControlDisp = dispinterface
  7077.     ['{3B06E971-E47C-11CD-8701-00AA003F0F07}']
  7078.     property Application: Application readonly dispid 2005;
  7079.     property Parent: IDispatch readonly dispid 2087;
  7080.     property OldValue: OleVariant readonly dispid 2102;
  7081.     property Properties: Properties readonly dispid 2091;
  7082.     procedure SizeToFit; dispid 2151;
  7083.     property Pages: Pages readonly dispid 2180;
  7084.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  7085.     property Value: OleVariant dispid 0;
  7086.     property EventProcPrefix: WideString dispid 22;
  7087.     property Name: WideString dispid 20;
  7088.     property ControlType: Byte dispid 21;
  7089.     property StatusBarText: WideString dispid 132;
  7090.     property Visible: WordBool dispid 145;
  7091.     property DisplayWhen: Byte dispid 146;
  7092.     property Enabled: WordBool dispid 25;
  7093.     property TabStop: WordBool dispid 292;
  7094.     property TabIndex: Smallint dispid 291;
  7095.     property Left: Smallint dispid 54;
  7096.     property Top: Smallint dispid 138;
  7097.     property Width: Smallint dispid 147;
  7098.     property Height: Smallint dispid 44;
  7099.     property BackStyle: Byte dispid 29;
  7100.     property MultiRow: WordBool dispid 391;
  7101.     property Style: Byte dispid 392;
  7102.     property TabFixedHeight: Smallint dispid 393;
  7103.     property TabFixedWidth: Smallint dispid 394;
  7104.     property FontName: WideString dispid 34;
  7105.     property FontSize: Smallint dispid 35;
  7106.     property FontWeight: Smallint dispid 37;
  7107.     property FontItalic: WordBool dispid 33;
  7108.     property FontUnderline: WordBool dispid 36;
  7109.     property TextFontCharSet: Byte dispid 192;
  7110.     property FontBold: Smallint dispid 32;
  7111.     property ShortcutMenuBar: WideString dispid 336;
  7112.     property HelpContextId: Integer dispid 218;
  7113.     property Section: Smallint dispid 238;
  7114.     property ControlName: WideString dispid 296;
  7115.     property Tag: WideString dispid 297;
  7116.     property IsVisible: WordBool dispid 137;
  7117.     property InSelection: WordBool dispid 312;
  7118.     property OnChange: WideString dispid 111;
  7119.     property OnClick: WideString dispid 123;
  7120.     property OnDblClick: WideString dispid 223;
  7121.     property OnMouseDown: WideString dispid 104;
  7122.     property OnMouseMove: WideString dispid 106;
  7123.     property OnMouseUp: WideString dispid 105;
  7124.     property OnKeyDown: WideString dispid 101;
  7125.     property OnKeyUp: WideString dispid 102;
  7126.     property OnKeyPress: WideString dispid 103;
  7127.     function  _NewEnum: IUnknown; dispid -4;
  7128.   end;
  7129.  
  7130. // *********************************************************************//
  7131. // Interface: _TabControlEvents
  7132. // Flags:     (16) Hidden
  7133. // GUID:      {3B06E972-E47C-11CD-8701-00AA003F0F07}
  7134. // *********************************************************************//
  7135.   _TabControlEvents = interface(IUnknown)
  7136.     ['{3B06E972-E47C-11CD-8701-00AA003F0F07}']
  7137.     function  Click: HResult; stdcall;
  7138.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  7139.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7140.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7141.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7142.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  7143.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  7144.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  7145.     function  Change: HResult; stdcall;
  7146.   end;
  7147.  
  7148. // *********************************************************************//
  7149. // Interface: _PageEvents
  7150. // Flags:     (16) Hidden
  7151. // GUID:      {3B06E975-E47C-11CD-8701-00AA003F0F07}
  7152. // *********************************************************************//
  7153.   _PageEvents = interface(IUnknown)
  7154.     ['{3B06E975-E47C-11CD-8701-00AA003F0F07}']
  7155.     function  Click: HResult; stdcall;
  7156.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  7157.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7158.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7159.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7160.   end;
  7161.  
  7162. // *********************************************************************//
  7163. // Interface: _Section
  7164. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7165. // GUID:      {331FDCFC-CF31-11CD-8701-00AA003F0F07}
  7166. // *********************************************************************//
  7167.   _Section = interface(IDispatch)
  7168.     ['{331FDCFC-CF31-11CD-8701-00AA003F0F07}']
  7169.     function  Get_Application: Application; safecall;
  7170.     function  Get_Parent: IDispatch; safecall;
  7171.     function  Get_Properties: Properties; safecall;
  7172.     function  Get_Controls: Children; safecall;
  7173.     function  Get_EventProcPrefix: WideString; safecall;
  7174.     procedure Set_EventProcPrefix(const pRet: WideString); safecall;
  7175.     function  Get_Name: WideString; safecall;
  7176.     procedure Set_Name(const pRet: WideString); safecall;
  7177.     function  Get_ForceNewPage: Byte; safecall;
  7178.     procedure Set_ForceNewPage(pRet: Byte); safecall;
  7179.     function  Get_NewRowOrCol: Byte; safecall;
  7180.     procedure Set_NewRowOrCol(pRet: Byte); safecall;
  7181.     function  Get_KeepTogether: WordBool; safecall;
  7182.     procedure Set_KeepTogether(pRet: WordBool); safecall;
  7183.     function  Get_Visible: WordBool; safecall;
  7184.     procedure Set_Visible(pRet: WordBool); safecall;
  7185.     function  Get_DisplayWhen: Byte; safecall;
  7186.     procedure Set_DisplayWhen(pRet: Byte); safecall;
  7187.     function  Get_CanGrow: WordBool; safecall;
  7188.     procedure Set_CanGrow(pRet: WordBool); safecall;
  7189.     function  Get_CanShrink: WordBool; safecall;
  7190.     procedure Set_CanShrink(pRet: WordBool); safecall;
  7191.     function  Get_RepeatSection: WordBool; safecall;
  7192.     procedure Set_RepeatSection(pRet: WordBool); safecall;
  7193.     function  Get_Height: Smallint; safecall;
  7194.     procedure Set_Height(pRet: Smallint); safecall;
  7195.     function  Get_BackColor: Integer; safecall;
  7196.     procedure Set_BackColor(pRet: Integer); safecall;
  7197.     function  Get_SpecialEffect: Byte; safecall;
  7198.     procedure Set_SpecialEffect(pRet: Byte); safecall;
  7199.     function  Get_Tag: WideString; safecall;
  7200.     procedure Set_Tag(const pRet: WideString); safecall;
  7201.     function  Get_OnFormat: WideString; safecall;
  7202.     procedure Set_OnFormat(const pRet: WideString); safecall;
  7203.     function  Get_OnPrint: WideString; safecall;
  7204.     procedure Set_OnPrint(const pRet: WideString); safecall;
  7205.     function  Get_OnRetreat: WideString; safecall;
  7206.     procedure Set_OnRetreat(const pRet: WideString); safecall;
  7207.     function  Get_OnClick: WideString; safecall;
  7208.     procedure Set_OnClick(const pRet: WideString); safecall;
  7209.     function  Get_OnDblClick: WideString; safecall;
  7210.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  7211.     function  Get_OnMouseDown: WideString; safecall;
  7212.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  7213.     function  Get_OnMouseMove: WideString; safecall;
  7214.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  7215.     function  Get_OnMouseUp: WideString; safecall;
  7216.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  7217.     function  Get_HasContinued: WordBool; safecall;
  7218.     procedure Set_HasContinued(pRet: WordBool); safecall;
  7219.     function  Get_WillContinue: WordBool; safecall;
  7220.     procedure Set_WillContinue(pRet: WordBool); safecall;
  7221.     function  Get_InSelection: WordBool; safecall;
  7222.     procedure Set_InSelection(pRet: WordBool); safecall;
  7223.     property Application: Application read Get_Application;
  7224.     property Parent: IDispatch read Get_Parent;
  7225.     property Properties: Properties read Get_Properties;
  7226.     property Controls: Children read Get_Controls;
  7227.     property EventProcPrefix: WideString read Get_EventProcPrefix write Set_EventProcPrefix;
  7228.     property Name: WideString read Get_Name write Set_Name;
  7229.     property ForceNewPage: Byte read Get_ForceNewPage write Set_ForceNewPage;
  7230.     property NewRowOrCol: Byte read Get_NewRowOrCol write Set_NewRowOrCol;
  7231.     property KeepTogether: WordBool read Get_KeepTogether write Set_KeepTogether;
  7232.     property Visible: WordBool read Get_Visible write Set_Visible;
  7233.     property DisplayWhen: Byte read Get_DisplayWhen write Set_DisplayWhen;
  7234.     property CanGrow: WordBool read Get_CanGrow write Set_CanGrow;
  7235.     property CanShrink: WordBool read Get_CanShrink write Set_CanShrink;
  7236.     property RepeatSection: WordBool read Get_RepeatSection write Set_RepeatSection;
  7237.     property Height: Smallint read Get_Height write Set_Height;
  7238.     property BackColor: Integer read Get_BackColor write Set_BackColor;
  7239.     property SpecialEffect: Byte read Get_SpecialEffect write Set_SpecialEffect;
  7240.     property Tag: WideString read Get_Tag write Set_Tag;
  7241.     property OnFormat: WideString read Get_OnFormat write Set_OnFormat;
  7242.     property OnPrint: WideString read Get_OnPrint write Set_OnPrint;
  7243.     property OnRetreat: WideString read Get_OnRetreat write Set_OnRetreat;
  7244.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  7245.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  7246.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  7247.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  7248.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  7249.     property HasContinued: WordBool read Get_HasContinued write Set_HasContinued;
  7250.     property WillContinue: WordBool read Get_WillContinue write Set_WillContinue;
  7251.     property InSelection: WordBool read Get_InSelection write Set_InSelection;
  7252.   end;
  7253.  
  7254. // *********************************************************************//
  7255. // DispIntf:  _SectionDisp
  7256. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7257. // GUID:      {331FDCFC-CF31-11CD-8701-00AA003F0F07}
  7258. // *********************************************************************//
  7259.   _SectionDisp = dispinterface
  7260.     ['{331FDCFC-CF31-11CD-8701-00AA003F0F07}']
  7261.     property Application: Application readonly dispid 2005;
  7262.     property Parent: IDispatch readonly dispid 2087;
  7263.     property Properties: Properties readonly dispid 2091;
  7264.     property Controls: Children readonly dispid 2190;
  7265.     property EventProcPrefix: WideString dispid 22;
  7266.     property Name: WideString dispid 20;
  7267.     property ForceNewPage: Byte dispid 148;
  7268.     property NewRowOrCol: Byte dispid 230;
  7269.     property KeepTogether: WordBool dispid 71;
  7270.     property Visible: WordBool dispid 145;
  7271.     property DisplayWhen: Byte dispid 146;
  7272.     property CanGrow: WordBool dispid 14;
  7273.     property CanShrink: WordBool dispid 16;
  7274.     property RepeatSection: WordBool dispid 15;
  7275.     property Height: Smallint dispid 44;
  7276.     property BackColor: Integer dispid 28;
  7277.     property SpecialEffect: Byte dispid 4;
  7278.     property Tag: WideString dispid 297;
  7279.     property OnFormat: WideString dispid 76;
  7280.     property OnPrint: WideString dispid 78;
  7281.     property OnRetreat: WideString dispid 80;
  7282.     property OnClick: WideString dispid 123;
  7283.     property OnDblClick: WideString dispid 223;
  7284.     property OnMouseDown: WideString dispid 104;
  7285.     property OnMouseMove: WideString dispid 106;
  7286.     property OnMouseUp: WideString dispid 105;
  7287.     property HasContinued: WordBool dispid 199;
  7288.     property WillContinue: WordBool dispid 200;
  7289.     property InSelection: WordBool dispid 312;
  7290.   end;
  7291.  
  7292. // *********************************************************************//
  7293. // Interface: _SectionEvents
  7294. // Flags:     (16) Hidden
  7295. // GUID:      {BC9E4353-F037-11CD-8701-00AA003F0F07}
  7296. // *********************************************************************//
  7297.   _SectionEvents = interface(IUnknown)
  7298.     ['{BC9E4353-F037-11CD-8701-00AA003F0F07}']
  7299.     function  Click: HResult; stdcall;
  7300.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  7301.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7302.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7303.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  7304.   end;
  7305.  
  7306. // *********************************************************************//
  7307. // Interface: _GroupLevel
  7308. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7309. // GUID:      {331FDD27-CF31-11CD-8701-00AA003F0F07}
  7310. // *********************************************************************//
  7311.   _GroupLevel = interface(IDispatch)
  7312.     ['{331FDD27-CF31-11CD-8701-00AA003F0F07}']
  7313.     function  Get_Application: Application; safecall;
  7314.     function  Get_Parent: IDispatch; safecall;
  7315.     function  Get_Properties: Properties; safecall;
  7316.     function  Get_ControlSource: WideString; safecall;
  7317.     procedure Set_ControlSource(const pRet: WideString); safecall;
  7318.     function  Get_SortOrder: WordBool; safecall;
  7319.     procedure Set_SortOrder(pRet: WordBool); safecall;
  7320.     function  Get_GroupHeader: WordBool; safecall;
  7321.     procedure Set_GroupHeader(pRet: WordBool); safecall;
  7322.     function  Get_GroupFooter: WordBool; safecall;
  7323.     procedure Set_GroupFooter(pRet: WordBool); safecall;
  7324.     function  Get_GroupOn: Smallint; safecall;
  7325.     procedure Set_GroupOn(pRet: Smallint); safecall;
  7326.     function  Get_GroupInterval: Integer; safecall;
  7327.     procedure Set_GroupInterval(pRet: Integer); safecall;
  7328.     function  Get_KeepTogether: Byte; safecall;
  7329.     procedure Set_KeepTogether(pRet: Byte); safecall;
  7330.     property Application: Application read Get_Application;
  7331.     property Parent: IDispatch read Get_Parent;
  7332.     property Properties: Properties read Get_Properties;
  7333.     property ControlSource: WideString read Get_ControlSource write Set_ControlSource;
  7334.     property SortOrder: WordBool read Get_SortOrder write Set_SortOrder;
  7335.     property GroupHeader: WordBool read Get_GroupHeader write Set_GroupHeader;
  7336.     property GroupFooter: WordBool read Get_GroupFooter write Set_GroupFooter;
  7337.     property GroupOn: Smallint read Get_GroupOn write Set_GroupOn;
  7338.     property GroupInterval: Integer read Get_GroupInterval write Set_GroupInterval;
  7339.     property KeepTogether: Byte read Get_KeepTogether write Set_KeepTogether;
  7340.   end;
  7341.  
  7342. // *********************************************************************//
  7343. // DispIntf:  _GroupLevelDisp
  7344. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7345. // GUID:      {331FDD27-CF31-11CD-8701-00AA003F0F07}
  7346. // *********************************************************************//
  7347.   _GroupLevelDisp = dispinterface
  7348.     ['{331FDD27-CF31-11CD-8701-00AA003F0F07}']
  7349.     property Application: Application readonly dispid 2005;
  7350.     property Parent: IDispatch readonly dispid 2087;
  7351.     property Properties: Properties readonly dispid 2091;
  7352.     property ControlSource: WideString dispid 27;
  7353.     property SortOrder: WordBool dispid 173;
  7354.     property GroupHeader: WordBool dispid 174;
  7355.     property GroupFooter: WordBool dispid 175;
  7356.     property GroupOn: Smallint dispid 176;
  7357.     property GroupInterval: Integer dispid 177;
  7358.     property KeepTogether: Byte dispid 71;
  7359.   end;
  7360.  
  7361. // *********************************************************************//
  7362. // Interface: _GroupLevelEvents
  7363. // Flags:     (16) Hidden
  7364. // GUID:      {BC9E4354-F037-11CD-8701-00AA003F0F07}
  7365. // *********************************************************************//
  7366.   _GroupLevelEvents = interface(IUnknown)
  7367.     ['{BC9E4354-F037-11CD-8701-00AA003F0F07}']
  7368.     function  Format(out Cancel: Smallint; var FormatCount: Smallint): HResult; stdcall;
  7369.     function  Print(out Cancel: Smallint; var PrintCount: Smallint): HResult; stdcall;
  7370.     function  Retreat: HResult; stdcall;
  7371.   end;
  7372.  
  7373. // *********************************************************************//
  7374. // Interface: _SectionInReportEvents
  7375. // Flags:     (16) Hidden
  7376. // GUID:      {BC9E4361-F037-11CD-8701-00AA003F0F07}
  7377. // *********************************************************************//
  7378.   _SectionInReportEvents = interface(IUnknown)
  7379.     ['{BC9E4361-F037-11CD-8701-00AA003F0F07}']
  7380.     function  Format(out Cancel: Smallint; var FormatCount: Smallint): HResult; stdcall;
  7381.     function  Print(out Cancel: Smallint; var PrintCount: Smallint): HResult; stdcall;
  7382.     function  Retreat: HResult; stdcall;
  7383.   end;
  7384.  
  7385. // *********************************************************************//
  7386. // Interface: _PageHdrFtrInReportEvents
  7387. // Flags:     (16) Hidden
  7388. // GUID:      {7AD9E905-BAF8-11CE-A68A-00AA003F0F07}
  7389. // *********************************************************************//
  7390.   _PageHdrFtrInReportEvents = interface(IUnknown)
  7391.     ['{7AD9E905-BAF8-11CE-A68A-00AA003F0F07}']
  7392.     function  Format(out Cancel: Smallint; var FormatCount: Smallint): HResult; stdcall;
  7393.     function  Print(out Cancel: Smallint; var PrintCount: Smallint): HResult; stdcall;
  7394.   end;
  7395.  
  7396. // *********************************************************************//
  7397. // Interface: Module
  7398. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7399. // GUID:      {331FDCFE-CF31-11CD-8701-00AA003F0F07}
  7400. // *********************************************************************//
  7401.   Module = interface(IDispatch)
  7402.     ['{331FDCFE-CF31-11CD-8701-00AA003F0F07}']
  7403.     function  Get_Application: Application; safecall;
  7404.     function  Get_Parent: IDispatch; safecall;
  7405.     procedure InsertText(const Text: WideString); safecall;
  7406.     function  Get_Name: WideString; safecall;
  7407.     procedure Set_Name(const pbstrName: WideString); safecall;
  7408.     procedure AddFromString(const String_: WideString); safecall;
  7409.     procedure AddFromFile(const FileName: WideString); safecall;
  7410.     function  Get_Lines(Line: Integer; NumLines: Integer): WideString; safecall;
  7411.     function  Get_CountOfLines: Integer; safecall;
  7412.     procedure InsertLines(Line: Integer; const String_: WideString); safecall;
  7413.     procedure DeleteLines(StartLine: Integer; Count: Integer); safecall;
  7414.     procedure ReplaceLine(Line: Integer; const String_: WideString); safecall;
  7415.     function  Get_ProcStartLine(const ProcName: WideString; ProcKind: ProcKind): Integer; safecall;
  7416.     function  Get_ProcCountLines(const ProcName: WideString; ProcKind: ProcKind): Integer; safecall;
  7417.     function  Get_ProcBodyLine(const ProcName: WideString; ProcKind: ProcKind): Integer; safecall;
  7418.     function  Get_ProcOfLine(Line: Integer; out pprockind: ProcKind): WideString; safecall;
  7419.     function  Get_CountOfDeclarationLines: Integer; safecall;
  7420.     function  CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; safecall;
  7421.     function  Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  7422.                    var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  7423.                    MatchCase: WordBool; PatternSearch: WordBool): WordBool; safecall;
  7424.     function  Get_Type_: AcModuleType; safecall;
  7425.     property Application: Application read Get_Application;
  7426.     property Parent: IDispatch read Get_Parent;
  7427.     property Name: WideString read Get_Name write Set_Name;
  7428.     property Lines[Line: Integer; NumLines: Integer]: WideString read Get_Lines;
  7429.     property CountOfLines: Integer read Get_CountOfLines;
  7430.     property ProcStartLine[const ProcName: WideString; ProcKind: ProcKind]: Integer read Get_ProcStartLine;
  7431.     property ProcCountLines[const ProcName: WideString; ProcKind: ProcKind]: Integer read Get_ProcCountLines;
  7432.     property ProcBodyLine[const ProcName: WideString; ProcKind: ProcKind]: Integer read Get_ProcBodyLine;
  7433.     property ProcOfLine[Line: Integer; out pprockind: ProcKind]: WideString read Get_ProcOfLine;
  7434.     property CountOfDeclarationLines: Integer read Get_CountOfDeclarationLines;
  7435.     property Type_: AcModuleType read Get_Type_;
  7436.   end;
  7437.  
  7438. // *********************************************************************//
  7439. // DispIntf:  ModuleDisp
  7440. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7441. // GUID:      {331FDCFE-CF31-11CD-8701-00AA003F0F07}
  7442. // *********************************************************************//
  7443.   ModuleDisp = dispinterface
  7444.     ['{331FDCFE-CF31-11CD-8701-00AA003F0F07}']
  7445.     property Application: Application readonly dispid 2005;
  7446.     property Parent: IDispatch readonly dispid 2087;
  7447.     procedure InsertText(const Text: WideString); dispid 2093;
  7448.     property Name: WideString dispid 0;
  7449.     procedure AddFromString(const String_: WideString); dispid 1610743813;
  7450.     procedure AddFromFile(const FileName: WideString); dispid 1610743814;
  7451.     property Lines[Line: Integer; NumLines: Integer]: WideString readonly dispid 1610743815;
  7452.     property CountOfLines: Integer readonly dispid 1610743816;
  7453.     procedure InsertLines(Line: Integer; const String_: WideString); dispid 1610743817;
  7454.     procedure DeleteLines(StartLine: Integer; Count: Integer); dispid 1610743818;
  7455.     procedure ReplaceLine(Line: Integer; const String_: WideString); dispid 1610743819;
  7456.     property ProcStartLine[const ProcName: WideString; ProcKind: ProcKind]: Integer readonly dispid 1610743820;
  7457.     property ProcCountLines[const ProcName: WideString; ProcKind: ProcKind]: Integer readonly dispid 1610743821;
  7458.     property ProcBodyLine[const ProcName: WideString; ProcKind: ProcKind]: Integer readonly dispid 1610743822;
  7459.     property ProcOfLine[Line: Integer; out pprockind: ProcKind]: WideString readonly dispid 1610743823;
  7460.     property CountOfDeclarationLines: Integer readonly dispid 1610743824;
  7461.     function  CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; dispid 1610743825;
  7462.     function  Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  7463.                    var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  7464.                    MatchCase: WordBool; PatternSearch: WordBool): WordBool; dispid 1610743826;
  7465.     property Type_: AcModuleType readonly dispid 1610743827;
  7466.   end;
  7467.  
  7468. // *********************************************************************//
  7469. // Interface: Modules
  7470. // Flags:     (4416) Dual OleAutomation Dispatchable
  7471. // GUID:      {9DD0AF42-6E28-11CF-9008-00AA0042B7CE}
  7472. // *********************************************************************//
  7473.   Modules = interface(IDispatch)
  7474.     ['{9DD0AF42-6E28-11CF-9008-00AA0042B7CE}']
  7475.     function  Get_Application: Application; safecall;
  7476.     function  Get_Parent: IDispatch; safecall;
  7477.     function  Get_Item(Index: OleVariant): Module; safecall;
  7478.     function  Get_Count: Integer; safecall;
  7479.     function  _NewEnum: IUnknown; safecall;
  7480.     property Application: Application read Get_Application;
  7481.     property Parent: IDispatch read Get_Parent;
  7482.     property Item[Index: OleVariant]: Module read Get_Item; default;
  7483.     property Count: Integer read Get_Count;
  7484.   end;
  7485.  
  7486. // *********************************************************************//
  7487. // DispIntf:  ModulesDisp
  7488. // Flags:     (4416) Dual OleAutomation Dispatchable
  7489. // GUID:      {9DD0AF42-6E28-11CF-9008-00AA0042B7CE}
  7490. // *********************************************************************//
  7491.   ModulesDisp = dispinterface
  7492.     ['{9DD0AF42-6E28-11CF-9008-00AA0042B7CE}']
  7493.     property Application: Application readonly dispid 2005;
  7494.     property Parent: IDispatch readonly dispid 2087;
  7495.     property Item[Index: OleVariant]: Module readonly dispid 0; default;
  7496.     property Count: Integer readonly dispid 2001;
  7497.     function  _NewEnum: IUnknown; dispid -4;
  7498.   end;
  7499.  
  7500. // *********************************************************************//
  7501. // Interface: _Form
  7502. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  7503. // GUID:      {E5135D80-8F8D-101B-AF4E-00AA003F0F07}
  7504. // *********************************************************************//
  7505.   _Form = interface(IDispatch)
  7506.     ['{E5135D80-8F8D-101B-AF4E-00AA003F0F07}']
  7507.     function  Get_FormName: WideString; safecall;
  7508.     procedure Set_FormName(const pRet: WideString); safecall;
  7509.     function  Get_RecordSource: WideString; safecall;
  7510.     procedure Set_RecordSource(const pRet: WideString); safecall;
  7511.     function  Get_Filter: WideString; safecall;
  7512.     procedure Set_Filter(const pRet: WideString); safecall;
  7513.     function  Get_FilterOn: WordBool; safecall;
  7514.     procedure Set_FilterOn(pRet: WordBool); safecall;
  7515.     function  Get_OrderBy: WideString; safecall;
  7516.     procedure Set_OrderBy(const pRet: WideString); safecall;
  7517.     function  Get_OrderByOn: WordBool; safecall;
  7518.     procedure Set_OrderByOn(pRet: WordBool); safecall;
  7519.     function  Get_AllowFilters: WordBool; safecall;
  7520.     procedure Set_AllowFilters(pRet: WordBool); safecall;
  7521.     function  Get_Caption: WideString; safecall;
  7522.     procedure Set_Caption(const pRet: WideString); safecall;
  7523.     function  Get_DefaultView: Byte; safecall;
  7524.     procedure Set_DefaultView(pRet: Byte); safecall;
  7525.     function  Get_ViewsAllowed: Byte; safecall;
  7526.     procedure Set_ViewsAllowed(pRet: Byte); safecall;
  7527.     function  Get_AllowEditing: WordBool; safecall;
  7528.     procedure Set_AllowEditing(pRet: WordBool); safecall;
  7529.     function  Get_DefaultEditing: Smallint; safecall;
  7530.     procedure Set_DefaultEditing(pRet: Smallint); safecall;
  7531.     function  Get_AllowEdits: WordBool; safecall;
  7532.     procedure Set_AllowEdits(pRet: WordBool); safecall;
  7533.     function  Get_AllowDeletions: WordBool; safecall;
  7534.     procedure Set_AllowDeletions(pRet: WordBool); safecall;
  7535.     function  Get_AllowAdditions: WordBool; safecall;
  7536.     procedure Set_AllowAdditions(pRet: WordBool); safecall;
  7537.     function  Get_DataEntry: WordBool; safecall;
  7538.     procedure Set_DataEntry(pRet: WordBool); safecall;
  7539.     function  Get_AllowUpdating: Byte; safecall;
  7540.     procedure Set_AllowUpdating(pRet: Byte); safecall;
  7541.     function  Get_RecordsetType: Byte; safecall;
  7542.     procedure Set_RecordsetType(pRet: Byte); safecall;
  7543.     function  Get_RecordLocks: Byte; safecall;
  7544.     procedure Set_RecordLocks(pRet: Byte); safecall;
  7545.     function  Get_ScrollBars: Byte; safecall;
  7546.     procedure Set_ScrollBars(pRet: Byte); safecall;
  7547.     function  Get_RecordSelectors: WordBool; safecall;
  7548.     procedure Set_RecordSelectors(pRet: WordBool); safecall;
  7549.     function  Get_NavigationButtons: WordBool; safecall;
  7550.     procedure Set_NavigationButtons(pRet: WordBool); safecall;
  7551.     function  Get_DividingLines: WordBool; safecall;
  7552.     procedure Set_DividingLines(pRet: WordBool); safecall;
  7553.     function  Get_AutoResize: WordBool; safecall;
  7554.     procedure Set_AutoResize(pRet: WordBool); safecall;
  7555.     function  Get_AutoCenter: WordBool; safecall;
  7556.     procedure Set_AutoCenter(pRet: WordBool); safecall;
  7557.     function  Get_PopUp: WordBool; safecall;
  7558.     procedure Set_PopUp(pRet: WordBool); safecall;
  7559.     function  Get_Modal: WordBool; safecall;
  7560.     procedure Set_Modal(pRet: WordBool); safecall;
  7561.     function  Get_BorderStyle: Byte; safecall;
  7562.     procedure Set_BorderStyle(pRet: Byte); safecall;
  7563.     function  Get_ControlBox: WordBool; safecall;
  7564.     procedure Set_ControlBox(pRet: WordBool); safecall;
  7565.     function  Get_MinButton: WordBool; safecall;
  7566.     procedure Set_MinButton(pRet: WordBool); safecall;
  7567.     function  Get_MaxButton: WordBool; safecall;
  7568.     procedure Set_MaxButton(pRet: WordBool); safecall;
  7569.     function  Get_MinMaxButtons: Byte; safecall;
  7570.     procedure Set_MinMaxButtons(pRet: Byte); safecall;
  7571.     function  Get_CloseButton: WordBool; safecall;
  7572.     procedure Set_CloseButton(pRet: WordBool); safecall;
  7573.     function  Get_WhatsThisButton: WordBool; safecall;
  7574.     procedure Set_WhatsThisButton(pRet: WordBool); safecall;
  7575.     function  Get_Width: Smallint; safecall;
  7576.     procedure Set_Width(pRet: Smallint); safecall;
  7577.     function  Get_Picture: WideString; safecall;
  7578.     procedure Set_Picture(const pRet: WideString); safecall;
  7579.     function  Get_PictureType: Byte; safecall;
  7580.     procedure Set_PictureType(pRet: Byte); safecall;
  7581.     function  Get_PictureSizeMode: Byte; safecall;
  7582.     procedure Set_PictureSizeMode(pRet: Byte); safecall;
  7583.     function  Get_PictureAlignment: Byte; safecall;
  7584.     procedure Set_PictureAlignment(pRet: Byte); safecall;
  7585.     function  Get_PictureTiling: WordBool; safecall;
  7586.     procedure Set_PictureTiling(pRet: WordBool); safecall;
  7587.     function  Get_Cycle: Byte; safecall;
  7588.     procedure Set_Cycle(pRet: Byte); safecall;
  7589.     function  Get_MenuBar: WideString; safecall;
  7590.     procedure Set_MenuBar(const pRet: WideString); safecall;
  7591.     function  Get_Toolbar: WideString; safecall;
  7592.     procedure Set_Toolbar(const pRet: WideString); safecall;
  7593.     function  Get_ShortcutMenu: WordBool; safecall;
  7594.     procedure Set_ShortcutMenu(pRet: WordBool); safecall;
  7595.     function  Get_ShortcutMenuBar: WideString; safecall;
  7596.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  7597.     function  Get_GridX: Smallint; safecall;
  7598.     procedure Set_GridX(pRet: Smallint); safecall;
  7599.     function  Get_GridY: Smallint; safecall;
  7600.     procedure Set_GridY(pRet: Smallint); safecall;
  7601.     function  Get_LayoutForPrint: WordBool; safecall;
  7602.     procedure Set_LayoutForPrint(pRet: WordBool); safecall;
  7603.     function  Get_FastLaserPrinting: WordBool; safecall;
  7604.     procedure Set_FastLaserPrinting(pRet: WordBool); safecall;
  7605.     function  Get_HelpFile: WideString; safecall;
  7606.     procedure Set_HelpFile(const pRet: WideString); safecall;
  7607.     function  Get_HelpContextId: Integer; safecall;
  7608.     procedure Set_HelpContextId(pRet: Integer); safecall;
  7609.     function  Get_RowHeight: Smallint; safecall;
  7610.     procedure Set_RowHeight(pRet: Smallint); safecall;
  7611.     function  Get_DatasheetFontName: WideString; safecall;
  7612.     procedure Set_DatasheetFontName(const pRet: WideString); safecall;
  7613.     function  Get_DatasheetFontHeight: Smallint; safecall;
  7614.     procedure Set_DatasheetFontHeight(pRet: Smallint); safecall;
  7615.     function  Get_DatasheetFontWeight: Smallint; safecall;
  7616.     procedure Set_DatasheetFontWeight(pRet: Smallint); safecall;
  7617.     function  Get_DatasheetFontItalic: WordBool; safecall;
  7618.     procedure Set_DatasheetFontItalic(pRet: WordBool); safecall;
  7619.     function  Get_DatasheetFontUnderline: WordBool; safecall;
  7620.     procedure Set_DatasheetFontUnderline(pRet: WordBool); safecall;
  7621.     function  Get_TabularCharSet: Byte; safecall;
  7622.     procedure Set_TabularCharSet(pRet: Byte); safecall;
  7623.     function  Get_DatasheetGridlinesBehavior: Byte; safecall;
  7624.     procedure Set_DatasheetGridlinesBehavior(pRet: Byte); safecall;
  7625.     function  Get_DatasheetGridlinesColor: Integer; safecall;
  7626.     procedure Set_DatasheetGridlinesColor(pRet: Integer); safecall;
  7627.     function  Get_DatasheetCellsEffect: Byte; safecall;
  7628.     procedure Set_DatasheetCellsEffect(pRet: Byte); safecall;
  7629.     function  Get_DatasheetForeColor: Integer; safecall;
  7630.     procedure Set_DatasheetForeColor(pRet: Integer); safecall;
  7631.     function  Get_ShowGrid: WordBool; safecall;
  7632.     procedure Set_ShowGrid(pRet: WordBool); safecall;
  7633.     function  Get_DatasheetBackColor: Integer; safecall;
  7634.     procedure Set_DatasheetBackColor(pRet: Integer); safecall;
  7635.     function  Get_Hwnd: Integer; safecall;
  7636.     procedure Set_Hwnd(pRet: Integer); safecall;
  7637.     function  Get_Count: Smallint; safecall;
  7638.     procedure Set_Count(pRet: Smallint); safecall;
  7639.     function  Get_Page: Integer; safecall;
  7640.     procedure Set_Page(pRet: Integer); safecall;
  7641.     function  Get_Pages: Smallint; safecall;
  7642.     procedure Set_Pages(pRet: Smallint); safecall;
  7643.     function  Get_LogicalPageWidth: Integer; safecall;
  7644.     procedure Set_LogicalPageWidth(pRet: Integer); safecall;
  7645.     function  Get_LogicalPageHeight: Integer; safecall;
  7646.     procedure Set_LogicalPageHeight(pRet: Integer); safecall;
  7647.     function  Get_ZoomControl: Integer; safecall;
  7648.     procedure Set_ZoomControl(pRet: Integer); safecall;
  7649.     function  Get_Visible: WordBool; safecall;
  7650.     procedure Set_Visible(pRet: WordBool); safecall;
  7651.     function  Get_Painting: WordBool; safecall;
  7652.     procedure Set_Painting(pRet: WordBool); safecall;
  7653.     function  Get_PrtMip: OleVariant; safecall;
  7654.     procedure Set_PrtMip(pRet: OleVariant); safecall;
  7655.     function  Get_PrtDevMode: OleVariant; safecall;
  7656.     procedure Set_PrtDevMode(pRet: OleVariant); safecall;
  7657.     function  Get_PrtDevNames: OleVariant; safecall;
  7658.     procedure Set_PrtDevNames(pRet: OleVariant); safecall;
  7659.     function  Get_FrozenColumns: Smallint; safecall;
  7660.     procedure Set_FrozenColumns(pRet: Smallint); safecall;
  7661.     function  Get_Bookmark: OleVariant; safecall;
  7662.     procedure Set_Bookmark(pRet: OleVariant); safecall;
  7663.     function  Get_TabularFamily: Byte; safecall;
  7664.     procedure Set_TabularFamily(pRet: Byte); safecall;
  7665.     function  Get_Name: WideString; safecall;
  7666.     procedure Set_Name(const pRet: WideString); safecall;
  7667.     function  Get_PaletteSource: WideString; safecall;
  7668.     procedure Set_PaletteSource(const pRet: WideString); safecall;
  7669.     function  Get_Tag: WideString; safecall;
  7670.     procedure Set_Tag(const pRet: WideString); safecall;
  7671.     function  Get_PaintPalette: OleVariant; safecall;
  7672.     procedure Set_PaintPalette(pRet: OleVariant); safecall;
  7673.     function  Get_OnMenu: WideString; safecall;
  7674.     procedure Set_OnMenu(const pRet: WideString); safecall;
  7675.     function  Get_OpenArgs: OleVariant; safecall;
  7676.     procedure Set_OpenArgs(pRet: OleVariant); safecall;
  7677.     function  Get_ConnectSynch: Smallint; safecall;
  7678.     procedure Set_ConnectSynch(pRet: Smallint); safecall;
  7679.     function  Get_OnCurrent: WideString; safecall;
  7680.     procedure Set_OnCurrent(const pRet: WideString); safecall;
  7681.     function  Get_OnInsert: WideString; safecall;
  7682.     procedure Set_OnInsert(const pRet: WideString); safecall;
  7683.     function  Get_BeforeInsert: WideString; safecall;
  7684.     procedure Set_BeforeInsert(const pRet: WideString); safecall;
  7685.     function  Get_AfterInsert: WideString; safecall;
  7686.     procedure Set_AfterInsert(const pRet: WideString); safecall;
  7687.     function  Get_BeforeUpdate: WideString; safecall;
  7688.     procedure Set_BeforeUpdate(const pRet: WideString); safecall;
  7689.     function  Get_AfterUpdate: WideString; safecall;
  7690.     procedure Set_AfterUpdate(const pRet: WideString); safecall;
  7691.     function  Get_OnDelete: WideString; safecall;
  7692.     procedure Set_OnDelete(const pRet: WideString); safecall;
  7693.     function  Get_BeforeDelConfirm: WideString; safecall;
  7694.     procedure Set_BeforeDelConfirm(const pRet: WideString); safecall;
  7695.     function  Get_AfterDelConfirm: WideString; safecall;
  7696.     procedure Set_AfterDelConfirm(const pRet: WideString); safecall;
  7697.     function  Get_OnOpen: WideString; safecall;
  7698.     procedure Set_OnOpen(const pRet: WideString); safecall;
  7699.     function  Get_OnLoad: WideString; safecall;
  7700.     procedure Set_OnLoad(const pRet: WideString); safecall;
  7701.     function  Get_OnResize: WideString; safecall;
  7702.     procedure Set_OnResize(const pRet: WideString); safecall;
  7703.     function  Get_OnUnload: WideString; safecall;
  7704.     procedure Set_OnUnload(const pRet: WideString); safecall;
  7705.     function  Get_OnClose: WideString; safecall;
  7706.     procedure Set_OnClose(const pRet: WideString); safecall;
  7707.     function  Get_OnActivate: WideString; safecall;
  7708.     procedure Set_OnActivate(const pRet: WideString); safecall;
  7709.     function  Get_OnDeactivate: WideString; safecall;
  7710.     procedure Set_OnDeactivate(const pRet: WideString); safecall;
  7711.     function  Get_OnGotFocus: WideString; safecall;
  7712.     procedure Set_OnGotFocus(const pRet: WideString); safecall;
  7713.     function  Get_OnLostFocus: WideString; safecall;
  7714.     procedure Set_OnLostFocus(const pRet: WideString); safecall;
  7715.     function  Get_OnClick: WideString; safecall;
  7716.     procedure Set_OnClick(const pRet: WideString); safecall;
  7717.     function  Get_OnDblClick: WideString; safecall;
  7718.     procedure Set_OnDblClick(const pRet: WideString); safecall;
  7719.     function  Get_OnMouseDown: WideString; safecall;
  7720.     procedure Set_OnMouseDown(const pRet: WideString); safecall;
  7721.     function  Get_OnMouseMove: WideString; safecall;
  7722.     procedure Set_OnMouseMove(const pRet: WideString); safecall;
  7723.     function  Get_OnMouseUp: WideString; safecall;
  7724.     procedure Set_OnMouseUp(const pRet: WideString); safecall;
  7725.     function  Get_OnKeyDown: WideString; safecall;
  7726.     procedure Set_OnKeyDown(const pRet: WideString); safecall;
  7727.     function  Get_OnKeyUp: WideString; safecall;
  7728.     procedure Set_OnKeyUp(const pRet: WideString); safecall;
  7729.     function  Get_OnKeyPress: WideString; safecall;
  7730.     procedure Set_OnKeyPress(const pRet: WideString); safecall;
  7731.     function  Get_KeyPreview: WordBool; safecall;
  7732.     procedure Set_KeyPreview(pRet: WordBool); safecall;
  7733.     function  Get_OnError: WideString; safecall;
  7734.     procedure Set_OnError(const pRet: WideString); safecall;
  7735.     function  Get_OnFilter: WideString; safecall;
  7736.     procedure Set_OnFilter(const pRet: WideString); safecall;
  7737.     function  Get_OnApplyFilter: WideString; safecall;
  7738.     procedure Set_OnApplyFilter(const pRet: WideString); safecall;
  7739.     function  Get_OnTimer: WideString; safecall;
  7740.     procedure Set_OnTimer(const pRet: WideString); safecall;
  7741.     function  Get_TimerInterval: Integer; safecall;
  7742.     procedure Set_TimerInterval(pRet: Integer); safecall;
  7743.     function  Get_Dirty: WordBool; safecall;
  7744.     procedure Set_Dirty(pRet: WordBool); safecall;
  7745.     function  Get_WindowWidth: Smallint; safecall;
  7746.     procedure Set_WindowWidth(pRet: Smallint); safecall;
  7747.     function  Get_WindowHeight: Smallint; safecall;
  7748.     procedure Set_WindowHeight(pRet: Smallint); safecall;
  7749.     function  Get_CurrentView: Smallint; safecall;
  7750.     procedure Set_CurrentView(pRet: Smallint); safecall;
  7751.     function  Get_CurrentSectionTop: Smallint; safecall;
  7752.     procedure Set_CurrentSectionTop(pRet: Smallint); safecall;
  7753.     function  Get_CurrentSectionLeft: Smallint; safecall;
  7754.     procedure Set_CurrentSectionLeft(pRet: Smallint); safecall;
  7755.     function  Get_SelLeft: Integer; safecall;
  7756.     procedure Set_SelLeft(pRet: Integer); safecall;
  7757.     function  Get_SelTop: Integer; safecall;
  7758.     procedure Set_SelTop(pRet: Integer); safecall;
  7759.     function  Get_SelWidth: Integer; safecall;
  7760.     procedure Set_SelWidth(pRet: Integer); safecall;
  7761.     function  Get_SelHeight: Integer; safecall;
  7762.     procedure Set_SelHeight(pRet: Integer); safecall;
  7763.     function  Get_CurrentRecord: Integer; safecall;
  7764.     procedure Set_CurrentRecord(pRet: Integer); safecall;
  7765.     function  Get_PictureData: OleVariant; safecall;
  7766.     procedure Set_PictureData(pRet: OleVariant); safecall;
  7767.     function  Get_InsideHeight: Integer; safecall;
  7768.     procedure Set_InsideHeight(pRet: Integer); safecall;
  7769.     function  Get_InsideWidth: Integer; safecall;
  7770.     procedure Set_InsideWidth(pRet: Integer); safecall;
  7771.     function  Get_PicturePalette: OleVariant; safecall;
  7772.     procedure Set_PicturePalette(pRet: OleVariant); safecall;
  7773.     function  Get_HasModule: WordBool; safecall;
  7774.     procedure Set_HasModule(pRet: WordBool); safecall;
  7775.     function  Get_acHiddenCurrentPage: Integer; safecall;
  7776.     procedure Set_acHiddenCurrentPage(pRet: Integer); safecall;
  7777.     function  Get_Application: Application; safecall;
  7778.     function  Get_Parent: IDispatch; safecall;
  7779.     function  Get_NewRecord: Smallint; safecall;
  7780.     procedure Undo; safecall;
  7781.     function  Get_ActiveControl: AccessControl; safecall;
  7782.     function  Get_DefaultControl(ControlType: Integer): AccessControl; safecall;
  7783.     function  Get_Dynaset: IDispatch; safecall;
  7784.     function  Get_RecordsetClone: Recordset; safecall;
  7785.     function  Get_Section(var_: OleVariant): AccessSection; safecall;
  7786.     function  Get_Form: AccessForm; safecall;
  7787.     function  Get_Module: Module; safecall;
  7788.     function  Get_Properties: Properties; safecall;
  7789.     function  Get_ConnectControl: AccessControl; safecall;
  7790.     procedure Recalc; safecall;
  7791.     procedure Requery; safecall;
  7792.     procedure Refresh; safecall;
  7793.     procedure Repaint; safecall;
  7794.     procedure GoToPage(PageNumber: Integer; Right: Integer; Down: Integer); safecall;
  7795.     procedure SetFocus; safecall;
  7796.     function  Get_Controls: Controls; safecall;
  7797.     function  _NewEnum: IUnknown; safecall;
  7798.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  7799.     property FormName: WideString read Get_FormName write Set_FormName;
  7800.     property RecordSource: WideString read Get_RecordSource write Set_RecordSource;
  7801.     property Filter: WideString read Get_Filter write Set_Filter;
  7802.     property FilterOn: WordBool read Get_FilterOn write Set_FilterOn;
  7803.     property OrderBy: WideString read Get_OrderBy write Set_OrderBy;
  7804.     property OrderByOn: WordBool read Get_OrderByOn write Set_OrderByOn;
  7805.     property AllowFilters: WordBool read Get_AllowFilters write Set_AllowFilters;
  7806.     property Caption: WideString read Get_Caption write Set_Caption;
  7807.     property DefaultView: Byte read Get_DefaultView write Set_DefaultView;
  7808.     property ViewsAllowed: Byte read Get_ViewsAllowed write Set_ViewsAllowed;
  7809.     property AllowEditing: WordBool read Get_AllowEditing write Set_AllowEditing;
  7810.     property DefaultEditing: Smallint read Get_DefaultEditing write Set_DefaultEditing;
  7811.     property AllowEdits: WordBool read Get_AllowEdits write Set_AllowEdits;
  7812.     property AllowDeletions: WordBool read Get_AllowDeletions write Set_AllowDeletions;
  7813.     property AllowAdditions: WordBool read Get_AllowAdditions write Set_AllowAdditions;
  7814.     property DataEntry: WordBool read Get_DataEntry write Set_DataEntry;
  7815.     property AllowUpdating: Byte read Get_AllowUpdating write Set_AllowUpdating;
  7816.     property RecordsetType: Byte read Get_RecordsetType write Set_RecordsetType;
  7817.     property RecordLocks: Byte read Get_RecordLocks write Set_RecordLocks;
  7818.     property ScrollBars: Byte read Get_ScrollBars write Set_ScrollBars;
  7819.     property RecordSelectors: WordBool read Get_RecordSelectors write Set_RecordSelectors;
  7820.     property NavigationButtons: WordBool read Get_NavigationButtons write Set_NavigationButtons;
  7821.     property DividingLines: WordBool read Get_DividingLines write Set_DividingLines;
  7822.     property AutoResize: WordBool read Get_AutoResize write Set_AutoResize;
  7823.     property AutoCenter: WordBool read Get_AutoCenter write Set_AutoCenter;
  7824.     property PopUp: WordBool read Get_PopUp write Set_PopUp;
  7825.     property Modal: WordBool read Get_Modal write Set_Modal;
  7826.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  7827.     property ControlBox: WordBool read Get_ControlBox write Set_ControlBox;
  7828.     property MinButton: WordBool read Get_MinButton write Set_MinButton;
  7829.     property MaxButton: WordBool read Get_MaxButton write Set_MaxButton;
  7830.     property MinMaxButtons: Byte read Get_MinMaxButtons write Set_MinMaxButtons;
  7831.     property CloseButton: WordBool read Get_CloseButton write Set_CloseButton;
  7832.     property WhatsThisButton: WordBool read Get_WhatsThisButton write Set_WhatsThisButton;
  7833.     property Width: Smallint read Get_Width write Set_Width;
  7834.     property Picture: WideString read Get_Picture write Set_Picture;
  7835.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  7836.     property PictureSizeMode: Byte read Get_PictureSizeMode write Set_PictureSizeMode;
  7837.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  7838.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  7839.     property Cycle: Byte read Get_Cycle write Set_Cycle;
  7840.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  7841.     property Toolbar: WideString read Get_Toolbar write Set_Toolbar;
  7842.     property ShortcutMenu: WordBool read Get_ShortcutMenu write Set_ShortcutMenu;
  7843.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  7844.     property GridX: Smallint read Get_GridX write Set_GridX;
  7845.     property GridY: Smallint read Get_GridY write Set_GridY;
  7846.     property LayoutForPrint: WordBool read Get_LayoutForPrint write Set_LayoutForPrint;
  7847.     property FastLaserPrinting: WordBool read Get_FastLaserPrinting write Set_FastLaserPrinting;
  7848.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  7849.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  7850.     property RowHeight: Smallint read Get_RowHeight write Set_RowHeight;
  7851.     property DatasheetFontName: WideString read Get_DatasheetFontName write Set_DatasheetFontName;
  7852.     property DatasheetFontHeight: Smallint read Get_DatasheetFontHeight write Set_DatasheetFontHeight;
  7853.     property DatasheetFontWeight: Smallint read Get_DatasheetFontWeight write Set_DatasheetFontWeight;
  7854.     property DatasheetFontItalic: WordBool read Get_DatasheetFontItalic write Set_DatasheetFontItalic;
  7855.     property DatasheetFontUnderline: WordBool read Get_DatasheetFontUnderline write Set_DatasheetFontUnderline;
  7856.     property TabularCharSet: Byte read Get_TabularCharSet write Set_TabularCharSet;
  7857.     property DatasheetGridlinesBehavior: Byte read Get_DatasheetGridlinesBehavior write Set_DatasheetGridlinesBehavior;
  7858.     property DatasheetGridlinesColor: Integer read Get_DatasheetGridlinesColor write Set_DatasheetGridlinesColor;
  7859.     property DatasheetCellsEffect: Byte read Get_DatasheetCellsEffect write Set_DatasheetCellsEffect;
  7860.     property DatasheetForeColor: Integer read Get_DatasheetForeColor write Set_DatasheetForeColor;
  7861.     property ShowGrid: WordBool read Get_ShowGrid write Set_ShowGrid;
  7862.     property DatasheetBackColor: Integer read Get_DatasheetBackColor write Set_DatasheetBackColor;
  7863.     property Hwnd: Integer read Get_Hwnd write Set_Hwnd;
  7864.     property Count: Smallint read Get_Count write Set_Count;
  7865.     property Page: Integer read Get_Page write Set_Page;
  7866.     property Pages: Smallint read Get_Pages write Set_Pages;
  7867.     property LogicalPageWidth: Integer read Get_LogicalPageWidth write Set_LogicalPageWidth;
  7868.     property LogicalPageHeight: Integer read Get_LogicalPageHeight write Set_LogicalPageHeight;
  7869.     property ZoomControl: Integer read Get_ZoomControl write Set_ZoomControl;
  7870.     property Visible: WordBool read Get_Visible write Set_Visible;
  7871.     property Painting: WordBool read Get_Painting write Set_Painting;
  7872.     property PrtMip: OleVariant read Get_PrtMip write Set_PrtMip;
  7873.     property PrtDevMode: OleVariant read Get_PrtDevMode write Set_PrtDevMode;
  7874.     property PrtDevNames: OleVariant read Get_PrtDevNames write Set_PrtDevNames;
  7875.     property FrozenColumns: Smallint read Get_FrozenColumns write Set_FrozenColumns;
  7876.     property Bookmark: OleVariant read Get_Bookmark write Set_Bookmark;
  7877.     property TabularFamily: Byte read Get_TabularFamily write Set_TabularFamily;
  7878.     property Name: WideString read Get_Name write Set_Name;
  7879.     property PaletteSource: WideString read Get_PaletteSource write Set_PaletteSource;
  7880.     property Tag: WideString read Get_Tag write Set_Tag;
  7881.     property PaintPalette: OleVariant read Get_PaintPalette write Set_PaintPalette;
  7882.     property OnMenu: WideString read Get_OnMenu write Set_OnMenu;
  7883.     property OpenArgs: OleVariant read Get_OpenArgs write Set_OpenArgs;
  7884.     property ConnectSynch: Smallint read Get_ConnectSynch write Set_ConnectSynch;
  7885.     property OnCurrent: WideString read Get_OnCurrent write Set_OnCurrent;
  7886.     property OnInsert: WideString read Get_OnInsert write Set_OnInsert;
  7887.     property BeforeInsert: WideString read Get_BeforeInsert write Set_BeforeInsert;
  7888.     property AfterInsert: WideString read Get_AfterInsert write Set_AfterInsert;
  7889.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  7890.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  7891.     property OnDelete: WideString read Get_OnDelete write Set_OnDelete;
  7892.     property BeforeDelConfirm: WideString read Get_BeforeDelConfirm write Set_BeforeDelConfirm;
  7893.     property AfterDelConfirm: WideString read Get_AfterDelConfirm write Set_AfterDelConfirm;
  7894.     property OnOpen: WideString read Get_OnOpen write Set_OnOpen;
  7895.     property OnLoad: WideString read Get_OnLoad write Set_OnLoad;
  7896.     property OnResize: WideString read Get_OnResize write Set_OnResize;
  7897.     property OnUnload: WideString read Get_OnUnload write Set_OnUnload;
  7898.     property OnClose: WideString read Get_OnClose write Set_OnClose;
  7899.     property OnActivate: WideString read Get_OnActivate write Set_OnActivate;
  7900.     property OnDeactivate: WideString read Get_OnDeactivate write Set_OnDeactivate;
  7901.     property OnGotFocus: WideString read Get_OnGotFocus write Set_OnGotFocus;
  7902.     property OnLostFocus: WideString read Get_OnLostFocus write Set_OnLostFocus;
  7903.     property OnClick: WideString read Get_OnClick write Set_OnClick;
  7904.     property OnDblClick: WideString read Get_OnDblClick write Set_OnDblClick;
  7905.     property OnMouseDown: WideString read Get_OnMouseDown write Set_OnMouseDown;
  7906.     property OnMouseMove: WideString read Get_OnMouseMove write Set_OnMouseMove;
  7907.     property OnMouseUp: WideString read Get_OnMouseUp write Set_OnMouseUp;
  7908.     property OnKeyDown: WideString read Get_OnKeyDown write Set_OnKeyDown;
  7909.     property OnKeyUp: WideString read Get_OnKeyUp write Set_OnKeyUp;
  7910.     property OnKeyPress: WideString read Get_OnKeyPress write Set_OnKeyPress;
  7911.     property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
  7912.     property OnError: WideString read Get_OnError write Set_OnError;
  7913.     property OnFilter: WideString read Get_OnFilter write Set_OnFilter;
  7914.     property OnApplyFilter: WideString read Get_OnApplyFilter write Set_OnApplyFilter;
  7915.     property OnTimer: WideString read Get_OnTimer write Set_OnTimer;
  7916.     property TimerInterval: Integer read Get_TimerInterval write Set_TimerInterval;
  7917.     property Dirty: WordBool read Get_Dirty write Set_Dirty;
  7918.     property WindowWidth: Smallint read Get_WindowWidth write Set_WindowWidth;
  7919.     property WindowHeight: Smallint read Get_WindowHeight write Set_WindowHeight;
  7920.     property CurrentView: Smallint read Get_CurrentView write Set_CurrentView;
  7921.     property CurrentSectionTop: Smallint read Get_CurrentSectionTop write Set_CurrentSectionTop;
  7922.     property CurrentSectionLeft: Smallint read Get_CurrentSectionLeft write Set_CurrentSectionLeft;
  7923.     property SelLeft: Integer read Get_SelLeft write Set_SelLeft;
  7924.     property SelTop: Integer read Get_SelTop write Set_SelTop;
  7925.     property SelWidth: Integer read Get_SelWidth write Set_SelWidth;
  7926.     property SelHeight: Integer read Get_SelHeight write Set_SelHeight;
  7927.     property CurrentRecord: Integer read Get_CurrentRecord write Set_CurrentRecord;
  7928.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  7929.     property InsideHeight: Integer read Get_InsideHeight write Set_InsideHeight;
  7930.     property InsideWidth: Integer read Get_InsideWidth write Set_InsideWidth;
  7931.     property PicturePalette: OleVariant read Get_PicturePalette write Set_PicturePalette;
  7932.     property HasModule: WordBool read Get_HasModule write Set_HasModule;
  7933.     property acHiddenCurrentPage: Integer read Get_acHiddenCurrentPage write Set_acHiddenCurrentPage;
  7934.     property Application: Application read Get_Application;
  7935.     property Parent: IDispatch read Get_Parent;
  7936.     property NewRecord: Smallint read Get_NewRecord;
  7937.     property ActiveControl: AccessControl read Get_ActiveControl;
  7938.     property DefaultControl[ControlType: Integer]: AccessControl read Get_DefaultControl;
  7939.     property Dynaset: IDispatch read Get_Dynaset;
  7940.     property RecordsetClone: Recordset read Get_RecordsetClone;
  7941.     property Section[var_: OleVariant]: AccessSection read Get_Section;
  7942.     property Form: AccessForm read Get_Form;
  7943.     property Module: Module read Get_Module;
  7944.     property Properties: Properties read Get_Properties;
  7945.     property ConnectControl: AccessControl read Get_ConnectControl;
  7946.     property Controls: Controls read Get_Controls;
  7947.   end;
  7948.  
  7949. // *********************************************************************//
  7950. // DispIntf:  _FormDisp
  7951. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  7952. // GUID:      {E5135D80-8F8D-101B-AF4E-00AA003F0F07}
  7953. // *********************************************************************//
  7954.   _FormDisp = dispinterface
  7955.     ['{E5135D80-8F8D-101B-AF4E-00AA003F0F07}']
  7956.     property FormName: WideString dispid 39;
  7957.     property RecordSource: WideString dispid 153;
  7958.     property Filter: WideString dispid 271;
  7959.     property FilterOn: WordBool dispid 374;
  7960.     property OrderBy: WideString dispid 373;
  7961.     property OrderByOn: WordBool dispid 379;
  7962.     property AllowFilters: WordBool dispid 30;
  7963.     property Caption: WideString dispid 17;
  7964.     property DefaultView: Byte dispid 144;
  7965.     property ViewsAllowed: Byte dispid 143;
  7966.     property AllowEditing: WordBool dispid 24;
  7967.     property DefaultEditing: Smallint dispid 131;
  7968.     property AllowEdits: WordBool dispid 382;
  7969.     property AllowDeletions: WordBool dispid 324;
  7970.     property AllowAdditions: WordBool dispid 367;
  7971.     property DataEntry: WordBool dispid 381;
  7972.     property AllowUpdating: Byte dispid 45;
  7973.     property RecordsetType: Byte dispid 380;
  7974.     property RecordLocks: Byte dispid 26;
  7975.     property ScrollBars: Byte dispid 149;
  7976.     property RecordSelectors: WordBool dispid 19;
  7977.     property NavigationButtons: WordBool dispid 311;
  7978.     property DividingLines: WordBool dispid 359;
  7979.     property AutoResize: WordBool dispid 6;
  7980.     property AutoCenter: WordBool dispid 310;
  7981.     property PopUp: WordBool dispid 86;
  7982.     property Modal: WordBool dispid 62;
  7983.     property BorderStyle: Byte dispid 9;
  7984.     property ControlBox: WordBool dispid 94;
  7985.     property MinButton: WordBool dispid 92;
  7986.     property MaxButton: WordBool dispid 91;
  7987.     property MinMaxButtons: Byte dispid 369;
  7988.     property CloseButton: WordBool dispid 335;
  7989.     property WhatsThisButton: WordBool dispid 93;
  7990.     property Width: Smallint dispid 147;
  7991.     property Picture: WideString dispid 7;
  7992.     property PictureType: Byte dispid 384;
  7993.     property PictureSizeMode: Byte dispid 357;
  7994.     property PictureAlignment: Byte dispid 354;
  7995.     property PictureTiling: WordBool dispid 358;
  7996.     property Cycle: Byte dispid 372;
  7997.     property MenuBar: WideString dispid 261;
  7998.     property Toolbar: WideString dispid 396;
  7999.     property ShortcutMenu: WordBool dispid 31;
  8000.     property ShortcutMenuBar: WideString dispid 336;
  8001.     property GridX: Smallint dispid 41;
  8002.     property GridY: Smallint dispid 42;
  8003.     property LayoutForPrint: WordBool dispid 140;
  8004.     property FastLaserPrinting: WordBool dispid 141;
  8005.     property HelpFile: WideString dispid 217;
  8006.     property HelpContextId: Integer dispid 218;
  8007.     property RowHeight: Smallint dispid 165;
  8008.     property DatasheetFontName: WideString dispid 157;
  8009.     property DatasheetFontHeight: Smallint dispid 158;
  8010.     property DatasheetFontWeight: Smallint dispid 159;
  8011.     property DatasheetFontItalic: WordBool dispid 160;
  8012.     property DatasheetFontUnderline: WordBool dispid 161;
  8013.     property TabularCharSet: Byte dispid 193;
  8014.     property DatasheetGridlinesBehavior: Byte dispid 363;
  8015.     property DatasheetGridlinesColor: Integer dispid 364;
  8016.     property DatasheetCellsEffect: Byte dispid 365;
  8017.     property DatasheetForeColor: Integer dispid 349;
  8018.     property ShowGrid: WordBool dispid 166;
  8019.     property DatasheetBackColor: Integer dispid 366;
  8020.     property Hwnd: Integer dispid 191;
  8021.     property Count: Smallint dispid 194;
  8022.     property Page: Integer dispid 195;
  8023.     property Pages: Smallint dispid 196;
  8024.     property LogicalPageWidth: Integer dispid 197;
  8025.     property LogicalPageHeight: Integer dispid 198;
  8026.     property ZoomControl: Integer dispid 216;
  8027.     property Visible: WordBool dispid 145;
  8028.     property Painting: WordBool dispid 264;
  8029.     property PrtMip: OleVariant dispid 188;
  8030.     property PrtDevMode: OleVariant dispid 189;
  8031.     property PrtDevNames: OleVariant dispid 190;
  8032.     property FrozenColumns: Smallint dispid 167;
  8033.     property Bookmark: OleVariant dispid 229;
  8034.     property TabularFamily: Byte dispid 267;
  8035.     property Name: WideString dispid 20;
  8036.     property PaletteSource: WideString dispid 95;
  8037.     property Tag: WideString dispid 297;
  8038.     property PaintPalette: OleVariant dispid 97;
  8039.     property OnMenu: WideString dispid 60;
  8040.     property OpenArgs: OleVariant dispid 316;
  8041.     property ConnectSynch: Smallint dispid 317;
  8042.     property OnCurrent: WideString dispid 83;
  8043.     property OnInsert: WideString dispid 77;
  8044.     property BeforeInsert: WideString dispid 119;
  8045.     property AfterInsert: WideString dispid 120;
  8046.     property BeforeUpdate: WideString dispid 81;
  8047.     property AfterUpdate: WideString dispid 82;
  8048.     property OnDelete: WideString dispid 75;
  8049.     property BeforeDelConfirm: WideString dispid 121;
  8050.     property AfterDelConfirm: WideString dispid 122;
  8051.     property OnOpen: WideString dispid 73;
  8052.     property OnLoad: WideString dispid 124;
  8053.     property OnResize: WideString dispid 114;
  8054.     property OnUnload: WideString dispid 125;
  8055.     property OnClose: WideString dispid 74;
  8056.     property OnActivate: WideString dispid 109;
  8057.     property OnDeactivate: WideString dispid 110;
  8058.     property OnGotFocus: WideString dispid 112;
  8059.     property OnLostFocus: WideString dispid 113;
  8060.     property OnClick: WideString dispid 123;
  8061.     property OnDblClick: WideString dispid 223;
  8062.     property OnMouseDown: WideString dispid 104;
  8063.     property OnMouseMove: WideString dispid 106;
  8064.     property OnMouseUp: WideString dispid 105;
  8065.     property OnKeyDown: WideString dispid 101;
  8066.     property OnKeyUp: WideString dispid 102;
  8067.     property OnKeyPress: WideString dispid 103;
  8068.     property KeyPreview: WordBool dispid 368;
  8069.     property OnError: WideString dispid 116;
  8070.     property OnFilter: WideString dispid 375;
  8071.     property OnApplyFilter: WideString dispid 376;
  8072.     property OnTimer: WideString dispid 107;
  8073.     property TimerInterval: Integer dispid 108;
  8074.     property Dirty: WordBool dispid 318;
  8075.     property WindowWidth: Smallint dispid 319;
  8076.     property WindowHeight: Smallint dispid 320;
  8077.     property CurrentView: Smallint dispid 321;
  8078.     property CurrentSectionTop: Smallint dispid 323;
  8079.     property CurrentSectionLeft: Smallint dispid 322;
  8080.     property SelLeft: Integer dispid 330;
  8081.     property SelTop: Integer dispid 331;
  8082.     property SelWidth: Integer dispid 332;
  8083.     property SelHeight: Integer dispid 333;
  8084.     property CurrentRecord: Integer dispid 334;
  8085.     property PictureData: OleVariant dispid 187;
  8086.     property InsideHeight: Integer dispid 360;
  8087.     property InsideWidth: Integer dispid 361;
  8088.     property PicturePalette: OleVariant dispid 356;
  8089.     property HasModule: WordBool dispid 385;
  8090.     property acHiddenCurrentPage: Integer dispid 406;
  8091.     property Application: Application readonly dispid 2005;
  8092.     property Parent: IDispatch readonly dispid 2087;
  8093.     property NewRecord: Smallint readonly dispid 2147;
  8094.     procedure Undo; dispid 2145;
  8095.     property ActiveControl: AccessControl readonly dispid 2006;
  8096.     property DefaultControl[ControlType: Integer]: AccessControl readonly dispid 2150;
  8097.     property Dynaset: IDispatch readonly dispid 2085;
  8098.     property RecordsetClone: Recordset readonly dispid 2086;
  8099.     property Section[var_: OleVariant]: AccessSection readonly dispid 2088;
  8100.     property Form: AccessForm readonly dispid 2089;
  8101.     property Module: Module readonly dispid 2090;
  8102.     property Properties: Properties readonly dispid 2091;
  8103.     property ConnectControl: AccessControl readonly dispid 2092;
  8104.     procedure Recalc; dispid 2017;
  8105.     procedure Requery; dispid 2018;
  8106.     procedure Refresh; dispid -550;
  8107.     procedure Repaint; dispid 2020;
  8108.     procedure GoToPage(PageNumber: Integer; Right: Integer; Down: Integer); dispid 2021;
  8109.     procedure SetFocus; dispid 2022;
  8110.     property Controls: Controls readonly dispid 0;
  8111.     function  _NewEnum: IUnknown; dispid -4;
  8112.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  8113.   end;
  8114.  
  8115. // *********************************************************************//
  8116. // Interface: _FormEvents
  8117. // Flags:     (16) Hidden
  8118. // GUID:      {331FDCFB-CF31-11CD-8701-00AA003F0F07}
  8119. // *********************************************************************//
  8120.   _FormEvents = interface(IUnknown)
  8121.     ['{331FDCFB-CF31-11CD-8701-00AA003F0F07}']
  8122.     function  Load: HResult; stdcall;
  8123.     function  Current: HResult; stdcall;
  8124.     function  BeforeInsert(out Cancel: Smallint): HResult; stdcall;
  8125.     function  AfterInsert: HResult; stdcall;
  8126.     function  BeforeUpdate(out Cancel: Smallint): HResult; stdcall;
  8127.     function  AfterUpdate: HResult; stdcall;
  8128.     function  Delete(out Cancel: Smallint): HResult; stdcall;
  8129.     function  BeforeDelConfirm(out Cancel: Smallint; out Response: Smallint): HResult; stdcall;
  8130.     function  AfterDelConfirm(var Status: Smallint): HResult; stdcall;
  8131.     function  Open(out Cancel: Smallint): HResult; stdcall;
  8132.     function  Resize: HResult; stdcall;
  8133.     function  Unload(out Cancel: Smallint): HResult; stdcall;
  8134.     function  Close: HResult; stdcall;
  8135.     function  Activate: HResult; stdcall;
  8136.     function  Deactivate: HResult; stdcall;
  8137.     function  GotFocus: HResult; stdcall;
  8138.     function  LostFocus: HResult; stdcall;
  8139.     function  Click: HResult; stdcall;
  8140.     function  DblClick(out Cancel: Smallint): HResult; stdcall;
  8141.     function  MouseDown(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  8142.     function  MouseMove(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  8143.     function  MouseUp(var Button: Smallint; var Shift: Smallint; var X: Single; var Y: Single): HResult; stdcall;
  8144.     function  KeyDown(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  8145.     function  KeyPress(var KeyAscii: Smallint): HResult; stdcall;
  8146.     function  KeyUp(var KeyCode: Smallint; var Shift: Smallint): HResult; stdcall;
  8147.     function  Error(var DataErr: Smallint; out Response: Smallint): HResult; stdcall;
  8148.     function  Timer: HResult; stdcall;
  8149.     function  Filter(out Cancel: Smallint; var FilterType: Smallint): HResult; stdcall;
  8150.     function  ApplyFilter(out Cancel: Smallint; var ApplyType: Smallint): HResult; stdcall;
  8151.   end;
  8152.  
  8153. // *********************************************************************//
  8154. // Interface: Forms
  8155. // Flags:     (4416) Dual OleAutomation Dispatchable
  8156. // GUID:      {B1BB0E80-6128-101B-AF4E-00AA003F0F07}
  8157. // *********************************************************************//
  8158.   Forms = interface(IDispatch)
  8159.     ['{B1BB0E80-6128-101B-AF4E-00AA003F0F07}']
  8160.     function  Get_Application: Application; safecall;
  8161.     function  Get_Parent: IDispatch; safecall;
  8162.     function  Get_Item(Index: OleVariant): AccessForm; safecall;
  8163.     function  Get_Count: Integer; safecall;
  8164.     function  _NewEnum: IUnknown; safecall;
  8165.     property Application: Application read Get_Application;
  8166.     property Parent: IDispatch read Get_Parent;
  8167.     property Item[Index: OleVariant]: AccessForm read Get_Item; default;
  8168.     property Count: Integer read Get_Count;
  8169.   end;
  8170.  
  8171. // *********************************************************************//
  8172. // DispIntf:  FormsDisp
  8173. // Flags:     (4416) Dual OleAutomation Dispatchable
  8174. // GUID:      {B1BB0E80-6128-101B-AF4E-00AA003F0F07}
  8175. // *********************************************************************//
  8176.   FormsDisp = dispinterface
  8177.     ['{B1BB0E80-6128-101B-AF4E-00AA003F0F07}']
  8178.     property Application: Application readonly dispid 2005;
  8179.     property Parent: IDispatch readonly dispid 2087;
  8180.     property Item[Index: OleVariant]: AccessForm readonly dispid 0; default;
  8181.     property Count: Integer readonly dispid 2001;
  8182.     function  _NewEnum: IUnknown; dispid -4;
  8183.   end;
  8184.  
  8185. // *********************************************************************//
  8186. // Interface: _Report
  8187. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  8188. // GUID:      {3E8B6B00-91FF-101B-AF4E-00AA003F0F07}
  8189. // *********************************************************************//
  8190.   _Report = interface(IDispatch)
  8191.     ['{3E8B6B00-91FF-101B-AF4E-00AA003F0F07}']
  8192.     function  Get_FormName: WideString; safecall;
  8193.     procedure Set_FormName(const pRet: WideString); safecall;
  8194.     function  Get_RecordSource: WideString; safecall;
  8195.     procedure Set_RecordSource(const pRet: WideString); safecall;
  8196.     function  Get_Filter: WideString; safecall;
  8197.     procedure Set_Filter(const pRet: WideString); safecall;
  8198.     function  Get_FilterOn: WordBool; safecall;
  8199.     procedure Set_FilterOn(pRet: WordBool); safecall;
  8200.     function  Get_OrderBy: WideString; safecall;
  8201.     procedure Set_OrderBy(const pRet: WideString); safecall;
  8202.     function  Get_OrderByOn: WordBool; safecall;
  8203.     procedure Set_OrderByOn(pRet: WordBool); safecall;
  8204.     function  Get_Caption: WideString; safecall;
  8205.     procedure Set_Caption(const pRet: WideString); safecall;
  8206.     function  Get_RecordLocks: Byte; safecall;
  8207.     procedure Set_RecordLocks(pRet: Byte); safecall;
  8208.     function  Get_PageHeader: Byte; safecall;
  8209.     procedure Set_PageHeader(pRet: Byte); safecall;
  8210.     function  Get_PageFooter: Byte; safecall;
  8211.     procedure Set_PageFooter(pRet: Byte); safecall;
  8212.     function  Get_DateGrouping: Byte; safecall;
  8213.     procedure Set_DateGrouping(pRet: Byte); safecall;
  8214.     function  Get_GrpKeepTogether: Byte; safecall;
  8215.     procedure Set_GrpKeepTogether(pRet: Byte); safecall;
  8216.     function  Get_MinButton: WordBool; safecall;
  8217.     procedure Set_MinButton(pRet: WordBool); safecall;
  8218.     function  Get_MaxButton: WordBool; safecall;
  8219.     procedure Set_MaxButton(pRet: WordBool); safecall;
  8220.     function  Get_Width: Smallint; safecall;
  8221.     procedure Set_Width(pRet: Smallint); safecall;
  8222.     function  Get_Picture: WideString; safecall;
  8223.     procedure Set_Picture(const pRet: WideString); safecall;
  8224.     function  Get_PictureType: Byte; safecall;
  8225.     procedure Set_PictureType(pRet: Byte); safecall;
  8226.     function  Get_PictureSizeMode: Byte; safecall;
  8227.     procedure Set_PictureSizeMode(pRet: Byte); safecall;
  8228.     function  Get_PictureAlignment: Byte; safecall;
  8229.     procedure Set_PictureAlignment(pRet: Byte); safecall;
  8230.     function  Get_PictureTiling: WordBool; safecall;
  8231.     procedure Set_PictureTiling(pRet: WordBool); safecall;
  8232.     function  Get_PicturePages: Byte; safecall;
  8233.     procedure Set_PicturePages(pRet: Byte); safecall;
  8234.     function  Get_MenuBar: WideString; safecall;
  8235.     procedure Set_MenuBar(const pRet: WideString); safecall;
  8236.     function  Get_Toolbar: WideString; safecall;
  8237.     procedure Set_Toolbar(const pRet: WideString); safecall;
  8238.     function  Get_ShortcutMenuBar: WideString; safecall;
  8239.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  8240.     function  Get_GridX: Smallint; safecall;
  8241.     procedure Set_GridX(pRet: Smallint); safecall;
  8242.     function  Get_GridY: Smallint; safecall;
  8243.     procedure Set_GridY(pRet: Smallint); safecall;
  8244.     function  Get_LayoutForPrint: WordBool; safecall;
  8245.     procedure Set_LayoutForPrint(pRet: WordBool); safecall;
  8246.     function  Get_FastLaserPrinting: WordBool; safecall;
  8247.     procedure Set_FastLaserPrinting(pRet: WordBool); safecall;
  8248.     function  Get_HelpFile: WideString; safecall;
  8249.     procedure Set_HelpFile(const pRet: WideString); safecall;
  8250.     function  Get_HelpContextId: Integer; safecall;
  8251.     procedure Set_HelpContextId(pRet: Integer); safecall;
  8252.     function  Get_Hwnd: Integer; safecall;
  8253.     procedure Set_Hwnd(pRet: Integer); safecall;
  8254.     function  Get_Count: Smallint; safecall;
  8255.     procedure Set_Count(pRet: Smallint); safecall;
  8256.     function  Get_Page: Integer; safecall;
  8257.     procedure Set_Page(pRet: Integer); safecall;
  8258.     function  Get_Pages: Smallint; safecall;
  8259.     procedure Set_Pages(pRet: Smallint); safecall;
  8260.     function  Get_LogicalPageWidth: Integer; safecall;
  8261.     procedure Set_LogicalPageWidth(pRet: Integer); safecall;
  8262.     function  Get_LogicalPageHeight: Integer; safecall;
  8263.     procedure Set_LogicalPageHeight(pRet: Integer); safecall;
  8264.     function  Get_ZoomControl: Integer; safecall;
  8265.     procedure Set_ZoomControl(pRet: Integer); safecall;
  8266.     function  Get_HasData: Integer; safecall;
  8267.     procedure Set_HasData(pRet: Integer); safecall;
  8268.     function  Get_Left: Integer; safecall;
  8269.     procedure Set_Left(pRet: Integer); safecall;
  8270.     function  Get_Top: Integer; safecall;
  8271.     procedure Set_Top(pRet: Integer); safecall;
  8272.     function  Get_Height: Integer; safecall;
  8273.     procedure Set_Height(pRet: Integer); safecall;
  8274.     function  Get_PrintSection: WordBool; safecall;
  8275.     procedure Set_PrintSection(pRet: WordBool); safecall;
  8276.     function  Get_NextRecord: WordBool; safecall;
  8277.     procedure Set_NextRecord(pRet: WordBool); safecall;
  8278.     function  Get_MoveLayout: WordBool; safecall;
  8279.     procedure Set_MoveLayout(pRet: WordBool); safecall;
  8280.     function  Get_FormatCount: Smallint; safecall;
  8281.     procedure Set_FormatCount(pRet: Smallint); safecall;
  8282.     function  Get_PrintCount: Smallint; safecall;
  8283.     procedure Set_PrintCount(pRet: Smallint); safecall;
  8284.     function  Get_Visible: WordBool; safecall;
  8285.     procedure Set_Visible(pRet: WordBool); safecall;
  8286.     function  Get_Painting: WordBool; safecall;
  8287.     procedure Set_Painting(pRet: WordBool); safecall;
  8288.     function  Get_PrtMip: OleVariant; safecall;
  8289.     procedure Set_PrtMip(pRet: OleVariant); safecall;
  8290.     function  Get_PrtDevMode: OleVariant; safecall;
  8291.     procedure Set_PrtDevMode(pRet: OleVariant); safecall;
  8292.     function  Get_PrtDevNames: OleVariant; safecall;
  8293.     procedure Set_PrtDevNames(pRet: OleVariant); safecall;
  8294.     function  Get_ForeColor: Integer; safecall;
  8295.     procedure Set_ForeColor(pRet: Integer); safecall;
  8296.     function  Get_CurrentX: Single; safecall;
  8297.     procedure Set_CurrentX(pRet: Single); safecall;
  8298.     function  Get_CurrentY: Single; safecall;
  8299.     procedure Set_CurrentY(pRet: Single); safecall;
  8300.     function  Get_ScaleHeight: Single; safecall;
  8301.     procedure Set_ScaleHeight(pRet: Single); safecall;
  8302.     function  Get_ScaleLeft: Single; safecall;
  8303.     procedure Set_ScaleLeft(pRet: Single); safecall;
  8304.     function  Get_ScaleMode: Smallint; safecall;
  8305.     procedure Set_ScaleMode(pRet: Smallint); safecall;
  8306.     function  Get_ScaleTop: Single; safecall;
  8307.     procedure Set_ScaleTop(pRet: Single); safecall;
  8308.     function  Get_ScaleWidth: Single; safecall;
  8309.     procedure Set_ScaleWidth(pRet: Single); safecall;
  8310.     function  Get_FontBold: Smallint; safecall;
  8311.     procedure Set_FontBold(pRet: Smallint); safecall;
  8312.     function  Get_FontItalic: Smallint; safecall;
  8313.     procedure Set_FontItalic(pRet: Smallint); safecall;
  8314.     function  Get_FontName: WideString; safecall;
  8315.     procedure Set_FontName(const pRet: WideString); safecall;
  8316.     function  Get_FontSize: Smallint; safecall;
  8317.     procedure Set_FontSize(pRet: Smallint); safecall;
  8318.     function  Get_FontUnderline: Smallint; safecall;
  8319.     procedure Set_FontUnderline(pRet: Smallint); safecall;
  8320.     function  Get_DrawMode: Smallint; safecall;
  8321.     procedure Set_DrawMode(pRet: Smallint); safecall;
  8322.     function  Get_DrawStyle: Smallint; safecall;
  8323.     procedure Set_DrawStyle(pRet: Smallint); safecall;
  8324.     function  Get_DrawWidth: Smallint; safecall;
  8325.     procedure Set_DrawWidth(pRet: Smallint); safecall;
  8326.     function  Get_FillColor: Integer; safecall;
  8327.     procedure Set_FillColor(pRet: Integer); safecall;
  8328.     function  Get_FillStyle: Smallint; safecall;
  8329.     procedure Set_FillStyle(pRet: Smallint); safecall;
  8330.     function  Get_Name: WideString; safecall;
  8331.     procedure Set_Name(const pRet: WideString); safecall;
  8332.     function  Get_PaletteSource: WideString; safecall;
  8333.     procedure Set_PaletteSource(const pRet: WideString); safecall;
  8334.     function  Get_Tag: WideString; safecall;
  8335.     procedure Set_Tag(const pRet: WideString); safecall;
  8336.     function  Get_PaintPalette: OleVariant; safecall;
  8337.     procedure Set_PaintPalette(pRet: OleVariant); safecall;
  8338.     function  Get_OnMenu: WideString; safecall;
  8339.     procedure Set_OnMenu(const pRet: WideString); safecall;
  8340.     function  Get_OnOpen: WideString; safecall;
  8341.     procedure Set_OnOpen(const pRet: WideString); safecall;
  8342.     function  Get_OnClose: WideString; safecall;
  8343.     procedure Set_OnClose(const pRet: WideString); safecall;
  8344.     function  Get_OnActivate: WideString; safecall;
  8345.     procedure Set_OnActivate(const pRet: WideString); safecall;
  8346.     function  Get_OnDeactivate: WideString; safecall;
  8347.     procedure Set_OnDeactivate(const pRet: WideString); safecall;
  8348.     function  Get_OnNoData: WideString; safecall;
  8349.     procedure Set_OnNoData(const pRet: WideString); safecall;
  8350.     function  Get_OnPage: WideString; safecall;
  8351.     procedure Set_OnPage(const pRet: WideString); safecall;
  8352.     function  Get_OnError: WideString; safecall;
  8353.     procedure Set_OnError(const pRet: WideString); safecall;
  8354.     function  Get_Dirty: WordBool; safecall;
  8355.     procedure Set_Dirty(pRet: WordBool); safecall;
  8356.     function  Get_CurrentRecord: Integer; safecall;
  8357.     procedure Set_CurrentRecord(pRet: Integer); safecall;
  8358.     function  Get_PictureData: OleVariant; safecall;
  8359.     procedure Set_PictureData(pRet: OleVariant); safecall;
  8360.     function  Get_PicturePalette: OleVariant; safecall;
  8361.     procedure Set_PicturePalette(pRet: OleVariant); safecall;
  8362.     function  Get_HasModule: WordBool; safecall;
  8363.     procedure Set_HasModule(pRet: WordBool); safecall;
  8364.     function  Get_acHiddenCurrentPage: Integer; safecall;
  8365.     procedure Set_acHiddenCurrentPage(pRet: Integer); safecall;
  8366.     function  Get_Application: Application; safecall;
  8367.     function  Get_Parent: IDispatch; safecall;
  8368.     function  Get_ActiveControl: AccessControl; safecall;
  8369.     function  Get_DefaultControl(ControlType: Integer): AccessControl; safecall;
  8370.     procedure Circle(flags: Smallint; X: Single; Y: Single; radius: Single; color: Integer; 
  8371.                      start: Single; end_: Single; aspect: Single); safecall;
  8372.     procedure Line(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single; color: Integer); safecall;
  8373.     procedure PSet(flags: Smallint; X: Single; Y: Single; color: Integer); safecall;
  8374.     procedure Scale(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single); safecall;
  8375.     function  TextWidth(const Expr: WideString): Single; safecall;
  8376.     function  TextHeight(const Expr: WideString): Single; safecall;
  8377.     procedure Print(const Expr: WideString); safecall;
  8378.     function  Get_Section(Index: OleVariant): AccessSection; safecall;
  8379.     function  Get_GroupLevel(Index: Integer): AccessGroupLevel; safecall;
  8380.     function  Get_Report: AccessReport; safecall;
  8381.     function  Get_Module: Module; safecall;
  8382.     function  Get_Properties: Properties; safecall;
  8383.     function  Get_Controls: Controls; safecall;
  8384.     function  _NewEnum: IUnknown; safecall;
  8385.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant; safecall;
  8386.     property FormName: WideString read Get_FormName write Set_FormName;
  8387.     property RecordSource: WideString read Get_RecordSource write Set_RecordSource;
  8388.     property Filter: WideString read Get_Filter write Set_Filter;
  8389.     property FilterOn: WordBool read Get_FilterOn write Set_FilterOn;
  8390.     property OrderBy: WideString read Get_OrderBy write Set_OrderBy;
  8391.     property OrderByOn: WordBool read Get_OrderByOn write Set_OrderByOn;
  8392.     property Caption: WideString read Get_Caption write Set_Caption;
  8393.     property RecordLocks: Byte read Get_RecordLocks write Set_RecordLocks;
  8394.     property PageHeader: Byte read Get_PageHeader write Set_PageHeader;
  8395.     property PageFooter: Byte read Get_PageFooter write Set_PageFooter;
  8396.     property DateGrouping: Byte read Get_DateGrouping write Set_DateGrouping;
  8397.     property GrpKeepTogether: Byte read Get_GrpKeepTogether write Set_GrpKeepTogether;
  8398.     property MinButton: WordBool read Get_MinButton write Set_MinButton;
  8399.     property MaxButton: WordBool read Get_MaxButton write Set_MaxButton;
  8400.     property Width: Smallint read Get_Width write Set_Width;
  8401.     property Picture: WideString read Get_Picture write Set_Picture;
  8402.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  8403.     property PictureSizeMode: Byte read Get_PictureSizeMode write Set_PictureSizeMode;
  8404.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  8405.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  8406.     property PicturePages: Byte read Get_PicturePages write Set_PicturePages;
  8407.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  8408.     property Toolbar: WideString read Get_Toolbar write Set_Toolbar;
  8409.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  8410.     property GridX: Smallint read Get_GridX write Set_GridX;
  8411.     property GridY: Smallint read Get_GridY write Set_GridY;
  8412.     property LayoutForPrint: WordBool read Get_LayoutForPrint write Set_LayoutForPrint;
  8413.     property FastLaserPrinting: WordBool read Get_FastLaserPrinting write Set_FastLaserPrinting;
  8414.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  8415.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  8416.     property Hwnd: Integer read Get_Hwnd write Set_Hwnd;
  8417.     property Count: Smallint read Get_Count write Set_Count;
  8418.     property Page: Integer read Get_Page write Set_Page;
  8419.     property Pages: Smallint read Get_Pages write Set_Pages;
  8420.     property LogicalPageWidth: Integer read Get_LogicalPageWidth write Set_LogicalPageWidth;
  8421.     property LogicalPageHeight: Integer read Get_LogicalPageHeight write Set_LogicalPageHeight;
  8422.     property ZoomControl: Integer read Get_ZoomControl write Set_ZoomControl;
  8423.     property HasData: Integer read Get_HasData write Set_HasData;
  8424.     property Left: Integer read Get_Left write Set_Left;
  8425.     property Top: Integer read Get_Top write Set_Top;
  8426.     property Height: Integer read Get_Height write Set_Height;
  8427.     property PrintSection: WordBool read Get_PrintSection write Set_PrintSection;
  8428.     property NextRecord: WordBool read Get_NextRecord write Set_NextRecord;
  8429.     property MoveLayout: WordBool read Get_MoveLayout write Set_MoveLayout;
  8430.     property FormatCount: Smallint read Get_FormatCount write Set_FormatCount;
  8431.     property PrintCount: Smallint read Get_PrintCount write Set_PrintCount;
  8432.     property Visible: WordBool read Get_Visible write Set_Visible;
  8433.     property Painting: WordBool read Get_Painting write Set_Painting;
  8434.     property PrtMip: OleVariant read Get_PrtMip write Set_PrtMip;
  8435.     property PrtDevMode: OleVariant read Get_PrtDevMode write Set_PrtDevMode;
  8436.     property PrtDevNames: OleVariant read Get_PrtDevNames write Set_PrtDevNames;
  8437.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  8438.     property CurrentX: Single read Get_CurrentX write Set_CurrentX;
  8439.     property CurrentY: Single read Get_CurrentY write Set_CurrentY;
  8440.     property ScaleHeight: Single read Get_ScaleHeight write Set_ScaleHeight;
  8441.     property ScaleLeft: Single read Get_ScaleLeft write Set_ScaleLeft;
  8442.     property ScaleMode: Smallint read Get_ScaleMode write Set_ScaleMode;
  8443.     property ScaleTop: Single read Get_ScaleTop write Set_ScaleTop;
  8444.     property ScaleWidth: Single read Get_ScaleWidth write Set_ScaleWidth;
  8445.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  8446.     property FontItalic: Smallint read Get_FontItalic write Set_FontItalic;
  8447.     property FontName: WideString read Get_FontName write Set_FontName;
  8448.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  8449.     property FontUnderline: Smallint read Get_FontUnderline write Set_FontUnderline;
  8450.     property DrawMode: Smallint read Get_DrawMode write Set_DrawMode;
  8451.     property DrawStyle: Smallint read Get_DrawStyle write Set_DrawStyle;
  8452.     property DrawWidth: Smallint read Get_DrawWidth write Set_DrawWidth;
  8453.     property FillColor: Integer read Get_FillColor write Set_FillColor;
  8454.     property FillStyle: Smallint read Get_FillStyle write Set_FillStyle;
  8455.     property Name: WideString read Get_Name write Set_Name;
  8456.     property PaletteSource: WideString read Get_PaletteSource write Set_PaletteSource;
  8457.     property Tag: WideString read Get_Tag write Set_Tag;
  8458.     property PaintPalette: OleVariant read Get_PaintPalette write Set_PaintPalette;
  8459.     property OnMenu: WideString read Get_OnMenu write Set_OnMenu;
  8460.     property OnOpen: WideString read Get_OnOpen write Set_OnOpen;
  8461.     property OnClose: WideString read Get_OnClose write Set_OnClose;
  8462.     property OnActivate: WideString read Get_OnActivate write Set_OnActivate;
  8463.     property OnDeactivate: WideString read Get_OnDeactivate write Set_OnDeactivate;
  8464.     property OnNoData: WideString read Get_OnNoData write Set_OnNoData;
  8465.     property OnPage: WideString read Get_OnPage write Set_OnPage;
  8466.     property OnError: WideString read Get_OnError write Set_OnError;
  8467.     property Dirty: WordBool read Get_Dirty write Set_Dirty;
  8468.     property CurrentRecord: Integer read Get_CurrentRecord write Set_CurrentRecord;
  8469.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  8470.     property PicturePalette: OleVariant read Get_PicturePalette write Set_PicturePalette;
  8471.     property HasModule: WordBool read Get_HasModule write Set_HasModule;
  8472.     property acHiddenCurrentPage: Integer read Get_acHiddenCurrentPage write Set_acHiddenCurrentPage;
  8473.     property Application: Application read Get_Application;
  8474.     property Parent: IDispatch read Get_Parent;
  8475.     property ActiveControl: AccessControl read Get_ActiveControl;
  8476.     property DefaultControl[ControlType: Integer]: AccessControl read Get_DefaultControl;
  8477.     property Section[Index: OleVariant]: AccessSection read Get_Section;
  8478.     property GroupLevel[Index: Integer]: AccessGroupLevel read Get_GroupLevel;
  8479.     property Report: AccessReport read Get_Report;
  8480.     property Module: Module read Get_Module;
  8481.     property Properties: Properties read Get_Properties;
  8482.     property Controls: Controls read Get_Controls;
  8483.   end;
  8484.  
  8485. // *********************************************************************//
  8486. // DispIntf:  _ReportDisp
  8487. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  8488. // GUID:      {3E8B6B00-91FF-101B-AF4E-00AA003F0F07}
  8489. // *********************************************************************//
  8490.   _ReportDisp = dispinterface
  8491.     ['{3E8B6B00-91FF-101B-AF4E-00AA003F0F07}']
  8492.     property FormName: WideString dispid 39;
  8493.     property RecordSource: WideString dispid 153;
  8494.     property Filter: WideString dispid 271;
  8495.     property FilterOn: WordBool dispid 374;
  8496.     property OrderBy: WideString dispid 373;
  8497.     property OrderByOn: WordBool dispid 379;
  8498.     property Caption: WideString dispid 17;
  8499.     property RecordLocks: Byte dispid 26;
  8500.     property PageHeader: Byte dispid 43;
  8501.     property PageFooter: Byte dispid 40;
  8502.     property DateGrouping: Byte dispid 314;
  8503.     property GrpKeepTogether: Byte dispid 315;
  8504.     property MinButton: WordBool dispid 92;
  8505.     property MaxButton: WordBool dispid 91;
  8506.     property Width: Smallint dispid 147;
  8507.     property Picture: WideString dispid 7;
  8508.     property PictureType: Byte dispid 384;
  8509.     property PictureSizeMode: Byte dispid 357;
  8510.     property PictureAlignment: Byte dispid 354;
  8511.     property PictureTiling: WordBool dispid 358;
  8512.     property PicturePages: Byte dispid 355;
  8513.     property MenuBar: WideString dispid 261;
  8514.     property Toolbar: WideString dispid 396;
  8515.     property ShortcutMenuBar: WideString dispid 336;
  8516.     property GridX: Smallint dispid 41;
  8517.     property GridY: Smallint dispid 42;
  8518.     property LayoutForPrint: WordBool dispid 140;
  8519.     property FastLaserPrinting: WordBool dispid 141;
  8520.     property HelpFile: WideString dispid 217;
  8521.     property HelpContextId: Integer dispid 218;
  8522.     property Hwnd: Integer dispid 191;
  8523.     property Count: Smallint dispid 194;
  8524.     property Page: Integer dispid 195;
  8525.     property Pages: Smallint dispid 196;
  8526.     property LogicalPageWidth: Integer dispid 197;
  8527.     property LogicalPageHeight: Integer dispid 198;
  8528.     property ZoomControl: Integer dispid 216;
  8529.     property HasData: Integer dispid 201;
  8530.     property Left: Integer dispid 54;
  8531.     property Top: Integer dispid 138;
  8532.     property Height: Integer dispid 44;
  8533.     property PrintSection: WordBool dispid 224;
  8534.     property NextRecord: WordBool dispid 225;
  8535.     property MoveLayout: WordBool dispid 226;
  8536.     property FormatCount: Smallint dispid 227;
  8537.     property PrintCount: Smallint dispid 228;
  8538.     property Visible: WordBool dispid 145;
  8539.     property Painting: WordBool dispid 264;
  8540.     property PrtMip: OleVariant dispid 188;
  8541.     property PrtDevMode: OleVariant dispid 189;
  8542.     property PrtDevNames: OleVariant dispid 190;
  8543.     property ForeColor: Integer dispid 203;
  8544.     property CurrentX: Single dispid 204;
  8545.     property CurrentY: Single dispid 205;
  8546.     property ScaleHeight: Single dispid 206;
  8547.     property ScaleLeft: Single dispid 207;
  8548.     property ScaleMode: Smallint dispid 208;
  8549.     property ScaleTop: Single dispid 209;
  8550.     property ScaleWidth: Single dispid 210;
  8551.     property FontBold: Smallint dispid 32;
  8552.     property FontItalic: Smallint dispid 33;
  8553.     property FontName: WideString dispid 34;
  8554.     property FontSize: Smallint dispid 35;
  8555.     property FontUnderline: Smallint dispid 36;
  8556.     property DrawMode: Smallint dispid 211;
  8557.     property DrawStyle: Smallint dispid 212;
  8558.     property DrawWidth: Smallint dispid 213;
  8559.     property FillColor: Integer dispid 215;
  8560.     property FillStyle: Smallint dispid 214;
  8561.     property Name: WideString dispid 20;
  8562.     property PaletteSource: WideString dispid 95;
  8563.     property Tag: WideString dispid 297;
  8564.     property PaintPalette: OleVariant dispid 97;
  8565.     property OnMenu: WideString dispid 60;
  8566.     property OnOpen: WideString dispid 73;
  8567.     property OnClose: WideString dispid 74;
  8568.     property OnActivate: WideString dispid 109;
  8569.     property OnDeactivate: WideString dispid 110;
  8570.     property OnNoData: WideString dispid 118;
  8571.     property OnPage: WideString dispid 79;
  8572.     property OnError: WideString dispid 116;
  8573.     property Dirty: WordBool dispid 318;
  8574.     property CurrentRecord: Integer dispid 334;
  8575.     property PictureData: OleVariant dispid 187;
  8576.     property PicturePalette: OleVariant dispid 356;
  8577.     property HasModule: WordBool dispid 385;
  8578.     property acHiddenCurrentPage: Integer dispid 406;
  8579.     property Application: Application readonly dispid 2005;
  8580.     property Parent: IDispatch readonly dispid 2087;
  8581.     property ActiveControl: AccessControl readonly dispid 2006;
  8582.     property DefaultControl[ControlType: Integer]: AccessControl readonly dispid 2150;
  8583.     procedure Circle(flags: Smallint; X: Single; Y: Single; radius: Single; color: Integer; 
  8584.                      start: Single; end_: Single; aspect: Single); dispid 2118;
  8585.     procedure Line(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single; color: Integer); dispid 2152;
  8586.     procedure PSet(flags: Smallint; X: Single; Y: Single; color: Integer); dispid 2117;
  8587.     procedure Scale(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single); dispid 2116;
  8588.     function  TextWidth(const Expr: WideString): Single; dispid 2114;
  8589.     function  TextHeight(const Expr: WideString): Single; dispid 2115;
  8590.     procedure Print(const Expr: WideString); dispid 2153;
  8591.     property Section[Index: OleVariant]: AccessSection readonly dispid 2088;
  8592.     property GroupLevel[Index: Integer]: AccessGroupLevel readonly dispid 2098;
  8593.     property Report: AccessReport readonly dispid 2097;
  8594.     property Module: Module readonly dispid 2090;
  8595.     property Properties: Properties readonly dispid 2091;
  8596.     property Controls: Controls readonly dispid 0;
  8597.     function  _NewEnum: IUnknown; dispid -4;
  8598.     function  _Evaluate(const bstrExpr: WideString; var ppsa: {??PSafeArray} OleVariant): OleVariant; dispid -5;
  8599.   end;
  8600.  
  8601. // *********************************************************************//
  8602. // Interface: _ReportEvents
  8603. // Flags:     (16) Hidden
  8604. // GUID:      {BC9E4357-F037-11CD-8701-00AA003F0F07}
  8605. // *********************************************************************//
  8606.   _ReportEvents = interface(IUnknown)
  8607.     ['{BC9E4357-F037-11CD-8701-00AA003F0F07}']
  8608.     function  Open(out Cancel: Smallint): HResult; stdcall;
  8609.     function  Close: HResult; stdcall;
  8610.     function  Activate: HResult; stdcall;
  8611.     function  Deactivate: HResult; stdcall;
  8612.     function  Error(var DataErr: Smallint; out Response: Smallint): HResult; stdcall;
  8613.     function  NoData(out Cancel: Smallint): HResult; stdcall;
  8614.     function  Page: HResult; stdcall;
  8615.   end;
  8616.  
  8617. // *********************************************************************//
  8618. // Interface: Reports
  8619. // Flags:     (4416) Dual OleAutomation Dispatchable
  8620. // GUID:      {D1523700-6128-101B-AF4E-00AA003F0F07}
  8621. // *********************************************************************//
  8622.   Reports = interface(IDispatch)
  8623.     ['{D1523700-6128-101B-AF4E-00AA003F0F07}']
  8624.     function  Get_Application: Application; safecall;
  8625.     function  Get_Parent: IDispatch; safecall;
  8626.     function  Get_Item(Index: OleVariant): AccessReport; safecall;
  8627.     function  Get_Count: Integer; safecall;
  8628.     function  _NewEnum: IUnknown; safecall;
  8629.     property Application: Application read Get_Application;
  8630.     property Parent: IDispatch read Get_Parent;
  8631.     property Item[Index: OleVariant]: AccessReport read Get_Item; default;
  8632.     property Count: Integer read Get_Count;
  8633.   end;
  8634.  
  8635. // *********************************************************************//
  8636. // DispIntf:  ReportsDisp
  8637. // Flags:     (4416) Dual OleAutomation Dispatchable
  8638. // GUID:      {D1523700-6128-101B-AF4E-00AA003F0F07}
  8639. // *********************************************************************//
  8640.   ReportsDisp = dispinterface
  8641.     ['{D1523700-6128-101B-AF4E-00AA003F0F07}']
  8642.     property Application: Application readonly dispid 2005;
  8643.     property Parent: IDispatch readonly dispid 2087;
  8644.     property Item[Index: OleVariant]: AccessReport readonly dispid 0; default;
  8645.     property Count: Integer readonly dispid 2001;
  8646.     function  _NewEnum: IUnknown; dispid -4;
  8647.   end;
  8648.  
  8649. // *********************************************************************//
  8650. // Interface: Screen
  8651. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8652. // GUID:      {DC6B66C0-6128-101B-AF4E-00AA003F0F07}
  8653. // *********************************************************************//
  8654.   Screen = interface(IDispatch)
  8655.     ['{DC6B66C0-6128-101B-AF4E-00AA003F0F07}']
  8656.     function  Get_Application: Application; safecall;
  8657.     function  Get_Parent: IDispatch; safecall;
  8658.     function  Get_ActiveDatasheet: AccessForm; safecall;
  8659.     function  Get_ActiveControl: AccessControl; safecall;
  8660.     function  Get_PreviousControl: AccessControl; safecall;
  8661.     function  Get_ActiveForm: AccessForm; safecall;
  8662.     function  Get_ActiveReport: AccessReport; safecall;
  8663.     function  Get_MousePointer: Smallint; safecall;
  8664.     procedure Set_MousePointer(pRet: Smallint); safecall;
  8665.     property Application: Application read Get_Application;
  8666.     property Parent: IDispatch read Get_Parent;
  8667.     property ActiveDatasheet: AccessForm read Get_ActiveDatasheet;
  8668.     property ActiveControl: AccessControl read Get_ActiveControl;
  8669.     property PreviousControl: AccessControl read Get_PreviousControl;
  8670.     property ActiveForm: AccessForm read Get_ActiveForm;
  8671.     property ActiveReport: AccessReport read Get_ActiveReport;
  8672.     property MousePointer: Smallint read Get_MousePointer write Set_MousePointer;
  8673.   end;
  8674.  
  8675. // *********************************************************************//
  8676. // DispIntf:  ScreenDisp
  8677. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8678. // GUID:      {DC6B66C0-6128-101B-AF4E-00AA003F0F07}
  8679. // *********************************************************************//
  8680.   ScreenDisp = dispinterface
  8681.     ['{DC6B66C0-6128-101B-AF4E-00AA003F0F07}']
  8682.     property Application: Application readonly dispid 2005;
  8683.     property Parent: IDispatch readonly dispid 2087;
  8684.     property ActiveDatasheet: AccessForm readonly dispid 2146;
  8685.     property ActiveControl: AccessControl readonly dispid 2006;
  8686.     property PreviousControl: AccessControl readonly dispid 2007;
  8687.     property ActiveForm: AccessForm readonly dispid 2008;
  8688.     property ActiveReport: AccessReport readonly dispid 2009;
  8689.     property MousePointer: Smallint dispid 2106;
  8690.   end;
  8691.  
  8692. // *********************************************************************//
  8693. // Interface: _Application
  8694. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  8695. // GUID:      {68CCE6C0-6129-101B-AF4E-00AA003F0F07}
  8696. // *********************************************************************//
  8697.   _Application = interface(IDispatch)
  8698.     ['{68CCE6C0-6129-101B-AF4E-00AA003F0F07}']
  8699.     function  Get_Application: Application; safecall;
  8700.     function  Get_Parent: IDispatch; safecall;
  8701.     function  Get_CodeContextObject: IDispatch; safecall;
  8702.     procedure NewCurrentDatabase(const filepath: WideString); safecall;
  8703.     procedure OpenCurrentDatabase(const filepath: WideString; Exclusive: WordBool); safecall;
  8704.     function  Get_MenuBar: WideString; safecall;
  8705.     procedure Set_MenuBar(const pRet: WideString); safecall;
  8706.     function  Get_CurrentObjectType: Integer; safecall;
  8707.     function  Get_CurrentObjectName: WideString; safecall;
  8708.     function  GetOption(const OptionName: WideString): OleVariant; safecall;
  8709.     procedure SetOption(const OptionName: WideString; Setting: OleVariant); safecall;
  8710.     procedure Echo(EchoOn: Smallint; const bstrStatusBarText: WideString); safecall;
  8711.     procedure CloseCurrentDatabase; safecall;
  8712.     procedure Quit(Option: AcQuitOption); safecall;
  8713.     function  Get_Forms: Forms; safecall;
  8714.     function  Get_Reports: Reports; safecall;
  8715.     function  Get_Screen: Screen; safecall;
  8716.     function  Get_DoCmd: IDoCmd; safecall;
  8717.     function  Get_ShortcutMenuBar: WideString; safecall;
  8718.     procedure Set_ShortcutMenuBar(const pRet: WideString); safecall;
  8719.     function  Get_Visible: WordBool; safecall;
  8720.     procedure Set_Visible(pfVisible: WordBool); safecall;
  8721.     function  Get_UserControl: WordBool; safecall;
  8722.     procedure Set_UserControl(pfUserCtrl: WordBool); safecall;
  8723.     function  SysCmd(Action: AcSysCmdAction; Argument2: OleVariant; Argument3: OleVariant): OleVariant; safecall;
  8724.     function  CreateForm(Database: OleVariant; FormTemplate: OleVariant): AccessForm; safecall;
  8725.     function  CreateReport(Database: OleVariant; ReportTemplate: OleVariant): AccessReport; safecall;
  8726.     function  CreateControl(const FormName: WideString; ControlType: AcControlType; 
  8727.                             Section: AcSection; Parent: OleVariant; ColumnName: OleVariant; 
  8728.                             Left: OleVariant; Top: OleVariant; Width: OleVariant; Height: OleVariant): AccessControl; safecall;
  8729.     function  CreateReportControl(const ReportName: WideString; ControlType: AcControlType; 
  8730.                                   Section: AcSection; Parent: OleVariant; ColumnName: OleVariant; 
  8731.                                   Left: OleVariant; Top: OleVariant; Width: OleVariant; 
  8732.                                   Height: OleVariant): AccessControl; safecall;
  8733.     function  CreateControlEx(const FormName: WideString; ControlType: AcControlType; 
  8734.                               Section: AcSection; const Parent: WideString; 
  8735.                               const ControlSource: WideString; Left: Integer; Top: Integer; 
  8736.                               Width: Integer; Height: Integer): AccessControl; safecall;
  8737.     function  CreateReportControlEx(const ReportName: WideString; ControlType: AcControlType; 
  8738.                                     Section: AcSection; const Parent: WideString; 
  8739.                                     const ControlName: WideString; Left: Integer; Top: Integer; 
  8740.                                     Width: Integer; Height: Integer): AccessControl; safecall;
  8741.     procedure DeleteControl(const FormName: WideString; const ControlName: WideString); safecall;
  8742.     procedure DeleteReportControl(const ReportName: WideString; const ControlName: WideString); safecall;
  8743.     function  CreateGroupLevel(const ReportName: WideString; const Expression: WideString; 
  8744.                                Header: Smallint; Footer: Smallint): Integer; safecall;
  8745.     function  DMin(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8746.     function  DMax(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8747.     function  DSum(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8748.     function  DAvg(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8749.     function  DLookup(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8750.     function  DLast(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8751.     function  DVar(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8752.     function  DVarP(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8753.     function  DStDev(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8754.     function  DStDevP(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8755.     function  DFirst(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8756.     function  DCount(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; safecall;
  8757.     function  Eval(const StringExpr: WideString): OleVariant; safecall;
  8758.     function  CurrentUser: WideString; safecall;
  8759.     function  DDEInitiate(const Application: WideString; const Topic: WideString): OleVariant; safecall;
  8760.     procedure DDEExecute(ChanNum: OleVariant; const Command: WideString); safecall;
  8761.     procedure DDEPoke(ChanNum: OleVariant; const Item: WideString; const Data: WideString); safecall;
  8762.     function  DDERequest(ChanNum: OleVariant; const Item: WideString): WideString; safecall;
  8763.     procedure DDETerminate(ChanNum: OleVariant); safecall;
  8764.     procedure DDETerminateAll; safecall;
  8765.     function  Get_DBEngine: DBEngine; safecall;
  8766.     function  CurrentDb: Database; safecall;
  8767.     function  CodeDb: Database; safecall;
  8768.     procedure BeginUndoable(Hwnd: Integer); safecall;
  8769.     procedure SetUndoRecording(yesno: Smallint); safecall;
  8770.     function  BuildCriteria(const Field: WideString; FieldType: Smallint; 
  8771.                             const Expression: WideString): WideString; safecall;
  8772.     procedure InsertText(const Text: WideString; const ModuleName: WideString); safecall;
  8773.     procedure ReloadAddIns; safecall;
  8774.     function  DefaultWorkspaceClone: Workspace; safecall;
  8775.     procedure RefreshTitleBar; safecall;
  8776.     procedure AddAutoCorrect(const ChangeFrom: WideString; const ChangeTo: WideString); safecall;
  8777.     procedure DelAutoCorrect(const ChangeFrom: WideString); safecall;
  8778.     function  hWndAccessApp: SYSINT; safecall;
  8779.     function  Run(const Procedure_: WideString; var Arg1: OleVariant; var Arg2: OleVariant; 
  8780.                   var Arg3: OleVariant; var Arg4: OleVariant; var Arg5: OleVariant; 
  8781.                   var Arg6: OleVariant; var Arg7: OleVariant; var Arg8: OleVariant; 
  8782.                   var Arg9: OleVariant; var Arg10: OleVariant; var Arg11: OleVariant; 
  8783.                   var Arg12: OleVariant; var Arg13: OleVariant; var Arg14: OleVariant; 
  8784.                   var Arg15: OleVariant; var Arg16: OleVariant; var Arg17: OleVariant; 
  8785.                   var Arg18: OleVariant; var Arg19: OleVariant; var Arg20: OleVariant; 
  8786.                   var Arg21: OleVariant; var Arg22: OleVariant; var Arg23: OleVariant; 
  8787.                   var Arg24: OleVariant; var Arg25: OleVariant; var Arg26: OleVariant; 
  8788.                   var Arg27: OleVariant; var Arg28: OleVariant; var Arg29: OleVariant; 
  8789.                   var Arg30: OleVariant): OleVariant; safecall;
  8790.     function  Nz(Value: OleVariant; ValueIfNull: OleVariant): OleVariant; safecall;
  8791.     function  LoadPicture(const FileName: WideString): IDispatch; safecall;
  8792.     procedure ReplaceModule(objtyp: Integer; const ModuleName: WideString; 
  8793.                             const FileName: WideString; token: Integer); safecall;
  8794.     function  AccessError(ErrorNumber: OleVariant): OleVariant; safecall;
  8795.     function  BuilderString: OleVariant; safecall;
  8796.     function  StringFromGUID(Guid: OleVariant): OleVariant; safecall;
  8797.     function  GUIDFromString(String_: OleVariant): OleVariant; safecall;
  8798.     function  AppLoadString(id: Integer): OleVariant; safecall;
  8799.     function  Get_CommandBars: CommandBars; safecall;
  8800.     function  Get_Assistant: Assistant; safecall;
  8801.     procedure FollowHyperlink(const Address: WideString; const SubAddress: WideString; 
  8802.                               NewWindow: WordBool; AddHistory: WordBool; ExtraInfo: OleVariant; 
  8803.                               Method: MsoExtraInfoMethod; const HeaderInfo: WideString); safecall;
  8804.     procedure SaveAsText(ObjectType: Integer; const ObjectName: WideString; 
  8805.                          const FileName: WideString); safecall;
  8806.     procedure LoadFromText(ObjectType: Integer; const ObjectName: WideString; 
  8807.                            const FileName: WideString); safecall;
  8808.     procedure AddToFavorites; safecall;
  8809.     procedure RefreshDatabaseWindow; safecall;
  8810.     function  Get_References: AccessReferences; safecall;
  8811.     function  Get_Modules: Modules; safecall;
  8812.     function  Get_FileSearch: FileSearch; safecall;
  8813.     function  Get_IsCompiled: WordBool; safecall;
  8814.     procedure RunCommand(Command: AcCommand); safecall;
  8815.     function  HyperlinkPart(Hyperlink: OleVariant; Part: AcHyperlinkPart): WideString; safecall;
  8816.     property Application: Application read Get_Application;
  8817.     property Parent: IDispatch read Get_Parent;
  8818.     property CodeContextObject: IDispatch read Get_CodeContextObject;
  8819.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  8820.     property CurrentObjectType: Integer read Get_CurrentObjectType;
  8821.     property CurrentObjectName: WideString read Get_CurrentObjectName;
  8822.     property Forms: Forms read Get_Forms;
  8823.     property Reports: Reports read Get_Reports;
  8824.     property Screen: Screen read Get_Screen;
  8825.     property DoCmd: IDoCmd read Get_DoCmd;
  8826.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  8827.     property Visible: WordBool read Get_Visible write Set_Visible;
  8828.     property UserControl: WordBool read Get_UserControl write Set_UserControl;
  8829.     property DBEngine: DBEngine read Get_DBEngine;
  8830.     property CommandBars: CommandBars read Get_CommandBars;
  8831.     property Assistant: Assistant read Get_Assistant;
  8832.     property References: AccessReferences read Get_References;
  8833.     property Modules: Modules read Get_Modules;
  8834.     property FileSearch: FileSearch read Get_FileSearch;
  8835.     property IsCompiled: WordBool read Get_IsCompiled;
  8836.   end;
  8837.  
  8838. // *********************************************************************//
  8839. // DispIntf:  _ApplicationDisp
  8840. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  8841. // GUID:      {68CCE6C0-6129-101B-AF4E-00AA003F0F07}
  8842. // *********************************************************************//
  8843.   _ApplicationDisp = dispinterface
  8844.     ['{68CCE6C0-6129-101B-AF4E-00AA003F0F07}']
  8845.     property Application: Application readonly dispid 2005;
  8846.     property Parent: IDispatch readonly dispid 2087;
  8847.     property CodeContextObject: IDispatch readonly dispid 2082;
  8848.     procedure NewCurrentDatabase(const filepath: WideString); dispid 2142;
  8849.     procedure OpenCurrentDatabase(const filepath: WideString; Exclusive: WordBool); dispid 2140;
  8850.     property MenuBar: WideString dispid 2010;
  8851.     property CurrentObjectType: Integer readonly dispid 2011;
  8852.     property CurrentObjectName: WideString readonly dispid 2012;
  8853.     function  GetOption(const OptionName: WideString): OleVariant; dispid 2013;
  8854.     procedure SetOption(const OptionName: WideString; Setting: OleVariant); dispid 2014;
  8855.     procedure Echo(EchoOn: Smallint; const bstrStatusBarText: WideString); dispid 2015;
  8856.     procedure CloseCurrentDatabase; dispid 2141;
  8857.     procedure Quit(Option: AcQuitOption); dispid 2016;
  8858.     property Forms: Forms readonly dispid 2002;
  8859.     property Reports: Reports readonly dispid 2003;
  8860.     property Screen: Screen readonly dispid 2004;
  8861.     property DoCmd: IDoCmd readonly dispid 2025;
  8862.     property ShortcutMenuBar: WideString dispid 2107;
  8863.     property Visible: WordBool dispid 2148;
  8864.     property UserControl: WordBool dispid 2149;
  8865.     function  SysCmd(Action: AcSysCmdAction; Argument2: OleVariant; Argument3: OleVariant): OleVariant; dispid 2028;
  8866.     function  CreateForm(Database: OleVariant; FormTemplate: OleVariant): AccessForm; dispid 2029;
  8867.     function  CreateReport(Database: OleVariant; ReportTemplate: OleVariant): AccessReport; dispid 2030;
  8868.     function  CreateControl(const FormName: WideString; ControlType: AcControlType; 
  8869.                             Section: AcSection; Parent: OleVariant; ColumnName: OleVariant; 
  8870.                             Left: OleVariant; Top: OleVariant; Width: OleVariant; Height: OleVariant): AccessControl; dispid 2031;
  8871.     function  CreateReportControl(const ReportName: WideString; ControlType: AcControlType; 
  8872.                                   Section: AcSection; Parent: OleVariant; ColumnName: OleVariant; 
  8873.                                   Left: OleVariant; Top: OleVariant; Width: OleVariant; 
  8874.                                   Height: OleVariant): AccessControl; dispid 2032;
  8875.     function  CreateControlEx(const FormName: WideString; ControlType: AcControlType; 
  8876.                               Section: AcSection; const Parent: WideString; 
  8877.                               const ControlSource: WideString; Left: Integer; Top: Integer; 
  8878.                               Width: Integer; Height: Integer): AccessControl; dispid 2164;
  8879.     function  CreateReportControlEx(const ReportName: WideString; ControlType: AcControlType; 
  8880.                                     Section: AcSection; const Parent: WideString; 
  8881.                                     const ControlName: WideString; Left: Integer; Top: Integer; 
  8882.                                     Width: Integer; Height: Integer): AccessControl; dispid 2165;
  8883.     procedure DeleteControl(const FormName: WideString; const ControlName: WideString); dispid 2033;
  8884.     procedure DeleteReportControl(const ReportName: WideString; const ControlName: WideString); dispid 2034;
  8885.     function  CreateGroupLevel(const ReportName: WideString; const Expression: WideString; 
  8886.                                Header: Smallint; Footer: Smallint): Integer; dispid 2051;
  8887.     function  DMin(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2035;
  8888.     function  DMax(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2036;
  8889.     function  DSum(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2037;
  8890.     function  DAvg(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2038;
  8891.     function  DLookup(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2039;
  8892.     function  DLast(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2040;
  8893.     function  DVar(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2041;
  8894.     function  DVarP(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2042;
  8895.     function  DStDev(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2043;
  8896.     function  DStDevP(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2044;
  8897.     function  DFirst(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2045;
  8898.     function  DCount(const Expr: WideString; const Domain: WideString; Criteria: OleVariant): OleVariant; dispid 2046;
  8899.     function  Eval(const StringExpr: WideString): OleVariant; dispid 2047;
  8900.     function  CurrentUser: WideString; dispid 2048;
  8901.     function  DDEInitiate(const Application: WideString; const Topic: WideString): OleVariant; dispid 2052;
  8902.     procedure DDEExecute(ChanNum: OleVariant; const Command: WideString); dispid 2053;
  8903.     procedure DDEPoke(ChanNum: OleVariant; const Item: WideString; const Data: WideString); dispid 2054;
  8904.     function  DDERequest(ChanNum: OleVariant; const Item: WideString): WideString; dispid 2055;
  8905.     procedure DDETerminate(ChanNum: OleVariant); dispid 2056;
  8906.     procedure DDETerminateAll; dispid 2057;
  8907.     property DBEngine: DBEngine readonly dispid 2110;
  8908.     function  CurrentDb: Database; dispid 2049;
  8909.     function  CodeDb: Database; dispid 2050;
  8910.     procedure BeginUndoable(Hwnd: Integer); dispid 2099;
  8911.     procedure SetUndoRecording(yesno: Smallint); dispid 2100;
  8912.     function  BuildCriteria(const Field: WideString; FieldType: Smallint; 
  8913.                             const Expression: WideString): WideString; dispid 2138;
  8914.     procedure InsertText(const Text: WideString; const ModuleName: WideString); dispid 2093;
  8915.     procedure ReloadAddIns; dispid 2154;
  8916.     function  DefaultWorkspaceClone: Workspace; dispid 2157;
  8917.     procedure RefreshTitleBar; dispid 2158;
  8918.     procedure AddAutoCorrect(const ChangeFrom: WideString; const ChangeTo: WideString); dispid 2159;
  8919.     procedure DelAutoCorrect(const ChangeFrom: WideString); dispid 2160;
  8920.     function  hWndAccessApp: SYSINT; dispid 2163;
  8921.     function  Run(const Procedure_: WideString; var Arg1: OleVariant; var Arg2: OleVariant; 
  8922.                   var Arg3: OleVariant; var Arg4: OleVariant; var Arg5: OleVariant; 
  8923.                   var Arg6: OleVariant; var Arg7: OleVariant; var Arg8: OleVariant; 
  8924.                   var Arg9: OleVariant; var Arg10: OleVariant; var Arg11: OleVariant; 
  8925.                   var Arg12: OleVariant; var Arg13: OleVariant; var Arg14: OleVariant; 
  8926.                   var Arg15: OleVariant; var Arg16: OleVariant; var Arg17: OleVariant; 
  8927.                   var Arg18: OleVariant; var Arg19: OleVariant; var Arg20: OleVariant; 
  8928.                   var Arg21: OleVariant; var Arg22: OleVariant; var Arg23: OleVariant; 
  8929.                   var Arg24: OleVariant; var Arg25: OleVariant; var Arg26: OleVariant; 
  8930.                   var Arg27: OleVariant; var Arg28: OleVariant; var Arg29: OleVariant; 
  8931.                   var Arg30: OleVariant): OleVariant; dispid 2134;
  8932.     function  Nz(Value: OleVariant; ValueIfNull: OleVariant): OleVariant; dispid 2135;
  8933.     function  LoadPicture(const FileName: WideString): IDispatch; dispid 2166;
  8934.     procedure ReplaceModule(objtyp: Integer; const ModuleName: WideString; 
  8935.                             const FileName: WideString; token: Integer); dispid 2168;
  8936.     function  AccessError(ErrorNumber: OleVariant): OleVariant; dispid 2169;
  8937.     function  BuilderString: OleVariant; dispid 2170;
  8938.     function  StringFromGUID(Guid: OleVariant): OleVariant; dispid 2171;
  8939.     function  GUIDFromString(String_: OleVariant): OleVariant; dispid 2172;
  8940.     function  AppLoadString(id: Integer): OleVariant; dispid 2173;
  8941.     property CommandBars: CommandBars readonly dispid 2174;
  8942.     property Assistant: Assistant readonly dispid 2175;
  8943.     procedure FollowHyperlink(const Address: WideString; const SubAddress: WideString; 
  8944.                               NewWindow: WordBool; AddHistory: WordBool; ExtraInfo: OleVariant; 
  8945.                               Method: MsoExtraInfoMethod; const HeaderInfo: WideString); dispid 2176;
  8946.     procedure SaveAsText(ObjectType: Integer; const ObjectName: WideString; 
  8947.                          const FileName: WideString); dispid 2178;
  8948.     procedure LoadFromText(ObjectType: Integer; const ObjectName: WideString; 
  8949.                            const FileName: WideString); dispid 2179;
  8950.     procedure AddToFavorites; dispid 2184;
  8951.     procedure RefreshDatabaseWindow; dispid 2186;
  8952.     property References: AccessReferences readonly dispid 2187;
  8953.     property Modules: Modules readonly dispid 2188;
  8954.     property FileSearch: FileSearch readonly dispid 2189;
  8955.     property IsCompiled: WordBool readonly dispid 2193;
  8956.     procedure RunCommand(Command: AcCommand); dispid 2194;
  8957.     function  HyperlinkPart(Hyperlink: OleVariant; Part: AcHyperlinkPart): WideString; dispid 2195;
  8958.   end;
  8959.  
  8960. // *********************************************************************//
  8961. // Interface: Reference
  8962. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8963. // GUID:      {EB106212-9C89-11CF-A2B3-00A0C90542FF}
  8964. // *********************************************************************//
  8965.   Reference = interface(IDispatch)
  8966.     ['{EB106212-9C89-11CF-A2B3-00A0C90542FF}']
  8967.     function  Get_Collection: AccessReferences; safecall;
  8968.     function  Get_Name: WideString; safecall;
  8969.     function  Get_Guid: WideString; safecall;
  8970.     function  Get_Major: Integer; safecall;
  8971.     function  Get_Minor: Integer; safecall;
  8972.     function  Get_FullPath: WideString; safecall;
  8973.     function  Get_BuiltIn: WordBool; safecall;
  8974.     function  Get_IsBroken: WordBool; safecall;
  8975.     function  Get_Kind: RefKind; safecall;
  8976.     property Collection: AccessReferences read Get_Collection;
  8977.     property Name: WideString read Get_Name;
  8978.     property Guid: WideString read Get_Guid;
  8979.     property Major: Integer read Get_Major;
  8980.     property Minor: Integer read Get_Minor;
  8981.     property FullPath: WideString read Get_FullPath;
  8982.     property BuiltIn: WordBool read Get_BuiltIn;
  8983.     property IsBroken: WordBool read Get_IsBroken;
  8984.     property Kind: RefKind read Get_Kind;
  8985.   end;
  8986.  
  8987. // *********************************************************************//
  8988. // DispIntf:  ReferenceDisp
  8989. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8990. // GUID:      {EB106212-9C89-11CF-A2B3-00A0C90542FF}
  8991. // *********************************************************************//
  8992.   ReferenceDisp = dispinterface
  8993.     ['{EB106212-9C89-11CF-A2B3-00A0C90542FF}']
  8994.     property Collection: AccessReferences readonly dispid 1610743808;
  8995.     property Name: WideString readonly dispid 1610743809;
  8996.     property Guid: WideString readonly dispid 1610743810;
  8997.     property Major: Integer readonly dispid 1610743811;
  8998.     property Minor: Integer readonly dispid 1610743812;
  8999.     property FullPath: WideString readonly dispid 1610743813;
  9000.     property BuiltIn: WordBool readonly dispid 1610743814;
  9001.     property IsBroken: WordBool readonly dispid 1610743815;
  9002.     property Kind: RefKind readonly dispid 1610743816;
  9003.   end;
  9004.  
  9005. // *********************************************************************//
  9006. // Interface: _References
  9007. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9008. // GUID:      {EB106213-9C89-11CF-A2B3-00A0C90542FF}
  9009. // *********************************************************************//
  9010.   _References = interface(IDispatch)
  9011.     ['{EB106213-9C89-11CF-A2B3-00A0C90542FF}']
  9012.     function  Get_Parent: IDispatch; safecall;
  9013.     function  Item(var_: OleVariant): Reference; safecall;
  9014.     function  Get_Count: Integer; safecall;
  9015.     function  _NewEnum: IUnknown; safecall;
  9016.     function  AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference; safecall;
  9017.     function  AddFromFile(const FileName: WideString): Reference; safecall;
  9018.     procedure Remove(const Reference: Reference); safecall;
  9019.     property Parent: IDispatch read Get_Parent;
  9020.     property Count: Integer read Get_Count;
  9021.   end;
  9022.  
  9023. // *********************************************************************//
  9024. // DispIntf:  _ReferencesDisp
  9025. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9026. // GUID:      {EB106213-9C89-11CF-A2B3-00A0C90542FF}
  9027. // *********************************************************************//
  9028.   _ReferencesDisp = dispinterface
  9029.     ['{EB106213-9C89-11CF-A2B3-00A0C90542FF}']
  9030.     property Parent: IDispatch readonly dispid 1610743808;
  9031.     function  Item(var_: OleVariant): Reference; dispid 0;
  9032.     property Count: Integer readonly dispid 1610743810;
  9033.     function  _NewEnum: IUnknown; dispid -4;
  9034.     function  AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference; dispid 1610743812;
  9035.     function  AddFromFile(const FileName: WideString): Reference; dispid 1610743813;
  9036.     procedure Remove(const Reference: Reference); dispid 1610743814;
  9037.   end;
  9038.  
  9039. // *********************************************************************//
  9040. // DispIntf:  _References_Events
  9041. // Flags:     (4240) Hidden NonExtensible Dispatchable
  9042. // GUID:      {F163F201-ADA2-11CF-89A9-00A0C9054129}
  9043. // *********************************************************************//
  9044.   _References_Events = dispinterface
  9045.     ['{F163F201-ADA2-11CF-89A9-00A0C9054129}']
  9046.     procedure ItemAdded(const Reference: Reference); dispid 0;
  9047.     procedure ItemRemoved(const Reference: Reference); dispid 1;
  9048.   end;
  9049.  
  9050. // *********************************************************************//
  9051. // Interface: _Dummy
  9052. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9053. // GUID:      {8B06E320-B23C-11CF-89A8-00A0C9054129}
  9054. // *********************************************************************//
  9055.   _Dummy = interface(IDispatch)
  9056.     ['{8B06E320-B23C-11CF-89A8-00A0C9054129}']
  9057.   end;
  9058.  
  9059. // *********************************************************************//
  9060. // DispIntf:  _DummyDisp
  9061. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9062. // GUID:      {8B06E320-B23C-11CF-89A8-00A0C9054129}
  9063. // *********************************************************************//
  9064.   _DummyDisp = dispinterface
  9065.     ['{8B06E320-B23C-11CF-89A8-00A0C9054129}']
  9066.   end;
  9067.  
  9068. // *********************************************************************//
  9069. // Interface: _DummyEvents
  9070. // Flags:     (16) Hidden
  9071. // GUID:      {58BF3100-B580-11CF-89A8-00A0C9054129}
  9072. // *********************************************************************//
  9073.   _DummyEvents = interface(IUnknown)
  9074.     ['{58BF3100-B580-11CF-89A8-00A0C9054129}']
  9075.     function  Initialize: HResult; stdcall;
  9076.     function  Terminate: HResult; stdcall;
  9077.   end;
  9078.  
  9079. // *********************************************************************//
  9080. // Interface: ___IVbaModule
  9081. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9082. // GUID:      {0002E16E-0000-0000-C000-000000000046}
  9083. // *********************************************************************//
  9084.   ___IVbaModule = interface(IDispatch)
  9085.     ['{0002E16E-0000-0000-C000-000000000046}']
  9086.     function  Get_Parent: IUnknown; safecall;
  9087.     function  Get_VBA: IUnknown; safecall;
  9088.     function  Get_Name: WideString; safecall;
  9089.     procedure Set_Name(const pbstrName: WideString); safecall;
  9090.     procedure AddFromString(const String_: WideString); safecall;
  9091.     procedure AddFromFile(const FileName: WideString); safecall;
  9092.     function  Get_Lines(Line: Integer; cLine: Integer): WideString; safecall;
  9093.     function  Get_CountOfLines: Integer; safecall;
  9094.     procedure InsertLines(Line: Integer; const String_: WideString); safecall;
  9095.     procedure DeleteLines(StartLine: Integer; Count: Integer); safecall;
  9096.     procedure ReplaceLine(Line: Integer; const String_: WideString); safecall;
  9097.     function  Get_ProcStartLine(const ProcName: WideString; ProcKind: ___ProcKind): Integer; safecall;
  9098.     function  Get_ProcCountLines(const ProcName: WideString; ProcKind: ___ProcKind): Integer; safecall;
  9099.     function  Get_ProcBodyLine(const ProcName: WideString; ProcKind: ___ProcKind): Integer; safecall;
  9100.     function  Get_ProcOfLine(Line: Integer; out pprockind: ___ProcKind): WideString; safecall;
  9101.     function  Get_DeclCountOfLines: Integer; safecall;
  9102.     function  CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; safecall;
  9103.     function  Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  9104.                    var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  9105.                    MatchCase: WordBool; PatternSearch: WordBool): WordBool; safecall;
  9106.     function  Get_GetEditor: ___Editor; safecall;
  9107.     property Parent: IUnknown read Get_Parent;
  9108.     property VBA: IUnknown read Get_VBA;
  9109.     property Name: WideString read Get_Name write Set_Name;
  9110.     property Lines[Line: Integer; cLine: Integer]: WideString read Get_Lines;
  9111.     property CountOfLines: Integer read Get_CountOfLines;
  9112.     property ProcStartLine[const ProcName: WideString; ProcKind: ___ProcKind]: Integer read Get_ProcStartLine;
  9113.     property ProcCountLines[const ProcName: WideString; ProcKind: ___ProcKind]: Integer read Get_ProcCountLines;
  9114.     property ProcBodyLine[const ProcName: WideString; ProcKind: ___ProcKind]: Integer read Get_ProcBodyLine;
  9115.     property ProcOfLine[Line: Integer; out pprockind: ___ProcKind]: WideString read Get_ProcOfLine;
  9116.     property DeclCountOfLines: Integer read Get_DeclCountOfLines;
  9117.     property GetEditor: ___Editor read Get_GetEditor;
  9118.   end;
  9119.  
  9120. // *********************************************************************//
  9121. // DispIntf:  ___IVbaModuleDisp
  9122. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9123. // GUID:      {0002E16E-0000-0000-C000-000000000046}
  9124. // *********************************************************************//
  9125.   ___IVbaModuleDisp = dispinterface
  9126.     ['{0002E16E-0000-0000-C000-000000000046}']
  9127.     property Parent: IUnknown readonly dispid 1610743808;
  9128.     property VBA: IUnknown readonly dispid 1610743809;
  9129.     property Name: WideString dispid 0;
  9130.     procedure AddFromString(const String_: WideString); dispid 1610743812;
  9131.     procedure AddFromFile(const FileName: WideString); dispid 1610743813;
  9132.     property Lines[Line: Integer; cLine: Integer]: WideString readonly dispid 1610743814;
  9133.     property CountOfLines: Integer readonly dispid 1610743815;
  9134.     procedure InsertLines(Line: Integer; const String_: WideString); dispid 1610743816;
  9135.     procedure DeleteLines(StartLine: Integer; Count: Integer); dispid 1610743817;
  9136.     procedure ReplaceLine(Line: Integer; const String_: WideString); dispid 1610743818;
  9137.     property ProcStartLine[const ProcName: WideString; ProcKind: ___ProcKind]: Integer readonly dispid 1610743819;
  9138.     property ProcCountLines[const ProcName: WideString; ProcKind: ___ProcKind]: Integer readonly dispid 1610743820;
  9139.     property ProcBodyLine[const ProcName: WideString; ProcKind: ___ProcKind]: Integer readonly dispid 1610743821;
  9140.     property ProcOfLine[Line: Integer; out pprockind: ___ProcKind]: WideString readonly dispid 1610743822;
  9141.     property DeclCountOfLines: Integer readonly dispid 1610743823;
  9142.     function  CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; dispid 1610743824;
  9143.     function  Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer; 
  9144.                    var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool; 
  9145.                    MatchCase: WordBool; PatternSearch: WordBool): WordBool; dispid 1610743825;
  9146.     property GetEditor: ___Editor readonly dispid 1610743826;
  9147.   end;
  9148.  
  9149. // *********************************************************************//
  9150. // Interface: ___IVbaEditors
  9151. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9152. // GUID:      {0002E172-0000-0000-C000-000000000046}
  9153. // *********************************************************************//
  9154.   ___IVbaEditors = interface(IDispatch)
  9155.     ['{0002E172-0000-0000-C000-000000000046}']
  9156.     function  Get_Parent: IUnknown; safecall;
  9157.     function  Get_VBA: IUnknown; safecall;
  9158.     function  Item(var_: OleVariant): ___Editor; safecall;
  9159.     function  Get_Count: Integer; safecall;
  9160.     function  _NewEnum: IUnknown; safecall;
  9161.     function  Get_Current: ___Editor; safecall;
  9162.     procedure Set_Current(const ___Editor: ___Editor); safecall;
  9163.     property Parent: IUnknown read Get_Parent;
  9164.     property VBA: IUnknown read Get_VBA;
  9165.     property Count: Integer read Get_Count;
  9166.     property Current: ___Editor read Get_Current write Set_Current;
  9167.   end;
  9168.  
  9169. // *********************************************************************//
  9170. // DispIntf:  ___IVbaEditorsDisp
  9171. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9172. // GUID:      {0002E172-0000-0000-C000-000000000046}
  9173. // *********************************************************************//
  9174.   ___IVbaEditorsDisp = dispinterface
  9175.     ['{0002E172-0000-0000-C000-000000000046}']
  9176.     property Parent: IUnknown readonly dispid 1610743808;
  9177.     property VBA: IUnknown readonly dispid 1610743809;
  9178.     function  Item(var_: OleVariant): ___Editor; dispid 0;
  9179.     property Count: Integer readonly dispid 1610743811;
  9180.     function  _NewEnum: IUnknown; dispid -4;
  9181.     property Current: ___Editor dispid 1610743813;
  9182.   end;
  9183.  
  9184. // *********************************************************************//
  9185. // Interface: ___IVbaEditor
  9186. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9187. // GUID:      {0002E176-0000-0000-C000-000000000046}
  9188. // *********************************************************************//
  9189.   ___IVbaEditor = interface(IDispatch)
  9190.     ['{0002E176-0000-0000-C000-000000000046}']
  9191.     function  Get_Parent: IUnknown; safecall;
  9192.     function  Get_VBA: IUnknown; safecall;
  9193.     function  Get_Window: IDispatch; safecall;
  9194.     procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer; 
  9195.                            out EndColumn: Integer); safecall;
  9196.     procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer; 
  9197.                            EndColumn: Integer); safecall;
  9198.     function  Get_TopLine: Integer; safecall;
  9199.     procedure Set_TopLine(TopLine: Integer); safecall;
  9200.     function  Get_CountOfVisibleLines: Integer; safecall;
  9201.     function  Get____CodeModule: ___CodeModule; safecall;
  9202.     procedure Show; safecall;
  9203.     function  Get_CodePaneView: ___vbext_CodePaneview; safecall;
  9204.     property Parent: IUnknown read Get_Parent;
  9205.     property VBA: IUnknown read Get_VBA;
  9206.     property Window: IDispatch read Get_Window;
  9207.     property TopLine: Integer read Get_TopLine write Set_TopLine;
  9208.     property CountOfVisibleLines: Integer read Get_CountOfVisibleLines;
  9209.     property ___CodeModule: ___CodeModule read Get____CodeModule;
  9210.     property CodePaneView: ___vbext_CodePaneview read Get_CodePaneView;
  9211.   end;
  9212.  
  9213. // *********************************************************************//
  9214. // DispIntf:  ___IVbaEditorDisp
  9215. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9216. // GUID:      {0002E176-0000-0000-C000-000000000046}
  9217. // *********************************************************************//
  9218.   ___IVbaEditorDisp = dispinterface
  9219.     ['{0002E176-0000-0000-C000-000000000046}']
  9220.     property Parent: IUnknown readonly dispid 1610743808;
  9221.     property VBA: IUnknown readonly dispid 1610743809;
  9222.     property Window: IDispatch readonly dispid 1610743810;
  9223.     procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer; 
  9224.                            out EndColumn: Integer); dispid 1610743811;
  9225.     procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer; 
  9226.                            EndColumn: Integer); dispid 1610743812;
  9227.     property TopLine: Integer dispid 1610743813;
  9228.     property CountOfVisibleLines: Integer readonly dispid 1610743815;
  9229.     property ___CodeModule: ___CodeModule readonly dispid 1610743816;
  9230.     procedure Show; dispid 1610743817;
  9231.     property CodePaneView: ___vbext_CodePaneview readonly dispid 1610743818;
  9232.   end;
  9233.  
  9234. // *********************************************************************//
  9235. // Interface: IVbaReferences
  9236. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9237. // GUID:      {0002E17A-0000-0000-C000-000000000046}
  9238. // *********************************************************************//
  9239.   IVbaReferences = interface(IDispatch)
  9240.     ['{0002E17A-0000-0000-C000-000000000046}']
  9241.     function  Get_Parent: IUnknown; safecall;
  9242.     function  Get_VBA: IUnknown; safecall;
  9243.     function  Item(var_: OleVariant): ___Reference; safecall;
  9244.     function  Get_Count: Integer; safecall;
  9245.     function  _NewEnum: IUnknown; safecall;
  9246.     function  CreateFromGuid(const bstrGuid: WideString; Major: Integer; Minor: Integer): ___Reference; safecall;
  9247.     function  CreateFromFile(const bstrFileName: WideString): ___Reference; safecall;
  9248.     procedure Remove(const ___Reference: ___Reference); safecall;
  9249.     property Parent: IUnknown read Get_Parent;
  9250.     property VBA: IUnknown read Get_VBA;
  9251.     property Count: Integer read Get_Count;
  9252.   end;
  9253.  
  9254. // *********************************************************************//
  9255. // DispIntf:  IVbaReferencesDisp
  9256. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  9257. // GUID:      {0002E17A-0000-0000-C000-000000000046}
  9258. // *********************************************************************//
  9259.   IVbaReferencesDisp = dispinterface
  9260.     ['{0002E17A-0000-0000-C000-000000000046}']
  9261.     property Parent: IUnknown readonly dispid 1610743808;
  9262.     property VBA: IUnknown readonly dispid 1610743809;
  9263.     function  Item(var_: OleVariant): ___Reference; dispid 0;
  9264.     property Count: Integer readonly dispid 1610743811;
  9265.     function  _NewEnum: IUnknown; dispid -4;
  9266.     function  CreateFromGuid(const bstrGuid: WideString; Major: Integer; Minor: Integer): ___Reference; dispid 1610743813;
  9267.     function  CreateFromFile(const bstrFileName: WideString): ___Reference; dispid 1610743814;
  9268.     procedure Remove(const ___Reference: ___Reference); dispid 1610743815;
  9269.   end;
  9270.  
  9271. // *********************************************************************//
  9272. // Interface: ___Reference
  9273. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9274. // GUID:      {0002E17E-0000-0000-C000-000000000046}
  9275. // *********************************************************************//
  9276.   ___Reference = interface(IDispatch)
  9277.     ['{0002E17E-0000-0000-C000-000000000046}']
  9278.     function  Get_Collection: IVbaReferences; safecall;
  9279.     function  Get_VBA: IDispatch; safecall;
  9280.     function  Get_Name: WideString; safecall;
  9281.     function  Get_Guid: WideString; safecall;
  9282.     function  Get_Major: Integer; safecall;
  9283.     function  Get_Minor: Integer; safecall;
  9284.     function  Get_Location: WideString; safecall;
  9285.     function  Get_IsDefault: WordBool; safecall;
  9286.     function  Get_IsBroken: WordBool; safecall;
  9287.     function  Get_Kind: ___RefKind; safecall;
  9288.     function  Get_Description: WideString; safecall;
  9289.     property Collection: IVbaReferences read Get_Collection;
  9290.     property VBA: IDispatch read Get_VBA;
  9291.     property Name: WideString read Get_Name;
  9292.     property Guid: WideString read Get_Guid;
  9293.     property Major: Integer read Get_Major;
  9294.     property Minor: Integer read Get_Minor;
  9295.     property Location: WideString read Get_Location;
  9296.     property IsDefault: WordBool read Get_IsDefault;
  9297.     property IsBroken: WordBool read Get_IsBroken;
  9298.     property Kind: ___RefKind read Get_Kind;
  9299.     property Description: WideString read Get_Description;
  9300.   end;
  9301.  
  9302. // *********************************************************************//
  9303. // DispIntf:  ___ReferenceDisp
  9304. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9305. // GUID:      {0002E17E-0000-0000-C000-000000000046}
  9306. // *********************************************************************//
  9307.   ___ReferenceDisp = dispinterface
  9308.     ['{0002E17E-0000-0000-C000-000000000046}']
  9309.     property Collection: IVbaReferences readonly dispid 1610743808;
  9310.     property VBA: IDispatch readonly dispid 1610743809;
  9311.     property Name: WideString readonly dispid 1610743810;
  9312.     property Guid: WideString readonly dispid 1610743811;
  9313.     property Major: Integer readonly dispid 1610743812;
  9314.     property Minor: Integer readonly dispid 1610743813;
  9315.     property Location: WideString readonly dispid 1610743814;
  9316.     property IsDefault: WordBool readonly dispid 1610743815;
  9317.     property IsBroken: WordBool readonly dispid 1610743816;
  9318.     property Kind: ___RefKind readonly dispid 1610743817;
  9319.     property Description: WideString readonly dispid 1610743818;
  9320.   end;
  9321.  
  9322. // *********************************************************************//
  9323. // DispIntf:  ___IVbaExtReferencesEvents
  9324. // Flags:     (4224) NonExtensible Dispatchable
  9325. // GUID:      {CDDE3804-2064-11CF-867F-00AA005FF34A}
  9326. // *********************************************************************//
  9327.   ___IVbaExtReferencesEvents = dispinterface
  9328.     ['{CDDE3804-2064-11CF-867F-00AA005FF34A}']
  9329.     procedure ItemAdded(const ___Reference: ___Reference); dispid 0;
  9330.     procedure ItemRemoved(const ___Reference: ___Reference); dispid 1;
  9331.   end;
  9332.  
  9333. // *********************************************************************//
  9334. // The Class CoDoCmd provides a Create and CreateRemote method to          
  9335. // create instances of the default interface IDoCmd exposed by              
  9336. // the CoClass DoCmd. The functions are intended to be used by             
  9337. // clients wishing to automate the CoClass objects exposed by the         
  9338. // server of this typelibrary.                                            
  9339. // *********************************************************************//
  9340.   CoDoCmd = class
  9341.     class function Create: IDoCmd;
  9342.     class function CreateRemote(const MachineName: string): IDoCmd;
  9343.   end;
  9344.  
  9345.  
  9346. // *********************************************************************//
  9347. // OLE Server Proxy class declaration
  9348. // Server Object    : TDoCmd
  9349. // Help String      : 
  9350. // Default Interface: IDoCmd
  9351. // Def. Intf. DISP? : No
  9352. // Event   Interface: 
  9353. // TypeFlags        : (2) CanCreate
  9354. // *********************************************************************//
  9355. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9356.   TDoCmdProperties= class;
  9357. {$ENDIF}
  9358.   TDoCmd = class(TOleServer)
  9359.   private
  9360.     FIntf:        IDoCmd;
  9361. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9362.     FProps:       TDoCmdProperties;
  9363.     function      GetServerProperties: TDoCmdProperties;
  9364. {$ENDIF}
  9365.     function      GetDefaultInterface: IDoCmd;
  9366.   protected
  9367.     procedure InitServerData; override;
  9368.   public
  9369.     constructor Create(AOwner: TComponent); override;
  9370.     destructor  Destroy; override;
  9371.     procedure Connect; override;
  9372.     procedure ConnectTo(svrIntf: IDoCmd);
  9373.     procedure Disconnect; override;
  9374.     procedure AddMenu(MenuName: OleVariant; MenuMacroName: OleVariant; StatusBarText: OleVariant);
  9375.     procedure ApplyFilter; overload;
  9376.     procedure ApplyFilter(FilterName: OleVariant); overload;
  9377.     procedure ApplyFilter(FilterName: OleVariant; WhereCondition: OleVariant); overload;
  9378.     procedure Beep;
  9379.     procedure CancelEvent;
  9380.     procedure Close(ObjectType: AcObjectType; ObjectName: OleVariant; Save: AcCloseSave);
  9381.     procedure CopyObject(DestinationDatabase: OleVariant; NewName: OleVariant; 
  9382.                          SourceObjectType: AcObjectType; SourceObjectName: OleVariant);
  9383.     procedure DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant); overload;
  9384.     procedure DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant; 
  9385.                          Subcommand: OleVariant); overload;
  9386.     procedure DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant; 
  9387.                          Subcommand: OleVariant; Version: OleVariant); overload;
  9388.     procedure Echo(EchoOn: OleVariant); overload;
  9389.     procedure Echo(EchoOn: OleVariant; StatusBarText: OleVariant); overload;
  9390.     procedure FindNext;
  9391.     procedure FindRecord(FindWhat: OleVariant; Match: AcFindMatch; MatchCase: OleVariant; 
  9392.                          Search: AcSearchDirection; SearchAsFormatted: OleVariant; 
  9393.                          OnlyCurrentField: AcFindField; FindFirst: OleVariant);
  9394.     procedure GoToControl(ControlName: OleVariant);
  9395.     procedure GoToPage(PageNumber: OleVariant); overload;
  9396.     procedure GoToPage(PageNumber: OleVariant; Right: OleVariant); overload;
  9397.     procedure GoToPage(PageNumber: OleVariant; Right: OleVariant; Down: OleVariant); overload;
  9398.     procedure GoToRecord(ObjectType: AcDataObjectType; ObjectName: OleVariant; Record_: AcRecord; 
  9399.                          Offset: OleVariant);
  9400.     procedure Hourglass(HourglassOn: OleVariant);
  9401.     procedure Maximize;
  9402.     procedure Minimize;
  9403.     procedure MoveSize; overload;
  9404.     procedure MoveSize(Right: OleVariant); overload;
  9405.     procedure MoveSize(Right: OleVariant; Down: OleVariant); overload;
  9406.     procedure MoveSize(Right: OleVariant; Down: OleVariant; Width: OleVariant); overload;
  9407.     procedure MoveSize(Right: OleVariant; Down: OleVariant; Width: OleVariant; Height: OleVariant); overload;
  9408.     procedure OpenForm(FormName: OleVariant; View: AcFormView; FilterName: OleVariant; 
  9409.                        WhereCondition: OleVariant; DataMode: AcFormOpenDataMode; 
  9410.                        WindowMode: AcWindowMode; OpenArgs: OleVariant);
  9411.     procedure OpenQuery(QueryName: OleVariant; View: AcView; DataMode: AcOpenDataMode);
  9412.     procedure OpenTable(TableName: OleVariant; View: AcView; DataMode: AcOpenDataMode);
  9413.     procedure PrintOut(PrintRange: AcPrintRange; PageFrom: OleVariant; PageTo: OleVariant; 
  9414.                        PrintQuality: AcPrintQuality; Copies: OleVariant; CollateCopies: OleVariant);
  9415.     procedure Quit(Options: AcQuitOption);
  9416.     procedure Requery; overload;
  9417.     procedure Requery(ControlName: OleVariant); overload;
  9418.     procedure RepaintObject(ObjectType: AcObjectType); overload;
  9419.     procedure RepaintObject(ObjectType: AcObjectType; ObjectName: OleVariant); overload;
  9420.     procedure Rename(NewName: OleVariant; ObjectType: AcObjectType); overload;
  9421.     procedure Rename(NewName: OleVariant; ObjectType: AcObjectType; OldName: OleVariant); overload;
  9422.     procedure Restore;
  9423.     procedure RunMacro(MacroName: OleVariant); overload;
  9424.     procedure RunMacro(MacroName: OleVariant; RepeatCount: OleVariant); overload;
  9425.     procedure RunMacro(MacroName: OleVariant; RepeatCount: OleVariant; RepeatExpression: OleVariant); overload;
  9426.     procedure RunSQL(SQLStatement: OleVariant); overload;
  9427.     procedure RunSQL(SQLStatement: OleVariant; UseTransaction: OleVariant); overload;
  9428.     procedure SelectObject(ObjectType: AcObjectType); overload;
  9429.     procedure SelectObject(ObjectType: AcObjectType; ObjectName: OleVariant); overload;
  9430.     procedure SelectObject(ObjectType: AcObjectType; ObjectName: OleVariant; 
  9431.                            InDatabaseWindow: OleVariant); overload;
  9432.     procedure SetWarnings(WarningsOn: OleVariant);
  9433.     procedure ShowAllRecords;
  9434.     procedure OpenReport(ReportName: OleVariant; View: AcView); overload;
  9435.     procedure OpenReport(ReportName: OleVariant; View: AcView; FilterName: OleVariant); overload;
  9436.     procedure OpenReport(ReportName: OleVariant; View: AcView; FilterName: OleVariant; 
  9437.                          WhereCondition: OleVariant); overload;
  9438.     procedure TransferDatabase(TransferType: AcDataTransferType; DatabaseType: OleVariant; 
  9439.                                DatabaseName: OleVariant; ObjectType: AcObjectType; 
  9440.                                Source: OleVariant; Destination: OleVariant; 
  9441.                                StructureOnly: OleVariant; StoreLogin: OleVariant);
  9442.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  9443.                                   SpreadsheetType: AcSpreadSheetType); overload;
  9444.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  9445.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant); overload;
  9446.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  9447.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  9448.                                   FileName: OleVariant); overload;
  9449.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  9450.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  9451.                                   FileName: OleVariant; HasFieldNames: OleVariant); overload;
  9452.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  9453.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  9454.                                   FileName: OleVariant; HasFieldNames: OleVariant; Range: OleVariant); overload;
  9455.     procedure TransferSpreadsheet(TransferType: AcDataTransferType; 
  9456.                                   SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  9457.                                   FileName: OleVariant; HasFieldNames: OleVariant; 
  9458.                                   Range: OleVariant; UseOA: OleVariant); overload;
  9459.     procedure TransferText(TransferType: AcTextTransferType); overload;
  9460.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant); overload;
  9461.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  9462.                            TableName: OleVariant); overload;
  9463.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  9464.                            TableName: OleVariant; FileName: OleVariant); overload;
  9465.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  9466.                            TableName: OleVariant; FileName: OleVariant; HasFieldNames: OleVariant); overload;
  9467.     procedure TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  9468.                            TableName: OleVariant; FileName: OleVariant; HasFieldNames: OleVariant; 
  9469.                            HTMLTableName: OleVariant); overload;
  9470.     procedure OutputTo(ObjectType: AcOutputObjectType); overload;
  9471.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant); overload;
  9472.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  9473.                        OutputFormat: OleVariant); overload;
  9474.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  9475.                        OutputFormat: OleVariant; OutputFile: OleVariant); overload;
  9476.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  9477.                        OutputFormat: OleVariant; OutputFile: OleVariant; AutoStart: OleVariant); overload;
  9478.     procedure OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  9479.                        OutputFormat: OleVariant; OutputFile: OleVariant; AutoStart: OleVariant; 
  9480.                        TemplateFile: OleVariant); overload;
  9481.     procedure DeleteObject(ObjectType: AcObjectType); overload;
  9482.     procedure DeleteObject(ObjectType: AcObjectType; ObjectName: OleVariant); overload;
  9483.     procedure OpenModule; overload;
  9484.     procedure OpenModule(ModuleName: OleVariant); overload;
  9485.     procedure OpenModule(ModuleName: OleVariant; ProcedureName: OleVariant); overload;
  9486.     procedure SendObject(ObjectType: AcSendObjectType); overload;
  9487.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant); overload;
  9488.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9489.                          OutputFormat: OleVariant); overload;
  9490.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9491.                          OutputFormat: OleVariant; To_: OleVariant); overload;
  9492.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9493.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant); overload;
  9494.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9495.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; Bcc: OleVariant); overload;
  9496.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9497.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  9498.                          Bcc: OleVariant; Subject: OleVariant); overload;
  9499.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9500.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  9501.                          Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant); overload;
  9502.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9503.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  9504.                          Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant; 
  9505.                          EditMessage: OleVariant); overload;
  9506.     procedure SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  9507.                          OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  9508.                          Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant; 
  9509.                          EditMessage: OleVariant; TemplateFile: OleVariant); overload;
  9510.     procedure ShowToolbar(ToolbarName: OleVariant); overload;
  9511.     procedure ShowToolbar(ToolbarName: OleVariant; Show: OleVariant); overload;
  9512.     procedure Save(ObjectType: AcObjectType); overload;
  9513.     procedure Save(ObjectType: AcObjectType; ObjectName: OleVariant); overload;
  9514.     procedure SetMenuItem(MenuIndex: OleVariant); overload;
  9515.     procedure SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant); overload;
  9516.     procedure SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant; 
  9517.                           SubcommandIndex: OleVariant); overload;
  9518.     procedure SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant; 
  9519.                           SubcommandIndex: OleVariant; Flag: OleVariant); overload;
  9520.     procedure RunCommand(Command: AcCommand);
  9521.     property  DefaultInterface: IDoCmd read GetDefaultInterface;
  9522.   published
  9523. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9524.     property Server: TDoCmdProperties read GetServerProperties;
  9525. {$ENDIF}
  9526.   end;
  9527.  
  9528. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9529. // *********************************************************************//
  9530. // OLE Server Properties Proxy Class
  9531. // Server Object    : TDoCmd
  9532. // (This object is used by the IDE's Property Inspector to allow editing
  9533. //  of the properties of this server)
  9534. // *********************************************************************//
  9535.  TDoCmdProperties = class(TPersistent)
  9536.   private
  9537.     FServer:    TDoCmd;
  9538.     function    GetDefaultInterface: IDoCmd;
  9539.     constructor Create(AServer: TDoCmd);
  9540.   protected
  9541.   public
  9542.     property DefaultInterface: IDoCmd read GetDefaultInterface;
  9543.   published
  9544.   end;
  9545. {$ENDIF}
  9546.  
  9547.  
  9548. // *********************************************************************//
  9549. // The Class CoAccessHyperlink provides a Create and CreateRemote method to          
  9550. // create instances of the default interface _Hyperlink exposed by              
  9551. // the CoClass AccessHyperlink. The functions are intended to be used by             
  9552. // clients wishing to automate the CoClass objects exposed by the         
  9553. // server of this typelibrary.                                            
  9554. // *********************************************************************//
  9555.   CoAccessHyperlink = class
  9556.     class function Create: _Hyperlink;
  9557.     class function CreateRemote(const MachineName: string): _Hyperlink;
  9558.   end;
  9559.  
  9560.  
  9561. // *********************************************************************//
  9562. // OLE Server Proxy class declaration
  9563. // Server Object    : TAccessHyperlink
  9564. // Help String      : 
  9565. // Default Interface: _Hyperlink
  9566. // Def. Intf. DISP? : No
  9567. // Event   Interface: 
  9568. // TypeFlags        : (2) CanCreate
  9569. // *********************************************************************//
  9570. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9571.   TAccessHyperlinkProperties= class;
  9572. {$ENDIF}
  9573.   TAccessHyperlink = class(TOleServer)
  9574.   private
  9575.     FIntf:        _Hyperlink;
  9576. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9577.     FProps:       TAccessHyperlinkProperties;
  9578.     function      GetServerProperties: TAccessHyperlinkProperties;
  9579. {$ENDIF}
  9580.     function      GetDefaultInterface: _Hyperlink;
  9581.   protected
  9582.     procedure InitServerData; override;
  9583.     function  Get_SubAddress: WideString;
  9584.     procedure Set_SubAddress(pbstrResult: OleVariant);
  9585.     function  Get_Address: WideString;
  9586.     procedure Set_Address(pbstrResult: OleVariant);
  9587.   public
  9588.     constructor Create(AOwner: TComponent); override;
  9589.     destructor  Destroy; override;
  9590.     procedure Connect; override;
  9591.     procedure ConnectTo(svrIntf: _Hyperlink);
  9592.     procedure Disconnect; override;
  9593.     procedure AddToFavorites;
  9594.     procedure Follow(NewWindow: WordBool; AddHistory: WordBool; ExtraInfo: OleVariant; 
  9595.                      Method: MsoExtraInfoMethod; const HeaderInfo: WideString);
  9596.     property  DefaultInterface: _Hyperlink read GetDefaultInterface;
  9597.   published
  9598. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9599.     property Server: TAccessHyperlinkProperties read GetServerProperties;
  9600. {$ENDIF}
  9601.   end;
  9602.  
  9603. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9604. // *********************************************************************//
  9605. // OLE Server Properties Proxy Class
  9606. // Server Object    : TAccessHyperlink
  9607. // (This object is used by the IDE's Property Inspector to allow editing
  9608. //  of the properties of this server)
  9609. // *********************************************************************//
  9610.  TAccessHyperlinkProperties = class(TPersistent)
  9611.   private
  9612.     FServer:    TAccessHyperlink;
  9613.     function    GetDefaultInterface: _Hyperlink;
  9614.     constructor Create(AServer: TAccessHyperlink);
  9615.   protected
  9616.     function  Get_SubAddress: WideString;
  9617.     procedure Set_SubAddress(pbstrResult: OleVariant);
  9618.     function  Get_Address: WideString;
  9619.     procedure Set_Address(pbstrResult: OleVariant);
  9620.   public
  9621.     property DefaultInterface: _Hyperlink read GetDefaultInterface;
  9622.   published
  9623.   end;
  9624. {$ENDIF}
  9625.  
  9626.  
  9627. // *********************************************************************//
  9628. // The Class CoAccessForm provides a Create and CreateRemote method to          
  9629. // create instances of the default interface _Form exposed by              
  9630. // the CoClass AccessForm. The functions are intended to be used by             
  9631. // clients wishing to automate the CoClass objects exposed by the         
  9632. // server of this typelibrary.                                            
  9633. // *********************************************************************//
  9634.   CoAccessForm = class
  9635.     class function Create: _Form;
  9636.     class function CreateRemote(const MachineName: string): _Form;
  9637.   end;
  9638.  
  9639.   TAccessFormBeforeInsert = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  9640.   TAccessFormBeforeUpdate = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  9641.   TAccessFormDelete = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  9642.   TAccessFormBeforeDelConfirm = procedure(Sender: TObject; var Cancel: OleVariant;
  9643.                                                            var Response: OleVariant) of object;
  9644.   TAccessFormAfterDelConfirm = procedure(Sender: TObject; var Status: OleVariant) of object;
  9645.   TAccessFormOpen = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  9646.   TAccessFormUnload = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  9647.   TAccessFormDblClick = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  9648.   TAccessFormMouseDown = procedure(Sender: TObject; var Button: OleVariant;var Shift: OleVariant;
  9649.                                                     var X: OleVariant;var Y: OleVariant) of object;
  9650.   TAccessFormMouseMove = procedure(Sender: TObject; var Button: OleVariant;var Shift: OleVariant;
  9651.                                                     var X: OleVariant;var Y: OleVariant) of object;
  9652.   TAccessFormMouseUp = procedure(Sender: TObject; var Button: OleVariant;var Shift: OleVariant;
  9653.                                                   var X: OleVariant;var Y: OleVariant) of object;
  9654.   TAccessFormKeyDown = procedure(Sender: TObject; var KeyCode: OleVariant;var Shift: OleVariant) of object;
  9655.   TAccessFormKeyPress = procedure(Sender: TObject; var KeyAscii: OleVariant) of object;
  9656.   TAccessFormKeyUp = procedure(Sender: TObject; var KeyCode: OleVariant;var Shift: OleVariant) of object;
  9657.   TAccessFormError = procedure(Sender: TObject; var DataErr: OleVariant;var Response: OleVariant) of object;
  9658.   TAccessFormFilter = procedure(Sender: TObject; var Cancel: OleVariant;var FilterType: OleVariant) of object;
  9659.   TAccessFormApplyFilter = procedure(Sender: TObject; var Cancel: OleVariant;
  9660.                                                       var ApplyType: OleVariant) of object;
  9661.  
  9662.  
  9663. // *********************************************************************//
  9664. // OLE Server Proxy class declaration
  9665. // Server Object    : TAccessForm
  9666. // Help String      : 
  9667. // Default Interface: _Form
  9668. // Def. Intf. DISP? : No
  9669. // Event   Interface: _FormEvents
  9670. // TypeFlags        : (2) CanCreate
  9671. // *********************************************************************//
  9672. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9673.   TAccessFormProperties= class;
  9674. {$ENDIF}
  9675.   TAccessForm = class(TOleServer)
  9676.   private
  9677.     FOnLoad: TNotifyEvent;
  9678.     FOnCurrent: TNotifyEvent;
  9679.     FOnBeforeInsert: TAccessFormBeforeInsert;
  9680.     FOnAfterInsert: TNotifyEvent;
  9681.     FOnBeforeUpdate: TAccessFormBeforeUpdate;
  9682.     FOnAfterUpdate: TNotifyEvent;
  9683.     FOnDelete: TAccessFormDelete;
  9684.     FOnBeforeDelConfirm: TAccessFormBeforeDelConfirm;
  9685.     FOnAfterDelConfirm: TAccessFormAfterDelConfirm;
  9686.     FOnOpen: TAccessFormOpen;
  9687.     FOnResize: TNotifyEvent;
  9688.     FOnUnload: TAccessFormUnload;
  9689.     FOnClose: TNotifyEvent;
  9690.     FOnActivate: TNotifyEvent;
  9691.     FOnDeactivate: TNotifyEvent;
  9692.     FOnGotFocus: TNotifyEvent;
  9693.     FOnLostFocus: TNotifyEvent;
  9694.     FOnClick: TNotifyEvent;
  9695.     FOnDblClick: TAccessFormDblClick;
  9696.     FOnMouseDown: TAccessFormMouseDown;
  9697.     FOnMouseMove: TAccessFormMouseMove;
  9698.     FOnMouseUp: TAccessFormMouseUp;
  9699.     FOnKeyDown: TAccessFormKeyDown;
  9700.     FOnKeyPress: TAccessFormKeyPress;
  9701.     FOnKeyUp: TAccessFormKeyUp;
  9702.     FOnError: TAccessFormError;
  9703.     FOnTimer: TNotifyEvent;
  9704.     FOnFilter: TAccessFormFilter;
  9705.     FOnApplyFilter: TAccessFormApplyFilter;
  9706.     FIntf:        _Form;
  9707. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  9708.     FProps:       TAccessFormProperties;
  9709.     function      GetServerProperties: TAccessFormProperties;
  9710. {$ENDIF}
  9711.     function      GetDefaultInterface: _Form;
  9712.   protected
  9713.     procedure InitServerData; override;
  9714.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  9715.     function  Get_FormName: WideString;
  9716.     procedure Set_FormName(const pRet: WideString);
  9717.     function  Get_RecordSource: WideString;
  9718.     procedure Set_RecordSource(const pRet: WideString);
  9719.     function  Get_Filter: WideString;
  9720.     procedure Set_Filter(const pRet: WideString);
  9721.     function  Get_FilterOn: WordBool;
  9722.     procedure Set_FilterOn(pRet: WordBool);
  9723.     function  Get_OrderBy: WideString;
  9724.     procedure Set_OrderBy(const pRet: WideString);
  9725.     function  Get_OrderByOn: WordBool;
  9726.     procedure Set_OrderByOn(pRet: WordBool);
  9727.     function  Get_AllowFilters: WordBool;
  9728.     procedure Set_AllowFilters(pRet: WordBool);
  9729.     function  Get_Caption: WideString;
  9730.     procedure Set_Caption(const pRet: WideString);
  9731.     function  Get_DefaultView: Byte;
  9732.     procedure Set_DefaultView(pRet: Byte);
  9733.     function  Get_ViewsAllowed: Byte;
  9734.     procedure Set_ViewsAllowed(pRet: Byte);
  9735.     function  Get_AllowEditing: WordBool;
  9736.     procedure Set_AllowEditing(pRet: WordBool);
  9737.     function  Get_DefaultEditing: Smallint;
  9738.     procedure Set_DefaultEditing(pRet: Smallint);
  9739.     function  Get_AllowEdits: WordBool;
  9740.     procedure Set_AllowEdits(pRet: WordBool);
  9741.     function  Get_AllowDeletions: WordBool;
  9742.     procedure Set_AllowDeletions(pRet: WordBool);
  9743.     function  Get_AllowAdditions: WordBool;
  9744.     procedure Set_AllowAdditions(pRet: WordBool);
  9745.     function  Get_DataEntry: WordBool;
  9746.     procedure Set_DataEntry(pRet: WordBool);
  9747.     function  Get_AllowUpdating: Byte;
  9748.     procedure Set_AllowUpdating(pRet: Byte);
  9749.     function  Get_RecordsetType: Byte;
  9750.     procedure Set_RecordsetType(pRet: Byte);
  9751.     function  Get_RecordLocks: Byte;
  9752.     procedure Set_RecordLocks(pRet: Byte);
  9753.     function  Get_ScrollBars: Byte;
  9754.     procedure Set_ScrollBars(pRet: Byte);
  9755.     function  Get_RecordSelectors: WordBool;
  9756.     procedure Set_RecordSelectors(pRet: WordBool);
  9757.     function  Get_NavigationButtons: WordBool;
  9758.     procedure Set_NavigationButtons(pRet: WordBool);
  9759.     function  Get_DividingLines: WordBool;
  9760.     procedure Set_DividingLines(pRet: WordBool);
  9761.     function  Get_AutoResize: WordBool;
  9762.     procedure Set_AutoResize(pRet: WordBool);
  9763.     function  Get_AutoCenter: WordBool;
  9764.     procedure Set_AutoCenter(pRet: WordBool);
  9765.     function  Get_PopUp: WordBool;
  9766.     procedure Set_PopUp(pRet: WordBool);
  9767.     function  Get_Modal: WordBool;
  9768.     procedure Set_Modal(pRet: WordBool);
  9769.     function  Get_BorderStyle: Byte;
  9770.     procedure Set_BorderStyle(pRet: Byte);
  9771.     function  Get_ControlBox: WordBool;
  9772.     procedure Set_ControlBox(pRet: WordBool);
  9773.     function  Get_MinButton: WordBool;
  9774.     procedure Set_MinButton(pRet: WordBool);
  9775.     function  Get_MaxButton: WordBool;
  9776.     procedure Set_MaxButton(pRet: WordBool);
  9777.     function  Get_MinMaxButtons: Byte;
  9778.     procedure Set_MinMaxButtons(pRet: Byte);
  9779.     function  Get_CloseButton: WordBool;
  9780.     procedure Set_CloseButton(pRet: WordBool);
  9781.     function  Get_WhatsThisButton: WordBool;
  9782.     procedure Set_WhatsThisButton(pRet: WordBool);
  9783.     function  Get_Width: Smallint;
  9784.     procedure Set_Width(pRet: Smallint);
  9785.     function  Get_Picture: WideString;
  9786.     procedure Set_Picture(const pRet: WideString);
  9787.     function  Get_PictureType: Byte;
  9788.     procedure Set_PictureType(pRet: Byte);
  9789.     function  Get_PictureSizeMode: Byte;
  9790.     procedure Set_PictureSizeMode(pRet: Byte);
  9791.     function  Get_PictureAlignment: Byte;
  9792.     procedure Set_PictureAlignment(pRet: Byte);
  9793.     function  Get_PictureTiling: WordBool;
  9794.     procedure Set_PictureTiling(pRet: WordBool);
  9795.     function  Get_Cycle: Byte;
  9796.     procedure Set_Cycle(pRet: Byte);
  9797.     function  Get_MenuBar: WideString;
  9798.     procedure Set_MenuBar(const pRet: WideString);
  9799.     function  Get_Toolbar: WideString;
  9800.     procedure Set_Toolbar(const pRet: WideString);
  9801.     function  Get_ShortcutMenu: WordBool;
  9802.     procedure Set_ShortcutMenu(pRet: WordBool);
  9803.     function  Get_ShortcutMenuBar: WideString;
  9804.     procedure Set_ShortcutMenuBar(const pRet: WideString);
  9805.     function  Get_GridX: Smallint;
  9806.     procedure Set_GridX(pRet: Smallint);
  9807.     function  Get_GridY: Smallint;
  9808.     procedure Set_GridY(pRet: Smallint);
  9809.     function  Get_LayoutForPrint: WordBool;
  9810.     procedure Set_LayoutForPrint(pRet: WordBool);
  9811.     function  Get_FastLaserPrinting: WordBool;
  9812.     procedure Set_FastLaserPrinting(pRet: WordBool);
  9813.     function  Get_HelpFile: WideString;
  9814.     procedure Set_HelpFile(const pRet: WideString);
  9815.     function  Get_HelpContextId: Integer;
  9816.     procedure Set_HelpContextId(pRet: Integer);
  9817.     function  Get_RowHeight: Smallint;
  9818.     procedure Set_RowHeight(pRet: Smallint);
  9819.     function  Get_DatasheetFontName: WideString;
  9820.     procedure Set_DatasheetFontName(const pRet: WideString);
  9821.     function  Get_DatasheetFontHeight: Smallint;
  9822.     procedure Set_DatasheetFontHeight(pRet: Smallint);
  9823.     function  Get_DatasheetFontWeight: Smallint;
  9824.     procedure Set_DatasheetFontWeight(pRet: Smallint);
  9825.     function  Get_DatasheetFontItalic: WordBool;
  9826.     procedure Set_DatasheetFontItalic(pRet: WordBool);
  9827.     function  Get_DatasheetFontUnderline: WordBool;
  9828.     procedure Set_DatasheetFontUnderline(pRet: WordBool);
  9829.     function  Get_TabularCharSet: Byte;
  9830.     procedure Set_TabularCharSet(pRet: Byte);
  9831.     function  Get_DatasheetGridlinesBehavior: Byte;
  9832.     procedure Set_DatasheetGridlinesBehavior(pRet: Byte);
  9833.     function  Get_DatasheetGridlinesColor: Integer;
  9834.     procedure Set_DatasheetGridlinesColor(pRet: Integer);
  9835.     function  Get_DatasheetCellsEffect: Byte;
  9836.     procedure Set_DatasheetCellsEffect(pRet: Byte);
  9837.     function  Get_DatasheetForeColor: Integer;
  9838.     procedure Set_DatasheetForeColor(pRet: Integer);
  9839.     function  Get_ShowGrid: WordBool;
  9840.     procedure Set_ShowGrid(pRet: WordBool);
  9841.     function  Get_DatasheetBackColor: Integer;
  9842.     procedure Set_DatasheetBackColor(pRet: Integer);
  9843.     function  Get_Hwnd: Integer;
  9844.     procedure Set_Hwnd(pRet: Integer);
  9845.     function  Get_Count: Smallint;
  9846.     procedure Set_Count(pRet: Smallint);
  9847.     function  Get_Page: Integer;
  9848.     procedure Set_Page(pRet: Integer);
  9849.     function  Get_Pages: Smallint;
  9850.     procedure Set_Pages(pRet: Smallint);
  9851.     function  Get_LogicalPageWidth: Integer;
  9852.     procedure Set_LogicalPageWidth(pRet: Integer);
  9853.     function  Get_LogicalPageHeight: Integer;
  9854.     procedure Set_LogicalPageHeight(pRet: Integer);
  9855.     function  Get_ZoomControl: Integer;
  9856.     procedure Set_ZoomControl(pRet: Integer);
  9857.     function  Get_Visible: WordBool;
  9858.     procedure Set_Visible(pRet: WordBool);
  9859.     function  Get_Painting: WordBool;
  9860.     procedure Set_Painting(pRet: WordBool);
  9861.     function  Get_PrtMip: OleVariant;
  9862.     procedure Set_PrtMip(pRet: OleVariant);
  9863.     function  Get_PrtDevMode: OleVariant;
  9864.     procedure Set_PrtDevMode(pRet: OleVariant);
  9865.     function  Get_PrtDevNames: OleVariant;
  9866.     procedure Set_PrtDevNames(pRet: OleVariant);
  9867.     function  Get_FrozenColumns: Smallint;
  9868.     procedure Set_FrozenColumns(pRet: Smallint);
  9869.     function  Get_Bookmark: OleVariant;
  9870.     procedure Set_Bookmark(pRet: OleVariant);
  9871.     function  Get_TabularFamily: Byte;
  9872.     procedure Set_TabularFamily(pRet: Byte);
  9873.     function  Get_Name: WideString;
  9874.     procedure Set_Name(const pRet: WideString);
  9875.     function  Get_PaletteSource: WideString;
  9876.     procedure Set_PaletteSource(const pRet: WideString);
  9877.     function  Get_Tag: WideString;
  9878.     procedure Set_Tag(const pRet: WideString);
  9879.     function  Get_PaintPalette: OleVariant;
  9880.     procedure Set_PaintPalette(pRet: OleVariant);
  9881.     function  Get_OnMenu: WideString;
  9882.     procedure Set_OnMenu(const pRet: WideString);
  9883.     function  Get_OpenArgs: OleVariant;
  9884.     procedure Set_OpenArgs(pRet: OleVariant);
  9885.     function  Get_ConnectSynch: Smallint;
  9886.     procedure Set_ConnectSynch(pRet: Smallint);
  9887.     function  Get_OnCurrent: WideString;
  9888.     procedure Set_OnCurrent(const pRet: WideString);
  9889.     function  Get_OnInsert: WideString;
  9890.     procedure Set_OnInsert(const pRet: WideString);
  9891.     function  Get_BeforeInsert: WideString;
  9892.     procedure Set_BeforeInsert(const pRet: WideString);
  9893.     function  Get_AfterInsert: WideString;
  9894.     procedure Set_AfterInsert(const pRet: WideString);
  9895.     function  Get_BeforeUpdate: WideString;
  9896.     procedure Set_BeforeUpdate(const pRet: WideString);
  9897.     function  Get_AfterUpdate: WideString;
  9898.     procedure Set_AfterUpdate(const pRet: WideString);
  9899.     function  Get_OnDelete: WideString;
  9900.     procedure Set_OnDelete(const pRet: WideString);
  9901.     function  Get_BeforeDelConfirm: WideString;
  9902.     procedure Set_BeforeDelConfirm(const pRet: WideString);
  9903.     function  Get_AfterDelConfirm: WideString;
  9904.     procedure Set_AfterDelConfirm(const pRet: WideString);
  9905.     function  Get_OnOpen: WideString;
  9906.     procedure Set_OnOpen(const pRet: WideString);
  9907.     function  Get_OnLoad: WideString;
  9908.     procedure Set_OnLoad(const pRet: WideString);
  9909.     function  Get_OnResize: WideString;
  9910.     procedure Set_OnResize(const pRet: WideString);
  9911.     function  Get_OnUnload: WideString;
  9912.     procedure Set_OnUnload(const pRet: WideString);
  9913.     function  Get_OnClose: WideString;
  9914.     procedure Set_OnClose(const pRet: WideString);
  9915.     function  Get_OnActivate: WideString;
  9916.     procedure Set_OnActivate(const pRet: WideString);
  9917.     function  Get_OnDeactivate: WideString;
  9918.     procedure Set_OnDeactivate(const pRet: WideString);
  9919.     function  Get_OnGotFocus: WideString;
  9920.     procedure Set_OnGotFocus(const pRet: WideString);
  9921.     function  Get_OnLostFocus: WideString;
  9922.     procedure Set_OnLostFocus(const pRet: WideString);
  9923.     function  Get_OnClick: WideString;
  9924.     procedure Set_OnClick(const pRet: WideString);
  9925.     function  Get_OnDblClick: WideString;
  9926.     procedure Set_OnDblClick(const pRet: WideString);
  9927.     function  Get_OnMouseDown: WideString;
  9928.     procedure Set_OnMouseDown(const pRet: WideString);
  9929.     function  Get_OnMouseMove: WideString;
  9930.     procedure Set_OnMouseMove(const pRet: WideString);
  9931.     function  Get_OnMouseUp: WideString;
  9932.     procedure Set_OnMouseUp(const pRet: WideString);
  9933.     function  Get_OnKeyDown: WideString;
  9934.     procedure Set_OnKeyDown(const pRet: WideString);
  9935.     function  Get_OnKeyUp: WideString;
  9936.     procedure Set_OnKeyUp(const pRet: WideString);
  9937.     function  Get_OnKeyPress: WideString;
  9938.     procedure Set_OnKeyPress(const pRet: WideString);
  9939.     function  Get_KeyPreview: WordBool;
  9940.     procedure Set_KeyPreview(pRet: WordBool);
  9941.     function  Get_OnError: WideString;
  9942.     procedure Set_OnError(const pRet: WideString);
  9943.     function  Get_OnFilter: WideString;
  9944.     procedure Set_OnFilter(const pRet: WideString);
  9945.     function  Get_OnApplyFilter: WideString;
  9946.     procedure Set_OnApplyFilter(const pRet: WideString);
  9947.     function  Get_OnTimer: WideString;
  9948.     procedure Set_OnTimer(const pRet: WideString);
  9949.     function  Get_TimerInterval: Integer;
  9950.     procedure Set_TimerInterval(pRet: Integer);
  9951.     function  Get_Dirty: WordBool;
  9952.     procedure Set_Dirty(pRet: WordBool);
  9953.     function  Get_WindowWidth: Smallint;
  9954.     procedure Set_WindowWidth(pRet: Smallint);
  9955.     function  Get_WindowHeight: Smallint;
  9956.     procedure Set_WindowHeight(pRet: Smallint);
  9957.     function  Get_CurrentView: Smallint;
  9958.     procedure Set_CurrentView(pRet: Smallint);
  9959.     function  Get_CurrentSectionTop: Smallint;
  9960.     procedure Set_CurrentSectionTop(pRet: Smallint);
  9961.     function  Get_CurrentSectionLeft: Smallint;
  9962.     procedure Set_CurrentSectionLeft(pRet: Smallint);
  9963.     function  Get_SelLeft: Integer;
  9964.     procedure Set_SelLeft(pRet: Integer);
  9965.     function  Get_SelTop: Integer;
  9966.     procedure Set_SelTop(pRet: Integer);
  9967.     function  Get_SelWidth: Integer;
  9968.     procedure Set_SelWidth(pRet: Integer);
  9969.     function  Get_SelHeight: Integer;
  9970.     procedure Set_SelHeight(pRet: Integer);
  9971.     function  Get_CurrentRecord: Integer;
  9972.     procedure Set_CurrentRecord(pRet: Integer);
  9973.     function  Get_PictureData: OleVariant;
  9974.     procedure Set_PictureData(pRet: OleVariant);
  9975.     function  Get_InsideHeight: Integer;
  9976.     procedure Set_InsideHeight(pRet: Integer);
  9977.     function  Get_InsideWidth: Integer;
  9978.     procedure Set_InsideWidth(pRet: Integer);
  9979.     function  Get_PicturePalette: OleVariant;
  9980.     procedure Set_PicturePalette(pRet: OleVariant);
  9981.     function  Get_HasModule: WordBool;
  9982.     procedure Set_HasModule(pRet: WordBool);
  9983.     function  Get_acHiddenCurrentPage: Integer;
  9984.     procedure Set_acHiddenCurrentPage(pRet: Integer);
  9985.     function  Get_Application: Application;
  9986.     function  Get_Parent: IDispatch;
  9987.     function  Get_NewRecord: Smallint;
  9988.     function  Get_ActiveControl: AccessControl;
  9989.     function  Get_DefaultControl(ControlType: Integer): AccessControl;
  9990.     function  Get_Dynaset: IDispatch;
  9991.     function  Get_RecordsetClone: Recordset;
  9992.     function  Get_Section(var_: OleVariant): AccessSection;
  9993.     function  Get_Form: AccessForm;
  9994.     function  Get_Module: Module;
  9995.     function  Get_Properties: Properties;
  9996.     function  Get_ConnectControl: AccessControl;
  9997.     function  Get_Controls: Controls;
  9998.   public
  9999.     constructor Create(AOwner: TComponent); override;
  10000.     destructor  Destroy; override;
  10001.     procedure Connect; override;
  10002.     procedure ConnectTo(svrIntf: _Form);
  10003.     procedure Disconnect; override;
  10004.     procedure Undo;
  10005.     procedure Recalc;
  10006.     procedure Requery;
  10007.     procedure Refresh;
  10008.     procedure Repaint;
  10009.     procedure GoToPage(PageNumber: Integer; Right: Integer; Down: Integer);
  10010.     procedure SetFocus;
  10011.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant;
  10012.     property  DefaultInterface: _Form read GetDefaultInterface;
  10013.     property AllowEditing: WordBool read Get_AllowEditing write Set_AllowEditing;
  10014.     property DefaultEditing: Smallint read Get_DefaultEditing write Set_DefaultEditing;
  10015.     property AllowUpdating: Byte read Get_AllowUpdating write Set_AllowUpdating;
  10016.     property MinButton: WordBool read Get_MinButton write Set_MinButton;
  10017.     property MaxButton: WordBool read Get_MaxButton write Set_MaxButton;
  10018.     property TabularCharSet: Byte read Get_TabularCharSet write Set_TabularCharSet;
  10019.     property ShowGrid: WordBool read Get_ShowGrid write Set_ShowGrid;
  10020.     property LogicalPageWidth: Integer read Get_LogicalPageWidth write Set_LogicalPageWidth;
  10021.     property LogicalPageHeight: Integer read Get_LogicalPageHeight write Set_LogicalPageHeight;
  10022.     property ZoomControl: Integer read Get_ZoomControl write Set_ZoomControl;
  10023.     property PrtMip: OleVariant read Get_PrtMip write Set_PrtMip;
  10024.     property PrtDevMode: OleVariant read Get_PrtDevMode write Set_PrtDevMode;
  10025.     property PrtDevNames: OleVariant read Get_PrtDevNames write Set_PrtDevNames;
  10026.     property Bookmark: OleVariant read Get_Bookmark write Set_Bookmark;
  10027.     property TabularFamily: Byte read Get_TabularFamily write Set_TabularFamily;
  10028.     property PaintPalette: OleVariant read Get_PaintPalette write Set_PaintPalette;
  10029.     property OpenArgs: OleVariant read Get_OpenArgs write Set_OpenArgs;
  10030.     property ConnectSynch: Smallint read Get_ConnectSynch write Set_ConnectSynch;
  10031.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  10032.     property PicturePalette: OleVariant read Get_PicturePalette write Set_PicturePalette;
  10033.     property acHiddenCurrentPage: Integer read Get_acHiddenCurrentPage write Set_acHiddenCurrentPage;
  10034.     property Application: Application read Get_Application;
  10035.     property Parent: IDispatch read Get_Parent;
  10036.     property NewRecord: Smallint read Get_NewRecord;
  10037.     property ActiveControl: AccessControl read Get_ActiveControl;
  10038.     property DefaultControl[ControlType: Integer]: AccessControl read Get_DefaultControl;
  10039.     property Dynaset: IDispatch read Get_Dynaset;
  10040.     property RecordsetClone: Recordset read Get_RecordsetClone;
  10041.     property Section[var_: OleVariant]: AccessSection read Get_Section;
  10042.     property Form: AccessForm read Get_Form;
  10043.     property Module: Module read Get_Module;
  10044.     property Properties: Properties read Get_Properties;
  10045.     property ConnectControl: AccessControl read Get_ConnectControl;
  10046.     property Controls: Controls read Get_Controls;
  10047.     property FormName: WideString read Get_FormName write Set_FormName;
  10048.     property RecordSource: WideString read Get_RecordSource write Set_RecordSource;
  10049.     property Filter: WideString read Get_Filter write Set_Filter;
  10050.     property FilterOn: WordBool read Get_FilterOn write Set_FilterOn;
  10051.     property OrderBy: WideString read Get_OrderBy write Set_OrderBy;
  10052.     property OrderByOn: WordBool read Get_OrderByOn write Set_OrderByOn;
  10053.     property AllowFilters: WordBool read Get_AllowFilters write Set_AllowFilters;
  10054.     property Caption: WideString read Get_Caption write Set_Caption;
  10055.     property DefaultView: Byte read Get_DefaultView write Set_DefaultView;
  10056.     property ViewsAllowed: Byte read Get_ViewsAllowed write Set_ViewsAllowed;
  10057.     property AllowEdits: WordBool read Get_AllowEdits write Set_AllowEdits;
  10058.     property AllowDeletions: WordBool read Get_AllowDeletions write Set_AllowDeletions;
  10059.     property AllowAdditions: WordBool read Get_AllowAdditions write Set_AllowAdditions;
  10060.     property DataEntry: WordBool read Get_DataEntry write Set_DataEntry;
  10061.     property RecordsetType: Byte read Get_RecordsetType write Set_RecordsetType;
  10062.     property RecordLocks: Byte read Get_RecordLocks write Set_RecordLocks;
  10063.     property ScrollBars: Byte read Get_ScrollBars write Set_ScrollBars;
  10064.     property RecordSelectors: WordBool read Get_RecordSelectors write Set_RecordSelectors;
  10065.     property NavigationButtons: WordBool read Get_NavigationButtons write Set_NavigationButtons;
  10066.     property DividingLines: WordBool read Get_DividingLines write Set_DividingLines;
  10067.     property AutoResize: WordBool read Get_AutoResize write Set_AutoResize;
  10068.     property AutoCenter: WordBool read Get_AutoCenter write Set_AutoCenter;
  10069.     property PopUp: WordBool read Get_PopUp write Set_PopUp;
  10070.     property Modal: WordBool read Get_Modal write Set_Modal;
  10071.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  10072.     property ControlBox: WordBool read Get_ControlBox write Set_ControlBox;
  10073.     property MinMaxButtons: Byte read Get_MinMaxButtons write Set_MinMaxButtons;
  10074.     property CloseButton: WordBool read Get_CloseButton write Set_CloseButton;
  10075.     property WhatsThisButton: WordBool read Get_WhatsThisButton write Set_WhatsThisButton;
  10076.     property Width: Smallint read Get_Width write Set_Width;
  10077.     property Picture: WideString read Get_Picture write Set_Picture;
  10078.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  10079.     property PictureSizeMode: Byte read Get_PictureSizeMode write Set_PictureSizeMode;
  10080.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  10081.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  10082.     property Cycle: Byte read Get_Cycle write Set_Cycle;
  10083.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  10084.     property Toolbar: WideString read Get_Toolbar write Set_Toolbar;
  10085.     property ShortcutMenu: WordBool read Get_ShortcutMenu write Set_ShortcutMenu;
  10086.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  10087.     property GridX: Smallint read Get_GridX write Set_GridX;
  10088.     property GridY: Smallint read Get_GridY write Set_GridY;
  10089.     property LayoutForPrint: WordBool read Get_LayoutForPrint write Set_LayoutForPrint;
  10090.     property FastLaserPrinting: WordBool read Get_FastLaserPrinting write Set_FastLaserPrinting;
  10091.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  10092.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  10093.     property RowHeight: Smallint read Get_RowHeight write Set_RowHeight;
  10094.     property DatasheetFontName: WideString read Get_DatasheetFontName write Set_DatasheetFontName;
  10095.     property DatasheetFontHeight: Smallint read Get_DatasheetFontHeight write Set_DatasheetFontHeight;
  10096.     property DatasheetFontWeight: Smallint read Get_DatasheetFontWeight write Set_DatasheetFontWeight;
  10097.     property DatasheetFontItalic: WordBool read Get_DatasheetFontItalic write Set_DatasheetFontItalic;
  10098.     property DatasheetFontUnderline: WordBool read Get_DatasheetFontUnderline write Set_DatasheetFontUnderline;
  10099.     property DatasheetGridlinesBehavior: Byte read Get_DatasheetGridlinesBehavior write Set_DatasheetGridlinesBehavior;
  10100.     property DatasheetGridlinesColor: Integer read Get_DatasheetGridlinesColor write Set_DatasheetGridlinesColor;
  10101.     property DatasheetCellsEffect: Byte read Get_DatasheetCellsEffect write Set_DatasheetCellsEffect;
  10102.     property DatasheetForeColor: Integer read Get_DatasheetForeColor write Set_DatasheetForeColor;
  10103.     property DatasheetBackColor: Integer read Get_DatasheetBackColor write Set_DatasheetBackColor;
  10104.     property Hwnd: Integer read Get_Hwnd write Set_Hwnd;
  10105.     property Count: Smallint read Get_Count write Set_Count;
  10106.     property Page: Integer read Get_Page write Set_Page;
  10107.     property Pages: Smallint read Get_Pages write Set_Pages;
  10108.     property Visible: WordBool read Get_Visible write Set_Visible;
  10109.     property Painting: WordBool read Get_Painting write Set_Painting;
  10110.     property FrozenColumns: Smallint read Get_FrozenColumns write Set_FrozenColumns;
  10111.     property Name: WideString read Get_Name write Set_Name;
  10112.     property PaletteSource: WideString read Get_PaletteSource write Set_PaletteSource;
  10113.     property Tag: WideString read Get_Tag write Set_Tag;
  10114.     property OnMenu: WideString read Get_OnMenu write Set_OnMenu;
  10115.     property OnCurrent1: WideString read Get_OnCurrent write Set_OnCurrent;
  10116.     property OnInsert: WideString read Get_OnInsert write Set_OnInsert;
  10117.     property BeforeInsert: WideString read Get_BeforeInsert write Set_BeforeInsert;
  10118.     property AfterInsert: WideString read Get_AfterInsert write Set_AfterInsert;
  10119.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  10120.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  10121.     property OnDelete1: WideString read Get_OnDelete write Set_OnDelete;
  10122.     property BeforeDelConfirm: WideString read Get_BeforeDelConfirm write Set_BeforeDelConfirm;
  10123.     property AfterDelConfirm: WideString read Get_AfterDelConfirm write Set_AfterDelConfirm;
  10124.     property OnOpen1: WideString read Get_OnOpen write Set_OnOpen;
  10125.     property OnLoad1: WideString read Get_OnLoad write Set_OnLoad;
  10126.     property OnResize1: WideString read Get_OnResize write Set_OnResize;
  10127.     property OnUnload1: WideString read Get_OnUnload write Set_OnUnload;
  10128.     property OnClose1: WideString read Get_OnClose write Set_OnClose;
  10129.     property OnActivate1: WideString read Get_OnActivate write Set_OnActivate;
  10130.     property OnDeactivate1: WideString read Get_OnDeactivate write Set_OnDeactivate;
  10131.     property OnGotFocus1: WideString read Get_OnGotFocus write Set_OnGotFocus;
  10132.     property OnLostFocus1: WideString read Get_OnLostFocus write Set_OnLostFocus;
  10133.     property OnClick1: WideString read Get_OnClick write Set_OnClick;
  10134.     property OnDblClick1: WideString read Get_OnDblClick write Set_OnDblClick;
  10135.     property OnMouseDown1: WideString read Get_OnMouseDown write Set_OnMouseDown;
  10136.     property OnMouseMove1: WideString read Get_OnMouseMove write Set_OnMouseMove;
  10137.     property OnMouseUp1: WideString read Get_OnMouseUp write Set_OnMouseUp;
  10138.     property OnKeyDown1: WideString read Get_OnKeyDown write Set_OnKeyDown;
  10139.     property OnKeyUp1: WideString read Get_OnKeyUp write Set_OnKeyUp;
  10140.     property OnKeyPress1: WideString read Get_OnKeyPress write Set_OnKeyPress;
  10141.     property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
  10142.     property OnError1: WideString read Get_OnError write Set_OnError;
  10143.     property OnFilter1: WideString read Get_OnFilter write Set_OnFilter;
  10144.     property OnApplyFilter1: WideString read Get_OnApplyFilter write Set_OnApplyFilter;
  10145.     property OnTimer1: WideString read Get_OnTimer write Set_OnTimer;
  10146.     property TimerInterval: Integer read Get_TimerInterval write Set_TimerInterval;
  10147.     property Dirty: WordBool read Get_Dirty write Set_Dirty;
  10148.     property WindowWidth: Smallint read Get_WindowWidth write Set_WindowWidth;
  10149.     property WindowHeight: Smallint read Get_WindowHeight write Set_WindowHeight;
  10150.     property CurrentView: Smallint read Get_CurrentView write Set_CurrentView;
  10151.     property CurrentSectionTop: Smallint read Get_CurrentSectionTop write Set_CurrentSectionTop;
  10152.     property CurrentSectionLeft: Smallint read Get_CurrentSectionLeft write Set_CurrentSectionLeft;
  10153.     property SelLeft: Integer read Get_SelLeft write Set_SelLeft;
  10154.     property SelTop: Integer read Get_SelTop write Set_SelTop;
  10155.     property SelWidth: Integer read Get_SelWidth write Set_SelWidth;
  10156.     property SelHeight: Integer read Get_SelHeight write Set_SelHeight;
  10157.     property CurrentRecord: Integer read Get_CurrentRecord write Set_CurrentRecord;
  10158.     property InsideHeight: Integer read Get_InsideHeight write Set_InsideHeight;
  10159.     property InsideWidth: Integer read Get_InsideWidth write Set_InsideWidth;
  10160.     property HasModule: WordBool read Get_HasModule write Set_HasModule;
  10161.   published
  10162. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10163.     property Server: TAccessFormProperties read GetServerProperties;
  10164. {$ENDIF}
  10165.     property OnLoad: TNotifyEvent read FOnLoad write FOnLoad;
  10166.     property OnCurrent: TNotifyEvent read FOnCurrent write FOnCurrent;
  10167.     property OnBeforeInsert: TAccessFormBeforeInsert read FOnBeforeInsert write FOnBeforeInsert;
  10168.     property OnAfterInsert: TNotifyEvent read FOnAfterInsert write FOnAfterInsert;
  10169.     property OnBeforeUpdate: TAccessFormBeforeUpdate read FOnBeforeUpdate write FOnBeforeUpdate;
  10170.     property OnAfterUpdate: TNotifyEvent read FOnAfterUpdate write FOnAfterUpdate;
  10171.     property OnDelete: TAccessFormDelete read FOnDelete write FOnDelete;
  10172.     property OnBeforeDelConfirm: TAccessFormBeforeDelConfirm read FOnBeforeDelConfirm write FOnBeforeDelConfirm;
  10173.     property OnAfterDelConfirm: TAccessFormAfterDelConfirm read FOnAfterDelConfirm write FOnAfterDelConfirm;
  10174.     property OnOpen: TAccessFormOpen read FOnOpen write FOnOpen;
  10175.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  10176.     property OnUnload: TAccessFormUnload read FOnUnload write FOnUnload;
  10177.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  10178.     property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
  10179.     property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
  10180.     property OnGotFocus: TNotifyEvent read FOnGotFocus write FOnGotFocus;
  10181.     property OnLostFocus: TNotifyEvent read FOnLostFocus write FOnLostFocus;
  10182.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  10183.     property OnDblClick: TAccessFormDblClick read FOnDblClick write FOnDblClick;
  10184.     property OnMouseDown: TAccessFormMouseDown read FOnMouseDown write FOnMouseDown;
  10185.     property OnMouseMove: TAccessFormMouseMove read FOnMouseMove write FOnMouseMove;
  10186.     property OnMouseUp: TAccessFormMouseUp read FOnMouseUp write FOnMouseUp;
  10187.     property OnKeyDown: TAccessFormKeyDown read FOnKeyDown write FOnKeyDown;
  10188.     property OnKeyPress: TAccessFormKeyPress read FOnKeyPress write FOnKeyPress;
  10189.     property OnKeyUp: TAccessFormKeyUp read FOnKeyUp write FOnKeyUp;
  10190.     property OnError: TAccessFormError read FOnError write FOnError;
  10191.     property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;
  10192.     property OnFilter: TAccessFormFilter read FOnFilter write FOnFilter;
  10193.     property OnApplyFilter: TAccessFormApplyFilter read FOnApplyFilter write FOnApplyFilter;
  10194.   end;
  10195.  
  10196. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10197. // *********************************************************************//
  10198. // OLE Server Properties Proxy Class
  10199. // Server Object    : TAccessForm
  10200. // (This object is used by the IDE's Property Inspector to allow editing
  10201. //  of the properties of this server)
  10202. // *********************************************************************//
  10203.  TAccessFormProperties = class(TPersistent)
  10204.   private
  10205.     FServer:    TAccessForm;
  10206.     function    GetDefaultInterface: _Form;
  10207.     constructor Create(AServer: TAccessForm);
  10208.   protected
  10209.     function  Get_FormName: WideString;
  10210.     procedure Set_FormName(const pRet: WideString);
  10211.     function  Get_RecordSource: WideString;
  10212.     procedure Set_RecordSource(const pRet: WideString);
  10213.     function  Get_Filter: WideString;
  10214.     procedure Set_Filter(const pRet: WideString);
  10215.     function  Get_FilterOn: WordBool;
  10216.     procedure Set_FilterOn(pRet: WordBool);
  10217.     function  Get_OrderBy: WideString;
  10218.     procedure Set_OrderBy(const pRet: WideString);
  10219.     function  Get_OrderByOn: WordBool;
  10220.     procedure Set_OrderByOn(pRet: WordBool);
  10221.     function  Get_AllowFilters: WordBool;
  10222.     procedure Set_AllowFilters(pRet: WordBool);
  10223.     function  Get_Caption: WideString;
  10224.     procedure Set_Caption(const pRet: WideString);
  10225.     function  Get_DefaultView: Byte;
  10226.     procedure Set_DefaultView(pRet: Byte);
  10227.     function  Get_ViewsAllowed: Byte;
  10228.     procedure Set_ViewsAllowed(pRet: Byte);
  10229.     function  Get_AllowEditing: WordBool;
  10230.     procedure Set_AllowEditing(pRet: WordBool);
  10231.     function  Get_DefaultEditing: Smallint;
  10232.     procedure Set_DefaultEditing(pRet: Smallint);
  10233.     function  Get_AllowEdits: WordBool;
  10234.     procedure Set_AllowEdits(pRet: WordBool);
  10235.     function  Get_AllowDeletions: WordBool;
  10236.     procedure Set_AllowDeletions(pRet: WordBool);
  10237.     function  Get_AllowAdditions: WordBool;
  10238.     procedure Set_AllowAdditions(pRet: WordBool);
  10239.     function  Get_DataEntry: WordBool;
  10240.     procedure Set_DataEntry(pRet: WordBool);
  10241.     function  Get_AllowUpdating: Byte;
  10242.     procedure Set_AllowUpdating(pRet: Byte);
  10243.     function  Get_RecordsetType: Byte;
  10244.     procedure Set_RecordsetType(pRet: Byte);
  10245.     function  Get_RecordLocks: Byte;
  10246.     procedure Set_RecordLocks(pRet: Byte);
  10247.     function  Get_ScrollBars: Byte;
  10248.     procedure Set_ScrollBars(pRet: Byte);
  10249.     function  Get_RecordSelectors: WordBool;
  10250.     procedure Set_RecordSelectors(pRet: WordBool);
  10251.     function  Get_NavigationButtons: WordBool;
  10252.     procedure Set_NavigationButtons(pRet: WordBool);
  10253.     function  Get_DividingLines: WordBool;
  10254.     procedure Set_DividingLines(pRet: WordBool);
  10255.     function  Get_AutoResize: WordBool;
  10256.     procedure Set_AutoResize(pRet: WordBool);
  10257.     function  Get_AutoCenter: WordBool;
  10258.     procedure Set_AutoCenter(pRet: WordBool);
  10259.     function  Get_PopUp: WordBool;
  10260.     procedure Set_PopUp(pRet: WordBool);
  10261.     function  Get_Modal: WordBool;
  10262.     procedure Set_Modal(pRet: WordBool);
  10263.     function  Get_BorderStyle: Byte;
  10264.     procedure Set_BorderStyle(pRet: Byte);
  10265.     function  Get_ControlBox: WordBool;
  10266.     procedure Set_ControlBox(pRet: WordBool);
  10267.     function  Get_MinButton: WordBool;
  10268.     procedure Set_MinButton(pRet: WordBool);
  10269.     function  Get_MaxButton: WordBool;
  10270.     procedure Set_MaxButton(pRet: WordBool);
  10271.     function  Get_MinMaxButtons: Byte;
  10272.     procedure Set_MinMaxButtons(pRet: Byte);
  10273.     function  Get_CloseButton: WordBool;
  10274.     procedure Set_CloseButton(pRet: WordBool);
  10275.     function  Get_WhatsThisButton: WordBool;
  10276.     procedure Set_WhatsThisButton(pRet: WordBool);
  10277.     function  Get_Width: Smallint;
  10278.     procedure Set_Width(pRet: Smallint);
  10279.     function  Get_Picture: WideString;
  10280.     procedure Set_Picture(const pRet: WideString);
  10281.     function  Get_PictureType: Byte;
  10282.     procedure Set_PictureType(pRet: Byte);
  10283.     function  Get_PictureSizeMode: Byte;
  10284.     procedure Set_PictureSizeMode(pRet: Byte);
  10285.     function  Get_PictureAlignment: Byte;
  10286.     procedure Set_PictureAlignment(pRet: Byte);
  10287.     function  Get_PictureTiling: WordBool;
  10288.     procedure Set_PictureTiling(pRet: WordBool);
  10289.     function  Get_Cycle: Byte;
  10290.     procedure Set_Cycle(pRet: Byte);
  10291.     function  Get_MenuBar: WideString;
  10292.     procedure Set_MenuBar(const pRet: WideString);
  10293.     function  Get_Toolbar: WideString;
  10294.     procedure Set_Toolbar(const pRet: WideString);
  10295.     function  Get_ShortcutMenu: WordBool;
  10296.     procedure Set_ShortcutMenu(pRet: WordBool);
  10297.     function  Get_ShortcutMenuBar: WideString;
  10298.     procedure Set_ShortcutMenuBar(const pRet: WideString);
  10299.     function  Get_GridX: Smallint;
  10300.     procedure Set_GridX(pRet: Smallint);
  10301.     function  Get_GridY: Smallint;
  10302.     procedure Set_GridY(pRet: Smallint);
  10303.     function  Get_LayoutForPrint: WordBool;
  10304.     procedure Set_LayoutForPrint(pRet: WordBool);
  10305.     function  Get_FastLaserPrinting: WordBool;
  10306.     procedure Set_FastLaserPrinting(pRet: WordBool);
  10307.     function  Get_HelpFile: WideString;
  10308.     procedure Set_HelpFile(const pRet: WideString);
  10309.     function  Get_HelpContextId: Integer;
  10310.     procedure Set_HelpContextId(pRet: Integer);
  10311.     function  Get_RowHeight: Smallint;
  10312.     procedure Set_RowHeight(pRet: Smallint);
  10313.     function  Get_DatasheetFontName: WideString;
  10314.     procedure Set_DatasheetFontName(const pRet: WideString);
  10315.     function  Get_DatasheetFontHeight: Smallint;
  10316.     procedure Set_DatasheetFontHeight(pRet: Smallint);
  10317.     function  Get_DatasheetFontWeight: Smallint;
  10318.     procedure Set_DatasheetFontWeight(pRet: Smallint);
  10319.     function  Get_DatasheetFontItalic: WordBool;
  10320.     procedure Set_DatasheetFontItalic(pRet: WordBool);
  10321.     function  Get_DatasheetFontUnderline: WordBool;
  10322.     procedure Set_DatasheetFontUnderline(pRet: WordBool);
  10323.     function  Get_TabularCharSet: Byte;
  10324.     procedure Set_TabularCharSet(pRet: Byte);
  10325.     function  Get_DatasheetGridlinesBehavior: Byte;
  10326.     procedure Set_DatasheetGridlinesBehavior(pRet: Byte);
  10327.     function  Get_DatasheetGridlinesColor: Integer;
  10328.     procedure Set_DatasheetGridlinesColor(pRet: Integer);
  10329.     function  Get_DatasheetCellsEffect: Byte;
  10330.     procedure Set_DatasheetCellsEffect(pRet: Byte);
  10331.     function  Get_DatasheetForeColor: Integer;
  10332.     procedure Set_DatasheetForeColor(pRet: Integer);
  10333.     function  Get_ShowGrid: WordBool;
  10334.     procedure Set_ShowGrid(pRet: WordBool);
  10335.     function  Get_DatasheetBackColor: Integer;
  10336.     procedure Set_DatasheetBackColor(pRet: Integer);
  10337.     function  Get_Hwnd: Integer;
  10338.     procedure Set_Hwnd(pRet: Integer);
  10339.     function  Get_Count: Smallint;
  10340.     procedure Set_Count(pRet: Smallint);
  10341.     function  Get_Page: Integer;
  10342.     procedure Set_Page(pRet: Integer);
  10343.     function  Get_Pages: Smallint;
  10344.     procedure Set_Pages(pRet: Smallint);
  10345.     function  Get_LogicalPageWidth: Integer;
  10346.     procedure Set_LogicalPageWidth(pRet: Integer);
  10347.     function  Get_LogicalPageHeight: Integer;
  10348.     procedure Set_LogicalPageHeight(pRet: Integer);
  10349.     function  Get_ZoomControl: Integer;
  10350.     procedure Set_ZoomControl(pRet: Integer);
  10351.     function  Get_Visible: WordBool;
  10352.     procedure Set_Visible(pRet: WordBool);
  10353.     function  Get_Painting: WordBool;
  10354.     procedure Set_Painting(pRet: WordBool);
  10355.     function  Get_PrtMip: OleVariant;
  10356.     procedure Set_PrtMip(pRet: OleVariant);
  10357.     function  Get_PrtDevMode: OleVariant;
  10358.     procedure Set_PrtDevMode(pRet: OleVariant);
  10359.     function  Get_PrtDevNames: OleVariant;
  10360.     procedure Set_PrtDevNames(pRet: OleVariant);
  10361.     function  Get_FrozenColumns: Smallint;
  10362.     procedure Set_FrozenColumns(pRet: Smallint);
  10363.     function  Get_Bookmark: OleVariant;
  10364.     procedure Set_Bookmark(pRet: OleVariant);
  10365.     function  Get_TabularFamily: Byte;
  10366.     procedure Set_TabularFamily(pRet: Byte);
  10367.     function  Get_Name: WideString;
  10368.     procedure Set_Name(const pRet: WideString);
  10369.     function  Get_PaletteSource: WideString;
  10370.     procedure Set_PaletteSource(const pRet: WideString);
  10371.     function  Get_Tag: WideString;
  10372.     procedure Set_Tag(const pRet: WideString);
  10373.     function  Get_PaintPalette: OleVariant;
  10374.     procedure Set_PaintPalette(pRet: OleVariant);
  10375.     function  Get_OnMenu: WideString;
  10376.     procedure Set_OnMenu(const pRet: WideString);
  10377.     function  Get_OpenArgs: OleVariant;
  10378.     procedure Set_OpenArgs(pRet: OleVariant);
  10379.     function  Get_ConnectSynch: Smallint;
  10380.     procedure Set_ConnectSynch(pRet: Smallint);
  10381.     function  Get_OnCurrent: WideString;
  10382.     procedure Set_OnCurrent(const pRet: WideString);
  10383.     function  Get_OnInsert: WideString;
  10384.     procedure Set_OnInsert(const pRet: WideString);
  10385.     function  Get_BeforeInsert: WideString;
  10386.     procedure Set_BeforeInsert(const pRet: WideString);
  10387.     function  Get_AfterInsert: WideString;
  10388.     procedure Set_AfterInsert(const pRet: WideString);
  10389.     function  Get_BeforeUpdate: WideString;
  10390.     procedure Set_BeforeUpdate(const pRet: WideString);
  10391.     function  Get_AfterUpdate: WideString;
  10392.     procedure Set_AfterUpdate(const pRet: WideString);
  10393.     function  Get_OnDelete: WideString;
  10394.     procedure Set_OnDelete(const pRet: WideString);
  10395.     function  Get_BeforeDelConfirm: WideString;
  10396.     procedure Set_BeforeDelConfirm(const pRet: WideString);
  10397.     function  Get_AfterDelConfirm: WideString;
  10398.     procedure Set_AfterDelConfirm(const pRet: WideString);
  10399.     function  Get_OnOpen: WideString;
  10400.     procedure Set_OnOpen(const pRet: WideString);
  10401.     function  Get_OnLoad: WideString;
  10402.     procedure Set_OnLoad(const pRet: WideString);
  10403.     function  Get_OnResize: WideString;
  10404.     procedure Set_OnResize(const pRet: WideString);
  10405.     function  Get_OnUnload: WideString;
  10406.     procedure Set_OnUnload(const pRet: WideString);
  10407.     function  Get_OnClose: WideString;
  10408.     procedure Set_OnClose(const pRet: WideString);
  10409.     function  Get_OnActivate: WideString;
  10410.     procedure Set_OnActivate(const pRet: WideString);
  10411.     function  Get_OnDeactivate: WideString;
  10412.     procedure Set_OnDeactivate(const pRet: WideString);
  10413.     function  Get_OnGotFocus: WideString;
  10414.     procedure Set_OnGotFocus(const pRet: WideString);
  10415.     function  Get_OnLostFocus: WideString;
  10416.     procedure Set_OnLostFocus(const pRet: WideString);
  10417.     function  Get_OnClick: WideString;
  10418.     procedure Set_OnClick(const pRet: WideString);
  10419.     function  Get_OnDblClick: WideString;
  10420.     procedure Set_OnDblClick(const pRet: WideString);
  10421.     function  Get_OnMouseDown: WideString;
  10422.     procedure Set_OnMouseDown(const pRet: WideString);
  10423.     function  Get_OnMouseMove: WideString;
  10424.     procedure Set_OnMouseMove(const pRet: WideString);
  10425.     function  Get_OnMouseUp: WideString;
  10426.     procedure Set_OnMouseUp(const pRet: WideString);
  10427.     function  Get_OnKeyDown: WideString;
  10428.     procedure Set_OnKeyDown(const pRet: WideString);
  10429.     function  Get_OnKeyUp: WideString;
  10430.     procedure Set_OnKeyUp(const pRet: WideString);
  10431.     function  Get_OnKeyPress: WideString;
  10432.     procedure Set_OnKeyPress(const pRet: WideString);
  10433.     function  Get_KeyPreview: WordBool;
  10434.     procedure Set_KeyPreview(pRet: WordBool);
  10435.     function  Get_OnError: WideString;
  10436.     procedure Set_OnError(const pRet: WideString);
  10437.     function  Get_OnFilter: WideString;
  10438.     procedure Set_OnFilter(const pRet: WideString);
  10439.     function  Get_OnApplyFilter: WideString;
  10440.     procedure Set_OnApplyFilter(const pRet: WideString);
  10441.     function  Get_OnTimer: WideString;
  10442.     procedure Set_OnTimer(const pRet: WideString);
  10443.     function  Get_TimerInterval: Integer;
  10444.     procedure Set_TimerInterval(pRet: Integer);
  10445.     function  Get_Dirty: WordBool;
  10446.     procedure Set_Dirty(pRet: WordBool);
  10447.     function  Get_WindowWidth: Smallint;
  10448.     procedure Set_WindowWidth(pRet: Smallint);
  10449.     function  Get_WindowHeight: Smallint;
  10450.     procedure Set_WindowHeight(pRet: Smallint);
  10451.     function  Get_CurrentView: Smallint;
  10452.     procedure Set_CurrentView(pRet: Smallint);
  10453.     function  Get_CurrentSectionTop: Smallint;
  10454.     procedure Set_CurrentSectionTop(pRet: Smallint);
  10455.     function  Get_CurrentSectionLeft: Smallint;
  10456.     procedure Set_CurrentSectionLeft(pRet: Smallint);
  10457.     function  Get_SelLeft: Integer;
  10458.     procedure Set_SelLeft(pRet: Integer);
  10459.     function  Get_SelTop: Integer;
  10460.     procedure Set_SelTop(pRet: Integer);
  10461.     function  Get_SelWidth: Integer;
  10462.     procedure Set_SelWidth(pRet: Integer);
  10463.     function  Get_SelHeight: Integer;
  10464.     procedure Set_SelHeight(pRet: Integer);
  10465.     function  Get_CurrentRecord: Integer;
  10466.     procedure Set_CurrentRecord(pRet: Integer);
  10467.     function  Get_PictureData: OleVariant;
  10468.     procedure Set_PictureData(pRet: OleVariant);
  10469.     function  Get_InsideHeight: Integer;
  10470.     procedure Set_InsideHeight(pRet: Integer);
  10471.     function  Get_InsideWidth: Integer;
  10472.     procedure Set_InsideWidth(pRet: Integer);
  10473.     function  Get_PicturePalette: OleVariant;
  10474.     procedure Set_PicturePalette(pRet: OleVariant);
  10475.     function  Get_HasModule: WordBool;
  10476.     procedure Set_HasModule(pRet: WordBool);
  10477.     function  Get_acHiddenCurrentPage: Integer;
  10478.     procedure Set_acHiddenCurrentPage(pRet: Integer);
  10479.     function  Get_Application: Application;
  10480.     function  Get_Parent: IDispatch;
  10481.     function  Get_NewRecord: Smallint;
  10482.     function  Get_ActiveControl: AccessControl;
  10483.     function  Get_DefaultControl(ControlType: Integer): AccessControl;
  10484.     function  Get_Dynaset: IDispatch;
  10485.     function  Get_RecordsetClone: Recordset;
  10486.     function  Get_Section(var_: OleVariant): AccessSection;
  10487.     function  Get_Form: AccessForm;
  10488.     function  Get_Module: Module;
  10489.     function  Get_Properties: Properties;
  10490.     function  Get_ConnectControl: AccessControl;
  10491.     function  Get_Controls: Controls;
  10492.   public
  10493.     property DefaultInterface: _Form read GetDefaultInterface;
  10494.   published
  10495.     property FormName: WideString read Get_FormName write Set_FormName;
  10496.     property RecordSource: WideString read Get_RecordSource write Set_RecordSource;
  10497.     property Filter: WideString read Get_Filter write Set_Filter;
  10498.     property FilterOn: WordBool read Get_FilterOn write Set_FilterOn;
  10499.     property OrderBy: WideString read Get_OrderBy write Set_OrderBy;
  10500.     property OrderByOn: WordBool read Get_OrderByOn write Set_OrderByOn;
  10501.     property AllowFilters: WordBool read Get_AllowFilters write Set_AllowFilters;
  10502.     property Caption: WideString read Get_Caption write Set_Caption;
  10503.     property DefaultView: Byte read Get_DefaultView write Set_DefaultView;
  10504.     property ViewsAllowed: Byte read Get_ViewsAllowed write Set_ViewsAllowed;
  10505.     property AllowEdits: WordBool read Get_AllowEdits write Set_AllowEdits;
  10506.     property AllowDeletions: WordBool read Get_AllowDeletions write Set_AllowDeletions;
  10507.     property AllowAdditions: WordBool read Get_AllowAdditions write Set_AllowAdditions;
  10508.     property DataEntry: WordBool read Get_DataEntry write Set_DataEntry;
  10509.     property RecordsetType: Byte read Get_RecordsetType write Set_RecordsetType;
  10510.     property RecordLocks: Byte read Get_RecordLocks write Set_RecordLocks;
  10511.     property ScrollBars: Byte read Get_ScrollBars write Set_ScrollBars;
  10512.     property RecordSelectors: WordBool read Get_RecordSelectors write Set_RecordSelectors;
  10513.     property NavigationButtons: WordBool read Get_NavigationButtons write Set_NavigationButtons;
  10514.     property DividingLines: WordBool read Get_DividingLines write Set_DividingLines;
  10515.     property AutoResize: WordBool read Get_AutoResize write Set_AutoResize;
  10516.     property AutoCenter: WordBool read Get_AutoCenter write Set_AutoCenter;
  10517.     property PopUp: WordBool read Get_PopUp write Set_PopUp;
  10518.     property Modal: WordBool read Get_Modal write Set_Modal;
  10519.     property BorderStyle: Byte read Get_BorderStyle write Set_BorderStyle;
  10520.     property ControlBox: WordBool read Get_ControlBox write Set_ControlBox;
  10521.     property MinMaxButtons: Byte read Get_MinMaxButtons write Set_MinMaxButtons;
  10522.     property CloseButton: WordBool read Get_CloseButton write Set_CloseButton;
  10523.     property WhatsThisButton: WordBool read Get_WhatsThisButton write Set_WhatsThisButton;
  10524.     property Width: Smallint read Get_Width write Set_Width;
  10525.     property Picture: WideString read Get_Picture write Set_Picture;
  10526.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  10527.     property PictureSizeMode: Byte read Get_PictureSizeMode write Set_PictureSizeMode;
  10528.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  10529.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  10530.     property Cycle: Byte read Get_Cycle write Set_Cycle;
  10531.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  10532.     property Toolbar: WideString read Get_Toolbar write Set_Toolbar;
  10533.     property ShortcutMenu: WordBool read Get_ShortcutMenu write Set_ShortcutMenu;
  10534.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  10535.     property GridX: Smallint read Get_GridX write Set_GridX;
  10536.     property GridY: Smallint read Get_GridY write Set_GridY;
  10537.     property LayoutForPrint: WordBool read Get_LayoutForPrint write Set_LayoutForPrint;
  10538.     property FastLaserPrinting: WordBool read Get_FastLaserPrinting write Set_FastLaserPrinting;
  10539.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  10540.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  10541.     property RowHeight: Smallint read Get_RowHeight write Set_RowHeight;
  10542.     property DatasheetFontName: WideString read Get_DatasheetFontName write Set_DatasheetFontName;
  10543.     property DatasheetFontHeight: Smallint read Get_DatasheetFontHeight write Set_DatasheetFontHeight;
  10544.     property DatasheetFontWeight: Smallint read Get_DatasheetFontWeight write Set_DatasheetFontWeight;
  10545.     property DatasheetFontItalic: WordBool read Get_DatasheetFontItalic write Set_DatasheetFontItalic;
  10546.     property DatasheetFontUnderline: WordBool read Get_DatasheetFontUnderline write Set_DatasheetFontUnderline;
  10547.     property DatasheetGridlinesBehavior: Byte read Get_DatasheetGridlinesBehavior write Set_DatasheetGridlinesBehavior;
  10548.     property DatasheetGridlinesColor: Integer read Get_DatasheetGridlinesColor write Set_DatasheetGridlinesColor;
  10549.     property DatasheetCellsEffect: Byte read Get_DatasheetCellsEffect write Set_DatasheetCellsEffect;
  10550.     property DatasheetForeColor: Integer read Get_DatasheetForeColor write Set_DatasheetForeColor;
  10551.     property DatasheetBackColor: Integer read Get_DatasheetBackColor write Set_DatasheetBackColor;
  10552.     property Hwnd: Integer read Get_Hwnd write Set_Hwnd;
  10553.     property Count: Smallint read Get_Count write Set_Count;
  10554.     property Page: Integer read Get_Page write Set_Page;
  10555.     property Pages: Smallint read Get_Pages write Set_Pages;
  10556.     property Visible: WordBool read Get_Visible write Set_Visible;
  10557.     property Painting: WordBool read Get_Painting write Set_Painting;
  10558.     property FrozenColumns: Smallint read Get_FrozenColumns write Set_FrozenColumns;
  10559.     property Name: WideString read Get_Name write Set_Name;
  10560.     property PaletteSource: WideString read Get_PaletteSource write Set_PaletteSource;
  10561.     property Tag: WideString read Get_Tag write Set_Tag;
  10562.     property OnMenu: WideString read Get_OnMenu write Set_OnMenu;
  10563.     property OnCurrent1: WideString read Get_OnCurrent write Set_OnCurrent;
  10564.     property OnInsert: WideString read Get_OnInsert write Set_OnInsert;
  10565.     property BeforeInsert: WideString read Get_BeforeInsert write Set_BeforeInsert;
  10566.     property AfterInsert: WideString read Get_AfterInsert write Set_AfterInsert;
  10567.     property BeforeUpdate: WideString read Get_BeforeUpdate write Set_BeforeUpdate;
  10568.     property AfterUpdate: WideString read Get_AfterUpdate write Set_AfterUpdate;
  10569.     property OnDelete1: WideString read Get_OnDelete write Set_OnDelete;
  10570.     property BeforeDelConfirm: WideString read Get_BeforeDelConfirm write Set_BeforeDelConfirm;
  10571.     property AfterDelConfirm: WideString read Get_AfterDelConfirm write Set_AfterDelConfirm;
  10572.     property OnOpen1: WideString read Get_OnOpen write Set_OnOpen;
  10573.     property OnLoad1: WideString read Get_OnLoad write Set_OnLoad;
  10574.     property OnResize1: WideString read Get_OnResize write Set_OnResize;
  10575.     property OnUnload1: WideString read Get_OnUnload write Set_OnUnload;
  10576.     property OnClose1: WideString read Get_OnClose write Set_OnClose;
  10577.     property OnActivate1: WideString read Get_OnActivate write Set_OnActivate;
  10578.     property OnDeactivate1: WideString read Get_OnDeactivate write Set_OnDeactivate;
  10579.     property OnGotFocus1: WideString read Get_OnGotFocus write Set_OnGotFocus;
  10580.     property OnLostFocus1: WideString read Get_OnLostFocus write Set_OnLostFocus;
  10581.     property OnClick1: WideString read Get_OnClick write Set_OnClick;
  10582.     property OnDblClick1: WideString read Get_OnDblClick write Set_OnDblClick;
  10583.     property OnMouseDown1: WideString read Get_OnMouseDown write Set_OnMouseDown;
  10584.     property OnMouseMove1: WideString read Get_OnMouseMove write Set_OnMouseMove;
  10585.     property OnMouseUp1: WideString read Get_OnMouseUp write Set_OnMouseUp;
  10586.     property OnKeyDown1: WideString read Get_OnKeyDown write Set_OnKeyDown;
  10587.     property OnKeyUp1: WideString read Get_OnKeyUp write Set_OnKeyUp;
  10588.     property OnKeyPress1: WideString read Get_OnKeyPress write Set_OnKeyPress;
  10589.     property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
  10590.     property OnError1: WideString read Get_OnError write Set_OnError;
  10591.     property OnFilter1: WideString read Get_OnFilter write Set_OnFilter;
  10592.     property OnApplyFilter1: WideString read Get_OnApplyFilter write Set_OnApplyFilter;
  10593.     property OnTimer1: WideString read Get_OnTimer write Set_OnTimer;
  10594.     property TimerInterval: Integer read Get_TimerInterval write Set_TimerInterval;
  10595.     property Dirty: WordBool read Get_Dirty write Set_Dirty;
  10596.     property WindowWidth: Smallint read Get_WindowWidth write Set_WindowWidth;
  10597.     property WindowHeight: Smallint read Get_WindowHeight write Set_WindowHeight;
  10598.     property CurrentView: Smallint read Get_CurrentView write Set_CurrentView;
  10599.     property CurrentSectionTop: Smallint read Get_CurrentSectionTop write Set_CurrentSectionTop;
  10600.     property CurrentSectionLeft: Smallint read Get_CurrentSectionLeft write Set_CurrentSectionLeft;
  10601.     property SelLeft: Integer read Get_SelLeft write Set_SelLeft;
  10602.     property SelTop: Integer read Get_SelTop write Set_SelTop;
  10603.     property SelWidth: Integer read Get_SelWidth write Set_SelWidth;
  10604.     property SelHeight: Integer read Get_SelHeight write Set_SelHeight;
  10605.     property CurrentRecord: Integer read Get_CurrentRecord write Set_CurrentRecord;
  10606.     property InsideHeight: Integer read Get_InsideHeight write Set_InsideHeight;
  10607.     property InsideWidth: Integer read Get_InsideWidth write Set_InsideWidth;
  10608.     property HasModule: WordBool read Get_HasModule write Set_HasModule;
  10609.   end;
  10610. {$ENDIF}
  10611.  
  10612.  
  10613. // *********************************************************************//
  10614. // The Class CoAccessReport provides a Create and CreateRemote method to          
  10615. // create instances of the default interface _Report exposed by              
  10616. // the CoClass AccessReport. The functions are intended to be used by             
  10617. // clients wishing to automate the CoClass objects exposed by the         
  10618. // server of this typelibrary.                                            
  10619. // *********************************************************************//
  10620.   CoAccessReport = class
  10621.     class function Create: _Report;
  10622.     class function CreateRemote(const MachineName: string): _Report;
  10623.   end;
  10624.  
  10625.   TAccessReportOpen = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  10626.   TAccessReportError = procedure(Sender: TObject; var DataErr: OleVariant;var Response: OleVariant) of object;
  10627.   TAccessReportNoData = procedure(Sender: TObject; var Cancel: OleVariant) of object;
  10628.  
  10629.  
  10630. // *********************************************************************//
  10631. // OLE Server Proxy class declaration
  10632. // Server Object    : TAccessReport
  10633. // Help String      : 
  10634. // Default Interface: _Report
  10635. // Def. Intf. DISP? : No
  10636. // Event   Interface: _ReportEvents
  10637. // TypeFlags        : (2) CanCreate
  10638. // *********************************************************************//
  10639. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10640.   TAccessReportProperties= class;
  10641. {$ENDIF}
  10642.   TAccessReport = class(TOleServer)
  10643.   private
  10644.     FOnOpen: TAccessReportOpen;
  10645.     FOnClose: TNotifyEvent;
  10646.     FOnActivate: TNotifyEvent;
  10647.     FOnDeactivate: TNotifyEvent;
  10648.     FOnError: TAccessReportError;
  10649.     FOnNoData: TAccessReportNoData;
  10650.     FOnPage: TNotifyEvent;
  10651.     FIntf:        _Report;
  10652. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10653.     FProps:       TAccessReportProperties;
  10654.     function      GetServerProperties: TAccessReportProperties;
  10655. {$ENDIF}
  10656.     function      GetDefaultInterface: _Report;
  10657.   protected
  10658.     procedure InitServerData; override;
  10659.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  10660.     function  Get_FormName: WideString;
  10661.     procedure Set_FormName(const pRet: WideString);
  10662.     function  Get_RecordSource: WideString;
  10663.     procedure Set_RecordSource(const pRet: WideString);
  10664.     function  Get_Filter: WideString;
  10665.     procedure Set_Filter(const pRet: WideString);
  10666.     function  Get_FilterOn: WordBool;
  10667.     procedure Set_FilterOn(pRet: WordBool);
  10668.     function  Get_OrderBy: WideString;
  10669.     procedure Set_OrderBy(const pRet: WideString);
  10670.     function  Get_OrderByOn: WordBool;
  10671.     procedure Set_OrderByOn(pRet: WordBool);
  10672.     function  Get_Caption: WideString;
  10673.     procedure Set_Caption(const pRet: WideString);
  10674.     function  Get_RecordLocks: Byte;
  10675.     procedure Set_RecordLocks(pRet: Byte);
  10676.     function  Get_PageHeader: Byte;
  10677.     procedure Set_PageHeader(pRet: Byte);
  10678.     function  Get_PageFooter: Byte;
  10679.     procedure Set_PageFooter(pRet: Byte);
  10680.     function  Get_DateGrouping: Byte;
  10681.     procedure Set_DateGrouping(pRet: Byte);
  10682.     function  Get_GrpKeepTogether: Byte;
  10683.     procedure Set_GrpKeepTogether(pRet: Byte);
  10684.     function  Get_MinButton: WordBool;
  10685.     procedure Set_MinButton(pRet: WordBool);
  10686.     function  Get_MaxButton: WordBool;
  10687.     procedure Set_MaxButton(pRet: WordBool);
  10688.     function  Get_Width: Smallint;
  10689.     procedure Set_Width(pRet: Smallint);
  10690.     function  Get_Picture: WideString;
  10691.     procedure Set_Picture(const pRet: WideString);
  10692.     function  Get_PictureType: Byte;
  10693.     procedure Set_PictureType(pRet: Byte);
  10694.     function  Get_PictureSizeMode: Byte;
  10695.     procedure Set_PictureSizeMode(pRet: Byte);
  10696.     function  Get_PictureAlignment: Byte;
  10697.     procedure Set_PictureAlignment(pRet: Byte);
  10698.     function  Get_PictureTiling: WordBool;
  10699.     procedure Set_PictureTiling(pRet: WordBool);
  10700.     function  Get_PicturePages: Byte;
  10701.     procedure Set_PicturePages(pRet: Byte);
  10702.     function  Get_MenuBar: WideString;
  10703.     procedure Set_MenuBar(const pRet: WideString);
  10704.     function  Get_Toolbar: WideString;
  10705.     procedure Set_Toolbar(const pRet: WideString);
  10706.     function  Get_ShortcutMenuBar: WideString;
  10707.     procedure Set_ShortcutMenuBar(const pRet: WideString);
  10708.     function  Get_GridX: Smallint;
  10709.     procedure Set_GridX(pRet: Smallint);
  10710.     function  Get_GridY: Smallint;
  10711.     procedure Set_GridY(pRet: Smallint);
  10712.     function  Get_LayoutForPrint: WordBool;
  10713.     procedure Set_LayoutForPrint(pRet: WordBool);
  10714.     function  Get_FastLaserPrinting: WordBool;
  10715.     procedure Set_FastLaserPrinting(pRet: WordBool);
  10716.     function  Get_HelpFile: WideString;
  10717.     procedure Set_HelpFile(const pRet: WideString);
  10718.     function  Get_HelpContextId: Integer;
  10719.     procedure Set_HelpContextId(pRet: Integer);
  10720.     function  Get_Hwnd: Integer;
  10721.     procedure Set_Hwnd(pRet: Integer);
  10722.     function  Get_Count: Smallint;
  10723.     procedure Set_Count(pRet: Smallint);
  10724.     function  Get_Page: Integer;
  10725.     procedure Set_Page(pRet: Integer);
  10726.     function  Get_Pages: Smallint;
  10727.     procedure Set_Pages(pRet: Smallint);
  10728.     function  Get_LogicalPageWidth: Integer;
  10729.     procedure Set_LogicalPageWidth(pRet: Integer);
  10730.     function  Get_LogicalPageHeight: Integer;
  10731.     procedure Set_LogicalPageHeight(pRet: Integer);
  10732.     function  Get_ZoomControl: Integer;
  10733.     procedure Set_ZoomControl(pRet: Integer);
  10734.     function  Get_HasData: Integer;
  10735.     procedure Set_HasData(pRet: Integer);
  10736.     function  Get_Left: Integer;
  10737.     procedure Set_Left(pRet: Integer);
  10738.     function  Get_Top: Integer;
  10739.     procedure Set_Top(pRet: Integer);
  10740.     function  Get_Height: Integer;
  10741.     procedure Set_Height(pRet: Integer);
  10742.     function  Get_PrintSection: WordBool;
  10743.     procedure Set_PrintSection(pRet: WordBool);
  10744.     function  Get_NextRecord: WordBool;
  10745.     procedure Set_NextRecord(pRet: WordBool);
  10746.     function  Get_MoveLayout: WordBool;
  10747.     procedure Set_MoveLayout(pRet: WordBool);
  10748.     function  Get_FormatCount: Smallint;
  10749.     procedure Set_FormatCount(pRet: Smallint);
  10750.     function  Get_PrintCount: Smallint;
  10751.     procedure Set_PrintCount(pRet: Smallint);
  10752.     function  Get_Visible: WordBool;
  10753.     procedure Set_Visible(pRet: WordBool);
  10754.     function  Get_Painting: WordBool;
  10755.     procedure Set_Painting(pRet: WordBool);
  10756.     function  Get_PrtMip: OleVariant;
  10757.     procedure Set_PrtMip(pRet: OleVariant);
  10758.     function  Get_PrtDevMode: OleVariant;
  10759.     procedure Set_PrtDevMode(pRet: OleVariant);
  10760.     function  Get_PrtDevNames: OleVariant;
  10761.     procedure Set_PrtDevNames(pRet: OleVariant);
  10762.     function  Get_ForeColor: Integer;
  10763.     procedure Set_ForeColor(pRet: Integer);
  10764.     function  Get_CurrentX: Single;
  10765.     procedure Set_CurrentX(pRet: Single);
  10766.     function  Get_CurrentY: Single;
  10767.     procedure Set_CurrentY(pRet: Single);
  10768.     function  Get_ScaleHeight: Single;
  10769.     procedure Set_ScaleHeight(pRet: Single);
  10770.     function  Get_ScaleLeft: Single;
  10771.     procedure Set_ScaleLeft(pRet: Single);
  10772.     function  Get_ScaleMode: Smallint;
  10773.     procedure Set_ScaleMode(pRet: Smallint);
  10774.     function  Get_ScaleTop: Single;
  10775.     procedure Set_ScaleTop(pRet: Single);
  10776.     function  Get_ScaleWidth: Single;
  10777.     procedure Set_ScaleWidth(pRet: Single);
  10778.     function  Get_FontBold: Smallint;
  10779.     procedure Set_FontBold(pRet: Smallint);
  10780.     function  Get_FontItalic: Smallint;
  10781.     procedure Set_FontItalic(pRet: Smallint);
  10782.     function  Get_FontName: WideString;
  10783.     procedure Set_FontName(const pRet: WideString);
  10784.     function  Get_FontSize: Smallint;
  10785.     procedure Set_FontSize(pRet: Smallint);
  10786.     function  Get_FontUnderline: Smallint;
  10787.     procedure Set_FontUnderline(pRet: Smallint);
  10788.     function  Get_DrawMode: Smallint;
  10789.     procedure Set_DrawMode(pRet: Smallint);
  10790.     function  Get_DrawStyle: Smallint;
  10791.     procedure Set_DrawStyle(pRet: Smallint);
  10792.     function  Get_DrawWidth: Smallint;
  10793.     procedure Set_DrawWidth(pRet: Smallint);
  10794.     function  Get_FillColor: Integer;
  10795.     procedure Set_FillColor(pRet: Integer);
  10796.     function  Get_FillStyle: Smallint;
  10797.     procedure Set_FillStyle(pRet: Smallint);
  10798.     function  Get_Name: WideString;
  10799.     procedure Set_Name(const pRet: WideString);
  10800.     function  Get_PaletteSource: WideString;
  10801.     procedure Set_PaletteSource(const pRet: WideString);
  10802.     function  Get_Tag: WideString;
  10803.     procedure Set_Tag(const pRet: WideString);
  10804.     function  Get_PaintPalette: OleVariant;
  10805.     procedure Set_PaintPalette(pRet: OleVariant);
  10806.     function  Get_OnMenu: WideString;
  10807.     procedure Set_OnMenu(const pRet: WideString);
  10808.     function  Get_OnOpen: WideString;
  10809.     procedure Set_OnOpen(const pRet: WideString);
  10810.     function  Get_OnClose: WideString;
  10811.     procedure Set_OnClose(const pRet: WideString);
  10812.     function  Get_OnActivate: WideString;
  10813.     procedure Set_OnActivate(const pRet: WideString);
  10814.     function  Get_OnDeactivate: WideString;
  10815.     procedure Set_OnDeactivate(const pRet: WideString);
  10816.     function  Get_OnNoData: WideString;
  10817.     procedure Set_OnNoData(const pRet: WideString);
  10818.     function  Get_OnPage: WideString;
  10819.     procedure Set_OnPage(const pRet: WideString);
  10820.     function  Get_OnError: WideString;
  10821.     procedure Set_OnError(const pRet: WideString);
  10822.     function  Get_Dirty: WordBool;
  10823.     procedure Set_Dirty(pRet: WordBool);
  10824.     function  Get_CurrentRecord: Integer;
  10825.     procedure Set_CurrentRecord(pRet: Integer);
  10826.     function  Get_PictureData: OleVariant;
  10827.     procedure Set_PictureData(pRet: OleVariant);
  10828.     function  Get_PicturePalette: OleVariant;
  10829.     procedure Set_PicturePalette(pRet: OleVariant);
  10830.     function  Get_HasModule: WordBool;
  10831.     procedure Set_HasModule(pRet: WordBool);
  10832.     function  Get_acHiddenCurrentPage: Integer;
  10833.     procedure Set_acHiddenCurrentPage(pRet: Integer);
  10834.     function  Get_Application: Application;
  10835.     function  Get_Parent: IDispatch;
  10836.     function  Get_ActiveControl: AccessControl;
  10837.     function  Get_DefaultControl(ControlType: Integer): AccessControl;
  10838.     function  Get_Section(Index: OleVariant): AccessSection;
  10839.     function  Get_GroupLevel(Index: Integer): AccessGroupLevel;
  10840.     function  Get_Report: AccessReport;
  10841.     function  Get_Module: Module;
  10842.     function  Get_Properties: Properties;
  10843.     function  Get_Controls: Controls;
  10844.   public
  10845.     constructor Create(AOwner: TComponent); override;
  10846.     destructor  Destroy; override;
  10847.     procedure Connect; override;
  10848.     procedure ConnectTo(svrIntf: _Report);
  10849.     procedure Disconnect; override;
  10850.     procedure Circle(flags: Smallint; X: Single; Y: Single; radius: Single; color: Integer; 
  10851.                      start: Single; end_: Single; aspect: Single);
  10852.     procedure Line(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single; color: Integer);
  10853.     procedure PSet(flags: Smallint; X: Single; Y: Single; color: Integer);
  10854.     procedure Scale(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single);
  10855.     function  TextWidth(const Expr: WideString): Single;
  10856.     function  TextHeight(const Expr: WideString): Single;
  10857.     procedure Print(const Expr: WideString);
  10858.     function  _Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant;
  10859.     property  DefaultInterface: _Report read GetDefaultInterface;
  10860.     property MinButton: WordBool read Get_MinButton write Set_MinButton;
  10861.     property MaxButton: WordBool read Get_MaxButton write Set_MaxButton;
  10862.     property LogicalPageWidth: Integer read Get_LogicalPageWidth write Set_LogicalPageWidth;
  10863.     property LogicalPageHeight: Integer read Get_LogicalPageHeight write Set_LogicalPageHeight;
  10864.     property ZoomControl: Integer read Get_ZoomControl write Set_ZoomControl;
  10865.     property PrtMip: OleVariant read Get_PrtMip write Set_PrtMip;
  10866.     property PrtDevMode: OleVariant read Get_PrtDevMode write Set_PrtDevMode;
  10867.     property PrtDevNames: OleVariant read Get_PrtDevNames write Set_PrtDevNames;
  10868.     property PaintPalette: OleVariant read Get_PaintPalette write Set_PaintPalette;
  10869.     property PictureData: OleVariant read Get_PictureData write Set_PictureData;
  10870.     property PicturePalette: OleVariant read Get_PicturePalette write Set_PicturePalette;
  10871.     property acHiddenCurrentPage: Integer read Get_acHiddenCurrentPage write Set_acHiddenCurrentPage;
  10872.     property Application: Application read Get_Application;
  10873.     property Parent: IDispatch read Get_Parent;
  10874.     property ActiveControl: AccessControl read Get_ActiveControl;
  10875.     property DefaultControl[ControlType: Integer]: AccessControl read Get_DefaultControl;
  10876.     property Section[Index: OleVariant]: AccessSection read Get_Section;
  10877.     property GroupLevel[Index: Integer]: AccessGroupLevel read Get_GroupLevel;
  10878.     property Report: AccessReport read Get_Report;
  10879.     property Module: Module read Get_Module;
  10880.     property Properties: Properties read Get_Properties;
  10881.     property Controls: Controls read Get_Controls;
  10882.     property FormName: WideString read Get_FormName write Set_FormName;
  10883.     property RecordSource: WideString read Get_RecordSource write Set_RecordSource;
  10884.     property Filter: WideString read Get_Filter write Set_Filter;
  10885.     property FilterOn: WordBool read Get_FilterOn write Set_FilterOn;
  10886.     property OrderBy: WideString read Get_OrderBy write Set_OrderBy;
  10887.     property OrderByOn: WordBool read Get_OrderByOn write Set_OrderByOn;
  10888.     property Caption: WideString read Get_Caption write Set_Caption;
  10889.     property RecordLocks: Byte read Get_RecordLocks write Set_RecordLocks;
  10890.     property PageHeader: Byte read Get_PageHeader write Set_PageHeader;
  10891.     property PageFooter: Byte read Get_PageFooter write Set_PageFooter;
  10892.     property DateGrouping: Byte read Get_DateGrouping write Set_DateGrouping;
  10893.     property GrpKeepTogether: Byte read Get_GrpKeepTogether write Set_GrpKeepTogether;
  10894.     property Width: Smallint read Get_Width write Set_Width;
  10895.     property Picture: WideString read Get_Picture write Set_Picture;
  10896.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  10897.     property PictureSizeMode: Byte read Get_PictureSizeMode write Set_PictureSizeMode;
  10898.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  10899.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  10900.     property PicturePages: Byte read Get_PicturePages write Set_PicturePages;
  10901.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  10902.     property Toolbar: WideString read Get_Toolbar write Set_Toolbar;
  10903.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  10904.     property GridX: Smallint read Get_GridX write Set_GridX;
  10905.     property GridY: Smallint read Get_GridY write Set_GridY;
  10906.     property LayoutForPrint: WordBool read Get_LayoutForPrint write Set_LayoutForPrint;
  10907.     property FastLaserPrinting: WordBool read Get_FastLaserPrinting write Set_FastLaserPrinting;
  10908.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  10909.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  10910.     property Hwnd: Integer read Get_Hwnd write Set_Hwnd;
  10911.     property Count: Smallint read Get_Count write Set_Count;
  10912.     property Page: Integer read Get_Page write Set_Page;
  10913.     property Pages: Smallint read Get_Pages write Set_Pages;
  10914.     property HasData: Integer read Get_HasData write Set_HasData;
  10915.     property Left: Integer read Get_Left write Set_Left;
  10916.     property Top: Integer read Get_Top write Set_Top;
  10917.     property Height: Integer read Get_Height write Set_Height;
  10918.     property PrintSection: WordBool read Get_PrintSection write Set_PrintSection;
  10919.     property NextRecord: WordBool read Get_NextRecord write Set_NextRecord;
  10920.     property MoveLayout: WordBool read Get_MoveLayout write Set_MoveLayout;
  10921.     property FormatCount: Smallint read Get_FormatCount write Set_FormatCount;
  10922.     property PrintCount: Smallint read Get_PrintCount write Set_PrintCount;
  10923.     property Visible: WordBool read Get_Visible write Set_Visible;
  10924.     property Painting: WordBool read Get_Painting write Set_Painting;
  10925.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  10926.     property CurrentX: Single read Get_CurrentX write Set_CurrentX;
  10927.     property CurrentY: Single read Get_CurrentY write Set_CurrentY;
  10928.     property ScaleHeight: Single read Get_ScaleHeight write Set_ScaleHeight;
  10929.     property ScaleLeft: Single read Get_ScaleLeft write Set_ScaleLeft;
  10930.     property ScaleMode: Smallint read Get_ScaleMode write Set_ScaleMode;
  10931.     property ScaleTop: Single read Get_ScaleTop write Set_ScaleTop;
  10932.     property ScaleWidth: Single read Get_ScaleWidth write Set_ScaleWidth;
  10933.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  10934.     property FontItalic: Smallint read Get_FontItalic write Set_FontItalic;
  10935.     property FontName: WideString read Get_FontName write Set_FontName;
  10936.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  10937.     property FontUnderline: Smallint read Get_FontUnderline write Set_FontUnderline;
  10938.     property DrawMode: Smallint read Get_DrawMode write Set_DrawMode;
  10939.     property DrawStyle: Smallint read Get_DrawStyle write Set_DrawStyle;
  10940.     property DrawWidth: Smallint read Get_DrawWidth write Set_DrawWidth;
  10941.     property FillColor: Integer read Get_FillColor write Set_FillColor;
  10942.     property FillStyle: Smallint read Get_FillStyle write Set_FillStyle;
  10943.     property Name: WideString read Get_Name write Set_Name;
  10944.     property PaletteSource: WideString read Get_PaletteSource write Set_PaletteSource;
  10945.     property Tag: WideString read Get_Tag write Set_Tag;
  10946.     property OnMenu: WideString read Get_OnMenu write Set_OnMenu;
  10947.     property OnOpen1: WideString read Get_OnOpen write Set_OnOpen;
  10948.     property OnClose1: WideString read Get_OnClose write Set_OnClose;
  10949.     property OnActivate1: WideString read Get_OnActivate write Set_OnActivate;
  10950.     property OnDeactivate1: WideString read Get_OnDeactivate write Set_OnDeactivate;
  10951.     property OnNoData1: WideString read Get_OnNoData write Set_OnNoData;
  10952.     property OnPage1: WideString read Get_OnPage write Set_OnPage;
  10953.     property OnError1: WideString read Get_OnError write Set_OnError;
  10954.     property Dirty: WordBool read Get_Dirty write Set_Dirty;
  10955.     property CurrentRecord: Integer read Get_CurrentRecord write Set_CurrentRecord;
  10956.     property HasModule: WordBool read Get_HasModule write Set_HasModule;
  10957.   published
  10958. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10959.     property Server: TAccessReportProperties read GetServerProperties;
  10960. {$ENDIF}
  10961.     property OnOpen: TAccessReportOpen read FOnOpen write FOnOpen;
  10962.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  10963.     property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
  10964.     property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
  10965.     property OnError: TAccessReportError read FOnError write FOnError;
  10966.     property OnNoData: TAccessReportNoData read FOnNoData write FOnNoData;
  10967.     property OnPage: TNotifyEvent read FOnPage write FOnPage;
  10968.   end;
  10969.  
  10970. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10971. // *********************************************************************//
  10972. // OLE Server Properties Proxy Class
  10973. // Server Object    : TAccessReport
  10974. // (This object is used by the IDE's Property Inspector to allow editing
  10975. //  of the properties of this server)
  10976. // *********************************************************************//
  10977.  TAccessReportProperties = class(TPersistent)
  10978.   private
  10979.     FServer:    TAccessReport;
  10980.     function    GetDefaultInterface: _Report;
  10981.     constructor Create(AServer: TAccessReport);
  10982.   protected
  10983.     function  Get_FormName: WideString;
  10984.     procedure Set_FormName(const pRet: WideString);
  10985.     function  Get_RecordSource: WideString;
  10986.     procedure Set_RecordSource(const pRet: WideString);
  10987.     function  Get_Filter: WideString;
  10988.     procedure Set_Filter(const pRet: WideString);
  10989.     function  Get_FilterOn: WordBool;
  10990.     procedure Set_FilterOn(pRet: WordBool);
  10991.     function  Get_OrderBy: WideString;
  10992.     procedure Set_OrderBy(const pRet: WideString);
  10993.     function  Get_OrderByOn: WordBool;
  10994.     procedure Set_OrderByOn(pRet: WordBool);
  10995.     function  Get_Caption: WideString;
  10996.     procedure Set_Caption(const pRet: WideString);
  10997.     function  Get_RecordLocks: Byte;
  10998.     procedure Set_RecordLocks(pRet: Byte);
  10999.     function  Get_PageHeader: Byte;
  11000.     procedure Set_PageHeader(pRet: Byte);
  11001.     function  Get_PageFooter: Byte;
  11002.     procedure Set_PageFooter(pRet: Byte);
  11003.     function  Get_DateGrouping: Byte;
  11004.     procedure Set_DateGrouping(pRet: Byte);
  11005.     function  Get_GrpKeepTogether: Byte;
  11006.     procedure Set_GrpKeepTogether(pRet: Byte);
  11007.     function  Get_MinButton: WordBool;
  11008.     procedure Set_MinButton(pRet: WordBool);
  11009.     function  Get_MaxButton: WordBool;
  11010.     procedure Set_MaxButton(pRet: WordBool);
  11011.     function  Get_Width: Smallint;
  11012.     procedure Set_Width(pRet: Smallint);
  11013.     function  Get_Picture: WideString;
  11014.     procedure Set_Picture(const pRet: WideString);
  11015.     function  Get_PictureType: Byte;
  11016.     procedure Set_PictureType(pRet: Byte);
  11017.     function  Get_PictureSizeMode: Byte;
  11018.     procedure Set_PictureSizeMode(pRet: Byte);
  11019.     function  Get_PictureAlignment: Byte;
  11020.     procedure Set_PictureAlignment(pRet: Byte);
  11021.     function  Get_PictureTiling: WordBool;
  11022.     procedure Set_PictureTiling(pRet: WordBool);
  11023.     function  Get_PicturePages: Byte;
  11024.     procedure Set_PicturePages(pRet: Byte);
  11025.     function  Get_MenuBar: WideString;
  11026.     procedure Set_MenuBar(const pRet: WideString);
  11027.     function  Get_Toolbar: WideString;
  11028.     procedure Set_Toolbar(const pRet: WideString);
  11029.     function  Get_ShortcutMenuBar: WideString;
  11030.     procedure Set_ShortcutMenuBar(const pRet: WideString);
  11031.     function  Get_GridX: Smallint;
  11032.     procedure Set_GridX(pRet: Smallint);
  11033.     function  Get_GridY: Smallint;
  11034.     procedure Set_GridY(pRet: Smallint);
  11035.     function  Get_LayoutForPrint: WordBool;
  11036.     procedure Set_LayoutForPrint(pRet: WordBool);
  11037.     function  Get_FastLaserPrinting: WordBool;
  11038.     procedure Set_FastLaserPrinting(pRet: WordBool);
  11039.     function  Get_HelpFile: WideString;
  11040.     procedure Set_HelpFile(const pRet: WideString);
  11041.     function  Get_HelpContextId: Integer;
  11042.     procedure Set_HelpContextId(pRet: Integer);
  11043.     function  Get_Hwnd: Integer;
  11044.     procedure Set_Hwnd(pRet: Integer);
  11045.     function  Get_Count: Smallint;
  11046.     procedure Set_Count(pRet: Smallint);
  11047.     function  Get_Page: Integer;
  11048.     procedure Set_Page(pRet: Integer);
  11049.     function  Get_Pages: Smallint;
  11050.     procedure Set_Pages(pRet: Smallint);
  11051.     function  Get_LogicalPageWidth: Integer;
  11052.     procedure Set_LogicalPageWidth(pRet: Integer);
  11053.     function  Get_LogicalPageHeight: Integer;
  11054.     procedure Set_LogicalPageHeight(pRet: Integer);
  11055.     function  Get_ZoomControl: Integer;
  11056.     procedure Set_ZoomControl(pRet: Integer);
  11057.     function  Get_HasData: Integer;
  11058.     procedure Set_HasData(pRet: Integer);
  11059.     function  Get_Left: Integer;
  11060.     procedure Set_Left(pRet: Integer);
  11061.     function  Get_Top: Integer;
  11062.     procedure Set_Top(pRet: Integer);
  11063.     function  Get_Height: Integer;
  11064.     procedure Set_Height(pRet: Integer);
  11065.     function  Get_PrintSection: WordBool;
  11066.     procedure Set_PrintSection(pRet: WordBool);
  11067.     function  Get_NextRecord: WordBool;
  11068.     procedure Set_NextRecord(pRet: WordBool);
  11069.     function  Get_MoveLayout: WordBool;
  11070.     procedure Set_MoveLayout(pRet: WordBool);
  11071.     function  Get_FormatCount: Smallint;
  11072.     procedure Set_FormatCount(pRet: Smallint);
  11073.     function  Get_PrintCount: Smallint;
  11074.     procedure Set_PrintCount(pRet: Smallint);
  11075.     function  Get_Visible: WordBool;
  11076.     procedure Set_Visible(pRet: WordBool);
  11077.     function  Get_Painting: WordBool;
  11078.     procedure Set_Painting(pRet: WordBool);
  11079.     function  Get_PrtMip: OleVariant;
  11080.     procedure Set_PrtMip(pRet: OleVariant);
  11081.     function  Get_PrtDevMode: OleVariant;
  11082.     procedure Set_PrtDevMode(pRet: OleVariant);
  11083.     function  Get_PrtDevNames: OleVariant;
  11084.     procedure Set_PrtDevNames(pRet: OleVariant);
  11085.     function  Get_ForeColor: Integer;
  11086.     procedure Set_ForeColor(pRet: Integer);
  11087.     function  Get_CurrentX: Single;
  11088.     procedure Set_CurrentX(pRet: Single);
  11089.     function  Get_CurrentY: Single;
  11090.     procedure Set_CurrentY(pRet: Single);
  11091.     function  Get_ScaleHeight: Single;
  11092.     procedure Set_ScaleHeight(pRet: Single);
  11093.     function  Get_ScaleLeft: Single;
  11094.     procedure Set_ScaleLeft(pRet: Single);
  11095.     function  Get_ScaleMode: Smallint;
  11096.     procedure Set_ScaleMode(pRet: Smallint);
  11097.     function  Get_ScaleTop: Single;
  11098.     procedure Set_ScaleTop(pRet: Single);
  11099.     function  Get_ScaleWidth: Single;
  11100.     procedure Set_ScaleWidth(pRet: Single);
  11101.     function  Get_FontBold: Smallint;
  11102.     procedure Set_FontBold(pRet: Smallint);
  11103.     function  Get_FontItalic: Smallint;
  11104.     procedure Set_FontItalic(pRet: Smallint);
  11105.     function  Get_FontName: WideString;
  11106.     procedure Set_FontName(const pRet: WideString);
  11107.     function  Get_FontSize: Smallint;
  11108.     procedure Set_FontSize(pRet: Smallint);
  11109.     function  Get_FontUnderline: Smallint;
  11110.     procedure Set_FontUnderline(pRet: Smallint);
  11111.     function  Get_DrawMode: Smallint;
  11112.     procedure Set_DrawMode(pRet: Smallint);
  11113.     function  Get_DrawStyle: Smallint;
  11114.     procedure Set_DrawStyle(pRet: Smallint);
  11115.     function  Get_DrawWidth: Smallint;
  11116.     procedure Set_DrawWidth(pRet: Smallint);
  11117.     function  Get_FillColor: Integer;
  11118.     procedure Set_FillColor(pRet: Integer);
  11119.     function  Get_FillStyle: Smallint;
  11120.     procedure Set_FillStyle(pRet: Smallint);
  11121.     function  Get_Name: WideString;
  11122.     procedure Set_Name(const pRet: WideString);
  11123.     function  Get_PaletteSource: WideString;
  11124.     procedure Set_PaletteSource(const pRet: WideString);
  11125.     function  Get_Tag: WideString;
  11126.     procedure Set_Tag(const pRet: WideString);
  11127.     function  Get_PaintPalette: OleVariant;
  11128.     procedure Set_PaintPalette(pRet: OleVariant);
  11129.     function  Get_OnMenu: WideString;
  11130.     procedure Set_OnMenu(const pRet: WideString);
  11131.     function  Get_OnOpen: WideString;
  11132.     procedure Set_OnOpen(const pRet: WideString);
  11133.     function  Get_OnClose: WideString;
  11134.     procedure Set_OnClose(const pRet: WideString);
  11135.     function  Get_OnActivate: WideString;
  11136.     procedure Set_OnActivate(const pRet: WideString);
  11137.     function  Get_OnDeactivate: WideString;
  11138.     procedure Set_OnDeactivate(const pRet: WideString);
  11139.     function  Get_OnNoData: WideString;
  11140.     procedure Set_OnNoData(const pRet: WideString);
  11141.     function  Get_OnPage: WideString;
  11142.     procedure Set_OnPage(const pRet: WideString);
  11143.     function  Get_OnError: WideString;
  11144.     procedure Set_OnError(const pRet: WideString);
  11145.     function  Get_Dirty: WordBool;
  11146.     procedure Set_Dirty(pRet: WordBool);
  11147.     function  Get_CurrentRecord: Integer;
  11148.     procedure Set_CurrentRecord(pRet: Integer);
  11149.     function  Get_PictureData: OleVariant;
  11150.     procedure Set_PictureData(pRet: OleVariant);
  11151.     function  Get_PicturePalette: OleVariant;
  11152.     procedure Set_PicturePalette(pRet: OleVariant);
  11153.     function  Get_HasModule: WordBool;
  11154.     procedure Set_HasModule(pRet: WordBool);
  11155.     function  Get_acHiddenCurrentPage: Integer;
  11156.     procedure Set_acHiddenCurrentPage(pRet: Integer);
  11157.     function  Get_Application: Application;
  11158.     function  Get_Parent: IDispatch;
  11159.     function  Get_ActiveControl: AccessControl;
  11160.     function  Get_DefaultControl(ControlType: Integer): AccessControl;
  11161.     function  Get_Section(Index: OleVariant): AccessSection;
  11162.     function  Get_GroupLevel(Index: Integer): AccessGroupLevel;
  11163.     function  Get_Report: AccessReport;
  11164.     function  Get_Module: Module;
  11165.     function  Get_Properties: Properties;
  11166.     function  Get_Controls: Controls;
  11167.   public
  11168.     property DefaultInterface: _Report read GetDefaultInterface;
  11169.   published
  11170.     property FormName: WideString read Get_FormName write Set_FormName;
  11171.     property RecordSource: WideString read Get_RecordSource write Set_RecordSource;
  11172.     property Filter: WideString read Get_Filter write Set_Filter;
  11173.     property FilterOn: WordBool read Get_FilterOn write Set_FilterOn;
  11174.     property OrderBy: WideString read Get_OrderBy write Set_OrderBy;
  11175.     property OrderByOn: WordBool read Get_OrderByOn write Set_OrderByOn;
  11176.     property Caption: WideString read Get_Caption write Set_Caption;
  11177.     property RecordLocks: Byte read Get_RecordLocks write Set_RecordLocks;
  11178.     property PageHeader: Byte read Get_PageHeader write Set_PageHeader;
  11179.     property PageFooter: Byte read Get_PageFooter write Set_PageFooter;
  11180.     property DateGrouping: Byte read Get_DateGrouping write Set_DateGrouping;
  11181.     property GrpKeepTogether: Byte read Get_GrpKeepTogether write Set_GrpKeepTogether;
  11182.     property Width: Smallint read Get_Width write Set_Width;
  11183.     property Picture: WideString read Get_Picture write Set_Picture;
  11184.     property PictureType: Byte read Get_PictureType write Set_PictureType;
  11185.     property PictureSizeMode: Byte read Get_PictureSizeMode write Set_PictureSizeMode;
  11186.     property PictureAlignment: Byte read Get_PictureAlignment write Set_PictureAlignment;
  11187.     property PictureTiling: WordBool read Get_PictureTiling write Set_PictureTiling;
  11188.     property PicturePages: Byte read Get_PicturePages write Set_PicturePages;
  11189.     property MenuBar: WideString read Get_MenuBar write Set_MenuBar;
  11190.     property Toolbar: WideString read Get_Toolbar write Set_Toolbar;
  11191.     property ShortcutMenuBar: WideString read Get_ShortcutMenuBar write Set_ShortcutMenuBar;
  11192.     property GridX: Smallint read Get_GridX write Set_GridX;
  11193.     property GridY: Smallint read Get_GridY write Set_GridY;
  11194.     property LayoutForPrint: WordBool read Get_LayoutForPrint write Set_LayoutForPrint;
  11195.     property FastLaserPrinting: WordBool read Get_FastLaserPrinting write Set_FastLaserPrinting;
  11196.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  11197.     property HelpContextId: Integer read Get_HelpContextId write Set_HelpContextId;
  11198.     property Hwnd: Integer read Get_Hwnd write Set_Hwnd;
  11199.     property Count: Smallint read Get_Count write Set_Count;
  11200.     property Page: Integer read Get_Page write Set_Page;
  11201.     property Pages: Smallint read Get_Pages write Set_Pages;
  11202.     property HasData: Integer read Get_HasData write Set_HasData;
  11203.     property Left: Integer read Get_Left write Set_Left;
  11204.     property Top: Integer read Get_Top write Set_Top;
  11205.     property Height: Integer read Get_Height write Set_Height;
  11206.     property PrintSection: WordBool read Get_PrintSection write Set_PrintSection;
  11207.     property NextRecord: WordBool read Get_NextRecord write Set_NextRecord;
  11208.     property MoveLayout: WordBool read Get_MoveLayout write Set_MoveLayout;
  11209.     property FormatCount: Smallint read Get_FormatCount write Set_FormatCount;
  11210.     property PrintCount: Smallint read Get_PrintCount write Set_PrintCount;
  11211.     property Visible: WordBool read Get_Visible write Set_Visible;
  11212.     property Painting: WordBool read Get_Painting write Set_Painting;
  11213.     property ForeColor: Integer read Get_ForeColor write Set_ForeColor;
  11214.     property CurrentX: Single read Get_CurrentX write Set_CurrentX;
  11215.     property CurrentY: Single read Get_CurrentY write Set_CurrentY;
  11216.     property ScaleHeight: Single read Get_ScaleHeight write Set_ScaleHeight;
  11217.     property ScaleLeft: Single read Get_ScaleLeft write Set_ScaleLeft;
  11218.     property ScaleMode: Smallint read Get_ScaleMode write Set_ScaleMode;
  11219.     property ScaleTop: Single read Get_ScaleTop write Set_ScaleTop;
  11220.     property ScaleWidth: Single read Get_ScaleWidth write Set_ScaleWidth;
  11221.     property FontBold: Smallint read Get_FontBold write Set_FontBold;
  11222.     property FontItalic: Smallint read Get_FontItalic write Set_FontItalic;
  11223.     property FontName: WideString read Get_FontName write Set_FontName;
  11224.     property FontSize: Smallint read Get_FontSize write Set_FontSize;
  11225.     property FontUnderline: Smallint read Get_FontUnderline write Set_FontUnderline;
  11226.     property DrawMode: Smallint read Get_DrawMode write Set_DrawMode;
  11227.     property DrawStyle: Smallint read Get_DrawStyle write Set_DrawStyle;
  11228.     property DrawWidth: Smallint read Get_DrawWidth write Set_DrawWidth;
  11229.     property FillColor: Integer read Get_FillColor write Set_FillColor;
  11230.     property FillStyle: Smallint read Get_FillStyle write Set_FillStyle;
  11231.     property Name: WideString read Get_Name write Set_Name;
  11232.     property PaletteSource: WideString read Get_PaletteSource write Set_PaletteSource;
  11233.     property Tag: WideString read Get_Tag write Set_Tag;
  11234.     property OnMenu: WideString read Get_OnMenu write Set_OnMenu;
  11235.     property OnOpen1: WideString read Get_OnOpen write Set_OnOpen;
  11236.     property OnClose1: WideString read Get_OnClose write Set_OnClose;
  11237.     property OnActivate1: WideString read Get_OnActivate write Set_OnActivate;
  11238.     property OnDeactivate1: WideString read Get_OnDeactivate write Set_OnDeactivate;
  11239.     property OnNoData1: WideString read Get_OnNoData write Set_OnNoData;
  11240.     property OnPage1: WideString read Get_OnPage write Set_OnPage;
  11241.     property OnError1: WideString read Get_OnError write Set_OnError;
  11242.     property Dirty: WordBool read Get_Dirty write Set_Dirty;
  11243.     property CurrentRecord: Integer read Get_CurrentRecord write Set_CurrentRecord;
  11244.     property HasModule: WordBool read Get_HasModule write Set_HasModule;
  11245.   end;
  11246. {$ENDIF}
  11247.  
  11248.  
  11249. // *********************************************************************//
  11250. // The Class CoApplication provides a Create and CreateRemote method to          
  11251. // create instances of the default interface _Application exposed by              
  11252. // the CoClass Application. The functions are intended to be used by             
  11253. // clients wishing to automate the CoClass objects exposed by the         
  11254. // server of this typelibrary.                                            
  11255. // *********************************************************************//
  11256.   CoApplication = class
  11257.     class function Create: _Application;
  11258.     class function CreateRemote(const MachineName: string): _Application;
  11259.   end;
  11260.  
  11261. // *********************************************************************//
  11262. // The Class CoAccessReferences provides a Create and CreateRemote method to          
  11263. // create instances of the default interface _References exposed by              
  11264. // the CoClass AccessReferences. The functions are intended to be used by             
  11265. // clients wishing to automate the CoClass objects exposed by the         
  11266. // server of this typelibrary.                                            
  11267. // *********************************************************************//
  11268.   CoAccessReferences = class
  11269.     class function Create: _References;
  11270.     class function CreateRemote(const MachineName: string): _References;
  11271.   end;
  11272.  
  11273.   TAccessReferencesItemAdded = procedure(Sender: TObject; var Reference: OleVariant) of object;
  11274.   TAccessReferencesItemRemoved = procedure(Sender: TObject; var Reference: OleVariant) of object;
  11275.  
  11276.  
  11277. // *********************************************************************//
  11278. // OLE Server Proxy class declaration
  11279. // Server Object    : TAccessReferences
  11280. // Help String      : 
  11281. // Default Interface: _References
  11282. // Def. Intf. DISP? : No
  11283. // Event   Interface: _References_Events
  11284. // TypeFlags        : (2) CanCreate
  11285. // *********************************************************************//
  11286. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11287.   TAccessReferencesProperties= class;
  11288. {$ENDIF}
  11289.   TAccessReferences = class(TOleServer)
  11290.   private
  11291.     FOnItemAdded: TAccessReferencesItemAdded;
  11292.     FOnItemRemoved: TAccessReferencesItemRemoved;
  11293.     FIntf:        _References;
  11294. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11295.     FProps:       TAccessReferencesProperties;
  11296.     function      GetServerProperties: TAccessReferencesProperties;
  11297. {$ENDIF}
  11298.     function      GetDefaultInterface: _References;
  11299.   protected
  11300.     procedure InitServerData; override;
  11301.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  11302.     function  Get_Parent: IDispatch;
  11303.     function  Get_Count: Integer;
  11304.   public
  11305.     constructor Create(AOwner: TComponent); override;
  11306.     destructor  Destroy; override;
  11307.     procedure Connect; override;
  11308.     procedure ConnectTo(svrIntf: _References);
  11309.     procedure Disconnect; override;
  11310.     function  Item(var_: OleVariant): Reference;
  11311.     function  _NewEnum: IUnknown;
  11312.     function  AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference;
  11313.     function  AddFromFile(const FileName: WideString): Reference;
  11314.     procedure Remove(const Reference: Reference);
  11315.     property  DefaultInterface: _References read GetDefaultInterface;
  11316.     property Parent: IDispatch read Get_Parent;
  11317.     property Count: Integer read Get_Count;
  11318.   published
  11319. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11320.     property Server: TAccessReferencesProperties read GetServerProperties;
  11321. {$ENDIF}
  11322.     property OnItemAdded: TAccessReferencesItemAdded read FOnItemAdded write FOnItemAdded;
  11323.     property OnItemRemoved: TAccessReferencesItemRemoved read FOnItemRemoved write FOnItemRemoved;
  11324.   end;
  11325.  
  11326. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11327. // *********************************************************************//
  11328. // OLE Server Properties Proxy Class
  11329. // Server Object    : TAccessReferences
  11330. // (This object is used by the IDE's Property Inspector to allow editing
  11331. //  of the properties of this server)
  11332. // *********************************************************************//
  11333.  TAccessReferencesProperties = class(TPersistent)
  11334.   private
  11335.     FServer:    TAccessReferences;
  11336.     function    GetDefaultInterface: _References;
  11337.     constructor Create(AServer: TAccessReferences);
  11338.   protected
  11339.     function  Get_Parent: IDispatch;
  11340.     function  Get_Count: Integer;
  11341.   public
  11342.     property DefaultInterface: _References read GetDefaultInterface;
  11343.   published
  11344.   end;
  11345. {$ENDIF}
  11346.  
  11347.  
  11348. // *********************************************************************//
  11349. // The Class CoClass_ provides a Create and CreateRemote method to          
  11350. // create instances of the default interface _Dummy exposed by              
  11351. // the CoClass Class_. The functions are intended to be used by             
  11352. // clients wishing to automate the CoClass objects exposed by the         
  11353. // server of this typelibrary.                                            
  11354. // *********************************************************************//
  11355.   CoClass_ = class
  11356.     class function Create: _Dummy;
  11357.     class function CreateRemote(const MachineName: string): _Dummy;
  11358.   end;
  11359.  
  11360. // *********************************************************************//
  11361. // The Class Co___CodeModule provides a Create and CreateRemote method to          
  11362. // create instances of the default interface ___IVbaModule exposed by              
  11363. // the CoClass ___CodeModule. The functions are intended to be used by             
  11364. // clients wishing to automate the CoClass objects exposed by the         
  11365. // server of this typelibrary.                                            
  11366. // *********************************************************************//
  11367.   Co___CodeModule = class
  11368.     class function Create: ___IVbaModule;
  11369.     class function CreateRemote(const MachineName: string): ___IVbaModule;
  11370.   end;
  11371.  
  11372. // *********************************************************************//
  11373. // The Class Co___Editors provides a Create and CreateRemote method to          
  11374. // create instances of the default interface ___IVbaEditors exposed by              
  11375. // the CoClass ___Editors. The functions are intended to be used by             
  11376. // clients wishing to automate the CoClass objects exposed by the         
  11377. // server of this typelibrary.                                            
  11378. // *********************************************************************//
  11379.   Co___Editors = class
  11380.     class function Create: ___IVbaEditors;
  11381.     class function CreateRemote(const MachineName: string): ___IVbaEditors;
  11382.   end;
  11383.  
  11384. // *********************************************************************//
  11385. // The Class Co___Editor provides a Create and CreateRemote method to          
  11386. // create instances of the default interface ___IVbaEditor exposed by              
  11387. // the CoClass ___Editor. The functions are intended to be used by             
  11388. // clients wishing to automate the CoClass objects exposed by the         
  11389. // server of this typelibrary.                                            
  11390. // *********************************************************************//
  11391.   Co___Editor = class
  11392.     class function Create: ___IVbaEditor;
  11393.     class function CreateRemote(const MachineName: string): ___IVbaEditor;
  11394.   end;
  11395.  
  11396. // *********************************************************************//
  11397. // The Class Co___References provides a Create and CreateRemote method to          
  11398. // create instances of the default interface IVbaReferences exposed by              
  11399. // the CoClass ___References. The functions are intended to be used by             
  11400. // clients wishing to automate the CoClass objects exposed by the         
  11401. // server of this typelibrary.                                            
  11402. // *********************************************************************//
  11403.   Co___References = class
  11404.     class function Create: IVbaReferences;
  11405.     class function CreateRemote(const MachineName: string): IVbaReferences;
  11406.   end;
  11407.  
  11408. procedure Register;
  11409.  
  11410. implementation
  11411.  
  11412. uses ComObj;
  11413.  
  11414. class function CoDoCmd.Create: IDoCmd;
  11415. begin
  11416.   Result := CreateComObject(CLASS_DoCmd) as IDoCmd;
  11417. end;
  11418.  
  11419. class function CoDoCmd.CreateRemote(const MachineName: string): IDoCmd;
  11420. begin
  11421.   Result := CreateRemoteComObject(MachineName, CLASS_DoCmd) as IDoCmd;
  11422. end;
  11423.  
  11424. procedure TDoCmd.InitServerData;
  11425. const
  11426.   CServerData: TServerData = (
  11427.     ClassID:   '{C547E761-9658-101B-81EE-00AA004750E2}';
  11428.     IntfIID:   '{C547E760-9658-101B-81EE-00AA004750E2}';
  11429.     EventIID:  '';
  11430.     LicenseKey: nil;
  11431.     Version: 500);
  11432. begin
  11433.   ServerData := @CServerData;
  11434. end;
  11435.  
  11436. procedure TDoCmd.Connect;
  11437. var
  11438.   punk: IUnknown;
  11439. begin
  11440.   if FIntf = nil then
  11441.   begin
  11442.     punk := GetServer;
  11443.     Fintf:= punk as IDoCmd;
  11444.   end;
  11445. end;
  11446.  
  11447. procedure TDoCmd.ConnectTo(svrIntf: IDoCmd);
  11448. begin
  11449.   Disconnect;
  11450.   FIntf := svrIntf;
  11451. end;
  11452.  
  11453. procedure TDoCmd.DisConnect;
  11454. begin
  11455.   if Fintf <> nil then
  11456.   begin
  11457.     FIntf := nil;
  11458.   end;
  11459. end;
  11460.  
  11461. function TDoCmd.GetDefaultInterface: IDoCmd;
  11462. begin
  11463.   if FIntf = nil then
  11464.     Connect;
  11465.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  11466.   Result := FIntf;
  11467. end;
  11468.  
  11469. constructor TDoCmd.Create(AOwner: TComponent);
  11470. begin
  11471.   inherited Create(AOwner);
  11472. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11473.   FProps := TDoCmdProperties.Create(Self);
  11474. {$ENDIF}
  11475. end;
  11476.  
  11477. destructor TDoCmd.Destroy;
  11478. begin
  11479. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11480.   FProps.Free;
  11481. {$ENDIF}
  11482.   inherited Destroy;
  11483. end;
  11484.  
  11485. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11486. function TDoCmd.GetServerProperties: TDoCmdProperties;
  11487. begin
  11488.   Result := FProps;
  11489. end;
  11490. {$ENDIF}
  11491.  
  11492. procedure TDoCmd.AddMenu(MenuName: OleVariant; MenuMacroName: OleVariant; StatusBarText: OleVariant);
  11493. begin
  11494.   DefaultInterface.AddMenu(MenuName, MenuMacroName, StatusBarText);
  11495. end;
  11496.  
  11497. procedure TDoCmd.ApplyFilter;
  11498. begin
  11499.   DefaultInterface.ApplyFilter(EmptyParam, EmptyParam);
  11500. end;
  11501.  
  11502. procedure TDoCmd.ApplyFilter(FilterName: OleVariant);
  11503. begin
  11504.   DefaultInterface.ApplyFilter(FilterName, EmptyParam);
  11505. end;
  11506.  
  11507. procedure TDoCmd.ApplyFilter(FilterName: OleVariant; WhereCondition: OleVariant);
  11508. begin
  11509.   DefaultInterface.ApplyFilter(FilterName, WhereCondition);
  11510. end;
  11511.  
  11512. procedure TDoCmd.Beep;
  11513. begin
  11514.   DefaultInterface.Beep;
  11515. end;
  11516.  
  11517. procedure TDoCmd.CancelEvent;
  11518. begin
  11519.   DefaultInterface.CancelEvent;
  11520. end;
  11521.  
  11522. procedure TDoCmd.Close(ObjectType: AcObjectType; ObjectName: OleVariant; Save: AcCloseSave);
  11523. begin
  11524.   DefaultInterface.Close(ObjectType, ObjectName, Save);
  11525. end;
  11526.  
  11527. procedure TDoCmd.CopyObject(DestinationDatabase: OleVariant; NewName: OleVariant; 
  11528.                             SourceObjectType: AcObjectType; SourceObjectName: OleVariant);
  11529. begin
  11530.   DefaultInterface.CopyObject(DestinationDatabase, NewName, SourceObjectType, SourceObjectName);
  11531. end;
  11532.  
  11533. procedure TDoCmd.DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant);
  11534. begin
  11535.   DefaultInterface.DoMenuItem(MenuBar, MenuName, Command, EmptyParam, EmptyParam);
  11536. end;
  11537.  
  11538. procedure TDoCmd.DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant; 
  11539.                             Subcommand: OleVariant);
  11540. begin
  11541.   DefaultInterface.DoMenuItem(MenuBar, MenuName, Command, Subcommand, EmptyParam);
  11542. end;
  11543.  
  11544. procedure TDoCmd.DoMenuItem(MenuBar: OleVariant; MenuName: OleVariant; Command: OleVariant; 
  11545.                             Subcommand: OleVariant; Version: OleVariant);
  11546. begin
  11547.   DefaultInterface.DoMenuItem(MenuBar, MenuName, Command, Subcommand, Version);
  11548. end;
  11549.  
  11550. procedure TDoCmd.Echo(EchoOn: OleVariant);
  11551. begin
  11552.   DefaultInterface.Echo(EchoOn, EmptyParam);
  11553. end;
  11554.  
  11555. procedure TDoCmd.Echo(EchoOn: OleVariant; StatusBarText: OleVariant);
  11556. begin
  11557.   DefaultInterface.Echo(EchoOn, StatusBarText);
  11558. end;
  11559.  
  11560. procedure TDoCmd.FindNext;
  11561. begin
  11562.   DefaultInterface.FindNext;
  11563. end;
  11564.  
  11565. procedure TDoCmd.FindRecord(FindWhat: OleVariant; Match: AcFindMatch; MatchCase: OleVariant; 
  11566.                             Search: AcSearchDirection; SearchAsFormatted: OleVariant; 
  11567.                             OnlyCurrentField: AcFindField; FindFirst: OleVariant);
  11568. begin
  11569.   DefaultInterface.FindRecord(FindWhat, Match, MatchCase, Search, SearchAsFormatted, 
  11570.                               OnlyCurrentField, FindFirst);
  11571. end;
  11572.  
  11573. procedure TDoCmd.GoToControl(ControlName: OleVariant);
  11574. begin
  11575.   DefaultInterface.GoToControl(ControlName);
  11576. end;
  11577.  
  11578. procedure TDoCmd.GoToPage(PageNumber: OleVariant);
  11579. begin
  11580.   DefaultInterface.GoToPage(PageNumber, EmptyParam, EmptyParam);
  11581. end;
  11582.  
  11583. procedure TDoCmd.GoToPage(PageNumber: OleVariant; Right: OleVariant);
  11584. begin
  11585.   DefaultInterface.GoToPage(PageNumber, Right, EmptyParam);
  11586. end;
  11587.  
  11588. procedure TDoCmd.GoToPage(PageNumber: OleVariant; Right: OleVariant; Down: OleVariant);
  11589. begin
  11590.   DefaultInterface.GoToPage(PageNumber, Right, Down);
  11591. end;
  11592.  
  11593. procedure TDoCmd.GoToRecord(ObjectType: AcDataObjectType; ObjectName: OleVariant; 
  11594.                             Record_: AcRecord; Offset: OleVariant);
  11595. begin
  11596.   DefaultInterface.GoToRecord(ObjectType, ObjectName, Record_, Offset);
  11597. end;
  11598.  
  11599. procedure TDoCmd.Hourglass(HourglassOn: OleVariant);
  11600. begin
  11601.   DefaultInterface.Hourglass(HourglassOn);
  11602. end;
  11603.  
  11604. procedure TDoCmd.Maximize;
  11605. begin
  11606.   DefaultInterface.Maximize;
  11607. end;
  11608.  
  11609. procedure TDoCmd.Minimize;
  11610. begin
  11611.   DefaultInterface.Minimize;
  11612. end;
  11613.  
  11614. procedure TDoCmd.MoveSize;
  11615. begin
  11616.   DefaultInterface.MoveSize(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11617. end;
  11618.  
  11619. procedure TDoCmd.MoveSize(Right: OleVariant);
  11620. begin
  11621.   DefaultInterface.MoveSize(Right, EmptyParam, EmptyParam, EmptyParam);
  11622. end;
  11623.  
  11624. procedure TDoCmd.MoveSize(Right: OleVariant; Down: OleVariant);
  11625. begin
  11626.   DefaultInterface.MoveSize(Right, Down, EmptyParam, EmptyParam);
  11627. end;
  11628.  
  11629. procedure TDoCmd.MoveSize(Right: OleVariant; Down: OleVariant; Width: OleVariant);
  11630. begin
  11631.   DefaultInterface.MoveSize(Right, Down, Width, EmptyParam);
  11632. end;
  11633.  
  11634. procedure TDoCmd.MoveSize(Right: OleVariant; Down: OleVariant; Width: OleVariant; Height: OleVariant);
  11635. begin
  11636.   DefaultInterface.MoveSize(Right, Down, Width, Height);
  11637. end;
  11638.  
  11639. procedure TDoCmd.OpenForm(FormName: OleVariant; View: AcFormView; FilterName: OleVariant; 
  11640.                           WhereCondition: OleVariant; DataMode: AcFormOpenDataMode; 
  11641.                           WindowMode: AcWindowMode; OpenArgs: OleVariant);
  11642. begin
  11643.   DefaultInterface.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, 
  11644.                             OpenArgs);
  11645. end;
  11646.  
  11647. procedure TDoCmd.OpenQuery(QueryName: OleVariant; View: AcView; DataMode: AcOpenDataMode);
  11648. begin
  11649.   DefaultInterface.OpenQuery(QueryName, View, DataMode);
  11650. end;
  11651.  
  11652. procedure TDoCmd.OpenTable(TableName: OleVariant; View: AcView; DataMode: AcOpenDataMode);
  11653. begin
  11654.   DefaultInterface.OpenTable(TableName, View, DataMode);
  11655. end;
  11656.  
  11657. procedure TDoCmd.PrintOut(PrintRange: AcPrintRange; PageFrom: OleVariant; PageTo: OleVariant; 
  11658.                           PrintQuality: AcPrintQuality; Copies: OleVariant; 
  11659.                           CollateCopies: OleVariant);
  11660. begin
  11661.   DefaultInterface.PrintOut(PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies);
  11662. end;
  11663.  
  11664. procedure TDoCmd.Quit(Options: AcQuitOption);
  11665. begin
  11666.   DefaultInterface.Quit(Options);
  11667. end;
  11668.  
  11669. procedure TDoCmd.Requery;
  11670. begin
  11671.   DefaultInterface.Requery(EmptyParam);
  11672. end;
  11673.  
  11674. procedure TDoCmd.Requery(ControlName: OleVariant);
  11675. begin
  11676.   DefaultInterface.Requery(ControlName);
  11677. end;
  11678.  
  11679. procedure TDoCmd.RepaintObject(ObjectType: AcObjectType);
  11680. begin
  11681.   DefaultInterface.RepaintObject(ObjectType, EmptyParam);
  11682. end;
  11683.  
  11684. procedure TDoCmd.RepaintObject(ObjectType: AcObjectType; ObjectName: OleVariant);
  11685. begin
  11686.   DefaultInterface.RepaintObject(ObjectType, ObjectName);
  11687. end;
  11688.  
  11689. procedure TDoCmd.Rename(NewName: OleVariant; ObjectType: AcObjectType);
  11690. begin
  11691.   DefaultInterface.Rename(NewName, ObjectType, EmptyParam);
  11692. end;
  11693.  
  11694. procedure TDoCmd.Rename(NewName: OleVariant; ObjectType: AcObjectType; OldName: OleVariant);
  11695. begin
  11696.   DefaultInterface.Rename(NewName, ObjectType, OldName);
  11697. end;
  11698.  
  11699. procedure TDoCmd.Restore;
  11700. begin
  11701.   DefaultInterface.Restore;
  11702. end;
  11703.  
  11704. procedure TDoCmd.RunMacro(MacroName: OleVariant);
  11705. begin
  11706.   DefaultInterface.RunMacro(MacroName, EmptyParam, EmptyParam);
  11707. end;
  11708.  
  11709. procedure TDoCmd.RunMacro(MacroName: OleVariant; RepeatCount: OleVariant);
  11710. begin
  11711.   DefaultInterface.RunMacro(MacroName, RepeatCount, EmptyParam);
  11712. end;
  11713.  
  11714. procedure TDoCmd.RunMacro(MacroName: OleVariant; RepeatCount: OleVariant; 
  11715.                           RepeatExpression: OleVariant);
  11716. begin
  11717.   DefaultInterface.RunMacro(MacroName, RepeatCount, RepeatExpression);
  11718. end;
  11719.  
  11720. procedure TDoCmd.RunSQL(SQLStatement: OleVariant);
  11721. begin
  11722.   DefaultInterface.RunSQL(SQLStatement, EmptyParam);
  11723. end;
  11724.  
  11725. procedure TDoCmd.RunSQL(SQLStatement: OleVariant; UseTransaction: OleVariant);
  11726. begin
  11727.   DefaultInterface.RunSQL(SQLStatement, UseTransaction);
  11728. end;
  11729.  
  11730. procedure TDoCmd.SelectObject(ObjectType: AcObjectType);
  11731. begin
  11732.   DefaultInterface.SelectObject(ObjectType, EmptyParam, EmptyParam);
  11733. end;
  11734.  
  11735. procedure TDoCmd.SelectObject(ObjectType: AcObjectType; ObjectName: OleVariant);
  11736. begin
  11737.   DefaultInterface.SelectObject(ObjectType, ObjectName, EmptyParam);
  11738. end;
  11739.  
  11740. procedure TDoCmd.SelectObject(ObjectType: AcObjectType; ObjectName: OleVariant; 
  11741.                               InDatabaseWindow: OleVariant);
  11742. begin
  11743.   DefaultInterface.SelectObject(ObjectType, ObjectName, InDatabaseWindow);
  11744. end;
  11745.  
  11746. procedure TDoCmd.SetWarnings(WarningsOn: OleVariant);
  11747. begin
  11748.   DefaultInterface.SetWarnings(WarningsOn);
  11749. end;
  11750.  
  11751. procedure TDoCmd.ShowAllRecords;
  11752. begin
  11753.   DefaultInterface.ShowAllRecords;
  11754. end;
  11755.  
  11756. procedure TDoCmd.OpenReport(ReportName: OleVariant; View: AcView);
  11757. begin
  11758.   DefaultInterface.OpenReport(ReportName, View, EmptyParam, EmptyParam);
  11759. end;
  11760.  
  11761. procedure TDoCmd.OpenReport(ReportName: OleVariant; View: AcView; FilterName: OleVariant);
  11762. begin
  11763.   DefaultInterface.OpenReport(ReportName, View, FilterName, EmptyParam);
  11764. end;
  11765.  
  11766. procedure TDoCmd.OpenReport(ReportName: OleVariant; View: AcView; FilterName: OleVariant; 
  11767.                             WhereCondition: OleVariant);
  11768. begin
  11769.   DefaultInterface.OpenReport(ReportName, View, FilterName, WhereCondition);
  11770. end;
  11771.  
  11772. procedure TDoCmd.TransferDatabase(TransferType: AcDataTransferType; DatabaseType: OleVariant; 
  11773.                                   DatabaseName: OleVariant; ObjectType: AcObjectType; 
  11774.                                   Source: OleVariant; Destination: OleVariant; 
  11775.                                   StructureOnly: OleVariant; StoreLogin: OleVariant);
  11776. begin
  11777.   DefaultInterface.TransferDatabase(TransferType, DatabaseType, DatabaseName, ObjectType, Source, 
  11778.                                     Destination, StructureOnly, StoreLogin);
  11779. end;
  11780.  
  11781. procedure TDoCmd.TransferSpreadsheet(TransferType: AcDataTransferType; 
  11782.                                      SpreadsheetType: AcSpreadSheetType);
  11783. begin
  11784.   DefaultInterface.TransferSpreadsheet(TransferType, SpreadsheetType, EmptyParam, EmptyParam, 
  11785.                                        EmptyParam, EmptyParam, EmptyParam);
  11786. end;
  11787.  
  11788. procedure TDoCmd.TransferSpreadsheet(TransferType: AcDataTransferType; 
  11789.                                      SpreadsheetType: AcSpreadSheetType; TableName: OleVariant);
  11790. begin
  11791.   DefaultInterface.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, EmptyParam, 
  11792.                                        EmptyParam, EmptyParam, EmptyParam);
  11793. end;
  11794.  
  11795. procedure TDoCmd.TransferSpreadsheet(TransferType: AcDataTransferType; 
  11796.                                      SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  11797.                                      FileName: OleVariant);
  11798. begin
  11799.   DefaultInterface.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, 
  11800.                                        EmptyParam, EmptyParam, EmptyParam);
  11801. end;
  11802.  
  11803. procedure TDoCmd.TransferSpreadsheet(TransferType: AcDataTransferType; 
  11804.                                      SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  11805.                                      FileName: OleVariant; HasFieldNames: OleVariant);
  11806. begin
  11807.   DefaultInterface.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, 
  11808.                                        HasFieldNames, EmptyParam, EmptyParam);
  11809. end;
  11810.  
  11811. procedure TDoCmd.TransferSpreadsheet(TransferType: AcDataTransferType; 
  11812.                                      SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  11813.                                      FileName: OleVariant; HasFieldNames: OleVariant; 
  11814.                                      Range: OleVariant);
  11815. begin
  11816.   DefaultInterface.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, 
  11817.                                        HasFieldNames, Range, EmptyParam);
  11818. end;
  11819.  
  11820. procedure TDoCmd.TransferSpreadsheet(TransferType: AcDataTransferType; 
  11821.                                      SpreadsheetType: AcSpreadSheetType; TableName: OleVariant; 
  11822.                                      FileName: OleVariant; HasFieldNames: OleVariant; 
  11823.                                      Range: OleVariant; UseOA: OleVariant);
  11824. begin
  11825.   DefaultInterface.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, 
  11826.                                        HasFieldNames, Range, UseOA);
  11827. end;
  11828.  
  11829. procedure TDoCmd.TransferText(TransferType: AcTextTransferType);
  11830. begin
  11831.   DefaultInterface.TransferText(TransferType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  11832.                                 EmptyParam);
  11833. end;
  11834.  
  11835. procedure TDoCmd.TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant);
  11836. begin
  11837.   DefaultInterface.TransferText(TransferType, SpecificationName, EmptyParam, EmptyParam, 
  11838.                                 EmptyParam, EmptyParam);
  11839. end;
  11840.  
  11841. procedure TDoCmd.TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  11842.                               TableName: OleVariant);
  11843. begin
  11844.   DefaultInterface.TransferText(TransferType, SpecificationName, TableName, EmptyParam, EmptyParam, 
  11845.                                 EmptyParam);
  11846. end;
  11847.  
  11848. procedure TDoCmd.TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  11849.                               TableName: OleVariant; FileName: OleVariant);
  11850. begin
  11851.   DefaultInterface.TransferText(TransferType, SpecificationName, TableName, FileName, EmptyParam, 
  11852.                                 EmptyParam);
  11853. end;
  11854.  
  11855. procedure TDoCmd.TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  11856.                               TableName: OleVariant; FileName: OleVariant; HasFieldNames: OleVariant);
  11857. begin
  11858.   DefaultInterface.TransferText(TransferType, SpecificationName, TableName, FileName, 
  11859.                                 HasFieldNames, EmptyParam);
  11860. end;
  11861.  
  11862. procedure TDoCmd.TransferText(TransferType: AcTextTransferType; SpecificationName: OleVariant; 
  11863.                               TableName: OleVariant; FileName: OleVariant; 
  11864.                               HasFieldNames: OleVariant; HTMLTableName: OleVariant);
  11865. begin
  11866.   DefaultInterface.TransferText(TransferType, SpecificationName, TableName, FileName, 
  11867.                                 HasFieldNames, HTMLTableName);
  11868. end;
  11869.  
  11870. procedure TDoCmd.OutputTo(ObjectType: AcOutputObjectType);
  11871. begin
  11872.   DefaultInterface.OutputTo(ObjectType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11873. end;
  11874.  
  11875. procedure TDoCmd.OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant);
  11876. begin
  11877.   DefaultInterface.OutputTo(ObjectType, ObjectName, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11878. end;
  11879.  
  11880. procedure TDoCmd.OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  11881.                           OutputFormat: OleVariant);
  11882. begin
  11883.   DefaultInterface.OutputTo(ObjectType, ObjectName, OutputFormat, EmptyParam, EmptyParam, EmptyParam);
  11884. end;
  11885.  
  11886. procedure TDoCmd.OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  11887.                           OutputFormat: OleVariant; OutputFile: OleVariant);
  11888. begin
  11889.   DefaultInterface.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, EmptyParam, EmptyParam);
  11890. end;
  11891.  
  11892. procedure TDoCmd.OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  11893.                           OutputFormat: OleVariant; OutputFile: OleVariant; AutoStart: OleVariant);
  11894. begin
  11895.   DefaultInterface.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart, EmptyParam);
  11896. end;
  11897.  
  11898. procedure TDoCmd.OutputTo(ObjectType: AcOutputObjectType; ObjectName: OleVariant; 
  11899.                           OutputFormat: OleVariant; OutputFile: OleVariant; AutoStart: OleVariant; 
  11900.                           TemplateFile: OleVariant);
  11901. begin
  11902.   DefaultInterface.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart, 
  11903.                             TemplateFile);
  11904. end;
  11905.  
  11906. procedure TDoCmd.DeleteObject(ObjectType: AcObjectType);
  11907. begin
  11908.   DefaultInterface.DeleteObject(ObjectType, EmptyParam);
  11909. end;
  11910.  
  11911. procedure TDoCmd.DeleteObject(ObjectType: AcObjectType; ObjectName: OleVariant);
  11912. begin
  11913.   DefaultInterface.DeleteObject(ObjectType, ObjectName);
  11914. end;
  11915.  
  11916. procedure TDoCmd.OpenModule;
  11917. begin
  11918.   DefaultInterface.OpenModule(EmptyParam, EmptyParam);
  11919. end;
  11920.  
  11921. procedure TDoCmd.OpenModule(ModuleName: OleVariant);
  11922. begin
  11923.   DefaultInterface.OpenModule(ModuleName, EmptyParam);
  11924. end;
  11925.  
  11926. procedure TDoCmd.OpenModule(ModuleName: OleVariant; ProcedureName: OleVariant);
  11927. begin
  11928.   DefaultInterface.OpenModule(ModuleName, ProcedureName);
  11929. end;
  11930.  
  11931. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType);
  11932. begin
  11933.   DefaultInterface.SendObject(ObjectType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  11934.                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11935. end;
  11936.  
  11937. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant);
  11938. begin
  11939.   DefaultInterface.SendObject(ObjectType, ObjectName, EmptyParam, EmptyParam, EmptyParam, 
  11940.                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11941. end;
  11942.  
  11943. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11944.                             OutputFormat: OleVariant);
  11945. begin
  11946.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, EmptyParam, EmptyParam, 
  11947.                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11948. end;
  11949.  
  11950. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11951.                             OutputFormat: OleVariant; To_: OleVariant);
  11952. begin
  11953.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, EmptyParam, EmptyParam, 
  11954.                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11955. end;
  11956.  
  11957. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11958.                             OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant);
  11959. begin
  11960.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, Cc, EmptyParam, 
  11961.                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  11962. end;
  11963.  
  11964. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11965.                             OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  11966.                             Bcc: OleVariant);
  11967. begin
  11968.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, Cc, Bcc, EmptyParam, 
  11969.                               EmptyParam, EmptyParam, EmptyParam);
  11970. end;
  11971.  
  11972. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11973.                             OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  11974.                             Bcc: OleVariant; Subject: OleVariant);
  11975. begin
  11976.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, Cc, Bcc, Subject, 
  11977.                               EmptyParam, EmptyParam, EmptyParam);
  11978. end;
  11979.  
  11980. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11981.                             OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  11982.                             Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant);
  11983. begin
  11984.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, Cc, Bcc, Subject, 
  11985.                               MessageText, EmptyParam, EmptyParam);
  11986. end;
  11987.  
  11988. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11989.                             OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  11990.                             Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant; 
  11991.                             EditMessage: OleVariant);
  11992. begin
  11993.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, Cc, Bcc, Subject, 
  11994.                               MessageText, EditMessage, EmptyParam);
  11995. end;
  11996.  
  11997. procedure TDoCmd.SendObject(ObjectType: AcSendObjectType; ObjectName: OleVariant; 
  11998.                             OutputFormat: OleVariant; To_: OleVariant; Cc: OleVariant; 
  11999.                             Bcc: OleVariant; Subject: OleVariant; MessageText: OleVariant; 
  12000.                             EditMessage: OleVariant; TemplateFile: OleVariant);
  12001. begin
  12002.   DefaultInterface.SendObject(ObjectType, ObjectName, OutputFormat, To_, Cc, Bcc, Subject, 
  12003.                               MessageText, EditMessage, TemplateFile);
  12004. end;
  12005.  
  12006. procedure TDoCmd.ShowToolbar(ToolbarName: OleVariant);
  12007. begin
  12008.   DefaultInterface.ShowToolbar(ToolbarName, EmptyParam);
  12009. end;
  12010.  
  12011. procedure TDoCmd.ShowToolbar(ToolbarName: OleVariant; Show: OleVariant);
  12012. begin
  12013.   DefaultInterface.ShowToolbar(ToolbarName, Show);
  12014. end;
  12015.  
  12016. procedure TDoCmd.Save(ObjectType: AcObjectType);
  12017. begin
  12018.   DefaultInterface.Save(ObjectType, EmptyParam);
  12019. end;
  12020.  
  12021. procedure TDoCmd.Save(ObjectType: AcObjectType; ObjectName: OleVariant);
  12022. begin
  12023.   DefaultInterface.Save(ObjectType, ObjectName);
  12024. end;
  12025.  
  12026. procedure TDoCmd.SetMenuItem(MenuIndex: OleVariant);
  12027. begin
  12028.   DefaultInterface.SetMenuItem(MenuIndex, EmptyParam, EmptyParam, EmptyParam);
  12029. end;
  12030.  
  12031. procedure TDoCmd.SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant);
  12032. begin
  12033.   DefaultInterface.SetMenuItem(MenuIndex, CommandIndex, EmptyParam, EmptyParam);
  12034. end;
  12035.  
  12036. procedure TDoCmd.SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant; 
  12037.                              SubcommandIndex: OleVariant);
  12038. begin
  12039.   DefaultInterface.SetMenuItem(MenuIndex, CommandIndex, SubcommandIndex, EmptyParam);
  12040. end;
  12041.  
  12042. procedure TDoCmd.SetMenuItem(MenuIndex: OleVariant; CommandIndex: OleVariant; 
  12043.                              SubcommandIndex: OleVariant; Flag: OleVariant);
  12044. begin
  12045.   DefaultInterface.SetMenuItem(MenuIndex, CommandIndex, SubcommandIndex, Flag);
  12046. end;
  12047.  
  12048. procedure TDoCmd.RunCommand(Command: AcCommand);
  12049. begin
  12050.   DefaultInterface.RunCommand(Command);
  12051. end;
  12052.  
  12053. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12054. constructor TDoCmdProperties.Create(AServer: TDoCmd);
  12055. begin
  12056.   inherited Create;
  12057.   FServer := AServer;
  12058. end;
  12059.  
  12060. function TDoCmdProperties.GetDefaultInterface: IDoCmd;
  12061. begin
  12062.   Result := FServer.DefaultInterface;
  12063. end;
  12064.  
  12065. {$ENDIF}
  12066.  
  12067. class function CoAccessHyperlink.Create: _Hyperlink;
  12068. begin
  12069.   Result := CreateComObject(CLASS_AccessHyperlink) as _Hyperlink;
  12070. end;
  12071.  
  12072. class function CoAccessHyperlink.CreateRemote(const MachineName: string): _Hyperlink;
  12073. begin
  12074.   Result := CreateRemoteComObject(MachineName, CLASS_AccessHyperlink) as _Hyperlink;
  12075. end;
  12076.  
  12077. procedure TAccessHyperlink.InitServerData;
  12078. const
  12079.   CServerData: TServerData = (
  12080.     ClassID:   '{50D56610-60AC-11CF-82C9-00AA004B9FE6}';
  12081.     IntfIID:   '{50D56611-60AC-11CF-82C9-00AA004B9FE6}';
  12082.     EventIID:  '';
  12083.     LicenseKey: nil;
  12084.     Version: 500);
  12085. begin
  12086.   ServerData := @CServerData;
  12087. end;
  12088.  
  12089. procedure TAccessHyperlink.Connect;
  12090. var
  12091.   punk: IUnknown;
  12092. begin
  12093.   if FIntf = nil then
  12094.   begin
  12095.     punk := GetServer;
  12096.     Fintf:= punk as _Hyperlink;
  12097.   end;
  12098. end;
  12099.  
  12100. procedure TAccessHyperlink.ConnectTo(svrIntf: _Hyperlink);
  12101. begin
  12102.   Disconnect;
  12103.   FIntf := svrIntf;
  12104. end;
  12105.  
  12106. procedure TAccessHyperlink.DisConnect;
  12107. begin
  12108.   if Fintf <> nil then
  12109.   begin
  12110.     FIntf := nil;
  12111.   end;
  12112. end;
  12113.  
  12114. function TAccessHyperlink.GetDefaultInterface: _Hyperlink;
  12115. begin
  12116.   if FIntf = nil then
  12117.     Connect;
  12118.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  12119.   Result := FIntf;
  12120. end;
  12121.  
  12122. constructor TAccessHyperlink.Create(AOwner: TComponent);
  12123. begin
  12124.   inherited Create(AOwner);
  12125. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12126.   FProps := TAccessHyperlinkProperties.Create(Self);
  12127. {$ENDIF}
  12128. end;
  12129.  
  12130. destructor TAccessHyperlink.Destroy;
  12131. begin
  12132. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12133.   FProps.Free;
  12134. {$ENDIF}
  12135.   inherited Destroy;
  12136. end;
  12137.  
  12138. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12139. function TAccessHyperlink.GetServerProperties: TAccessHyperlinkProperties;
  12140. begin
  12141.   Result := FProps;
  12142. end;
  12143. {$ENDIF}
  12144.  
  12145. function  TAccessHyperlink.Get_SubAddress: WideString;
  12146. begin
  12147.   Result := DefaultInterface.Get_SubAddress;
  12148. end;
  12149.  
  12150. procedure TAccessHyperlink.Set_SubAddress(pbstrResult: OleVariant);
  12151. begin
  12152.   DefaultInterface.Set_SubAddress(pbstrResult);
  12153. end;
  12154.  
  12155. function  TAccessHyperlink.Get_Address: WideString;
  12156. begin
  12157.   Result := DefaultInterface.Get_Address;
  12158. end;
  12159.  
  12160. procedure TAccessHyperlink.Set_Address(pbstrResult: OleVariant);
  12161. begin
  12162.   DefaultInterface.Set_Address(pbstrResult);
  12163. end;
  12164.  
  12165. procedure TAccessHyperlink.AddToFavorites;
  12166. begin
  12167.   DefaultInterface.AddToFavorites;
  12168. end;
  12169.  
  12170. procedure TAccessHyperlink.Follow(NewWindow: WordBool; AddHistory: WordBool; ExtraInfo: OleVariant; 
  12171.                                   Method: MsoExtraInfoMethod; const HeaderInfo: WideString);
  12172. begin
  12173.   DefaultInterface.Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo);
  12174. end;
  12175.  
  12176. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12177. constructor TAccessHyperlinkProperties.Create(AServer: TAccessHyperlink);
  12178. begin
  12179.   inherited Create;
  12180.   FServer := AServer;
  12181. end;
  12182.  
  12183. function TAccessHyperlinkProperties.GetDefaultInterface: _Hyperlink;
  12184. begin
  12185.   Result := FServer.DefaultInterface;
  12186. end;
  12187.  
  12188. function  TAccessHyperlinkProperties.Get_SubAddress: WideString;
  12189. begin
  12190.   Result := DefaultInterface.Get_SubAddress;
  12191. end;
  12192.  
  12193. procedure TAccessHyperlinkProperties.Set_SubAddress(pbstrResult: OleVariant);
  12194. begin
  12195.   DefaultInterface.Set_SubAddress(pbstrResult);
  12196. end;
  12197.  
  12198. function  TAccessHyperlinkProperties.Get_Address: WideString;
  12199. begin
  12200.   Result := DefaultInterface.Get_Address;
  12201. end;
  12202.  
  12203. procedure TAccessHyperlinkProperties.Set_Address(pbstrResult: OleVariant);
  12204. begin
  12205.   DefaultInterface.Set_Address(pbstrResult);
  12206. end;
  12207.  
  12208. {$ENDIF}
  12209.  
  12210. class function CoAccessForm.Create: _Form;
  12211. begin
  12212.   Result := CreateComObject(CLASS_AccessForm) as _Form;
  12213. end;
  12214.  
  12215. class function CoAccessForm.CreateRemote(const MachineName: string): _Form;
  12216. begin
  12217.   Result := CreateRemoteComObject(MachineName, CLASS_AccessForm) as _Form;
  12218. end;
  12219.  
  12220. procedure TAccessForm.InitServerData;
  12221. const
  12222.   CServerData: TServerData = (
  12223.     ClassID:   '{483615A0-74BE-101B-AF4E-00AA003F0F07}';
  12224.     IntfIID:   '{E5135D80-8F8D-101B-AF4E-00AA003F0F07}';
  12225.     EventIID:  '{331FDCFB-CF31-11CD-8701-00AA003F0F07}';
  12226.     LicenseKey: nil;
  12227.     Version: 500);
  12228. begin
  12229.   ServerData := @CServerData;
  12230. end;
  12231.  
  12232. procedure TAccessForm.Connect;
  12233. var
  12234.   punk: IUnknown;
  12235. begin
  12236.   if FIntf = nil then
  12237.   begin
  12238.     punk := GetServer;
  12239.     ConnectEvents(punk);
  12240.     Fintf:= punk as _Form;
  12241.   end;
  12242. end;
  12243.  
  12244. procedure TAccessForm.ConnectTo(svrIntf: _Form);
  12245. begin
  12246.   Disconnect;
  12247.   FIntf := svrIntf;
  12248.   ConnectEvents(FIntf);
  12249. end;
  12250.  
  12251. procedure TAccessForm.DisConnect;
  12252. begin
  12253.   if Fintf <> nil then
  12254.   begin
  12255.     DisconnectEvents(FIntf);
  12256.     FIntf := nil;
  12257.   end;
  12258. end;
  12259.  
  12260. function TAccessForm.GetDefaultInterface: _Form;
  12261. begin
  12262.   if FIntf = nil then
  12263.     Connect;
  12264.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  12265.   Result := FIntf;
  12266. end;
  12267.  
  12268. constructor TAccessForm.Create(AOwner: TComponent);
  12269. begin
  12270.   inherited Create(AOwner);
  12271. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12272.   FProps := TAccessFormProperties.Create(Self);
  12273. {$ENDIF}
  12274. end;
  12275.  
  12276. destructor TAccessForm.Destroy;
  12277. begin
  12278. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12279.   FProps.Free;
  12280. {$ENDIF}
  12281.   inherited Destroy;
  12282. end;
  12283.  
  12284. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12285. function TAccessForm.GetServerProperties: TAccessFormProperties;
  12286. begin
  12287.   Result := FProps;
  12288. end;
  12289. {$ENDIF}
  12290.  
  12291. procedure TAccessForm.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  12292. begin
  12293.   case DispID of
  12294.     -1: Exit;  // DISPID_UNKNOWN
  12295.    2067: if Assigned(FOnLoad) then
  12296.             FOnLoad(Self);
  12297.    2058: if Assigned(FOnCurrent) then
  12298.             FOnCurrent(Self);
  12299.    2059: if Assigned(FOnBeforeInsert) then
  12300.             FOnBeforeInsert(Self, Params[0] (*out Smallint*));
  12301.    2060: if Assigned(FOnAfterInsert) then
  12302.             FOnAfterInsert(Self);
  12303.    2061: if Assigned(FOnBeforeUpdate) then
  12304.             FOnBeforeUpdate(Self, Params[0] (*out Smallint*));
  12305.    2062: if Assigned(FOnAfterUpdate) then
  12306.             FOnAfterUpdate(Self);
  12307.    2063: if Assigned(FOnDelete) then
  12308.             FOnDelete(Self, Params[0] (*out Smallint*));
  12309.    2064: if Assigned(FOnBeforeDelConfirm) then
  12310.             FOnBeforeDelConfirm(Self, Params[0] (*out Smallint*), Params[1] (*out Smallint*));
  12311.    2065: if Assigned(FOnAfterDelConfirm) then
  12312.             FOnAfterDelConfirm(Self, Params[0] (*var Smallint*));
  12313.    2066: if Assigned(FOnOpen) then
  12314.             FOnOpen(Self, Params[0] (*out Smallint*));
  12315.    2068: if Assigned(FOnResize) then
  12316.             FOnResize(Self);
  12317.    2069: if Assigned(FOnUnload) then
  12318.             FOnUnload(Self, Params[0] (*out Smallint*));
  12319.    2070: if Assigned(FOnClose) then
  12320.             FOnClose(Self);
  12321.    2071: if Assigned(FOnActivate) then
  12322.             FOnActivate(Self);
  12323.    2072: if Assigned(FOnDeactivate) then
  12324.             FOnDeactivate(Self);
  12325.    2073: if Assigned(FOnGotFocus) then
  12326.             FOnGotFocus(Self);
  12327.    2074: if Assigned(FOnLostFocus) then
  12328.             FOnLostFocus(Self);
  12329.    -600: if Assigned(FOnClick) then
  12330.             FOnClick(Self);
  12331.    -601: if Assigned(FOnDblClick) then
  12332.             FOnDblClick(Self, Params[0] (*out Smallint*));
  12333.    -605: if Assigned(FOnMouseDown) then
  12334.             FOnMouseDown(Self, Params[0] (*var Smallint*), Params[1] (*var Smallint*), Params[2] (*var Single*), Params[3] (*var Single*));
  12335.    -606: if Assigned(FOnMouseMove) then
  12336.             FOnMouseMove(Self, Params[0] (*var Smallint*), Params[1] (*var Smallint*), Params[2] (*var Single*), Params[3] (*var Single*));
  12337.    -607: if Assigned(FOnMouseUp) then
  12338.             FOnMouseUp(Self, Params[0] (*var Smallint*), Params[1] (*var Smallint*), Params[2] (*var Single*), Params[3] (*var Single*));
  12339.    -602: if Assigned(FOnKeyDown) then
  12340.             FOnKeyDown(Self, Params[0] (*var Smallint*), Params[1] (*var Smallint*));
  12341.    -603: if Assigned(FOnKeyPress) then
  12342.             FOnKeyPress(Self, Params[0] (*var Smallint*));
  12343.    -604: if Assigned(FOnKeyUp) then
  12344.             FOnKeyUp(Self, Params[0] (*var Smallint*), Params[1] (*var Smallint*));
  12345.    2083: if Assigned(FOnError) then
  12346.             FOnError(Self, Params[0] (*var Smallint*), Params[1] (*out Smallint*));
  12347.    2084: if Assigned(FOnTimer) then
  12348.             FOnTimer(Self);
  12349.    2155: if Assigned(FOnFilter) then
  12350.             FOnFilter(Self, Params[0] (*out Smallint*), Params[1] (*var Smallint*));
  12351.    2156: if Assigned(FOnApplyFilter) then
  12352.             FOnApplyFilter(Self, Params[0] (*out Smallint*), Params[1] (*var Smallint*));
  12353.   end; {case DispID}
  12354. end;
  12355.  
  12356. function  TAccessForm.Get_FormName: WideString;
  12357. begin
  12358.   Result := DefaultInterface.Get_FormName;
  12359. end;
  12360.  
  12361. procedure TAccessForm.Set_FormName(const pRet: WideString);
  12362. begin
  12363.   DefaultInterface.Set_FormName(pRet);
  12364. end;
  12365.  
  12366. function  TAccessForm.Get_RecordSource: WideString;
  12367. begin
  12368.   Result := DefaultInterface.Get_RecordSource;
  12369. end;
  12370.  
  12371. procedure TAccessForm.Set_RecordSource(const pRet: WideString);
  12372. begin
  12373.   DefaultInterface.Set_RecordSource(pRet);
  12374. end;
  12375.  
  12376. function  TAccessForm.Get_Filter: WideString;
  12377. begin
  12378.   Result := DefaultInterface.Get_Filter;
  12379. end;
  12380.  
  12381. procedure TAccessForm.Set_Filter(const pRet: WideString);
  12382. begin
  12383.   DefaultInterface.Set_Filter(pRet);
  12384. end;
  12385.  
  12386. function  TAccessForm.Get_FilterOn: WordBool;
  12387. begin
  12388.   Result := DefaultInterface.Get_FilterOn;
  12389. end;
  12390.  
  12391. procedure TAccessForm.Set_FilterOn(pRet: WordBool);
  12392. begin
  12393.   DefaultInterface.Set_FilterOn(pRet);
  12394. end;
  12395.  
  12396. function  TAccessForm.Get_OrderBy: WideString;
  12397. begin
  12398.   Result := DefaultInterface.Get_OrderBy;
  12399. end;
  12400.  
  12401. procedure TAccessForm.Set_OrderBy(const pRet: WideString);
  12402. begin
  12403.   DefaultInterface.Set_OrderBy(pRet);
  12404. end;
  12405.  
  12406. function  TAccessForm.Get_OrderByOn: WordBool;
  12407. begin
  12408.   Result := DefaultInterface.Get_OrderByOn;
  12409. end;
  12410.  
  12411. procedure TAccessForm.Set_OrderByOn(pRet: WordBool);
  12412. begin
  12413.   DefaultInterface.Set_OrderByOn(pRet);
  12414. end;
  12415.  
  12416. function  TAccessForm.Get_AllowFilters: WordBool;
  12417. begin
  12418.   Result := DefaultInterface.Get_AllowFilters;
  12419. end;
  12420.  
  12421. procedure TAccessForm.Set_AllowFilters(pRet: WordBool);
  12422. begin
  12423.   DefaultInterface.Set_AllowFilters(pRet);
  12424. end;
  12425.  
  12426. function  TAccessForm.Get_Caption: WideString;
  12427. begin
  12428.   Result := DefaultInterface.Get_Caption;
  12429. end;
  12430.  
  12431. procedure TAccessForm.Set_Caption(const pRet: WideString);
  12432. begin
  12433.   DefaultInterface.Set_Caption(pRet);
  12434. end;
  12435.  
  12436. function  TAccessForm.Get_DefaultView: Byte;
  12437. begin
  12438.   Result := DefaultInterface.Get_DefaultView;
  12439. end;
  12440.  
  12441. procedure TAccessForm.Set_DefaultView(pRet: Byte);
  12442. begin
  12443.   DefaultInterface.Set_DefaultView(pRet);
  12444. end;
  12445.  
  12446. function  TAccessForm.Get_ViewsAllowed: Byte;
  12447. begin
  12448.   Result := DefaultInterface.Get_ViewsAllowed;
  12449. end;
  12450.  
  12451. procedure TAccessForm.Set_ViewsAllowed(pRet: Byte);
  12452. begin
  12453.   DefaultInterface.Set_ViewsAllowed(pRet);
  12454. end;
  12455.  
  12456. function  TAccessForm.Get_AllowEditing: WordBool;
  12457. begin
  12458.   Result := DefaultInterface.Get_AllowEditing;
  12459. end;
  12460.  
  12461. procedure TAccessForm.Set_AllowEditing(pRet: WordBool);
  12462. begin
  12463.   DefaultInterface.Set_AllowEditing(pRet);
  12464. end;
  12465.  
  12466. function  TAccessForm.Get_DefaultEditing: Smallint;
  12467. begin
  12468.   Result := DefaultInterface.Get_DefaultEditing;
  12469. end;
  12470.  
  12471. procedure TAccessForm.Set_DefaultEditing(pRet: Smallint);
  12472. begin
  12473.   DefaultInterface.Set_DefaultEditing(pRet);
  12474. end;
  12475.  
  12476. function  TAccessForm.Get_AllowEdits: WordBool;
  12477. begin
  12478.   Result := DefaultInterface.Get_AllowEdits;
  12479. end;
  12480.  
  12481. procedure TAccessForm.Set_AllowEdits(pRet: WordBool);
  12482. begin
  12483.   DefaultInterface.Set_AllowEdits(pRet);
  12484. end;
  12485.  
  12486. function  TAccessForm.Get_AllowDeletions: WordBool;
  12487. begin
  12488.   Result := DefaultInterface.Get_AllowDeletions;
  12489. end;
  12490.  
  12491. procedure TAccessForm.Set_AllowDeletions(pRet: WordBool);
  12492. begin
  12493.   DefaultInterface.Set_AllowDeletions(pRet);
  12494. end;
  12495.  
  12496. function  TAccessForm.Get_AllowAdditions: WordBool;
  12497. begin
  12498.   Result := DefaultInterface.Get_AllowAdditions;
  12499. end;
  12500.  
  12501. procedure TAccessForm.Set_AllowAdditions(pRet: WordBool);
  12502. begin
  12503.   DefaultInterface.Set_AllowAdditions(pRet);
  12504. end;
  12505.  
  12506. function  TAccessForm.Get_DataEntry: WordBool;
  12507. begin
  12508.   Result := DefaultInterface.Get_DataEntry;
  12509. end;
  12510.  
  12511. procedure TAccessForm.Set_DataEntry(pRet: WordBool);
  12512. begin
  12513.   DefaultInterface.Set_DataEntry(pRet);
  12514. end;
  12515.  
  12516. function  TAccessForm.Get_AllowUpdating: Byte;
  12517. begin
  12518.   Result := DefaultInterface.Get_AllowUpdating;
  12519. end;
  12520.  
  12521. procedure TAccessForm.Set_AllowUpdating(pRet: Byte);
  12522. begin
  12523.   DefaultInterface.Set_AllowUpdating(pRet);
  12524. end;
  12525.  
  12526. function  TAccessForm.Get_RecordsetType: Byte;
  12527. begin
  12528.   Result := DefaultInterface.Get_RecordsetType;
  12529. end;
  12530.  
  12531. procedure TAccessForm.Set_RecordsetType(pRet: Byte);
  12532. begin
  12533.   DefaultInterface.Set_RecordsetType(pRet);
  12534. end;
  12535.  
  12536. function  TAccessForm.Get_RecordLocks: Byte;
  12537. begin
  12538.   Result := DefaultInterface.Get_RecordLocks;
  12539. end;
  12540.  
  12541. procedure TAccessForm.Set_RecordLocks(pRet: Byte);
  12542. begin
  12543.   DefaultInterface.Set_RecordLocks(pRet);
  12544. end;
  12545.  
  12546. function  TAccessForm.Get_ScrollBars: Byte;
  12547. begin
  12548.   Result := DefaultInterface.Get_ScrollBars;
  12549. end;
  12550.  
  12551. procedure TAccessForm.Set_ScrollBars(pRet: Byte);
  12552. begin
  12553.   DefaultInterface.Set_ScrollBars(pRet);
  12554. end;
  12555.  
  12556. function  TAccessForm.Get_RecordSelectors: WordBool;
  12557. begin
  12558.   Result := DefaultInterface.Get_RecordSelectors;
  12559. end;
  12560.  
  12561. procedure TAccessForm.Set_RecordSelectors(pRet: WordBool);
  12562. begin
  12563.   DefaultInterface.Set_RecordSelectors(pRet);
  12564. end;
  12565.  
  12566. function  TAccessForm.Get_NavigationButtons: WordBool;
  12567. begin
  12568.   Result := DefaultInterface.Get_NavigationButtons;
  12569. end;
  12570.  
  12571. procedure TAccessForm.Set_NavigationButtons(pRet: WordBool);
  12572. begin
  12573.   DefaultInterface.Set_NavigationButtons(pRet);
  12574. end;
  12575.  
  12576. function  TAccessForm.Get_DividingLines: WordBool;
  12577. begin
  12578.   Result := DefaultInterface.Get_DividingLines;
  12579. end;
  12580.  
  12581. procedure TAccessForm.Set_DividingLines(pRet: WordBool);
  12582. begin
  12583.   DefaultInterface.Set_DividingLines(pRet);
  12584. end;
  12585.  
  12586. function  TAccessForm.Get_AutoResize: WordBool;
  12587. begin
  12588.   Result := DefaultInterface.Get_AutoResize;
  12589. end;
  12590.  
  12591. procedure TAccessForm.Set_AutoResize(pRet: WordBool);
  12592. begin
  12593.   DefaultInterface.Set_AutoResize(pRet);
  12594. end;
  12595.  
  12596. function  TAccessForm.Get_AutoCenter: WordBool;
  12597. begin
  12598.   Result := DefaultInterface.Get_AutoCenter;
  12599. end;
  12600.  
  12601. procedure TAccessForm.Set_AutoCenter(pRet: WordBool);
  12602. begin
  12603.   DefaultInterface.Set_AutoCenter(pRet);
  12604. end;
  12605.  
  12606. function  TAccessForm.Get_PopUp: WordBool;
  12607. begin
  12608.   Result := DefaultInterface.Get_PopUp;
  12609. end;
  12610.  
  12611. procedure TAccessForm.Set_PopUp(pRet: WordBool);
  12612. begin
  12613.   DefaultInterface.Set_PopUp(pRet);
  12614. end;
  12615.  
  12616. function  TAccessForm.Get_Modal: WordBool;
  12617. begin
  12618.   Result := DefaultInterface.Get_Modal;
  12619. end;
  12620.  
  12621. procedure TAccessForm.Set_Modal(pRet: WordBool);
  12622. begin
  12623.   DefaultInterface.Set_Modal(pRet);
  12624. end;
  12625.  
  12626. function  TAccessForm.Get_BorderStyle: Byte;
  12627. begin
  12628.   Result := DefaultInterface.Get_BorderStyle;
  12629. end;
  12630.  
  12631. procedure TAccessForm.Set_BorderStyle(pRet: Byte);
  12632. begin
  12633.   DefaultInterface.Set_BorderStyle(pRet);
  12634. end;
  12635.  
  12636. function  TAccessForm.Get_ControlBox: WordBool;
  12637. begin
  12638.   Result := DefaultInterface.Get_ControlBox;
  12639. end;
  12640.  
  12641. procedure TAccessForm.Set_ControlBox(pRet: WordBool);
  12642. begin
  12643.   DefaultInterface.Set_ControlBox(pRet);
  12644. end;
  12645.  
  12646. function  TAccessForm.Get_MinButton: WordBool;
  12647. begin
  12648.   Result := DefaultInterface.Get_MinButton;
  12649. end;
  12650.  
  12651. procedure TAccessForm.Set_MinButton(pRet: WordBool);
  12652. begin
  12653.   DefaultInterface.Set_MinButton(pRet);
  12654. end;
  12655.  
  12656. function  TAccessForm.Get_MaxButton: WordBool;
  12657. begin
  12658.   Result := DefaultInterface.Get_MaxButton;
  12659. end;
  12660.  
  12661. procedure TAccessForm.Set_MaxButton(pRet: WordBool);
  12662. begin
  12663.   DefaultInterface.Set_MaxButton(pRet);
  12664. end;
  12665.  
  12666. function  TAccessForm.Get_MinMaxButtons: Byte;
  12667. begin
  12668.   Result := DefaultInterface.Get_MinMaxButtons;
  12669. end;
  12670.  
  12671. procedure TAccessForm.Set_MinMaxButtons(pRet: Byte);
  12672. begin
  12673.   DefaultInterface.Set_MinMaxButtons(pRet);
  12674. end;
  12675.  
  12676. function  TAccessForm.Get_CloseButton: WordBool;
  12677. begin
  12678.   Result := DefaultInterface.Get_CloseButton;
  12679. end;
  12680.  
  12681. procedure TAccessForm.Set_CloseButton(pRet: WordBool);
  12682. begin
  12683.   DefaultInterface.Set_CloseButton(pRet);
  12684. end;
  12685.  
  12686. function  TAccessForm.Get_WhatsThisButton: WordBool;
  12687. begin
  12688.   Result := DefaultInterface.Get_WhatsThisButton;
  12689. end;
  12690.  
  12691. procedure TAccessForm.Set_WhatsThisButton(pRet: WordBool);
  12692. begin
  12693.   DefaultInterface.Set_WhatsThisButton(pRet);
  12694. end;
  12695.  
  12696. function  TAccessForm.Get_Width: Smallint;
  12697. begin
  12698.   Result := DefaultInterface.Get_Width;
  12699. end;
  12700.  
  12701. procedure TAccessForm.Set_Width(pRet: Smallint);
  12702. begin
  12703.   DefaultInterface.Set_Width(pRet);
  12704. end;
  12705.  
  12706. function  TAccessForm.Get_Picture: WideString;
  12707. begin
  12708.   Result := DefaultInterface.Get_Picture;
  12709. end;
  12710.  
  12711. procedure TAccessForm.Set_Picture(const pRet: WideString);
  12712. begin
  12713.   DefaultInterface.Set_Picture(pRet);
  12714. end;
  12715.  
  12716. function  TAccessForm.Get_PictureType: Byte;
  12717. begin
  12718.   Result := DefaultInterface.Get_PictureType;
  12719. end;
  12720.  
  12721. procedure TAccessForm.Set_PictureType(pRet: Byte);
  12722. begin
  12723.   DefaultInterface.Set_PictureType(pRet);
  12724. end;
  12725.  
  12726. function  TAccessForm.Get_PictureSizeMode: Byte;
  12727. begin
  12728.   Result := DefaultInterface.Get_PictureSizeMode;
  12729. end;
  12730.  
  12731. procedure TAccessForm.Set_PictureSizeMode(pRet: Byte);
  12732. begin
  12733.   DefaultInterface.Set_PictureSizeMode(pRet);
  12734. end;
  12735.  
  12736. function  TAccessForm.Get_PictureAlignment: Byte;
  12737. begin
  12738.   Result := DefaultInterface.Get_PictureAlignment;
  12739. end;
  12740.  
  12741. procedure TAccessForm.Set_PictureAlignment(pRet: Byte);
  12742. begin
  12743.   DefaultInterface.Set_PictureAlignment(pRet);
  12744. end;
  12745.  
  12746. function  TAccessForm.Get_PictureTiling: WordBool;
  12747. begin
  12748.   Result := DefaultInterface.Get_PictureTiling;
  12749. end;
  12750.  
  12751. procedure TAccessForm.Set_PictureTiling(pRet: WordBool);
  12752. begin
  12753.   DefaultInterface.Set_PictureTiling(pRet);
  12754. end;
  12755.  
  12756. function  TAccessForm.Get_Cycle: Byte;
  12757. begin
  12758.   Result := DefaultInterface.Get_Cycle;
  12759. end;
  12760.  
  12761. procedure TAccessForm.Set_Cycle(pRet: Byte);
  12762. begin
  12763.   DefaultInterface.Set_Cycle(pRet);
  12764. end;
  12765.  
  12766. function  TAccessForm.Get_MenuBar: WideString;
  12767. begin
  12768.   Result := DefaultInterface.Get_MenuBar;
  12769. end;
  12770.  
  12771. procedure TAccessForm.Set_MenuBar(const pRet: WideString);
  12772. begin
  12773.   DefaultInterface.Set_MenuBar(pRet);
  12774. end;
  12775.  
  12776. function  TAccessForm.Get_Toolbar: WideString;
  12777. begin
  12778.   Result := DefaultInterface.Get_Toolbar;
  12779. end;
  12780.  
  12781. procedure TAccessForm.Set_Toolbar(const pRet: WideString);
  12782. begin
  12783.   DefaultInterface.Set_Toolbar(pRet);
  12784. end;
  12785.  
  12786. function  TAccessForm.Get_ShortcutMenu: WordBool;
  12787. begin
  12788.   Result := DefaultInterface.Get_ShortcutMenu;
  12789. end;
  12790.  
  12791. procedure TAccessForm.Set_ShortcutMenu(pRet: WordBool);
  12792. begin
  12793.   DefaultInterface.Set_ShortcutMenu(pRet);
  12794. end;
  12795.  
  12796. function  TAccessForm.Get_ShortcutMenuBar: WideString;
  12797. begin
  12798.   Result := DefaultInterface.Get_ShortcutMenuBar;
  12799. end;
  12800.  
  12801. procedure TAccessForm.Set_ShortcutMenuBar(const pRet: WideString);
  12802. begin
  12803.   DefaultInterface.Set_ShortcutMenuBar(pRet);
  12804. end;
  12805.  
  12806. function  TAccessForm.Get_GridX: Smallint;
  12807. begin
  12808.   Result := DefaultInterface.Get_GridX;
  12809. end;
  12810.  
  12811. procedure TAccessForm.Set_GridX(pRet: Smallint);
  12812. begin
  12813.   DefaultInterface.Set_GridX(pRet);
  12814. end;
  12815.  
  12816. function  TAccessForm.Get_GridY: Smallint;
  12817. begin
  12818.   Result := DefaultInterface.Get_GridY;
  12819. end;
  12820.  
  12821. procedure TAccessForm.Set_GridY(pRet: Smallint);
  12822. begin
  12823.   DefaultInterface.Set_GridY(pRet);
  12824. end;
  12825.  
  12826. function  TAccessForm.Get_LayoutForPrint: WordBool;
  12827. begin
  12828.   Result := DefaultInterface.Get_LayoutForPrint;
  12829. end;
  12830.  
  12831. procedure TAccessForm.Set_LayoutForPrint(pRet: WordBool);
  12832. begin
  12833.   DefaultInterface.Set_LayoutForPrint(pRet);
  12834. end;
  12835.  
  12836. function  TAccessForm.Get_FastLaserPrinting: WordBool;
  12837. begin
  12838.   Result := DefaultInterface.Get_FastLaserPrinting;
  12839. end;
  12840.  
  12841. procedure TAccessForm.Set_FastLaserPrinting(pRet: WordBool);
  12842. begin
  12843.   DefaultInterface.Set_FastLaserPrinting(pRet);
  12844. end;
  12845.  
  12846. function  TAccessForm.Get_HelpFile: WideString;
  12847. begin
  12848.   Result := DefaultInterface.Get_HelpFile;
  12849. end;
  12850.  
  12851. procedure TAccessForm.Set_HelpFile(const pRet: WideString);
  12852. begin
  12853.   DefaultInterface.Set_HelpFile(pRet);
  12854. end;
  12855.  
  12856. function  TAccessForm.Get_HelpContextId: Integer;
  12857. begin
  12858.   Result := DefaultInterface.Get_HelpContextId;
  12859. end;
  12860.  
  12861. procedure TAccessForm.Set_HelpContextId(pRet: Integer);
  12862. begin
  12863.   DefaultInterface.Set_HelpContextId(pRet);
  12864. end;
  12865.  
  12866. function  TAccessForm.Get_RowHeight: Smallint;
  12867. begin
  12868.   Result := DefaultInterface.Get_RowHeight;
  12869. end;
  12870.  
  12871. procedure TAccessForm.Set_RowHeight(pRet: Smallint);
  12872. begin
  12873.   DefaultInterface.Set_RowHeight(pRet);
  12874. end;
  12875.  
  12876. function  TAccessForm.Get_DatasheetFontName: WideString;
  12877. begin
  12878.   Result := DefaultInterface.Get_DatasheetFontName;
  12879. end;
  12880.  
  12881. procedure TAccessForm.Set_DatasheetFontName(const pRet: WideString);
  12882. begin
  12883.   DefaultInterface.Set_DatasheetFontName(pRet);
  12884. end;
  12885.  
  12886. function  TAccessForm.Get_DatasheetFontHeight: Smallint;
  12887. begin
  12888.   Result := DefaultInterface.Get_DatasheetFontHeight;
  12889. end;
  12890.  
  12891. procedure TAccessForm.Set_DatasheetFontHeight(pRet: Smallint);
  12892. begin
  12893.   DefaultInterface.Set_DatasheetFontHeight(pRet);
  12894. end;
  12895.  
  12896. function  TAccessForm.Get_DatasheetFontWeight: Smallint;
  12897. begin
  12898.   Result := DefaultInterface.Get_DatasheetFontWeight;
  12899. end;
  12900.  
  12901. procedure TAccessForm.Set_DatasheetFontWeight(pRet: Smallint);
  12902. begin
  12903.   DefaultInterface.Set_DatasheetFontWeight(pRet);
  12904. end;
  12905.  
  12906. function  TAccessForm.Get_DatasheetFontItalic: WordBool;
  12907. begin
  12908.   Result := DefaultInterface.Get_DatasheetFontItalic;
  12909. end;
  12910.  
  12911. procedure TAccessForm.Set_DatasheetFontItalic(pRet: WordBool);
  12912. begin
  12913.   DefaultInterface.Set_DatasheetFontItalic(pRet);
  12914. end;
  12915.  
  12916. function  TAccessForm.Get_DatasheetFontUnderline: WordBool;
  12917. begin
  12918.   Result := DefaultInterface.Get_DatasheetFontUnderline;
  12919. end;
  12920.  
  12921. procedure TAccessForm.Set_DatasheetFontUnderline(pRet: WordBool);
  12922. begin
  12923.   DefaultInterface.Set_DatasheetFontUnderline(pRet);
  12924. end;
  12925.  
  12926. function  TAccessForm.Get_TabularCharSet: Byte;
  12927. begin
  12928.   Result := DefaultInterface.Get_TabularCharSet;
  12929. end;
  12930.  
  12931. procedure TAccessForm.Set_TabularCharSet(pRet: Byte);
  12932. begin
  12933.   DefaultInterface.Set_TabularCharSet(pRet);
  12934. end;
  12935.  
  12936. function  TAccessForm.Get_DatasheetGridlinesBehavior: Byte;
  12937. begin
  12938.   Result := DefaultInterface.Get_DatasheetGridlinesBehavior;
  12939. end;
  12940.  
  12941. procedure TAccessForm.Set_DatasheetGridlinesBehavior(pRet: Byte);
  12942. begin
  12943.   DefaultInterface.Set_DatasheetGridlinesBehavior(pRet);
  12944. end;
  12945.  
  12946. function  TAccessForm.Get_DatasheetGridlinesColor: Integer;
  12947. begin
  12948.   Result := DefaultInterface.Get_DatasheetGridlinesColor;
  12949. end;
  12950.  
  12951. procedure TAccessForm.Set_DatasheetGridlinesColor(pRet: Integer);
  12952. begin
  12953.   DefaultInterface.Set_DatasheetGridlinesColor(pRet);
  12954. end;
  12955.  
  12956. function  TAccessForm.Get_DatasheetCellsEffect: Byte;
  12957. begin
  12958.   Result := DefaultInterface.Get_DatasheetCellsEffect;
  12959. end;
  12960.  
  12961. procedure TAccessForm.Set_DatasheetCellsEffect(pRet: Byte);
  12962. begin
  12963.   DefaultInterface.Set_DatasheetCellsEffect(pRet);
  12964. end;
  12965.  
  12966. function  TAccessForm.Get_DatasheetForeColor: Integer;
  12967. begin
  12968.   Result := DefaultInterface.Get_DatasheetForeColor;
  12969. end;
  12970.  
  12971. procedure TAccessForm.Set_DatasheetForeColor(pRet: Integer);
  12972. begin
  12973.   DefaultInterface.Set_DatasheetForeColor(pRet);
  12974. end;
  12975.  
  12976. function  TAccessForm.Get_ShowGrid: WordBool;
  12977. begin
  12978.   Result := DefaultInterface.Get_ShowGrid;
  12979. end;
  12980.  
  12981. procedure TAccessForm.Set_ShowGrid(pRet: WordBool);
  12982. begin
  12983.   DefaultInterface.Set_ShowGrid(pRet);
  12984. end;
  12985.  
  12986. function  TAccessForm.Get_DatasheetBackColor: Integer;
  12987. begin
  12988.   Result := DefaultInterface.Get_DatasheetBackColor;
  12989. end;
  12990.  
  12991. procedure TAccessForm.Set_DatasheetBackColor(pRet: Integer);
  12992. begin
  12993.   DefaultInterface.Set_DatasheetBackColor(pRet);
  12994. end;
  12995.  
  12996. function  TAccessForm.Get_Hwnd: Integer;
  12997. begin
  12998.   Result := DefaultInterface.Get_Hwnd;
  12999. end;
  13000.  
  13001. procedure TAccessForm.Set_Hwnd(pRet: Integer);
  13002. begin
  13003.   DefaultInterface.Set_Hwnd(pRet);
  13004. end;
  13005.  
  13006. function  TAccessForm.Get_Count: Smallint;
  13007. begin
  13008.   Result := DefaultInterface.Get_Count;
  13009. end;
  13010.  
  13011. procedure TAccessForm.Set_Count(pRet: Smallint);
  13012. begin
  13013.   DefaultInterface.Set_Count(pRet);
  13014. end;
  13015.  
  13016. function  TAccessForm.Get_Page: Integer;
  13017. begin
  13018.   Result := DefaultInterface.Get_Page;
  13019. end;
  13020.  
  13021. procedure TAccessForm.Set_Page(pRet: Integer);
  13022. begin
  13023.   DefaultInterface.Set_Page(pRet);
  13024. end;
  13025.  
  13026. function  TAccessForm.Get_Pages: Smallint;
  13027. begin
  13028.   Result := DefaultInterface.Get_Pages;
  13029. end;
  13030.  
  13031. procedure TAccessForm.Set_Pages(pRet: Smallint);
  13032. begin
  13033.   DefaultInterface.Set_Pages(pRet);
  13034. end;
  13035.  
  13036. function  TAccessForm.Get_LogicalPageWidth: Integer;
  13037. begin
  13038.   Result := DefaultInterface.Get_LogicalPageWidth;
  13039. end;
  13040.  
  13041. procedure TAccessForm.Set_LogicalPageWidth(pRet: Integer);
  13042. begin
  13043.   DefaultInterface.Set_LogicalPageWidth(pRet);
  13044. end;
  13045.  
  13046. function  TAccessForm.Get_LogicalPageHeight: Integer;
  13047. begin
  13048.   Result := DefaultInterface.Get_LogicalPageHeight;
  13049. end;
  13050.  
  13051. procedure TAccessForm.Set_LogicalPageHeight(pRet: Integer);
  13052. begin
  13053.   DefaultInterface.Set_LogicalPageHeight(pRet);
  13054. end;
  13055.  
  13056. function  TAccessForm.Get_ZoomControl: Integer;
  13057. begin
  13058.   Result := DefaultInterface.Get_ZoomControl;
  13059. end;
  13060.  
  13061. procedure TAccessForm.Set_ZoomControl(pRet: Integer);
  13062. begin
  13063.   DefaultInterface.Set_ZoomControl(pRet);
  13064. end;
  13065.  
  13066. function  TAccessForm.Get_Visible: WordBool;
  13067. begin
  13068.   Result := DefaultInterface.Get_Visible;
  13069. end;
  13070.  
  13071. procedure TAccessForm.Set_Visible(pRet: WordBool);
  13072. begin
  13073.   DefaultInterface.Set_Visible(pRet);
  13074. end;
  13075.  
  13076. function  TAccessForm.Get_Painting: WordBool;
  13077. begin
  13078.   Result := DefaultInterface.Get_Painting;
  13079. end;
  13080.  
  13081. procedure TAccessForm.Set_Painting(pRet: WordBool);
  13082. begin
  13083.   DefaultInterface.Set_Painting(pRet);
  13084. end;
  13085.  
  13086. function  TAccessForm.Get_PrtMip: OleVariant;
  13087. begin
  13088.   Result := DefaultInterface.Get_PrtMip;
  13089. end;
  13090.  
  13091. procedure TAccessForm.Set_PrtMip(pRet: OleVariant);
  13092. begin
  13093.   DefaultInterface.Set_PrtMip(pRet);
  13094. end;
  13095.  
  13096. function  TAccessForm.Get_PrtDevMode: OleVariant;
  13097. begin
  13098.   Result := DefaultInterface.Get_PrtDevMode;
  13099. end;
  13100.  
  13101. procedure TAccessForm.Set_PrtDevMode(pRet: OleVariant);
  13102. begin
  13103.   DefaultInterface.Set_PrtDevMode(pRet);
  13104. end;
  13105.  
  13106. function  TAccessForm.Get_PrtDevNames: OleVariant;
  13107. begin
  13108.   Result := DefaultInterface.Get_PrtDevNames;
  13109. end;
  13110.  
  13111. procedure TAccessForm.Set_PrtDevNames(pRet: OleVariant);
  13112. begin
  13113.   DefaultInterface.Set_PrtDevNames(pRet);
  13114. end;
  13115.  
  13116. function  TAccessForm.Get_FrozenColumns: Smallint;
  13117. begin
  13118.   Result := DefaultInterface.Get_FrozenColumns;
  13119. end;
  13120.  
  13121. procedure TAccessForm.Set_FrozenColumns(pRet: Smallint);
  13122. begin
  13123.   DefaultInterface.Set_FrozenColumns(pRet);
  13124. end;
  13125.  
  13126. function  TAccessForm.Get_Bookmark: OleVariant;
  13127. begin
  13128.   Result := DefaultInterface.Get_Bookmark;
  13129. end;
  13130.  
  13131. procedure TAccessForm.Set_Bookmark(pRet: OleVariant);
  13132. begin
  13133.   DefaultInterface.Set_Bookmark(pRet);
  13134. end;
  13135.  
  13136. function  TAccessForm.Get_TabularFamily: Byte;
  13137. begin
  13138.   Result := DefaultInterface.Get_TabularFamily;
  13139. end;
  13140.  
  13141. procedure TAccessForm.Set_TabularFamily(pRet: Byte);
  13142. begin
  13143.   DefaultInterface.Set_TabularFamily(pRet);
  13144. end;
  13145.  
  13146. function  TAccessForm.Get_Name: WideString;
  13147. begin
  13148.   Result := DefaultInterface.Get_Name;
  13149. end;
  13150.  
  13151. procedure TAccessForm.Set_Name(const pRet: WideString);
  13152. begin
  13153.   DefaultInterface.Set_Name(pRet);
  13154. end;
  13155.  
  13156. function  TAccessForm.Get_PaletteSource: WideString;
  13157. begin
  13158.   Result := DefaultInterface.Get_PaletteSource;
  13159. end;
  13160.  
  13161. procedure TAccessForm.Set_PaletteSource(const pRet: WideString);
  13162. begin
  13163.   DefaultInterface.Set_PaletteSource(pRet);
  13164. end;
  13165.  
  13166. function  TAccessForm.Get_Tag: WideString;
  13167. begin
  13168.   Result := DefaultInterface.Get_Tag;
  13169. end;
  13170.  
  13171. procedure TAccessForm.Set_Tag(const pRet: WideString);
  13172. begin
  13173.   DefaultInterface.Set_Tag(pRet);
  13174. end;
  13175.  
  13176. function  TAccessForm.Get_PaintPalette: OleVariant;
  13177. begin
  13178.   Result := DefaultInterface.Get_PaintPalette;
  13179. end;
  13180.  
  13181. procedure TAccessForm.Set_PaintPalette(pRet: OleVariant);
  13182. begin
  13183.   DefaultInterface.Set_PaintPalette(pRet);
  13184. end;
  13185.  
  13186. function  TAccessForm.Get_OnMenu: WideString;
  13187. begin
  13188.   Result := DefaultInterface.Get_OnMenu;
  13189. end;
  13190.  
  13191. procedure TAccessForm.Set_OnMenu(const pRet: WideString);
  13192. begin
  13193.   DefaultInterface.Set_OnMenu(pRet);
  13194. end;
  13195.  
  13196. function  TAccessForm.Get_OpenArgs: OleVariant;
  13197. begin
  13198.   Result := DefaultInterface.Get_OpenArgs;
  13199. end;
  13200.  
  13201. procedure TAccessForm.Set_OpenArgs(pRet: OleVariant);
  13202. begin
  13203.   DefaultInterface.Set_OpenArgs(pRet);
  13204. end;
  13205.  
  13206. function  TAccessForm.Get_ConnectSynch: Smallint;
  13207. begin
  13208.   Result := DefaultInterface.Get_ConnectSynch;
  13209. end;
  13210.  
  13211. procedure TAccessForm.Set_ConnectSynch(pRet: Smallint);
  13212. begin
  13213.   DefaultInterface.Set_ConnectSynch(pRet);
  13214. end;
  13215.  
  13216. function  TAccessForm.Get_OnCurrent: WideString;
  13217. begin
  13218.   Result := DefaultInterface.Get_OnCurrent;
  13219. end;
  13220.  
  13221. procedure TAccessForm.Set_OnCurrent(const pRet: WideString);
  13222. begin
  13223.   DefaultInterface.Set_OnCurrent(pRet);
  13224. end;
  13225.  
  13226. function  TAccessForm.Get_OnInsert: WideString;
  13227. begin
  13228.   Result := DefaultInterface.Get_OnInsert;
  13229. end;
  13230.  
  13231. procedure TAccessForm.Set_OnInsert(const pRet: WideString);
  13232. begin
  13233.   DefaultInterface.Set_OnInsert(pRet);
  13234. end;
  13235.  
  13236. function  TAccessForm.Get_BeforeInsert: WideString;
  13237. begin
  13238.   Result := DefaultInterface.Get_BeforeInsert;
  13239. end;
  13240.  
  13241. procedure TAccessForm.Set_BeforeInsert(const pRet: WideString);
  13242. begin
  13243.   DefaultInterface.Set_BeforeInsert(pRet);
  13244. end;
  13245.  
  13246. function  TAccessForm.Get_AfterInsert: WideString;
  13247. begin
  13248.   Result := DefaultInterface.Get_AfterInsert;
  13249. end;
  13250.  
  13251. procedure TAccessForm.Set_AfterInsert(const pRet: WideString);
  13252. begin
  13253.   DefaultInterface.Set_AfterInsert(pRet);
  13254. end;
  13255.  
  13256. function  TAccessForm.Get_BeforeUpdate: WideString;
  13257. begin
  13258.   Result := DefaultInterface.Get_BeforeUpdate;
  13259. end;
  13260.  
  13261. procedure TAccessForm.Set_BeforeUpdate(const pRet: WideString);
  13262. begin
  13263.   DefaultInterface.Set_BeforeUpdate(pRet);
  13264. end;
  13265.  
  13266. function  TAccessForm.Get_AfterUpdate: WideString;
  13267. begin
  13268.   Result := DefaultInterface.Get_AfterUpdate;
  13269. end;
  13270.  
  13271. procedure TAccessForm.Set_AfterUpdate(const pRet: WideString);
  13272. begin
  13273.   DefaultInterface.Set_AfterUpdate(pRet);
  13274. end;
  13275.  
  13276. function  TAccessForm.Get_OnDelete: WideString;
  13277. begin
  13278.   Result := DefaultInterface.Get_OnDelete;
  13279. end;
  13280.  
  13281. procedure TAccessForm.Set_OnDelete(const pRet: WideString);
  13282. begin
  13283.   DefaultInterface.Set_OnDelete(pRet);
  13284. end;
  13285.  
  13286. function  TAccessForm.Get_BeforeDelConfirm: WideString;
  13287. begin
  13288.   Result := DefaultInterface.Get_BeforeDelConfirm;
  13289. end;
  13290.  
  13291. procedure TAccessForm.Set_BeforeDelConfirm(const pRet: WideString);
  13292. begin
  13293.   DefaultInterface.Set_BeforeDelConfirm(pRet);
  13294. end;
  13295.  
  13296. function  TAccessForm.Get_AfterDelConfirm: WideString;
  13297. begin
  13298.   Result := DefaultInterface.Get_AfterDelConfirm;
  13299. end;
  13300.  
  13301. procedure TAccessForm.Set_AfterDelConfirm(const pRet: WideString);
  13302. begin
  13303.   DefaultInterface.Set_AfterDelConfirm(pRet);
  13304. end;
  13305.  
  13306. function  TAccessForm.Get_OnOpen: WideString;
  13307. begin
  13308.   Result := DefaultInterface.Get_OnOpen;
  13309. end;
  13310.  
  13311. procedure TAccessForm.Set_OnOpen(const pRet: WideString);
  13312. begin
  13313.   DefaultInterface.Set_OnOpen(pRet);
  13314. end;
  13315.  
  13316. function  TAccessForm.Get_OnLoad: WideString;
  13317. begin
  13318.   Result := DefaultInterface.Get_OnLoad;
  13319. end;
  13320.  
  13321. procedure TAccessForm.Set_OnLoad(const pRet: WideString);
  13322. begin
  13323.   DefaultInterface.Set_OnLoad(pRet);
  13324. end;
  13325.  
  13326. function  TAccessForm.Get_OnResize: WideString;
  13327. begin
  13328.   Result := DefaultInterface.Get_OnResize;
  13329. end;
  13330.  
  13331. procedure TAccessForm.Set_OnResize(const pRet: WideString);
  13332. begin
  13333.   DefaultInterface.Set_OnResize(pRet);
  13334. end;
  13335.  
  13336. function  TAccessForm.Get_OnUnload: WideString;
  13337. begin
  13338.   Result := DefaultInterface.Get_OnUnload;
  13339. end;
  13340.  
  13341. procedure TAccessForm.Set_OnUnload(const pRet: WideString);
  13342. begin
  13343.   DefaultInterface.Set_OnUnload(pRet);
  13344. end;
  13345.  
  13346. function  TAccessForm.Get_OnClose: WideString;
  13347. begin
  13348.   Result := DefaultInterface.Get_OnClose;
  13349. end;
  13350.  
  13351. procedure TAccessForm.Set_OnClose(const pRet: WideString);
  13352. begin
  13353.   DefaultInterface.Set_OnClose(pRet);
  13354. end;
  13355.  
  13356. function  TAccessForm.Get_OnActivate: WideString;
  13357. begin
  13358.   Result := DefaultInterface.Get_OnActivate;
  13359. end;
  13360.  
  13361. procedure TAccessForm.Set_OnActivate(const pRet: WideString);
  13362. begin
  13363.   DefaultInterface.Set_OnActivate(pRet);
  13364. end;
  13365.  
  13366. function  TAccessForm.Get_OnDeactivate: WideString;
  13367. begin
  13368.   Result := DefaultInterface.Get_OnDeactivate;
  13369. end;
  13370.  
  13371. procedure TAccessForm.Set_OnDeactivate(const pRet: WideString);
  13372. begin
  13373.   DefaultInterface.Set_OnDeactivate(pRet);
  13374. end;
  13375.  
  13376. function  TAccessForm.Get_OnGotFocus: WideString;
  13377. begin
  13378.   Result := DefaultInterface.Get_OnGotFocus;
  13379. end;
  13380.  
  13381. procedure TAccessForm.Set_OnGotFocus(const pRet: WideString);
  13382. begin
  13383.   DefaultInterface.Set_OnGotFocus(pRet);
  13384. end;
  13385.  
  13386. function  TAccessForm.Get_OnLostFocus: WideString;
  13387. begin
  13388.   Result := DefaultInterface.Get_OnLostFocus;
  13389. end;
  13390.  
  13391. procedure TAccessForm.Set_OnLostFocus(const pRet: WideString);
  13392. begin
  13393.   DefaultInterface.Set_OnLostFocus(pRet);
  13394. end;
  13395.  
  13396. function  TAccessForm.Get_OnClick: WideString;
  13397. begin
  13398.   Result := DefaultInterface.Get_OnClick;
  13399. end;
  13400.  
  13401. procedure TAccessForm.Set_OnClick(const pRet: WideString);
  13402. begin
  13403.   DefaultInterface.Set_OnClick(pRet);
  13404. end;
  13405.  
  13406. function  TAccessForm.Get_OnDblClick: WideString;
  13407. begin
  13408.   Result := DefaultInterface.Get_OnDblClick;
  13409. end;
  13410.  
  13411. procedure TAccessForm.Set_OnDblClick(const pRet: WideString);
  13412. begin
  13413.   DefaultInterface.Set_OnDblClick(pRet);
  13414. end;
  13415.  
  13416. function  TAccessForm.Get_OnMouseDown: WideString;
  13417. begin
  13418.   Result := DefaultInterface.Get_OnMouseDown;
  13419. end;
  13420.  
  13421. procedure TAccessForm.Set_OnMouseDown(const pRet: WideString);
  13422. begin
  13423.   DefaultInterface.Set_OnMouseDown(pRet);
  13424. end;
  13425.  
  13426. function  TAccessForm.Get_OnMouseMove: WideString;
  13427. begin
  13428.   Result := DefaultInterface.Get_OnMouseMove;
  13429. end;
  13430.  
  13431. procedure TAccessForm.Set_OnMouseMove(const pRet: WideString);
  13432. begin
  13433.   DefaultInterface.Set_OnMouseMove(pRet);
  13434. end;
  13435.  
  13436. function  TAccessForm.Get_OnMouseUp: WideString;
  13437. begin
  13438.   Result := DefaultInterface.Get_OnMouseUp;
  13439. end;
  13440.  
  13441. procedure TAccessForm.Set_OnMouseUp(const pRet: WideString);
  13442. begin
  13443.   DefaultInterface.Set_OnMouseUp(pRet);
  13444. end;
  13445.  
  13446. function  TAccessForm.Get_OnKeyDown: WideString;
  13447. begin
  13448.   Result := DefaultInterface.Get_OnKeyDown;
  13449. end;
  13450.  
  13451. procedure TAccessForm.Set_OnKeyDown(const pRet: WideString);
  13452. begin
  13453.   DefaultInterface.Set_OnKeyDown(pRet);
  13454. end;
  13455.  
  13456. function  TAccessForm.Get_OnKeyUp: WideString;
  13457. begin
  13458.   Result := DefaultInterface.Get_OnKeyUp;
  13459. end;
  13460.  
  13461. procedure TAccessForm.Set_OnKeyUp(const pRet: WideString);
  13462. begin
  13463.   DefaultInterface.Set_OnKeyUp(pRet);
  13464. end;
  13465.  
  13466. function  TAccessForm.Get_OnKeyPress: WideString;
  13467. begin
  13468.   Result := DefaultInterface.Get_OnKeyPress;
  13469. end;
  13470.  
  13471. procedure TAccessForm.Set_OnKeyPress(const pRet: WideString);
  13472. begin
  13473.   DefaultInterface.Set_OnKeyPress(pRet);
  13474. end;
  13475.  
  13476. function  TAccessForm.Get_KeyPreview: WordBool;
  13477. begin
  13478.   Result := DefaultInterface.Get_KeyPreview;
  13479. end;
  13480.  
  13481. procedure TAccessForm.Set_KeyPreview(pRet: WordBool);
  13482. begin
  13483.   DefaultInterface.Set_KeyPreview(pRet);
  13484. end;
  13485.  
  13486. function  TAccessForm.Get_OnError: WideString;
  13487. begin
  13488.   Result := DefaultInterface.Get_OnError;
  13489. end;
  13490.  
  13491. procedure TAccessForm.Set_OnError(const pRet: WideString);
  13492. begin
  13493.   DefaultInterface.Set_OnError(pRet);
  13494. end;
  13495.  
  13496. function  TAccessForm.Get_OnFilter: WideString;
  13497. begin
  13498.   Result := DefaultInterface.Get_OnFilter;
  13499. end;
  13500.  
  13501. procedure TAccessForm.Set_OnFilter(const pRet: WideString);
  13502. begin
  13503.   DefaultInterface.Set_OnFilter(pRet);
  13504. end;
  13505.  
  13506. function  TAccessForm.Get_OnApplyFilter: WideString;
  13507. begin
  13508.   Result := DefaultInterface.Get_OnApplyFilter;
  13509. end;
  13510.  
  13511. procedure TAccessForm.Set_OnApplyFilter(const pRet: WideString);
  13512. begin
  13513.   DefaultInterface.Set_OnApplyFilter(pRet);
  13514. end;
  13515.  
  13516. function  TAccessForm.Get_OnTimer: WideString;
  13517. begin
  13518.   Result := DefaultInterface.Get_OnTimer;
  13519. end;
  13520.  
  13521. procedure TAccessForm.Set_OnTimer(const pRet: WideString);
  13522. begin
  13523.   DefaultInterface.Set_OnTimer(pRet);
  13524. end;
  13525.  
  13526. function  TAccessForm.Get_TimerInterval: Integer;
  13527. begin
  13528.   Result := DefaultInterface.Get_TimerInterval;
  13529. end;
  13530.  
  13531. procedure TAccessForm.Set_TimerInterval(pRet: Integer);
  13532. begin
  13533.   DefaultInterface.Set_TimerInterval(pRet);
  13534. end;
  13535.  
  13536. function  TAccessForm.Get_Dirty: WordBool;
  13537. begin
  13538.   Result := DefaultInterface.Get_Dirty;
  13539. end;
  13540.  
  13541. procedure TAccessForm.Set_Dirty(pRet: WordBool);
  13542. begin
  13543.   DefaultInterface.Set_Dirty(pRet);
  13544. end;
  13545.  
  13546. function  TAccessForm.Get_WindowWidth: Smallint;
  13547. begin
  13548.   Result := DefaultInterface.Get_WindowWidth;
  13549. end;
  13550.  
  13551. procedure TAccessForm.Set_WindowWidth(pRet: Smallint);
  13552. begin
  13553.   DefaultInterface.Set_WindowWidth(pRet);
  13554. end;
  13555.  
  13556. function  TAccessForm.Get_WindowHeight: Smallint;
  13557. begin
  13558.   Result := DefaultInterface.Get_WindowHeight;
  13559. end;
  13560.  
  13561. procedure TAccessForm.Set_WindowHeight(pRet: Smallint);
  13562. begin
  13563.   DefaultInterface.Set_WindowHeight(pRet);
  13564. end;
  13565.  
  13566. function  TAccessForm.Get_CurrentView: Smallint;
  13567. begin
  13568.   Result := DefaultInterface.Get_CurrentView;
  13569. end;
  13570.  
  13571. procedure TAccessForm.Set_CurrentView(pRet: Smallint);
  13572. begin
  13573.   DefaultInterface.Set_CurrentView(pRet);
  13574. end;
  13575.  
  13576. function  TAccessForm.Get_CurrentSectionTop: Smallint;
  13577. begin
  13578.   Result := DefaultInterface.Get_CurrentSectionTop;
  13579. end;
  13580.  
  13581. procedure TAccessForm.Set_CurrentSectionTop(pRet: Smallint);
  13582. begin
  13583.   DefaultInterface.Set_CurrentSectionTop(pRet);
  13584. end;
  13585.  
  13586. function  TAccessForm.Get_CurrentSectionLeft: Smallint;
  13587. begin
  13588.   Result := DefaultInterface.Get_CurrentSectionLeft;
  13589. end;
  13590.  
  13591. procedure TAccessForm.Set_CurrentSectionLeft(pRet: Smallint);
  13592. begin
  13593.   DefaultInterface.Set_CurrentSectionLeft(pRet);
  13594. end;
  13595.  
  13596. function  TAccessForm.Get_SelLeft: Integer;
  13597. begin
  13598.   Result := DefaultInterface.Get_SelLeft;
  13599. end;
  13600.  
  13601. procedure TAccessForm.Set_SelLeft(pRet: Integer);
  13602. begin
  13603.   DefaultInterface.Set_SelLeft(pRet);
  13604. end;
  13605.  
  13606. function  TAccessForm.Get_SelTop: Integer;
  13607. begin
  13608.   Result := DefaultInterface.Get_SelTop;
  13609. end;
  13610.  
  13611. procedure TAccessForm.Set_SelTop(pRet: Integer);
  13612. begin
  13613.   DefaultInterface.Set_SelTop(pRet);
  13614. end;
  13615.  
  13616. function  TAccessForm.Get_SelWidth: Integer;
  13617. begin
  13618.   Result := DefaultInterface.Get_SelWidth;
  13619. end;
  13620.  
  13621. procedure TAccessForm.Set_SelWidth(pRet: Integer);
  13622. begin
  13623.   DefaultInterface.Set_SelWidth(pRet);
  13624. end;
  13625.  
  13626. function  TAccessForm.Get_SelHeight: Integer;
  13627. begin
  13628.   Result := DefaultInterface.Get_SelHeight;
  13629. end;
  13630.  
  13631. procedure TAccessForm.Set_SelHeight(pRet: Integer);
  13632. begin
  13633.   DefaultInterface.Set_SelHeight(pRet);
  13634. end;
  13635.  
  13636. function  TAccessForm.Get_CurrentRecord: Integer;
  13637. begin
  13638.   Result := DefaultInterface.Get_CurrentRecord;
  13639. end;
  13640.  
  13641. procedure TAccessForm.Set_CurrentRecord(pRet: Integer);
  13642. begin
  13643.   DefaultInterface.Set_CurrentRecord(pRet);
  13644. end;
  13645.  
  13646. function  TAccessForm.Get_PictureData: OleVariant;
  13647. begin
  13648.   Result := DefaultInterface.Get_PictureData;
  13649. end;
  13650.  
  13651. procedure TAccessForm.Set_PictureData(pRet: OleVariant);
  13652. begin
  13653.   DefaultInterface.Set_PictureData(pRet);
  13654. end;
  13655.  
  13656. function  TAccessForm.Get_InsideHeight: Integer;
  13657. begin
  13658.   Result := DefaultInterface.Get_InsideHeight;
  13659. end;
  13660.  
  13661. procedure TAccessForm.Set_InsideHeight(pRet: Integer);
  13662. begin
  13663.   DefaultInterface.Set_InsideHeight(pRet);
  13664. end;
  13665.  
  13666. function  TAccessForm.Get_InsideWidth: Integer;
  13667. begin
  13668.   Result := DefaultInterface.Get_InsideWidth;
  13669. end;
  13670.  
  13671. procedure TAccessForm.Set_InsideWidth(pRet: Integer);
  13672. begin
  13673.   DefaultInterface.Set_InsideWidth(pRet);
  13674. end;
  13675.  
  13676. function  TAccessForm.Get_PicturePalette: OleVariant;
  13677. begin
  13678.   Result := DefaultInterface.Get_PicturePalette;
  13679. end;
  13680.  
  13681. procedure TAccessForm.Set_PicturePalette(pRet: OleVariant);
  13682. begin
  13683.   DefaultInterface.Set_PicturePalette(pRet);
  13684. end;
  13685.  
  13686. function  TAccessForm.Get_HasModule: WordBool;
  13687. begin
  13688.   Result := DefaultInterface.Get_HasModule;
  13689. end;
  13690.  
  13691. procedure TAccessForm.Set_HasModule(pRet: WordBool);
  13692. begin
  13693.   DefaultInterface.Set_HasModule(pRet);
  13694. end;
  13695.  
  13696. function  TAccessForm.Get_acHiddenCurrentPage: Integer;
  13697. begin
  13698.   Result := DefaultInterface.Get_acHiddenCurrentPage;
  13699. end;
  13700.  
  13701. procedure TAccessForm.Set_acHiddenCurrentPage(pRet: Integer);
  13702. begin
  13703.   DefaultInterface.Set_acHiddenCurrentPage(pRet);
  13704. end;
  13705.  
  13706. function  TAccessForm.Get_Application: Application;
  13707. begin
  13708.   Result := DefaultInterface.Get_Application;
  13709. end;
  13710.  
  13711. function  TAccessForm.Get_Parent: IDispatch;
  13712. begin
  13713.   Result := DefaultInterface.Get_Parent;
  13714. end;
  13715.  
  13716. function  TAccessForm.Get_NewRecord: Smallint;
  13717. begin
  13718.   Result := DefaultInterface.Get_NewRecord;
  13719. end;
  13720.  
  13721. function  TAccessForm.Get_ActiveControl: AccessControl;
  13722. begin
  13723.   Result := DefaultInterface.Get_ActiveControl;
  13724. end;
  13725.  
  13726. function  TAccessForm.Get_DefaultControl(ControlType: Integer): AccessControl;
  13727. begin
  13728.   Result := DefaultInterface.Get_DefaultControl(ControlType);
  13729. end;
  13730.  
  13731. function  TAccessForm.Get_Dynaset: IDispatch;
  13732. begin
  13733.   Result := DefaultInterface.Get_Dynaset;
  13734. end;
  13735.  
  13736. function  TAccessForm.Get_RecordsetClone: Recordset;
  13737. begin
  13738.   Result := DefaultInterface.Get_RecordsetClone;
  13739. end;
  13740.  
  13741. function  TAccessForm.Get_Section(var_: OleVariant): AccessSection;
  13742. begin
  13743.   Result := DefaultInterface.Get_Section(var_);
  13744. end;
  13745.  
  13746. function  TAccessForm.Get_Form: AccessForm;
  13747. begin
  13748.   Result := DefaultInterface.Get_Form;
  13749. end;
  13750.  
  13751. function  TAccessForm.Get_Module: Module;
  13752. begin
  13753.   Result := DefaultInterface.Get_Module;
  13754. end;
  13755.  
  13756. function  TAccessForm.Get_Properties: Properties;
  13757. begin
  13758.   Result := DefaultInterface.Get_Properties;
  13759. end;
  13760.  
  13761. function  TAccessForm.Get_ConnectControl: AccessControl;
  13762. begin
  13763.   Result := DefaultInterface.Get_ConnectControl;
  13764. end;
  13765.  
  13766. function  TAccessForm.Get_Controls: Controls;
  13767. begin
  13768.   Result := DefaultInterface.Get_Controls;
  13769. end;
  13770.  
  13771. procedure TAccessForm.Undo;
  13772. begin
  13773.   DefaultInterface.Undo;
  13774. end;
  13775.  
  13776. procedure TAccessForm.Recalc;
  13777. begin
  13778.   DefaultInterface.Recalc;
  13779. end;
  13780.  
  13781. procedure TAccessForm.Requery;
  13782. begin
  13783.   DefaultInterface.Requery;
  13784. end;
  13785.  
  13786. procedure TAccessForm.Refresh;
  13787. begin
  13788.   DefaultInterface.Refresh;
  13789. end;
  13790.  
  13791. procedure TAccessForm.Repaint;
  13792. begin
  13793.   DefaultInterface.Repaint;
  13794. end;
  13795.  
  13796. procedure TAccessForm.GoToPage(PageNumber: Integer; Right: Integer; Down: Integer);
  13797. begin
  13798.   DefaultInterface.GoToPage(PageNumber, Right, Down);
  13799. end;
  13800.  
  13801. procedure TAccessForm.SetFocus;
  13802. begin
  13803.   DefaultInterface.SetFocus;
  13804. end;
  13805.  
  13806. function  TAccessForm._Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant;
  13807. begin
  13808.   Result := DefaultInterface._Evaluate(bstrExpr, ppsa);
  13809. end;
  13810.  
  13811. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13812. constructor TAccessFormProperties.Create(AServer: TAccessForm);
  13813. begin
  13814.   inherited Create;
  13815.   FServer := AServer;
  13816. end;
  13817.  
  13818. function TAccessFormProperties.GetDefaultInterface: _Form;
  13819. begin
  13820.   Result := FServer.DefaultInterface;
  13821. end;
  13822.  
  13823. function  TAccessFormProperties.Get_FormName: WideString;
  13824. begin
  13825.   Result := DefaultInterface.Get_FormName;
  13826. end;
  13827.  
  13828. procedure TAccessFormProperties.Set_FormName(const pRet: WideString);
  13829. begin
  13830.   DefaultInterface.Set_FormName(pRet);
  13831. end;
  13832.  
  13833. function  TAccessFormProperties.Get_RecordSource: WideString;
  13834. begin
  13835.   Result := DefaultInterface.Get_RecordSource;
  13836. end;
  13837.  
  13838. procedure TAccessFormProperties.Set_RecordSource(const pRet: WideString);
  13839. begin
  13840.   DefaultInterface.Set_RecordSource(pRet);
  13841. end;
  13842.  
  13843. function  TAccessFormProperties.Get_Filter: WideString;
  13844. begin
  13845.   Result := DefaultInterface.Get_Filter;
  13846. end;
  13847.  
  13848. procedure TAccessFormProperties.Set_Filter(const pRet: WideString);
  13849. begin
  13850.   DefaultInterface.Set_Filter(pRet);
  13851. end;
  13852.  
  13853. function  TAccessFormProperties.Get_FilterOn: WordBool;
  13854. begin
  13855.   Result := DefaultInterface.Get_FilterOn;
  13856. end;
  13857.  
  13858. procedure TAccessFormProperties.Set_FilterOn(pRet: WordBool);
  13859. begin
  13860.   DefaultInterface.Set_FilterOn(pRet);
  13861. end;
  13862.  
  13863. function  TAccessFormProperties.Get_OrderBy: WideString;
  13864. begin
  13865.   Result := DefaultInterface.Get_OrderBy;
  13866. end;
  13867.  
  13868. procedure TAccessFormProperties.Set_OrderBy(const pRet: WideString);
  13869. begin
  13870.   DefaultInterface.Set_OrderBy(pRet);
  13871. end;
  13872.  
  13873. function  TAccessFormProperties.Get_OrderByOn: WordBool;
  13874. begin
  13875.   Result := DefaultInterface.Get_OrderByOn;
  13876. end;
  13877.  
  13878. procedure TAccessFormProperties.Set_OrderByOn(pRet: WordBool);
  13879. begin
  13880.   DefaultInterface.Set_OrderByOn(pRet);
  13881. end;
  13882.  
  13883. function  TAccessFormProperties.Get_AllowFilters: WordBool;
  13884. begin
  13885.   Result := DefaultInterface.Get_AllowFilters;
  13886. end;
  13887.  
  13888. procedure TAccessFormProperties.Set_AllowFilters(pRet: WordBool);
  13889. begin
  13890.   DefaultInterface.Set_AllowFilters(pRet);
  13891. end;
  13892.  
  13893. function  TAccessFormProperties.Get_Caption: WideString;
  13894. begin
  13895.   Result := DefaultInterface.Get_Caption;
  13896. end;
  13897.  
  13898. procedure TAccessFormProperties.Set_Caption(const pRet: WideString);
  13899. begin
  13900.   DefaultInterface.Set_Caption(pRet);
  13901. end;
  13902.  
  13903. function  TAccessFormProperties.Get_DefaultView: Byte;
  13904. begin
  13905.   Result := DefaultInterface.Get_DefaultView;
  13906. end;
  13907.  
  13908. procedure TAccessFormProperties.Set_DefaultView(pRet: Byte);
  13909. begin
  13910.   DefaultInterface.Set_DefaultView(pRet);
  13911. end;
  13912.  
  13913. function  TAccessFormProperties.Get_ViewsAllowed: Byte;
  13914. begin
  13915.   Result := DefaultInterface.Get_ViewsAllowed;
  13916. end;
  13917.  
  13918. procedure TAccessFormProperties.Set_ViewsAllowed(pRet: Byte);
  13919. begin
  13920.   DefaultInterface.Set_ViewsAllowed(pRet);
  13921. end;
  13922.  
  13923. function  TAccessFormProperties.Get_AllowEditing: WordBool;
  13924. begin
  13925.   Result := DefaultInterface.Get_AllowEditing;
  13926. end;
  13927.  
  13928. procedure TAccessFormProperties.Set_AllowEditing(pRet: WordBool);
  13929. begin
  13930.   DefaultInterface.Set_AllowEditing(pRet);
  13931. end;
  13932.  
  13933. function  TAccessFormProperties.Get_DefaultEditing: Smallint;
  13934. begin
  13935.   Result := DefaultInterface.Get_DefaultEditing;
  13936. end;
  13937.  
  13938. procedure TAccessFormProperties.Set_DefaultEditing(pRet: Smallint);
  13939. begin
  13940.   DefaultInterface.Set_DefaultEditing(pRet);
  13941. end;
  13942.  
  13943. function  TAccessFormProperties.Get_AllowEdits: WordBool;
  13944. begin
  13945.   Result := DefaultInterface.Get_AllowEdits;
  13946. end;
  13947.  
  13948. procedure TAccessFormProperties.Set_AllowEdits(pRet: WordBool);
  13949. begin
  13950.   DefaultInterface.Set_AllowEdits(pRet);
  13951. end;
  13952.  
  13953. function  TAccessFormProperties.Get_AllowDeletions: WordBool;
  13954. begin
  13955.   Result := DefaultInterface.Get_AllowDeletions;
  13956. end;
  13957.  
  13958. procedure TAccessFormProperties.Set_AllowDeletions(pRet: WordBool);
  13959. begin
  13960.   DefaultInterface.Set_AllowDeletions(pRet);
  13961. end;
  13962.  
  13963. function  TAccessFormProperties.Get_AllowAdditions: WordBool;
  13964. begin
  13965.   Result := DefaultInterface.Get_AllowAdditions;
  13966. end;
  13967.  
  13968. procedure TAccessFormProperties.Set_AllowAdditions(pRet: WordBool);
  13969. begin
  13970.   DefaultInterface.Set_AllowAdditions(pRet);
  13971. end;
  13972.  
  13973. function  TAccessFormProperties.Get_DataEntry: WordBool;
  13974. begin
  13975.   Result := DefaultInterface.Get_DataEntry;
  13976. end;
  13977.  
  13978. procedure TAccessFormProperties.Set_DataEntry(pRet: WordBool);
  13979. begin
  13980.   DefaultInterface.Set_DataEntry(pRet);
  13981. end;
  13982.  
  13983. function  TAccessFormProperties.Get_AllowUpdating: Byte;
  13984. begin
  13985.   Result := DefaultInterface.Get_AllowUpdating;
  13986. end;
  13987.  
  13988. procedure TAccessFormProperties.Set_AllowUpdating(pRet: Byte);
  13989. begin
  13990.   DefaultInterface.Set_AllowUpdating(pRet);
  13991. end;
  13992.  
  13993. function  TAccessFormProperties.Get_RecordsetType: Byte;
  13994. begin
  13995.   Result := DefaultInterface.Get_RecordsetType;
  13996. end;
  13997.  
  13998. procedure TAccessFormProperties.Set_RecordsetType(pRet: Byte);
  13999. begin
  14000.   DefaultInterface.Set_RecordsetType(pRet);
  14001. end;
  14002.  
  14003. function  TAccessFormProperties.Get_RecordLocks: Byte;
  14004. begin
  14005.   Result := DefaultInterface.Get_RecordLocks;
  14006. end;
  14007.  
  14008. procedure TAccessFormProperties.Set_RecordLocks(pRet: Byte);
  14009. begin
  14010.   DefaultInterface.Set_RecordLocks(pRet);
  14011. end;
  14012.  
  14013. function  TAccessFormProperties.Get_ScrollBars: Byte;
  14014. begin
  14015.   Result := DefaultInterface.Get_ScrollBars;
  14016. end;
  14017.  
  14018. procedure TAccessFormProperties.Set_ScrollBars(pRet: Byte);
  14019. begin
  14020.   DefaultInterface.Set_ScrollBars(pRet);
  14021. end;
  14022.  
  14023. function  TAccessFormProperties.Get_RecordSelectors: WordBool;
  14024. begin
  14025.   Result := DefaultInterface.Get_RecordSelectors;
  14026. end;
  14027.  
  14028. procedure TAccessFormProperties.Set_RecordSelectors(pRet: WordBool);
  14029. begin
  14030.   DefaultInterface.Set_RecordSelectors(pRet);
  14031. end;
  14032.  
  14033. function  TAccessFormProperties.Get_NavigationButtons: WordBool;
  14034. begin
  14035.   Result := DefaultInterface.Get_NavigationButtons;
  14036. end;
  14037.  
  14038. procedure TAccessFormProperties.Set_NavigationButtons(pRet: WordBool);
  14039. begin
  14040.   DefaultInterface.Set_NavigationButtons(pRet);
  14041. end;
  14042.  
  14043. function  TAccessFormProperties.Get_DividingLines: WordBool;
  14044. begin
  14045.   Result := DefaultInterface.Get_DividingLines;
  14046. end;
  14047.  
  14048. procedure TAccessFormProperties.Set_DividingLines(pRet: WordBool);
  14049. begin
  14050.   DefaultInterface.Set_DividingLines(pRet);
  14051. end;
  14052.  
  14053. function  TAccessFormProperties.Get_AutoResize: WordBool;
  14054. begin
  14055.   Result := DefaultInterface.Get_AutoResize;
  14056. end;
  14057.  
  14058. procedure TAccessFormProperties.Set_AutoResize(pRet: WordBool);
  14059. begin
  14060.   DefaultInterface.Set_AutoResize(pRet);
  14061. end;
  14062.  
  14063. function  TAccessFormProperties.Get_AutoCenter: WordBool;
  14064. begin
  14065.   Result := DefaultInterface.Get_AutoCenter;
  14066. end;
  14067.  
  14068. procedure TAccessFormProperties.Set_AutoCenter(pRet: WordBool);
  14069. begin
  14070.   DefaultInterface.Set_AutoCenter(pRet);
  14071. end;
  14072.  
  14073. function  TAccessFormProperties.Get_PopUp: WordBool;
  14074. begin
  14075.   Result := DefaultInterface.Get_PopUp;
  14076. end;
  14077.  
  14078. procedure TAccessFormProperties.Set_PopUp(pRet: WordBool);
  14079. begin
  14080.   DefaultInterface.Set_PopUp(pRet);
  14081. end;
  14082.  
  14083. function  TAccessFormProperties.Get_Modal: WordBool;
  14084. begin
  14085.   Result := DefaultInterface.Get_Modal;
  14086. end;
  14087.  
  14088. procedure TAccessFormProperties.Set_Modal(pRet: WordBool);
  14089. begin
  14090.   DefaultInterface.Set_Modal(pRet);
  14091. end;
  14092.  
  14093. function  TAccessFormProperties.Get_BorderStyle: Byte;
  14094. begin
  14095.   Result := DefaultInterface.Get_BorderStyle;
  14096. end;
  14097.  
  14098. procedure TAccessFormProperties.Set_BorderStyle(pRet: Byte);
  14099. begin
  14100.   DefaultInterface.Set_BorderStyle(pRet);
  14101. end;
  14102.  
  14103. function  TAccessFormProperties.Get_ControlBox: WordBool;
  14104. begin
  14105.   Result := DefaultInterface.Get_ControlBox;
  14106. end;
  14107.  
  14108. procedure TAccessFormProperties.Set_ControlBox(pRet: WordBool);
  14109. begin
  14110.   DefaultInterface.Set_ControlBox(pRet);
  14111. end;
  14112.  
  14113. function  TAccessFormProperties.Get_MinButton: WordBool;
  14114. begin
  14115.   Result := DefaultInterface.Get_MinButton;
  14116. end;
  14117.  
  14118. procedure TAccessFormProperties.Set_MinButton(pRet: WordBool);
  14119. begin
  14120.   DefaultInterface.Set_MinButton(pRet);
  14121. end;
  14122.  
  14123. function  TAccessFormProperties.Get_MaxButton: WordBool;
  14124. begin
  14125.   Result := DefaultInterface.Get_MaxButton;
  14126. end;
  14127.  
  14128. procedure TAccessFormProperties.Set_MaxButton(pRet: WordBool);
  14129. begin
  14130.   DefaultInterface.Set_MaxButton(pRet);
  14131. end;
  14132.  
  14133. function  TAccessFormProperties.Get_MinMaxButtons: Byte;
  14134. begin
  14135.   Result := DefaultInterface.Get_MinMaxButtons;
  14136. end;
  14137.  
  14138. procedure TAccessFormProperties.Set_MinMaxButtons(pRet: Byte);
  14139. begin
  14140.   DefaultInterface.Set_MinMaxButtons(pRet);
  14141. end;
  14142.  
  14143. function  TAccessFormProperties.Get_CloseButton: WordBool;
  14144. begin
  14145.   Result := DefaultInterface.Get_CloseButton;
  14146. end;
  14147.  
  14148. procedure TAccessFormProperties.Set_CloseButton(pRet: WordBool);
  14149. begin
  14150.   DefaultInterface.Set_CloseButton(pRet);
  14151. end;
  14152.  
  14153. function  TAccessFormProperties.Get_WhatsThisButton: WordBool;
  14154. begin
  14155.   Result := DefaultInterface.Get_WhatsThisButton;
  14156. end;
  14157.  
  14158. procedure TAccessFormProperties.Set_WhatsThisButton(pRet: WordBool);
  14159. begin
  14160.   DefaultInterface.Set_WhatsThisButton(pRet);
  14161. end;
  14162.  
  14163. function  TAccessFormProperties.Get_Width: Smallint;
  14164. begin
  14165.   Result := DefaultInterface.Get_Width;
  14166. end;
  14167.  
  14168. procedure TAccessFormProperties.Set_Width(pRet: Smallint);
  14169. begin
  14170.   DefaultInterface.Set_Width(pRet);
  14171. end;
  14172.  
  14173. function  TAccessFormProperties.Get_Picture: WideString;
  14174. begin
  14175.   Result := DefaultInterface.Get_Picture;
  14176. end;
  14177.  
  14178. procedure TAccessFormProperties.Set_Picture(const pRet: WideString);
  14179. begin
  14180.   DefaultInterface.Set_Picture(pRet);
  14181. end;
  14182.  
  14183. function  TAccessFormProperties.Get_PictureType: Byte;
  14184. begin
  14185.   Result := DefaultInterface.Get_PictureType;
  14186. end;
  14187.  
  14188. procedure TAccessFormProperties.Set_PictureType(pRet: Byte);
  14189. begin
  14190.   DefaultInterface.Set_PictureType(pRet);
  14191. end;
  14192.  
  14193. function  TAccessFormProperties.Get_PictureSizeMode: Byte;
  14194. begin
  14195.   Result := DefaultInterface.Get_PictureSizeMode;
  14196. end;
  14197.  
  14198. procedure TAccessFormProperties.Set_PictureSizeMode(pRet: Byte);
  14199. begin
  14200.   DefaultInterface.Set_PictureSizeMode(pRet);
  14201. end;
  14202.  
  14203. function  TAccessFormProperties.Get_PictureAlignment: Byte;
  14204. begin
  14205.   Result := DefaultInterface.Get_PictureAlignment;
  14206. end;
  14207.  
  14208. procedure TAccessFormProperties.Set_PictureAlignment(pRet: Byte);
  14209. begin
  14210.   DefaultInterface.Set_PictureAlignment(pRet);
  14211. end;
  14212.  
  14213. function  TAccessFormProperties.Get_PictureTiling: WordBool;
  14214. begin
  14215.   Result := DefaultInterface.Get_PictureTiling;
  14216. end;
  14217.  
  14218. procedure TAccessFormProperties.Set_PictureTiling(pRet: WordBool);
  14219. begin
  14220.   DefaultInterface.Set_PictureTiling(pRet);
  14221. end;
  14222.  
  14223. function  TAccessFormProperties.Get_Cycle: Byte;
  14224. begin
  14225.   Result := DefaultInterface.Get_Cycle;
  14226. end;
  14227.  
  14228. procedure TAccessFormProperties.Set_Cycle(pRet: Byte);
  14229. begin
  14230.   DefaultInterface.Set_Cycle(pRet);
  14231. end;
  14232.  
  14233. function  TAccessFormProperties.Get_MenuBar: WideString;
  14234. begin
  14235.   Result := DefaultInterface.Get_MenuBar;
  14236. end;
  14237.  
  14238. procedure TAccessFormProperties.Set_MenuBar(const pRet: WideString);
  14239. begin
  14240.   DefaultInterface.Set_MenuBar(pRet);
  14241. end;
  14242.  
  14243. function  TAccessFormProperties.Get_Toolbar: WideString;
  14244. begin
  14245.   Result := DefaultInterface.Get_Toolbar;
  14246. end;
  14247.  
  14248. procedure TAccessFormProperties.Set_Toolbar(const pRet: WideString);
  14249. begin
  14250.   DefaultInterface.Set_Toolbar(pRet);
  14251. end;
  14252.  
  14253. function  TAccessFormProperties.Get_ShortcutMenu: WordBool;
  14254. begin
  14255.   Result := DefaultInterface.Get_ShortcutMenu;
  14256. end;
  14257.  
  14258. procedure TAccessFormProperties.Set_ShortcutMenu(pRet: WordBool);
  14259. begin
  14260.   DefaultInterface.Set_ShortcutMenu(pRet);
  14261. end;
  14262.  
  14263. function  TAccessFormProperties.Get_ShortcutMenuBar: WideString;
  14264. begin
  14265.   Result := DefaultInterface.Get_ShortcutMenuBar;
  14266. end;
  14267.  
  14268. procedure TAccessFormProperties.Set_ShortcutMenuBar(const pRet: WideString);
  14269. begin
  14270.   DefaultInterface.Set_ShortcutMenuBar(pRet);
  14271. end;
  14272.  
  14273. function  TAccessFormProperties.Get_GridX: Smallint;
  14274. begin
  14275.   Result := DefaultInterface.Get_GridX;
  14276. end;
  14277.  
  14278. procedure TAccessFormProperties.Set_GridX(pRet: Smallint);
  14279. begin
  14280.   DefaultInterface.Set_GridX(pRet);
  14281. end;
  14282.  
  14283. function  TAccessFormProperties.Get_GridY: Smallint;
  14284. begin
  14285.   Result := DefaultInterface.Get_GridY;
  14286. end;
  14287.  
  14288. procedure TAccessFormProperties.Set_GridY(pRet: Smallint);
  14289. begin
  14290.   DefaultInterface.Set_GridY(pRet);
  14291. end;
  14292.  
  14293. function  TAccessFormProperties.Get_LayoutForPrint: WordBool;
  14294. begin
  14295.   Result := DefaultInterface.Get_LayoutForPrint;
  14296. end;
  14297.  
  14298. procedure TAccessFormProperties.Set_LayoutForPrint(pRet: WordBool);
  14299. begin
  14300.   DefaultInterface.Set_LayoutForPrint(pRet);
  14301. end;
  14302.  
  14303. function  TAccessFormProperties.Get_FastLaserPrinting: WordBool;
  14304. begin
  14305.   Result := DefaultInterface.Get_FastLaserPrinting;
  14306. end;
  14307.  
  14308. procedure TAccessFormProperties.Set_FastLaserPrinting(pRet: WordBool);
  14309. begin
  14310.   DefaultInterface.Set_FastLaserPrinting(pRet);
  14311. end;
  14312.  
  14313. function  TAccessFormProperties.Get_HelpFile: WideString;
  14314. begin
  14315.   Result := DefaultInterface.Get_HelpFile;
  14316. end;
  14317.  
  14318. procedure TAccessFormProperties.Set_HelpFile(const pRet: WideString);
  14319. begin
  14320.   DefaultInterface.Set_HelpFile(pRet);
  14321. end;
  14322.  
  14323. function  TAccessFormProperties.Get_HelpContextId: Integer;
  14324. begin
  14325.   Result := DefaultInterface.Get_HelpContextId;
  14326. end;
  14327.  
  14328. procedure TAccessFormProperties.Set_HelpContextId(pRet: Integer);
  14329. begin
  14330.   DefaultInterface.Set_HelpContextId(pRet);
  14331. end;
  14332.  
  14333. function  TAccessFormProperties.Get_RowHeight: Smallint;
  14334. begin
  14335.   Result := DefaultInterface.Get_RowHeight;
  14336. end;
  14337.  
  14338. procedure TAccessFormProperties.Set_RowHeight(pRet: Smallint);
  14339. begin
  14340.   DefaultInterface.Set_RowHeight(pRet);
  14341. end;
  14342.  
  14343. function  TAccessFormProperties.Get_DatasheetFontName: WideString;
  14344. begin
  14345.   Result := DefaultInterface.Get_DatasheetFontName;
  14346. end;
  14347.  
  14348. procedure TAccessFormProperties.Set_DatasheetFontName(const pRet: WideString);
  14349. begin
  14350.   DefaultInterface.Set_DatasheetFontName(pRet);
  14351. end;
  14352.  
  14353. function  TAccessFormProperties.Get_DatasheetFontHeight: Smallint;
  14354. begin
  14355.   Result := DefaultInterface.Get_DatasheetFontHeight;
  14356. end;
  14357.  
  14358. procedure TAccessFormProperties.Set_DatasheetFontHeight(pRet: Smallint);
  14359. begin
  14360.   DefaultInterface.Set_DatasheetFontHeight(pRet);
  14361. end;
  14362.  
  14363. function  TAccessFormProperties.Get_DatasheetFontWeight: Smallint;
  14364. begin
  14365.   Result := DefaultInterface.Get_DatasheetFontWeight;
  14366. end;
  14367.  
  14368. procedure TAccessFormProperties.Set_DatasheetFontWeight(pRet: Smallint);
  14369. begin
  14370.   DefaultInterface.Set_DatasheetFontWeight(pRet);
  14371. end;
  14372.  
  14373. function  TAccessFormProperties.Get_DatasheetFontItalic: WordBool;
  14374. begin
  14375.   Result := DefaultInterface.Get_DatasheetFontItalic;
  14376. end;
  14377.  
  14378. procedure TAccessFormProperties.Set_DatasheetFontItalic(pRet: WordBool);
  14379. begin
  14380.   DefaultInterface.Set_DatasheetFontItalic(pRet);
  14381. end;
  14382.  
  14383. function  TAccessFormProperties.Get_DatasheetFontUnderline: WordBool;
  14384. begin
  14385.   Result := DefaultInterface.Get_DatasheetFontUnderline;
  14386. end;
  14387.  
  14388. procedure TAccessFormProperties.Set_DatasheetFontUnderline(pRet: WordBool);
  14389. begin
  14390.   DefaultInterface.Set_DatasheetFontUnderline(pRet);
  14391. end;
  14392.  
  14393. function  TAccessFormProperties.Get_TabularCharSet: Byte;
  14394. begin
  14395.   Result := DefaultInterface.Get_TabularCharSet;
  14396. end;
  14397.  
  14398. procedure TAccessFormProperties.Set_TabularCharSet(pRet: Byte);
  14399. begin
  14400.   DefaultInterface.Set_TabularCharSet(pRet);
  14401. end;
  14402.  
  14403. function  TAccessFormProperties.Get_DatasheetGridlinesBehavior: Byte;
  14404. begin
  14405.   Result := DefaultInterface.Get_DatasheetGridlinesBehavior;
  14406. end;
  14407.  
  14408. procedure TAccessFormProperties.Set_DatasheetGridlinesBehavior(pRet: Byte);
  14409. begin
  14410.   DefaultInterface.Set_DatasheetGridlinesBehavior(pRet);
  14411. end;
  14412.  
  14413. function  TAccessFormProperties.Get_DatasheetGridlinesColor: Integer;
  14414. begin
  14415.   Result := DefaultInterface.Get_DatasheetGridlinesColor;
  14416. end;
  14417.  
  14418. procedure TAccessFormProperties.Set_DatasheetGridlinesColor(pRet: Integer);
  14419. begin
  14420.   DefaultInterface.Set_DatasheetGridlinesColor(pRet);
  14421. end;
  14422.  
  14423. function  TAccessFormProperties.Get_DatasheetCellsEffect: Byte;
  14424. begin
  14425.   Result := DefaultInterface.Get_DatasheetCellsEffect;
  14426. end;
  14427.  
  14428. procedure TAccessFormProperties.Set_DatasheetCellsEffect(pRet: Byte);
  14429. begin
  14430.   DefaultInterface.Set_DatasheetCellsEffect(pRet);
  14431. end;
  14432.  
  14433. function  TAccessFormProperties.Get_DatasheetForeColor: Integer;
  14434. begin
  14435.   Result := DefaultInterface.Get_DatasheetForeColor;
  14436. end;
  14437.  
  14438. procedure TAccessFormProperties.Set_DatasheetForeColor(pRet: Integer);
  14439. begin
  14440.   DefaultInterface.Set_DatasheetForeColor(pRet);
  14441. end;
  14442.  
  14443. function  TAccessFormProperties.Get_ShowGrid: WordBool;
  14444. begin
  14445.   Result := DefaultInterface.Get_ShowGrid;
  14446. end;
  14447.  
  14448. procedure TAccessFormProperties.Set_ShowGrid(pRet: WordBool);
  14449. begin
  14450.   DefaultInterface.Set_ShowGrid(pRet);
  14451. end;
  14452.  
  14453. function  TAccessFormProperties.Get_DatasheetBackColor: Integer;
  14454. begin
  14455.   Result := DefaultInterface.Get_DatasheetBackColor;
  14456. end;
  14457.  
  14458. procedure TAccessFormProperties.Set_DatasheetBackColor(pRet: Integer);
  14459. begin
  14460.   DefaultInterface.Set_DatasheetBackColor(pRet);
  14461. end;
  14462.  
  14463. function  TAccessFormProperties.Get_Hwnd: Integer;
  14464. begin
  14465.   Result := DefaultInterface.Get_Hwnd;
  14466. end;
  14467.  
  14468. procedure TAccessFormProperties.Set_Hwnd(pRet: Integer);
  14469. begin
  14470.   DefaultInterface.Set_Hwnd(pRet);
  14471. end;
  14472.  
  14473. function  TAccessFormProperties.Get_Count: Smallint;
  14474. begin
  14475.   Result := DefaultInterface.Get_Count;
  14476. end;
  14477.  
  14478. procedure TAccessFormProperties.Set_Count(pRet: Smallint);
  14479. begin
  14480.   DefaultInterface.Set_Count(pRet);
  14481. end;
  14482.  
  14483. function  TAccessFormProperties.Get_Page: Integer;
  14484. begin
  14485.   Result := DefaultInterface.Get_Page;
  14486. end;
  14487.  
  14488. procedure TAccessFormProperties.Set_Page(pRet: Integer);
  14489. begin
  14490.   DefaultInterface.Set_Page(pRet);
  14491. end;
  14492.  
  14493. function  TAccessFormProperties.Get_Pages: Smallint;
  14494. begin
  14495.   Result := DefaultInterface.Get_Pages;
  14496. end;
  14497.  
  14498. procedure TAccessFormProperties.Set_Pages(pRet: Smallint);
  14499. begin
  14500.   DefaultInterface.Set_Pages(pRet);
  14501. end;
  14502.  
  14503. function  TAccessFormProperties.Get_LogicalPageWidth: Integer;
  14504. begin
  14505.   Result := DefaultInterface.Get_LogicalPageWidth;
  14506. end;
  14507.  
  14508. procedure TAccessFormProperties.Set_LogicalPageWidth(pRet: Integer);
  14509. begin
  14510.   DefaultInterface.Set_LogicalPageWidth(pRet);
  14511. end;
  14512.  
  14513. function  TAccessFormProperties.Get_LogicalPageHeight: Integer;
  14514. begin
  14515.   Result := DefaultInterface.Get_LogicalPageHeight;
  14516. end;
  14517.  
  14518. procedure TAccessFormProperties.Set_LogicalPageHeight(pRet: Integer);
  14519. begin
  14520.   DefaultInterface.Set_LogicalPageHeight(pRet);
  14521. end;
  14522.  
  14523. function  TAccessFormProperties.Get_ZoomControl: Integer;
  14524. begin
  14525.   Result := DefaultInterface.Get_ZoomControl;
  14526. end;
  14527.  
  14528. procedure TAccessFormProperties.Set_ZoomControl(pRet: Integer);
  14529. begin
  14530.   DefaultInterface.Set_ZoomControl(pRet);
  14531. end;
  14532.  
  14533. function  TAccessFormProperties.Get_Visible: WordBool;
  14534. begin
  14535.   Result := DefaultInterface.Get_Visible;
  14536. end;
  14537.  
  14538. procedure TAccessFormProperties.Set_Visible(pRet: WordBool);
  14539. begin
  14540.   DefaultInterface.Set_Visible(pRet);
  14541. end;
  14542.  
  14543. function  TAccessFormProperties.Get_Painting: WordBool;
  14544. begin
  14545.   Result := DefaultInterface.Get_Painting;
  14546. end;
  14547.  
  14548. procedure TAccessFormProperties.Set_Painting(pRet: WordBool);
  14549. begin
  14550.   DefaultInterface.Set_Painting(pRet);
  14551. end;
  14552.  
  14553. function  TAccessFormProperties.Get_PrtMip: OleVariant;
  14554. begin
  14555.   Result := DefaultInterface.Get_PrtMip;
  14556. end;
  14557.  
  14558. procedure TAccessFormProperties.Set_PrtMip(pRet: OleVariant);
  14559. begin
  14560.   DefaultInterface.Set_PrtMip(pRet);
  14561. end;
  14562.  
  14563. function  TAccessFormProperties.Get_PrtDevMode: OleVariant;
  14564. begin
  14565.   Result := DefaultInterface.Get_PrtDevMode;
  14566. end;
  14567.  
  14568. procedure TAccessFormProperties.Set_PrtDevMode(pRet: OleVariant);
  14569. begin
  14570.   DefaultInterface.Set_PrtDevMode(pRet);
  14571. end;
  14572.  
  14573. function  TAccessFormProperties.Get_PrtDevNames: OleVariant;
  14574. begin
  14575.   Result := DefaultInterface.Get_PrtDevNames;
  14576. end;
  14577.  
  14578. procedure TAccessFormProperties.Set_PrtDevNames(pRet: OleVariant);
  14579. begin
  14580.   DefaultInterface.Set_PrtDevNames(pRet);
  14581. end;
  14582.  
  14583. function  TAccessFormProperties.Get_FrozenColumns: Smallint;
  14584. begin
  14585.   Result := DefaultInterface.Get_FrozenColumns;
  14586. end;
  14587.  
  14588. procedure TAccessFormProperties.Set_FrozenColumns(pRet: Smallint);
  14589. begin
  14590.   DefaultInterface.Set_FrozenColumns(pRet);
  14591. end;
  14592.  
  14593. function  TAccessFormProperties.Get_Bookmark: OleVariant;
  14594. begin
  14595.   Result := DefaultInterface.Get_Bookmark;
  14596. end;
  14597.  
  14598. procedure TAccessFormProperties.Set_Bookmark(pRet: OleVariant);
  14599. begin
  14600.   DefaultInterface.Set_Bookmark(pRet);
  14601. end;
  14602.  
  14603. function  TAccessFormProperties.Get_TabularFamily: Byte;
  14604. begin
  14605.   Result := DefaultInterface.Get_TabularFamily;
  14606. end;
  14607.  
  14608. procedure TAccessFormProperties.Set_TabularFamily(pRet: Byte);
  14609. begin
  14610.   DefaultInterface.Set_TabularFamily(pRet);
  14611. end;
  14612.  
  14613. function  TAccessFormProperties.Get_Name: WideString;
  14614. begin
  14615.   Result := DefaultInterface.Get_Name;
  14616. end;
  14617.  
  14618. procedure TAccessFormProperties.Set_Name(const pRet: WideString);
  14619. begin
  14620.   DefaultInterface.Set_Name(pRet);
  14621. end;
  14622.  
  14623. function  TAccessFormProperties.Get_PaletteSource: WideString;
  14624. begin
  14625.   Result := DefaultInterface.Get_PaletteSource;
  14626. end;
  14627.  
  14628. procedure TAccessFormProperties.Set_PaletteSource(const pRet: WideString);
  14629. begin
  14630.   DefaultInterface.Set_PaletteSource(pRet);
  14631. end;
  14632.  
  14633. function  TAccessFormProperties.Get_Tag: WideString;
  14634. begin
  14635.   Result := DefaultInterface.Get_Tag;
  14636. end;
  14637.  
  14638. procedure TAccessFormProperties.Set_Tag(const pRet: WideString);
  14639. begin
  14640.   DefaultInterface.Set_Tag(pRet);
  14641. end;
  14642.  
  14643. function  TAccessFormProperties.Get_PaintPalette: OleVariant;
  14644. begin
  14645.   Result := DefaultInterface.Get_PaintPalette;
  14646. end;
  14647.  
  14648. procedure TAccessFormProperties.Set_PaintPalette(pRet: OleVariant);
  14649. begin
  14650.   DefaultInterface.Set_PaintPalette(pRet);
  14651. end;
  14652.  
  14653. function  TAccessFormProperties.Get_OnMenu: WideString;
  14654. begin
  14655.   Result := DefaultInterface.Get_OnMenu;
  14656. end;
  14657.  
  14658. procedure TAccessFormProperties.Set_OnMenu(const pRet: WideString);
  14659. begin
  14660.   DefaultInterface.Set_OnMenu(pRet);
  14661. end;
  14662.  
  14663. function  TAccessFormProperties.Get_OpenArgs: OleVariant;
  14664. begin
  14665.   Result := DefaultInterface.Get_OpenArgs;
  14666. end;
  14667.  
  14668. procedure TAccessFormProperties.Set_OpenArgs(pRet: OleVariant);
  14669. begin
  14670.   DefaultInterface.Set_OpenArgs(pRet);
  14671. end;
  14672.  
  14673. function  TAccessFormProperties.Get_ConnectSynch: Smallint;
  14674. begin
  14675.   Result := DefaultInterface.Get_ConnectSynch;
  14676. end;
  14677.  
  14678. procedure TAccessFormProperties.Set_ConnectSynch(pRet: Smallint);
  14679. begin
  14680.   DefaultInterface.Set_ConnectSynch(pRet);
  14681. end;
  14682.  
  14683. function  TAccessFormProperties.Get_OnCurrent: WideString;
  14684. begin
  14685.   Result := DefaultInterface.Get_OnCurrent;
  14686. end;
  14687.  
  14688. procedure TAccessFormProperties.Set_OnCurrent(const pRet: WideString);
  14689. begin
  14690.   DefaultInterface.Set_OnCurrent(pRet);
  14691. end;
  14692.  
  14693. function  TAccessFormProperties.Get_OnInsert: WideString;
  14694. begin
  14695.   Result := DefaultInterface.Get_OnInsert;
  14696. end;
  14697.  
  14698. procedure TAccessFormProperties.Set_OnInsert(const pRet: WideString);
  14699. begin
  14700.   DefaultInterface.Set_OnInsert(pRet);
  14701. end;
  14702.  
  14703. function  TAccessFormProperties.Get_BeforeInsert: WideString;
  14704. begin
  14705.   Result := DefaultInterface.Get_BeforeInsert;
  14706. end;
  14707.  
  14708. procedure TAccessFormProperties.Set_BeforeInsert(const pRet: WideString);
  14709. begin
  14710.   DefaultInterface.Set_BeforeInsert(pRet);
  14711. end;
  14712.  
  14713. function  TAccessFormProperties.Get_AfterInsert: WideString;
  14714. begin
  14715.   Result := DefaultInterface.Get_AfterInsert;
  14716. end;
  14717.  
  14718. procedure TAccessFormProperties.Set_AfterInsert(const pRet: WideString);
  14719. begin
  14720.   DefaultInterface.Set_AfterInsert(pRet);
  14721. end;
  14722.  
  14723. function  TAccessFormProperties.Get_BeforeUpdate: WideString;
  14724. begin
  14725.   Result := DefaultInterface.Get_BeforeUpdate;
  14726. end;
  14727.  
  14728. procedure TAccessFormProperties.Set_BeforeUpdate(const pRet: WideString);
  14729. begin
  14730.   DefaultInterface.Set_BeforeUpdate(pRet);
  14731. end;
  14732.  
  14733. function  TAccessFormProperties.Get_AfterUpdate: WideString;
  14734. begin
  14735.   Result := DefaultInterface.Get_AfterUpdate;
  14736. end;
  14737.  
  14738. procedure TAccessFormProperties.Set_AfterUpdate(const pRet: WideString);
  14739. begin
  14740.   DefaultInterface.Set_AfterUpdate(pRet);
  14741. end;
  14742.  
  14743. function  TAccessFormProperties.Get_OnDelete: WideString;
  14744. begin
  14745.   Result := DefaultInterface.Get_OnDelete;
  14746. end;
  14747.  
  14748. procedure TAccessFormProperties.Set_OnDelete(const pRet: WideString);
  14749. begin
  14750.   DefaultInterface.Set_OnDelete(pRet);
  14751. end;
  14752.  
  14753. function  TAccessFormProperties.Get_BeforeDelConfirm: WideString;
  14754. begin
  14755.   Result := DefaultInterface.Get_BeforeDelConfirm;
  14756. end;
  14757.  
  14758. procedure TAccessFormProperties.Set_BeforeDelConfirm(const pRet: WideString);
  14759. begin
  14760.   DefaultInterface.Set_BeforeDelConfirm(pRet);
  14761. end;
  14762.  
  14763. function  TAccessFormProperties.Get_AfterDelConfirm: WideString;
  14764. begin
  14765.   Result := DefaultInterface.Get_AfterDelConfirm;
  14766. end;
  14767.  
  14768. procedure TAccessFormProperties.Set_AfterDelConfirm(const pRet: WideString);
  14769. begin
  14770.   DefaultInterface.Set_AfterDelConfirm(pRet);
  14771. end;
  14772.  
  14773. function  TAccessFormProperties.Get_OnOpen: WideString;
  14774. begin
  14775.   Result := DefaultInterface.Get_OnOpen;
  14776. end;
  14777.  
  14778. procedure TAccessFormProperties.Set_OnOpen(const pRet: WideString);
  14779. begin
  14780.   DefaultInterface.Set_OnOpen(pRet);
  14781. end;
  14782.  
  14783. function  TAccessFormProperties.Get_OnLoad: WideString;
  14784. begin
  14785.   Result := DefaultInterface.Get_OnLoad;
  14786. end;
  14787.  
  14788. procedure TAccessFormProperties.Set_OnLoad(const pRet: WideString);
  14789. begin
  14790.   DefaultInterface.Set_OnLoad(pRet);
  14791. end;
  14792.  
  14793. function  TAccessFormProperties.Get_OnResize: WideString;
  14794. begin
  14795.   Result := DefaultInterface.Get_OnResize;
  14796. end;
  14797.  
  14798. procedure TAccessFormProperties.Set_OnResize(const pRet: WideString);
  14799. begin
  14800.   DefaultInterface.Set_OnResize(pRet);
  14801. end;
  14802.  
  14803. function  TAccessFormProperties.Get_OnUnload: WideString;
  14804. begin
  14805.   Result := DefaultInterface.Get_OnUnload;
  14806. end;
  14807.  
  14808. procedure TAccessFormProperties.Set_OnUnload(const pRet: WideString);
  14809. begin
  14810.   DefaultInterface.Set_OnUnload(pRet);
  14811. end;
  14812.  
  14813. function  TAccessFormProperties.Get_OnClose: WideString;
  14814. begin
  14815.   Result := DefaultInterface.Get_OnClose;
  14816. end;
  14817.  
  14818. procedure TAccessFormProperties.Set_OnClose(const pRet: WideString);
  14819. begin
  14820.   DefaultInterface.Set_OnClose(pRet);
  14821. end;
  14822.  
  14823. function  TAccessFormProperties.Get_OnActivate: WideString;
  14824. begin
  14825.   Result := DefaultInterface.Get_OnActivate;
  14826. end;
  14827.  
  14828. procedure TAccessFormProperties.Set_OnActivate(const pRet: WideString);
  14829. begin
  14830.   DefaultInterface.Set_OnActivate(pRet);
  14831. end;
  14832.  
  14833. function  TAccessFormProperties.Get_OnDeactivate: WideString;
  14834. begin
  14835.   Result := DefaultInterface.Get_OnDeactivate;
  14836. end;
  14837.  
  14838. procedure TAccessFormProperties.Set_OnDeactivate(const pRet: WideString);
  14839. begin
  14840.   DefaultInterface.Set_OnDeactivate(pRet);
  14841. end;
  14842.  
  14843. function  TAccessFormProperties.Get_OnGotFocus: WideString;
  14844. begin
  14845.   Result := DefaultInterface.Get_OnGotFocus;
  14846. end;
  14847.  
  14848. procedure TAccessFormProperties.Set_OnGotFocus(const pRet: WideString);
  14849. begin
  14850.   DefaultInterface.Set_OnGotFocus(pRet);
  14851. end;
  14852.  
  14853. function  TAccessFormProperties.Get_OnLostFocus: WideString;
  14854. begin
  14855.   Result := DefaultInterface.Get_OnLostFocus;
  14856. end;
  14857.  
  14858. procedure TAccessFormProperties.Set_OnLostFocus(const pRet: WideString);
  14859. begin
  14860.   DefaultInterface.Set_OnLostFocus(pRet);
  14861. end;
  14862.  
  14863. function  TAccessFormProperties.Get_OnClick: WideString;
  14864. begin
  14865.   Result := DefaultInterface.Get_OnClick;
  14866. end;
  14867.  
  14868. procedure TAccessFormProperties.Set_OnClick(const pRet: WideString);
  14869. begin
  14870.   DefaultInterface.Set_OnClick(pRet);
  14871. end;
  14872.  
  14873. function  TAccessFormProperties.Get_OnDblClick: WideString;
  14874. begin
  14875.   Result := DefaultInterface.Get_OnDblClick;
  14876. end;
  14877.  
  14878. procedure TAccessFormProperties.Set_OnDblClick(const pRet: WideString);
  14879. begin
  14880.   DefaultInterface.Set_OnDblClick(pRet);
  14881. end;
  14882.  
  14883. function  TAccessFormProperties.Get_OnMouseDown: WideString;
  14884. begin
  14885.   Result := DefaultInterface.Get_OnMouseDown;
  14886. end;
  14887.  
  14888. procedure TAccessFormProperties.Set_OnMouseDown(const pRet: WideString);
  14889. begin
  14890.   DefaultInterface.Set_OnMouseDown(pRet);
  14891. end;
  14892.  
  14893. function  TAccessFormProperties.Get_OnMouseMove: WideString;
  14894. begin
  14895.   Result := DefaultInterface.Get_OnMouseMove;
  14896. end;
  14897.  
  14898. procedure TAccessFormProperties.Set_OnMouseMove(const pRet: WideString);
  14899. begin
  14900.   DefaultInterface.Set_OnMouseMove(pRet);
  14901. end;
  14902.  
  14903. function  TAccessFormProperties.Get_OnMouseUp: WideString;
  14904. begin
  14905.   Result := DefaultInterface.Get_OnMouseUp;
  14906. end;
  14907.  
  14908. procedure TAccessFormProperties.Set_OnMouseUp(const pRet: WideString);
  14909. begin
  14910.   DefaultInterface.Set_OnMouseUp(pRet);
  14911. end;
  14912.  
  14913. function  TAccessFormProperties.Get_OnKeyDown: WideString;
  14914. begin
  14915.   Result := DefaultInterface.Get_OnKeyDown;
  14916. end;
  14917.  
  14918. procedure TAccessFormProperties.Set_OnKeyDown(const pRet: WideString);
  14919. begin
  14920.   DefaultInterface.Set_OnKeyDown(pRet);
  14921. end;
  14922.  
  14923. function  TAccessFormProperties.Get_OnKeyUp: WideString;
  14924. begin
  14925.   Result := DefaultInterface.Get_OnKeyUp;
  14926. end;
  14927.  
  14928. procedure TAccessFormProperties.Set_OnKeyUp(const pRet: WideString);
  14929. begin
  14930.   DefaultInterface.Set_OnKeyUp(pRet);
  14931. end;
  14932.  
  14933. function  TAccessFormProperties.Get_OnKeyPress: WideString;
  14934. begin
  14935.   Result := DefaultInterface.Get_OnKeyPress;
  14936. end;
  14937.  
  14938. procedure TAccessFormProperties.Set_OnKeyPress(const pRet: WideString);
  14939. begin
  14940.   DefaultInterface.Set_OnKeyPress(pRet);
  14941. end;
  14942.  
  14943. function  TAccessFormProperties.Get_KeyPreview: WordBool;
  14944. begin
  14945.   Result := DefaultInterface.Get_KeyPreview;
  14946. end;
  14947.  
  14948. procedure TAccessFormProperties.Set_KeyPreview(pRet: WordBool);
  14949. begin
  14950.   DefaultInterface.Set_KeyPreview(pRet);
  14951. end;
  14952.  
  14953. function  TAccessFormProperties.Get_OnError: WideString;
  14954. begin
  14955.   Result := DefaultInterface.Get_OnError;
  14956. end;
  14957.  
  14958. procedure TAccessFormProperties.Set_OnError(const pRet: WideString);
  14959. begin
  14960.   DefaultInterface.Set_OnError(pRet);
  14961. end;
  14962.  
  14963. function  TAccessFormProperties.Get_OnFilter: WideString;
  14964. begin
  14965.   Result := DefaultInterface.Get_OnFilter;
  14966. end;
  14967.  
  14968. procedure TAccessFormProperties.Set_OnFilter(const pRet: WideString);
  14969. begin
  14970.   DefaultInterface.Set_OnFilter(pRet);
  14971. end;
  14972.  
  14973. function  TAccessFormProperties.Get_OnApplyFilter: WideString;
  14974. begin
  14975.   Result := DefaultInterface.Get_OnApplyFilter;
  14976. end;
  14977.  
  14978. procedure TAccessFormProperties.Set_OnApplyFilter(const pRet: WideString);
  14979. begin
  14980.   DefaultInterface.Set_OnApplyFilter(pRet);
  14981. end;
  14982.  
  14983. function  TAccessFormProperties.Get_OnTimer: WideString;
  14984. begin
  14985.   Result := DefaultInterface.Get_OnTimer;
  14986. end;
  14987.  
  14988. procedure TAccessFormProperties.Set_OnTimer(const pRet: WideString);
  14989. begin
  14990.   DefaultInterface.Set_OnTimer(pRet);
  14991. end;
  14992.  
  14993. function  TAccessFormProperties.Get_TimerInterval: Integer;
  14994. begin
  14995.   Result := DefaultInterface.Get_TimerInterval;
  14996. end;
  14997.  
  14998. procedure TAccessFormProperties.Set_TimerInterval(pRet: Integer);
  14999. begin
  15000.   DefaultInterface.Set_TimerInterval(pRet);
  15001. end;
  15002.  
  15003. function  TAccessFormProperties.Get_Dirty: WordBool;
  15004. begin
  15005.   Result := DefaultInterface.Get_Dirty;
  15006. end;
  15007.  
  15008. procedure TAccessFormProperties.Set_Dirty(pRet: WordBool);
  15009. begin
  15010.   DefaultInterface.Set_Dirty(pRet);
  15011. end;
  15012.  
  15013. function  TAccessFormProperties.Get_WindowWidth: Smallint;
  15014. begin
  15015.   Result := DefaultInterface.Get_WindowWidth;
  15016. end;
  15017.  
  15018. procedure TAccessFormProperties.Set_WindowWidth(pRet: Smallint);
  15019. begin
  15020.   DefaultInterface.Set_WindowWidth(pRet);
  15021. end;
  15022.  
  15023. function  TAccessFormProperties.Get_WindowHeight: Smallint;
  15024. begin
  15025.   Result := DefaultInterface.Get_WindowHeight;
  15026. end;
  15027.  
  15028. procedure TAccessFormProperties.Set_WindowHeight(pRet: Smallint);
  15029. begin
  15030.   DefaultInterface.Set_WindowHeight(pRet);
  15031. end;
  15032.  
  15033. function  TAccessFormProperties.Get_CurrentView: Smallint;
  15034. begin
  15035.   Result := DefaultInterface.Get_CurrentView;
  15036. end;
  15037.  
  15038. procedure TAccessFormProperties.Set_CurrentView(pRet: Smallint);
  15039. begin
  15040.   DefaultInterface.Set_CurrentView(pRet);
  15041. end;
  15042.  
  15043. function  TAccessFormProperties.Get_CurrentSectionTop: Smallint;
  15044. begin
  15045.   Result := DefaultInterface.Get_CurrentSectionTop;
  15046. end;
  15047.  
  15048. procedure TAccessFormProperties.Set_CurrentSectionTop(pRet: Smallint);
  15049. begin
  15050.   DefaultInterface.Set_CurrentSectionTop(pRet);
  15051. end;
  15052.  
  15053. function  TAccessFormProperties.Get_CurrentSectionLeft: Smallint;
  15054. begin
  15055.   Result := DefaultInterface.Get_CurrentSectionLeft;
  15056. end;
  15057.  
  15058. procedure TAccessFormProperties.Set_CurrentSectionLeft(pRet: Smallint);
  15059. begin
  15060.   DefaultInterface.Set_CurrentSectionLeft(pRet);
  15061. end;
  15062.  
  15063. function  TAccessFormProperties.Get_SelLeft: Integer;
  15064. begin
  15065.   Result := DefaultInterface.Get_SelLeft;
  15066. end;
  15067.  
  15068. procedure TAccessFormProperties.Set_SelLeft(pRet: Integer);
  15069. begin
  15070.   DefaultInterface.Set_SelLeft(pRet);
  15071. end;
  15072.  
  15073. function  TAccessFormProperties.Get_SelTop: Integer;
  15074. begin
  15075.   Result := DefaultInterface.Get_SelTop;
  15076. end;
  15077.  
  15078. procedure TAccessFormProperties.Set_SelTop(pRet: Integer);
  15079. begin
  15080.   DefaultInterface.Set_SelTop(pRet);
  15081. end;
  15082.  
  15083. function  TAccessFormProperties.Get_SelWidth: Integer;
  15084. begin
  15085.   Result := DefaultInterface.Get_SelWidth;
  15086. end;
  15087.  
  15088. procedure TAccessFormProperties.Set_SelWidth(pRet: Integer);
  15089. begin
  15090.   DefaultInterface.Set_SelWidth(pRet);
  15091. end;
  15092.  
  15093. function  TAccessFormProperties.Get_SelHeight: Integer;
  15094. begin
  15095.   Result := DefaultInterface.Get_SelHeight;
  15096. end;
  15097.  
  15098. procedure TAccessFormProperties.Set_SelHeight(pRet: Integer);
  15099. begin
  15100.   DefaultInterface.Set_SelHeight(pRet);
  15101. end;
  15102.  
  15103. function  TAccessFormProperties.Get_CurrentRecord: Integer;
  15104. begin
  15105.   Result := DefaultInterface.Get_CurrentRecord;
  15106. end;
  15107.  
  15108. procedure TAccessFormProperties.Set_CurrentRecord(pRet: Integer);
  15109. begin
  15110.   DefaultInterface.Set_CurrentRecord(pRet);
  15111. end;
  15112.  
  15113. function  TAccessFormProperties.Get_PictureData: OleVariant;
  15114. begin
  15115.   Result := DefaultInterface.Get_PictureData;
  15116. end;
  15117.  
  15118. procedure TAccessFormProperties.Set_PictureData(pRet: OleVariant);
  15119. begin
  15120.   DefaultInterface.Set_PictureData(pRet);
  15121. end;
  15122.  
  15123. function  TAccessFormProperties.Get_InsideHeight: Integer;
  15124. begin
  15125.   Result := DefaultInterface.Get_InsideHeight;
  15126. end;
  15127.  
  15128. procedure TAccessFormProperties.Set_InsideHeight(pRet: Integer);
  15129. begin
  15130.   DefaultInterface.Set_InsideHeight(pRet);
  15131. end;
  15132.  
  15133. function  TAccessFormProperties.Get_InsideWidth: Integer;
  15134. begin
  15135.   Result := DefaultInterface.Get_InsideWidth;
  15136. end;
  15137.  
  15138. procedure TAccessFormProperties.Set_InsideWidth(pRet: Integer);
  15139. begin
  15140.   DefaultInterface.Set_InsideWidth(pRet);
  15141. end;
  15142.  
  15143. function  TAccessFormProperties.Get_PicturePalette: OleVariant;
  15144. begin
  15145.   Result := DefaultInterface.Get_PicturePalette;
  15146. end;
  15147.  
  15148. procedure TAccessFormProperties.Set_PicturePalette(pRet: OleVariant);
  15149. begin
  15150.   DefaultInterface.Set_PicturePalette(pRet);
  15151. end;
  15152.  
  15153. function  TAccessFormProperties.Get_HasModule: WordBool;
  15154. begin
  15155.   Result := DefaultInterface.Get_HasModule;
  15156. end;
  15157.  
  15158. procedure TAccessFormProperties.Set_HasModule(pRet: WordBool);
  15159. begin
  15160.   DefaultInterface.Set_HasModule(pRet);
  15161. end;
  15162.  
  15163. function  TAccessFormProperties.Get_acHiddenCurrentPage: Integer;
  15164. begin
  15165.   Result := DefaultInterface.Get_acHiddenCurrentPage;
  15166. end;
  15167.  
  15168. procedure TAccessFormProperties.Set_acHiddenCurrentPage(pRet: Integer);
  15169. begin
  15170.   DefaultInterface.Set_acHiddenCurrentPage(pRet);
  15171. end;
  15172.  
  15173. function  TAccessFormProperties.Get_Application: Application;
  15174. begin
  15175.   Result := DefaultInterface.Get_Application;
  15176. end;
  15177.  
  15178. function  TAccessFormProperties.Get_Parent: IDispatch;
  15179. begin
  15180.   Result := DefaultInterface.Get_Parent;
  15181. end;
  15182.  
  15183. function  TAccessFormProperties.Get_NewRecord: Smallint;
  15184. begin
  15185.   Result := DefaultInterface.Get_NewRecord;
  15186. end;
  15187.  
  15188. function  TAccessFormProperties.Get_ActiveControl: AccessControl;
  15189. begin
  15190.   Result := DefaultInterface.Get_ActiveControl;
  15191. end;
  15192.  
  15193. function  TAccessFormProperties.Get_DefaultControl(ControlType: Integer): AccessControl;
  15194. begin
  15195.   Result := DefaultInterface.Get_DefaultControl(ControlType);
  15196. end;
  15197.  
  15198. function  TAccessFormProperties.Get_Dynaset: IDispatch;
  15199. begin
  15200.   Result := DefaultInterface.Get_Dynaset;
  15201. end;
  15202.  
  15203. function  TAccessFormProperties.Get_RecordsetClone: Recordset;
  15204. begin
  15205.   Result := DefaultInterface.Get_RecordsetClone;
  15206. end;
  15207.  
  15208. function  TAccessFormProperties.Get_Section(var_: OleVariant): AccessSection;
  15209. begin
  15210.   Result := DefaultInterface.Get_Section(var_);
  15211. end;
  15212.  
  15213. function  TAccessFormProperties.Get_Form: AccessForm;
  15214. begin
  15215.   Result := DefaultInterface.Get_Form;
  15216. end;
  15217.  
  15218. function  TAccessFormProperties.Get_Module: Module;
  15219. begin
  15220.   Result := DefaultInterface.Get_Module;
  15221. end;
  15222.  
  15223. function  TAccessFormProperties.Get_Properties: Properties;
  15224. begin
  15225.   Result := DefaultInterface.Get_Properties;
  15226. end;
  15227.  
  15228. function  TAccessFormProperties.Get_ConnectControl: AccessControl;
  15229. begin
  15230.   Result := DefaultInterface.Get_ConnectControl;
  15231. end;
  15232.  
  15233. function  TAccessFormProperties.Get_Controls: Controls;
  15234. begin
  15235.   Result := DefaultInterface.Get_Controls;
  15236. end;
  15237.  
  15238. {$ENDIF}
  15239.  
  15240. class function CoAccessReport.Create: _Report;
  15241. begin
  15242.   Result := CreateComObject(CLASS_AccessReport) as _Report;
  15243. end;
  15244.  
  15245. class function CoAccessReport.CreateRemote(const MachineName: string): _Report;
  15246. begin
  15247.   Result := CreateRemoteComObject(MachineName, CLASS_AccessReport) as _Report;
  15248. end;
  15249.  
  15250. procedure TAccessReport.InitServerData;
  15251. const
  15252.   CServerData: TServerData = (
  15253.     ClassID:   '{27CE30A0-91FF-101B-AF4E-00AA003F0F07}';
  15254.     IntfIID:   '{3E8B6B00-91FF-101B-AF4E-00AA003F0F07}';
  15255.     EventIID:  '{BC9E4357-F037-11CD-8701-00AA003F0F07}';
  15256.     LicenseKey: nil;
  15257.     Version: 500);
  15258. begin
  15259.   ServerData := @CServerData;
  15260. end;
  15261.  
  15262. procedure TAccessReport.Connect;
  15263. var
  15264.   punk: IUnknown;
  15265. begin
  15266.   if FIntf = nil then
  15267.   begin
  15268.     punk := GetServer;
  15269.     ConnectEvents(punk);
  15270.     Fintf:= punk as _Report;
  15271.   end;
  15272. end;
  15273.  
  15274. procedure TAccessReport.ConnectTo(svrIntf: _Report);
  15275. begin
  15276.   Disconnect;
  15277.   FIntf := svrIntf;
  15278.   ConnectEvents(FIntf);
  15279. end;
  15280.  
  15281. procedure TAccessReport.DisConnect;
  15282. begin
  15283.   if Fintf <> nil then
  15284.   begin
  15285.     DisconnectEvents(FIntf);
  15286.     FIntf := nil;
  15287.   end;
  15288. end;
  15289.  
  15290. function TAccessReport.GetDefaultInterface: _Report;
  15291. begin
  15292.   if FIntf = nil then
  15293.     Connect;
  15294.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  15295.   Result := FIntf;
  15296. end;
  15297.  
  15298. constructor TAccessReport.Create(AOwner: TComponent);
  15299. begin
  15300.   inherited Create(AOwner);
  15301. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15302.   FProps := TAccessReportProperties.Create(Self);
  15303. {$ENDIF}
  15304. end;
  15305.  
  15306. destructor TAccessReport.Destroy;
  15307. begin
  15308. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15309.   FProps.Free;
  15310. {$ENDIF}
  15311.   inherited Destroy;
  15312. end;
  15313.  
  15314. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15315. function TAccessReport.GetServerProperties: TAccessReportProperties;
  15316. begin
  15317.   Result := FProps;
  15318. end;
  15319. {$ENDIF}
  15320.  
  15321. procedure TAccessReport.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  15322. begin
  15323.   case DispID of
  15324.     -1: Exit;  // DISPID_UNKNOWN
  15325.    2066: if Assigned(FOnOpen) then
  15326.             FOnOpen(Self, Params[0] (*out Smallint*));
  15327.    2070: if Assigned(FOnClose) then
  15328.             FOnClose(Self);
  15329.    2071: if Assigned(FOnActivate) then
  15330.             FOnActivate(Self);
  15331.    2072: if Assigned(FOnDeactivate) then
  15332.             FOnDeactivate(Self);
  15333.    2083: if Assigned(FOnError) then
  15334.             FOnError(Self, Params[0] (*var Smallint*), Params[1] (*out Smallint*));
  15335.    2161: if Assigned(FOnNoData) then
  15336.             FOnNoData(Self, Params[0] (*out Smallint*));
  15337.    2162: if Assigned(FOnPage) then
  15338.             FOnPage(Self);
  15339.   end; {case DispID}
  15340. end;
  15341.  
  15342. function  TAccessReport.Get_FormName: WideString;
  15343. begin
  15344.   Result := DefaultInterface.Get_FormName;
  15345. end;
  15346.  
  15347. procedure TAccessReport.Set_FormName(const pRet: WideString);
  15348. begin
  15349.   DefaultInterface.Set_FormName(pRet);
  15350. end;
  15351.  
  15352. function  TAccessReport.Get_RecordSource: WideString;
  15353. begin
  15354.   Result := DefaultInterface.Get_RecordSource;
  15355. end;
  15356.  
  15357. procedure TAccessReport.Set_RecordSource(const pRet: WideString);
  15358. begin
  15359.   DefaultInterface.Set_RecordSource(pRet);
  15360. end;
  15361.  
  15362. function  TAccessReport.Get_Filter: WideString;
  15363. begin
  15364.   Result := DefaultInterface.Get_Filter;
  15365. end;
  15366.  
  15367. procedure TAccessReport.Set_Filter(const pRet: WideString);
  15368. begin
  15369.   DefaultInterface.Set_Filter(pRet);
  15370. end;
  15371.  
  15372. function  TAccessReport.Get_FilterOn: WordBool;
  15373. begin
  15374.   Result := DefaultInterface.Get_FilterOn;
  15375. end;
  15376.  
  15377. procedure TAccessReport.Set_FilterOn(pRet: WordBool);
  15378. begin
  15379.   DefaultInterface.Set_FilterOn(pRet);
  15380. end;
  15381.  
  15382. function  TAccessReport.Get_OrderBy: WideString;
  15383. begin
  15384.   Result := DefaultInterface.Get_OrderBy;
  15385. end;
  15386.  
  15387. procedure TAccessReport.Set_OrderBy(const pRet: WideString);
  15388. begin
  15389.   DefaultInterface.Set_OrderBy(pRet);
  15390. end;
  15391.  
  15392. function  TAccessReport.Get_OrderByOn: WordBool;
  15393. begin
  15394.   Result := DefaultInterface.Get_OrderByOn;
  15395. end;
  15396.  
  15397. procedure TAccessReport.Set_OrderByOn(pRet: WordBool);
  15398. begin
  15399.   DefaultInterface.Set_OrderByOn(pRet);
  15400. end;
  15401.  
  15402. function  TAccessReport.Get_Caption: WideString;
  15403. begin
  15404.   Result := DefaultInterface.Get_Caption;
  15405. end;
  15406.  
  15407. procedure TAccessReport.Set_Caption(const pRet: WideString);
  15408. begin
  15409.   DefaultInterface.Set_Caption(pRet);
  15410. end;
  15411.  
  15412. function  TAccessReport.Get_RecordLocks: Byte;
  15413. begin
  15414.   Result := DefaultInterface.Get_RecordLocks;
  15415. end;
  15416.  
  15417. procedure TAccessReport.Set_RecordLocks(pRet: Byte);
  15418. begin
  15419.   DefaultInterface.Set_RecordLocks(pRet);
  15420. end;
  15421.  
  15422. function  TAccessReport.Get_PageHeader: Byte;
  15423. begin
  15424.   Result := DefaultInterface.Get_PageHeader;
  15425. end;
  15426.  
  15427. procedure TAccessReport.Set_PageHeader(pRet: Byte);
  15428. begin
  15429.   DefaultInterface.Set_PageHeader(pRet);
  15430. end;
  15431.  
  15432. function  TAccessReport.Get_PageFooter: Byte;
  15433. begin
  15434.   Result := DefaultInterface.Get_PageFooter;
  15435. end;
  15436.  
  15437. procedure TAccessReport.Set_PageFooter(pRet: Byte);
  15438. begin
  15439.   DefaultInterface.Set_PageFooter(pRet);
  15440. end;
  15441.  
  15442. function  TAccessReport.Get_DateGrouping: Byte;
  15443. begin
  15444.   Result := DefaultInterface.Get_DateGrouping;
  15445. end;
  15446.  
  15447. procedure TAccessReport.Set_DateGrouping(pRet: Byte);
  15448. begin
  15449.   DefaultInterface.Set_DateGrouping(pRet);
  15450. end;
  15451.  
  15452. function  TAccessReport.Get_GrpKeepTogether: Byte;
  15453. begin
  15454.   Result := DefaultInterface.Get_GrpKeepTogether;
  15455. end;
  15456.  
  15457. procedure TAccessReport.Set_GrpKeepTogether(pRet: Byte);
  15458. begin
  15459.   DefaultInterface.Set_GrpKeepTogether(pRet);
  15460. end;
  15461.  
  15462. function  TAccessReport.Get_MinButton: WordBool;
  15463. begin
  15464.   Result := DefaultInterface.Get_MinButton;
  15465. end;
  15466.  
  15467. procedure TAccessReport.Set_MinButton(pRet: WordBool);
  15468. begin
  15469.   DefaultInterface.Set_MinButton(pRet);
  15470. end;
  15471.  
  15472. function  TAccessReport.Get_MaxButton: WordBool;
  15473. begin
  15474.   Result := DefaultInterface.Get_MaxButton;
  15475. end;
  15476.  
  15477. procedure TAccessReport.Set_MaxButton(pRet: WordBool);
  15478. begin
  15479.   DefaultInterface.Set_MaxButton(pRet);
  15480. end;
  15481.  
  15482. function  TAccessReport.Get_Width: Smallint;
  15483. begin
  15484.   Result := DefaultInterface.Get_Width;
  15485. end;
  15486.  
  15487. procedure TAccessReport.Set_Width(pRet: Smallint);
  15488. begin
  15489.   DefaultInterface.Set_Width(pRet);
  15490. end;
  15491.  
  15492. function  TAccessReport.Get_Picture: WideString;
  15493. begin
  15494.   Result := DefaultInterface.Get_Picture;
  15495. end;
  15496.  
  15497. procedure TAccessReport.Set_Picture(const pRet: WideString);
  15498. begin
  15499.   DefaultInterface.Set_Picture(pRet);
  15500. end;
  15501.  
  15502. function  TAccessReport.Get_PictureType: Byte;
  15503. begin
  15504.   Result := DefaultInterface.Get_PictureType;
  15505. end;
  15506.  
  15507. procedure TAccessReport.Set_PictureType(pRet: Byte);
  15508. begin
  15509.   DefaultInterface.Set_PictureType(pRet);
  15510. end;
  15511.  
  15512. function  TAccessReport.Get_PictureSizeMode: Byte;
  15513. begin
  15514.   Result := DefaultInterface.Get_PictureSizeMode;
  15515. end;
  15516.  
  15517. procedure TAccessReport.Set_PictureSizeMode(pRet: Byte);
  15518. begin
  15519.   DefaultInterface.Set_PictureSizeMode(pRet);
  15520. end;
  15521.  
  15522. function  TAccessReport.Get_PictureAlignment: Byte;
  15523. begin
  15524.   Result := DefaultInterface.Get_PictureAlignment;
  15525. end;
  15526.  
  15527. procedure TAccessReport.Set_PictureAlignment(pRet: Byte);
  15528. begin
  15529.   DefaultInterface.Set_PictureAlignment(pRet);
  15530. end;
  15531.  
  15532. function  TAccessReport.Get_PictureTiling: WordBool;
  15533. begin
  15534.   Result := DefaultInterface.Get_PictureTiling;
  15535. end;
  15536.  
  15537. procedure TAccessReport.Set_PictureTiling(pRet: WordBool);
  15538. begin
  15539.   DefaultInterface.Set_PictureTiling(pRet);
  15540. end;
  15541.  
  15542. function  TAccessReport.Get_PicturePages: Byte;
  15543. begin
  15544.   Result := DefaultInterface.Get_PicturePages;
  15545. end;
  15546.  
  15547. procedure TAccessReport.Set_PicturePages(pRet: Byte);
  15548. begin
  15549.   DefaultInterface.Set_PicturePages(pRet);
  15550. end;
  15551.  
  15552. function  TAccessReport.Get_MenuBar: WideString;
  15553. begin
  15554.   Result := DefaultInterface.Get_MenuBar;
  15555. end;
  15556.  
  15557. procedure TAccessReport.Set_MenuBar(const pRet: WideString);
  15558. begin
  15559.   DefaultInterface.Set_MenuBar(pRet);
  15560. end;
  15561.  
  15562. function  TAccessReport.Get_Toolbar: WideString;
  15563. begin
  15564.   Result := DefaultInterface.Get_Toolbar;
  15565. end;
  15566.  
  15567. procedure TAccessReport.Set_Toolbar(const pRet: WideString);
  15568. begin
  15569.   DefaultInterface.Set_Toolbar(pRet);
  15570. end;
  15571.  
  15572. function  TAccessReport.Get_ShortcutMenuBar: WideString;
  15573. begin
  15574.   Result := DefaultInterface.Get_ShortcutMenuBar;
  15575. end;
  15576.  
  15577. procedure TAccessReport.Set_ShortcutMenuBar(const pRet: WideString);
  15578. begin
  15579.   DefaultInterface.Set_ShortcutMenuBar(pRet);
  15580. end;
  15581.  
  15582. function  TAccessReport.Get_GridX: Smallint;
  15583. begin
  15584.   Result := DefaultInterface.Get_GridX;
  15585. end;
  15586.  
  15587. procedure TAccessReport.Set_GridX(pRet: Smallint);
  15588. begin
  15589.   DefaultInterface.Set_GridX(pRet);
  15590. end;
  15591.  
  15592. function  TAccessReport.Get_GridY: Smallint;
  15593. begin
  15594.   Result := DefaultInterface.Get_GridY;
  15595. end;
  15596.  
  15597. procedure TAccessReport.Set_GridY(pRet: Smallint);
  15598. begin
  15599.   DefaultInterface.Set_GridY(pRet);
  15600. end;
  15601.  
  15602. function  TAccessReport.Get_LayoutForPrint: WordBool;
  15603. begin
  15604.   Result := DefaultInterface.Get_LayoutForPrint;
  15605. end;
  15606.  
  15607. procedure TAccessReport.Set_LayoutForPrint(pRet: WordBool);
  15608. begin
  15609.   DefaultInterface.Set_LayoutForPrint(pRet);
  15610. end;
  15611.  
  15612. function  TAccessReport.Get_FastLaserPrinting: WordBool;
  15613. begin
  15614.   Result := DefaultInterface.Get_FastLaserPrinting;
  15615. end;
  15616.  
  15617. procedure TAccessReport.Set_FastLaserPrinting(pRet: WordBool);
  15618. begin
  15619.   DefaultInterface.Set_FastLaserPrinting(pRet);
  15620. end;
  15621.  
  15622. function  TAccessReport.Get_HelpFile: WideString;
  15623. begin
  15624.   Result := DefaultInterface.Get_HelpFile;
  15625. end;
  15626.  
  15627. procedure TAccessReport.Set_HelpFile(const pRet: WideString);
  15628. begin
  15629.   DefaultInterface.Set_HelpFile(pRet);
  15630. end;
  15631.  
  15632. function  TAccessReport.Get_HelpContextId: Integer;
  15633. begin
  15634.   Result := DefaultInterface.Get_HelpContextId;
  15635. end;
  15636.  
  15637. procedure TAccessReport.Set_HelpContextId(pRet: Integer);
  15638. begin
  15639.   DefaultInterface.Set_HelpContextId(pRet);
  15640. end;
  15641.  
  15642. function  TAccessReport.Get_Hwnd: Integer;
  15643. begin
  15644.   Result := DefaultInterface.Get_Hwnd;
  15645. end;
  15646.  
  15647. procedure TAccessReport.Set_Hwnd(pRet: Integer);
  15648. begin
  15649.   DefaultInterface.Set_Hwnd(pRet);
  15650. end;
  15651.  
  15652. function  TAccessReport.Get_Count: Smallint;
  15653. begin
  15654.   Result := DefaultInterface.Get_Count;
  15655. end;
  15656.  
  15657. procedure TAccessReport.Set_Count(pRet: Smallint);
  15658. begin
  15659.   DefaultInterface.Set_Count(pRet);
  15660. end;
  15661.  
  15662. function  TAccessReport.Get_Page: Integer;
  15663. begin
  15664.   Result := DefaultInterface.Get_Page;
  15665. end;
  15666.  
  15667. procedure TAccessReport.Set_Page(pRet: Integer);
  15668. begin
  15669.   DefaultInterface.Set_Page(pRet);
  15670. end;
  15671.  
  15672. function  TAccessReport.Get_Pages: Smallint;
  15673. begin
  15674.   Result := DefaultInterface.Get_Pages;
  15675. end;
  15676.  
  15677. procedure TAccessReport.Set_Pages(pRet: Smallint);
  15678. begin
  15679.   DefaultInterface.Set_Pages(pRet);
  15680. end;
  15681.  
  15682. function  TAccessReport.Get_LogicalPageWidth: Integer;
  15683. begin
  15684.   Result := DefaultInterface.Get_LogicalPageWidth;
  15685. end;
  15686.  
  15687. procedure TAccessReport.Set_LogicalPageWidth(pRet: Integer);
  15688. begin
  15689.   DefaultInterface.Set_LogicalPageWidth(pRet);
  15690. end;
  15691.  
  15692. function  TAccessReport.Get_LogicalPageHeight: Integer;
  15693. begin
  15694.   Result := DefaultInterface.Get_LogicalPageHeight;
  15695. end;
  15696.  
  15697. procedure TAccessReport.Set_LogicalPageHeight(pRet: Integer);
  15698. begin
  15699.   DefaultInterface.Set_LogicalPageHeight(pRet);
  15700. end;
  15701.  
  15702. function  TAccessReport.Get_ZoomControl: Integer;
  15703. begin
  15704.   Result := DefaultInterface.Get_ZoomControl;
  15705. end;
  15706.  
  15707. procedure TAccessReport.Set_ZoomControl(pRet: Integer);
  15708. begin
  15709.   DefaultInterface.Set_ZoomControl(pRet);
  15710. end;
  15711.  
  15712. function  TAccessReport.Get_HasData: Integer;
  15713. begin
  15714.   Result := DefaultInterface.Get_HasData;
  15715. end;
  15716.  
  15717. procedure TAccessReport.Set_HasData(pRet: Integer);
  15718. begin
  15719.   DefaultInterface.Set_HasData(pRet);
  15720. end;
  15721.  
  15722. function  TAccessReport.Get_Left: Integer;
  15723. begin
  15724.   Result := DefaultInterface.Get_Left;
  15725. end;
  15726.  
  15727. procedure TAccessReport.Set_Left(pRet: Integer);
  15728. begin
  15729.   DefaultInterface.Set_Left(pRet);
  15730. end;
  15731.  
  15732. function  TAccessReport.Get_Top: Integer;
  15733. begin
  15734.   Result := DefaultInterface.Get_Top;
  15735. end;
  15736.  
  15737. procedure TAccessReport.Set_Top(pRet: Integer);
  15738. begin
  15739.   DefaultInterface.Set_Top(pRet);
  15740. end;
  15741.  
  15742. function  TAccessReport.Get_Height: Integer;
  15743. begin
  15744.   Result := DefaultInterface.Get_Height;
  15745. end;
  15746.  
  15747. procedure TAccessReport.Set_Height(pRet: Integer);
  15748. begin
  15749.   DefaultInterface.Set_Height(pRet);
  15750. end;
  15751.  
  15752. function  TAccessReport.Get_PrintSection: WordBool;
  15753. begin
  15754.   Result := DefaultInterface.Get_PrintSection;
  15755. end;
  15756.  
  15757. procedure TAccessReport.Set_PrintSection(pRet: WordBool);
  15758. begin
  15759.   DefaultInterface.Set_PrintSection(pRet);
  15760. end;
  15761.  
  15762. function  TAccessReport.Get_NextRecord: WordBool;
  15763. begin
  15764.   Result := DefaultInterface.Get_NextRecord;
  15765. end;
  15766.  
  15767. procedure TAccessReport.Set_NextRecord(pRet: WordBool);
  15768. begin
  15769.   DefaultInterface.Set_NextRecord(pRet);
  15770. end;
  15771.  
  15772. function  TAccessReport.Get_MoveLayout: WordBool;
  15773. begin
  15774.   Result := DefaultInterface.Get_MoveLayout;
  15775. end;
  15776.  
  15777. procedure TAccessReport.Set_MoveLayout(pRet: WordBool);
  15778. begin
  15779.   DefaultInterface.Set_MoveLayout(pRet);
  15780. end;
  15781.  
  15782. function  TAccessReport.Get_FormatCount: Smallint;
  15783. begin
  15784.   Result := DefaultInterface.Get_FormatCount;
  15785. end;
  15786.  
  15787. procedure TAccessReport.Set_FormatCount(pRet: Smallint);
  15788. begin
  15789.   DefaultInterface.Set_FormatCount(pRet);
  15790. end;
  15791.  
  15792. function  TAccessReport.Get_PrintCount: Smallint;
  15793. begin
  15794.   Result := DefaultInterface.Get_PrintCount;
  15795. end;
  15796.  
  15797. procedure TAccessReport.Set_PrintCount(pRet: Smallint);
  15798. begin
  15799.   DefaultInterface.Set_PrintCount(pRet);
  15800. end;
  15801.  
  15802. function  TAccessReport.Get_Visible: WordBool;
  15803. begin
  15804.   Result := DefaultInterface.Get_Visible;
  15805. end;
  15806.  
  15807. procedure TAccessReport.Set_Visible(pRet: WordBool);
  15808. begin
  15809.   DefaultInterface.Set_Visible(pRet);
  15810. end;
  15811.  
  15812. function  TAccessReport.Get_Painting: WordBool;
  15813. begin
  15814.   Result := DefaultInterface.Get_Painting;
  15815. end;
  15816.  
  15817. procedure TAccessReport.Set_Painting(pRet: WordBool);
  15818. begin
  15819.   DefaultInterface.Set_Painting(pRet);
  15820. end;
  15821.  
  15822. function  TAccessReport.Get_PrtMip: OleVariant;
  15823. begin
  15824.   Result := DefaultInterface.Get_PrtMip;
  15825. end;
  15826.  
  15827. procedure TAccessReport.Set_PrtMip(pRet: OleVariant);
  15828. begin
  15829.   DefaultInterface.Set_PrtMip(pRet);
  15830. end;
  15831.  
  15832. function  TAccessReport.Get_PrtDevMode: OleVariant;
  15833. begin
  15834.   Result := DefaultInterface.Get_PrtDevMode;
  15835. end;
  15836.  
  15837. procedure TAccessReport.Set_PrtDevMode(pRet: OleVariant);
  15838. begin
  15839.   DefaultInterface.Set_PrtDevMode(pRet);
  15840. end;
  15841.  
  15842. function  TAccessReport.Get_PrtDevNames: OleVariant;
  15843. begin
  15844.   Result := DefaultInterface.Get_PrtDevNames;
  15845. end;
  15846.  
  15847. procedure TAccessReport.Set_PrtDevNames(pRet: OleVariant);
  15848. begin
  15849.   DefaultInterface.Set_PrtDevNames(pRet);
  15850. end;
  15851.  
  15852. function  TAccessReport.Get_ForeColor: Integer;
  15853. begin
  15854.   Result := DefaultInterface.Get_ForeColor;
  15855. end;
  15856.  
  15857. procedure TAccessReport.Set_ForeColor(pRet: Integer);
  15858. begin
  15859.   DefaultInterface.Set_ForeColor(pRet);
  15860. end;
  15861.  
  15862. function  TAccessReport.Get_CurrentX: Single;
  15863. begin
  15864.   Result := DefaultInterface.Get_CurrentX;
  15865. end;
  15866.  
  15867. procedure TAccessReport.Set_CurrentX(pRet: Single);
  15868. begin
  15869.   DefaultInterface.Set_CurrentX(pRet);
  15870. end;
  15871.  
  15872. function  TAccessReport.Get_CurrentY: Single;
  15873. begin
  15874.   Result := DefaultInterface.Get_CurrentY;
  15875. end;
  15876.  
  15877. procedure TAccessReport.Set_CurrentY(pRet: Single);
  15878. begin
  15879.   DefaultInterface.Set_CurrentY(pRet);
  15880. end;
  15881.  
  15882. function  TAccessReport.Get_ScaleHeight: Single;
  15883. begin
  15884.   Result := DefaultInterface.Get_ScaleHeight;
  15885. end;
  15886.  
  15887. procedure TAccessReport.Set_ScaleHeight(pRet: Single);
  15888. begin
  15889.   DefaultInterface.Set_ScaleHeight(pRet);
  15890. end;
  15891.  
  15892. function  TAccessReport.Get_ScaleLeft: Single;
  15893. begin
  15894.   Result := DefaultInterface.Get_ScaleLeft;
  15895. end;
  15896.  
  15897. procedure TAccessReport.Set_ScaleLeft(pRet: Single);
  15898. begin
  15899.   DefaultInterface.Set_ScaleLeft(pRet);
  15900. end;
  15901.  
  15902. function  TAccessReport.Get_ScaleMode: Smallint;
  15903. begin
  15904.   Result := DefaultInterface.Get_ScaleMode;
  15905. end;
  15906.  
  15907. procedure TAccessReport.Set_ScaleMode(pRet: Smallint);
  15908. begin
  15909.   DefaultInterface.Set_ScaleMode(pRet);
  15910. end;
  15911.  
  15912. function  TAccessReport.Get_ScaleTop: Single;
  15913. begin
  15914.   Result := DefaultInterface.Get_ScaleTop;
  15915. end;
  15916.  
  15917. procedure TAccessReport.Set_ScaleTop(pRet: Single);
  15918. begin
  15919.   DefaultInterface.Set_ScaleTop(pRet);
  15920. end;
  15921.  
  15922. function  TAccessReport.Get_ScaleWidth: Single;
  15923. begin
  15924.   Result := DefaultInterface.Get_ScaleWidth;
  15925. end;
  15926.  
  15927. procedure TAccessReport.Set_ScaleWidth(pRet: Single);
  15928. begin
  15929.   DefaultInterface.Set_ScaleWidth(pRet);
  15930. end;
  15931.  
  15932. function  TAccessReport.Get_FontBold: Smallint;
  15933. begin
  15934.   Result := DefaultInterface.Get_FontBold;
  15935. end;
  15936.  
  15937. procedure TAccessReport.Set_FontBold(pRet: Smallint);
  15938. begin
  15939.   DefaultInterface.Set_FontBold(pRet);
  15940. end;
  15941.  
  15942. function  TAccessReport.Get_FontItalic: Smallint;
  15943. begin
  15944.   Result := DefaultInterface.Get_FontItalic;
  15945. end;
  15946.  
  15947. procedure TAccessReport.Set_FontItalic(pRet: Smallint);
  15948. begin
  15949.   DefaultInterface.Set_FontItalic(pRet);
  15950. end;
  15951.  
  15952. function  TAccessReport.Get_FontName: WideString;
  15953. begin
  15954.   Result := DefaultInterface.Get_FontName;
  15955. end;
  15956.  
  15957. procedure TAccessReport.Set_FontName(const pRet: WideString);
  15958. begin
  15959.   DefaultInterface.Set_FontName(pRet);
  15960. end;
  15961.  
  15962. function  TAccessReport.Get_FontSize: Smallint;
  15963. begin
  15964.   Result := DefaultInterface.Get_FontSize;
  15965. end;
  15966.  
  15967. procedure TAccessReport.Set_FontSize(pRet: Smallint);
  15968. begin
  15969.   DefaultInterface.Set_FontSize(pRet);
  15970. end;
  15971.  
  15972. function  TAccessReport.Get_FontUnderline: Smallint;
  15973. begin
  15974.   Result := DefaultInterface.Get_FontUnderline;
  15975. end;
  15976.  
  15977. procedure TAccessReport.Set_FontUnderline(pRet: Smallint);
  15978. begin
  15979.   DefaultInterface.Set_FontUnderline(pRet);
  15980. end;
  15981.  
  15982. function  TAccessReport.Get_DrawMode: Smallint;
  15983. begin
  15984.   Result := DefaultInterface.Get_DrawMode;
  15985. end;
  15986.  
  15987. procedure TAccessReport.Set_DrawMode(pRet: Smallint);
  15988. begin
  15989.   DefaultInterface.Set_DrawMode(pRet);
  15990. end;
  15991.  
  15992. function  TAccessReport.Get_DrawStyle: Smallint;
  15993. begin
  15994.   Result := DefaultInterface.Get_DrawStyle;
  15995. end;
  15996.  
  15997. procedure TAccessReport.Set_DrawStyle(pRet: Smallint);
  15998. begin
  15999.   DefaultInterface.Set_DrawStyle(pRet);
  16000. end;
  16001.  
  16002. function  TAccessReport.Get_DrawWidth: Smallint;
  16003. begin
  16004.   Result := DefaultInterface.Get_DrawWidth;
  16005. end;
  16006.  
  16007. procedure TAccessReport.Set_DrawWidth(pRet: Smallint);
  16008. begin
  16009.   DefaultInterface.Set_DrawWidth(pRet);
  16010. end;
  16011.  
  16012. function  TAccessReport.Get_FillColor: Integer;
  16013. begin
  16014.   Result := DefaultInterface.Get_FillColor;
  16015. end;
  16016.  
  16017. procedure TAccessReport.Set_FillColor(pRet: Integer);
  16018. begin
  16019.   DefaultInterface.Set_FillColor(pRet);
  16020. end;
  16021.  
  16022. function  TAccessReport.Get_FillStyle: Smallint;
  16023. begin
  16024.   Result := DefaultInterface.Get_FillStyle;
  16025. end;
  16026.  
  16027. procedure TAccessReport.Set_FillStyle(pRet: Smallint);
  16028. begin
  16029.   DefaultInterface.Set_FillStyle(pRet);
  16030. end;
  16031.  
  16032. function  TAccessReport.Get_Name: WideString;
  16033. begin
  16034.   Result := DefaultInterface.Get_Name;
  16035. end;
  16036.  
  16037. procedure TAccessReport.Set_Name(const pRet: WideString);
  16038. begin
  16039.   DefaultInterface.Set_Name(pRet);
  16040. end;
  16041.  
  16042. function  TAccessReport.Get_PaletteSource: WideString;
  16043. begin
  16044.   Result := DefaultInterface.Get_PaletteSource;
  16045. end;
  16046.  
  16047. procedure TAccessReport.Set_PaletteSource(const pRet: WideString);
  16048. begin
  16049.   DefaultInterface.Set_PaletteSource(pRet);
  16050. end;
  16051.  
  16052. function  TAccessReport.Get_Tag: WideString;
  16053. begin
  16054.   Result := DefaultInterface.Get_Tag;
  16055. end;
  16056.  
  16057. procedure TAccessReport.Set_Tag(const pRet: WideString);
  16058. begin
  16059.   DefaultInterface.Set_Tag(pRet);
  16060. end;
  16061.  
  16062. function  TAccessReport.Get_PaintPalette: OleVariant;
  16063. begin
  16064.   Result := DefaultInterface.Get_PaintPalette;
  16065. end;
  16066.  
  16067. procedure TAccessReport.Set_PaintPalette(pRet: OleVariant);
  16068. begin
  16069.   DefaultInterface.Set_PaintPalette(pRet);
  16070. end;
  16071.  
  16072. function  TAccessReport.Get_OnMenu: WideString;
  16073. begin
  16074.   Result := DefaultInterface.Get_OnMenu;
  16075. end;
  16076.  
  16077. procedure TAccessReport.Set_OnMenu(const pRet: WideString);
  16078. begin
  16079.   DefaultInterface.Set_OnMenu(pRet);
  16080. end;
  16081.  
  16082. function  TAccessReport.Get_OnOpen: WideString;
  16083. begin
  16084.   Result := DefaultInterface.Get_OnOpen;
  16085. end;
  16086.  
  16087. procedure TAccessReport.Set_OnOpen(const pRet: WideString);
  16088. begin
  16089.   DefaultInterface.Set_OnOpen(pRet);
  16090. end;
  16091.  
  16092. function  TAccessReport.Get_OnClose: WideString;
  16093. begin
  16094.   Result := DefaultInterface.Get_OnClose;
  16095. end;
  16096.  
  16097. procedure TAccessReport.Set_OnClose(const pRet: WideString);
  16098. begin
  16099.   DefaultInterface.Set_OnClose(pRet);
  16100. end;
  16101.  
  16102. function  TAccessReport.Get_OnActivate: WideString;
  16103. begin
  16104.   Result := DefaultInterface.Get_OnActivate;
  16105. end;
  16106.  
  16107. procedure TAccessReport.Set_OnActivate(const pRet: WideString);
  16108. begin
  16109.   DefaultInterface.Set_OnActivate(pRet);
  16110. end;
  16111.  
  16112. function  TAccessReport.Get_OnDeactivate: WideString;
  16113. begin
  16114.   Result := DefaultInterface.Get_OnDeactivate;
  16115. end;
  16116.  
  16117. procedure TAccessReport.Set_OnDeactivate(const pRet: WideString);
  16118. begin
  16119.   DefaultInterface.Set_OnDeactivate(pRet);
  16120. end;
  16121.  
  16122. function  TAccessReport.Get_OnNoData: WideString;
  16123. begin
  16124.   Result := DefaultInterface.Get_OnNoData;
  16125. end;
  16126.  
  16127. procedure TAccessReport.Set_OnNoData(const pRet: WideString);
  16128. begin
  16129.   DefaultInterface.Set_OnNoData(pRet);
  16130. end;
  16131.  
  16132. function  TAccessReport.Get_OnPage: WideString;
  16133. begin
  16134.   Result := DefaultInterface.Get_OnPage;
  16135. end;
  16136.  
  16137. procedure TAccessReport.Set_OnPage(const pRet: WideString);
  16138. begin
  16139.   DefaultInterface.Set_OnPage(pRet);
  16140. end;
  16141.  
  16142. function  TAccessReport.Get_OnError: WideString;
  16143. begin
  16144.   Result := DefaultInterface.Get_OnError;
  16145. end;
  16146.  
  16147. procedure TAccessReport.Set_OnError(const pRet: WideString);
  16148. begin
  16149.   DefaultInterface.Set_OnError(pRet);
  16150. end;
  16151.  
  16152. function  TAccessReport.Get_Dirty: WordBool;
  16153. begin
  16154.   Result := DefaultInterface.Get_Dirty;
  16155. end;
  16156.  
  16157. procedure TAccessReport.Set_Dirty(pRet: WordBool);
  16158. begin
  16159.   DefaultInterface.Set_Dirty(pRet);
  16160. end;
  16161.  
  16162. function  TAccessReport.Get_CurrentRecord: Integer;
  16163. begin
  16164.   Result := DefaultInterface.Get_CurrentRecord;
  16165. end;
  16166.  
  16167. procedure TAccessReport.Set_CurrentRecord(pRet: Integer);
  16168. begin
  16169.   DefaultInterface.Set_CurrentRecord(pRet);
  16170. end;
  16171.  
  16172. function  TAccessReport.Get_PictureData: OleVariant;
  16173. begin
  16174.   Result := DefaultInterface.Get_PictureData;
  16175. end;
  16176.  
  16177. procedure TAccessReport.Set_PictureData(pRet: OleVariant);
  16178. begin
  16179.   DefaultInterface.Set_PictureData(pRet);
  16180. end;
  16181.  
  16182. function  TAccessReport.Get_PicturePalette: OleVariant;
  16183. begin
  16184.   Result := DefaultInterface.Get_PicturePalette;
  16185. end;
  16186.  
  16187. procedure TAccessReport.Set_PicturePalette(pRet: OleVariant);
  16188. begin
  16189.   DefaultInterface.Set_PicturePalette(pRet);
  16190. end;
  16191.  
  16192. function  TAccessReport.Get_HasModule: WordBool;
  16193. begin
  16194.   Result := DefaultInterface.Get_HasModule;
  16195. end;
  16196.  
  16197. procedure TAccessReport.Set_HasModule(pRet: WordBool);
  16198. begin
  16199.   DefaultInterface.Set_HasModule(pRet);
  16200. end;
  16201.  
  16202. function  TAccessReport.Get_acHiddenCurrentPage: Integer;
  16203. begin
  16204.   Result := DefaultInterface.Get_acHiddenCurrentPage;
  16205. end;
  16206.  
  16207. procedure TAccessReport.Set_acHiddenCurrentPage(pRet: Integer);
  16208. begin
  16209.   DefaultInterface.Set_acHiddenCurrentPage(pRet);
  16210. end;
  16211.  
  16212. function  TAccessReport.Get_Application: Application;
  16213. begin
  16214.   Result := DefaultInterface.Get_Application;
  16215. end;
  16216.  
  16217. function  TAccessReport.Get_Parent: IDispatch;
  16218. begin
  16219.   Result := DefaultInterface.Get_Parent;
  16220. end;
  16221.  
  16222. function  TAccessReport.Get_ActiveControl: AccessControl;
  16223. begin
  16224.   Result := DefaultInterface.Get_ActiveControl;
  16225. end;
  16226.  
  16227. function  TAccessReport.Get_DefaultControl(ControlType: Integer): AccessControl;
  16228. begin
  16229.   Result := DefaultInterface.Get_DefaultControl(ControlType);
  16230. end;
  16231.  
  16232. function  TAccessReport.Get_Section(Index: OleVariant): AccessSection;
  16233. begin
  16234.   Result := DefaultInterface.Get_Section(Index);
  16235. end;
  16236.  
  16237. function  TAccessReport.Get_GroupLevel(Index: Integer): AccessGroupLevel;
  16238. begin
  16239.   Result := DefaultInterface.Get_GroupLevel(Index);
  16240. end;
  16241.  
  16242. function  TAccessReport.Get_Report: AccessReport;
  16243. begin
  16244.   Result := DefaultInterface.Get_Report;
  16245. end;
  16246.  
  16247. function  TAccessReport.Get_Module: Module;
  16248. begin
  16249.   Result := DefaultInterface.Get_Module;
  16250. end;
  16251.  
  16252. function  TAccessReport.Get_Properties: Properties;
  16253. begin
  16254.   Result := DefaultInterface.Get_Properties;
  16255. end;
  16256.  
  16257. function  TAccessReport.Get_Controls: Controls;
  16258. begin
  16259.   Result := DefaultInterface.Get_Controls;
  16260. end;
  16261.  
  16262. procedure TAccessReport.Circle(flags: Smallint; X: Single; Y: Single; radius: Single; 
  16263.                                color: Integer; start: Single; end_: Single; aspect: Single);
  16264. begin
  16265.   DefaultInterface.Circle(flags, X, Y, radius, color, start, end_, aspect);
  16266. end;
  16267.  
  16268. procedure TAccessReport.Line(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single; 
  16269.                              color: Integer);
  16270. begin
  16271.   DefaultInterface.Line(flags, x1, y1, x2, y2, color);
  16272. end;
  16273.  
  16274. procedure TAccessReport.PSet(flags: Smallint; X: Single; Y: Single; color: Integer);
  16275. begin
  16276.   DefaultInterface.PSet(flags, X, Y, color);
  16277. end;
  16278.  
  16279. procedure TAccessReport.Scale(flags: Smallint; x1: Single; y1: Single; x2: Single; y2: Single);
  16280. begin
  16281.   DefaultInterface.Scale(flags, x1, y1, x2, y2);
  16282. end;
  16283.  
  16284. function  TAccessReport.TextWidth(const Expr: WideString): Single;
  16285. begin
  16286.   Result := DefaultInterface.TextWidth(Expr);
  16287. end;
  16288.  
  16289. function  TAccessReport.TextHeight(const Expr: WideString): Single;
  16290. begin
  16291.   Result := DefaultInterface.TextHeight(Expr);
  16292. end;
  16293.  
  16294. procedure TAccessReport.Print(const Expr: WideString);
  16295. begin
  16296.   DefaultInterface.Print(Expr);
  16297. end;
  16298.  
  16299. function  TAccessReport._Evaluate(const bstrExpr: WideString; var ppsa: PSafeArray): OleVariant;
  16300. begin
  16301.   Result := DefaultInterface._Evaluate(bstrExpr, ppsa);
  16302. end;
  16303.  
  16304. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  16305. constructor TAccessReportProperties.Create(AServer: TAccessReport);
  16306. begin
  16307.   inherited Create;
  16308.   FServer := AServer;
  16309. end;
  16310.  
  16311. function TAccessReportProperties.GetDefaultInterface: _Report;
  16312. begin
  16313.   Result := FServer.DefaultInterface;
  16314. end;
  16315.  
  16316. function  TAccessReportProperties.Get_FormName: WideString;
  16317. begin
  16318.   Result := DefaultInterface.Get_FormName;
  16319. end;
  16320.  
  16321. procedure TAccessReportProperties.Set_FormName(const pRet: WideString);
  16322. begin
  16323.   DefaultInterface.Set_FormName(pRet);
  16324. end;
  16325.  
  16326. function  TAccessReportProperties.Get_RecordSource: WideString;
  16327. begin
  16328.   Result := DefaultInterface.Get_RecordSource;
  16329. end;
  16330.  
  16331. procedure TAccessReportProperties.Set_RecordSource(const pRet: WideString);
  16332. begin
  16333.   DefaultInterface.Set_RecordSource(pRet);
  16334. end;
  16335.  
  16336. function  TAccessReportProperties.Get_Filter: WideString;
  16337. begin
  16338.   Result := DefaultInterface.Get_Filter;
  16339. end;
  16340.  
  16341. procedure TAccessReportProperties.Set_Filter(const pRet: WideString);
  16342. begin
  16343.   DefaultInterface.Set_Filter(pRet);
  16344. end;
  16345.  
  16346. function  TAccessReportProperties.Get_FilterOn: WordBool;
  16347. begin
  16348.   Result := DefaultInterface.Get_FilterOn;
  16349. end;
  16350.  
  16351. procedure TAccessReportProperties.Set_FilterOn(pRet: WordBool);
  16352. begin
  16353.   DefaultInterface.Set_FilterOn(pRet);
  16354. end;
  16355.  
  16356. function  TAccessReportProperties.Get_OrderBy: WideString;
  16357. begin
  16358.   Result := DefaultInterface.Get_OrderBy;
  16359. end;
  16360.  
  16361. procedure TAccessReportProperties.Set_OrderBy(const pRet: WideString);
  16362. begin
  16363.   DefaultInterface.Set_OrderBy(pRet);
  16364. end;
  16365.  
  16366. function  TAccessReportProperties.Get_OrderByOn: WordBool;
  16367. begin
  16368.   Result := DefaultInterface.Get_OrderByOn;
  16369. end;
  16370.  
  16371. procedure TAccessReportProperties.Set_OrderByOn(pRet: WordBool);
  16372. begin
  16373.   DefaultInterface.Set_OrderByOn(pRet);
  16374. end;
  16375.  
  16376. function  TAccessReportProperties.Get_Caption: WideString;
  16377. begin
  16378.   Result := DefaultInterface.Get_Caption;
  16379. end;
  16380.  
  16381. procedure TAccessReportProperties.Set_Caption(const pRet: WideString);
  16382. begin
  16383.   DefaultInterface.Set_Caption(pRet);
  16384. end;
  16385.  
  16386. function  TAccessReportProperties.Get_RecordLocks: Byte;
  16387. begin
  16388.   Result := DefaultInterface.Get_RecordLocks;
  16389. end;
  16390.  
  16391. procedure TAccessReportProperties.Set_RecordLocks(pRet: Byte);
  16392. begin
  16393.   DefaultInterface.Set_RecordLocks(pRet);
  16394. end;
  16395.  
  16396. function  TAccessReportProperties.Get_PageHeader: Byte;
  16397. begin
  16398.   Result := DefaultInterface.Get_PageHeader;
  16399. end;
  16400.  
  16401. procedure TAccessReportProperties.Set_PageHeader(pRet: Byte);
  16402. begin
  16403.   DefaultInterface.Set_PageHeader(pRet);
  16404. end;
  16405.  
  16406. function  TAccessReportProperties.Get_PageFooter: Byte;
  16407. begin
  16408.   Result := DefaultInterface.Get_PageFooter;
  16409. end;
  16410.  
  16411. procedure TAccessReportProperties.Set_PageFooter(pRet: Byte);
  16412. begin
  16413.   DefaultInterface.Set_PageFooter(pRet);
  16414. end;
  16415.  
  16416. function  TAccessReportProperties.Get_DateGrouping: Byte;
  16417. begin
  16418.   Result := DefaultInterface.Get_DateGrouping;
  16419. end;
  16420.  
  16421. procedure TAccessReportProperties.Set_DateGrouping(pRet: Byte);
  16422. begin
  16423.   DefaultInterface.Set_DateGrouping(pRet);
  16424. end;
  16425.  
  16426. function  TAccessReportProperties.Get_GrpKeepTogether: Byte;
  16427. begin
  16428.   Result := DefaultInterface.Get_GrpKeepTogether;
  16429. end;
  16430.  
  16431. procedure TAccessReportProperties.Set_GrpKeepTogether(pRet: Byte);
  16432. begin
  16433.   DefaultInterface.Set_GrpKeepTogether(pRet);
  16434. end;
  16435.  
  16436. function  TAccessReportProperties.Get_MinButton: WordBool;
  16437. begin
  16438.   Result := DefaultInterface.Get_MinButton;
  16439. end;
  16440.  
  16441. procedure TAccessReportProperties.Set_MinButton(pRet: WordBool);
  16442. begin
  16443.   DefaultInterface.Set_MinButton(pRet);
  16444. end;
  16445.  
  16446. function  TAccessReportProperties.Get_MaxButton: WordBool;
  16447. begin
  16448.   Result := DefaultInterface.Get_MaxButton;
  16449. end;
  16450.  
  16451. procedure TAccessReportProperties.Set_MaxButton(pRet: WordBool);
  16452. begin
  16453.   DefaultInterface.Set_MaxButton(pRet);
  16454. end;
  16455.  
  16456. function  TAccessReportProperties.Get_Width: Smallint;
  16457. begin
  16458.   Result := DefaultInterface.Get_Width;
  16459. end;
  16460.  
  16461. procedure TAccessReportProperties.Set_Width(pRet: Smallint);
  16462. begin
  16463.   DefaultInterface.Set_Width(pRet);
  16464. end;
  16465.  
  16466. function  TAccessReportProperties.Get_Picture: WideString;
  16467. begin
  16468.   Result := DefaultInterface.Get_Picture;
  16469. end;
  16470.  
  16471. procedure TAccessReportProperties.Set_Picture(const pRet: WideString);
  16472. begin
  16473.   DefaultInterface.Set_Picture(pRet);
  16474. end;
  16475.  
  16476. function  TAccessReportProperties.Get_PictureType: Byte;
  16477. begin
  16478.   Result := DefaultInterface.Get_PictureType;
  16479. end;
  16480.  
  16481. procedure TAccessReportProperties.Set_PictureType(pRet: Byte);
  16482. begin
  16483.   DefaultInterface.Set_PictureType(pRet);
  16484. end;
  16485.  
  16486. function  TAccessReportProperties.Get_PictureSizeMode: Byte;
  16487. begin
  16488.   Result := DefaultInterface.Get_PictureSizeMode;
  16489. end;
  16490.  
  16491. procedure TAccessReportProperties.Set_PictureSizeMode(pRet: Byte);
  16492. begin
  16493.   DefaultInterface.Set_PictureSizeMode(pRet);
  16494. end;
  16495.  
  16496. function  TAccessReportProperties.Get_PictureAlignment: Byte;
  16497. begin
  16498.   Result := DefaultInterface.Get_PictureAlignment;
  16499. end;
  16500.  
  16501. procedure TAccessReportProperties.Set_PictureAlignment(pRet: Byte);
  16502. begin
  16503.   DefaultInterface.Set_PictureAlignment(pRet);
  16504. end;
  16505.  
  16506. function  TAccessReportProperties.Get_PictureTiling: WordBool;
  16507. begin
  16508.   Result := DefaultInterface.Get_PictureTiling;
  16509. end;
  16510.  
  16511. procedure TAccessReportProperties.Set_PictureTiling(pRet: WordBool);
  16512. begin
  16513.   DefaultInterface.Set_PictureTiling(pRet);
  16514. end;
  16515.  
  16516. function  TAccessReportProperties.Get_PicturePages: Byte;
  16517. begin
  16518.   Result := DefaultInterface.Get_PicturePages;
  16519. end;
  16520.  
  16521. procedure TAccessReportProperties.Set_PicturePages(pRet: Byte);
  16522. begin
  16523.   DefaultInterface.Set_PicturePages(pRet);
  16524. end;
  16525.  
  16526. function  TAccessReportProperties.Get_MenuBar: WideString;
  16527. begin
  16528.   Result := DefaultInterface.Get_MenuBar;
  16529. end;
  16530.  
  16531. procedure TAccessReportProperties.Set_MenuBar(const pRet: WideString);
  16532. begin
  16533.   DefaultInterface.Set_MenuBar(pRet);
  16534. end;
  16535.  
  16536. function  TAccessReportProperties.Get_Toolbar: WideString;
  16537. begin
  16538.   Result := DefaultInterface.Get_Toolbar;
  16539. end;
  16540.  
  16541. procedure TAccessReportProperties.Set_Toolbar(const pRet: WideString);
  16542. begin
  16543.   DefaultInterface.Set_Toolbar(pRet);
  16544. end;
  16545.  
  16546. function  TAccessReportProperties.Get_ShortcutMenuBar: WideString;
  16547. begin
  16548.   Result := DefaultInterface.Get_ShortcutMenuBar;
  16549. end;
  16550.  
  16551. procedure TAccessReportProperties.Set_ShortcutMenuBar(const pRet: WideString);
  16552. begin
  16553.   DefaultInterface.Set_ShortcutMenuBar(pRet);
  16554. end;
  16555.  
  16556. function  TAccessReportProperties.Get_GridX: Smallint;
  16557. begin
  16558.   Result := DefaultInterface.Get_GridX;
  16559. end;
  16560.  
  16561. procedure TAccessReportProperties.Set_GridX(pRet: Smallint);
  16562. begin
  16563.   DefaultInterface.Set_GridX(pRet);
  16564. end;
  16565.  
  16566. function  TAccessReportProperties.Get_GridY: Smallint;
  16567. begin
  16568.   Result := DefaultInterface.Get_GridY;
  16569. end;
  16570.  
  16571. procedure TAccessReportProperties.Set_GridY(pRet: Smallint);
  16572. begin
  16573.   DefaultInterface.Set_GridY(pRet);
  16574. end;
  16575.  
  16576. function  TAccessReportProperties.Get_LayoutForPrint: WordBool;
  16577. begin
  16578.   Result := DefaultInterface.Get_LayoutForPrint;
  16579. end;
  16580.  
  16581. procedure TAccessReportProperties.Set_LayoutForPrint(pRet: WordBool);
  16582. begin
  16583.   DefaultInterface.Set_LayoutForPrint(pRet);
  16584. end;
  16585.  
  16586. function  TAccessReportProperties.Get_FastLaserPrinting: WordBool;
  16587. begin
  16588.   Result := DefaultInterface.Get_FastLaserPrinting;
  16589. end;
  16590.  
  16591. procedure TAccessReportProperties.Set_FastLaserPrinting(pRet: WordBool);
  16592. begin
  16593.   DefaultInterface.Set_FastLaserPrinting(pRet);
  16594. end;
  16595.  
  16596. function  TAccessReportProperties.Get_HelpFile: WideString;
  16597. begin
  16598.   Result := DefaultInterface.Get_HelpFile;
  16599. end;
  16600.  
  16601. procedure TAccessReportProperties.Set_HelpFile(const pRet: WideString);
  16602. begin
  16603.   DefaultInterface.Set_HelpFile(pRet);
  16604. end;
  16605.  
  16606. function  TAccessReportProperties.Get_HelpContextId: Integer;
  16607. begin
  16608.   Result := DefaultInterface.Get_HelpContextId;
  16609. end;
  16610.  
  16611. procedure TAccessReportProperties.Set_HelpContextId(pRet: Integer);
  16612. begin
  16613.   DefaultInterface.Set_HelpContextId(pRet);
  16614. end;
  16615.  
  16616. function  TAccessReportProperties.Get_Hwnd: Integer;
  16617. begin
  16618.   Result := DefaultInterface.Get_Hwnd;
  16619. end;
  16620.  
  16621. procedure TAccessReportProperties.Set_Hwnd(pRet: Integer);
  16622. begin
  16623.   DefaultInterface.Set_Hwnd(pRet);
  16624. end;
  16625.  
  16626. function  TAccessReportProperties.Get_Count: Smallint;
  16627. begin
  16628.   Result := DefaultInterface.Get_Count;
  16629. end;
  16630.  
  16631. procedure TAccessReportProperties.Set_Count(pRet: Smallint);
  16632. begin
  16633.   DefaultInterface.Set_Count(pRet);
  16634. end;
  16635.  
  16636. function  TAccessReportProperties.Get_Page: Integer;
  16637. begin
  16638.   Result := DefaultInterface.Get_Page;
  16639. end;
  16640.  
  16641. procedure TAccessReportProperties.Set_Page(pRet: Integer);
  16642. begin
  16643.   DefaultInterface.Set_Page(pRet);
  16644. end;
  16645.  
  16646. function  TAccessReportProperties.Get_Pages: Smallint;
  16647. begin
  16648.   Result := DefaultInterface.Get_Pages;
  16649. end;
  16650.  
  16651. procedure TAccessReportProperties.Set_Pages(pRet: Smallint);
  16652. begin
  16653.   DefaultInterface.Set_Pages(pRet);
  16654. end;
  16655.  
  16656. function  TAccessReportProperties.Get_LogicalPageWidth: Integer;
  16657. begin
  16658.   Result := DefaultInterface.Get_LogicalPageWidth;
  16659. end;
  16660.  
  16661. procedure TAccessReportProperties.Set_LogicalPageWidth(pRet: Integer);
  16662. begin
  16663.   DefaultInterface.Set_LogicalPageWidth(pRet);
  16664. end;
  16665.  
  16666. function  TAccessReportProperties.Get_LogicalPageHeight: Integer;
  16667. begin
  16668.   Result := DefaultInterface.Get_LogicalPageHeight;
  16669. end;
  16670.  
  16671. procedure TAccessReportProperties.Set_LogicalPageHeight(pRet: Integer);
  16672. begin
  16673.   DefaultInterface.Set_LogicalPageHeight(pRet);
  16674. end;
  16675.  
  16676. function  TAccessReportProperties.Get_ZoomControl: Integer;
  16677. begin
  16678.   Result := DefaultInterface.Get_ZoomControl;
  16679. end;
  16680.  
  16681. procedure TAccessReportProperties.Set_ZoomControl(pRet: Integer);
  16682. begin
  16683.   DefaultInterface.Set_ZoomControl(pRet);
  16684. end;
  16685.  
  16686. function  TAccessReportProperties.Get_HasData: Integer;
  16687. begin
  16688.   Result := DefaultInterface.Get_HasData;
  16689. end;
  16690.  
  16691. procedure TAccessReportProperties.Set_HasData(pRet: Integer);
  16692. begin
  16693.   DefaultInterface.Set_HasData(pRet);
  16694. end;
  16695.  
  16696. function  TAccessReportProperties.Get_Left: Integer;
  16697. begin
  16698.   Result := DefaultInterface.Get_Left;
  16699. end;
  16700.  
  16701. procedure TAccessReportProperties.Set_Left(pRet: Integer);
  16702. begin
  16703.   DefaultInterface.Set_Left(pRet);
  16704. end;
  16705.  
  16706. function  TAccessReportProperties.Get_Top: Integer;
  16707. begin
  16708.   Result := DefaultInterface.Get_Top;
  16709. end;
  16710.  
  16711. procedure TAccessReportProperties.Set_Top(pRet: Integer);
  16712. begin
  16713.   DefaultInterface.Set_Top(pRet);
  16714. end;
  16715.  
  16716. function  TAccessReportProperties.Get_Height: Integer;
  16717. begin
  16718.   Result := DefaultInterface.Get_Height;
  16719. end;
  16720.  
  16721. procedure TAccessReportProperties.Set_Height(pRet: Integer);
  16722. begin
  16723.   DefaultInterface.Set_Height(pRet);
  16724. end;
  16725.  
  16726. function  TAccessReportProperties.Get_PrintSection: WordBool;
  16727. begin
  16728.   Result := DefaultInterface.Get_PrintSection;
  16729. end;
  16730.  
  16731. procedure TAccessReportProperties.Set_PrintSection(pRet: WordBool);
  16732. begin
  16733.   DefaultInterface.Set_PrintSection(pRet);
  16734. end;
  16735.  
  16736. function  TAccessReportProperties.Get_NextRecord: WordBool;
  16737. begin
  16738.   Result := DefaultInterface.Get_NextRecord;
  16739. end;
  16740.  
  16741. procedure TAccessReportProperties.Set_NextRecord(pRet: WordBool);
  16742. begin
  16743.   DefaultInterface.Set_NextRecord(pRet);
  16744. end;
  16745.  
  16746. function  TAccessReportProperties.Get_MoveLayout: WordBool;
  16747. begin
  16748.   Result := DefaultInterface.Get_MoveLayout;
  16749. end;
  16750.  
  16751. procedure TAccessReportProperties.Set_MoveLayout(pRet: WordBool);
  16752. begin
  16753.   DefaultInterface.Set_MoveLayout(pRet);
  16754. end;
  16755.  
  16756. function  TAccessReportProperties.Get_FormatCount: Smallint;
  16757. begin
  16758.   Result := DefaultInterface.Get_FormatCount;
  16759. end;
  16760.  
  16761. procedure TAccessReportProperties.Set_FormatCount(pRet: Smallint);
  16762. begin
  16763.   DefaultInterface.Set_FormatCount(pRet);
  16764. end;
  16765.  
  16766. function  TAccessReportProperties.Get_PrintCount: Smallint;
  16767. begin
  16768.   Result := DefaultInterface.Get_PrintCount;
  16769. end;
  16770.  
  16771. procedure TAccessReportProperties.Set_PrintCount(pRet: Smallint);
  16772. begin
  16773.   DefaultInterface.Set_PrintCount(pRet);
  16774. end;
  16775.  
  16776. function  TAccessReportProperties.Get_Visible: WordBool;
  16777. begin
  16778.   Result := DefaultInterface.Get_Visible;
  16779. end;
  16780.  
  16781. procedure TAccessReportProperties.Set_Visible(pRet: WordBool);
  16782. begin
  16783.   DefaultInterface.Set_Visible(pRet);
  16784. end;
  16785.  
  16786. function  TAccessReportProperties.Get_Painting: WordBool;
  16787. begin
  16788.   Result := DefaultInterface.Get_Painting;
  16789. end;
  16790.  
  16791. procedure TAccessReportProperties.Set_Painting(pRet: WordBool);
  16792. begin
  16793.   DefaultInterface.Set_Painting(pRet);
  16794. end;
  16795.  
  16796. function  TAccessReportProperties.Get_PrtMip: OleVariant;
  16797. begin
  16798.   Result := DefaultInterface.Get_PrtMip;
  16799. end;
  16800.  
  16801. procedure TAccessReportProperties.Set_PrtMip(pRet: OleVariant);
  16802. begin
  16803.   DefaultInterface.Set_PrtMip(pRet);
  16804. end;
  16805.  
  16806. function  TAccessReportProperties.Get_PrtDevMode: OleVariant;
  16807. begin
  16808.   Result := DefaultInterface.Get_PrtDevMode;
  16809. end;
  16810.  
  16811. procedure TAccessReportProperties.Set_PrtDevMode(pRet: OleVariant);
  16812. begin
  16813.   DefaultInterface.Set_PrtDevMode(pRet);
  16814. end;
  16815.  
  16816. function  TAccessReportProperties.Get_PrtDevNames: OleVariant;
  16817. begin
  16818.   Result := DefaultInterface.Get_PrtDevNames;
  16819. end;
  16820.  
  16821. procedure TAccessReportProperties.Set_PrtDevNames(pRet: OleVariant);
  16822. begin
  16823.   DefaultInterface.Set_PrtDevNames(pRet);
  16824. end;
  16825.  
  16826. function  TAccessReportProperties.Get_ForeColor: Integer;
  16827. begin
  16828.   Result := DefaultInterface.Get_ForeColor;
  16829. end;
  16830.  
  16831. procedure TAccessReportProperties.Set_ForeColor(pRet: Integer);
  16832. begin
  16833.   DefaultInterface.Set_ForeColor(pRet);
  16834. end;
  16835.  
  16836. function  TAccessReportProperties.Get_CurrentX: Single;
  16837. begin
  16838.   Result := DefaultInterface.Get_CurrentX;
  16839. end;
  16840.  
  16841. procedure TAccessReportProperties.Set_CurrentX(pRet: Single);
  16842. begin
  16843.   DefaultInterface.Set_CurrentX(pRet);
  16844. end;
  16845.  
  16846. function  TAccessReportProperties.Get_CurrentY: Single;
  16847. begin
  16848.   Result := DefaultInterface.Get_CurrentY;
  16849. end;
  16850.  
  16851. procedure TAccessReportProperties.Set_CurrentY(pRet: Single);
  16852. begin
  16853.   DefaultInterface.Set_CurrentY(pRet);
  16854. end;
  16855.  
  16856. function  TAccessReportProperties.Get_ScaleHeight: Single;
  16857. begin
  16858.   Result := DefaultInterface.Get_ScaleHeight;
  16859. end;
  16860.  
  16861. procedure TAccessReportProperties.Set_ScaleHeight(pRet: Single);
  16862. begin
  16863.   DefaultInterface.Set_ScaleHeight(pRet);
  16864. end;
  16865.  
  16866. function  TAccessReportProperties.Get_ScaleLeft: Single;
  16867. begin
  16868.   Result := DefaultInterface.Get_ScaleLeft;
  16869. end;
  16870.  
  16871. procedure TAccessReportProperties.Set_ScaleLeft(pRet: Single);
  16872. begin
  16873.   DefaultInterface.Set_ScaleLeft(pRet);
  16874. end;
  16875.  
  16876. function  TAccessReportProperties.Get_ScaleMode: Smallint;
  16877. begin
  16878.   Result := DefaultInterface.Get_ScaleMode;
  16879. end;
  16880.  
  16881. procedure TAccessReportProperties.Set_ScaleMode(pRet: Smallint);
  16882. begin
  16883.   DefaultInterface.Set_ScaleMode(pRet);
  16884. end;
  16885.  
  16886. function  TAccessReportProperties.Get_ScaleTop: Single;
  16887. begin
  16888.   Result := DefaultInterface.Get_ScaleTop;
  16889. end;
  16890.  
  16891. procedure TAccessReportProperties.Set_ScaleTop(pRet: Single);
  16892. begin
  16893.   DefaultInterface.Set_ScaleTop(pRet);
  16894. end;
  16895.  
  16896. function  TAccessReportProperties.Get_ScaleWidth: Single;
  16897. begin
  16898.   Result := DefaultInterface.Get_ScaleWidth;
  16899. end;
  16900.  
  16901. procedure TAccessReportProperties.Set_ScaleWidth(pRet: Single);
  16902. begin
  16903.   DefaultInterface.Set_ScaleWidth(pRet);
  16904. end;
  16905.  
  16906. function  TAccessReportProperties.Get_FontBold: Smallint;
  16907. begin
  16908.   Result := DefaultInterface.Get_FontBold;
  16909. end;
  16910.  
  16911. procedure TAccessReportProperties.Set_FontBold(pRet: Smallint);
  16912. begin
  16913.   DefaultInterface.Set_FontBold(pRet);
  16914. end;
  16915.  
  16916. function  TAccessReportProperties.Get_FontItalic: Smallint;
  16917. begin
  16918.   Result := DefaultInterface.Get_FontItalic;
  16919. end;
  16920.  
  16921. procedure TAccessReportProperties.Set_FontItalic(pRet: Smallint);
  16922. begin
  16923.   DefaultInterface.Set_FontItalic(pRet);
  16924. end;
  16925.  
  16926. function  TAccessReportProperties.Get_FontName: WideString;
  16927. begin
  16928.   Result := DefaultInterface.Get_FontName;
  16929. end;
  16930.  
  16931. procedure TAccessReportProperties.Set_FontName(const pRet: WideString);
  16932. begin
  16933.   DefaultInterface.Set_FontName(pRet);
  16934. end;
  16935.  
  16936. function  TAccessReportProperties.Get_FontSize: Smallint;
  16937. begin
  16938.   Result := DefaultInterface.Get_FontSize;
  16939. end;
  16940.  
  16941. procedure TAccessReportProperties.Set_FontSize(pRet: Smallint);
  16942. begin
  16943.   DefaultInterface.Set_FontSize(pRet);
  16944. end;
  16945.  
  16946. function  TAccessReportProperties.Get_FontUnderline: Smallint;
  16947. begin
  16948.   Result := DefaultInterface.Get_FontUnderline;
  16949. end;
  16950.  
  16951. procedure TAccessReportProperties.Set_FontUnderline(pRet: Smallint);
  16952. begin
  16953.   DefaultInterface.Set_FontUnderline(pRet);
  16954. end;
  16955.  
  16956. function  TAccessReportProperties.Get_DrawMode: Smallint;
  16957. begin
  16958.   Result := DefaultInterface.Get_DrawMode;
  16959. end;
  16960.  
  16961. procedure TAccessReportProperties.Set_DrawMode(pRet: Smallint);
  16962. begin
  16963.   DefaultInterface.Set_DrawMode(pRet);
  16964. end;
  16965.  
  16966. function  TAccessReportProperties.Get_DrawStyle: Smallint;
  16967. begin
  16968.   Result := DefaultInterface.Get_DrawStyle;
  16969. end;
  16970.  
  16971. procedure TAccessReportProperties.Set_DrawStyle(pRet: Smallint);
  16972. begin
  16973.   DefaultInterface.Set_DrawStyle(pRet);
  16974. end;
  16975.  
  16976. function  TAccessReportProperties.Get_DrawWidth: Smallint;
  16977. begin
  16978.   Result := DefaultInterface.Get_DrawWidth;
  16979. end;
  16980.  
  16981. procedure TAccessReportProperties.Set_DrawWidth(pRet: Smallint);
  16982. begin
  16983.   DefaultInterface.Set_DrawWidth(pRet);
  16984. end;
  16985.  
  16986. function  TAccessReportProperties.Get_FillColor: Integer;
  16987. begin
  16988.   Result := DefaultInterface.Get_FillColor;
  16989. end;
  16990.  
  16991. procedure TAccessReportProperties.Set_FillColor(pRet: Integer);
  16992. begin
  16993.   DefaultInterface.Set_FillColor(pRet);
  16994. end;
  16995.  
  16996. function  TAccessReportProperties.Get_FillStyle: Smallint;
  16997. begin
  16998.   Result := DefaultInterface.Get_FillStyle;
  16999. end;
  17000.  
  17001. procedure TAccessReportProperties.Set_FillStyle(pRet: Smallint);
  17002. begin
  17003.   DefaultInterface.Set_FillStyle(pRet);
  17004. end;
  17005.  
  17006. function  TAccessReportProperties.Get_Name: WideString;
  17007. begin
  17008.   Result := DefaultInterface.Get_Name;
  17009. end;
  17010.  
  17011. procedure TAccessReportProperties.Set_Name(const pRet: WideString);
  17012. begin
  17013.   DefaultInterface.Set_Name(pRet);
  17014. end;
  17015.  
  17016. function  TAccessReportProperties.Get_PaletteSource: WideString;
  17017. begin
  17018.   Result := DefaultInterface.Get_PaletteSource;
  17019. end;
  17020.  
  17021. procedure TAccessReportProperties.Set_PaletteSource(const pRet: WideString);
  17022. begin
  17023.   DefaultInterface.Set_PaletteSource(pRet);
  17024. end;
  17025.  
  17026. function  TAccessReportProperties.Get_Tag: WideString;
  17027. begin
  17028.   Result := DefaultInterface.Get_Tag;
  17029. end;
  17030.  
  17031. procedure TAccessReportProperties.Set_Tag(const pRet: WideString);
  17032. begin
  17033.   DefaultInterface.Set_Tag(pRet);
  17034. end;
  17035.  
  17036. function  TAccessReportProperties.Get_PaintPalette: OleVariant;
  17037. begin
  17038.   Result := DefaultInterface.Get_PaintPalette;
  17039. end;
  17040.  
  17041. procedure TAccessReportProperties.Set_PaintPalette(pRet: OleVariant);
  17042. begin
  17043.   DefaultInterface.Set_PaintPalette(pRet);
  17044. end;
  17045.  
  17046. function  TAccessReportProperties.Get_OnMenu: WideString;
  17047. begin
  17048.   Result := DefaultInterface.Get_OnMenu;
  17049. end;
  17050.  
  17051. procedure TAccessReportProperties.Set_OnMenu(const pRet: WideString);
  17052. begin
  17053.   DefaultInterface.Set_OnMenu(pRet);
  17054. end;
  17055.  
  17056. function  TAccessReportProperties.Get_OnOpen: WideString;
  17057. begin
  17058.   Result := DefaultInterface.Get_OnOpen;
  17059. end;
  17060.  
  17061. procedure TAccessReportProperties.Set_OnOpen(const pRet: WideString);
  17062. begin
  17063.   DefaultInterface.Set_OnOpen(pRet);
  17064. end;
  17065.  
  17066. function  TAccessReportProperties.Get_OnClose: WideString;
  17067. begin
  17068.   Result := DefaultInterface.Get_OnClose;
  17069. end;
  17070.  
  17071. procedure TAccessReportProperties.Set_OnClose(const pRet: WideString);
  17072. begin
  17073.   DefaultInterface.Set_OnClose(pRet);
  17074. end;
  17075.  
  17076. function  TAccessReportProperties.Get_OnActivate: WideString;
  17077. begin
  17078.   Result := DefaultInterface.Get_OnActivate;
  17079. end;
  17080.  
  17081. procedure TAccessReportProperties.Set_OnActivate(const pRet: WideString);
  17082. begin
  17083.   DefaultInterface.Set_OnActivate(pRet);
  17084. end;
  17085.  
  17086. function  TAccessReportProperties.Get_OnDeactivate: WideString;
  17087. begin
  17088.   Result := DefaultInterface.Get_OnDeactivate;
  17089. end;
  17090.  
  17091. procedure TAccessReportProperties.Set_OnDeactivate(const pRet: WideString);
  17092. begin
  17093.   DefaultInterface.Set_OnDeactivate(pRet);
  17094. end;
  17095.  
  17096. function  TAccessReportProperties.Get_OnNoData: WideString;
  17097. begin
  17098.   Result := DefaultInterface.Get_OnNoData;
  17099. end;
  17100.  
  17101. procedure TAccessReportProperties.Set_OnNoData(const pRet: WideString);
  17102. begin
  17103.   DefaultInterface.Set_OnNoData(pRet);
  17104. end;
  17105.  
  17106. function  TAccessReportProperties.Get_OnPage: WideString;
  17107. begin
  17108.   Result := DefaultInterface.Get_OnPage;
  17109. end;
  17110.  
  17111. procedure TAccessReportProperties.Set_OnPage(const pRet: WideString);
  17112. begin
  17113.   DefaultInterface.Set_OnPage(pRet);
  17114. end;
  17115.  
  17116. function  TAccessReportProperties.Get_OnError: WideString;
  17117. begin
  17118.   Result := DefaultInterface.Get_OnError;
  17119. end;
  17120.  
  17121. procedure TAccessReportProperties.Set_OnError(const pRet: WideString);
  17122. begin
  17123.   DefaultInterface.Set_OnError(pRet);
  17124. end;
  17125.  
  17126. function  TAccessReportProperties.Get_Dirty: WordBool;
  17127. begin
  17128.   Result := DefaultInterface.Get_Dirty;
  17129. end;
  17130.  
  17131. procedure TAccessReportProperties.Set_Dirty(pRet: WordBool);
  17132. begin
  17133.   DefaultInterface.Set_Dirty(pRet);
  17134. end;
  17135.  
  17136. function  TAccessReportProperties.Get_CurrentRecord: Integer;
  17137. begin
  17138.   Result := DefaultInterface.Get_CurrentRecord;
  17139. end;
  17140.  
  17141. procedure TAccessReportProperties.Set_CurrentRecord(pRet: Integer);
  17142. begin
  17143.   DefaultInterface.Set_CurrentRecord(pRet);
  17144. end;
  17145.  
  17146. function  TAccessReportProperties.Get_PictureData: OleVariant;
  17147. begin
  17148.   Result := DefaultInterface.Get_PictureData;
  17149. end;
  17150.  
  17151. procedure TAccessReportProperties.Set_PictureData(pRet: OleVariant);
  17152. begin
  17153.   DefaultInterface.Set_PictureData(pRet);
  17154. end;
  17155.  
  17156. function  TAccessReportProperties.Get_PicturePalette: OleVariant;
  17157. begin
  17158.   Result := DefaultInterface.Get_PicturePalette;
  17159. end;
  17160.  
  17161. procedure TAccessReportProperties.Set_PicturePalette(pRet: OleVariant);
  17162. begin
  17163.   DefaultInterface.Set_PicturePalette(pRet);
  17164. end;
  17165.  
  17166. function  TAccessReportProperties.Get_HasModule: WordBool;
  17167. begin
  17168.   Result := DefaultInterface.Get_HasModule;
  17169. end;
  17170.  
  17171. procedure TAccessReportProperties.Set_HasModule(pRet: WordBool);
  17172. begin
  17173.   DefaultInterface.Set_HasModule(pRet);
  17174. end;
  17175.  
  17176. function  TAccessReportProperties.Get_acHiddenCurrentPage: Integer;
  17177. begin
  17178.   Result := DefaultInterface.Get_acHiddenCurrentPage;
  17179. end;
  17180.  
  17181. procedure TAccessReportProperties.Set_acHiddenCurrentPage(pRet: Integer);
  17182. begin
  17183.   DefaultInterface.Set_acHiddenCurrentPage(pRet);
  17184. end;
  17185.  
  17186. function  TAccessReportProperties.Get_Application: Application;
  17187. begin
  17188.   Result := DefaultInterface.Get_Application;
  17189. end;
  17190.  
  17191. function  TAccessReportProperties.Get_Parent: IDispatch;
  17192. begin
  17193.   Result := DefaultInterface.Get_Parent;
  17194. end;
  17195.  
  17196. function  TAccessReportProperties.Get_ActiveControl: AccessControl;
  17197. begin
  17198.   Result := DefaultInterface.Get_ActiveControl;
  17199. end;
  17200.  
  17201. function  TAccessReportProperties.Get_DefaultControl(ControlType: Integer): AccessControl;
  17202. begin
  17203.   Result := DefaultInterface.Get_DefaultControl(ControlType);
  17204. end;
  17205.  
  17206. function  TAccessReportProperties.Get_Section(Index: OleVariant): AccessSection;
  17207. begin
  17208.   Result := DefaultInterface.Get_Section(Index);
  17209. end;
  17210.  
  17211. function  TAccessReportProperties.Get_GroupLevel(Index: Integer): AccessGroupLevel;
  17212. begin
  17213.   Result := DefaultInterface.Get_GroupLevel(Index);
  17214. end;
  17215.  
  17216. function  TAccessReportProperties.Get_Report: AccessReport;
  17217. begin
  17218.   Result := DefaultInterface.Get_Report;
  17219. end;
  17220.  
  17221. function  TAccessReportProperties.Get_Module: Module;
  17222. begin
  17223.   Result := DefaultInterface.Get_Module;
  17224. end;
  17225.  
  17226. function  TAccessReportProperties.Get_Properties: Properties;
  17227. begin
  17228.   Result := DefaultInterface.Get_Properties;
  17229. end;
  17230.  
  17231. function  TAccessReportProperties.Get_Controls: Controls;
  17232. begin
  17233.   Result := DefaultInterface.Get_Controls;
  17234. end;
  17235.  
  17236. {$ENDIF}
  17237.  
  17238. class function CoApplication.Create: _Application;
  17239. begin
  17240.   Result := CreateComObject(CLASS_Application) as _Application;
  17241. end;
  17242.  
  17243. class function CoApplication.CreateRemote(const MachineName: string): _Application;
  17244. begin
  17245.   Result := CreateRemoteComObject(MachineName, CLASS_Application) as _Application;
  17246. end;
  17247.  
  17248. class function CoAccessReferences.Create: _References;
  17249. begin
  17250.   Result := CreateComObject(CLASS_AccessReferences) as _References;
  17251. end;
  17252.  
  17253. class function CoAccessReferences.CreateRemote(const MachineName: string): _References;
  17254. begin
  17255.   Result := CreateRemoteComObject(MachineName, CLASS_AccessReferences) as _References;
  17256. end;
  17257.  
  17258. procedure TAccessReferences.InitServerData;
  17259. const
  17260.   CServerData: TServerData = (
  17261.     ClassID:   '{EB106214-9C89-11CF-A2B3-00A0C90542FF}';
  17262.     IntfIID:   '{EB106213-9C89-11CF-A2B3-00A0C90542FF}';
  17263.     EventIID:  '{F163F201-ADA2-11CF-89A9-00A0C9054129}';
  17264.     LicenseKey: nil;
  17265.     Version: 500);
  17266. begin
  17267.   ServerData := @CServerData;
  17268. end;
  17269.  
  17270. procedure TAccessReferences.Connect;
  17271. var
  17272.   punk: IUnknown;
  17273. begin
  17274.   if FIntf = nil then
  17275.   begin
  17276.     punk := GetServer;
  17277.     ConnectEvents(punk);
  17278.     Fintf:= punk as _References;
  17279.   end;
  17280. end;
  17281.  
  17282. procedure TAccessReferences.ConnectTo(svrIntf: _References);
  17283. begin
  17284.   Disconnect;
  17285.   FIntf := svrIntf;
  17286.   ConnectEvents(FIntf);
  17287. end;
  17288.  
  17289. procedure TAccessReferences.DisConnect;
  17290. begin
  17291.   if Fintf <> nil then
  17292.   begin
  17293.     DisconnectEvents(FIntf);
  17294.     FIntf := nil;
  17295.   end;
  17296. end;
  17297.  
  17298. function TAccessReferences.GetDefaultInterface: _References;
  17299. begin
  17300.   if FIntf = nil then
  17301.     Connect;
  17302.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  17303.   Result := FIntf;
  17304. end;
  17305.  
  17306. constructor TAccessReferences.Create(AOwner: TComponent);
  17307. begin
  17308.   inherited Create(AOwner);
  17309. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17310.   FProps := TAccessReferencesProperties.Create(Self);
  17311. {$ENDIF}
  17312. end;
  17313.  
  17314. destructor TAccessReferences.Destroy;
  17315. begin
  17316. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17317.   FProps.Free;
  17318. {$ENDIF}
  17319.   inherited Destroy;
  17320. end;
  17321.  
  17322. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17323. function TAccessReferences.GetServerProperties: TAccessReferencesProperties;
  17324. begin
  17325.   Result := FProps;
  17326. end;
  17327. {$ENDIF}
  17328.  
  17329. procedure TAccessReferences.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  17330. begin
  17331.   case DispID of
  17332.     -1: Exit;  // DISPID_UNKNOWN
  17333.    0: if Assigned(FOnItemAdded) then
  17334.             FOnItemAdded(Self, Params[0] (*const Reference*));
  17335.    1: if Assigned(FOnItemRemoved) then
  17336.             FOnItemRemoved(Self, Params[0] (*const Reference*));
  17337.   end; {case DispID}
  17338. end;
  17339.  
  17340. function  TAccessReferences.Get_Parent: IDispatch;
  17341. begin
  17342.   Result := DefaultInterface.Get_Parent;
  17343. end;
  17344.  
  17345. function  TAccessReferences.Get_Count: Integer;
  17346. begin
  17347.   Result := DefaultInterface.Get_Count;
  17348. end;
  17349.  
  17350. function  TAccessReferences.Item(var_: OleVariant): Reference;
  17351. begin
  17352.   Result := DefaultInterface.Item(var_);
  17353. end;
  17354.  
  17355. function  TAccessReferences._NewEnum: IUnknown;
  17356. begin
  17357.   Result := DefaultInterface._NewEnum;
  17358. end;
  17359.  
  17360. function  TAccessReferences.AddFromGuid(const Guid: WideString; Major: Integer; Minor: Integer): Reference;
  17361. begin
  17362.   Result := DefaultInterface.AddFromGuid(Guid, Major, Minor);
  17363. end;
  17364.  
  17365. function  TAccessReferences.AddFromFile(const FileName: WideString): Reference;
  17366. begin
  17367.   Result := DefaultInterface.AddFromFile(FileName);
  17368. end;
  17369.  
  17370. procedure TAccessReferences.Remove(const Reference: Reference);
  17371. begin
  17372.   DefaultInterface.Remove(Reference);
  17373. end;
  17374.  
  17375. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17376. constructor TAccessReferencesProperties.Create(AServer: TAccessReferences);
  17377. begin
  17378.   inherited Create;
  17379.   FServer := AServer;
  17380. end;
  17381.  
  17382. function TAccessReferencesProperties.GetDefaultInterface: _References;
  17383. begin
  17384.   Result := FServer.DefaultInterface;
  17385. end;
  17386.  
  17387. function  TAccessReferencesProperties.Get_Parent: IDispatch;
  17388. begin
  17389.   Result := DefaultInterface.Get_Parent;
  17390. end;
  17391.  
  17392. function  TAccessReferencesProperties.Get_Count: Integer;
  17393. begin
  17394.   Result := DefaultInterface.Get_Count;
  17395. end;
  17396.  
  17397. {$ENDIF}
  17398.  
  17399. class function CoClass_.Create: _Dummy;
  17400. begin
  17401.   Result := CreateComObject(CLASS_Class_) as _Dummy;
  17402. end;
  17403.  
  17404. class function CoClass_.CreateRemote(const MachineName: string): _Dummy;
  17405. begin
  17406.   Result := CreateRemoteComObject(MachineName, CLASS_Class_) as _Dummy;
  17407. end;
  17408.  
  17409. class function Co___CodeModule.Create: ___IVbaModule;
  17410. begin
  17411.   Result := CreateComObject(CLASS____CodeModule) as ___IVbaModule;
  17412. end;
  17413.  
  17414. class function Co___CodeModule.CreateRemote(const MachineName: string): ___IVbaModule;
  17415. begin
  17416.   Result := CreateRemoteComObject(MachineName, CLASS____CodeModule) as ___IVbaModule;
  17417. end;
  17418.  
  17419. class function Co___Editors.Create: ___IVbaEditors;
  17420. begin
  17421.   Result := CreateComObject(CLASS____Editors) as ___IVbaEditors;
  17422. end;
  17423.  
  17424. class function Co___Editors.CreateRemote(const MachineName: string): ___IVbaEditors;
  17425. begin
  17426.   Result := CreateRemoteComObject(MachineName, CLASS____Editors) as ___IVbaEditors;
  17427. end;
  17428.  
  17429. class function Co___Editor.Create: ___IVbaEditor;
  17430. begin
  17431.   Result := CreateComObject(CLASS____Editor) as ___IVbaEditor;
  17432. end;
  17433.  
  17434. class function Co___Editor.CreateRemote(const MachineName: string): ___IVbaEditor;
  17435. begin
  17436.   Result := CreateRemoteComObject(MachineName, CLASS____Editor) as ___IVbaEditor;
  17437. end;
  17438.  
  17439. class function Co___References.Create: IVbaReferences;
  17440. begin
  17441.   Result := CreateComObject(CLASS____References) as IVbaReferences;
  17442. end;
  17443.  
  17444. class function Co___References.CreateRemote(const MachineName: string): IVbaReferences;
  17445. begin
  17446.   Result := CreateRemoteComObject(MachineName, CLASS____References) as IVbaReferences;
  17447. end;
  17448.  
  17449. procedure Register;
  17450. begin
  17451.   RegisterComponents('Servers',[TDoCmd, TAccessHyperlink, TAccessForm, TAccessReport, 
  17452.     TAccessReferences]);
  17453. end;
  17454.  
  17455. end.
  17456.