home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / toolapi.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  101KB  |  2,204 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'ToolsAPI.pas' rev: 5.00
  6.  
  7. #ifndef ToolsAPIHPP
  8. #define ToolsAPIHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ComCtrls.hpp>    // Pascal unit
  14. #include <Forms.hpp>    // Pascal unit
  15. #include <ImgList.hpp>    // Pascal unit
  16. #include <Graphics.hpp>    // Pascal unit
  17. #include <ActnList.hpp>    // Pascal unit
  18. #include <Menus.hpp>    // Pascal unit
  19. #include <DsgnIntf.hpp>    // Pascal unit
  20. #include <TypInfo.hpp>    // Pascal unit
  21. #include <ActiveX.hpp>    // Pascal unit
  22. #include <Classes.hpp>    // Pascal unit
  23. #include <SysUtils.hpp>    // Pascal unit
  24. #include <Windows.hpp>    // Pascal unit
  25. #include <SysInit.hpp>    // Pascal unit
  26. #include <System.hpp>    // Pascal unit
  27.  
  28. //-- user supplied -----------------------------------------------------------
  29. DEFINE_GUID(IID_IBorlandIDEServices,0x7FD1CE92,0xE053,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  30.     
  31. DEFINE_GUID(IID_INTAComponent,0x34B2E2D1,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  32. DEFINE_GUID(IID_INTACustomDrawMessage,0x589BBDA2,0xF995,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  33.     
  34. DEFINE_GUID(IID_INTACustomMessage,0xB7523AB7,0xEB81,0x11D2,0xAC,0x7B,0x00,0xC0,0x4F,0xB1,0x73,0xDC);
  35.     
  36. DEFINE_GUID(IID_INTACustomMessage40,0x589BBDA1,0xF995,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  37.     
  38. DEFINE_GUID(IID_INTAFormEditor,0x34B2E2CF,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  39. DEFINE_GUID(IID_INTAServices,0xC17B3DF1,0xDFE5,0x11D2,0xA8,0xC7,0x00,0xC0,0x4F,0xA3,0x2F,0x53);
  40. DEFINE_GUID(IID_INTAServices40,0x3C7F3267,0xF0BF,0x11D1,0xAB,0x1E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  41. DEFINE_GUID(IID_INTAToDoItem,0x094003D8,0xE7AA,0x11D2,0xAA,0x99,0x00,0xC0,0x4F,0xA3,0x5C,0xE8);
  42. DEFINE_GUID(IID_INTAUnknown,0x8CC6430B,0xE721,0x11D2,0xA8,0xCC,0x00,0xC0,0x4F,0xA3,0x2F,0x53);
  43. DEFINE_GUID(IID_IOTAActionServices,0xF17A7BC9,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  44.     
  45. DEFINE_GUID(IID_IOTAAddressBreakpoint,0x09063878,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  46.     
  47. DEFINE_GUID(IID_IOTABreakpoint,0x569EFCFB,0xC69B,0x11D2,0xAC,0x67,0x00,0xC0,0x4F,0xB1,0x73,0xDC);
  48. DEFINE_GUID(IID_IOTABreakpoint40,0x34B2E2D4,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  49. DEFINE_GUID(IID_IOTABreakpointNotifier,0x34B2E2D5,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  50.     
  51. DEFINE_GUID(IID_IOTABufferOptions,0x8C748540,0xC6C1,0x11D2,0x81,0x39,0x00,0x60,0x97,0x92,0xF1,0x34);
  52.     
  53. DEFINE_GUID(IID_IOTAComponent,0x34B2E2D0,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  54. DEFINE_GUID(IID_IOTACreator,0x6EDB9B9E,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  55. DEFINE_GUID(IID_IOTADebuggerNotifier,0x34B2E2D8,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  56.     
  57. DEFINE_GUID(IID_IOTADebuggerServices,0x0E3B9D7A,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  58.     
  59. DEFINE_GUID(IID_IOTAEditActions,0xECB23623,0xE2D8,0x11D2,0xAB,0xE5,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  60. DEFINE_GUID(IID_IOTAEditBlock,0x9C510463,0xC7BC,0x11D2,0x9A,0xEB,0x00,0xA0,0x24,0x57,0x62,0x1F);
  61. DEFINE_GUID(IID_IOTAEditBuffer,0x9C510460,0xC7BC,0x11D2,0x9A,0xEB,0x00,0xA0,0x24,0x57,0x62,0x1F);
  62. DEFINE_GUID(IID_IOTAEditBufferIterator,0x8ECB33AA,0xD0BD,0x11D2,0xAB,0xD6,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  63.     
  64. DEFINE_GUID(IID_IOTAEditLineNotifier,0xD9D48F50,0xE6CC,0x11D2,0xAB,0xE8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  65.     
  66. DEFINE_GUID(IID_IOTAEditLineTracker,0xD9D48F4F,0xE6CC,0x11D2,0xAB,0xE8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  67.     
  68. DEFINE_GUID(IID_IOTAEditOptions,0x487BEA91,0xDBC0,0x11D2,0xAB,0xDE,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  69. DEFINE_GUID(IID_IOTAEditor,0xF17A7BD0,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  70. DEFINE_GUID(IID_IOTAEditorNotifier,0x0E3B9D7B,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  71.     
  72. DEFINE_GUID(IID_IOTAEditorServices,0xC2812BA7,0xC48D,0x11D2,0x9A,0xE8,0x00,0xA0,0x24,0x57,0x62,0x1F);
  73.     
  74. DEFINE_GUID(IID_IOTAEditPosition,0x9C510464,0xC7BC,0x11D2,0x9A,0xEB,0x00,0xA0,0x24,0x57,0x62,0x1F);
  75. DEFINE_GUID(IID_IOTAEditReader,0x26EB0E4F,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  76. DEFINE_GUID(IID_IOTAEditView,0x9C510462,0xC7BC,0x11D2,0x9A,0xEB,0x00,0xA0,0x24,0x57,0x62,0x1F);
  77. DEFINE_GUID(IID_IOTAEditView40,0x0E3B9D78,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  78. DEFINE_GUID(IID_IOTAEditWriter,0x26EB0E50,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  79. DEFINE_GUID(IID_IOTAEnvironmentOptions,0x9C0E91FB,0xFA5A,0x11D1,0xAB,0x28,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  80.     
  81. DEFINE_GUID(IID_IOTAFile,0x6E2AD9B0,0xF7F0,0x11D1,0xAB,0x26,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  82. DEFINE_GUID(IID_IOTAFileSystem,0xA9D1389D,0xF4B0,0x11D1,0xAB,0x22,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  83. DEFINE_GUID(IID_IOTAFormEditor,0xF17A7BD2,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  84. DEFINE_GUID(IID_IOTAFormNotifier,0x0E3B9D7C,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  85. DEFINE_GUID(IID_IOTAFormWizard,0x36C8BF35,0xEFFE,0x11D1,0xAB,0x1D,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  86. DEFINE_GUID(IID_IOTAIDENotifier,0xE052204F,0xECE9,0x11D1,0xAB,0x19,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  87. DEFINE_GUID(IID_IOTAIDENotifier50,0xAC7D29F1,0xD9A9,0x11D2,0xA8,0xC1,0x00,0xC0,0x4F,0xA3,0x2F,0x53);
  88.     
  89. DEFINE_GUID(IID_IOTAKeyBindingServices,0xF8CAF8D8,0xD263,0x11D2,0xAB,0xD8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  90.     
  91. DEFINE_GUID(IID_IOTAKeyboardBinding,0xF8CAF8D7,0xD263,0x11D2,0xAB,0xD8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  92.     
  93. DEFINE_GUID(IID_IOTAKeyboardServices,0xF8CAF8D5,0xD263,0x11D2,0xAB,0xD8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  94.     
  95. DEFINE_GUID(IID_IOTAKeyboardDiagnostics,0xAEFC65F1,0x2504,0x11D3,0xAC,0x25,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  96.     
  97. DEFINE_GUID(IID_IOTAKeyContext,0x3E7790CB,0xD2BB,0x11D2,0xAB,0xD8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  98. DEFINE_GUID(IID_IOTAMenuWizard,0xB75C0CE2,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  99. DEFINE_GUID(IID_IOTAMessageServices,0x3263774B,0xE959,0x11D2,0xAC,0x7B,0x00,0xC0,0x4F,0xB1,0x73,0xDC);
  100.     
  101. DEFINE_GUID(IID_IOTAMessageServices40,0x26EB0E4E,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  102.     
  103. DEFINE_GUID(IID_IOTAModule,0xF17A7BCC,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  104. DEFINE_GUID(IID_IOTAModuleCreator,0x6EDB9B9A,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  105.     
  106. DEFINE_GUID(IID_IOTAModuleInfo,0xF17A7BD6,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  107. DEFINE_GUID(IID_IOTAModuleNotifier,0xF17A7BCE,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  108.     
  109. DEFINE_GUID(IID_IOTAModuleServices,0xF17A7BCD,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  110.     
  111. DEFINE_GUID(IID_IOTANotifier,0xF17A7BCF,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  112. DEFINE_GUID(IID_IOTAOptions,0x9C0E91FC,0xFA5A,0x11D1,0xAB,0x28,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  113. DEFINE_GUID(IID_IOTAPackageServices,0x26EB0E4D,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  114.     
  115. DEFINE_GUID(IID_IOTAProcess,0x34B2E2D2,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  116. DEFINE_GUID(IID_IOTAProcessModNotifier,0x0906387A,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  117.     
  118. DEFINE_GUID(IID_IOTAProcessModule,0x09063879,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  119.     
  120. DEFINE_GUID(IID_IOTAProcessNotifier,0x34B2E2D6,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  121.     
  122. DEFINE_GUID(IID_IOTAProject,0xF17A7BCA,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  123. DEFINE_GUID(IID_IOTAProjectBuilder,0x08A5B1F5,0xFCDA,0x11D2,0xAC,0x82,0x00,0xC0,0x4F,0xB1,0x73,0xDC);
  124.     
  125. DEFINE_GUID(IID_IOTAProjectBuilder40,0xF17A7BD5,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  126.     
  127. DEFINE_GUID(IID_IOTAProjectCreator,0x6EDB9B9D,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  128.     
  129. DEFINE_GUID(IID_IOTAProjectGroup,0xF17A7BCB,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  130. DEFINE_GUID(IID_IOTAProjectGroupCreator,0x6EDB9B9F,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  131.     
  132. DEFINE_GUID(IID_IOTAProjectOptions,0xF899EBC6,0xE6E2,0x11D2,0xAA,0x90,0x00,0xC0,0x4F,0xA3,0x70,0xE9);
  133.     
  134. DEFINE_GUID(IID_IOTAProjectOptions40,0xF17A7BD4,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  135.     
  136. DEFINE_GUID(IID_IOTAProjectResource,0x26EB0E52,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  137.     
  138. DEFINE_GUID(IID_IOTAProjectWizard,0x36C8BF36,0xEFFE,0x11D1,0xAB,0x1D,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  139.     
  140. DEFINE_GUID(IID_IOTARecord,0xF8CAF8D6,0xD263,0x11D2,0xAB,0xD8,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  141. DEFINE_GUID(IID_IOTAReplaceOptions,0xD1766F8C,0xD915,0x11D2,0xA8,0xC1,0x00,0xC0,0x4F,0xA3,0x2F,0x53);
  142.     
  143. DEFINE_GUID(IID_IOTARepositoryWizard,0xB75C0CE1,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  144.     
  145. DEFINE_GUID(IID_IOTAResourceEntry,0x26EB0E51,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  146.     
  147. DEFINE_GUID(IID_IOTASearchOptions,0xD1766F8B,0xD915,0x11D2,0xA8,0xC1,0x00,0xC0,0x4F,0xA3,0x2F,0x53);
  148.     
  149. DEFINE_GUID(IID_IOTAServices,0x7FD1CE91,0xE053,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  150. DEFINE_GUID(IID_IOTASourceBreakpoint,0x09063877,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  151.     
  152. DEFINE_GUID(IID_IOTASourceEditor,0xF17A7BD1,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  153. DEFINE_GUID(IID_IOTASpeedSetting,0xB5CDCE07,0xE093,0x11D2,0xAB,0xE2,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  154. DEFINE_GUID(IID_IOTAThread,0x34B2E2D3,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  155. DEFINE_GUID(IID_IOTAThreadNotifier,0x34B2E2D7,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  156.     
  157. DEFINE_GUID(IID_IOTAToDoManager,0x3D4A0565,0xEB77,0x11D2,0xAA,0x9A,0x00,0xC0,0x4F,0xA3,0x5C,0xE8);
  158. DEFINE_GUID(IID_IOTAToDoServices,0xF8FC00EF,0xE61A,0x11D2,0xAA,0x99,0x00,0xC0,0x4F,0xA3,0x5C,0xE8);
  159. DEFINE_GUID(IID_IOTATypeLibEditor,0xF17A7BD3,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  160.     
  161. DEFINE_GUID(IID_IOTATypeLibModule,0x0BBAEEA0,0xEF74,0x11D1,0xAB,0x1C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  162.     
  163. DEFINE_GUID(IID_IOTAWizard,0xB75C0CE0,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  164. DEFINE_GUID(IID_IOTAWizardServices,0xB75C0CE3,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  165.     
  166.  
  167. namespace Toolsapi
  168. {
  169. //-- type declarations -------------------------------------------------------
  170. #pragma option push -b-
  171. enum TOTACompileMode { cmOTAMake, cmOTABuild, cmOTACheck, cmOTAMakeUnit };
  172. #pragma option pop
  173.  
  174. typedef int TOTAModuleType;
  175.  
  176. typedef void *TOTAHandle;
  177.  
  178. typedef Shortint TOTAToDoPriority;
  179.  
  180. #pragma pack(push, 1)
  181. struct TOTAEditPos
  182. {
  183.     short Col;
  184.     int Line;
  185. } ;
  186. #pragma pack(pop)
  187.  
  188. #pragma pack(push, 1)
  189. struct TOTACharPos
  190. {
  191.     short CharIndex;
  192.     int Line;
  193. } ;
  194. #pragma pack(pop)
  195.  
  196. struct TOTAOptionName
  197. {
  198.     AnsiString Name;
  199.     Typinfo::TTypeKind Kind;
  200. } ;
  201.  
  202. typedef DynamicArray<TOTAOptionName >  TOTAOptionNameArray;
  203.  
  204. #pragma option push -b-
  205. enum TBindingType { btComplete, btPartial };
  206. #pragma option pop
  207.  
  208. #pragma option push -b-
  209. enum TKeyBindingResult { krUnhandled, krHandled, krNextProc };
  210. #pragma option pop
  211.  
  212. __interface IOTAKeyContext;
  213. typedef System::DelphiInterface<IOTAKeyContext> _di_IOTAKeyContext;
  214. typedef void __fastcall (__closure *TKeyBindingProc)(const _di_IOTAKeyContext Context, Classes::TShortCut 
  215.     KeyCode, TKeyBindingResult &BindingResult);
  216.  
  217. typedef Byte TMoveCursorMasks;
  218.  
  219. #pragma option push -b-
  220. enum TSearchDirection { sdForward, sdBackward };
  221. #pragma option pop
  222.  
  223. __interface IOTANotifier;
  224. typedef System::DelphiInterface<IOTANotifier> _di_IOTANotifier;
  225. __interface INTERFACE_UUID("{F17A7BCF-E07D-11D1-AB0B-00C04FB16FB3}") IOTANotifier  : public IUnknown 
  226.     
  227. {
  228.     
  229. public:
  230.     virtual void __fastcall AfterSave(void) = 0 ;
  231.     virtual void __fastcall BeforeSave(void) = 0 ;
  232.     virtual void __fastcall Destroyed(void) = 0 ;
  233.     virtual void __fastcall Modified(void) = 0 ;
  234. };
  235.  
  236. __interface IOTAEditorNotifier;
  237. typedef System::DelphiInterface<IOTAEditorNotifier> _di_IOTAEditorNotifier;
  238. __interface IOTAEditView;
  239. typedef System::DelphiInterface<IOTAEditView> _di_IOTAEditView;
  240. __interface INTERFACE_UUID("{0E3B9D7B-E119-11D1-AB0C-00C04FB16FB3}") IOTAEditorNotifier  : public IOTANotifier 
  241.     
  242. {
  243.     
  244. public:
  245.     virtual void __fastcall ViewNotification(const _di_IOTAEditView View, Classes::TOperation Operation
  246.         ) = 0 ;
  247.     virtual void __fastcall ViewActivated(const _di_IOTAEditView View) = 0 ;
  248. };
  249.  
  250. __interface IOTAFormNotifier;
  251. typedef System::DelphiInterface<IOTAFormNotifier> _di_IOTAFormNotifier;
  252. __interface INTERFACE_UUID("{0E3B9D7C-E119-11D1-AB0C-00C04FB16FB3}") IOTAFormNotifier  : public IOTANotifier 
  253.     
  254. {
  255.     
  256. public:
  257.     virtual void __fastcall FormActivated(void) = 0 ;
  258.     virtual void __fastcall FormSaving(void) = 0 ;
  259.     virtual void __fastcall ComponentRenamed(void * ComponentHandle, const AnsiString OldName, const AnsiString 
  260.         NewName) = 0 ;
  261. };
  262.  
  263. __interface IOTAEditor;
  264. typedef System::DelphiInterface<IOTAEditor> _di_IOTAEditor;
  265. __interface IOTAModule;
  266. typedef System::DelphiInterface<IOTAModule> _di_IOTAModule;
  267. __interface INTERFACE_UUID("{F17A7BD0-E07D-11D1-AB0B-00C04FB16FB3}") IOTAEditor  : public IUnknown 
  268. {
  269.     
  270. public:
  271.     virtual int __fastcall AddNotifier(const _di_IOTANotifier ANotifier) = 0 ;
  272.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  273.     virtual bool __fastcall GetModified(void) = 0 ;
  274.     virtual _di_IOTAModule __fastcall GetModule(void) = 0 ;
  275.     virtual bool __fastcall MarkModified(void) = 0 ;
  276.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  277.     virtual void __fastcall Show(void) = 0 ;
  278.     __property AnsiString FileName = {read=GetFileName};
  279.     __property bool Modified = {read=GetModified};
  280.     __property _di_IOTAModule Module = {read=GetModule};
  281. };
  282.  
  283. __interface IOTAEditReader;
  284. typedef System::DelphiInterface<IOTAEditReader> _di_IOTAEditReader;
  285. __interface INTERFACE_UUID("{26EB0E4F-F97B-11D1-AB27-00C04FB16FB3}") IOTAEditReader  : public IUnknown 
  286.     
  287. {
  288.     
  289. public:
  290.     virtual int __fastcall GetText(int Position, char * Buffer, int Count) = 0 ;
  291. };
  292.  
  293. __interface IOTAEditWriter;
  294. typedef System::DelphiInterface<IOTAEditWriter> _di_IOTAEditWriter;
  295. __interface INTERFACE_UUID("{26EB0E50-F97B-11D1-AB27-00C04FB16FB3}") IOTAEditWriter  : public IUnknown 
  296.     
  297. {
  298.     
  299. public:
  300.     virtual void __fastcall CopyTo(int Pos) = 0 ;
  301.     virtual void __fastcall DeleteTo(int Pos) = 0 ;
  302.     virtual void __fastcall Insert(char * Text) = 0 ;
  303.     virtual int __fastcall Position(void) = 0 ;
  304.     virtual TOTACharPos __fastcall GetCurrentPos(void) = 0 ;
  305.     __property TOTACharPos CurrentPos = {read=GetCurrentPos};
  306. };
  307.  
  308. #pragma option push -b-
  309. enum TOTASyntaxHighlighter { shNone, shQuery, shPascal, shC, shSQL, shIDL };
  310. #pragma option pop
  311.  
  312. #pragma option push -b-
  313. enum TOTABlockType { btInclusive, btLine, btColumn, btNonInclusive, btUnknown };
  314. #pragma option pop
  315.  
  316. __interface IOTAEditView40;
  317. typedef System::DelphiInterface<IOTAEditView40> _di_IOTAEditView40;
  318. __interface INTERFACE_UUID("{0E3B9D78-E119-11D1-AB0C-00C04FB16FB3}") IOTAEditView40  : public IUnknown 
  319.     
  320. {
  321.     
  322. public:
  323.     virtual TOTAEditPos __fastcall GetCursorPos(void) = 0 ;
  324.     virtual void __fastcall SetCursorPos(const TOTAEditPos &Value) = 0 ;
  325.     virtual TOTAEditPos __fastcall GetTopPos(void) = 0 ;
  326.     virtual void __fastcall SetTopPos(const TOTAEditPos &Value) = 0 ;
  327.     virtual tagSIZE __fastcall GetViewSize(void) = 0 ;
  328.     virtual TOTACharPos __fastcall PosToCharPos(int Pos) = 0 ;
  329.     virtual int __fastcall CharPosToPos(const TOTACharPos &CharPos) = 0 ;
  330.     virtual void __fastcall ConvertPos(bool EdPosToCharPos, TOTAEditPos &EditPos, TOTACharPos &CharPos)
  331.          = 0 ;
  332.     virtual void __fastcall GetAttributeAtPos(const TOTAEditPos &EdPos, bool IncludeMargin, int &Element
  333.         , int &LineFlag) = 0 ;
  334.     virtual bool __fastcall SameView(_di_IOTAEditView EditView) = 0 ;
  335.     __property TOTAEditPos CursorPos = {read=GetCursorPos, write=SetCursorPos};
  336.     __property TOTAEditPos TopPos = {read=GetTopPos, write=SetTopPos};
  337.     __property tagSIZE ViewSize = {read=GetViewSize};
  338. };
  339.  
  340. __interface IOTASearchOptions;
  341. typedef System::DelphiInterface<IOTASearchOptions> _di_IOTASearchOptions;
  342. __interface INTERFACE_UUID("{D1766F8B-D915-11D2-A8C1-00C04FA32F53}") IOTASearchOptions  : public IUnknown 
  343.     
  344. {
  345.     
  346. public:
  347.     virtual bool __fastcall GetCaseSensitive(void) = 0 ;
  348.     virtual TSearchDirection __fastcall GetDirection(void) = 0 ;
  349.     virtual bool __fastcall GetFromCursor(void) = 0 ;
  350.     virtual bool __fastcall GetRegularExpression(void) = 0 ;
  351.     virtual AnsiString __fastcall GetSearchText(void) = 0 ;
  352.     virtual bool __fastcall GetWholeFile(void) = 0 ;
  353.     virtual bool __fastcall GetWordBoundary(void) = 0 ;
  354.     virtual void __fastcall SetCaseSensitive(bool Value) = 0 ;
  355.     virtual void __fastcall SetDirection(TSearchDirection Value) = 0 ;
  356.     virtual void __fastcall SetFromCursor(bool Value) = 0 ;
  357.     virtual void __fastcall SetRegularExpression(bool Value) = 0 ;
  358.     virtual void __fastcall SetSearchText(const AnsiString Value) = 0 ;
  359.     virtual void __fastcall SetWholeFile(bool Value) = 0 ;
  360.     virtual void __fastcall SetWordBoundary(bool Value) = 0 ;
  361.     __property bool CaseSensitive = {read=GetCaseSensitive, write=SetCaseSensitive};
  362.     __property TSearchDirection Direction = {read=GetDirection, write=SetDirection};
  363.     __property bool FromCursor = {read=GetFromCursor, write=SetFromCursor};
  364.     __property bool RegularExpression = {read=GetRegularExpression, write=SetRegularExpression};
  365.     __property AnsiString SearchText = {read=GetSearchText, write=SetSearchText};
  366.     __property bool WholeFile = {read=GetWholeFile, write=SetWholeFile};
  367.     __property bool WordBoundary = {read=GetWordBoundary, write=SetWordBoundary};
  368. };
  369.  
  370. __interface IOTAReplaceOptions;
  371. typedef System::DelphiInterface<IOTAReplaceOptions> _di_IOTAReplaceOptions;
  372. __interface INTERFACE_UUID("{D1766F8C-D915-11D2-A8C1-00C04FA32F53}") IOTAReplaceOptions  : public IOTASearchOptions 
  373.     
  374. {
  375.     
  376. public:
  377.     virtual bool __fastcall GetPromptOnReplace(void) = 0 ;
  378.     virtual bool __fastcall GetReplaceAll(void) = 0 ;
  379.     virtual AnsiString __fastcall GetReplaceText(void) = 0 ;
  380.     virtual void __fastcall SetPromptOnReplace(bool Value) = 0 ;
  381.     virtual void __fastcall SetReplaceAll(bool Value) = 0 ;
  382.     virtual void __fastcall SetReplaceText(const AnsiString Value) = 0 ;
  383.     __property bool PromptOnReplace = {read=GetPromptOnReplace, write=SetPromptOnReplace};
  384.     __property bool ReplaceAll = {read=GetReplaceAll, write=SetReplaceAll};
  385.     __property AnsiString ReplaceText = {read=GetReplaceText, write=SetReplaceText};
  386. };
  387.  
  388. __interface IOTAEditPosition;
  389. typedef System::DelphiInterface<IOTAEditPosition> _di_IOTAEditPosition;
  390. __interface IOTAEditBlock;
  391. typedef System::DelphiInterface<IOTAEditBlock> _di_IOTAEditBlock;
  392. __interface INTERFACE_UUID("{9C510464-C7BC-11D2-9AEB-00A02457621F}") IOTAEditPosition  : public IUnknown 
  393.     
  394. {
  395.     
  396. public:
  397.     virtual void __fastcall Align(int Magnitude) = 0 ;
  398.     virtual bool __fastcall BackspaceDelete(int HowMany) = 0 ;
  399.     virtual bool __fastcall Delete(int HowMany) = 0 ;
  400.     virtual int __fastcall DistanceToTab(TSearchDirection Direction) = 0 ;
  401.     virtual char __fastcall GetCharacter(void) = 0 ;
  402.     virtual int __fastcall GetColumn(void) = 0 ;
  403.     virtual bool __fastcall GetIsSpecialCharacter(void) = 0 ;
  404.     virtual bool __fastcall GetIsWhitespace(void) = 0 ;
  405.     virtual bool __fastcall GetIsWordCharacter(void) = 0 ;
  406.     virtual int __fastcall GetLastRow(void) = 0 ;
  407.     virtual _di_IOTAReplaceOptions __fastcall GetReplaceOptions(void) = 0 ;
  408.     virtual int __fastcall GetRow(void) = 0 ;
  409.     virtual AnsiString __fastcall GetSearchErrorString(int ErrorCode) = 0 ;
  410.     virtual _di_IOTASearchOptions __fastcall GetSearchOptions(void) = 0 ;
  411.     virtual bool __fastcall GotoLine(int LineNumber) = 0 ;
  412.     virtual void __fastcall InsertBlock(const _di_IOTAEditBlock Block) = 0 ;
  413.     virtual void __fastcall InsertCharacter(char Character) = 0 ;
  414.     virtual void __fastcall InsertFile(const AnsiString FileName) = 0 ;
  415.     virtual void __fastcall InsertText(const AnsiString Text) = 0 ;
  416.     virtual bool __fastcall Move(int Row, int Col) = 0 ;
  417.     virtual bool __fastcall MoveBOL(void) = 0 ;
  418.     virtual bool __fastcall MoveCursor(Byte MoveMask) = 0 ;
  419.     virtual bool __fastcall MoveEOF(void) = 0 ;
  420.     virtual bool __fastcall MoveEOL(void) = 0 ;
  421.     virtual bool __fastcall MoveReal(int Row, int Col) = 0 ;
  422.     virtual bool __fastcall MoveRelative(int Row, int Col) = 0 ;
  423.     virtual void __fastcall Paste(void) = 0 ;
  424.     virtual AnsiString __fastcall Read(int NumberOfCharacters) = 0 ;
  425.     virtual bool __fastcall RepeatLastSearchOrReplace(void) = 0 ;
  426.     virtual int __fastcall Replace(const AnsiString Pattern, const AnsiString ReplaceText, bool CaseSensitive
  427.         , bool RegularExpression, bool WholeFile, TSearchDirection Direction, int &ErrorCode) = 0 /* overload */
  428.         ;
  429.     virtual int __fastcall Replace(void) = 0 /* overload */;
  430.     virtual int __fastcall ReplaceAgain(void) = 0 ;
  431.     virtual void __fastcall Restore(void) = 0 ;
  432.     virtual AnsiString __fastcall RipText(const Sysutils::TSysCharSet &ValidChars, int RipFlags) = 0 /* overload */
  433.         ;
  434.     virtual AnsiString __fastcall RipText(const AnsiString ValidChars, int RipFlags) = 0 /* overload */
  435.         ;
  436.     virtual void __fastcall Save(void) = 0 ;
  437.     virtual bool __fastcall Search(const AnsiString Pattern, bool CaseSensitive, bool RegularExpression
  438.         , bool WholeFile, TSearchDirection Direction, int &ErrorCode) = 0 /* overload */;
  439.     virtual bool __fastcall Search(void) = 0 /* overload */;
  440.     virtual bool __fastcall SearchAgain(void) = 0 ;
  441.     virtual void __fastcall Tab(int Magnitude) = 0 ;
  442.     __property char Character = {read=GetCharacter};
  443.     __property int Column = {read=GetColumn};
  444.     __property bool IsSpecialCharacter = {read=GetIsSpecialCharacter};
  445.     __property bool IsWhiteSpace = {read=GetIsWhitespace};
  446.     __property bool IsWordCharacter = {read=GetIsWordCharacter};
  447.     __property int LastRow = {read=GetLastRow};
  448.     __property _di_IOTAReplaceOptions ReplaceOptions = {read=GetReplaceOptions};
  449.     __property int Row = {read=GetRow};
  450.     __property _di_IOTASearchOptions SearchOptions = {read=GetSearchOptions};
  451. };
  452.  
  453. __interface INTERFACE_UUID("{9C510463-C7BC-11D2-9AEB-00A02457621F}") IOTAEditBlock  : public IUnknown 
  454.     
  455. {
  456.     
  457. public:
  458.     virtual void __fastcall BeginBlock(void) = 0 ;
  459.     virtual void __fastcall Copy(bool Append) = 0 ;
  460.     virtual void __fastcall Cut(bool Append) = 0 ;
  461.     virtual bool __fastcall Delete(void) = 0 ;
  462.     virtual void __fastcall EndBlock(void) = 0 ;
  463.     virtual bool __fastcall Extend(int NewRow, int NewCol) = 0 ;
  464.     virtual bool __fastcall ExtendPageUp(void) = 0 ;
  465.     virtual bool __fastcall ExtendPageDown(void) = 0 ;
  466.     virtual bool __fastcall ExtendReal(int NewRow, int NewCol) = 0 ;
  467.     virtual bool __fastcall ExtendRelative(int DeltaRow, int DeltaCol) = 0 ;
  468.     virtual int __fastcall GetEndingColumn(void) = 0 ;
  469.     virtual int __fastcall GetEndingRow(void) = 0 ;
  470.     virtual bool __fastcall GetIsValid(void) = 0 ;
  471.     virtual int __fastcall GetSize(void) = 0 ;
  472.     virtual int __fastcall GetStartingColumn(void) = 0 ;
  473.     virtual int __fastcall GetStartingRow(void) = 0 ;
  474.     virtual TOTABlockType __fastcall GetStyle(void) = 0 ;
  475.     virtual AnsiString __fastcall GetText(void) = 0 ;
  476.     virtual bool __fastcall GetVisible(void) = 0 ;
  477.     virtual void __fastcall Indent(int Magnitude) = 0 ;
  478.     virtual void __fastcall LowerCase(void) = 0 ;
  479.     virtual bool __fastcall Print(void) = 0 ;
  480.     virtual void __fastcall Reset(void) = 0 ;
  481.     virtual void __fastcall Restore(void) = 0 ;
  482.     virtual void __fastcall Save(void) = 0 ;
  483.     virtual bool __fastcall SaveToFile(const AnsiString FileName) = 0 ;
  484.     virtual void __fastcall SetStyle(TOTABlockType Value) = 0 ;
  485.     virtual void __fastcall SetVisible(bool Value) = 0 ;
  486.     virtual void __fastcall ToggleCase(void) = 0 ;
  487.     virtual void __fastcall UpperCase(void) = 0 ;
  488.     __property int EndingColumn = {read=GetEndingColumn};
  489.     __property int EndingRow = {read=GetEndingRow};
  490.     __property bool IsValid = {read=GetIsValid};
  491.     __property int Size = {read=GetSize};
  492.     __property int StartingColumn = {read=GetStartingColumn};
  493.     __property int StartingRow = {read=GetStartingRow};
  494.     __property TOTABlockType Style = {read=GetStyle, write=SetStyle};
  495.     __property AnsiString Text = {read=GetText};
  496.     __property bool Visible = {read=GetVisible, write=SetVisible};
  497. };
  498.  
  499. __interface INTAEditWindow;
  500. typedef System::DelphiInterface<INTAEditWindow> _di_INTAEditWindow;
  501. __interface INTERFACE_UUID("{8CC6430B-E721-11D2-A8CC-00C04FA32F53}") INTAEditWindow  : public IUnknown 
  502.     
  503. {
  504.     
  505. public:
  506.     virtual Forms::TCustomForm* __fastcall GetForm(void) = 0 ;
  507.     virtual Comctrls::TStatusBar* __fastcall GetStatusBar(void) = 0 ;
  508.     __property Forms::TCustomForm* Form = {read=GetForm};
  509.     __property Comctrls::TStatusBar* StatusBar = {read=GetStatusBar};
  510. };
  511.  
  512. __interface IOTAEditBuffer;
  513. typedef System::DelphiInterface<IOTAEditBuffer> _di_IOTAEditBuffer;
  514. __interface INTERFACE_UUID("{9C510462-C7BC-11D2-9AEB-00A02457621F}") IOTAEditView  : public IOTAEditView40 
  515.     
  516. {
  517.     
  518. public:
  519.     virtual bool __fastcall BookmarkGoto(int BookmarkID) = 0 ;
  520.     virtual bool __fastcall BookmarkRecord(int BookmarkID) = 0 ;
  521.     virtual bool __fastcall BookmarkToggle(int BookmarkID) = 0 ;
  522.     virtual void __fastcall Center(int Row, int Col) = 0 ;
  523.     virtual _di_IOTAEditBlock __fastcall GetBlock(void) = 0 ;
  524.     virtual TOTACharPos __fastcall GetBookmarkPos(int BookmarkID) = 0 ;
  525.     virtual int __fastcall GetBottomRow(void) = 0 ;
  526.     virtual _di_IOTAEditBuffer __fastcall GetBuffer(void) = 0 ;
  527.     virtual _di_INTAEditWindow __fastcall GetEditWindow(void) = 0 ;
  528.     virtual int __fastcall GetLastEditColumn(void) = 0 ;
  529.     virtual int __fastcall GetLastEditRow(void) = 0 ;
  530.     virtual int __fastcall GetLeftColumn(void) = 0 ;
  531.     virtual _di_IOTAEditPosition __fastcall GetPosition(void) = 0 ;
  532.     virtual int __fastcall GetRightColumn(void) = 0 ;
  533.     virtual int __fastcall GetTopRow(void) = 0 ;
  534.     virtual void __fastcall MoveCursorToView(void) = 0 ;
  535.     virtual void __fastcall MoveViewToCursor(void) = 0 ;
  536.     virtual void __fastcall PageDown(void) = 0 ;
  537.     virtual void __fastcall PageUp(void) = 0 ;
  538.     virtual void __fastcall Paint(void) = 0 ;
  539.     virtual int __fastcall Scroll(int DeltaRow, int DeltaCol) = 0 ;
  540.     virtual void __fastcall SetTopLeft(int TopRow, int LeftCol) = 0 ;
  541.     virtual void __fastcall SetTempMsg(const AnsiString Msg) = 0 ;
  542.     __property _di_IOTAEditBlock Block = {read=GetBlock};
  543.     __property int BottomRow = {read=GetBottomRow};
  544.     __property TOTACharPos BookmarkPos[int BookMarkID] = {read=GetBookmarkPos};
  545.     __property _di_IOTAEditBuffer Buffer = {read=GetBuffer};
  546.     __property int LastEditColumn = {read=GetLastEditColumn};
  547.     __property int LastEditRow = {read=GetLastEditRow};
  548.     __property int LeftColumn = {read=GetLeftColumn};
  549.     __property _di_IOTAEditPosition Position = {read=GetPosition};
  550.     __property int RightColumn = {read=GetRightColumn};
  551.     __property int TopRow = {read=GetTopRow};
  552. };
  553.  
  554. typedef Byte TClassNavigateStyle;
  555.  
  556. typedef Byte TCodeCompleteStyle;
  557.  
  558. __interface IOTAEditActions;
  559. typedef System::DelphiInterface<IOTAEditActions> _di_IOTAEditActions;
  560. __interface INTERFACE_UUID("{ECB23623-E2D8-11D2-ABE5-00C04FB16FB3}") IOTAEditActions  : public IUnknown 
  561.     
  562. {
  563.     
  564. public:
  565.     virtual void __fastcall AddWatch(void) = 0 ;
  566.     virtual void __fastcall AddWatchAtCursor(void) = 0 ;
  567.     virtual void __fastcall BrowseSymbolAtCursor(void) = 0 ;
  568.     virtual void __fastcall ClassComplete(void) = 0 ;
  569.     virtual void __fastcall ClassNavigate(Byte Reserved) = 0 ;
  570.     virtual void __fastcall ClosePage(void) = 0 ;
  571.     virtual void __fastcall CodeTemplate(void) = 0 ;
  572.     virtual void __fastcall CodeCompletion(Byte Style) = 0 ;
  573.     virtual void __fastcall EvaluateModify(void) = 0 ;
  574.     virtual void __fastcall HelpKeyword(void) = 0 ;
  575.     virtual void __fastcall IncrementalSearch(void) = 0 ;
  576.     virtual void __fastcall InsertCompilerOptions(void) = 0 ;
  577.     virtual void __fastcall InsertNewGUID(void) = 0 ;
  578.     virtual void __fastcall InspectAtCursor(void) = 0 ;
  579.     virtual void __fastcall CompileProject(void) = 0 ;
  580.     virtual void __fastcall NextError(void) = 0 ;
  581.     virtual void __fastcall NextPage(void) = 0 ;
  582.     virtual void __fastcall OpenFile(void) = 0 ;
  583.     virtual void __fastcall OpenFileAtCursor(void) = 0 ;
  584.     virtual void __fastcall PriorError(void) = 0 ;
  585.     virtual void __fastcall PriorPage(void) = 0 ;
  586.     virtual void __fastcall ProgramReset(void) = 0 ;
  587.     virtual void __fastcall RunProgram(void) = 0 ;
  588.     virtual void __fastcall RunToCursor(void) = 0 ;
  589.     virtual void __fastcall SaveAll(void) = 0 ;
  590.     virtual void __fastcall Save(void) = 0 ;
  591.     virtual void __fastcall SaveAs(void) = 0 ;
  592.     virtual void __fastcall StepOver(void) = 0 ;
  593.     virtual void __fastcall SwapSourceFormView(void) = 0 ;
  594.     virtual void __fastcall SwapCPPHeader(void) = 0 ;
  595.     virtual void __fastcall ToggleFormUnit(void) = 0 ;
  596.     virtual void __fastcall TraceInto(void) = 0 ;
  597.     virtual void __fastcall TraceToSource(void) = 0 ;
  598.     virtual void __fastcall ViewExplorer(void) = 0 ;
  599.     virtual void __fastcall ViewForms(void) = 0 ;
  600.     virtual void __fastcall ViewObjectInspector(void) = 0 ;
  601.     virtual void __fastcall ViewUnits(void) = 0 ;
  602.     virtual void __fastcall WindowList(void) = 0 ;
  603.     virtual void __fastcall ZoomWindow(void) = 0 ;
  604. };
  605.  
  606. __interface IOTASourceEditor;
  607. typedef System::DelphiInterface<IOTASourceEditor> _di_IOTASourceEditor;
  608. __interface INTERFACE_UUID("{F17A7BD1-E07D-11D1-AB0B-00C04FB16FB3}") IOTASourceEditor  : public IOTAEditor 
  609.     
  610. {
  611.     
  612. public:
  613.     virtual _di_IOTAEditReader __fastcall CreateReader(void) = 0 ;
  614.     virtual _di_IOTAEditWriter __fastcall CreateWriter(void) = 0 ;
  615.     virtual _di_IOTAEditWriter __fastcall CreateUndoableWriter(void) = 0 ;
  616.     virtual int __fastcall GetEditViewCount(void) = 0 ;
  617.     virtual _di_IOTAEditView __fastcall GetEditView(int Index) = 0 ;
  618.     virtual int __fastcall GetLinesInBuffer(void) = 0 ;
  619.     virtual TOTASyntaxHighlighter __fastcall SetSyntaxHighlighter(TOTASyntaxHighlighter SyntaxHighlighter
  620.         ) = 0 ;
  621.     virtual TOTACharPos __fastcall GetBlockAfter(void) = 0 ;
  622.     virtual TOTACharPos __fastcall GetBlockStart(void) = 0 ;
  623.     virtual TOTABlockType __fastcall GetBlockType(void) = 0 ;
  624.     virtual bool __fastcall GetBlockVisible(void) = 0 ;
  625.     virtual void __fastcall SetBlockAfter(const TOTACharPos &Value) = 0 ;
  626.     virtual void __fastcall SetBlockStart(const TOTACharPos &Value) = 0 ;
  627.     virtual void __fastcall SetBlockType(TOTABlockType Value) = 0 ;
  628.     virtual void __fastcall SetBlockVisible(bool Value) = 0 ;
  629.     __property TOTACharPos BlockStart = {read=GetBlockStart, write=SetBlockStart};
  630.     __property TOTACharPos BlockAfter = {read=GetBlockAfter, write=SetBlockAfter};
  631.     __property TOTABlockType BlockType = {read=GetBlockType, write=SetBlockType};
  632.     __property bool BlockVisible = {read=GetBlockVisible, write=SetBlockVisible};
  633.     __property int EditViewCount = {read=GetEditViewCount};
  634.     __property _di_IOTAEditView EditViews[int Index] = {read=GetEditView};
  635. };
  636.  
  637. #pragma option push -b-
  638. enum TOTAResHeaderValue { hvFlags, hvLanguage, hvDataVersion, hvVersion, hvCharacteristics };
  639. #pragma option pop
  640.  
  641. __interface IOTAResourceEntry;
  642. typedef System::DelphiInterface<IOTAResourceEntry> _di_IOTAResourceEntry;
  643. __interface INTERFACE_UUID("{26EB0E51-F97B-11D1-AB27-00C04FB16FB3}") IOTAResourceEntry  : public IUnknown 
  644.     
  645. {
  646.     
  647. public:
  648.     virtual char * __fastcall GetResourceType(void) = 0 ;
  649.     virtual char * __fastcall GetResourceName(void) = 0 ;
  650.     virtual bool __fastcall Change(char * NewType, char * NewName) = 0 ;
  651.     virtual bool __fastcall GetHeaderValue(TOTAResHeaderValue HeaderValue, int &Value) = 0 ;
  652.     virtual bool __fastcall SetHeaderValue(TOTAResHeaderValue HeaderValue, int Value) = 0 ;
  653.     virtual void * __fastcall GetData(void) = 0 ;
  654.     virtual int __fastcall GetDataSize(void) = 0 ;
  655.     virtual void __fastcall SetDataSize(int NewSize) = 0 ;
  656.     virtual void * __fastcall GetEntryHandle(void) = 0 ;
  657.     __property int DataSize = {read=GetDataSize, write=SetDataSize};
  658. };
  659.  
  660. __interface IOTAProjectResource;
  661. typedef System::DelphiInterface<IOTAProjectResource> _di_IOTAProjectResource;
  662. __interface INTERFACE_UUID("{26EB0E52-F97B-11D1-AB27-00C04FB16FB3}") IOTAProjectResource  : public IOTAEditor 
  663.     
  664. {
  665.     
  666. public:
  667.     virtual int __fastcall GetEntryCount(void) = 0 ;
  668.     virtual _di_IOTAResourceEntry __fastcall GetEntry(int Index) = 0 ;
  669.     virtual _di_IOTAResourceEntry __fastcall GetEntryFromHandle(void * EntryHandle) = 0 ;
  670.     virtual _di_IOTAResourceEntry __fastcall FindEntry(char * ResType, char * Name) = 0 ;
  671.     virtual void __fastcall DeleteEntry(void * EntryHandle) = 0 ;
  672.     virtual _di_IOTAResourceEntry __fastcall CreateEntry(char * ResType, char * Name, Word Flags, Word 
  673.         LanguageId, int DataVersion, int Version, int Characteristics) = 0 ;
  674. };
  675.  
  676. __interface IOTAComponent;
  677. typedef System::DelphiInterface<IOTAComponent> _di_IOTAComponent;
  678. typedef void __fastcall (__closure *TOTAGetChildCallback)(void * Param, _di_IOTAComponent Component, 
  679.     bool &Result);
  680.  
  681. __interface INTAComponent;
  682. typedef System::DelphiInterface<INTAComponent> _di_INTAComponent;
  683. __interface INTERFACE_UUID("{34B2E2D1-E36F-11D1-AB0E-00C04FB16FB3}") INTAComponent  : public IUnknown 
  684.     
  685. {
  686.     
  687. public:
  688.     virtual Classes::TPersistent* __fastcall GetPersistent(void) = 0 ;
  689.     virtual Classes::TComponent* __fastcall GetComponent(void) = 0 ;
  690. };
  691.  
  692. __interface INTERFACE_UUID("{34B2E2D0-E36F-11D1-AB0E-00C04FB16FB3}") IOTAComponent  : public IUnknown 
  693.     
  694. {
  695.     
  696. public:
  697.     virtual AnsiString __fastcall GetComponentType(void) = 0 ;
  698.     virtual void * __fastcall GetComponentHandle(void) = 0 ;
  699.     virtual _di_IOTAComponent __fastcall GetParent(void) = 0 ;
  700.     virtual bool __fastcall IsTControl(void) = 0 ;
  701.     virtual int __fastcall GetPropCount(void) = 0 ;
  702.     virtual AnsiString __fastcall GetPropName(int Index) = 0 ;
  703.     virtual Typinfo::TTypeKind __fastcall GetPropType(int Index) = 0 ;
  704.     virtual Typinfo::TTypeKind __fastcall GetPropTypeByName(const AnsiString Name) = 0 ;
  705.     virtual bool __fastcall GetPropValue(int Index, void *Value) = 0 ;
  706.     virtual bool __fastcall GetPropValueByName(const AnsiString Name, void *Value) = 0 ;
  707.     virtual bool __fastcall SetProp(int Index, const void *Value) = 0 ;
  708.     virtual bool __fastcall SetPropByName(const AnsiString Name, const void *Value) = 0 ;
  709.     virtual bool __fastcall GetChildren(void * Param, TOTAGetChildCallback Proc) = 0 ;
  710.     virtual int __fastcall GetControlCount(void) = 0 ;
  711.     virtual _di_IOTAComponent __fastcall GetControl(int Index) = 0 ;
  712.     virtual int __fastcall GetComponentCount(void) = 0 ;
  713.     virtual _di_IOTAComponent __fastcall GetComponent(int Index) = 0 ;
  714.     virtual bool __fastcall Select(bool AddToSelection) = 0 ;
  715.     virtual bool __fastcall Focus(bool AddToSelection) = 0 ;
  716.     virtual bool __fastcall Delete(void) = 0 ;
  717.     virtual Dsgnintf::_di_IPersistent __fastcall GetIPersistent(void) = 0 ;
  718.     virtual Dsgnintf::_di_IComponent __fastcall GetIComponent(void) = 0 ;
  719. };
  720.  
  721. __interface INTAFormEditor;
  722. typedef System::DelphiInterface<INTAFormEditor> _di_INTAFormEditor;
  723. __interface INTERFACE_UUID("{34B2E2CF-E36F-11D1-AB0E-00C04FB16FB3}") INTAFormEditor  : public IUnknown 
  724.     
  725. {
  726.     
  727. public:
  728.     virtual Dsgnintf::_di_IFormDesigner __fastcall GetFormDesigner(void) = 0 ;
  729.     virtual void __fastcall GetFormResource(Classes::TStream* Stream) = 0 ;
  730.     __property Dsgnintf::_di_IFormDesigner FormDesigner = {read=GetFormDesigner};
  731. };
  732.  
  733. __interface IOTAFormEditor;
  734. typedef System::DelphiInterface<IOTAFormEditor> _di_IOTAFormEditor;
  735. __interface INTERFACE_UUID("{F17A7BD2-E07D-11D1-AB0B-00C04FB16FB3}") IOTAFormEditor  : public IOTAEditor 
  736.     
  737. {
  738.     
  739. public:
  740.     virtual _di_IOTAComponent __fastcall GetRootComponent(void) = 0 ;
  741.     virtual _di_IOTAComponent __fastcall FindComponent(const AnsiString Name) = 0 ;
  742.     virtual _di_IOTAComponent __fastcall GetComponentFromHandle(void * ComponentHandle) = 0 ;
  743.     virtual int __fastcall GetSelCount(void) = 0 ;
  744.     virtual _di_IOTAComponent __fastcall GetSelComponent(int Index) = 0 ;
  745.     virtual _di_IOTAComponent __fastcall GetCreateParent(void) = 0 ;
  746.     virtual _di_IOTAComponent __fastcall CreateComponent(const _di_IOTAComponent Container, const AnsiString 
  747.         TypeName, int X, int Y, int W, int H) = 0 ;
  748.     virtual void __fastcall GetFormResource(const _di_IStream Stream) = 0 ;
  749. };
  750.  
  751. __interface IOTATypeLibEditor;
  752. typedef System::DelphiInterface<IOTATypeLibEditor> _di_IOTATypeLibEditor;
  753. __interface INTERFACE_UUID("{F17A7BD3-E07D-11D1-AB0B-00C04FB16FB3}") IOTATypeLibEditor  : public IOTAEditor 
  754.     
  755. {
  756.     
  757. };
  758.  
  759. __interface IOTAModuleNotifier;
  760. typedef System::DelphiInterface<IOTAModuleNotifier> _di_IOTAModuleNotifier;
  761. __interface INTERFACE_UUID("{F17A7BCE-E07D-11D1-AB0B-00C04FB16FB3}") IOTAModuleNotifier  : public IOTANotifier 
  762.     
  763. {
  764.     
  765. public:
  766.     virtual bool __fastcall CheckOverwrite(void) = 0 ;
  767.     virtual void __fastcall ModuleRenamed(const AnsiString NewName) = 0 ;
  768. };
  769.  
  770. __interface IOTAModuleInfo;
  771. typedef System::DelphiInterface<IOTAModuleInfo> _di_IOTAModuleInfo;
  772. __interface INTERFACE_UUID("{F17A7BD6-E07D-11D1-AB0B-00C04FB16FB3}") IOTAModuleInfo  : public IUnknown 
  773.     
  774. {
  775.     
  776. public:
  777.     virtual TOTAModuleType __fastcall GetModuleType(void) = 0 ;
  778.     virtual AnsiString __fastcall GetName(void) = 0 ;
  779.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  780.     virtual AnsiString __fastcall GetFormName(void) = 0 ;
  781.     virtual AnsiString __fastcall GetDesignClass(void) = 0 ;
  782.     virtual void __fastcall GetCoClasses(Classes::TStrings* CoClasses) = 0 ;
  783.     virtual _di_IOTAModule __fastcall OpenModule(void) = 0 ;
  784.     __property TOTAModuleType ModuleType = {read=GetModuleType};
  785.     __property AnsiString Name = {read=GetName};
  786.     __property AnsiString FileName = {read=GetFileName};
  787.     __property AnsiString FormName = {read=GetFormName};
  788.     __property AnsiString DesignClass = {read=GetDesignClass};
  789. };
  790.  
  791. __interface IOTAModule40;
  792. typedef System::DelphiInterface<IOTAModule40> _di_IOTAModule40;
  793. __interface IOTAProject;
  794. typedef System::DelphiInterface<IOTAProject> _di_IOTAProject;
  795. __interface INTERFACE_UUID("{F17A7BCC-E07D-11D1-AB0B-00C04FB16FB3}") IOTAModule40  : public IUnknown 
  796.     
  797. {
  798.     
  799. public:
  800.     virtual int __fastcall AddNotifier(const _di_IOTAModuleNotifier ANotifier) = 0 ;
  801.     virtual void __fastcall AddToInterface(void) = 0 ;
  802.     virtual bool __fastcall Close(void) = 0 ;
  803.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  804.     virtual AnsiString __fastcall GetFileSystem(void) = 0 ;
  805.     virtual int __fastcall GetModuleFileCount(void) = 0 ;
  806.     virtual _di_IOTAEditor __fastcall GetModuleFileEditor(int Index) = 0 ;
  807.     virtual int __fastcall GetOwnerCount(void) = 0 ;
  808.     virtual _di_IOTAProject __fastcall GetOwner(int Index) = 0 ;
  809.     virtual bool __fastcall HasCoClasses(void) = 0 ;
  810.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  811.     virtual bool __fastcall Save(bool ChangeName, bool ForceSave) = 0 ;
  812.     virtual void __fastcall SetFileName(const AnsiString AFileName) = 0 ;
  813.     virtual void __fastcall SetFileSystem(const AnsiString AFileSystem) = 0 ;
  814.     __property int OwnerCount = {read=GetOwnerCount};
  815.     __property _di_IOTAProject Owners[int Index] = {read=GetOwner};
  816.     __property AnsiString FileName = {read=GetFileName, write=SetFileName};
  817.     __property AnsiString FileSystem = {read=GetFileSystem, write=SetFileSystem};
  818. };
  819.  
  820. __interface INTERFACE_UUID("{15D3FB81-EF27-488E-B2B4-26B59CA89D9D}") IOTAModule  : public IOTAModule40 
  821.     
  822. {
  823.     
  824. public:
  825.     virtual bool __fastcall CloseModule(bool ForceClosed) = 0 ;
  826. };
  827.  
  828. __interface IOTATypeLibModule;
  829. typedef System::DelphiInterface<IOTATypeLibModule> _di_IOTATypeLibModule;
  830. __interface INTERFACE_UUID("{0BBAEEA0-EF74-11D1-AB1C-00C04FB16FB3}") IOTATypeLibModule  : public IOTAModule 
  831.     
  832. {
  833.     
  834. };
  835.  
  836. __interface IOTAOptions;
  837. typedef System::DelphiInterface<IOTAOptions> _di_IOTAOptions;
  838. __interface INTERFACE_UUID("{9C0E91FC-FA5A-11D1-AB28-00C04FB16FB3}") IOTAOptions  : public IUnknown 
  839.     
  840. {
  841.     
  842. public:
  843.     virtual void __fastcall EditOptions(void) = 0 ;
  844.     virtual Variant __fastcall GetOptionValue(const AnsiString ValueName) = 0 ;
  845.     virtual void __fastcall SetOptionValue(const AnsiString ValueName, const Variant &Value) = 0 ;
  846.     virtual TOTAOptionNameArray __fastcall GetOptionNames(void) = 0 ;
  847.     __property Variant Values[AnsiString ValueName] = {read=GetOptionValue, write=SetOptionValue};
  848. };
  849.  
  850. __interface IOTAProjectOptions40;
  851. typedef System::DelphiInterface<IOTAProjectOptions40> _di_IOTAProjectOptions40;
  852. __interface INTERFACE_UUID("{F17A7BD4-E07D-11D1-AB0B-00C04FB16FB3}") IOTAProjectOptions40  : public IOTAOptions 
  853.     
  854. {
  855.     
  856. };
  857.  
  858. __interface IOTAProjectOptions;
  859. typedef System::DelphiInterface<IOTAProjectOptions> _di_IOTAProjectOptions;
  860. __interface INTERFACE_UUID("{F899EBC6-E6E2-11D2-AA90-00C04FA370E9}") IOTAProjectOptions  : public IOTAProjectOptions40 
  861.     
  862. {
  863.     
  864. public:
  865.     virtual void __fastcall SetModifiedState(bool State) = 0 ;
  866.     virtual bool __fastcall GetModifiedState(void) = 0 ;
  867.     __property bool ModifiedState = {read=GetModifiedState, write=SetModifiedState};
  868. };
  869.  
  870. __interface IOTAProjectBuilder40;
  871. typedef System::DelphiInterface<IOTAProjectBuilder40> _di_IOTAProjectBuilder40;
  872. __interface INTERFACE_UUID("{F17A7BD5-E07D-11D1-AB0B-00C04FB16FB3}") IOTAProjectBuilder40  : public IUnknown 
  873.     
  874. {
  875.     
  876. public:
  877.     virtual bool __fastcall GetShouldBuild(void) = 0 ;
  878.     virtual bool __fastcall BuildProject(TOTACompileMode CompileMode, bool Wait) = 0 ;
  879.     __property bool ShouldBuild = {read=GetShouldBuild};
  880. };
  881.  
  882. __interface IOTAProjectBuilder;
  883. typedef System::DelphiInterface<IOTAProjectBuilder> _di_IOTAProjectBuilder;
  884. __interface INTERFACE_UUID("{08A5B1F5-FCDA-11D2-AC82-00C04FB173DC}") IOTAProjectBuilder  : public IOTAProjectBuilder40 
  885.     
  886. {
  887.     
  888. public:
  889.     HIDESBASE virtual bool __fastcall BuildProject(TOTACompileMode CompileMode, bool Wait, bool ClearMessages
  890.         ) = 0 /* overload */;
  891. };
  892.  
  893. __interface IOTAProject40;
  894. typedef System::DelphiInterface<IOTAProject40> _di_IOTAProject40;
  895. __interface INTERFACE_UUID("{F17A7BCA-E07D-11D1-AB0B-00C04FB16FB3}") IOTAProject40  : public IOTAModule 
  896.     
  897. {
  898.     
  899. public:
  900.     virtual int __fastcall GetModuleCount(void) = 0 ;
  901.     virtual _di_IOTAModuleInfo __fastcall GetModule(int Index) = 0 ;
  902.     virtual _di_IOTAProjectOptions __fastcall GetProjectOptions(void) = 0 ;
  903.     virtual _di_IOTAProjectBuilder __fastcall GetProjectBuilder(void) = 0 ;
  904.     __property _di_IOTAProjectOptions ProjectOptions = {read=GetProjectOptions};
  905.     __property _di_IOTAProjectBuilder ProjectBuilder = {read=GetProjectBuilder};
  906. };
  907.  
  908. __interface INTERFACE_UUID("{06C88136-F367-4D47-B8B4-CCACB3D7439A}") IOTAProject  : public IOTAProject40 
  909.     
  910. {
  911.     
  912. public:
  913.     virtual void __fastcall AddFile(const AnsiString AFileName, bool IsUnitOrForm) = 0 ;
  914.     virtual void __fastcall RemoveFile(const AnsiString AFileName) = 0 ;
  915. };
  916.  
  917. __interface IOTAProjectGroup;
  918. typedef System::DelphiInterface<IOTAProjectGroup> _di_IOTAProjectGroup;
  919. __interface INTERFACE_UUID("{F17A7BCB-E07D-11D1-AB0B-00C04FB16FB3}") IOTAProjectGroup  : public IOTAModule 
  920.     
  921. {
  922.     
  923. public:
  924.     virtual void __fastcall AddNewProject(void) = 0 ;
  925.     virtual void __fastcall AddExistingProject(void) = 0 ;
  926.     virtual _di_IOTAProject __fastcall GetActiveProject(void) = 0 ;
  927.     virtual int __fastcall GetProjectCount(void) = 0 ;
  928.     virtual _di_IOTAProject __fastcall GetProject(int Index) = 0 ;
  929.     virtual void __fastcall RemoveProject(const _di_IOTAProject AProject) = 0 ;
  930.     virtual void __fastcall SetActiveProject(const _di_IOTAProject AProject) = 0 ;
  931.     __property _di_IOTAProject ActiveProject = {read=GetActiveProject, write=SetActiveProject};
  932.     __property int ProjectCount = {read=GetProjectCount};
  933.     __property _di_IOTAProject Projects[int Index] = {read=GetProject};
  934. };
  935.  
  936. __interface IOTAActionServices;
  937. typedef System::DelphiInterface<IOTAActionServices> _di_IOTAActionServices;
  938. __interface INTERFACE_UUID("{F17A7BC9-E07D-11D1-AB0B-00C04FB16FB3}") IOTAActionServices  : public IUnknown 
  939.     
  940. {
  941.     
  942. public:
  943.     virtual bool __fastcall CloseFile(const AnsiString FileName) = 0 ;
  944.     virtual bool __fastcall OpenFile(const AnsiString FileName) = 0 ;
  945.     virtual bool __fastcall OpenProject(const AnsiString ProjName, bool NewProjGroup) = 0 ;
  946.     virtual bool __fastcall ReloadFile(const AnsiString FileName) = 0 ;
  947.     virtual bool __fastcall SaveFile(const AnsiString FileName) = 0 ;
  948. };
  949.  
  950. __interface IOTAFileSystem;
  951. typedef System::DelphiInterface<IOTAFileSystem> _di_IOTAFileSystem;
  952. __interface INTERFACE_UUID("{A9D1389D-F4B0-11D1-AB22-00C04FB16FB3}") IOTAFileSystem  : public IUnknown 
  953.     
  954. {
  955.     
  956. public:
  957.     virtual _di_IStream __fastcall GetFileStream(const AnsiString FileName, int Mode) = 0 ;
  958.     virtual int __fastcall FileAge(const AnsiString FileName) = 0 ;
  959.     virtual bool __fastcall RenameFile(const AnsiString OldName, const AnsiString NewName) = 0 ;
  960.     virtual bool __fastcall IsReadonly(const AnsiString FileName) = 0 ;
  961.     virtual bool __fastcall IsFileBased(void) = 0 ;
  962.     virtual bool __fastcall DeleteFile(const AnsiString FileName) = 0 ;
  963.     virtual bool __fastcall FileExists(const AnsiString FileName) = 0 ;
  964.     virtual AnsiString __fastcall GetTempFileName(const AnsiString FileName) = 0 ;
  965.     virtual AnsiString __fastcall GetBackupFileName(const AnsiString FileName) = 0 ;
  966.     virtual AnsiString __fastcall GetIDString(void) = 0 ;
  967. };
  968.  
  969. __interface IOTAFile;
  970. typedef System::DelphiInterface<IOTAFile> _di_IOTAFile;
  971. __interface INTERFACE_UUID("{6E2AD9B0-F7F0-11D1-AB26-00C04FB16FB3}") IOTAFile  : public IUnknown 
  972. {
  973.     
  974. public:
  975.     virtual AnsiString __fastcall GetSource(void) = 0 ;
  976.     virtual System::TDateTime __fastcall GetAge(void) = 0 ;
  977.     __property AnsiString Source = {read=GetSource};
  978.     __property System::TDateTime Age = {read=GetAge};
  979. };
  980.  
  981. __interface IOTACreator;
  982. typedef System::DelphiInterface<IOTACreator> _di_IOTACreator;
  983. __interface INTERFACE_UUID("{6EDB9B9E-F57A-11D1-AB23-00C04FB16FB3}") IOTACreator  : public IUnknown 
  984.     
  985. {
  986.     
  987. public:
  988.     virtual AnsiString __fastcall GetCreatorType(void) = 0 ;
  989.     virtual bool __fastcall GetExisting(void) = 0 ;
  990.     virtual AnsiString __fastcall GetFileSystem(void) = 0 ;
  991.     virtual _di_IOTAModule __fastcall GetOwner(void) = 0 ;
  992.     virtual bool __fastcall GetUnnamed(void) = 0 ;
  993.     __property AnsiString CreatorType = {read=GetCreatorType};
  994.     __property bool Existing = {read=GetExisting};
  995.     __property AnsiString FileSystem = {read=GetFileSystem};
  996.     __property _di_IOTAModule Owner = {read=GetOwner};
  997.     __property bool Unnamed = {read=GetUnnamed};
  998. };
  999.  
  1000. __interface IOTAModuleCreator;
  1001. typedef System::DelphiInterface<IOTAModuleCreator> _di_IOTAModuleCreator;
  1002. __interface INTERFACE_UUID("{6EDB9B9A-F57A-11D1-AB23-00C04FB16FB3}") IOTAModuleCreator  : public IOTACreator 
  1003.     
  1004. {
  1005.     
  1006. public:
  1007.     virtual AnsiString __fastcall GetAncestorName(void) = 0 ;
  1008.     virtual AnsiString __fastcall GetImplFileName(void) = 0 ;
  1009.     virtual AnsiString __fastcall GetIntfFileName(void) = 0 ;
  1010.     virtual AnsiString __fastcall GetFormName(void) = 0 ;
  1011.     virtual bool __fastcall GetMainForm(void) = 0 ;
  1012.     virtual bool __fastcall GetShowForm(void) = 0 ;
  1013.     virtual bool __fastcall GetShowSource(void) = 0 ;
  1014.     virtual _di_IOTAFile __fastcall NewFormFile(const AnsiString FormIdent, const AnsiString AncestorIdent
  1015.         ) = 0 ;
  1016.     virtual _di_IOTAFile __fastcall NewImplSource(const AnsiString ModuleIdent, const AnsiString FormIdent
  1017.         , const AnsiString AncestorIdent) = 0 ;
  1018.     virtual _di_IOTAFile __fastcall NewIntfSource(const AnsiString ModuleIdent, const AnsiString FormIdent
  1019.         , const AnsiString AncestorIdent) = 0 ;
  1020.     virtual void __fastcall FormCreated(const _di_IOTAFormEditor FormEditor) = 0 ;
  1021.     __property AnsiString AncestorName = {read=GetAncestorName};
  1022.     __property AnsiString FormName = {read=GetFormName};
  1023.     __property AnsiString ImplFileName = {read=GetImplFileName};
  1024.     __property AnsiString IntfFileName = {read=GetIntfFileName};
  1025.     __property bool MainForm = {read=GetMainForm};
  1026.     __property bool ShowForm = {read=GetShowForm};
  1027.     __property bool ShowSource = {read=GetShowSource};
  1028. };
  1029.  
  1030. __interface IOTAProjectCreator;
  1031. typedef System::DelphiInterface<IOTAProjectCreator> _di_IOTAProjectCreator;
  1032. __interface INTERFACE_UUID("{6EDB9B9D-F57A-11D1-AB23-00C04FB16FB3}") IOTAProjectCreator  : public IOTACreator 
  1033.     
  1034. {
  1035.     
  1036. public:
  1037.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1038.     virtual AnsiString __fastcall GetOptionFileName(void) = 0 ;
  1039.     virtual bool __fastcall GetShowSource(void) = 0 ;
  1040.     virtual void __fastcall NewDefaultModule(void) = 0 ;
  1041.     virtual _di_IOTAFile __fastcall NewOptionSource(const AnsiString ProjectName) = 0 ;
  1042.     virtual void __fastcall NewProjectResource(const _di_IOTAProject Project) = 0 ;
  1043.     virtual _di_IOTAFile __fastcall NewProjectSource(const AnsiString ProjectName) = 0 ;
  1044.     __property AnsiString FileName = {read=GetFileName};
  1045.     __property AnsiString OptionFileName = {read=GetOptionFileName};
  1046.     __property bool ShowSource = {read=GetShowSource};
  1047. };
  1048.  
  1049. __interface IOTAProjectCreator50;
  1050. typedef System::DelphiInterface<IOTAProjectCreator50> _di_IOTAProjectCreator50;
  1051. __interface INTERFACE_UUID("{64312F82-62F3-48E9-BAF6-B03DF450312A}") IOTAProjectCreator50  : public IOTAProjectCreator 
  1052.     
  1053. {
  1054.     
  1055. public:
  1056.     virtual void __fastcall NewDefaultProjectModule(const _di_IOTAProject Project) = 0 ;
  1057. };
  1058.  
  1059. __interface IOTAProjectGroupCreator;
  1060. typedef System::DelphiInterface<IOTAProjectGroupCreator> _di_IOTAProjectGroupCreator;
  1061. __interface INTERFACE_UUID("{6EDB9B9F-F57A-11D1-AB23-00C04FB16FB3}") IOTAProjectGroupCreator  : public IOTACreator 
  1062.     
  1063. {
  1064.     
  1065. public:
  1066.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1067.     virtual bool __fastcall GetShowSource(void) = 0 ;
  1068.     virtual _di_IOTAFile __fastcall NewProjectGroupSource(const AnsiString ProjectGroupName) = 0 ;
  1069.     __property AnsiString FileName = {read=GetFileName};
  1070.     __property bool ShowSource = {read=GetShowSource};
  1071. };
  1072.  
  1073. __interface IOTAModuleServices;
  1074. typedef System::DelphiInterface<IOTAModuleServices> _di_IOTAModuleServices;
  1075. __interface INTERFACE_UUID("{F17A7BCD-E07D-11D1-AB0B-00C04FB16FB3}") IOTAModuleServices  : public IUnknown 
  1076.     
  1077. {
  1078.     
  1079. public:
  1080.     virtual int __fastcall AddFileSystem(_di_IOTAFileSystem FileSystem) = 0 ;
  1081.     virtual bool __fastcall CloseAll(void) = 0 ;
  1082.     virtual _di_IOTAModule __fastcall CreateModule(const _di_IOTACreator Creator) = 0 ;
  1083.     virtual _di_IOTAModule __fastcall CurrentModule(void) = 0 ;
  1084.     virtual _di_IOTAFileSystem __fastcall FindFileSystem(const AnsiString Name) = 0 ;
  1085.     virtual _di_IOTAModule __fastcall FindFormModule(const AnsiString FormName) = 0 ;
  1086.     virtual _di_IOTAModule __fastcall FindModule(const AnsiString FileName) = 0 ;
  1087.     virtual int __fastcall GetModuleCount(void) = 0 ;
  1088.     virtual _di_IOTAModule __fastcall GetModule(int Index) = 0 ;
  1089.     virtual void __fastcall GetNewModuleAndClassName(const AnsiString Prefix, AnsiString &UnitIdent, AnsiString 
  1090.         &ClassName, AnsiString &FileName) = 0 ;
  1091.     virtual bool __fastcall NewModule(void) = 0 ;
  1092.     virtual void __fastcall RemoveFileSystem(int Index) = 0 ;
  1093.     virtual bool __fastcall SaveAll(void) = 0 ;
  1094.     __property int ModuleCount = {read=GetModuleCount};
  1095.     __property _di_IOTAModule Modules[int Index] = {read=GetModule};
  1096. };
  1097.  
  1098. #pragma option push -b-
  1099. enum TOTATriggerResult { trStop, trContinue, trDefault };
  1100. #pragma option pop
  1101.  
  1102. #pragma option push -b-
  1103. enum TOTAAccessType { atRead, atWrite, atExecute };
  1104. #pragma option pop
  1105.  
  1106. #pragma option push -b-
  1107. enum TOTARunMode { ormRun, ormRunToEntry, ormRunToMain, ormRunToCursor, ormStmtStepInto, ormStmtStepOver, 
  1108.     ormInstStepInto, ormInstStepOver, ormStmtStepToSource, ormReserved1, rmReserved2, rmReserved3 };
  1109. #pragma option pop
  1110.  
  1111. __interface IOTABreakpointNotifier;
  1112. typedef System::DelphiInterface<IOTABreakpointNotifier> _di_IOTABreakpointNotifier;
  1113. __interface INTERFACE_UUID("{34B2E2D5-E36F-11D1-AB0E-00C04FB16FB3}") IOTABreakpointNotifier  : public IOTANotifier 
  1114.     
  1115. {
  1116.     
  1117. public:
  1118.     virtual bool __fastcall Edit(bool AllowKeyChanges) = 0 ;
  1119.     virtual TOTATriggerResult __fastcall Trigger(void) = 0 ;
  1120.     virtual void __fastcall Verified(bool Enabled, bool Valid) = 0 ;
  1121. };
  1122.  
  1123. __interface IOTABreakpoint40;
  1124. typedef System::DelphiInterface<IOTABreakpoint40> _di_IOTABreakpoint40;
  1125. __interface IOTAProcess;
  1126. typedef System::DelphiInterface<IOTAProcess> _di_IOTAProcess;
  1127. __interface INTERFACE_UUID("{34B2E2D4-E36F-11D1-AB0E-00C04FB16FB3}") IOTABreakpoint40  : public IUnknown 
  1128.     
  1129. {
  1130.     
  1131. public:
  1132.     virtual int __fastcall AddNotifier(const _di_IOTABreakpointNotifier Notifier) = 0 ;
  1133.     virtual void __fastcall Destruct(void) = 0 ;
  1134.     virtual bool __fastcall DefaultTrigger(void) = 0 ;
  1135.     virtual bool __fastcall DecPassCount(void) = 0 ;
  1136.     virtual void __fastcall Edit(bool AllowKeyChanges) = 0 ;
  1137.     virtual bool __fastcall EvaluateExpression(void) = 0 ;
  1138.     virtual bool __fastcall GetEnabled(void) = 0 ;
  1139.     virtual AnsiString __fastcall GetExpression(void) = 0 ;
  1140.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1141.     virtual int __fastcall GetLineNumber(void) = 0 ;
  1142.     virtual int __fastcall GetCurPassCount(void) = 0 ;
  1143.     virtual int __fastcall GetPassCount(void) = 0 ;
  1144.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1145.     virtual void __fastcall ResetPassCount(void) = 0 ;
  1146.     virtual void __fastcall SetFileName(const AnsiString Value) = 0 ;
  1147.     virtual void __fastcall SetLineNumber(int Value) = 0 ;
  1148.     virtual void __fastcall SetEnabled(bool Value) = 0 ;
  1149.     virtual void __fastcall SetExpression(const AnsiString Value) = 0 ;
  1150.     virtual void __fastcall SetPassCount(int Value) = 0 ;
  1151.     virtual bool __fastcall ValidInCurrentProcess(void) = 0 ;
  1152.     virtual bool __fastcall ValidInProcess(_di_IOTAProcess Process) = 0 ;
  1153.     __property int CurPassCount = {read=GetCurPassCount};
  1154.     __property bool Enabled = {read=GetEnabled, write=SetEnabled};
  1155.     __property AnsiString Expression = {read=GetExpression, write=SetExpression};
  1156.     __property AnsiString FileName = {read=GetFileName, write=SetFileName};
  1157.     __property int LineNumber = {read=GetLineNumber, write=SetLineNumber};
  1158.     __property int PassCount = {read=GetPassCount, write=SetPassCount};
  1159. };
  1160.  
  1161. __interface IOTABreakpoint;
  1162. typedef System::DelphiInterface<IOTABreakpoint> _di_IOTABreakpoint;
  1163. __interface INTERFACE_UUID("{569EFCFB-C69B-11D2-AC67-00C04FB173DC}") IOTABreakpoint  : public IOTABreakpoint40 
  1164.     
  1165. {
  1166.     
  1167. public:
  1168.     virtual AnsiString __fastcall GetGroupName(void) = 0 ;
  1169.     virtual bool __fastcall GetDoBreak(void) = 0 ;
  1170.     virtual AnsiString __fastcall GetLogMessage(void) = 0 ;
  1171.     virtual AnsiString __fastcall GetEvalExpression(void) = 0 ;
  1172.     virtual bool __fastcall GetLogResult(void) = 0 ;
  1173.     virtual AnsiString __fastcall GetEnableGroup(void) = 0 ;
  1174.     virtual AnsiString __fastcall GetDisableGroup(void) = 0 ;
  1175.     virtual void __fastcall SetGroupName(const AnsiString Value) = 0 ;
  1176.     virtual void __fastcall SetDoBreak(const bool Value) = 0 ;
  1177.     virtual void __fastcall SetLogMessage(const AnsiString Value) = 0 ;
  1178.     virtual void __fastcall SetEvalExpression(const AnsiString Value) = 0 ;
  1179.     virtual void __fastcall SetLogResult(const bool Value) = 0 ;
  1180.     virtual void __fastcall SetEnableGroup(const AnsiString Value) = 0 ;
  1181.     virtual void __fastcall SetDisableGroup(const AnsiString Value) = 0 ;
  1182.     __property AnsiString GroupName = {read=GetGroupName, write=SetGroupName};
  1183.     __property bool DoBreak = {read=GetDoBreak, write=SetDoBreak};
  1184.     __property AnsiString LogMessage = {read=GetLogMessage, write=SetLogMessage};
  1185.     __property AnsiString EvalExpression = {read=GetEvalExpression, write=SetEvalExpression};
  1186.     __property bool LogResult = {read=GetLogResult, write=SetLogResult};
  1187.     __property AnsiString EnableGroup = {read=GetEnableGroup, write=SetEnableGroup};
  1188.     __property AnsiString DisableGroup = {read=GetDisableGroup, write=SetDisableGroup};
  1189. };
  1190.  
  1191. __interface IOTASourceBreakpoint;
  1192. typedef System::DelphiInterface<IOTASourceBreakpoint> _di_IOTASourceBreakpoint;
  1193. __interface INTERFACE_UUID("{09063877-E43A-11D1-AB0F-00C04FB16FB3}") IOTASourceBreakpoint  : public IOTABreakpoint 
  1194.     
  1195. {
  1196.     
  1197. };
  1198.  
  1199. __interface IOTAAddressBreakpoint;
  1200. typedef System::DelphiInterface<IOTAAddressBreakpoint> _di_IOTAAddressBreakpoint;
  1201. __interface INTERFACE_UUID("{09063878-E43A-11D1-AB0F-00C04FB16FB3}") IOTAAddressBreakpoint  : public IOTABreakpoint 
  1202.     
  1203. {
  1204.     
  1205. public:
  1206.     virtual unsigned __fastcall Address(void) = 0 ;
  1207.     virtual unsigned __fastcall AddressInProcess(_di_IOTAProcess Process) = 0 ;
  1208.     virtual TOTAAccessType __fastcall GetAccessType(void) = 0 ;
  1209.     virtual AnsiString __fastcall GetDataExpr(void) = 0 ;
  1210.     virtual int __fastcall GetLineSize(void) = 0 ;
  1211.     virtual int __fastcall GetLineOffset(void) = 0 ;
  1212.     virtual AnsiString __fastcall GetModuleName(void) = 0 ;
  1213.     __property TOTAAccessType AccessType = {read=GetAccessType};
  1214.     __property AnsiString DataExpr = {read=GetDataExpr};
  1215.     __property AnsiString ModuleName = {read=GetModuleName};
  1216.     __property int LineSize = {read=GetLineSize};
  1217.     __property int LineOffset = {read=GetLineOffset};
  1218. };
  1219.  
  1220. #pragma option push -b-
  1221. enum TOTANotifyReason { nrOther, nrRunning, nrStopped, nrException, nrFault };
  1222. #pragma option pop
  1223.  
  1224. __interface IOTAThreadNotifier;
  1225. typedef System::DelphiInterface<IOTAThreadNotifier> _di_IOTAThreadNotifier;
  1226. __interface INTERFACE_UUID("{34B2E2D7-E36F-11D1-AB0E-00C04FB16FB3}") IOTAThreadNotifier  : public IOTANotifier 
  1227.     
  1228. {
  1229.     
  1230. public:
  1231.     virtual void __fastcall ThreadNotify(TOTANotifyReason Reason) = 0 ;
  1232.     virtual void __fastcall EvaluteComplete(const AnsiString ExprStr, const AnsiString ResultStr, bool 
  1233.         CanModify, unsigned ResultAddress, unsigned ResultSize, int ReturnCode) = 0 ;
  1234.     virtual void __fastcall ModifyComplete(const AnsiString ExprStr, const AnsiString ResultStr, int ReturnCode
  1235.         ) = 0 ;
  1236. };
  1237.  
  1238. #pragma option push -b-
  1239. enum TOTAEvaluateResult { erOK, erError, erDeferred };
  1240. #pragma option pop
  1241.  
  1242. #pragma option push -b-
  1243. enum TOTAThreadState { tsStopped, tsRunnable, tsBlocked, tsNone };
  1244. #pragma option pop
  1245.  
  1246. __interface IOTAThread;
  1247. typedef System::DelphiInterface<IOTAThread> _di_IOTAThread;
  1248. __interface INTERFACE_UUID("{34B2E2D3-E36F-11D1-AB0E-00C04FB16FB3}") IOTAThread  : public IUnknown 
  1249. {
  1250.     
  1251. public:
  1252.     virtual int __fastcall AddNotifier(const _di_IOTAThreadNotifier Notifier) = 0 ;
  1253.     virtual TOTAEvaluateResult __fastcall Evaluate(const AnsiString ExprStr, char * ResultStr, unsigned 
  1254.         ResultStrSize, /* out */ bool &CanModify, bool AllowSideEffects, char * FormatSpecifiers, /* out */ 
  1255.         unsigned &ResultAddr, /* out */ unsigned &ResultSize, /* out */ unsigned &ResultVal) = 0 ;
  1256.     virtual TOTAEvaluateResult __fastcall Modify(const AnsiString ValueStr, char * ResultStr, unsigned 
  1257.         ResultSize, /* out */ int &ResultVal) = 0 ;
  1258.     virtual int __fastcall GetCallCount(void) = 0 ;
  1259.     virtual AnsiString __fastcall GetCallHeader(int Index) = 0 ;
  1260.     virtual void __fastcall GetCallPos(int Index, /* out */ AnsiString &FileName, /* out */ int &LineNum
  1261.         ) = 0 ;
  1262.     virtual AnsiString __fastcall GetCurrentFile(void) = 0 ;
  1263.     virtual unsigned __fastcall GetCurrentLine(void) = 0 ;
  1264.     virtual _CONTEXT __fastcall GetContext(void) = 0 ;
  1265.     virtual unsigned __fastcall GetHandle(void) = 0 ;
  1266.     virtual unsigned __fastcall GetOSThreadID(void) = 0 ;
  1267.     virtual TOTAThreadState __fastcall GetState(void) = 0 ;
  1268.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1269.     __property int CallCount = {read=GetCallCount};
  1270.     __property AnsiString CallHeaders[int Index] = {read=GetCallHeader};
  1271.     __property AnsiString CurrentFile = {read=GetCurrentFile};
  1272.     __property unsigned CurrentLine = {read=GetCurrentLine};
  1273.     __property _CONTEXT Context = {read=GetContext};
  1274.     __property unsigned Handle = {read=GetHandle};
  1275.     __property TOTAThreadState State = {read=GetState};
  1276. };
  1277.  
  1278. __interface IOTAProcessModNotifier;
  1279. typedef System::DelphiInterface<IOTAProcessModNotifier> _di_IOTAProcessModNotifier;
  1280. __interface INTERFACE_UUID("{0906387A-E43A-11D1-AB0F-00C04FB16FB3}") IOTAProcessModNotifier  : public IOTANotifier 
  1281.     
  1282. {
  1283.     
  1284. };
  1285.  
  1286. __interface IOTAProcessModule;
  1287. typedef System::DelphiInterface<IOTAProcessModule> _di_IOTAProcessModule;
  1288. __interface INTERFACE_UUID("{09063879-E43A-11D1-AB0F-00C04FB16FB3}") IOTAProcessModule  : public IUnknown 
  1289.     
  1290. {
  1291.     
  1292. public:
  1293.     virtual int __fastcall AddNotifier(const _di_IOTAProcessModNotifier Notifier) = 0 ;
  1294.     virtual int __fastcall GetCompUnitCount(void) = 0 ;
  1295.     virtual AnsiString __fastcall GetCompUnit(int Index) = 0 ;
  1296.     virtual int __fastcall GetCompUnitFileCount(int Index) = 0 ;
  1297.     virtual AnsiString __fastcall GetCompUnitFileName(int CompIndex, int FileIndex) = 0 ;
  1298.     virtual unsigned __fastcall GetEntryPoint(void) = 0 ;
  1299.     virtual unsigned __fastcall GetBaseAddress(void) = 0 ;
  1300.     virtual int __fastcall GetFileCount(void) = 0 ;
  1301.     virtual AnsiString __fastcall GetFileName(int Index) = 0 ;
  1302.     virtual int __fastcall GetModuleEntryPointCount(void) = 0 ;
  1303.     virtual AnsiString __fastcall GetModuleEntryPoint(int Index) = 0 ;
  1304.     virtual unsigned __fastcall GetModuleEntryPointAddress(int Index) = 0 ;
  1305.     virtual AnsiString __fastcall GetModuleFileName(void) = 0 ;
  1306.     virtual AnsiString __fastcall GetModuleName(void) = 0 ;
  1307.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1308.     __property int CompUnitCount = {read=GetCompUnitCount};
  1309.     __property AnsiString CompUnit[int Index] = {read=GetCompUnit};
  1310.     __property int CompUnitFileCount[int Index] = {read=GetCompUnitFileCount};
  1311.     __property AnsiString CompUnitFileName[int CompIndex][int FileIndex] = {read=GetCompUnitFileName};
  1312.     __property int FileCount = {read=GetFileCount};
  1313.     __property AnsiString FileNames[int Index] = {read=GetFileName};
  1314.     __property int ModuleEntryPointCount = {read=GetModuleEntryPointCount};
  1315.     __property AnsiString ModuleEntryPoint[int Index] = {read=GetModuleEntryPoint};
  1316.     __property unsigned ModuleEntryPointAddress[int Index] = {read=GetModuleEntryPointAddress};
  1317. };
  1318.  
  1319. __interface IOTAProcessNotifier;
  1320. typedef System::DelphiInterface<IOTAProcessNotifier> _di_IOTAProcessNotifier;
  1321. __interface INTERFACE_UUID("{34B2E2D6-E36F-11D1-AB0E-00C04FB16FB3}") IOTAProcessNotifier  : public IOTANotifier 
  1322.     
  1323. {
  1324.     
  1325. public:
  1326.     virtual void __fastcall ThreadCreated(_di_IOTAThread Thread) = 0 ;
  1327.     virtual void __fastcall ThreadDestroyed(_di_IOTAThread Thread) = 0 ;
  1328.     virtual void __fastcall ProcessModuleCreated(_di_IOTAProcessModule ProcessModule) = 0 ;
  1329.     virtual void __fastcall ProcessModuleDestroyed(_di_IOTAProcessModule ProcessModule) = 0 ;
  1330. };
  1331.  
  1332. __interface INTERFACE_UUID("{34B2E2D2-E36F-11D1-AB0E-00C04FB16FB3}") IOTAProcess  : public IUnknown 
  1333.     
  1334. {
  1335.     
  1336. public:
  1337.     virtual int __fastcall AddNotifier(const _di_IOTAProcessNotifier Notifier) = 0 ;
  1338.     virtual _di_IOTAThread __fastcall GetCurrentThread(void) = 0 ;
  1339.     virtual int __fastcall GetThreadCount(void) = 0 ;
  1340.     virtual _di_IOTAThread __fastcall GetThread(int Index) = 0 ;
  1341.     virtual unsigned __fastcall GetProcessId(void) = 0 ;
  1342.     virtual void __fastcall Pause(void) = 0 ;
  1343.     virtual int __fastcall ReadProcessMemory(unsigned Address, int Count, void *Buffer) = 0 ;
  1344.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1345.     virtual void __fastcall Run(TOTARunMode RunMode) = 0 ;
  1346.     virtual void __fastcall SetCurrentThread(_di_IOTAThread Value) = 0 ;
  1347.     virtual void __fastcall Terminate(void) = 0 ;
  1348.     virtual int __fastcall WriteProcessMemory(unsigned Address, int Count, void *Buffer) = 0 ;
  1349.     __property _di_IOTAThread CurrentThread = {read=GetCurrentThread, write=SetCurrentThread};
  1350.     __property unsigned ProcessId = {read=GetProcessId};
  1351.     __property int ThreadCount = {read=GetThreadCount};
  1352.     __property _di_IOTAThread Threads[int Index] = {read=GetThread};
  1353. };
  1354.  
  1355. __interface IOTADebuggerNotifier;
  1356. typedef System::DelphiInterface<IOTADebuggerNotifier> _di_IOTADebuggerNotifier;
  1357. __interface INTERFACE_UUID("{34B2E2D8-E36F-11D1-AB0E-00C04FB16FB3}") IOTADebuggerNotifier  : public IOTANotifier 
  1358.     
  1359. {
  1360.     
  1361. public:
  1362.     virtual void __fastcall ProcessCreated(_di_IOTAProcess Process) = 0 ;
  1363.     virtual void __fastcall ProcessDestroyed(_di_IOTAProcess Process) = 0 ;
  1364.     virtual void __fastcall BreakpointAdded(_di_IOTABreakpoint Breakpoint) = 0 ;
  1365.     virtual void __fastcall BreakpointDeleted(_di_IOTABreakpoint Breakpoint) = 0 ;
  1366. };
  1367.  
  1368. typedef void __fastcall (*TEnumerateProcessesCallback)(unsigned Pid, const AnsiString ProcessName, void * 
  1369.     Param);
  1370.  
  1371. __interface IOTADebuggerServices;
  1372. typedef System::DelphiInterface<IOTADebuggerServices> _di_IOTADebuggerServices;
  1373. __interface INTERFACE_UUID("{0E3B9D7A-E119-11D1-AB0C-00C04FB16FB3}") IOTADebuggerServices  : public IUnknown 
  1374.     
  1375. {
  1376.     
  1377. public:
  1378.     virtual int __fastcall AddNotifier(const _di_IOTADebuggerNotifier Notifier) = 0 ;
  1379.     virtual void __fastcall AttachProcess(int Pid, const AnsiString RemoteHost) = 0 ;
  1380.     virtual void __fastcall CreateProcess(const AnsiString ExeName, const AnsiString Args, const AnsiString 
  1381.         RemoteHost) = 0 ;
  1382.     virtual void __fastcall EnumerateRunningProcesses(TEnumerateProcessesCallback Callback, void * Param
  1383.         , const AnsiString HostName) = 0 ;
  1384.     virtual int __fastcall GetAddressBkptCount(void) = 0 ;
  1385.     virtual _di_IOTAAddressBreakpoint __fastcall GetAddressBkpt(int Index) = 0 ;
  1386.     virtual _di_IOTAProcess __fastcall GetCurrentProcess(void) = 0 ;
  1387.     virtual int __fastcall GetProcessCount(void) = 0 ;
  1388.     virtual _di_IOTAProcess __fastcall GetProcess(int Index) = 0 ;
  1389.     virtual int __fastcall GetSourceBkptCount(void) = 0 ;
  1390.     virtual _di_IOTASourceBreakpoint __fastcall GetSourceBkpt(int Index) = 0 ;
  1391.     virtual void __fastcall LogString(const AnsiString LogStr) = 0 ;
  1392.     virtual _di_IOTABreakpoint __fastcall NewAddressBreakpoint(unsigned Address, unsigned Length, TOTAAccessType 
  1393.         AccessType, _di_IOTAProcess AProcess) = 0 ;
  1394.     virtual _di_IOTABreakpoint __fastcall NewModuleBreakpoint(const AnsiString ModuleName, _di_IOTAProcess 
  1395.         AProcess) = 0 ;
  1396.     virtual _di_IOTABreakpoint __fastcall NewSourceBreakpoint(const AnsiString FileName, int LineNumber
  1397.         , _di_IOTAProcess AProcess) = 0 ;
  1398.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1399.     virtual void __fastcall SetCurrentProcess(_di_IOTAProcess Process) = 0 ;
  1400.     __property int AddressBkptCount = {read=GetAddressBkptCount};
  1401.     __property _di_IOTAAddressBreakpoint AddressBkpts[int Index] = {read=GetAddressBkpt};
  1402.     __property _di_IOTAProcess CurrentProcess = {read=GetCurrentProcess, write=SetCurrentProcess};
  1403.     __property int ProcessCount = {read=GetProcessCount};
  1404.     __property _di_IOTAProcess Processes[int Index] = {read=GetProcess};
  1405.     __property int SourceBkptCount = {read=GetSourceBkptCount};
  1406.     __property _di_IOTASourceBreakpoint SourceBkpts[int Index] = {read=GetSourceBkpt};
  1407. };
  1408.  
  1409. #pragma option push -b-
  1410. enum TOTAFileNotification { ofnFileOpening, ofnFileOpened, ofnFileClosing, ofnDefaultDesktopLoad, ofnDefaultDesktopSave, 
  1411.     ofnProjectDesktopLoad, ofnProjectDesktopSave, ofnPackageInstalled, ofnPackageUninstalled };
  1412. #pragma option pop
  1413.  
  1414. __interface IOTAIDENotifier;
  1415. typedef System::DelphiInterface<IOTAIDENotifier> _di_IOTAIDENotifier;
  1416. __interface INTERFACE_UUID("{E052204F-ECE9-11D1-AB19-00C04FB16FB3}") IOTAIDENotifier  : public IOTANotifier 
  1417.     
  1418. {
  1419.     
  1420. public:
  1421.     virtual void __fastcall FileNotification(TOTAFileNotification NotifyCode, const AnsiString FileName
  1422.         , bool &Cancel) = 0 ;
  1423.     virtual void __fastcall BeforeCompile(const _di_IOTAProject Project, bool &Cancel) = 0 /* overload */
  1424.         ;
  1425.     virtual void __fastcall AfterCompile(bool Succeeded) = 0 /* overload */;
  1426. };
  1427.  
  1428. __interface IOTAIDENotifier50;
  1429. typedef System::DelphiInterface<IOTAIDENotifier50> _di_IOTAIDENotifier50;
  1430. __interface INTERFACE_UUID("{AC7D29F1-D9A9-11D2-A8C1-00C04FA32F53}") IOTAIDENotifier50  : public IOTAIDENotifier 
  1431.     
  1432. {
  1433.     
  1434. public:
  1435.     HIDESBASE virtual void __fastcall BeforeCompile(const _di_IOTAProject Project, bool IsCodeInsight, 
  1436.         bool &Cancel) = 0 /* overload */;
  1437.     HIDESBASE virtual void __fastcall AfterCompile(bool Succeeded, bool IsCodeInsight) = 0 /* overload */
  1438.         ;
  1439. };
  1440.  
  1441. #pragma option push -b-
  1442. enum ToolsAPI__1 { wsEnabled, wsChecked };
  1443. #pragma option pop
  1444.  
  1445. typedef Set<ToolsAPI__1, wsEnabled, wsChecked>  TWizardState;
  1446.  
  1447. __interface IOTAWizard;
  1448. typedef System::DelphiInterface<IOTAWizard> _di_IOTAWizard;
  1449. __interface INTERFACE_UUID("{B75C0CE0-EEA6-11D1-9504-00608CCBF153}") IOTAWizard  : public IOTANotifier 
  1450.     
  1451. {
  1452.     
  1453. public:
  1454.     virtual AnsiString __fastcall GetIDString(void) = 0 ;
  1455.     virtual AnsiString __fastcall GetName(void) = 0 ;
  1456.     virtual TWizardState __fastcall GetState(void) = 0 ;
  1457.     virtual void __fastcall Execute(void) = 0 ;
  1458. };
  1459.  
  1460. __interface IOTARepositoryWizard;
  1461. typedef System::DelphiInterface<IOTARepositoryWizard> _di_IOTARepositoryWizard;
  1462. __interface INTERFACE_UUID("{B75C0CE1-EEA6-11D1-9504-00608CCBF153}") IOTARepositoryWizard  : public IOTAWizard 
  1463.     
  1464. {
  1465.     
  1466. public:
  1467.     virtual AnsiString __fastcall GetAuthor(void) = 0 ;
  1468.     virtual AnsiString __fastcall GetComment(void) = 0 ;
  1469.     virtual AnsiString __fastcall GetPage(void) = 0 ;
  1470.     virtual HICON __fastcall GetGlyph(void) = 0 ;
  1471. };
  1472.  
  1473. __interface IOTAFormWizard;
  1474. typedef System::DelphiInterface<IOTAFormWizard> _di_IOTAFormWizard;
  1475. __interface INTERFACE_UUID("{36C8BF35-EFFE-11D1-AB1D-00C04FB16FB3}") IOTAFormWizard  : public IOTARepositoryWizard 
  1476.     
  1477. {
  1478.     
  1479. };
  1480.  
  1481. __interface IOTAProjectWizard;
  1482. typedef System::DelphiInterface<IOTAProjectWizard> _di_IOTAProjectWizard;
  1483. __interface INTERFACE_UUID("{36C8BF36-EFFE-11D1-AB1D-00C04FB16FB3}") IOTAProjectWizard  : public IOTARepositoryWizard 
  1484.     
  1485. {
  1486.     
  1487. };
  1488.  
  1489. __interface IOTAMenuWizard;
  1490. typedef System::DelphiInterface<IOTAMenuWizard> _di_IOTAMenuWizard;
  1491. __interface INTERFACE_UUID("{B75C0CE2-EEA6-11D1-9504-00608CCBF153}") IOTAMenuWizard  : public IOTAWizard 
  1492.     
  1493. {
  1494.     
  1495. public:
  1496.     virtual AnsiString __fastcall GetMenuText(void) = 0 ;
  1497. };
  1498.  
  1499. typedef bool __fastcall (*TWizardRegisterProc)(const _di_IOTAWizard Wizard);
  1500.  
  1501. typedef void __fastcall (*TWizardTerminateProc)(void);
  1502.  
  1503. __interface IBorlandIDEServices;
  1504. typedef System::DelphiInterface<IBorlandIDEServices> _di_IBorlandIDEServices;
  1505. typedef bool __stdcall (*TWizardInitProc)(const _di_IBorlandIDEServices BorlandIDEServices, TWizardRegisterProc 
  1506.     RegisterProc, TWizardTerminateProc &Terminate);
  1507.  
  1508. __interface IOTAWizardServices;
  1509. typedef System::DelphiInterface<IOTAWizardServices> _di_IOTAWizardServices;
  1510. __interface INTERFACE_UUID("{B75C0CE3-EEA6-11D1-9504-00608CCBF153}") IOTAWizardServices  : public IUnknown 
  1511.     
  1512. {
  1513.     
  1514. public:
  1515.     virtual int __fastcall AddWizard(const _di_IOTAWizard AWizard) = 0 ;
  1516.     virtual void __fastcall RemoveWizard(int Index) = 0 ;
  1517. };
  1518.  
  1519. __interface IOTAPackageServices;
  1520. typedef System::DelphiInterface<IOTAPackageServices> _di_IOTAPackageServices;
  1521. __interface INTERFACE_UUID("{26EB0E4D-F97B-11D1-AB27-00C04FB16FB3}") IOTAPackageServices  : public IUnknown 
  1522.     
  1523. {
  1524.     
  1525. public:
  1526.     virtual int __fastcall GetPackageCount(void) = 0 ;
  1527.     virtual AnsiString __fastcall GetPackageName(int Index) = 0 ;
  1528.     virtual int __fastcall GetComponentCount(int PkgIndex) = 0 ;
  1529.     virtual AnsiString __fastcall GetComponentName(int PkgIndex, int CompIndex) = 0 ;
  1530.     __property int PackageCount = {read=GetPackageCount};
  1531.     __property AnsiString PackageNames[int Index] = {read=GetPackageName};
  1532.     __property int ComponentCount[int PkgIndex] = {read=GetComponentCount};
  1533.     __property AnsiString ComponentNames[int PkgIndex][int CompIndex] = {read=GetComponentName};
  1534. };
  1535.  
  1536. __interface IOTACustomMessage;
  1537. typedef System::DelphiInterface<IOTACustomMessage> _di_IOTACustomMessage;
  1538. __interface INTERFACE_UUID("{589BBDA1-F995-11D1-AB27-00C04FB16FB3}") IOTACustomMessage  : public IUnknown 
  1539.     
  1540. {
  1541.     
  1542. public:
  1543.     virtual int __fastcall GetColumnNumber(void) = 0 ;
  1544.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1545.     virtual int __fastcall GetLineNumber(void) = 0 ;
  1546.     virtual AnsiString __fastcall GetLineText(void) = 0 ;
  1547.     virtual void __fastcall ShowHelp(void) = 0 ;
  1548.     __property int ColumnNumber = {read=GetColumnNumber};
  1549.     __property AnsiString FileName = {read=GetFileName};
  1550.     __property int LineNumber = {read=GetLineNumber};
  1551.     __property AnsiString LineText = {read=GetLineText};
  1552. };
  1553.  
  1554. __interface IOTACustomMessage50;
  1555. typedef System::DelphiInterface<IOTACustomMessage50> _di_IOTACustomMessage50;
  1556. __interface INTERFACE_UUID("{B7523AB7-EB81-11D2-AC7B-00C04FB173DC}") IOTACustomMessage50  : public IOTACustomMessage 
  1557.     
  1558. {
  1559.     
  1560. public:
  1561.     virtual int __fastcall GetChildCount(void) = 0 ;
  1562.     virtual _di_IOTACustomMessage50 __fastcall GetChild(int Index) = 0 ;
  1563.     __property int ChildCount = {read=GetChildCount};
  1564.     __property _di_IOTACustomMessage50 Child[int Index] = {read=GetChild};
  1565. };
  1566.  
  1567. __interface INTACustomDrawMessage;
  1568. typedef System::DelphiInterface<INTACustomDrawMessage> _di_INTACustomDrawMessage;
  1569. __interface INTERFACE_UUID("{589BBDA2-F995-11D1-AB27-00C04FB16FB3}") INTACustomDrawMessage  : public IOTACustomMessage 
  1570.     
  1571. {
  1572.     
  1573. public:
  1574.     virtual void __fastcall Draw(Graphics::TCanvas* Canvas, const Windows::TRect &Rect, bool Wrap) = 0 
  1575.         ;
  1576.     virtual Windows::TRect __fastcall CalcRect(Graphics::TCanvas* Canvas, int MaxWidth, bool Wrap) = 0 
  1577.         ;
  1578. };
  1579.  
  1580. __interface IOTAMessageServices40;
  1581. typedef System::DelphiInterface<IOTAMessageServices40> _di_IOTAMessageServices40;
  1582. __interface INTERFACE_UUID("{26EB0E4E-F97B-11D1-AB27-00C04FB16FB3}") IOTAMessageServices40  : public IUnknown 
  1583.     
  1584. {
  1585.     
  1586. public:
  1587.     virtual void __fastcall AddCustomMessage(const _di_IOTACustomMessage CustomMsg) = 0 ;
  1588.     virtual void __fastcall AddTitleMessage(const AnsiString MessageStr) = 0 ;
  1589.     virtual void __fastcall AddToolMessage(const AnsiString FileName, const AnsiString MessageStr, const 
  1590.         AnsiString PrefixStr, int LineNumber, int ColumnNumber) = 0 ;
  1591.     virtual void __fastcall ClearAllMessages(void) = 0 ;
  1592.     virtual void __fastcall ClearCompilerMessages(void) = 0 ;
  1593.     virtual void __fastcall ClearSearchMessages(void) = 0 ;
  1594.     virtual void __fastcall ClearToolMessages(void) = 0 ;
  1595. };
  1596.  
  1597. __interface IOTAMessageServices;
  1598. typedef System::DelphiInterface<IOTAMessageServices> _di_IOTAMessageServices;
  1599. __interface INTERFACE_UUID("{3263774B-E959-11D2-AC7B-00C04FB173DC}") IOTAMessageServices  : public IOTAMessageServices40 
  1600.     
  1601. {
  1602.     
  1603. public:
  1604.     HIDESBASE virtual void __fastcall AddToolMessage(const AnsiString FileName, const AnsiString MessageStr
  1605.         , const AnsiString PrefixStr, int LineNumber, int ColumnNumber, void * Parent, /* out */ void * &LineRef
  1606.         ) = 0 /* overload */;
  1607. };
  1608.  
  1609. __interface IOTAEnvironmentOptions;
  1610. typedef System::DelphiInterface<IOTAEnvironmentOptions> _di_IOTAEnvironmentOptions;
  1611. __interface INTERFACE_UUID("{9C0E91FB-FA5A-11D1-AB28-00C04FB16FB3}") IOTAEnvironmentOptions  : public IOTAOptions 
  1612.     
  1613. {
  1614.     
  1615. };
  1616.  
  1617. __interface INTAServices40;
  1618. typedef System::DelphiInterface<INTAServices40> _di_INTAServices40;
  1619. __interface INTERFACE_UUID("{3C7F3267-F0BF-11D1-AB1E-00C04FB16FB3}") INTAServices40  : public IUnknown 
  1620.     
  1621. {
  1622.     
  1623. public:
  1624.     virtual int __fastcall AddMasked(Graphics::TBitmap* Image, Graphics::TColor MaskColor) = 0 /* overload */
  1625.         ;
  1626.     virtual Actnlist::TCustomActionList* __fastcall GetActionList(void) = 0 ;
  1627.     virtual Imglist::TCustomImageList* __fastcall GetImageList(void) = 0 ;
  1628.     virtual Menus::TMainMenu* __fastcall GetMainMenu(void) = 0 ;
  1629.     virtual Comctrls::TToolBar* __fastcall GetToolBar(const AnsiString ToolBarName) = 0 ;
  1630.     __property Actnlist::TCustomActionList* ActionList = {read=GetActionList};
  1631.     __property Imglist::TCustomImageList* ImageList = {read=GetImageList};
  1632.     __property Menus::TMainMenu* MainMenu = {read=GetMainMenu};
  1633.     __property Comctrls::TToolBar* ToolBar[AnsiString ToolBarName] = {read=GetToolBar};
  1634. };
  1635.  
  1636. __interface INTAServices;
  1637. typedef System::DelphiInterface<INTAServices> _di_INTAServices;
  1638. __interface INTERFACE_UUID("{C17B3DF1-DFE5-11D2-A8C7-00C04FA32F53}") INTAServices  : public INTAServices40 
  1639.     
  1640. {
  1641.     
  1642. public:
  1643.     HIDESBASE virtual int __fastcall AddMasked(Graphics::TBitmap* Image, Graphics::TColor MaskColor, const 
  1644.         AnsiString Ident) = 0 /* overload */;
  1645. };
  1646.  
  1647. __interface IOTAServices;
  1648. typedef System::DelphiInterface<IOTAServices> _di_IOTAServices;
  1649. __interface INTERFACE_UUID("{7FD1CE91-E053-11D1-AB0B-00C04FB16FB3}") IOTAServices  : public IUnknown 
  1650.     
  1651. {
  1652.     
  1653. public:
  1654.     virtual int __fastcall AddNotifier(const _di_IOTAIDENotifier Notifier) = 0 ;
  1655.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1656.     virtual AnsiString __fastcall GetBaseRegistryKey(void) = 0 ;
  1657.     virtual AnsiString __fastcall GetProductIdentifier(void) = 0 ;
  1658.     virtual HWND __fastcall GetParentHandle(void) = 0 ;
  1659.     virtual _di_IOTAEnvironmentOptions __fastcall GetEnvironmentOptions(void) = 0 ;
  1660. };
  1661.  
  1662. __interface IOTABufferOptions;
  1663. typedef System::DelphiInterface<IOTABufferOptions> _di_IOTABufferOptions;
  1664. __interface INTERFACE_UUID("{8C748540-C6C1-11D2-8139-00609792F134}") IOTABufferOptions  : public IUnknown 
  1665.     
  1666. {
  1667.     
  1668. public:
  1669.     virtual bool __fastcall GetAutoIndent(void) = 0 ;
  1670.     virtual bool __fastcall GetBackspaceUnindents(void) = 0 ;
  1671.     virtual bool __fastcall GetCreateBackupFile(void) = 0 ;
  1672.     virtual bool __fastcall GetCursorThroughTabs(void) = 0 ;
  1673.     virtual bool __fastcall GetInsertMode(void) = 0 ;
  1674.     virtual bool __fastcall GetGroupUndo(void) = 0 ;
  1675.     virtual bool __fastcall GetKeepTrailingBlanks(void) = 0 ;
  1676.     virtual int __fastcall GetLeftGutterWidth(void) = 0 ;
  1677.     virtual int __fastcall GetRightMargin(void) = 0 ;
  1678.     virtual bool __fastcall GetOverwriteBlocks(void) = 0 ;
  1679.     virtual bool __fastcall GetPersistentBlocks(void) = 0 ;
  1680.     virtual bool __fastcall GetPreserveLineEnds(void) = 0 ;
  1681.     virtual bool __fastcall GetSmartTab(void) = 0 ;
  1682.     virtual bool __fastcall GetSyntaxHighlight(void) = 0 ;
  1683.     virtual AnsiString __fastcall GetTabStops(void) = 0 ;
  1684.     virtual bool __fastcall GetUndoAfterSave(void) = 0 ;
  1685.     virtual int __fastcall GetUndoLimit(void) = 0 ;
  1686.     virtual bool __fastcall GetUseTabCharacter(void) = 0 ;
  1687.     virtual void __fastcall SetAutoIndent(bool Value) = 0 ;
  1688.     virtual void __fastcall SetBackspaceUnindents(bool Value) = 0 ;
  1689.     virtual void __fastcall SetCreateBackupFile(bool Value) = 0 ;
  1690.     virtual void __fastcall SetCursorThroughTabs(bool Value) = 0 ;
  1691.     virtual void __fastcall SetInsertMode(bool Value) = 0 ;
  1692.     virtual void __fastcall SetGroupUndo(bool Value) = 0 ;
  1693.     virtual void __fastcall SetKeepTrailingBlanks(bool Value) = 0 ;
  1694.     virtual void __fastcall SetLeftGutterWidth(int Value) = 0 ;
  1695.     virtual void __fastcall SetRightMargin(int Value) = 0 ;
  1696.     virtual void __fastcall SetOverwriteBlocks(bool Value) = 0 ;
  1697.     virtual void __fastcall SetPersistentBlocks(bool Value) = 0 ;
  1698.     virtual void __fastcall SetPreserveLineEnds(bool Value) = 0 ;
  1699.     virtual void __fastcall SetSmartTab(bool Value) = 0 ;
  1700.     virtual void __fastcall SetSyntaxHighlight(bool Value) = 0 ;
  1701.     virtual void __fastcall SetTabStops(const AnsiString Value) = 0 ;
  1702.     virtual void __fastcall SetUndoAfterSave(bool Value) = 0 ;
  1703.     virtual void __fastcall SetUndoLimit(int Value) = 0 ;
  1704.     virtual void __fastcall SetUseTabCharacter(bool Value) = 0 ;
  1705.     __property bool AutoIndent = {read=GetAutoIndent, write=SetAutoIndent};
  1706.     __property bool BackspaceUnindents = {read=GetBackspaceUnindents, write=SetBackspaceUnindents};
  1707.     __property bool CreateBackupFile = {read=GetCreateBackupFile, write=SetCreateBackupFile};
  1708.     __property bool CursorThroughTabs = {read=GetCursorThroughTabs, write=SetCursorThroughTabs};
  1709.     __property bool InsertMode = {read=GetInsertMode, write=SetInsertMode};
  1710.     __property bool GroupUndo = {read=GetGroupUndo, write=SetGroupUndo};
  1711.     __property bool KeepTrailingBlanks = {read=GetKeepTrailingBlanks, write=SetKeepTrailingBlanks};
  1712.     __property int LeftGutterWidth = {read=GetLeftGutterWidth, write=SetLeftGutterWidth};
  1713.     __property int RightMargin = {read=GetRightMargin, write=SetRightMargin};
  1714.     __property bool OverwriteBlocks = {read=GetOverwriteBlocks, write=SetOverwriteBlocks};
  1715.     __property bool PersistentBlocks = {read=GetPersistentBlocks, write=SetPersistentBlocks};
  1716.     __property bool PreserveLineEnds = {read=GetPreserveLineEnds, write=SetPreserveLineEnds};
  1717.     __property bool SmartTab = {read=GetSmartTab, write=SetSmartTab};
  1718.     __property bool SyntaxHighlight = {read=GetSyntaxHighlight, write=SetSyntaxHighlight};
  1719.     __property AnsiString TabStops = {read=GetTabStops, write=SetTabStops};
  1720.     __property bool UndoAfterSave = {read=GetUndoAfterSave, write=SetUndoAfterSave};
  1721.     __property int UndoLimit = {read=GetUndoLimit, write=SetUndoLimit};
  1722.     __property bool UseTabCharacter = {read=GetUseTabCharacter, write=SetUseTabCharacter};
  1723. };
  1724.  
  1725. __interface IOTAEditLineNotifier;
  1726. typedef System::DelphiInterface<IOTAEditLineNotifier> _di_IOTAEditLineNotifier;
  1727. __interface INTERFACE_UUID("{D9D48F50-E6CC-11D2-ABE8-00C04FB16FB3}") IOTAEditLineNotifier  : public IOTANotifier 
  1728.     
  1729. {
  1730.     
  1731. public:
  1732.     virtual void __fastcall LineChanged(int OldLine, int NewLine, int Data) = 0 ;
  1733. };
  1734.  
  1735. __interface IOTAEditLineTracker;
  1736. typedef System::DelphiInterface<IOTAEditLineTracker> _di_IOTAEditLineTracker;
  1737. __interface INTERFACE_UUID("{D9D48F4F-E6CC-11D2-ABE8-00C04FB16FB3}") IOTAEditLineTracker  : public IUnknown 
  1738.     
  1739. {
  1740.     
  1741. public:
  1742.     virtual int __fastcall AddNotifier(const _di_IOTAEditLineNotifier Notifier) = 0 ;
  1743.     virtual void __fastcall AddLine(int Line, int Data) = 0 ;
  1744.     virtual void __fastcall Delete(int Index) = 0 ;
  1745.     virtual int __fastcall GetCount(void) = 0 ;
  1746.     virtual int __fastcall GetData(int Index) = 0 ;
  1747.     virtual _di_IOTAEditBuffer __fastcall GetEditBuffer(void) = 0 ;
  1748.     virtual int __fastcall GetLineNum(int Index) = 0 ;
  1749.     virtual int __fastcall IndexOfLine(int Line) = 0 ;
  1750.     virtual int __fastcall IndexOfData(int Data) = 0 ;
  1751.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1752.     virtual void __fastcall SetData(int Index, int Value) = 0 ;
  1753.     virtual void __fastcall SetLineNum(int Index, int Value) = 0 ;
  1754.     __property int Count = {read=GetCount};
  1755.     __property int Data[int Index] = {read=GetData, write=SetData};
  1756.     __property int LineNum[int Index] = {read=GetLineNum, write=SetLineNum};
  1757. };
  1758.  
  1759. __interface INTERFACE_UUID("{9C510460-C7BC-11D2-9AEB-00A02457621F}") IOTAEditBuffer  : public IOTASourceEditor 
  1760.     
  1761. {
  1762.     
  1763. public:
  1764.     virtual void __fastcall ClearUndo(void) = 0 ;
  1765.     virtual _di_IOTABufferOptions __fastcall GetBufferOptions(void) = 0 ;
  1766.     virtual System::TDateTime __fastcall GetCurrentDate(void) = 0 ;
  1767.     virtual _di_IOTAEditBlock __fastcall GetEditBlock(void) = 0 ;
  1768.     virtual _di_IOTAEditLineTracker __fastcall GetEditLineTracker(void) = 0 ;
  1769.     virtual _di_IOTAEditPosition __fastcall GetEditPosition(void) = 0 ;
  1770.     virtual System::TDateTime __fastcall GetInitialDate(void) = 0 ;
  1771.     virtual bool __fastcall GetIsModified(void) = 0 ;
  1772.     virtual bool __fastcall GetIsReadOnly(void) = 0 ;
  1773.     virtual _di_IOTAEditView __fastcall GetTopView(void) = 0 ;
  1774.     virtual bool __fastcall Print(void) = 0 ;
  1775.     virtual bool __fastcall Redo(void) = 0 ;
  1776.     virtual void __fastcall SetIsReadOnly(bool Value) = 0 ;
  1777.     virtual bool __fastcall Undo(void) = 0 ;
  1778.     __property _di_IOTABufferOptions BufferOptions = {read=GetBufferOptions};
  1779.     __property _di_IOTAEditBlock EditBlock = {read=GetEditBlock};
  1780.     __property _di_IOTAEditPosition EditPosition = {read=GetEditPosition};
  1781.     __property bool IsModified = {read=GetIsModified};
  1782.     __property bool IsReadOnly = {read=GetIsReadOnly, write=SetIsReadOnly};
  1783.     __property _di_IOTAEditView TopView = {read=GetTopView};
  1784. };
  1785.  
  1786. __interface IOTAEditBufferIterator;
  1787. typedef System::DelphiInterface<IOTAEditBufferIterator> _di_IOTAEditBufferIterator;
  1788. __interface INTERFACE_UUID("{8ECB33AA-D0BD-11D2-ABD6-00C04FB16FB3}") IOTAEditBufferIterator  : public IUnknown 
  1789.     
  1790. {
  1791.     
  1792. public:
  1793.     virtual int __fastcall GetCount(void) = 0 ;
  1794.     virtual _di_IOTAEditBuffer __fastcall GetEditBuffer(int Index) = 0 ;
  1795.     __property int Count = {read=GetCount};
  1796.     __property _di_IOTAEditBuffer EditBuffers[int Index] = {read=GetEditBuffer};
  1797. };
  1798.  
  1799. struct TKeyBindingRec;
  1800. typedef TKeyBindingRec *PKeyBindingRec;
  1801.  
  1802. struct TKeyBindingRec
  1803. {
  1804.     Classes::TShortCut KeyCode;
  1805.     TKeyBindingProc KeyProc;
  1806.     void *Context;
  1807.     int Next;
  1808.     int Reserved;
  1809. } ;
  1810.  
  1811. __interface IOTAKeyboardServices;
  1812. typedef System::DelphiInterface<IOTAKeyboardServices> _di_IOTAKeyboardServices;
  1813. __interface INTERFACE_UUID("{3E7790CB-D2BB-11D2-ABD8-00C04FB16FB3}") IOTAKeyContext  : public IUnknown 
  1814.     
  1815. {
  1816.     
  1817. public:
  1818.     virtual void * __fastcall GetContext(void) = 0 ;
  1819.     virtual _di_IOTAEditBuffer __fastcall GetEditBuffer(void) = 0 ;
  1820.     virtual _di_IOTAKeyboardServices __fastcall GetKeyboardServices(void) = 0 ;
  1821.     virtual bool __fastcall GetKeyBindingRec(/* out */ TKeyBindingRec &BindingRec) = 0 ;
  1822.     __property void * Context = {read=GetContext};
  1823.     __property _di_IOTAEditBuffer EditBuffer = {read=GetEditBuffer};
  1824.     __property _di_IOTAKeyboardServices KeyboardServices = {read=GetKeyboardServices};
  1825. };
  1826.  
  1827. __interface IOTARecord;
  1828. typedef System::DelphiInterface<IOTARecord> _di_IOTARecord;
  1829. __interface INTERFACE_UUID("{F8CAF8D6-D263-11D2-ABD8-00C04FB16FB3}") IOTARecord  : public IUnknown 
  1830. {
  1831.     
  1832. public:
  1833.     virtual void __fastcall Append(const Classes::TShortCut * Keys, const int Keys_Size) = 0 /* overload */
  1834.         ;
  1835.     virtual void __fastcall Append(const AnsiString CmdName, bool IsKeys) = 0 /* overload */;
  1836.     virtual void __fastcall Append(const _di_IOTARecord ARecord) = 0 /* overload */;
  1837.     virtual void __fastcall Clear(void) = 0 ;
  1838.     virtual bool __fastcall GetIsPaused(void) = 0 ;
  1839.     virtual bool __fastcall GetIsPlaying(void) = 0 ;
  1840.     virtual bool __fastcall GetIsRecording(void) = 0 ;
  1841.     virtual AnsiString __fastcall GetName(void) = 0 ;
  1842.     virtual void __fastcall ReadFromStream(const _di_IStream Stream) = 0 ;
  1843.     virtual void __fastcall SetName(const AnsiString Value) = 0 ;
  1844.     virtual void __fastcall WriteToStream(const _di_IStream Stream) = 0 ;
  1845.     __property bool IsPaused = {read=GetIsPaused};
  1846.     __property bool IsPlaying = {read=GetIsPlaying};
  1847.     __property bool IsRecording = {read=GetIsRecording};
  1848.     __property AnsiString Name = {read=GetName, write=SetName};
  1849. };
  1850.  
  1851. typedef int TKeyBindingFlags;
  1852.  
  1853. __interface IOTAKeyBindingServices;
  1854. typedef System::DelphiInterface<IOTAKeyBindingServices> _di_IOTAKeyBindingServices;
  1855. __interface INTERFACE_UUID("{F8CAF8D8-D263-11D2-ABD8-00C04FB16FB3}") IOTAKeyBindingServices  : public IUnknown 
  1856.     
  1857. {
  1858.     
  1859. public:
  1860.     virtual bool __fastcall AddKeyBinding(const Classes::TShortCut * Keys, const int Keys_Size, TKeyBindingProc 
  1861.         KeyProc, void * Context, int Flags, const AnsiString Keyboard, const AnsiString HotKey) = 0 ;
  1862.     virtual bool __fastcall AddMenuCommand(const AnsiString Command, TKeyBindingProc KeyProc, void * Context
  1863.         ) = 0 ;
  1864.     virtual void __fastcall SetDefaultKeyProc(TKeyBindingProc KeyProc, void * Context, const AnsiString 
  1865.         Keyboard) = 0 ;
  1866. };
  1867.  
  1868. __interface IOTAKeyboardBinding;
  1869. typedef System::DelphiInterface<IOTAKeyboardBinding> _di_IOTAKeyboardBinding;
  1870. __interface INTERFACE_UUID("{F8CAF8D7-D263-11D2-ABD8-00C04FB16FB3}") IOTAKeyboardBinding  : public IOTANotifier 
  1871.     
  1872. {
  1873.     
  1874. public:
  1875.     virtual TBindingType __fastcall GetBindingType(void) = 0 ;
  1876.     virtual AnsiString __fastcall GetDisplayName(void) = 0 ;
  1877.     virtual AnsiString __fastcall GetName(void) = 0 ;
  1878.     virtual void __fastcall BindKeyboard(const _di_IOTAKeyBindingServices BindingServices) = 0 ;
  1879.     __property TBindingType BindingType = {read=GetBindingType};
  1880.     __property AnsiString DisplayName = {read=GetDisplayName};
  1881.     __property AnsiString Name = {read=GetName};
  1882. };
  1883.  
  1884. __interface IOTAEditorServices;
  1885. typedef System::DelphiInterface<IOTAEditorServices> _di_IOTAEditorServices;
  1886. __interface INTERFACE_UUID("{F8CAF8D5-D263-11D2-ABD8-00C04FB16FB3}") IOTAKeyboardServices  : public IUnknown 
  1887.     
  1888. {
  1889.     
  1890. public:
  1891.     virtual int __fastcall AddKeyboardBinding(const _di_IOTAKeyboardBinding KeyBinding) = 0 ;
  1892.     virtual _di_IOTARecord __fastcall GetCurrentPlayback(void) = 0 ;
  1893.     virtual _di_IOTARecord __fastcall GetCurrentRecord(void) = 0 ;
  1894.     virtual _di_IOTAEditorServices __fastcall GetEditorServices(void) = 0 ;
  1895.     virtual unsigned __fastcall GetKeysProcessed(void) = 0 ;
  1896.     virtual bool __fastcall NewRecordObject(/* out */ _di_IOTARecord &ARecord) = 0 ;
  1897.     virtual void __fastcall PausePlayback(void) = 0 ;
  1898.     virtual void __fastcall PauseRecord(void) = 0 ;
  1899.     virtual void __fastcall PopKeyboard(const AnsiString Keyboard) = 0 ;
  1900.     virtual AnsiString __fastcall PushKeyboard(const AnsiString Keyboard) = 0 ;
  1901.     virtual void __fastcall RestartKeyboardServices(void) = 0 ;
  1902.     virtual void __fastcall ResumePlayback(void) = 0 ;
  1903.     virtual void __fastcall ResumeRecord(void) = 0 ;
  1904.     virtual void __fastcall RemoveKeyboardBinding(int Index) = 0 ;
  1905.     virtual void __fastcall SetPlaybackObject(const _di_IOTARecord ARecord) = 0 ;
  1906.     virtual void __fastcall SetRecordObject(const _di_IOTARecord ARecord) = 0 ;
  1907.     virtual bool __fastcall LookupKeyBinding(const Classes::TShortCut * Keys, const int Keys_Size, /* out */ 
  1908.         TKeyBindingRec &BindingRec, const AnsiString KeyBoard) = 0 ;
  1909.     virtual bool __fastcall GetNextBindingRec(TKeyBindingRec &BindingRec) = 0 ;
  1910.     virtual TKeyBindingResult __fastcall CallKeyBindingProc(const TKeyBindingRec &BindingRec) = 0 ;
  1911.     __property _di_IOTARecord CurrentPlayback = {read=GetCurrentPlayback};
  1912.     __property _di_IOTARecord CurrentRecord = {read=GetCurrentRecord};
  1913.     __property _di_IOTAEditorServices EditorServices = {read=GetEditorServices};
  1914.     __property unsigned KeysProcessed = {read=GetKeysProcessed};
  1915. };
  1916.  
  1917. __interface IOTAKeyboardDiagnostics;
  1918. typedef System::DelphiInterface<IOTAKeyboardDiagnostics> _di_IOTAKeyboardDiagnostics;
  1919. __interface INTERFACE_UUID("{AEFC65F1-2504-11D3-AC25-00C04FB16FB3}") IOTAKeyboardDiagnostics  : public IUnknown 
  1920.     
  1921. {
  1922.     
  1923. public:
  1924.     virtual bool __fastcall GetKeyTracing(void) = 0 ;
  1925.     virtual void __fastcall SetKeyTracing(bool Value) = 0 ;
  1926.     __property bool KeyTracing = {read=GetKeyTracing, write=SetKeyTracing};
  1927. };
  1928.  
  1929. __interface IOTASpeedSetting;
  1930. typedef System::DelphiInterface<IOTASpeedSetting> _di_IOTASpeedSetting;
  1931. __interface IOTAEditOptions;
  1932. typedef System::DelphiInterface<IOTAEditOptions> _di_IOTAEditOptions;
  1933. __interface INTERFACE_UUID("{B5CDCE07-E093-11D2-ABE2-00C04FB16FB3}") IOTASpeedSetting  : public IOTANotifier 
  1934.     
  1935. {
  1936.     
  1937. public:
  1938.     virtual AnsiString __fastcall GetDisplayName(void) = 0 ;
  1939.     virtual AnsiString __fastcall GetName(void) = 0 ;
  1940.     virtual void __fastcall ExecuteSetting(const _di_IOTAEditOptions EditOptions) = 0 ;
  1941.     __property AnsiString DisplayName = {read=GetDisplayName};
  1942.     __property AnsiString Name = {read=GetName};
  1943. };
  1944.  
  1945. __interface INTERFACE_UUID("{487BEA91-DBC0-11D2-ABDE-00C04FB16FB3}") IOTAEditOptions  : public IUnknown 
  1946.     
  1947. {
  1948.     
  1949. public:
  1950.     virtual int __fastcall AddSpeedSetting(const _di_IOTASpeedSetting SpeedSetting) = 0 ;
  1951.     virtual void __fastcall BeginUpdate(void) = 0 ;
  1952.     virtual void __fastcall EndUpdate(void) = 0 ;
  1953.     virtual int __fastcall GetBlockIndent(void) = 0 ;
  1954.     virtual _di_IOTABufferOptions __fastcall GetBufferOptions(void) = 0 ;
  1955.     virtual AnsiString __fastcall GetFontName(void) = 0 ;
  1956.     virtual int __fastcall GetFontSize(void) = 0 ;
  1957.     virtual bool __fastcall GetForceCutCopyEnabled(void) = 0 ;
  1958.     virtual int __fastcall GetSpeedSettingCount(void) = 0 ;
  1959.     virtual _di_IOTASpeedSetting __fastcall GetSpeedSetting(int Index) = 0 ;
  1960.     virtual AnsiString __fastcall GetSyntaxHighlightTypes(TOTASyntaxHighlighter Index) = 0 ;
  1961.     virtual bool __fastcall GetUseBriefCursorShapes(void) = 0 ;
  1962.     virtual bool __fastcall GetUseBriefRegularExpressions(void) = 0 ;
  1963.     virtual void __fastcall RemoveSpeedSetting(int Index) = 0 ;
  1964.     virtual void __fastcall SetBlockIndent(int Value) = 0 ;
  1965.     virtual void __fastcall SetFontName(const AnsiString Value) = 0 ;
  1966.     virtual void __fastcall SetFontSize(int Value) = 0 ;
  1967.     virtual void __fastcall SetForceCutCopyEnabled(bool Value) = 0 ;
  1968.     virtual void __fastcall SetSpeedSetting(const AnsiString Name) = 0 ;
  1969.     virtual void __fastcall SetSyntaxHighlightTypes(TOTASyntaxHighlighter Index, const AnsiString Value
  1970.         ) = 0 ;
  1971.     virtual void __fastcall SetUseBriefCursorShapes(bool Value) = 0 ;
  1972.     virtual void __fastcall SetUseBriefRegularExpressions(bool Value) = 0 ;
  1973.     __property int BlockIndent = {read=GetBlockIndent, write=SetBlockIndent};
  1974.     __property _di_IOTABufferOptions BufferOptions = {read=GetBufferOptions};
  1975.     __property AnsiString FontName = {read=GetFontName, write=SetFontName};
  1976.     __property int FontSize = {read=GetFontSize, write=SetFontSize};
  1977.     __property bool ForceCutCopyEnabled = {read=GetForceCutCopyEnabled, write=SetForceCutCopyEnabled};
  1978.     __property int SpeedSettingCount = {read=GetSpeedSettingCount};
  1979.     __property _di_IOTASpeedSetting SpeedSettings[int Index] = {read=GetSpeedSetting};
  1980.     __property AnsiString SyntaxHighlightTypes[TOTASyntaxHighlighter Index] = {read=GetSyntaxHighlightTypes
  1981.         , write=SetSyntaxHighlightTypes};
  1982.     __property bool UseBriefCursorShapes = {read=GetUseBriefCursorShapes, write=SetUseBriefCursorShapes
  1983.         };
  1984.     __property bool UseBriefRegularExpressions = {read=GetUseBriefRegularExpressions, write=SetUseBriefRegularExpressions
  1985.         };
  1986. };
  1987.  
  1988. __interface INTERFACE_UUID("{C2812BA7-C48D-11D2-9AE8-00A02457621F}") IOTAEditorServices  : public IUnknown 
  1989.     
  1990. {
  1991.     
  1992. public:
  1993.     virtual _di_IOTAEditOptions __fastcall GetEditOptions(void) = 0 ;
  1994.     virtual bool __fastcall GetEditBufferIterator(/* out */ _di_IOTAEditBufferIterator &Iterator) = 0 ;
  1995.         
  1996.     virtual _di_IOTAKeyboardServices __fastcall GetKeyboardServices(void) = 0 ;
  1997.     virtual _di_IOTAEditBuffer __fastcall GetTopBuffer(void) = 0 ;
  1998.     virtual _di_IOTAEditView __fastcall GetTopView(void) = 0 ;
  1999.     __property _di_IOTAEditOptions EditOptions = {read=GetEditOptions};
  2000.     __property _di_IOTAKeyboardServices KeyboardServices = {read=GetKeyboardServices};
  2001.     __property _di_IOTAEditBuffer TopBuffer = {read=GetTopBuffer};
  2002.     __property _di_IOTAEditView TopView = {read=GetTopView};
  2003. };
  2004.  
  2005. __interface INTAToDoItem;
  2006. typedef System::DelphiInterface<INTAToDoItem> _di_INTAToDoItem;
  2007. __interface INTERFACE_UUID("{094003D8-E7AA-11D2-AA99-00C04FA35CE8}") INTAToDoItem  : public IUnknown 
  2008.     
  2009. {
  2010.     
  2011. public:
  2012.     virtual bool __fastcall CanDelete(void) = 0 ;
  2013.     virtual bool __fastcall CanEdit(void) = 0 ;
  2014.     virtual bool __fastcall CanShow(void) = 0 ;
  2015.     virtual void __fastcall Delete(void) = 0 ;
  2016.     virtual void __fastcall DrawImage(const Graphics::TCanvas* Canvas, const Windows::TRect &Rect) = 0 
  2017.         ;
  2018.     virtual void __fastcall DoubleClicked(void) = 0 ;
  2019.     virtual void __fastcall Edit(void) = 0 ;
  2020.     virtual AnsiString __fastcall GetText(void) = 0 ;
  2021.     virtual TOTAToDoPriority __fastcall GetPriority(void) = 0 ;
  2022.     virtual AnsiString __fastcall GetCategory(void) = 0 ;
  2023.     virtual bool __fastcall GetChecked(void) = 0 ;
  2024.     virtual AnsiString __fastcall GetModuleName(void) = 0 ;
  2025.     virtual AnsiString __fastcall GetKind(void) = 0 ;
  2026.     virtual int __fastcall GetData(void) = 0 ;
  2027.     virtual AnsiString __fastcall GetOwner(void) = 0 ;
  2028.     virtual bool __fastcall IsValid(void) = 0 ;
  2029.     virtual void __fastcall SetChecked(const bool Value) = 0 ;
  2030.     virtual void __fastcall Show(void) = 0 ;
  2031.     __property bool Checked = {read=GetChecked, write=SetChecked};
  2032. };
  2033.  
  2034. __interface IOTAToDoManager;
  2035. typedef System::DelphiInterface<IOTAToDoManager> _di_IOTAToDoManager;
  2036. __interface INTERFACE_UUID("{3D4A0565-EB77-11D2-AA9A-00C04FA35CE8}") IOTAToDoManager  : public IUnknown 
  2037.     
  2038. {
  2039.     
  2040. public:
  2041.     virtual AnsiString __fastcall GetName(void) = 0 ;
  2042.     virtual void __fastcall SetName(const AnsiString AName) = 0 ;
  2043.     virtual _di_INTAToDoItem __fastcall GetItem(int Index) = 0 ;
  2044.     virtual int __fastcall GetItemCount(void) = 0 ;
  2045.     virtual void __fastcall ProjectChanged(void) = 0 ;
  2046.     __property AnsiString Name = {read=GetName, write=SetName};
  2047.     __property int ItemCount = {read=GetItemCount};
  2048.     __property _di_INTAToDoItem Items[int Index] = {read=GetItem};
  2049. };
  2050.  
  2051. __interface IOTAToDoServices;
  2052. typedef System::DelphiInterface<IOTAToDoServices> _di_IOTAToDoServices;
  2053. __interface INTERFACE_UUID("{F8FC00EF-E61A-11D2-AA99-00C04FA35CE8}") IOTAToDoServices  : public IUnknown 
  2054.     
  2055. {
  2056.     
  2057. public:
  2058.     virtual int __fastcall AddManager(_di_IOTAToDoManager AManager) = 0 ;
  2059.     virtual int __fastcall AddNotifier(const _di_IOTANotifier ANotifier) = 0 ;
  2060.     virtual _di_INTAToDoItem __fastcall GetItem(int Index) = 0 ;
  2061.     virtual int __fastcall GetItemCount(void) = 0 ;
  2062.     virtual void __fastcall RemoveManager(int Index) = 0 ;
  2063.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  2064.     virtual void __fastcall UpdateList(void) = 0 ;
  2065.     __property int ItemCount = {read=GetItemCount};
  2066.     __property _di_INTAToDoItem Items[int Index] = {read=GetItem};
  2067. };
  2068.  
  2069. __interface INTERFACE_UUID("{7FD1CE92-E053-11D1-AB0B-00C04FB16FB3}") IBorlandIDEServices  : public IUnknown 
  2070.     
  2071. {
  2072.     
  2073. };
  2074.  
  2075. //-- var, const, procedure ---------------------------------------------------
  2076. static const Shortint utForm = 0x0;
  2077. static const Shortint utDataModule = 0x1;
  2078. static const Shortint utProjUnit = 0x2;
  2079. static const Shortint utUnit = 0x3;
  2080. static const Shortint utRc = 0x4;
  2081. static const Shortint utAsm = 0x5;
  2082. static const Shortint utDef = 0x6;
  2083. static const Shortint utObj = 0x7;
  2084. static const Shortint utRes = 0x8;
  2085. static const Shortint utLib = 0x9;
  2086. static const Shortint utTypeLib = 0xa;
  2087. static const Shortint utPackageImport = 0xb;
  2088. static const Shortint utFormResource = 0xc;
  2089. static const Shortint utNoMake = 0xd;
  2090. static const Shortint atWhiteSpace = 0x0;
  2091. static const Shortint atComment = 0x1;
  2092. static const Shortint atReservedWord = 0x2;
  2093. static const Shortint atIdentifier = 0x3;
  2094. static const Shortint atSymbol = 0x4;
  2095. static const Shortint atString = 0x5;
  2096. static const Shortint atNumber = 0x6;
  2097. static const Shortint atFloat = 0x7;
  2098. static const Shortint atOctal = 0x8;
  2099. static const Shortint atHex = 0x9;
  2100. static const Shortint atCharacter = 0xa;
  2101. static const Shortint atPreproc = 0xb;
  2102. static const Shortint atIllegal = 0xc;
  2103. static const Shortint atAssembler = 0xd;
  2104. static const Shortint SyntaxOff = 0xe;
  2105. static const Shortint MarkedBlock = 0xf;
  2106. static const Shortint SearchMatch = 0x10;
  2107. static const Shortint lfCurrentEIP = 0x1;
  2108. static const Shortint lfBreakpointEnabled = 0x2;
  2109. static const Shortint lfBreakpointDisabled = 0x4;
  2110. static const Shortint lfBreakpointInvalid = 0x8;
  2111. static const Shortint lfErrorLine = 0x10;
  2112. static const Shortint lfBreakpointVerified = 0x20;
  2113. static const Shortint lfBackgroundBkpt = 0x40;
  2114. static const Byte lfBackgroupEIP = 0x80;
  2115. #define mcGetFindString "GetFindString"
  2116. #define mcReplace "Replace"
  2117. #define mcRepeatSearch "RepeatSearch"
  2118. #define mcIncrementalSearch "IncrementalSearch"
  2119. #define mcGotoLine "GotoLine"
  2120. #define mcClipCut "ClipCut"
  2121. #define mcClipCopy "ClipCopy"
  2122. #define mcClipPaste "ClipPaste"
  2123. #define mcClipClear "ClipClear"
  2124. #define mcHelpKeywordSearch "HelpKeywordSearch"
  2125. #define mcOpenFileAtCursor "OpenFileAtCursor"
  2126. #define mcToggleBreakpoint "ToggleBreakpoint"
  2127. #define mcRunToHere "RunToHere"
  2128. #define mcUndo "Undo"
  2129. #define mcRedo "Redo"
  2130. #define mcModify "Modify"
  2131. #define mcAddWatchAtCursor "AddWatchAtCursor"
  2132. #define mcInspectAtCursor "InspectAtCursor"
  2133. #define mcSetMark0 "SetMark0"
  2134. #define mcSetMark1 "SetMark1"
  2135. #define mcSetMark2 "SetMark2"
  2136. #define mcSetMark3 "SetMark3"
  2137. #define mcSetMark4 "SetMark4"
  2138. #define mcSetMark5 "SetMark5"
  2139. #define mcSetMark6 "SetMark6"
  2140. #define mcSetMark7 "SetMark7"
  2141. #define mcSetMark8 "SetMark8"
  2142. #define mcSetMark9 "SetMark9"
  2143. #define mcMoveToMark0 "MoveToMark0"
  2144. #define mcMoveToMark1 "MoveToMark1"
  2145. #define mcMoveToMark2 "MoveToMark2"
  2146. #define mcMoveToMark3 "MoveToMark3"
  2147. #define mcMoveToMark4 "MoveToMark4"
  2148. #define mcMoveToMark5 "MoveToMark5"
  2149. #define mcMoveToMark6 "MoveToMark6"
  2150. #define mcMoveToMark7 "MoveToMark7"
  2151. #define mcMoveToMark8 "MoveToMark8"
  2152. #define mcMoveToMark9 "MoveToMark9"
  2153. #define sEditor "editor"
  2154. #define WizardEntryPoint "INITWIZARD0001"
  2155. #define isWizards "Wizards"
  2156. #define sCustomToolBar "CustomToolBar"
  2157. #define sStandardToolBar "StandardToolBar"
  2158. #define sDebugToolBar "DebugToolBar"
  2159. #define sViewToolBar "ViewToolBar"
  2160. #define sDesktopToolBar "DesktopToolBar"
  2161. #define sApplication "Application"
  2162. #define sLibrary "Library"
  2163. #define sConsole "Console"
  2164. #define sPackage "Package"
  2165. #define sUnit "Unit"
  2166. #define sForm "Form"
  2167. #define sText "Text"
  2168. static const Shortint mmSkipWord = 0x0;
  2169. static const Shortint mmSkipNonWord = 0x1;
  2170. static const Shortint mmSkipWhite = 0x2;
  2171. static const Shortint mmSkipNonWhite = 0x3;
  2172. static const Shortint mmSkipSpecial = 0x4;
  2173. static const Shortint mmSkipNonSpecial = 0x5;
  2174. static const Shortint mmSkipLeft = 0x0;
  2175. static const Shortint mmSkipRight = 0x10;
  2176. static const Shortint mmSkipStream = 0x20;
  2177. static const Shortint csCodelist = 0x1;
  2178. static const Shortint csParamList = 0x2;
  2179. static const Byte csManual = 0x80;
  2180. static const Shortint kfImplicitShift = 0x1;
  2181. static const Shortint kfImplicitModifier = 0x2;
  2182. static const Shortint kfImplicitKeypad = 0x4;
  2183. static const Word rfBackward = 0x100;
  2184. static const Word rfInvertLegalChars = 0x1000;
  2185. static const Shortint rfIncludeUpperAlphaChars = 0x1;
  2186. static const Shortint rfIncludeLowerAlphaChars = 0x2;
  2187. static const Shortint rfIncludeAlphaChars = 0x3;
  2188. static const Shortint rfIncludeNumericChars = 0x4;
  2189. static const Shortint rfIncludeSpecialChars = 0x8;
  2190. extern PACKAGE _di_IBorlandIDEServices BorlandIDEServices;
  2191. extern PACKAGE TWizardRegisterProc LibraryWizardProc;
  2192. extern PACKAGE void __fastcall RegisterPackageWizard(const _di_IOTAWizard Wizard);
  2193.  
  2194. }    /* namespace Toolsapi */
  2195. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  2196. using namespace Toolsapi;
  2197. #endif
  2198. #pragma option pop    // -w-
  2199. #pragma option pop    // -Vx
  2200.  
  2201. #pragma delphiheader end.
  2202. //-- end unit ----------------------------------------------------------------
  2203. #endif    // ToolsAPI
  2204.