home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / DelphiVCL.tcl < prev    next >
Encoding:
Text File  |  1997-10-29  |  388.7 KB  |  11,191 lines
  1.  
  2. # Generator: et.tcl    /main/titanic/10
  3. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4. # Interpreter to use: Otsh V7.1.1/B5
  5. #
  6. OTShRegister::importTool
  7.  
  8. set diag [CDM new TWinControl "DelphiVCL" "" "" "" "" "" 1]
  9.  
  10. set row1 [$diag addRow method 0.0]
  11. $row1 setLabel "name_type" "Enter()\n"
  12. $row1 setProp "has_parmlist" "1"
  13. $row1 setProp "is_event" "1"
  14. $row1 setProp "method_access" "Protected"
  15.  
  16. set cell2 [$row1 addCell parameter 0.0]
  17. $cell2 setLabel "name_type" "Sender: TObject"
  18. $cell2 setScope "name_type" "cl" "scopePhase"
  19. $cell2 setProp "is_declaration" "1" "name_type" "cl"
  20. $cell2 setProp "libunit" "System" "name_type" "cl"
  21. $cell2 setScope "name_type" "de" "scopeFile"
  22.  
  23. set row3 [$diag addRow method 0.0]
  24. $row3 setLabel "name_type" "Exit()\n"
  25. $row3 setProp "has_parmlist" "1"
  26. $row3 setProp "is_event" "1"
  27. $row3 setProp "method_access" "Protected"
  28.  
  29. set cell4 [$row3 addCell parameter 0.0]
  30. $cell4 setLabel "name_type" "Sender: TObject"
  31. $cell4 setScope "name_type" "cl" "scopePhase"
  32. $cell4 setProp "is_declaration" "1" "name_type" "cl"
  33. $cell4 setProp "libunit" "System" "name_type" "cl"
  34. $cell4 setScope "name_type" "de" "scopeFile"
  35.  
  36. set row5 [$diag addRow method 0.0]
  37. $row5 setLabel "name_type" "KeyDown()\n"
  38. $row5 setProp "has_parmlist" "1"
  39. $row5 setProp "is_event" "1"
  40. $row5 setProp "method_access" "Protected"
  41.  
  42. set cell6 [$row5 addCell parameter 0.0]
  43. $cell6 setLabel "name_type" "Sender: TObject, "
  44. $cell6 setScope "name_type" "cl" "scopePhase"
  45. $cell6 setProp "is_declaration" "1" "name_type" "cl"
  46. $cell6 setProp "libunit" "System" "name_type" "cl"
  47. $cell6 setScope "name_type" "de" "scopeFile"
  48.  
  49. set cell7 [$row5 addCell parameter 0.0]
  50. $cell7 setLabel "name_type" "Key: word, "
  51. $cell7 setProp "pass_by" "Variable"
  52. $cell7 setScope "name_type" "cl" "scopePhase"
  53. $cell7 setScope "name_type" "de" "scopeFile"
  54.  
  55. set cell8 [$row5 addCell parameter 0.0]
  56. $cell8 setLabel "name_type" "Shift: TShiftState"
  57. $cell8 setScope "name_type" "cl" "scopePhase"
  58. $cell8 setProp "libunit" "Classes" "name_type" "cl"
  59. $cell8 setScope "name_type" "de" "scopeFile"
  60.  
  61. set row9 [$diag addRow method 0.0]
  62. $row9 setLabel "name_type" "KeyPress()\n"
  63. $row9 setProp "has_parmlist" "1"
  64. $row9 setProp "is_event" "1"
  65. $row9 setProp "method_access" "Protected"
  66.  
  67. set cell10 [$row9 addCell parameter 0.0]
  68. $cell10 setLabel "name_type" "Sender: TObject, "
  69. $cell10 setScope "name_type" "cl" "scopePhase"
  70. $cell10 setProp "is_declaration" "1" "name_type" "cl"
  71. $cell10 setProp "libunit" "System" "name_type" "cl"
  72. $cell10 setScope "name_type" "de" "scopeFile"
  73.  
  74. set cell11 [$row9 addCell parameter 0.0]
  75. $cell11 setLabel "name_type" "Key: char"
  76. $cell11 setProp "pass_by" "Variable"
  77. $cell11 setScope "name_type" "cl" "scopePhase"
  78. $cell11 setScope "name_type" "de" "scopeFile"
  79.  
  80. set row12 [$diag addRow method 0.0]
  81. $row12 setLabel "name_type" "KeyUp() "
  82. $row12 setProp "has_parmlist" "1"
  83. $row12 setProp "is_event" "1"
  84. $row12 setProp "method_access" "Protected"
  85.  
  86. set cell13 [$row12 addCell parameter 0.0]
  87. $cell13 setLabel "name_type" "Sender: TObject, "
  88. $cell13 setScope "name_type" "cl" "scopePhase"
  89. $cell13 setProp "is_declaration" "1" "name_type" "cl"
  90. $cell13 setProp "libunit" "System" "name_type" "cl"
  91. $cell13 setScope "name_type" "de" "scopeFile"
  92.  
  93. set cell14 [$row12 addCell parameter 0.0]
  94. $cell14 setLabel "name_type" "Key: word, "
  95. $cell14 setProp "pass_by" "Variable"
  96. $cell14 setScope "name_type" "cl" "scopePhase"
  97. $cell14 setScope "name_type" "de" "scopeFile"
  98.  
  99. set cell15 [$row12 addCell parameter 0.0]
  100. $cell15 setLabel "name_type" "Shift: TShiftState"
  101. $cell15 setScope "name_type" "cl" "scopePhase"
  102. $cell15 setProp "libunit" "Classes" "name_type" "cl"
  103. $cell15 setScope "name_type" "de" "scopeFile"
  104.  
  105. $diag save
  106.  
  107. # Generator: et.tcl    /main/titanic/10
  108. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  109. # Interpreter to use: Otsh V7.1.1/B5
  110. #
  111. OTShRegister::importTool
  112.  
  113. set diag [CDM new TChangeLink "DelphiVCL" "" "" "" "" "" 1]
  114.  
  115. $diag save
  116.  
  117. # Generator: et.tcl    /main/titanic/10
  118. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  119. # Interpreter to use: Otsh V7.1.1/B5
  120. #
  121. OTShRegister::importTool
  122.  
  123. set diag [CDM new TMouseButton "DelphiVCL" "" "" "" "" "" 1]
  124.  
  125. set row16 [$diag addRow attribute 0.0]
  126. $row16 setLabel "name_type" "\$mbLeft: enum\n"
  127. $row16 setProp "is_class_feature" "1"
  128. $row16 setScope "name_type" "cl" "scopePhase"
  129.  
  130. set row17 [$diag addRow attribute 0.0]
  131. $row17 setLabel "name_type" "\$mbRight: enum\n"
  132. $row17 setProp "is_class_feature" "1"
  133. $row17 setScope "name_type" "cl" "scopePhase"
  134.  
  135. set row18 [$diag addRow attribute 0.0]
  136. $row18 setLabel "name_type" "\$mbMiddle: enum"
  137. $row18 setProp "is_class_feature" "1"
  138. $row18 setScope "name_type" "cl" "scopePhase"
  139.  
  140. $diag save
  141.  
  142. # Generator: et.tcl    /main/titanic/10
  143. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  144. # Interpreter to use: Otsh V7.1.1/B5
  145. #
  146. OTShRegister::importTool
  147.  
  148. set diag [CDM new TCloseAction "DelphiVCL" "" "" "" "" "" 1]
  149.  
  150. set row19 [$diag addRow attribute 0.0]
  151. $row19 setLabel "name_type" "\$caNone: enum\n"
  152. $row19 setProp "is_class_feature" "1"
  153. $row19 setScope "name_type" "cl" "scopePhase"
  154.  
  155. set row20 [$diag addRow attribute 0.0]
  156. $row20 setLabel "name_type" "\$caHide: enum\n"
  157. $row20 setProp "is_class_feature" "1"
  158. $row20 setScope "name_type" "cl" "scopePhase"
  159.  
  160. set row21 [$diag addRow attribute 0.0]
  161. $row21 setLabel "name_type" "\$caFree: enum\n"
  162. $row21 setProp "is_class_feature" "1"
  163. $row21 setScope "name_type" "cl" "scopePhase"
  164.  
  165. set row22 [$diag addRow attribute 0.0]
  166. $row22 setLabel "name_type" "\$caMinimize: enum"
  167. $row22 setProp "is_class_feature" "1"
  168. $row22 setScope "name_type" "cl" "scopePhase"
  169.  
  170. $diag save
  171.  
  172. # Generator: et.tcl    /main/titanic/10
  173. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  174. # Interpreter to use: Otsh V7.1.1/B5
  175. #
  176. OTShRegister::importTool
  177.  
  178. set diag [CAD new ExtCtrlsTypes "DelphiVCL" "" "" "" "" "" 1]
  179.  
  180. set node23 [$diag addNode cad_class 528.0 848.0 134.0 131.0]
  181. $node23 setLabel "name" "TProgressStage"
  182. $node23 setScope "name" "cl" "scopePhase"
  183.  
  184. $diag save
  185.  
  186. # Generator: et.tcl    /main/titanic/10
  187. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  188. # Interpreter to use: Otsh V7.1.1/B5
  189. #
  190. OTShRegister::importTool
  191.  
  192. set diag [CDM new TCustomPanel "DelphiVCL" "" "" "" "" "" 1]
  193.  
  194. set row24 [$diag addRow method 0.0]
  195. $row24 setLabel "name_type" "Resize ()"
  196. $row24 setProp "has_parmlist" "1"
  197. $row24 setProp "is_event" "1"
  198. $row24 setProp "method_access" "Protected"
  199.  
  200. set cell25 [$row24 addCell parameter 0.0]
  201. $cell25 setLabel "name_type" "Sender: TObject"
  202. $cell25 setScope "name_type" "cl" "scopePhase"
  203. $cell25 setProp "is_declaration" "1" "name_type" "cl"
  204. $cell25 setProp "libunit" "System" "name_type" "cl"
  205. $cell25 setScope "name_type" "de" "scopeFile"
  206.  
  207. $diag save
  208.  
  209. # Generator: et.tcl    /main/titanic/10
  210. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  211. # Interpreter to use: Otsh V7.1.1/B5
  212. #
  213. OTShRegister::importTool
  214.  
  215. set diag [CDM new THeader "DelphiVCL" "" "" "" "" "" 1]
  216.  
  217. set row26 [$diag addRow method 0.0]
  218. $row26 setLabel "name_type" "Enter ()\n"
  219. $row26 setProp "has_parmlist" "1"
  220. $row26 setProp "is_event" "1"
  221. $row26 setProp "method_access" "Published"
  222.  
  223. set row27 [$diag addRow method 0.0]
  224. $row27 setLabel "name_type" "Exit ()\n"
  225. $row27 setProp "has_parmlist" "1"
  226. $row27 setProp "is_event" "1"
  227. $row27 setProp "method_access" "Published"
  228.  
  229. set row28 [$diag addRow method 0.0]
  230. $row28 setLabel "name_type" "Sized ()\n"
  231. $row28 setProp "has_parmlist" "1"
  232. $row28 setProp "is_event" "1"
  233. $row28 setProp "method_access" "Published"
  234.  
  235. set cell29 [$row28 addCell parameter 0.0]
  236. $cell29 setLabel "name_type" "Sender: TObject, "
  237. $cell29 setScope "name_type" "cl" "scopePhase"
  238. $cell29 setProp "is_declaration" "1" "name_type" "cl"
  239. $cell29 setProp "libunit" "System" "name_type" "cl"
  240. $cell29 setScope "name_type" "de" "scopeFile"
  241.  
  242. set cell30 [$row28 addCell parameter 0.0]
  243. $cell30 setLabel "name_type" "ASection: int, "
  244. $cell30 setScope "name_type" "cl" "scopePhase"
  245. $cell30 setScope "name_type" "de" "scopeFile"
  246.  
  247. set cell31 [$row28 addCell parameter 0.0]
  248. $cell31 setLabel "name_type" "AWidth: int"
  249. $cell31 setScope "name_type" "cl" "scopePhase"
  250. $cell31 setScope "name_type" "de" "scopeFile"
  251.  
  252. set row32 [$diag addRow method 0.0]
  253. $row32 setLabel "name_type" "Sizing ()"
  254. $row32 setProp "has_parmlist" "1"
  255. $row32 setProp "is_event" "1"
  256. $row32 setProp "method_access" "Published"
  257.  
  258. set cell33 [$row32 addCell parameter 0.0]
  259. $cell33 setLabel "name_type" "Sender: TObject, "
  260. $cell33 setScope "name_type" "cl" "scopePhase"
  261. $cell33 setProp "is_declaration" "1" "name_type" "cl"
  262. $cell33 setProp "libunit" "System" "name_type" "cl"
  263. $cell33 setScope "name_type" "de" "scopeFile"
  264.  
  265. set cell34 [$row32 addCell parameter 0.0]
  266. $cell34 setLabel "name_type" "ASection: int, "
  267. $cell34 setScope "name_type" "cl" "scopePhase"
  268. $cell34 setScope "name_type" "de" "scopeFile"
  269.  
  270. set cell35 [$row32 addCell parameter 0.0]
  271. $cell35 setLabel "name_type" "AWidth: int"
  272. $cell35 setScope "name_type" "cl" "scopePhase"
  273. $cell35 setScope "name_type" "de" "scopeFile"
  274.  
  275. $diag save
  276.  
  277. # Generator: et.tcl    /main/titanic/10
  278. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  279. # Interpreter to use: Otsh V7.1.1/B5
  280. #
  281. OTShRegister::importTool
  282.  
  283. set diag [CDM new TImage "DelphiVCL" "" "" "" "" "" 1]
  284.  
  285. set row36 [$diag addRow method 0.0]
  286. $row36 setLabel "name_type" "Click()\n"
  287. $row36 setProp "has_parmlist" "1"
  288. $row36 setProp "is_event" "1"
  289. $row36 setProp "method_access" "Published"
  290.  
  291. set row37 [$diag addRow method 0.0]
  292. $row37 setLabel "name_type" "DblClick()\n"
  293. $row37 setProp "has_parmlist" "1"
  294. $row37 setProp "is_event" "1"
  295. $row37 setProp "method_access" "Published"
  296.  
  297. set row38 [$diag addRow method 0.0]
  298. $row38 setLabel "name_type" "DragDrop()\n"
  299. $row38 setProp "has_parmlist" "1"
  300. $row38 setProp "is_event" "1"
  301. $row38 setProp "method_access" "Published"
  302.  
  303. set row39 [$diag addRow method 0.0]
  304. $row39 setLabel "name_type" "DragOver()\n"
  305. $row39 setProp "has_parmlist" "1"
  306. $row39 setProp "is_event" "1"
  307. $row39 setProp "method_access" "Published"
  308.  
  309. set row40 [$diag addRow method 0.0]
  310. $row40 setLabel "name_type" "EndDrag()\n"
  311. $row40 setProp "has_parmlist" "1"
  312. $row40 setProp "is_event" "1"
  313. $row40 setProp "method_access" "Published"
  314.  
  315. set row41 [$diag addRow method 0.0]
  316. $row41 setLabel "name_type" "MouseDown()\n"
  317. $row41 setProp "has_parmlist" "1"
  318. $row41 setProp "is_event" "1"
  319. $row41 setProp "method_access" "Published"
  320.  
  321. set row42 [$diag addRow method 0.0]
  322. $row42 setLabel "name_type" "MouseMove()\n"
  323. $row42 setProp "has_parmlist" "1"
  324. $row42 setProp "is_event" "1"
  325. $row42 setProp "method_access" "Published"
  326.  
  327. set row43 [$diag addRow method 0.0]
  328. $row43 setLabel "name_type" "MouseUp()\n"
  329. $row43 setProp "has_parmlist" "1"
  330. $row43 setProp "is_event" "1"
  331. $row43 setProp "method_access" "Published"
  332.  
  333. set row44 [$diag addRow method 0.0]
  334. $row44 setLabel "name_type" "Progress()\n"
  335. $row44 setProp "has_parmlist" "1"
  336. $row44 setProp "is_event" "1"
  337. $row44 setProp "method_access" "Published"
  338.  
  339. set cell45 [$row44 addCell parameter 0.0]
  340. $cell45 setLabel "name_type" "Sender: TObject, "
  341. $cell45 setScope "name_type" "cl" "scopePhase"
  342. $cell45 setProp "is_declaration" "1" "name_type" "cl"
  343. $cell45 setProp "libunit" "System" "name_type" "cl"
  344. $cell45 setScope "name_type" "de" "scopeFile"
  345.  
  346. set cell46 [$row44 addCell parameter 0.0]
  347. $cell46 setLabel "name_type" "Stage: TProgressStage, "
  348. $cell46 setScope "name_type" "cl" "scopePhase"
  349. $cell46 setScope "name_type" "de" "scopeFile"
  350.  
  351. set cell47 [$row44 addCell parameter 0.0]
  352. $cell47 setLabel "name_type" "PercentDone: Byte, "
  353. $cell47 setScope "name_type" "cl" "scopePhase"
  354. $cell47 setScope "name_type" "de" "scopeFile"
  355.  
  356. set cell48 [$row44 addCell parameter 0.0]
  357. $cell48 setLabel "name_type" "RedrawNow: Boolean, "
  358. $cell48 setScope "name_type" "cl" "scopePhase"
  359. $cell48 setScope "name_type" "de" "scopeFile"
  360.  
  361. set cell49 [$row44 addCell parameter 0.0]
  362. $cell49 setLabel "name_type" "R: TRect, "
  363. $cell49 setProp "pass_by" "Constant"
  364. $cell49 setScope "name_type" "cl" "scopePhase"
  365. $cell49 setProp "libunit" "Other" "name_type" "cl"
  366. $cell49 setProp "userlib" "Windows" "name_type" "cl"
  367. $cell49 setScope "name_type" "de" "scopeFile"
  368.  
  369. set cell50 [$row44 addCell parameter 0.0]
  370. $cell50 setLabel "name_type" "Msg: string"
  371. $cell50 setProp "pass_by" "Constant"
  372. $cell50 setScope "name_type" "cl" "scopePhase"
  373. $cell50 setScope "name_type" "de" "scopeFile"
  374.  
  375. set row51 [$diag addRow method 0.0]
  376. $row51 setLabel "name_type" "StartDrag()"
  377. $row51 setProp "has_parmlist" "1"
  378. $row51 setProp "is_event" "1"
  379. $row51 setProp "method_access" "Published"
  380.  
  381. $diag save
  382.  
  383. # Generator: et.tcl    /main/titanic/10
  384. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  385. # Interpreter to use: Otsh V7.1.1/B5
  386. #
  387. OTShRegister::importTool
  388.  
  389. set diag [CDM new TNotebook "DelphiVCL" "" "" "" "" "" 1]
  390.  
  391. set row52 [$diag addRow method 0.0]
  392. $row52 setLabel "name_type" "Click()\n"
  393. $row52 setProp "has_parmlist" "1"
  394. $row52 setProp "is_event" "1"
  395. $row52 setProp "method_access" "Published"
  396.  
  397. set row53 [$diag addRow method 0.0]
  398. $row53 setLabel "name_type" "DblClick()\n"
  399. $row53 setProp "has_parmlist" "1"
  400. $row53 setProp "is_event" "1"
  401. $row53 setProp "method_access" "Published"
  402.  
  403. set row54 [$diag addRow method 0.0]
  404. $row54 setLabel "name_type" "DragDrop()\n"
  405. $row54 setProp "has_parmlist" "1"
  406. $row54 setProp "is_event" "1"
  407. $row54 setProp "method_access" "Published"
  408.  
  409. set row55 [$diag addRow method 0.0]
  410. $row55 setLabel "name_type" "DragOver()\n"
  411. $row55 setProp "has_parmlist" "1"
  412. $row55 setProp "is_event" "1"
  413. $row55 setProp "method_access" "Published"
  414.  
  415. set row56 [$diag addRow method 0.0]
  416. $row56 setLabel "name_type" "EndDrag()\n"
  417. $row56 setProp "has_parmlist" "1"
  418. $row56 setProp "is_event" "1"
  419. $row56 setProp "method_access" "Published"
  420.  
  421. set row57 [$diag addRow method 0.0]
  422. $row57 setLabel "name_type" "Enter()\n"
  423. $row57 setProp "has_parmlist" "1"
  424. $row57 setProp "is_event" "1"
  425. $row57 setProp "method_access" "Published"
  426.  
  427. set row58 [$diag addRow method 0.0]
  428. $row58 setLabel "name_type" "Exit()\n"
  429. $row58 setProp "has_parmlist" "1"
  430. $row58 setProp "is_event" "1"
  431. $row58 setProp "method_access" "Published"
  432.  
  433. set row59 [$diag addRow method 0.0]
  434. $row59 setLabel "name_type" "MouseDown()\n"
  435. $row59 setProp "has_parmlist" "1"
  436. $row59 setProp "is_event" "1"
  437. $row59 setProp "method_access" "Published"
  438.  
  439. set row60 [$diag addRow method 0.0]
  440. $row60 setLabel "name_type" "MouseMove()\n"
  441. $row60 setProp "has_parmlist" "1"
  442. $row60 setProp "is_event" "1"
  443. $row60 setProp "method_access" "Published"
  444.  
  445. set row61 [$diag addRow method 0.0]
  446. $row61 setLabel "name_type" "MouseUp()\n"
  447. $row61 setProp "has_parmlist" "1"
  448. $row61 setProp "is_event" "1"
  449. $row61 setProp "method_access" "Published"
  450.  
  451. set row62 [$diag addRow method 0.0]
  452. $row62 setLabel "name_type" "PageChanged()\n"
  453. $row62 setProp "has_parmlist" "1"
  454. $row62 setProp "is_event" "1"
  455. $row62 setProp "method_access" "Published"
  456.  
  457. set cell63 [$row62 addCell parameter 0.0]
  458. $cell63 setLabel "name_type" "Sender: TObject"
  459. $cell63 setScope "name_type" "cl" "scopePhase"
  460. $cell63 setProp "is_declaration" "1" "name_type" "cl"
  461. $cell63 setProp "libunit" "System" "name_type" "cl"
  462. $cell63 setScope "name_type" "de" "scopeFile"
  463.  
  464. set row64 [$diag addRow method 0.0]
  465. $row64 setLabel "name_type" "StartDrag()"
  466. $row64 setProp "has_parmlist" "1"
  467. $row64 setProp "is_event" "1"
  468. $row64 setProp "method_access" "Published"
  469.  
  470. $diag save
  471.  
  472. # Generator: et.tcl    /main/titanic/10
  473. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  474. # Interpreter to use: Otsh V7.1.1/B5
  475. #
  476. OTShRegister::importTool
  477.  
  478. set diag [CDM new TPanel "DelphiVCL" "" "" "" "" "" 1]
  479.  
  480. set row65 [$diag addRow method 0.0]
  481. $row65 setLabel "name_type" "Click()\n"
  482. $row65 setProp "has_parmlist" "1"
  483. $row65 setProp "is_event" "1"
  484. $row65 setProp "method_access" "Published"
  485.  
  486. set row66 [$diag addRow method 0.0]
  487. $row66 setLabel "name_type" "DblClick()\n"
  488. $row66 setProp "has_parmlist" "1"
  489. $row66 setProp "is_event" "1"
  490. $row66 setProp "method_access" "Published"
  491.  
  492. set row67 [$diag addRow method 0.0]
  493. $row67 setLabel "name_type" "DragDrop()\n"
  494. $row67 setProp "has_parmlist" "1"
  495. $row67 setProp "is_event" "1"
  496. $row67 setProp "method_access" "Published"
  497.  
  498. set row68 [$diag addRow method 0.0]
  499. $row68 setLabel "name_type" "DragOver()\n"
  500. $row68 setProp "has_parmlist" "1"
  501. $row68 setProp "is_event" "1"
  502. $row68 setProp "method_access" "Published"
  503.  
  504. set row69 [$diag addRow method 0.0]
  505. $row69 setLabel "name_type" "EndDrag()\n"
  506. $row69 setProp "has_parmlist" "1"
  507. $row69 setProp "is_event" "1"
  508. $row69 setProp "method_access" "Published"
  509.  
  510. set row70 [$diag addRow method 0.0]
  511. $row70 setLabel "name_type" "Enter()\n"
  512. $row70 setProp "has_parmlist" "1"
  513. $row70 setProp "is_event" "1"
  514. $row70 setProp "method_access" "Published"
  515.  
  516. set row71 [$diag addRow method 0.0]
  517. $row71 setLabel "name_type" "Exit()\n"
  518. $row71 setProp "has_parmlist" "1"
  519. $row71 setProp "is_event" "1"
  520. $row71 setProp "method_access" "Published"
  521.  
  522. set row72 [$diag addRow method 0.0]
  523. $row72 setLabel "name_type" "MouseDown()\n"
  524. $row72 setProp "has_parmlist" "1"
  525. $row72 setProp "is_event" "1"
  526. $row72 setProp "method_access" "Published"
  527.  
  528. set row73 [$diag addRow method 0.0]
  529. $row73 setLabel "name_type" "MouseMove()\n"
  530. $row73 setProp "has_parmlist" "1"
  531. $row73 setProp "is_event" "1"
  532. $row73 setProp "method_access" "Published"
  533.  
  534. set row74 [$diag addRow method 0.0]
  535. $row74 setLabel "name_type" "MouseUp()\n"
  536. $row74 setProp "has_parmlist" "1"
  537. $row74 setProp "is_event" "1"
  538. $row74 setProp "method_access" "Published"
  539.  
  540. set row75 [$diag addRow method 0.0]
  541. $row75 setLabel "name_type" "Resize()\n"
  542. $row75 setProp "has_parmlist" "1"
  543. $row75 setProp "is_event" "1"
  544. $row75 setProp "method_access" "Published"
  545.  
  546. set row76 [$diag addRow method 0.0]
  547. $row76 setLabel "name_type" "StartDrag()"
  548. $row76 setProp "has_parmlist" "1"
  549. $row76 setProp "is_event" "1"
  550. $row76 setProp "method_access" "Published"
  551.  
  552. $diag save
  553.  
  554. # Generator: et.tcl    /main/titanic/10
  555. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  556. # Interpreter to use: Otsh V7.1.1/B5
  557. #
  558. OTShRegister::importTool
  559.  
  560. set diag [CDM new TRadioGroup "DelphiVCL" "" "" "" "" "" 1]
  561.  
  562. set row77 [$diag addRow method 0.0]
  563. $row77 setLabel "name_type" "Click()\n"
  564. $row77 setProp "has_parmlist" "1"
  565. $row77 setProp "is_event" "1"
  566. $row77 setProp "method_access" "Published"
  567.  
  568. set row78 [$diag addRow method 0.0]
  569. $row78 setLabel "name_type" "DragDrop()\n"
  570. $row78 setProp "has_parmlist" "1"
  571. $row78 setProp "is_event" "1"
  572. $row78 setProp "method_access" "Published"
  573.  
  574. set row79 [$diag addRow method 0.0]
  575. $row79 setLabel "name_type" "DragOver()\n"
  576. $row79 setProp "has_parmlist" "1"
  577. $row79 setProp "is_event" "1"
  578. $row79 setProp "method_access" "Published"
  579.  
  580. set row80 [$diag addRow method 0.0]
  581. $row80 setLabel "name_type" "EndDrag()\n"
  582. $row80 setProp "has_parmlist" "1"
  583. $row80 setProp "is_event" "1"
  584. $row80 setProp "method_access" "Published"
  585.  
  586. set row81 [$diag addRow method 0.0]
  587. $row81 setLabel "name_type" "Enter()\n"
  588. $row81 setProp "has_parmlist" "1"
  589. $row81 setProp "is_event" "1"
  590. $row81 setProp "method_access" "Published"
  591.  
  592. set row82 [$diag addRow method 0.0]
  593. $row82 setLabel "name_type" "Exit()\n"
  594. $row82 setProp "has_parmlist" "1"
  595. $row82 setProp "is_event" "1"
  596. $row82 setProp "method_access" "Published"
  597.  
  598. set row83 [$diag addRow method 0.0]
  599. $row83 setLabel "name_type" "StartDrag()"
  600. $row83 setProp "has_parmlist" "1"
  601. $row83 setProp "is_event" "1"
  602. $row83 setProp "method_access" "Published"
  603.  
  604. $diag save
  605.  
  606. # Generator: et.tcl    /main/titanic/10
  607. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  608. # Interpreter to use: Otsh V7.1.1/B5
  609. #
  610. OTShRegister::importTool
  611.  
  612. set diag [CDM new TShape "DelphiVCL" "" "" "" "" "" 1]
  613.  
  614. set row84 [$diag addRow method 0.0]
  615. $row84 setLabel "name_type" "DragDrop()\n"
  616. $row84 setProp "has_parmlist" "1"
  617. $row84 setProp "is_event" "1"
  618. $row84 setProp "method_access" "Published"
  619.  
  620. set row85 [$diag addRow method 0.0]
  621. $row85 setLabel "name_type" "DragOver()\n"
  622. $row85 setProp "has_parmlist" "1"
  623. $row85 setProp "is_event" "1"
  624. $row85 setProp "method_access" "Published"
  625.  
  626. set row86 [$diag addRow method 0.0]
  627. $row86 setLabel "name_type" "EndDrag()\n"
  628. $row86 setProp "has_parmlist" "1"
  629. $row86 setProp "is_event" "1"
  630. $row86 setProp "method_access" "Published"
  631.  
  632. set row87 [$diag addRow method 0.0]
  633. $row87 setLabel "name_type" "MouseDown()\n"
  634. $row87 setProp "has_parmlist" "1"
  635. $row87 setProp "is_event" "1"
  636. $row87 setProp "method_access" "Published"
  637.  
  638. set row88 [$diag addRow method 0.0]
  639. $row88 setLabel "name_type" "MouseMove()\n"
  640. $row88 setProp "has_parmlist" "1"
  641. $row88 setProp "is_event" "1"
  642. $row88 setProp "method_access" "Published"
  643.  
  644. set row89 [$diag addRow method 0.0]
  645. $row89 setLabel "name_type" "MouseUp()\n"
  646. $row89 setProp "has_parmlist" "1"
  647. $row89 setProp "is_event" "1"
  648. $row89 setProp "method_access" "Published"
  649.  
  650. set row90 [$diag addRow method 0.0]
  651. $row90 setLabel "name_type" "StartDrag()"
  652. $row90 setProp "has_parmlist" "1"
  653. $row90 setProp "is_event" "1"
  654. $row90 setProp "method_access" "Published"
  655.  
  656. $diag save
  657.  
  658. # Generator: et.tcl    /main/titanic/10
  659. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  660. # Interpreter to use: Otsh V7.1.1/B5
  661. #
  662. OTShRegister::importTool
  663.  
  664. set diag [CDM new TTimer "DelphiVCL" "" "" "" "" "" 1]
  665.  
  666. set row91 [$diag addRow method 0.0]
  667. $row91 setLabel "name_type" "Timer()"
  668. $row91 setProp "has_parmlist" "1"
  669. $row91 setProp "is_event" "1"
  670.  
  671. set cell92 [$row91 addCell parameter 0.0]
  672. $cell92 setLabel "name_type" "Sender: TObject"
  673. $cell92 setScope "name_type" "cl" "scopePhase"
  674. $cell92 setProp "is_declaration" "1" "name_type" "cl"
  675. $cell92 setProp "libunit" "System" "name_type" "cl"
  676. $cell92 setScope "name_type" "de" "scopeFile"
  677.  
  678. $diag save
  679.  
  680. # Generator: et.tcl    /main/titanic/10
  681. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  682. # Interpreter to use: Otsh V7.1.1/B5
  683. #
  684. OTShRegister::importTool
  685.  
  686. set diag [CDM new TDataBase "DelphiVCL" "" "" "" "" "" 1]
  687.  
  688. set row93 [$diag addRow method 0.0]
  689. $row93 setLabel "name_type" "Login()"
  690. $row93 setProp "has_parmlist" "1"
  691. $row93 setProp "is_event" "1"
  692. $row93 setProp "method_access" "Published"
  693.  
  694. set cell94 [$row93 addCell parameter 0.0]
  695. $cell94 setLabel "name_type" "DataBase: TDataBase, "
  696. $cell94 setScope "name_type" "cl" "scopePhase"
  697. $cell94 setProp "is_declaration" "1" "name_type" "cl"
  698. $cell94 setProp "libunit" "Other" "name_type" "cl"
  699. $cell94 setProp "userlib" "DB" "name_type" "cl"
  700. $cell94 setScope "name_type" "de" "scopeFile"
  701.  
  702. set cell95 [$row93 addCell parameter 0.0]
  703. $cell95 setLabel "name_type" "LoginParam: TStrings"
  704. $cell95 setScope "name_type" "cl" "scopePhase"
  705. $cell95 setProp "is_declaration" "1" "name_type" "cl"
  706. $cell95 setProp "libunit" "Classes" "name_type" "cl"
  707. $cell95 setScope "name_type" "de" "scopeFile"
  708.  
  709. $diag save
  710.  
  711. # Generator: et.tcl    /main/titanic/10
  712. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  713. # Interpreter to use: Otsh V7.1.1/B5
  714. #
  715. OTShRegister::importTool
  716.  
  717. set diag [CDM new TDataSource "DelphiVCL" "" "" "" "" "" 1]
  718.  
  719. set row96 [$diag addRow method 0.0]
  720. $row96 setLabel "name_type" "DataChange()\n"
  721. $row96 setProp "has_parmlist" "1"
  722. $row96 setProp "is_event" "1"
  723. $row96 setProp "method_access" "Published"
  724.  
  725. set cell97 [$row96 addCell parameter 0.0]
  726. $cell97 setLabel "name_type" "Sender: TObject, "
  727. $cell97 setScope "name_type" "cl" "scopePhase"
  728. $cell97 setProp "is_declaration" "1" "name_type" "cl"
  729. $cell97 setProp "libunit" "System" "name_type" "cl"
  730. $cell97 setScope "name_type" "de" "scopeFile"
  731.  
  732. set cell98 [$row96 addCell parameter 0.0]
  733. $cell98 setLabel "name_type" "Field: TField"
  734. $cell98 setScope "name_type" "cl" "scopePhase"
  735. $cell98 setProp "is_declaration" "1" "name_type" "cl"
  736. $cell98 setProp "libunit" "Other" "name_type" "cl"
  737. $cell98 setProp "userlib" "DB" "name_type" "cl"
  738. $cell98 setScope "name_type" "de" "scopeFile"
  739.  
  740. set row99 [$diag addRow method 0.0]
  741. $row99 setLabel "name_type" "StateChange()\n"
  742. $row99 setProp "has_parmlist" "1"
  743. $row99 setProp "is_event" "1"
  744. $row99 setProp "method_access" "Published"
  745.  
  746. set cell100 [$row99 addCell parameter 0.0]
  747. $cell100 setLabel "name_type" "Sender: TObject"
  748. $cell100 setScope "name_type" "cl" "scopePhase"
  749. $cell100 setProp "is_declaration" "1" "name_type" "cl"
  750. $cell100 setProp "libunit" "System" "name_type" "cl"
  751. $cell100 setScope "name_type" "de" "scopeFile"
  752.  
  753. set row101 [$diag addRow method 0.0]
  754. $row101 setLabel "name_type" "UpdateData()"
  755. $row101 setProp "has_parmlist" "1"
  756. $row101 setProp "is_event" "1"
  757. $row101 setProp "method_access" "Published"
  758.  
  759. set cell102 [$row101 addCell parameter 0.0]
  760. $cell102 setLabel "name_type" "Sender: TObject"
  761. $cell102 setScope "name_type" "cl" "scopePhase"
  762. $cell102 setProp "is_declaration" "1" "name_type" "cl"
  763. $cell102 setProp "libunit" "System" "name_type" "cl"
  764. $cell102 setScope "name_type" "de" "scopeFile"
  765.  
  766. $diag save
  767.  
  768. # Generator: et.tcl    /main/titanic/10
  769. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  770. # Interpreter to use: Otsh V7.1.1/B5
  771. #
  772. OTShRegister::importTool
  773.  
  774. set diag [CDM new TSession "DelphiVCL" "" "" "" "" "" 1]
  775.  
  776. set row103 [$diag addRow method 0.0]
  777. $row103 setLabel "name_type" "DBNotify()\n"
  778. $row103 setProp "has_parmlist" "1"
  779. $row103 setProp "is_event" "1"
  780. $row103 setProp "method_access" "Protected"
  781.  
  782. set cell104 [$row103 addCell parameter 0.0]
  783. $cell104 setLabel "name_type" "DBEvent: TDatabaseEvent, "
  784. $cell104 setScope "name_type" "cl" "scopePhase"
  785. $cell104 setScope "name_type" "de" "scopeFile"
  786.  
  787. set cell105 [$row103 addCell parameter 0.0]
  788. $cell105 setLabel "name_type" "Param: int"
  789. $cell105 setProp "pass_by" "Constant"
  790. $cell105 setScope "name_type" "cl" "scopePhase"
  791. $cell105 setScope "name_type" "de" "scopeFile"
  792.  
  793. set row106 [$diag addRow method 0.0]
  794. $row106 setLabel "name_type" "Password()\n"
  795. $row106 setProp "has_parmlist" "1"
  796. $row106 setProp "is_event" "1"
  797. $row106 setProp "method_access" "Published"
  798.  
  799. set cell107 [$row106 addCell parameter 0.0]
  800. $cell107 setLabel "name_type" "Sender: TObject, "
  801. $cell107 setScope "name_type" "cl" "scopePhase"
  802. $cell107 setProp "is_declaration" "1" "name_type" "cl"
  803. $cell107 setProp "libunit" "System" "name_type" "cl"
  804. $cell107 setScope "name_type" "de" "scopeFile"
  805.  
  806. set cell108 [$row106 addCell parameter 0.0]
  807. $cell108 setLabel "name_type" "Continue: boolean"
  808. $cell108 setProp "pass_by" "Variable"
  809. $cell108 setScope "name_type" "cl" "scopePhase"
  810. $cell108 setScope "name_type" "de" "scopeFile"
  811.  
  812. set row109 [$diag addRow method 0.0]
  813. $row109 setLabel "name_type" "Startup()"
  814. $row109 setProp "has_parmlist" "1"
  815. $row109 setProp "is_event" "1"
  816. $row109 setProp "method_access" "Published"
  817.  
  818. set cell110 [$row109 addCell parameter 0.0]
  819. $cell110 setLabel "name_type" "Sender: TObject"
  820. $cell110 setScope "name_type" "cl" "scopePhase"
  821. $cell110 setProp "is_declaration" "1" "name_type" "cl"
  822. $cell110 setProp "libunit" "System" "name_type" "cl"
  823. $cell110 setScope "name_type" "de" "scopeFile"
  824.  
  825. $diag save
  826.  
  827. # Generator: et.tcl    /main/titanic/10
  828. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  829. # Interpreter to use: Otsh V7.1.1/B5
  830. #
  831. OTShRegister::importTool
  832.  
  833. set diag [CDM new TField "DelphiVCL" "" "" "" "" "" 1]
  834.  
  835. set row111 [$diag addRow method 0.0]
  836. $row111 setLabel "name_type" "Change()\n"
  837. $row111 setProp "has_parmlist" "1"
  838. $row111 setProp "is_event" "1"
  839. $row111 setProp "method_access" "Published"
  840.  
  841. set cell112 [$row111 addCell parameter 0.0]
  842. $cell112 setLabel "name_type" "Sender: TField"
  843. $cell112 setScope "name_type" "cl" "scopePhase"
  844. $cell112 setProp "is_declaration" "1" "name_type" "cl"
  845. $cell112 setProp "libunit" "Other" "name_type" "cl"
  846. $cell112 setProp "userlib" "DB" "name_type" "cl"
  847. $cell112 setScope "name_type" "de" "scopeFile"
  848.  
  849. set row113 [$diag addRow method 0.0]
  850. $row113 setLabel "name_type" "GetText()\n"
  851. $row113 setProp "has_parmlist" "1"
  852. $row113 setProp "is_event" "1"
  853. $row113 setProp "method_access" "Published"
  854.  
  855. set cell114 [$row113 addCell parameter 0.0]
  856. $cell114 setLabel "name_type" "Sender: TField, "
  857. $cell114 setScope "name_type" "cl" "scopePhase"
  858. $cell114 setProp "is_declaration" "1" "name_type" "cl"
  859. $cell114 setProp "libunit" "Other" "name_type" "cl"
  860. $cell114 setProp "userlib" "DB" "name_type" "cl"
  861. $cell114 setScope "name_type" "de" "scopeFile"
  862.  
  863. set cell115 [$row113 addCell parameter 0.0]
  864. $cell115 setLabel "name_type" "Text: string, "
  865. $cell115 setProp "pass_by" "Variable"
  866. $cell115 setScope "name_type" "cl" "scopePhase"
  867. $cell115 setScope "name_type" "de" "scopeFile"
  868.  
  869. set cell116 [$row113 addCell parameter 0.0]
  870. $cell116 setLabel "name_type" "DisplayText: boolean"
  871. $cell116 setScope "name_type" "cl" "scopePhase"
  872. $cell116 setScope "name_type" "de" "scopeFile"
  873.  
  874. set row117 [$diag addRow method 0.0]
  875. $row117 setLabel "name_type" "SetText()\n"
  876. $row117 setProp "has_parmlist" "1"
  877. $row117 setProp "is_event" "1"
  878. $row117 setProp "method_access" "Published"
  879.  
  880. set cell118 [$row117 addCell parameter 0.0]
  881. $cell118 setLabel "name_type" "Sender: TField, "
  882. $cell118 setScope "name_type" "cl" "scopePhase"
  883. $cell118 setProp "is_declaration" "1" "name_type" "cl"
  884. $cell118 setProp "libunit" "Other" "name_type" "cl"
  885. $cell118 setProp "userlib" "DB" "name_type" "cl"
  886. $cell118 setScope "name_type" "de" "scopeFile"
  887.  
  888. set cell119 [$row117 addCell parameter 0.0]
  889. $cell119 setLabel "name_type" "Text: string"
  890. $cell119 setProp "pass_by" "Constant"
  891. $cell119 setScope "name_type" "cl" "scopePhase"
  892. $cell119 setScope "name_type" "de" "scopeFile"
  893.  
  894. set row120 [$diag addRow method 0.0]
  895. $row120 setLabel "name_type" "Validate()"
  896. $row120 setProp "has_parmlist" "1"
  897. $row120 setProp "is_event" "1"
  898. $row120 setProp "method_access" "Published"
  899.  
  900. set cell121 [$row120 addCell parameter 0.0]
  901. $cell121 setLabel "name_type" "Sender: TField"
  902. $cell121 setScope "name_type" "cl" "scopePhase"
  903. $cell121 setProp "is_declaration" "1" "name_type" "cl"
  904. $cell121 setProp "libunit" "Other" "name_type" "cl"
  905. $cell121 setProp "userlib" "DB" "name_type" "cl"
  906. $cell121 setScope "name_type" "de" "scopeFile"
  907.  
  908. $diag save
  909.  
  910. # Generator: et.tcl    /main/titanic/10
  911. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  912. # Interpreter to use: Otsh V7.1.1/B5
  913. #
  914. OTShRegister::importTool
  915.  
  916. set diag [CDM new TDataModule "DelphiVCL" "" "" "" "" "" 1]
  917.  
  918. set row122 [$diag addRow method 0.0]
  919. $row122 setLabel "name_type" "Create()\n"
  920. $row122 setProp "has_parmlist" "1"
  921. $row122 setProp "is_event" "1"
  922. $row122 setProp "method_access" "Published"
  923. $row122 setProp "method_access" "Public" "name_type" "pe"
  924.  
  925. set cell123 [$row122 addCell parameter 0.0]
  926. $cell123 setLabel "name_type" "Sender: TObject"
  927. $cell123 setScope "name_type" "cl" "scopePhase"
  928. $cell123 setProp "is_declaration" "1" "name_type" "cl"
  929. $cell123 setProp "libunit" "System" "name_type" "cl"
  930. $cell123 setScope "name_type" "de" "scopeFile"
  931.  
  932. set row124 [$diag addRow method 0.0]
  933. $row124 setLabel "name_type" "Destroy() "
  934. $row124 setProp "has_parmlist" "1"
  935. $row124 setProp "is_event" "1"
  936. $row124 setProp "method_access" "Published"
  937. $row124 setProp "method_access" "Public" "name_type" "pe"
  938.  
  939. set cell125 [$row124 addCell parameter 0.0]
  940. $cell125 setLabel "name_type" "Sender: TObject"
  941. $cell125 setScope "name_type" "cl" "scopePhase"
  942. $cell125 setProp "is_declaration" "1" "name_type" "cl"
  943. $cell125 setProp "libunit" "System" "name_type" "cl"
  944. $cell125 setScope "name_type" "de" "scopeFile"
  945.  
  946. $diag save
  947.  
  948. # Generator: et.tcl    /main/titanic/10
  949. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  950. # Interpreter to use: Otsh V7.1.1/B5
  951. #
  952. OTShRegister::importTool
  953.  
  954. set diag [CDM new TDBDataSet "DelphiVCL" "" "" "" "" "" 1]
  955.  
  956. $diag save
  957.  
  958. # Generator: et.tcl    /main/titanic/10
  959. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  960. # Interpreter to use: Otsh V7.1.1/B5
  961. #
  962. OTShRegister::importTool
  963.  
  964. set diag [CDM new TDataSet "DelphiVCL" "" "" "" "" "" 1]
  965.  
  966. set row126 [$diag addRow method 0.0]
  967. $row126 setLabel "name_type" "AfterCancel()\n"
  968. $row126 setProp "has_parmlist" "1"
  969. $row126 setProp "is_event" "1"
  970. $row126 setProp "method_access" "Published"
  971.  
  972. set cell127 [$row126 addCell parameter 0.0]
  973. $cell127 setLabel "name_type" "DataSet: TDataSet"
  974. $cell127 setScope "name_type" "cl" "scopePhase"
  975. $cell127 setProp "is_declaration" "1" "name_type" "cl"
  976. $cell127 setProp "libunit" "Other" "name_type" "cl"
  977. $cell127 setProp "userlib" "DB" "name_type" "cl"
  978. $cell127 setScope "name_type" "de" "scopeFile"
  979.  
  980. set row128 [$diag addRow method 0.0]
  981. $row128 setLabel "name_type" "AfterClose()\n"
  982. $row128 setProp "has_parmlist" "1"
  983. $row128 setProp "is_event" "1"
  984. $row128 setProp "method_access" "Published"
  985.  
  986. set cell129 [$row128 addCell parameter 0.0]
  987. $cell129 setLabel "name_type" "DataSet: TDataSet"
  988. $cell129 setScope "name_type" "cl" "scopePhase"
  989. $cell129 setProp "is_declaration" "1" "name_type" "cl"
  990. $cell129 setProp "libunit" "Other" "name_type" "cl"
  991. $cell129 setProp "userlib" "DB" "name_type" "cl"
  992. $cell129 setScope "name_type" "de" "scopeFile"
  993.  
  994. set row130 [$diag addRow method 0.0]
  995. $row130 setLabel "name_type" "AfterDelete()\n"
  996. $row130 setProp "has_parmlist" "1"
  997. $row130 setProp "is_event" "1"
  998. $row130 setProp "method_access" "Published"
  999.  
  1000. set cell131 [$row130 addCell parameter 0.0]
  1001. $cell131 setLabel "name_type" "DataSet: TDataSet"
  1002. $cell131 setScope "name_type" "cl" "scopePhase"
  1003. $cell131 setProp "is_declaration" "1" "name_type" "cl"
  1004. $cell131 setProp "libunit" "Other" "name_type" "cl"
  1005. $cell131 setProp "userlib" "DB" "name_type" "cl"
  1006. $cell131 setScope "name_type" "de" "scopeFile"
  1007.  
  1008. set row132 [$diag addRow method 0.0]
  1009. $row132 setLabel "name_type" "AfterEdit()\n"
  1010. $row132 setProp "has_parmlist" "1"
  1011. $row132 setProp "is_event" "1"
  1012. $row132 setProp "method_access" "Published"
  1013.  
  1014. set cell133 [$row132 addCell parameter 0.0]
  1015. $cell133 setLabel "name_type" "DataSet: TDataSet"
  1016. $cell133 setScope "name_type" "cl" "scopePhase"
  1017. $cell133 setProp "is_declaration" "1" "name_type" "cl"
  1018. $cell133 setProp "libunit" "Other" "name_type" "cl"
  1019. $cell133 setProp "userlib" "DB" "name_type" "cl"
  1020. $cell133 setScope "name_type" "de" "scopeFile"
  1021.  
  1022. set row134 [$diag addRow method 0.0]
  1023. $row134 setLabel "name_type" "AfterInsert()\n"
  1024. $row134 setProp "has_parmlist" "1"
  1025. $row134 setProp "is_event" "1"
  1026. $row134 setProp "method_access" "Published"
  1027.  
  1028. set cell135 [$row134 addCell parameter 0.0]
  1029. $cell135 setLabel "name_type" "DataSet: TDataSet"
  1030. $cell135 setScope "name_type" "cl" "scopePhase"
  1031. $cell135 setProp "is_declaration" "1" "name_type" "cl"
  1032. $cell135 setProp "libunit" "Other" "name_type" "cl"
  1033. $cell135 setProp "userlib" "DB" "name_type" "cl"
  1034. $cell135 setScope "name_type" "de" "scopeFile"
  1035.  
  1036. set row136 [$diag addRow method 0.0]
  1037. $row136 setLabel "name_type" "AfterOpen()\n"
  1038. $row136 setProp "has_parmlist" "1"
  1039. $row136 setProp "is_event" "1"
  1040. $row136 setProp "method_access" "Published"
  1041.  
  1042. set cell137 [$row136 addCell parameter 0.0]
  1043. $cell137 setLabel "name_type" "DataSet: TDataSet"
  1044. $cell137 setScope "name_type" "cl" "scopePhase"
  1045. $cell137 setProp "is_declaration" "1" "name_type" "cl"
  1046. $cell137 setProp "libunit" "Other" "name_type" "cl"
  1047. $cell137 setProp "userlib" "DB" "name_type" "cl"
  1048. $cell137 setScope "name_type" "de" "scopeFile"
  1049.  
  1050. set row138 [$diag addRow method 0.0]
  1051. $row138 setLabel "name_type" "AfterPost()\n"
  1052. $row138 setProp "has_parmlist" "1"
  1053. $row138 setProp "is_event" "1"
  1054. $row138 setProp "method_access" "Published"
  1055.  
  1056. set cell139 [$row138 addCell parameter 0.0]
  1057. $cell139 setLabel "name_type" "DataSet: TDataSet"
  1058. $cell139 setScope "name_type" "cl" "scopePhase"
  1059. $cell139 setProp "is_declaration" "1" "name_type" "cl"
  1060. $cell139 setProp "libunit" "Other" "name_type" "cl"
  1061. $cell139 setProp "userlib" "DB" "name_type" "cl"
  1062. $cell139 setScope "name_type" "de" "scopeFile"
  1063.  
  1064. set row140 [$diag addRow method 0.0]
  1065. $row140 setLabel "name_type" "BeforeCancel()\n"
  1066. $row140 setProp "has_parmlist" "1"
  1067. $row140 setProp "is_event" "1"
  1068. $row140 setProp "method_access" "Published"
  1069.  
  1070. set cell141 [$row140 addCell parameter 0.0]
  1071. $cell141 setLabel "name_type" "DataSet: TDataSet"
  1072. $cell141 setScope "name_type" "cl" "scopePhase"
  1073. $cell141 setProp "is_declaration" "1" "name_type" "cl"
  1074. $cell141 setProp "libunit" "Other" "name_type" "cl"
  1075. $cell141 setProp "userlib" "DB" "name_type" "cl"
  1076. $cell141 setScope "name_type" "de" "scopeFile"
  1077.  
  1078. set row142 [$diag addRow method 0.0]
  1079. $row142 setLabel "name_type" "BeforeClose()\n"
  1080. $row142 setProp "has_parmlist" "1"
  1081. $row142 setProp "is_event" "1"
  1082. $row142 setProp "method_access" "Published"
  1083.  
  1084. set cell143 [$row142 addCell parameter 0.0]
  1085. $cell143 setLabel "name_type" "DataSet: TDataSet"
  1086. $cell143 setScope "name_type" "cl" "scopePhase"
  1087. $cell143 setProp "is_declaration" "1" "name_type" "cl"
  1088. $cell143 setProp "libunit" "Other" "name_type" "cl"
  1089. $cell143 setProp "userlib" "DB" "name_type" "cl"
  1090. $cell143 setScope "name_type" "de" "scopeFile"
  1091.  
  1092. set row144 [$diag addRow method 0.0]
  1093. $row144 setLabel "name_type" "BeforeDelete()\n"
  1094. $row144 setProp "has_parmlist" "1"
  1095. $row144 setProp "is_event" "1"
  1096. $row144 setProp "method_access" "Published"
  1097.  
  1098. set cell145 [$row144 addCell parameter 0.0]
  1099. $cell145 setLabel "name_type" "DataSet: TDataSet"
  1100. $cell145 setScope "name_type" "cl" "scopePhase"
  1101. $cell145 setProp "is_declaration" "1" "name_type" "cl"
  1102. $cell145 setProp "libunit" "Other" "name_type" "cl"
  1103. $cell145 setProp "userlib" "DB" "name_type" "cl"
  1104. $cell145 setScope "name_type" "de" "scopeFile"
  1105.  
  1106. set row146 [$diag addRow method 0.0]
  1107. $row146 setLabel "name_type" "BeforeEdit()\n"
  1108. $row146 setProp "has_parmlist" "1"
  1109. $row146 setProp "is_event" "1"
  1110. $row146 setProp "method_access" "Published"
  1111.  
  1112. set cell147 [$row146 addCell parameter 0.0]
  1113. $cell147 setLabel "name_type" "DataSet: TDataSet"
  1114. $cell147 setScope "name_type" "cl" "scopePhase"
  1115. $cell147 setProp "is_declaration" "1" "name_type" "cl"
  1116. $cell147 setProp "libunit" "Other" "name_type" "cl"
  1117. $cell147 setProp "userlib" "DB" "name_type" "cl"
  1118. $cell147 setScope "name_type" "de" "scopeFile"
  1119.  
  1120. set row148 [$diag addRow method 0.0]
  1121. $row148 setLabel "name_type" "BeforeInsert()\n"
  1122. $row148 setProp "has_parmlist" "1"
  1123. $row148 setProp "is_event" "1"
  1124. $row148 setProp "method_access" "Published"
  1125.  
  1126. set cell149 [$row148 addCell parameter 0.0]
  1127. $cell149 setLabel "name_type" "DataSet: TDataSet"
  1128. $cell149 setScope "name_type" "cl" "scopePhase"
  1129. $cell149 setProp "is_declaration" "1" "name_type" "cl"
  1130. $cell149 setProp "libunit" "Other" "name_type" "cl"
  1131. $cell149 setProp "userlib" "DB" "name_type" "cl"
  1132. $cell149 setScope "name_type" "de" "scopeFile"
  1133.  
  1134. set row150 [$diag addRow method 0.0]
  1135. $row150 setLabel "name_type" "BeforeOpen()\n"
  1136. $row150 setProp "has_parmlist" "1"
  1137. $row150 setProp "is_event" "1"
  1138. $row150 setProp "method_access" "Published"
  1139.  
  1140. set cell151 [$row150 addCell parameter 0.0]
  1141. $cell151 setLabel "name_type" "DataSet: TDataSet"
  1142. $cell151 setScope "name_type" "cl" "scopePhase"
  1143. $cell151 setProp "is_declaration" "1" "name_type" "cl"
  1144. $cell151 setProp "libunit" "Other" "name_type" "cl"
  1145. $cell151 setProp "userlib" "DB" "name_type" "cl"
  1146. $cell151 setScope "name_type" "de" "scopeFile"
  1147.  
  1148. set row152 [$diag addRow method 0.0]
  1149. $row152 setLabel "name_type" "BeforePost()\n"
  1150. $row152 setProp "has_parmlist" "1"
  1151. $row152 setProp "is_event" "1"
  1152. $row152 setProp "method_access" "Published"
  1153.  
  1154. set cell153 [$row152 addCell parameter 0.0]
  1155. $cell153 setLabel "name_type" "DataSet: TDataSet"
  1156. $cell153 setScope "name_type" "cl" "scopePhase"
  1157. $cell153 setProp "is_declaration" "1" "name_type" "cl"
  1158. $cell153 setProp "libunit" "Other" "name_type" "cl"
  1159. $cell153 setProp "userlib" "DB" "name_type" "cl"
  1160. $cell153 setScope "name_type" "de" "scopeFile"
  1161.  
  1162. set row154 [$diag addRow method 0.0]
  1163. $row154 setLabel "name_type" "CalcFields()\n"
  1164. $row154 setProp "has_parmlist" "1"
  1165. $row154 setProp "is_event" "1"
  1166. $row154 setProp "method_access" "Published"
  1167.  
  1168. set cell155 [$row154 addCell parameter 0.0]
  1169. $cell155 setLabel "name_type" "DataSet: TDataSet"
  1170. $cell155 setScope "name_type" "cl" "scopePhase"
  1171. $cell155 setProp "is_declaration" "1" "name_type" "cl"
  1172. $cell155 setProp "libunit" "Other" "name_type" "cl"
  1173. $cell155 setProp "userlib" "DB" "name_type" "cl"
  1174. $cell155 setScope "name_type" "de" "scopeFile"
  1175.  
  1176. set row156 [$diag addRow method 0.0]
  1177. $row156 setLabel "name_type" "DeleteError()\n"
  1178. $row156 setProp "has_parmlist" "1"
  1179. $row156 setProp "is_event" "1"
  1180. $row156 setProp "method_access" "Published"
  1181.  
  1182. set cell157 [$row156 addCell parameter 0.0]
  1183. $cell157 setLabel "name_type" "DataSet: TDataSet, "
  1184. $cell157 setScope "name_type" "cl" "scopePhase"
  1185. $cell157 setProp "is_declaration" "1" "name_type" "cl"
  1186. $cell157 setProp "libunit" "Other" "name_type" "cl"
  1187. $cell157 setProp "userlib" "DB" "name_type" "cl"
  1188. $cell157 setScope "name_type" "de" "scopeFile"
  1189.  
  1190. set cell158 [$row156 addCell parameter 0.0]
  1191. $cell158 setLabel "name_type" "E: EDatabaseError, "
  1192. $cell158 setScope "name_type" "cl" "scopePhase"
  1193. $cell158 setProp "libunit" "Other" "name_type" "cl"
  1194. $cell158 setProp "userlib" "DB" "name_type" "cl"
  1195. $cell158 setScope "name_type" "de" "scopeFile"
  1196.  
  1197. set cell159 [$row156 addCell parameter 0.0]
  1198. $cell159 setLabel "name_type" "Action: TDataAction"
  1199. $cell159 setProp "pass_by" "Variable"
  1200. $cell159 setScope "name_type" "cl" "scopePhase"
  1201. $cell159 setProp "is_declaration" "1" "name_type" "cl"
  1202. $cell159 setProp "libunit" "Other" "name_type" "cl"
  1203. $cell159 setProp "userlib" "DB" "name_type" "cl"
  1204. $cell159 setScope "name_type" "de" "scopeFile"
  1205.  
  1206. set row160 [$diag addRow method 0.0]
  1207. $row160 setLabel "name_type" "EditError()\n"
  1208. $row160 setProp "has_parmlist" "1"
  1209. $row160 setProp "is_event" "1"
  1210. $row160 setProp "method_access" "Published"
  1211.  
  1212. set cell161 [$row160 addCell parameter 0.0]
  1213. $cell161 setLabel "name_type" "DataSet: TDataSet, "
  1214. $cell161 setScope "name_type" "cl" "scopePhase"
  1215. $cell161 setProp "is_declaration" "1" "name_type" "cl"
  1216. $cell161 setProp "libunit" "Other" "name_type" "cl"
  1217. $cell161 setProp "userlib" "DB" "name_type" "cl"
  1218. $cell161 setScope "name_type" "de" "scopeFile"
  1219.  
  1220. set cell162 [$row160 addCell parameter 0.0]
  1221. $cell162 setLabel "name_type" "E: EDatabaseError, "
  1222. $cell162 setScope "name_type" "cl" "scopePhase"
  1223. $cell162 setProp "libunit" "Other" "name_type" "cl"
  1224. $cell162 setProp "userlib" "DB" "name_type" "cl"
  1225. $cell162 setScope "name_type" "de" "scopeFile"
  1226.  
  1227. set cell163 [$row160 addCell parameter 0.0]
  1228. $cell163 setLabel "name_type" "Action: TDataAction"
  1229. $cell163 setProp "pass_by" "Variable"
  1230. $cell163 setScope "name_type" "cl" "scopePhase"
  1231. $cell163 setProp "is_declaration" "1" "name_type" "cl"
  1232. $cell163 setProp "libunit" "Other" "name_type" "cl"
  1233. $cell163 setProp "userlib" "DB" "name_type" "cl"
  1234. $cell163 setScope "name_type" "de" "scopeFile"
  1235.  
  1236. set row164 [$diag addRow method 0.0]
  1237. $row164 setLabel "name_type" "FilterRecord()\n"
  1238. $row164 setProp "has_parmlist" "1"
  1239. $row164 setProp "is_event" "1"
  1240. $row164 setProp "method_access" "Published"
  1241.  
  1242. set cell165 [$row164 addCell parameter 0.0]
  1243. $cell165 setLabel "name_type" "DataSet: TDataSet, "
  1244. $cell165 setScope "name_type" "cl" "scopePhase"
  1245. $cell165 setProp "is_declaration" "1" "name_type" "cl"
  1246. $cell165 setProp "libunit" "Other" "name_type" "cl"
  1247. $cell165 setProp "userlib" "DB" "name_type" "cl"
  1248. $cell165 setScope "name_type" "de" "scopeFile"
  1249.  
  1250. set cell166 [$row164 addCell parameter 0.0]
  1251. $cell166 setLabel "name_type" "Accept: boolean"
  1252. $cell166 setProp "pass_by" "Variable"
  1253. $cell166 setScope "name_type" "cl" "scopePhase"
  1254. $cell166 setScope "name_type" "de" "scopeFile"
  1255.  
  1256. set row167 [$diag addRow method 0.0]
  1257. $row167 setLabel "name_type" "NewRecord()\n"
  1258. $row167 setProp "has_parmlist" "1"
  1259. $row167 setProp "is_event" "1"
  1260. $row167 setProp "method_access" "Published"
  1261.  
  1262. set cell168 [$row167 addCell parameter 0.0]
  1263. $cell168 setLabel "name_type" "DataSet: TDataSet"
  1264. $cell168 setScope "name_type" "cl" "scopePhase"
  1265. $cell168 setProp "is_declaration" "1" "name_type" "cl"
  1266. $cell168 setProp "libunit" "Other" "name_type" "cl"
  1267. $cell168 setProp "userlib" "DB" "name_type" "cl"
  1268. $cell168 setScope "name_type" "de" "scopeFile"
  1269.  
  1270. set row169 [$diag addRow method 0.0]
  1271. $row169 setLabel "name_type" "PostError()\n"
  1272. $row169 setProp "has_parmlist" "1"
  1273. $row169 setProp "is_event" "1"
  1274. $row169 setProp "method_access" "Published"
  1275.  
  1276. set cell170 [$row169 addCell parameter 0.0]
  1277. $cell170 setLabel "name_type" "DataSet: TDataSet, "
  1278. $cell170 setScope "name_type" "cl" "scopePhase"
  1279. $cell170 setProp "is_declaration" "1" "name_type" "cl"
  1280. $cell170 setProp "libunit" "Other" "name_type" "cl"
  1281. $cell170 setProp "userlib" "DB" "name_type" "cl"
  1282. $cell170 setScope "name_type" "de" "scopeFile"
  1283.  
  1284. set cell171 [$row169 addCell parameter 0.0]
  1285. $cell171 setLabel "name_type" "E: EDatabaseError, "
  1286. $cell171 setScope "name_type" "cl" "scopePhase"
  1287. $cell171 setProp "libunit" "Other" "name_type" "cl"
  1288. $cell171 setProp "userlib" "DB" "name_type" "cl"
  1289. $cell171 setScope "name_type" "de" "scopeFile"
  1290.  
  1291. set cell172 [$row169 addCell parameter 0.0]
  1292. $cell172 setLabel "name_type" "Action: TDataAction"
  1293. $cell172 setProp "pass_by" "Variable"
  1294. $cell172 setScope "name_type" "cl" "scopePhase"
  1295. $cell172 setProp "is_declaration" "1" "name_type" "cl"
  1296. $cell172 setProp "libunit" "Other" "name_type" "cl"
  1297. $cell172 setProp "userlib" "DB" "name_type" "cl"
  1298. $cell172 setScope "name_type" "de" "scopeFile"
  1299.  
  1300. set row173 [$diag addRow method 0.0]
  1301. $row173 setLabel "name_type" "ServerYield()\n"
  1302. $row173 setProp "has_parmlist" "1"
  1303. $row173 setProp "is_event" "1"
  1304. $row173 setProp "method_access" "Published"
  1305.  
  1306. set cell174 [$row173 addCell parameter 0.0]
  1307. $cell174 setLabel "name_type" "DataSet: TDataSet, "
  1308. $cell174 setScope "name_type" "cl" "scopePhase"
  1309. $cell174 setProp "is_declaration" "1" "name_type" "cl"
  1310. $cell174 setProp "libunit" "Other" "name_type" "cl"
  1311. $cell174 setProp "userlib" "DB" "name_type" "cl"
  1312. $cell174 setScope "name_type" "de" "scopeFile"
  1313.  
  1314. set cell175 [$row173 addCell parameter 0.0]
  1315. $cell175 setLabel "name_type" "AbortQuery: boolean"
  1316. $cell175 setProp "pass_by" "Variable"
  1317. $cell175 setScope "name_type" "cl" "scopePhase"
  1318. $cell175 setScope "name_type" "de" "scopeFile"
  1319.  
  1320. set row176 [$diag addRow method 0.0]
  1321. $row176 setLabel "name_type" "UpdateError()\n"
  1322. $row176 setProp "has_parmlist" "1"
  1323. $row176 setProp "is_event" "1"
  1324. $row176 setProp "method_access" "Published"
  1325.  
  1326. set cell177 [$row176 addCell parameter 0.0]
  1327. $cell177 setLabel "name_type" "DataSet: TDataSet, "
  1328. $cell177 setScope "name_type" "cl" "scopePhase"
  1329. $cell177 setProp "is_declaration" "1" "name_type" "cl"
  1330. $cell177 setProp "libunit" "Other" "name_type" "cl"
  1331. $cell177 setProp "userlib" "DB" "name_type" "cl"
  1332. $cell177 setScope "name_type" "de" "scopeFile"
  1333.  
  1334. set cell178 [$row176 addCell parameter 0.0]
  1335. $cell178 setLabel "name_type" "E: EDatabaseError, "
  1336. $cell178 setScope "name_type" "cl" "scopePhase"
  1337. $cell178 setProp "libunit" "Other" "name_type" "cl"
  1338. $cell178 setProp "userlib" "DB" "name_type" "cl"
  1339. $cell178 setScope "name_type" "de" "scopeFile"
  1340.  
  1341. set cell179 [$row176 addCell parameter 0.0]
  1342. $cell179 setLabel "name_type" "UpdateKind: TUpdateKind, "
  1343. $cell179 setScope "name_type" "cl" "scopePhase"
  1344. $cell179 setProp "is_declaration" "1" "name_type" "cl"
  1345. $cell179 setProp "libunit" "Other" "name_type" "cl"
  1346. $cell179 setProp "userlib" "DB" "name_type" "cl"
  1347. $cell179 setScope "name_type" "de" "scopeFile"
  1348.  
  1349. set cell180 [$row176 addCell parameter 0.0]
  1350. $cell180 setLabel "name_type" "UpdateAction:  TUpdateAction"
  1351. $cell180 setProp "pass_by" "Variable"
  1352. $cell180 setScope "name_type" "cl" "scopePhase"
  1353. $cell180 setProp "is_declaration" "1" "name_type" "cl"
  1354. $cell180 setProp "libunit" "Other" "name_type" "cl"
  1355. $cell180 setProp "userlib" "DB" "name_type" "cl"
  1356. $cell180 setScope "name_type" "de" "scopeFile"
  1357.  
  1358. set row181 [$diag addRow method 0.0]
  1359. $row181 setLabel "name_type" "UpdateRecord()"
  1360. $row181 setProp "has_parmlist" "1"
  1361. $row181 setProp "is_event" "1"
  1362. $row181 setProp "method_access" "Published"
  1363.  
  1364. set cell182 [$row181 addCell parameter 0.0]
  1365. $cell182 setLabel "name_type" "DataSet: TDataSet, "
  1366. $cell182 setScope "name_type" "cl" "scopePhase"
  1367. $cell182 setProp "is_declaration" "1" "name_type" "cl"
  1368. $cell182 setProp "libunit" "Other" "name_type" "cl"
  1369. $cell182 setProp "userlib" "DB" "name_type" "cl"
  1370. $cell182 setScope "name_type" "de" "scopeFile"
  1371.  
  1372. set cell183 [$row181 addCell parameter 0.0]
  1373. $cell183 setLabel "name_type" "UpdateKind: TUpdateKind, "
  1374. $cell183 setScope "name_type" "cl" "scopePhase"
  1375. $cell183 setProp "is_declaration" "1" "name_type" "cl"
  1376. $cell183 setProp "libunit" "Other" "name_type" "cl"
  1377. $cell183 setProp "userlib" "DB" "name_type" "cl"
  1378. $cell183 setScope "name_type" "de" "scopeFile"
  1379.  
  1380. set cell184 [$row181 addCell parameter 0.0]
  1381. $cell184 setLabel "name_type" "UpdateAction: TUpdateAction"
  1382. $cell184 setProp "pass_by" "Variable"
  1383. $cell184 setScope "name_type" "cl" "scopePhase"
  1384. $cell184 setProp "is_declaration" "1" "name_type" "cl"
  1385. $cell184 setProp "libunit" "Other" "name_type" "cl"
  1386. $cell184 setProp "userlib" "DB" "name_type" "cl"
  1387. $cell184 setScope "name_type" "de" "scopeFile"
  1388.  
  1389. $diag save
  1390.  
  1391. # Generator: et.tcl    /main/titanic/10
  1392. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1393. # Interpreter to use: Otsh V7.1.1/B5
  1394. #
  1395. OTShRegister::importTool
  1396.  
  1397. set diag [CAD new DBTypes "DelphiVCL" "" "" "" "" "" 1]
  1398.  
  1399. set node185 [$diag addNode cad_class 1216.0 704.0 155.0 183.0]
  1400. $node185 setLabel "name" "TDatabaseEvent"
  1401. $node185 setScope "name" "cl" "scopePhase"
  1402.  
  1403. set node186 [$diag addNode cad_class 704.0 704.0 122.0 135.0]
  1404. $node186 setLabel "name" "TUpdateKind"
  1405. $node186 setScope "name" "cl" "scopePhase"
  1406. $node186 setProp "is_declaration" "1" "name" "cl"
  1407. $node186 setProp "libunit" "Other" "name" "cl"
  1408. $node186 setProp "userlib" "DB" "name" "cl"
  1409.  
  1410. set node187 [$diag addNode cad_class 880.0 704.0 130.0 167.0]
  1411. $node187 setLabel "name" "TUpdateAction"
  1412. $node187 setScope "name" "cl" "scopePhase"
  1413. $node187 setProp "is_declaration" "1" "name" "cl"
  1414. $node187 setProp "libunit" "Other" "name" "cl"
  1415. $node187 setProp "userlib" "DB" "name" "cl"
  1416.  
  1417. set node188 [$diag addNode cad_class 1056.0 704.0 120.0 135.0]
  1418. $node188 setLabel "name" "TDataAction"
  1419. $node188 setScope "name" "cl" "scopePhase"
  1420. $node188 setProp "is_declaration" "1" "name" "cl"
  1421. $node188 setProp "libunit" "Other" "name" "cl"
  1422. $node188 setProp "userlib" "DB" "name" "cl"
  1423.  
  1424. $diag save
  1425.  
  1426. # Generator: et.tcl    /main/titanic/10
  1427. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1428. # Interpreter to use: Otsh V7.1.1/B5
  1429. #
  1430. OTShRegister::importTool
  1431.  
  1432. set diag [CDM new TUpdateKind "DelphiVCL" "" "" "" "" "" 1]
  1433.  
  1434. set row189 [$diag addRow attribute 0.0]
  1435. $row189 setLabel "name_type" "\$ukModify: enum\n"
  1436. $row189 setProp "is_class_feature" "1"
  1437. $row189 setScope "name_type" "cl" "scopePhase"
  1438.  
  1439. set row190 [$diag addRow attribute 0.0]
  1440. $row190 setLabel "name_type" "\$ukInsert: enum\n"
  1441. $row190 setProp "is_class_feature" "1"
  1442. $row190 setScope "name_type" "cl" "scopePhase"
  1443.  
  1444. set row191 [$diag addRow attribute 0.0]
  1445. $row191 setLabel "name_type" "\$ukDelete: enum"
  1446. $row191 setProp "is_class_feature" "1"
  1447. $row191 setScope "name_type" "cl" "scopePhase"
  1448.  
  1449. $diag save
  1450.  
  1451. # Generator: et.tcl    /main/titanic/10
  1452. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1453. # Interpreter to use: Otsh V7.1.1/B5
  1454. #
  1455. OTShRegister::importTool
  1456.  
  1457. set diag [CDM new TUpdateAction "DelphiVCL" "" "" "" "" "" 1]
  1458.  
  1459. set row192 [$diag addRow attribute 0.0]
  1460. $row192 setLabel "name_type" "\$uaFail: enum\n"
  1461. $row192 setProp "is_class_feature" "1"
  1462. $row192 setScope "name_type" "cl" "scopePhase"
  1463.  
  1464. set row193 [$diag addRow attribute 0.0]
  1465. $row193 setLabel "name_type" "\$uaAbort: enum\n"
  1466. $row193 setProp "is_class_feature" "1"
  1467. $row193 setScope "name_type" "cl" "scopePhase"
  1468.  
  1469. set row194 [$diag addRow attribute 0.0]
  1470. $row194 setLabel "name_type" "\$uaSkip: enum\n"
  1471. $row194 setProp "is_class_feature" "1"
  1472. $row194 setScope "name_type" "cl" "scopePhase"
  1473.  
  1474. set row195 [$diag addRow attribute 0.0]
  1475. $row195 setLabel "name_type" "\$uaRetry: enum\n"
  1476. $row195 setProp "is_class_feature" "1"
  1477. $row195 setScope "name_type" "cl" "scopePhase"
  1478.  
  1479. set row196 [$diag addRow attribute 0.0]
  1480. $row196 setLabel "name_type" "\$uaApplied: enum"
  1481. $row196 setProp "is_class_feature" "1"
  1482. $row196 setScope "name_type" "cl" "scopePhase"
  1483.  
  1484. $diag save
  1485.  
  1486. # Generator: et.tcl    /main/titanic/10
  1487. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1488. # Interpreter to use: Otsh V7.1.1/B5
  1489. #
  1490. OTShRegister::importTool
  1491.  
  1492. set diag [CDM new TDataAction "DelphiVCL" "" "" "" "" "" 1]
  1493.  
  1494. set row197 [$diag addRow attribute 0.0]
  1495. $row197 setLabel "name_type" "\$daFail: enum\n"
  1496. $row197 setProp "is_class_feature" "1"
  1497. $row197 setScope "name_type" "cl" "scopePhase"
  1498.  
  1499. set row198 [$diag addRow attribute 0.0]
  1500. $row198 setLabel "name_type" "\$daAbort: enum\n"
  1501. $row198 setProp "is_class_feature" "1"
  1502. $row198 setScope "name_type" "cl" "scopePhase"
  1503.  
  1504. set row199 [$diag addRow attribute 0.0]
  1505. $row199 setLabel "name_type" "\$daRetry: enum"
  1506. $row199 setProp "is_class_feature" "1"
  1507. $row199 setScope "name_type" "cl" "scopePhase"
  1508.  
  1509. $diag save
  1510.  
  1511. # Generator: et.tcl    /main/titanic/10
  1512. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1513. # Interpreter to use: Otsh V7.1.1/B5
  1514. #
  1515. OTShRegister::importTool
  1516.  
  1517. set diag [CAD new DBCtrlsClasses "DelphiVCL" "" "" "" "" "" 1]
  1518.  
  1519. set node213 [$diag addNode cad_class 1088.0 592.0 120.0 291.0]
  1520. $node213 setLabel "name" "TDBCheckBox"
  1521. $node213 setScope "name" "cl" "scopePhase"
  1522. $node213 setProp "is_declaration" "1" "name" "cl"
  1523. $node213 setProp "libunit" "Other" "name" "cl"
  1524. $node213 setProp "userlib" "DBCtrls" "name" "cl"
  1525.  
  1526. set node214 [$diag addNode cad_class 1264.0 592.0 120.0 323.0]
  1527. $node214 setLabel "name" "TDBComboBox"
  1528. $node214 setScope "name" "cl" "scopePhase"
  1529. $node214 setProp "is_declaration" "1" "name" "cl"
  1530. $node214 setProp "libunit" "Other" "name" "cl"
  1531. $node214 setProp "userlib" "DBCtrls" "name" "cl"
  1532.  
  1533. set node215 [$diag addNode cad_class 720.0 592.0 120.0 323.0]
  1534. $node215 setLabel "name" "TDBEdit"
  1535. $node215 setScope "name" "cl" "scopePhase"
  1536. $node215 setProp "is_declaration" "1" "name" "cl"
  1537. $node215 setProp "libunit" "Other" "name" "cl"
  1538. $node215 setProp "userlib" "DBCtrls" "name" "cl"
  1539.  
  1540. set node216 [$diag addNode cad_class 1088.0 1040.0 120.0 307.0]
  1541. $node216 setLabel "name" "TDBImage"
  1542. $node216 setScope "name" "cl" "scopePhase"
  1543. $node216 setProp "is_declaration" "1" "name" "cl"
  1544. $node216 setProp "libunit" "Other" "name" "cl"
  1545. $node216 setProp "userlib" "DBCtrls" "name" "cl"
  1546.  
  1547. set node217 [$diag addNode cad_class 1440.0 592.0 120.0 339.0]
  1548. $node217 setLabel "name" "TDBListBox"
  1549. $node217 setScope "name" "cl" "scopePhase"
  1550. $node217 setProp "is_declaration" "1" "name" "cl"
  1551. $node217 setProp "libunit" "Other" "name" "cl"
  1552. $node217 setProp "userlib" "DBCtrls" "name" "cl"
  1553.  
  1554. set node218 [$diag addNode cad_class 1648.0 1120.0 195.0 339.0]
  1555. $node218 setLabel "name" "TDBLookupComboBox"
  1556. $node218 setScope "name" "cl" "scopePhase"
  1557. $node218 setProp "is_declaration" "1" "name" "cl"
  1558. $node218 setProp "libunit" "Other" "name" "cl"
  1559. $node218 setProp "userlib" "DBCtrls" "name" "cl"
  1560.  
  1561. set node219 [$diag addNode cad_class 1424.0 1120.0 147.0 307.0]
  1562. $node219 setLabel "name" "TDBLookupListBox"
  1563. $node219 setScope "name" "cl" "scopePhase"
  1564. $node219 setProp "is_declaration" "1" "name" "cl"
  1565. $node219 setProp "libunit" "Other" "name" "cl"
  1566. $node219 setProp "userlib" "DBCtrls" "name" "cl"
  1567.  
  1568. set node220 [$diag addNode cad_class 912.0 1040.0 120.0 323.0]
  1569. $node220 setLabel "name" "TDBMemo"
  1570. $node220 setScope "name" "cl" "scopePhase"
  1571. $node220 setProp "is_declaration" "1" "name" "cl"
  1572. $node220 setProp "libunit" "Other" "name" "cl"
  1573. $node220 setProp "userlib" "DBCtrls" "name" "cl"
  1574.  
  1575. set node221 [$diag addNode cad_class 1264.0 1040.0 120.0 275.0]
  1576. $node221 setLabel "name" "TDBNavigator"
  1577. $node221 setScope "name" "cl" "scopePhase"
  1578. $node221 setProp "is_declaration" "1" "name" "cl"
  1579. $node221 setProp "libunit" "Other" "name" "cl"
  1580. $node221 setProp "userlib" "DBCtrls" "name" "cl"
  1581.  
  1582. set node222 [$diag addNode cad_class 704.0 1040.0 129.0 227.0]
  1583. $node222 setLabel "name" "TDBRadioGroup"
  1584. $node222 setScope "name" "cl" "scopePhase"
  1585. $node222 setProp "is_declaration" "1" "name" "cl"
  1586. $node222 setProp "libunit" "Other" "name" "cl"
  1587. $node222 setProp "userlib" "DBCtrls" "name" "cl"
  1588.  
  1589. set node223 [$diag addNode cad_class 912.0 592.0 120.0 227.0]
  1590. $node223 setLabel "name" "TDBText"
  1591. $node223 setScope "name" "cl" "scopePhase"
  1592. $node223 setProp "is_declaration" "1" "name" "cl"
  1593. $node223 setProp "libunit" "Other" "name" "cl"
  1594. $node223 setProp "userlib" "DBCtrls" "name" "cl"
  1595.  
  1596. set node224 [$diag addNode cad_class 704.0 496.0 141.0 33.0]
  1597. $node224 setLabel "name" "TCustomMaskEdit"
  1598. $node224 setProp "is_folded" "1"
  1599. $node224 setScope "name" "cl" "scopePhase"
  1600. $node224 setProp "is_declaration" "1" "name" "cl"
  1601. $node224 setProp "libunit" "Other" "name" "cl"
  1602. $node224 setProp "userlib" "Mask" "name" "cl"
  1603.  
  1604. set node225 [$diag addNode cad_class 912.0 496.0 120.0 33.0]
  1605. $node225 setLabel "name" "TCustomLabel"
  1606. $node225 setProp "is_folded" "1"
  1607. $node225 setScope "name" "cl" "scopePhase"
  1608. $node225 setProp "is_declaration" "1" "name" "cl"
  1609. $node225 setProp "libunit" "StdCtrls" "name" "cl"
  1610.  
  1611. set node226 [$diag addNode cad_class 1072.0 496.0 147.0 33.0]
  1612. $node226 setLabel "name" "TCustomCheckBox"
  1613. $node226 setProp "is_folded" "1"
  1614. $node226 setScope "name" "cl" "scopePhase"
  1615. $node226 setProp "is_declaration" "1" "name" "cl"
  1616. $node226 setProp "libunit" "StdCtrls" "name" "cl"
  1617.  
  1618. set node227 [$diag addNode cad_class 1248.0 496.0 153.0 33.0]
  1619. $node227 setLabel "name" "TCustomComboBox"
  1620. $node227 setProp "is_folded" "1"
  1621. $node227 setScope "name" "cl" "scopePhase"
  1622. $node227 setProp "is_declaration" "1" "name" "cl"
  1623. $node227 setProp "libunit" "StdCtrls" "name" "cl"
  1624.  
  1625. set node228 [$diag addNode cad_class 1440.0 496.0 128.0 33.0]
  1626. $node228 setLabel "name" "TCustomListBox"
  1627. $node228 setProp "is_folded" "1"
  1628. $node228 setScope "name" "cl" "scopePhase"
  1629. $node228 setProp "is_declaration" "1" "name" "cl"
  1630. $node228 setProp "libunit" "StdCtrls" "name" "cl"
  1631.  
  1632. set node229 [$diag addNode cad_class 688.0 960.0 162.0 33.0]
  1633. $node229 setLabel "name" "TCustomRadioGroup"
  1634. $node229 setProp "is_folded" "1"
  1635. $node229 setScope "name" "cl" "scopePhase"
  1636. $node229 setProp "is_declaration" "1" "name" "cl"
  1637. $node229 setProp "libunit" "ExtCtrls" "name" "cl"
  1638.  
  1639. set node230 [$diag addNode cad_class 912.0 960.0 120.0 33.0]
  1640. $node230 setLabel "name" "TCustomMemo"
  1641. $node230 setProp "is_folded" "1"
  1642. $node230 setScope "name" "cl" "scopePhase"
  1643. $node230 setProp "is_declaration" "1" "name" "cl"
  1644.  
  1645. set node231 [$diag addNode cad_class 1088.0 960.0 130.0 33.0]
  1646. $node231 setLabel "name" "TCustomControl"
  1647. $node231 setProp "is_folded" "1"
  1648. $node231 setScope "name" "cl" "scopePhase"
  1649. $node231 setProp "is_declaration" "1" "name" "cl"
  1650. $node231 setProp "libunit" "Controls" "name" "cl"
  1651.  
  1652. set node232 [$diag addNode cad_class 1264.0 960.0 120.0 33.0]
  1653. $node232 setLabel "name" "TCustomPanel"
  1654. $node232 setProp "is_folded" "1"
  1655. $node232 setScope "name" "cl" "scopePhase"
  1656. $node232 setProp "is_declaration" "1" "name" "cl"
  1657. $node232 setProp "libunit" "ExtCtrls" "name" "cl"
  1658.  
  1659. set node233 [$diag addNode cad_class 704.0 1472.0 120.0 33.0]
  1660. $node233 setLabel "name" "TNavButton"
  1661. $node233 setProp "is_folded" "1"
  1662. $node233 setScope "name" "cl" "scopePhase"
  1663. $node233 setProp "is_declaration" "1" "name" "cl"
  1664. $node233 setProp "libunit" "Other" "name" "cl"
  1665. $node233 setProp "userlib" "DBCtrls" "name" "cl"
  1666.  
  1667. set node234 [$diag addNode cad_class 704.0 1392.0 120.0 33.0]
  1668. $node234 setLabel "name" "TSpeedButton"
  1669. $node234 setProp "is_folded" "1"
  1670. $node234 setScope "name" "cl" "scopePhase"
  1671. $node234 setProp "is_declaration" "1" "name" "cl"
  1672. $node234 setProp "libunit" "Other" "name" "cl"
  1673. $node234 setProp "userlib" "Buttons" "name" "cl"
  1674.  
  1675. set node235 [$diag addNode cad_class 1024.0 1520.0 120.0 33.0]
  1676. $node235 setLabel "name" "TNavDataLink"
  1677. $node235 setProp "is_folded" "1"
  1678. $node235 setScope "name" "cl" "scopePhase"
  1679. $node235 setProp "is_declaration" "1" "name" "cl"
  1680. $node235 setProp "libunit" "Other" "name" "cl"
  1681. $node235 setProp "userlib" "DBCtrls" "name" "cl"
  1682.  
  1683. set node236 [$diag addNode cad_class 1184.0 1392.0 120.0 33.0]
  1684. $node236 setLabel "name" "TDataLink"
  1685. $node236 setProp "is_folded" "1"
  1686. $node236 setScope "name" "cl" "scopePhase"
  1687. $node236 setProp "is_declaration" "1" "name" "cl"
  1688. $node236 setProp "libunit" "Other" "name" "cl"
  1689. $node236 setProp "userlib" "DB" "name" "cl"
  1690.  
  1691. set node237 [$diag addNode cad_class 1168.0 1520.0 134.0 33.0]
  1692. $node237 setLabel "name" "TDataSourceLink"
  1693. $node237 setProp "is_folded" "1"
  1694. $node237 setScope "name" "cl" "scopePhase"
  1695. $node237 setProp "is_declaration" "1" "name" "cl"
  1696. $node237 setProp "libunit" "Other" "name" "cl"
  1697. $node237 setProp "userlib" "DBCtrls" "name" "cl"
  1698.  
  1699. set node238 [$diag addNode cad_class 1328.0 1520.0 127.0 33.0]
  1700. $node238 setLabel "name" "TListSourceLink"
  1701. $node238 setProp "is_folded" "1"
  1702. $node238 setScope "name" "cl" "scopePhase"
  1703. $node238 setProp "is_declaration" "1" "name" "cl"
  1704. $node238 setProp "libunit" "Other" "name" "cl"
  1705. $node238 setProp "userlib" "DBCtrls" "name" "cl"
  1706.  
  1707. set node239 [$diag addNode cad_class 1424.0 1040.0 149.0 33.0]
  1708. $node239 setLabel "name" "TDBLookupControl"
  1709. $node239 setProp "is_folded" "1"
  1710. $node239 setScope "name" "cl" "scopePhase"
  1711. $node239 setProp "is_declaration" "1" "name" "cl"
  1712. $node239 setProp "libunit" "Other" "name" "cl"
  1713. $node239 setProp "userlib" "DBCtrls" "name" "cl"
  1714.  
  1715. set node240 [$diag addNode cad_class 1440.0 960.0 130.0 33.0]
  1716. $node240 setLabel "name" "TCustomControl"
  1717. $node240 setProp "is_folded" "1"
  1718. $node240 setScope "name" "cl" "scopePhase"
  1719. $node240 setProp "is_declaration" "1" "name" "cl"
  1720. $node240 setProp "libunit" "Controls" "name" "cl"
  1721.  
  1722. set node200 [$diag addRake generalization $node224 $node215 768.0 528.0 768.0 608.0 559.5]
  1723.  
  1724. set conn241 [$node200 getInConn]
  1725. set segm242 [$conn241 getFirstSegm]
  1726.  
  1727. set conn243 [$node200 getFirstOutConn]
  1728. set segm244 [$conn243 getFirstSegm]
  1729.  
  1730. set node201 [$diag addRake generalization $node225 $node223 976.0 528.0 976.0 608.0 559.5]
  1731.  
  1732. set conn245 [$node201 getInConn]
  1733. set segm246 [$conn245 getFirstSegm]
  1734.  
  1735. set conn247 [$node201 getFirstOutConn]
  1736. set segm248 [$conn247 getFirstSegm]
  1737.  
  1738. set node202 [$diag addRake generalization $node226 $node213 1152.0 528.0 1152.0 608.0 559.5]
  1739.  
  1740. set conn249 [$node202 getInConn]
  1741. set segm250 [$conn249 getFirstSegm]
  1742.  
  1743. set conn251 [$node202 getFirstOutConn]
  1744. set segm252 [$conn251 getFirstSegm]
  1745.  
  1746. set node203 [$diag addRake generalization $node227 $node214 1328.0 528.0 1328.0 608.0 559.5]
  1747.  
  1748. set conn253 [$node203 getInConn]
  1749. set segm254 [$conn253 getFirstSegm]
  1750.  
  1751. set conn255 [$node203 getFirstOutConn]
  1752. set segm256 [$conn255 getFirstSegm]
  1753.  
  1754. set node204 [$diag addRake generalization $node228 $node217 1504.0 528.0 1504.0 608.0 559.5]
  1755.  
  1756. set conn257 [$node204 getInConn]
  1757. set segm258 [$conn257 getFirstSegm]
  1758.  
  1759. set conn259 [$node204 getFirstOutConn]
  1760. set segm260 [$conn259 getFirstSegm]
  1761.  
  1762. set node205 [$diag addRake generalization $node229 $node222 768.0 992.0 768.0 1056.0 1023.5]
  1763.  
  1764. set conn261 [$node205 getInConn]
  1765. set segm262 [$conn261 getFirstSegm]
  1766.  
  1767. set conn263 [$node205 getFirstOutConn]
  1768. set segm264 [$conn263 getFirstSegm]
  1769.  
  1770. set node206 [$diag addRake generalization $node230 $node220 976.0 992.0 976.0 1056.0 1023.5]
  1771.  
  1772. set conn265 [$node206 getInConn]
  1773. set segm266 [$conn265 getFirstSegm]
  1774.  
  1775. set conn267 [$node206 getFirstOutConn]
  1776. set segm268 [$conn267 getFirstSegm]
  1777.  
  1778. set node207 [$diag addRake generalization $node231 $node216 1152.0 992.0 1152.0 1056.0 1023.5]
  1779.  
  1780. set conn269 [$node207 getInConn]
  1781. set segm270 [$conn269 getFirstSegm]
  1782.  
  1783. set conn271 [$node207 getFirstOutConn]
  1784. set segm272 [$conn271 getFirstSegm]
  1785.  
  1786. set node208 [$diag addRake generalization $node232 $node221 1328.0 992.0 1328.0 1056.0 1023.5]
  1787.  
  1788. set conn273 [$node208 getInConn]
  1789. set segm274 [$conn273 getFirstSegm]
  1790.  
  1791. set conn275 [$node208 getFirstOutConn]
  1792. set segm276 [$conn275 getFirstSegm]
  1793.  
  1794. set node209 [$diag addRake generalization $node234 $node233 768.0 1424.0 768.0 1488.0 1455.5]
  1795.  
  1796. set conn277 [$node209 getInConn]
  1797. set segm278 [$conn277 getFirstSegm]
  1798.  
  1799. set conn279 [$node209 getFirstOutConn]
  1800. set segm280 [$conn279 getFirstSegm]
  1801.  
  1802. set node210 [$diag addRake generalization $node236 $node235 1248.0 1424.0 1088.0 1552.0 1488.0]
  1803.  
  1804. set conn281 [$node210 getInConn]
  1805. set segm282 [$conn281 getFirstSegm]
  1806.  
  1807. set conn283 [$node210 getFirstOutConn]
  1808. set segm284 [$conn283 getFirstSegm]
  1809.  
  1810. set conn285 [$diag addConn generalization_conn $node210 $node237 1248.0 1488.0 1248.0 1552.0]
  1811. set segm286 [$conn285 getFirstSegm]
  1812.  
  1813. set conn287 [$diag addConn generalization_conn $node210 $node238 1392.0 1488.0 1392.0 1552.0]
  1814. set segm288 [$conn287 getFirstSegm]
  1815.  
  1816. set node211 [$diag addRake generalization $node240 $node239 1504.0 992.0 1504.0 1056.0 1023.5]
  1817.  
  1818. set conn289 [$node211 getInConn]
  1819. set segm290 [$conn289 getFirstSegm]
  1820.  
  1821. set conn291 [$node211 getFirstOutConn]
  1822. set segm292 [$conn291 getFirstSegm]
  1823.  
  1824. set node212 [$diag addRake generalization $node239 $node219 1504.0 1072.0 1504.0 1136.0 1103.5]
  1825.  
  1826. set conn293 [$node212 getInConn]
  1827. set segm294 [$conn293 getFirstSegm]
  1828.  
  1829. set conn295 [$node212 getFirstOutConn]
  1830. set segm296 [$conn295 getFirstSegm]
  1831.  
  1832. set conn297 [$diag addConn generalization_conn $node212 $node218 1744.0 1103.5 1744.0 1136.0]
  1833. set segm298 [$conn297 getFirstSegm]
  1834.  
  1835. $diag save
  1836.  
  1837. # Generator: et.tcl    /main/titanic/10
  1838. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1839. # Interpreter to use: Otsh V7.1.1/B5
  1840. #
  1841. OTShRegister::importTool
  1842.  
  1843. set diag [CDM new TDBText "DelphiVCL" "" "" "" "" "" 1]
  1844.  
  1845. set row299 [$diag addRow method 0.0]
  1846. $row299 setLabel "name_type" "Click()\n"
  1847. $row299 setProp "has_parmlist" "1"
  1848. $row299 setProp "is_event" "1"
  1849. $row299 setProp "method_access" "Published"
  1850.  
  1851. set row300 [$diag addRow method 0.0]
  1852. $row300 setLabel "name_type" "DblClick()\n"
  1853. $row300 setProp "has_parmlist" "1"
  1854. $row300 setProp "is_event" "1"
  1855. $row300 setProp "method_access" "Published"
  1856.  
  1857. set row301 [$diag addRow method 0.0]
  1858. $row301 setLabel "name_type" "DragDrop()\n"
  1859. $row301 setProp "has_parmlist" "1"
  1860. $row301 setProp "is_event" "1"
  1861. $row301 setProp "method_access" "Published"
  1862.  
  1863. set row302 [$diag addRow method 0.0]
  1864. $row302 setLabel "name_type" "DragOver()\n"
  1865. $row302 setProp "has_parmlist" "1"
  1866. $row302 setProp "is_event" "1"
  1867. $row302 setProp "method_access" "Published"
  1868.  
  1869. set row303 [$diag addRow method 0.0]
  1870. $row303 setLabel "name_type" "EndDrag()\n"
  1871. $row303 setProp "has_parmlist" "1"
  1872. $row303 setProp "is_event" "1"
  1873. $row303 setProp "method_access" "Published"
  1874.  
  1875. set row304 [$diag addRow method 0.0]
  1876. $row304 setLabel "name_type" "MouseDown()\n"
  1877. $row304 setProp "has_parmlist" "1"
  1878. $row304 setProp "is_event" "1"
  1879. $row304 setProp "method_access" "Published"
  1880.  
  1881. set row305 [$diag addRow method 0.0]
  1882. $row305 setLabel "name_type" "MouseMove()\n"
  1883. $row305 setProp "has_parmlist" "1"
  1884. $row305 setProp "is_event" "1"
  1885. $row305 setProp "method_access" "Published"
  1886.  
  1887. set row306 [$diag addRow method 0.0]
  1888. $row306 setLabel "name_type" "MouseUp()\n"
  1889. $row306 setProp "has_parmlist" "1"
  1890. $row306 setProp "is_event" "1"
  1891. $row306 setProp "method_access" "Published"
  1892.  
  1893. set row307 [$diag addRow method 0.0]
  1894. $row307 setLabel "name_type" "StartDrag()"
  1895. $row307 setProp "has_parmlist" "1"
  1896. $row307 setProp "is_event" "1"
  1897. $row307 setProp "method_access" "Published"
  1898.  
  1899. $diag save
  1900.  
  1901. # Generator: et.tcl    /main/titanic/10
  1902. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  1903. # Interpreter to use: Otsh V7.1.1/B5
  1904. #
  1905. OTShRegister::importTool
  1906.  
  1907. set diag [CDM new TDBEdit "DelphiVCL" "" "" "" "" "" 1]
  1908.  
  1909. set row308 [$diag addRow method 0.0]
  1910. $row308 setLabel "name_type" "Change()\n"
  1911. $row308 setProp "has_parmlist" "1"
  1912. $row308 setProp "is_event" "1"
  1913. $row308 setProp "method_access" "Published"
  1914.  
  1915. set row309 [$diag addRow method 0.0]
  1916. $row309 setLabel "name_type" "Click()\n"
  1917. $row309 setProp "has_parmlist" "1"
  1918. $row309 setProp "is_event" "1"
  1919. $row309 setProp "method_access" "Published"
  1920.  
  1921. set row310 [$diag addRow method 0.0]
  1922. $row310 setLabel "name_type" "DblClick()\n"
  1923. $row310 setProp "has_parmlist" "1"
  1924. $row310 setProp "is_event" "1"
  1925. $row310 setProp "method_access" "Published"
  1926.  
  1927. set row311 [$diag addRow method 0.0]
  1928. $row311 setLabel "name_type" "DragDrop()\n"
  1929. $row311 setProp "has_parmlist" "1"
  1930. $row311 setProp "is_event" "1"
  1931. $row311 setProp "method_access" "Published"
  1932.  
  1933. set row312 [$diag addRow method 0.0]
  1934. $row312 setLabel "name_type" "DragOver()\n"
  1935. $row312 setProp "has_parmlist" "1"
  1936. $row312 setProp "is_event" "1"
  1937. $row312 setProp "method_access" "Published"
  1938.  
  1939. set row313 [$diag addRow method 0.0]
  1940. $row313 setLabel "name_type" "EndDrag()\n"
  1941. $row313 setProp "has_parmlist" "1"
  1942. $row313 setProp "is_event" "1"
  1943. $row313 setProp "method_access" "Published"
  1944.  
  1945. set row314 [$diag addRow method 0.0]
  1946. $row314 setLabel "name_type" "Enter()\n"
  1947. $row314 setProp "has_parmlist" "1"
  1948. $row314 setProp "is_event" "1"
  1949. $row314 setProp "method_access" "Published"
  1950.  
  1951. set row315 [$diag addRow method 0.0]
  1952. $row315 setLabel "name_type" "Exit()\n"
  1953. $row315 setProp "has_parmlist" "1"
  1954. $row315 setProp "is_event" "1"
  1955. $row315 setProp "method_access" "Published"
  1956.  
  1957. set row316 [$diag addRow method 0.0]
  1958. $row316 setLabel "name_type" "KeyDown()\n"
  1959. $row316 setProp "has_parmlist" "1"
  1960. $row316 setProp "is_event" "1"
  1961. $row316 setProp "method_access" "Published"
  1962.  
  1963. set row317 [$diag addRow method 0.0]
  1964. $row317 setLabel "name_type" "KeyPress()\n"
  1965. $row317 setProp "has_parmlist" "1"
  1966. $row317 setProp "is_event" "1"
  1967. $row317 setProp "method_access" "Published"
  1968.  
  1969. set row318 [$diag addRow method 0.0]
  1970. $row318 setLabel "name_type" "KeyUp()\n"
  1971. $row318 setProp "has_parmlist" "1"
  1972. $row318 setProp "is_event" "1"
  1973. $row318 setProp "method_access" "Published"
  1974.  
  1975. set row319 [$diag addRow method 0.0]
  1976. $row319 setLabel "name_type" "MouseDown()\n"
  1977. $row319 setProp "has_parmlist" "1"
  1978. $row319 setProp "is_event" "1"
  1979. $row319 setProp "method_access" "Published"
  1980.  
  1981. set row320 [$diag addRow method 0.0]
  1982. $row320 setLabel "name_type" "MouseMove()\n"
  1983. $row320 setProp "has_parmlist" "1"
  1984. $row320 setProp "is_event" "1"
  1985. $row320 setProp "method_access" "Published"
  1986.  
  1987. set row321 [$diag addRow method 0.0]
  1988. $row321 setLabel "name_type" "MouseUp()\n"
  1989. $row321 setProp "has_parmlist" "1"
  1990. $row321 setProp "is_event" "1"
  1991. $row321 setProp "method_access" "Published"
  1992.  
  1993. set row322 [$diag addRow method 0.0]
  1994. $row322 setLabel "name_type" "StartDrag()"
  1995. $row322 setProp "has_parmlist" "1"
  1996. $row322 setProp "is_event" "1"
  1997. $row322 setProp "method_access" "Published"
  1998.  
  1999. $diag save
  2000.  
  2001. # Generator: et.tcl    /main/titanic/10
  2002. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2003. # Interpreter to use: Otsh V7.1.1/B5
  2004. #
  2005. OTShRegister::importTool
  2006.  
  2007. set diag [CDM new TRichEdit "DelphiVCL" "" "" "" "" "" 1]
  2008.  
  2009. set row323 [$diag addRow method 0.0]
  2010. $row323 setLabel "name_type" "ProtectChange()\n"
  2011. $row323 setProp "has_parmlist" "1"
  2012. $row323 setProp "is_event" "1"
  2013. $row323 setProp "method_access" "Published"
  2014.  
  2015. set row324 [$diag addRow method 0.0]
  2016. $row324 setLabel "name_type" "ResizeRequest()\n"
  2017. $row324 setProp "has_parmlist" "1"
  2018. $row324 setProp "is_event" "1"
  2019. $row324 setProp "method_access" "Published"
  2020.  
  2021. set row325 [$diag addRow method 0.0]
  2022. $row325 setLabel "name_type" "SaveClipboard()\n"
  2023. $row325 setProp "has_parmlist" "1"
  2024. $row325 setProp "is_event" "1"
  2025. $row325 setProp "method_access" "Published"
  2026.  
  2027. set row326 [$diag addRow method 0.0]
  2028. $row326 setLabel "name_type" "SelectionChange()\n"
  2029. $row326 setProp "has_parmlist" "1"
  2030. $row326 setProp "is_event" "1"
  2031. $row326 setProp "method_access" "Published"
  2032.  
  2033. set row327 [$diag addRow method 0.0]
  2034. $row327 setLabel "name_type" "Change()\n"
  2035. $row327 setProp "has_parmlist" "1"
  2036. $row327 setProp "is_event" "1"
  2037. $row327 setProp "method_access" "Published"
  2038.  
  2039. set row328 [$diag addRow method 0.0]
  2040. $row328 setLabel "name_type" "Enter()\n"
  2041. $row328 setProp "has_parmlist" "1"
  2042. $row328 setProp "is_event" "1"
  2043. $row328 setProp "method_access" "Published"
  2044.  
  2045. set row329 [$diag addRow method 0.0]
  2046. $row329 setLabel "name_type" "Exit()\n"
  2047. $row329 setProp "has_parmlist" "1"
  2048. $row329 setProp "is_event" "1"
  2049. $row329 setProp "method_access" "Published"
  2050.  
  2051. set row330 [$diag addRow method 0.0]
  2052. $row330 setLabel "name_type" "KeyDown()\n"
  2053. $row330 setProp "has_parmlist" "1"
  2054. $row330 setProp "is_event" "1"
  2055. $row330 setProp "method_access" "Published"
  2056.  
  2057. set row331 [$diag addRow method 0.0]
  2058. $row331 setLabel "name_type" "KeyPress()\n"
  2059. $row331 setProp "has_parmlist" "1"
  2060. $row331 setProp "is_event" "1"
  2061. $row331 setProp "method_access" "Published"
  2062.  
  2063. set row332 [$diag addRow method 0.0]
  2064. $row332 setLabel "name_type" "KeyUp()\n"
  2065. $row332 setProp "has_parmlist" "1"
  2066. $row332 setProp "is_event" "1"
  2067. $row332 setProp "method_access" "Published"
  2068.  
  2069. set row333 [$diag addRow method 0.0]
  2070. $row333 setLabel "name_type" "DragDrop()\n"
  2071. $row333 setProp "has_parmlist" "1"
  2072. $row333 setProp "is_event" "1"
  2073. $row333 setProp "method_access" "Published"
  2074.  
  2075. set row334 [$diag addRow method 0.0]
  2076. $row334 setLabel "name_type" "DragOver()\n"
  2077. $row334 setProp "has_parmlist" "1"
  2078. $row334 setProp "is_event" "1"
  2079. $row334 setProp "method_access" "Published"
  2080.  
  2081. set row335 [$diag addRow method 0.0]
  2082. $row335 setLabel "name_type" "EndDrag()\n"
  2083. $row335 setProp "has_parmlist" "1"
  2084. $row335 setProp "is_event" "1"
  2085. $row335 setProp "method_access" "Published"
  2086.  
  2087. set row336 [$diag addRow method 0.0]
  2088. $row336 setLabel "name_type" "MouseDown()\n"
  2089. $row336 setProp "has_parmlist" "1"
  2090. $row336 setProp "is_event" "1"
  2091. $row336 setProp "method_access" "Published"
  2092.  
  2093. set row337 [$diag addRow method 0.0]
  2094. $row337 setLabel "name_type" "MouseMove()\n"
  2095. $row337 setProp "has_parmlist" "1"
  2096. $row337 setProp "is_event" "1"
  2097. $row337 setProp "method_access" "Published"
  2098.  
  2099. set row338 [$diag addRow method 0.0]
  2100. $row338 setLabel "name_type" "MouseUp()\n"
  2101. $row338 setProp "has_parmlist" "1"
  2102. $row338 setProp "is_event" "1"
  2103. $row338 setProp "method_access" "Published"
  2104.  
  2105. set row339 [$diag addRow method 0.0]
  2106. $row339 setLabel "name_type" "StartDrag()"
  2107. $row339 setProp "has_parmlist" "1"
  2108. $row339 setProp "is_event" "1"
  2109. $row339 setProp "method_access" "Published"
  2110.  
  2111. $diag save
  2112.  
  2113. # Generator: et.tcl    /main/titanic/10
  2114. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2115. # Interpreter to use: Otsh V7.1.1/B5
  2116. #
  2117. OTShRegister::importTool
  2118.  
  2119. set diag [CDM new TTrackBar "DelphiVCL" "" "" "" "" "" 1]
  2120.  
  2121. set row340 [$diag addRow method 0.0]
  2122. $row340 setLabel "name_type" "Change()\n"
  2123. $row340 setProp "has_parmlist" "1"
  2124. $row340 setProp "is_event" "1"
  2125. $row340 setProp "method_access" "Published"
  2126.  
  2127. set row341 [$diag addRow method 0.0]
  2128. $row341 setLabel "name_type" "Enter()\n"
  2129. $row341 setProp "has_parmlist" "1"
  2130. $row341 setProp "is_event" "1"
  2131. $row341 setProp "method_access" "Published"
  2132.  
  2133. set row342 [$diag addRow method 0.0]
  2134. $row342 setLabel "name_type" "Exit()\n"
  2135. $row342 setProp "has_parmlist" "1"
  2136. $row342 setProp "is_event" "1"
  2137. $row342 setProp "method_access" "Published"
  2138.  
  2139. set row343 [$diag addRow method 0.0]
  2140. $row343 setLabel "name_type" "KeyDown()\n"
  2141. $row343 setProp "has_parmlist" "1"
  2142. $row343 setProp "is_event" "1"
  2143. $row343 setProp "method_access" "Published"
  2144.  
  2145. set row344 [$diag addRow method 0.0]
  2146. $row344 setLabel "name_type" "KeyPress()\n"
  2147. $row344 setProp "has_parmlist" "1"
  2148. $row344 setProp "is_event" "1"
  2149. $row344 setProp "method_access" "Published"
  2150.  
  2151. set row345 [$diag addRow method 0.0]
  2152. $row345 setLabel "name_type" "KeyUp()\n"
  2153. $row345 setProp "has_parmlist" "1"
  2154. $row345 setProp "is_event" "1"
  2155. $row345 setProp "method_access" "Published"
  2156.  
  2157. set row346 [$diag addRow method 0.0]
  2158. $row346 setLabel "name_type" "DragDrop()\n"
  2159. $row346 setProp "has_parmlist" "1"
  2160. $row346 setProp "is_event" "1"
  2161. $row346 setProp "method_access" "Published"
  2162.  
  2163. set row347 [$diag addRow method 0.0]
  2164. $row347 setLabel "name_type" "DragOver()\n"
  2165. $row347 setProp "has_parmlist" "1"
  2166. $row347 setProp "is_event" "1"
  2167. $row347 setProp "method_access" "Published"
  2168.  
  2169. set row348 [$diag addRow method 0.0]
  2170. $row348 setLabel "name_type" "EndDrag()\n"
  2171. $row348 setProp "has_parmlist" "1"
  2172. $row348 setProp "is_event" "1"
  2173. $row348 setProp "method_access" "Published"
  2174.  
  2175. set row349 [$diag addRow method 0.0]
  2176. $row349 setLabel "name_type" "StartDrag()"
  2177. $row349 setProp "has_parmlist" "1"
  2178. $row349 setProp "is_event" "1"
  2179. $row349 setProp "method_access" "Published"
  2180.  
  2181. $diag save
  2182.  
  2183. # Generator: et.tcl    /main/titanic/10
  2184. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2185. # Interpreter to use: Otsh V7.1.1/B5
  2186. #
  2187. OTShRegister::importTool
  2188.  
  2189. set diag [CDM new TDBCheckBox "DelphiVCL" "" "" "" "" "" 1]
  2190.  
  2191. set row350 [$diag addRow method 0.0]
  2192. $row350 setLabel "name_type" "Click()\n"
  2193. $row350 setProp "has_parmlist" "1"
  2194. $row350 setProp "is_event" "1"
  2195. $row350 setProp "method_access" "Published"
  2196.  
  2197. set row351 [$diag addRow method 0.0]
  2198. $row351 setLabel "name_type" "DragDrop()\n"
  2199. $row351 setProp "has_parmlist" "1"
  2200. $row351 setProp "is_event" "1"
  2201. $row351 setProp "method_access" "Published"
  2202.  
  2203. set row352 [$diag addRow method 0.0]
  2204. $row352 setLabel "name_type" "DragOver()\n"
  2205. $row352 setProp "has_parmlist" "1"
  2206. $row352 setProp "is_event" "1"
  2207. $row352 setProp "method_access" "Published"
  2208.  
  2209. set row353 [$diag addRow method 0.0]
  2210. $row353 setLabel "name_type" "EndDrag()\n"
  2211. $row353 setProp "has_parmlist" "1"
  2212. $row353 setProp "is_event" "1"
  2213. $row353 setProp "method_access" "Published"
  2214.  
  2215. set row354 [$diag addRow method 0.0]
  2216. $row354 setLabel "name_type" "Enter()\n"
  2217. $row354 setProp "has_parmlist" "1"
  2218. $row354 setProp "is_event" "1"
  2219. $row354 setProp "method_access" "Published"
  2220.  
  2221. set row355 [$diag addRow method 0.0]
  2222. $row355 setLabel "name_type" "Exit()\n"
  2223. $row355 setProp "has_parmlist" "1"
  2224. $row355 setProp "is_event" "1"
  2225. $row355 setProp "method_access" "Published"
  2226.  
  2227. set row356 [$diag addRow method 0.0]
  2228. $row356 setLabel "name_type" "KeyDown()\n"
  2229. $row356 setProp "has_parmlist" "1"
  2230. $row356 setProp "is_event" "1"
  2231. $row356 setProp "method_access" "Published"
  2232.  
  2233. set row357 [$diag addRow method 0.0]
  2234. $row357 setLabel "name_type" "KeyPress()\n"
  2235. $row357 setProp "has_parmlist" "1"
  2236. $row357 setProp "is_event" "1"
  2237. $row357 setProp "method_access" "Published"
  2238.  
  2239. set row358 [$diag addRow method 0.0]
  2240. $row358 setLabel "name_type" "KeyUp()\n"
  2241. $row358 setProp "has_parmlist" "1"
  2242. $row358 setProp "is_event" "1"
  2243. $row358 setProp "method_access" "Published"
  2244.  
  2245. set row359 [$diag addRow method 0.0]
  2246. $row359 setLabel "name_type" "MouseDown()\n"
  2247. $row359 setProp "has_parmlist" "1"
  2248. $row359 setProp "is_event" "1"
  2249. $row359 setProp "method_access" "Published"
  2250.  
  2251. set row360 [$diag addRow method 0.0]
  2252. $row360 setLabel "name_type" "MouseMove()\n"
  2253. $row360 setProp "has_parmlist" "1"
  2254. $row360 setProp "is_event" "1"
  2255. $row360 setProp "method_access" "Published"
  2256.  
  2257. set row361 [$diag addRow method 0.0]
  2258. $row361 setLabel "name_type" "MouseUp()\n"
  2259. $row361 setProp "has_parmlist" "1"
  2260. $row361 setProp "is_event" "1"
  2261. $row361 setProp "method_access" "Published"
  2262.  
  2263. set row362 [$diag addRow method 0.0]
  2264. $row362 setLabel "name_type" "StartDrag()"
  2265. $row362 setProp "has_parmlist" "1"
  2266. $row362 setProp "is_event" "1"
  2267. $row362 setProp "method_access" "Published"
  2268.  
  2269. $diag save
  2270.  
  2271. # Generator: et.tcl    /main/titanic/10
  2272. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2273. # Interpreter to use: Otsh V7.1.1/B5
  2274. #
  2275. OTShRegister::importTool
  2276.  
  2277. set diag [CDM new TDBComboBox "DelphiVCL" "" "" "" "" "" 1]
  2278.  
  2279. set row363 [$diag addRow method 0.0]
  2280. $row363 setLabel "name_type" "Change()\n"
  2281. $row363 setProp "has_parmlist" "1"
  2282. $row363 setProp "is_event" "1"
  2283. $row363 setProp "method_access" "Published"
  2284.  
  2285. set row364 [$diag addRow method 0.0]
  2286. $row364 setLabel "name_type" "Click()\n"
  2287. $row364 setProp "has_parmlist" "1"
  2288. $row364 setProp "is_event" "1"
  2289. $row364 setProp "method_access" "Published"
  2290.  
  2291. set row365 [$diag addRow method 0.0]
  2292. $row365 setLabel "name_type" "DblClick()\n"
  2293. $row365 setProp "has_parmlist" "1"
  2294. $row365 setProp "is_event" "1"
  2295. $row365 setProp "method_access" "Published"
  2296.  
  2297. set row366 [$diag addRow method 0.0]
  2298. $row366 setLabel "name_type" "DragDrop()\n"
  2299. $row366 setProp "has_parmlist" "1"
  2300. $row366 setProp "is_event" "1"
  2301. $row366 setProp "method_access" "Published"
  2302.  
  2303. set row367 [$diag addRow method 0.0]
  2304. $row367 setLabel "name_type" "DragOver()\n"
  2305. $row367 setProp "has_parmlist" "1"
  2306. $row367 setProp "is_event" "1"
  2307. $row367 setProp "method_access" "Published"
  2308.  
  2309. set row368 [$diag addRow method 0.0]
  2310. $row368 setLabel "name_type" "DrawItem()\n"
  2311. $row368 setProp "has_parmlist" "1"
  2312. $row368 setProp "is_event" "1"
  2313. $row368 setProp "method_access" "Published"
  2314.  
  2315. set row369 [$diag addRow method 0.0]
  2316. $row369 setLabel "name_type" "DropDown()\n"
  2317. $row369 setProp "has_parmlist" "1"
  2318. $row369 setProp "is_event" "1"
  2319. $row369 setProp "method_access" "Published"
  2320.  
  2321. set row370 [$diag addRow method 0.0]
  2322. $row370 setLabel "name_type" "EndDrag()\n"
  2323. $row370 setProp "has_parmlist" "1"
  2324. $row370 setProp "is_event" "1"
  2325. $row370 setProp "method_access" "Published"
  2326.  
  2327. set row371 [$diag addRow method 0.0]
  2328. $row371 setLabel "name_type" "Enter()\n"
  2329. $row371 setProp "has_parmlist" "1"
  2330. $row371 setProp "is_event" "1"
  2331. $row371 setProp "method_access" "Published"
  2332.  
  2333. set row372 [$diag addRow method 0.0]
  2334. $row372 setLabel "name_type" "Exit()\n"
  2335. $row372 setProp "has_parmlist" "1"
  2336. $row372 setProp "is_event" "1"
  2337. $row372 setProp "method_access" "Published"
  2338.  
  2339. set row373 [$diag addRow method 0.0]
  2340. $row373 setLabel "name_type" "KeyDown()\n"
  2341. $row373 setProp "has_parmlist" "1"
  2342. $row373 setProp "is_event" "1"
  2343. $row373 setProp "method_access" "Published"
  2344.  
  2345. set row374 [$diag addRow method 0.0]
  2346. $row374 setLabel "name_type" "KeyPress()\n"
  2347. $row374 setProp "has_parmlist" "1"
  2348. $row374 setProp "is_event" "1"
  2349. $row374 setProp "method_access" "Published"
  2350.  
  2351. set row375 [$diag addRow method 0.0]
  2352. $row375 setLabel "name_type" "KeyUp()\n"
  2353. $row375 setProp "has_parmlist" "1"
  2354. $row375 setProp "is_event" "1"
  2355. $row375 setProp "method_access" "Published"
  2356.  
  2357. set row376 [$diag addRow method 0.0]
  2358. $row376 setLabel "name_type" "MeasureItem()\n"
  2359. $row376 setProp "has_parmlist" "1"
  2360. $row376 setProp "is_event" "1"
  2361. $row376 setProp "method_access" "Published"
  2362.  
  2363. set row377 [$diag addRow method 0.0]
  2364. $row377 setLabel "name_type" "StartDrag()"
  2365. $row377 setProp "has_parmlist" "1"
  2366. $row377 setProp "is_event" "1"
  2367. $row377 setProp "method_access" "Published"
  2368.  
  2369. $diag save
  2370.  
  2371. # Generator: et.tcl    /main/titanic/10
  2372. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2373. # Interpreter to use: Otsh V7.1.1/B5
  2374. #
  2375. OTShRegister::importTool
  2376.  
  2377. set diag [CDM new TDBListBox "DelphiVCL" "" "" "" "" "" 1]
  2378.  
  2379. set row378 [$diag addRow method 0.0]
  2380. $row378 setLabel "name_type" "Click()\n"
  2381. $row378 setProp "has_parmlist" "1"
  2382. $row378 setProp "is_event" "1"
  2383. $row378 setProp "method_access" "Published"
  2384.  
  2385. set row379 [$diag addRow method 0.0]
  2386. $row379 setLabel "name_type" "DblClick()\n"
  2387. $row379 setProp "has_parmlist" "1"
  2388. $row379 setProp "is_event" "1"
  2389. $row379 setProp "method_access" "Published"
  2390.  
  2391. set row380 [$diag addRow method 0.0]
  2392. $row380 setLabel "name_type" "DragDrop()\n"
  2393. $row380 setProp "has_parmlist" "1"
  2394. $row380 setProp "is_event" "1"
  2395. $row380 setProp "method_access" "Published"
  2396.  
  2397. set row381 [$diag addRow method 0.0]
  2398. $row381 setLabel "name_type" "DragOver()\n"
  2399. $row381 setProp "has_parmlist" "1"
  2400. $row381 setProp "is_event" "1"
  2401. $row381 setProp "method_access" "Published"
  2402.  
  2403. set row382 [$diag addRow method 0.0]
  2404. $row382 setLabel "name_type" "DrawItem()\n"
  2405. $row382 setProp "has_parmlist" "1"
  2406. $row382 setProp "is_event" "1"
  2407. $row382 setProp "method_access" "Published"
  2408.  
  2409. set row383 [$diag addRow method 0.0]
  2410. $row383 setLabel "name_type" "EndDrag()\n"
  2411. $row383 setProp "has_parmlist" "1"
  2412. $row383 setProp "is_event" "1"
  2413. $row383 setProp "method_access" "Published"
  2414.  
  2415. set row384 [$diag addRow method 0.0]
  2416. $row384 setLabel "name_type" "Enter()\n"
  2417. $row384 setProp "has_parmlist" "1"
  2418. $row384 setProp "is_event" "1"
  2419. $row384 setProp "method_access" "Published"
  2420.  
  2421. set row385 [$diag addRow method 0.0]
  2422. $row385 setLabel "name_type" "Exit()\n"
  2423. $row385 setProp "has_parmlist" "1"
  2424. $row385 setProp "is_event" "1"
  2425. $row385 setProp "method_access" "Published"
  2426.  
  2427. set row386 [$diag addRow method 0.0]
  2428. $row386 setLabel "name_type" "KeyDown()\n"
  2429. $row386 setProp "has_parmlist" "1"
  2430. $row386 setProp "is_event" "1"
  2431. $row386 setProp "method_access" "Published"
  2432.  
  2433. set row387 [$diag addRow method 0.0]
  2434. $row387 setLabel "name_type" "KeyPress()\n"
  2435. $row387 setProp "has_parmlist" "1"
  2436. $row387 setProp "is_event" "1"
  2437. $row387 setProp "method_access" "Published"
  2438.  
  2439. set row388 [$diag addRow method 0.0]
  2440. $row388 setLabel "name_type" "KeyUp()\n"
  2441. $row388 setProp "has_parmlist" "1"
  2442. $row388 setProp "is_event" "1"
  2443. $row388 setProp "method_access" "Published"
  2444.  
  2445. set row389 [$diag addRow method 0.0]
  2446. $row389 setLabel "name_type" "MeasureItem()\n"
  2447. $row389 setProp "has_parmlist" "1"
  2448. $row389 setProp "is_event" "1"
  2449. $row389 setProp "method_access" "Published"
  2450.  
  2451. set row390 [$diag addRow method 0.0]
  2452. $row390 setLabel "name_type" "MouseDown()\n"
  2453. $row390 setProp "has_parmlist" "1"
  2454. $row390 setProp "is_event" "1"
  2455. $row390 setProp "method_access" "Published"
  2456.  
  2457. set row391 [$diag addRow method 0.0]
  2458. $row391 setLabel "name_type" "MouseMove()\n"
  2459. $row391 setProp "has_parmlist" "1"
  2460. $row391 setProp "is_event" "1"
  2461. $row391 setProp "method_access" "Published"
  2462.  
  2463. set row392 [$diag addRow method 0.0]
  2464. $row392 setLabel "name_type" "MouseUp()\n"
  2465. $row392 setProp "has_parmlist" "1"
  2466. $row392 setProp "is_event" "1"
  2467. $row392 setProp "method_access" "Published"
  2468.  
  2469. set row393 [$diag addRow method 0.0]
  2470. $row393 setLabel "name_type" "StartDrag()"
  2471. $row393 setProp "has_parmlist" "1"
  2472. $row393 setProp "is_event" "1"
  2473. $row393 setProp "method_access" "Published"
  2474.  
  2475. $diag save
  2476.  
  2477. # Generator: et.tcl    /main/titanic/10
  2478. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2479. # Interpreter to use: Otsh V7.1.1/B5
  2480. #
  2481. OTShRegister::importTool
  2482.  
  2483. set diag [CDM new TDBMemo "DelphiVCL" "" "" "" "" "" 1]
  2484.  
  2485. set row394 [$diag addRow method 0.0]
  2486. $row394 setLabel "name_type" "Change()\n"
  2487. $row394 setProp "has_parmlist" "1"
  2488. $row394 setProp "is_event" "1"
  2489. $row394 setProp "method_access" "Published"
  2490.  
  2491. set row395 [$diag addRow method 0.0]
  2492. $row395 setLabel "name_type" "Click()\n"
  2493. $row395 setProp "has_parmlist" "1"
  2494. $row395 setProp "is_event" "1"
  2495. $row395 setProp "method_access" "Published"
  2496.  
  2497. set row396 [$diag addRow method 0.0]
  2498. $row396 setLabel "name_type" "DblClick()\n"
  2499. $row396 setProp "has_parmlist" "1"
  2500. $row396 setProp "is_event" "1"
  2501. $row396 setProp "method_access" "Published"
  2502.  
  2503. set row397 [$diag addRow method 0.0]
  2504. $row397 setLabel "name_type" "DragDrop()\n"
  2505. $row397 setProp "has_parmlist" "1"
  2506. $row397 setProp "is_event" "1"
  2507. $row397 setProp "method_access" "Published"
  2508.  
  2509. set row398 [$diag addRow method 0.0]
  2510. $row398 setLabel "name_type" "DragOver()\n"
  2511. $row398 setProp "has_parmlist" "1"
  2512. $row398 setProp "is_event" "1"
  2513. $row398 setProp "method_access" "Published"
  2514.  
  2515. set row399 [$diag addRow method 0.0]
  2516. $row399 setLabel "name_type" "EndDrag()\n"
  2517. $row399 setProp "has_parmlist" "1"
  2518. $row399 setProp "is_event" "1"
  2519. $row399 setProp "method_access" "Published"
  2520.  
  2521. set row400 [$diag addRow method 0.0]
  2522. $row400 setLabel "name_type" "Enter()\n"
  2523. $row400 setProp "has_parmlist" "1"
  2524. $row400 setProp "is_event" "1"
  2525. $row400 setProp "method_access" "Published"
  2526.  
  2527. set row401 [$diag addRow method 0.0]
  2528. $row401 setLabel "name_type" "Exit()\n"
  2529. $row401 setProp "has_parmlist" "1"
  2530. $row401 setProp "is_event" "1"
  2531. $row401 setProp "method_access" "Published"
  2532.  
  2533. set row402 [$diag addRow method 0.0]
  2534. $row402 setLabel "name_type" "KeyDown()\n"
  2535. $row402 setProp "has_parmlist" "1"
  2536. $row402 setProp "is_event" "1"
  2537. $row402 setProp "method_access" "Published"
  2538.  
  2539. set row403 [$diag addRow method 0.0]
  2540. $row403 setLabel "name_type" "KeyPress()\n"
  2541. $row403 setProp "has_parmlist" "1"
  2542. $row403 setProp "is_event" "1"
  2543. $row403 setProp "method_access" "Published"
  2544.  
  2545. set row404 [$diag addRow method 0.0]
  2546. $row404 setLabel "name_type" "KeyUp()\n"
  2547. $row404 setProp "has_parmlist" "1"
  2548. $row404 setProp "is_event" "1"
  2549. $row404 setProp "method_access" "Published"
  2550.  
  2551. set row405 [$diag addRow method 0.0]
  2552. $row405 setLabel "name_type" "MouseDown()\n"
  2553. $row405 setProp "has_parmlist" "1"
  2554. $row405 setProp "is_event" "1"
  2555. $row405 setProp "method_access" "Published"
  2556.  
  2557. set row406 [$diag addRow method 0.0]
  2558. $row406 setLabel "name_type" "MouseMove()\n"
  2559. $row406 setProp "has_parmlist" "1"
  2560. $row406 setProp "is_event" "1"
  2561. $row406 setProp "method_access" "Published"
  2562.  
  2563. set row407 [$diag addRow method 0.0]
  2564. $row407 setLabel "name_type" "MouseUp()\n"
  2565. $row407 setProp "has_parmlist" "1"
  2566. $row407 setProp "is_event" "1"
  2567. $row407 setProp "method_access" "Published"
  2568.  
  2569. set row408 [$diag addRow method 0.0]
  2570. $row408 setLabel "name_type" "StartDrag()"
  2571. $row408 setProp "has_parmlist" "1"
  2572. $row408 setProp "is_event" "1"
  2573. $row408 setProp "method_access" "Published"
  2574.  
  2575. $diag save
  2576.  
  2577. # Generator: et.tcl    /main/titanic/10
  2578. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2579. # Interpreter to use: Otsh V7.1.1/B5
  2580. #
  2581. OTShRegister::importTool
  2582.  
  2583. set diag [CDM new TDBImage "DelphiVCL" "" "" "" "" "" 1]
  2584.  
  2585. set row409 [$diag addRow method 0.0]
  2586. $row409 setLabel "name_type" "Click()\n"
  2587. $row409 setProp "has_parmlist" "1"
  2588. $row409 setProp "is_event" "1"
  2589. $row409 setProp "method_access" "Published"
  2590.  
  2591. set row410 [$diag addRow method 0.0]
  2592. $row410 setLabel "name_type" "DblClick()\n"
  2593. $row410 setProp "has_parmlist" "1"
  2594. $row410 setProp "is_event" "1"
  2595. $row410 setProp "method_access" "Published"
  2596.  
  2597. set row411 [$diag addRow method 0.0]
  2598. $row411 setLabel "name_type" "DragDrop()\n"
  2599. $row411 setProp "has_parmlist" "1"
  2600. $row411 setProp "is_event" "1"
  2601. $row411 setProp "method_access" "Published"
  2602.  
  2603. set row412 [$diag addRow method 0.0]
  2604. $row412 setLabel "name_type" "DragOver()\n"
  2605. $row412 setProp "has_parmlist" "1"
  2606. $row412 setProp "is_event" "1"
  2607. $row412 setProp "method_access" "Published"
  2608.  
  2609. set row413 [$diag addRow method 0.0]
  2610. $row413 setLabel "name_type" "EndDrag()\n"
  2611. $row413 setProp "has_parmlist" "1"
  2612. $row413 setProp "is_event" "1"
  2613. $row413 setProp "method_access" "Published"
  2614.  
  2615. set row414 [$diag addRow method 0.0]
  2616. $row414 setLabel "name_type" "Enter()\n"
  2617. $row414 setProp "has_parmlist" "1"
  2618. $row414 setProp "is_event" "1"
  2619. $row414 setProp "method_access" "Published"
  2620.  
  2621. set row415 [$diag addRow method 0.0]
  2622. $row415 setLabel "name_type" "Exit()\n"
  2623. $row415 setProp "has_parmlist" "1"
  2624. $row415 setProp "is_event" "1"
  2625. $row415 setProp "method_access" "Published"
  2626.  
  2627. set row416 [$diag addRow method 0.0]
  2628. $row416 setLabel "name_type" "KeyDown()\n"
  2629. $row416 setProp "has_parmlist" "1"
  2630. $row416 setProp "is_event" "1"
  2631. $row416 setProp "method_access" "Published"
  2632.  
  2633. set row417 [$diag addRow method 0.0]
  2634. $row417 setLabel "name_type" "KeyPress()\n"
  2635. $row417 setProp "has_parmlist" "1"
  2636. $row417 setProp "is_event" "1"
  2637. $row417 setProp "method_access" "Published"
  2638.  
  2639. set row418 [$diag addRow method 0.0]
  2640. $row418 setLabel "name_type" "KeyUp()\n"
  2641. $row418 setProp "has_parmlist" "1"
  2642. $row418 setProp "is_event" "1"
  2643. $row418 setProp "method_access" "Published"
  2644.  
  2645. set row419 [$diag addRow method 0.0]
  2646. $row419 setLabel "name_type" "MouseDown()\n"
  2647. $row419 setProp "has_parmlist" "1"
  2648. $row419 setProp "is_event" "1"
  2649. $row419 setProp "method_access" "Published"
  2650.  
  2651. set row420 [$diag addRow method 0.0]
  2652. $row420 setLabel "name_type" "MouseMove()\n"
  2653. $row420 setProp "has_parmlist" "1"
  2654. $row420 setProp "is_event" "1"
  2655. $row420 setProp "method_access" "Published"
  2656.  
  2657. set row421 [$diag addRow method 0.0]
  2658. $row421 setLabel "name_type" "MouseUp()\n"
  2659. $row421 setProp "has_parmlist" "1"
  2660. $row421 setProp "is_event" "1"
  2661. $row421 setProp "method_access" "Published"
  2662.  
  2663. set row422 [$diag addRow method 0.0]
  2664. $row422 setLabel "name_type" "StartDrag()"
  2665. $row422 setProp "has_parmlist" "1"
  2666. $row422 setProp "is_event" "1"
  2667. $row422 setProp "method_access" "Published"
  2668.  
  2669. $diag save
  2670.  
  2671. # Generator: et.tcl    /main/titanic/10
  2672. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2673. # Interpreter to use: Otsh V7.1.1/B5
  2674. #
  2675. OTShRegister::importTool
  2676.  
  2677. set diag [CDM new TDBNavigator "DelphiVCL" "" "" "" "" "" 1]
  2678.  
  2679. set row423 [$diag addRow method 0.0]
  2680. $row423 setLabel "name_type" "Click()\n"
  2681. $row423 setProp "has_parmlist" "1"
  2682. $row423 setProp "is_event" "1"
  2683. $row423 setProp "method_access" "Published"
  2684.  
  2685. set row424 [$diag addRow method 0.0]
  2686. $row424 setLabel "name_type" "DblClick()\n"
  2687. $row424 setProp "has_parmlist" "1"
  2688. $row424 setProp "is_event" "1"
  2689. $row424 setProp "method_access" "Published"
  2690.  
  2691. set row425 [$diag addRow method 0.0]
  2692. $row425 setLabel "name_type" "DragDrop()\n"
  2693. $row425 setProp "has_parmlist" "1"
  2694. $row425 setProp "is_event" "1"
  2695. $row425 setProp "method_access" "Published"
  2696.  
  2697. set row426 [$diag addRow method 0.0]
  2698. $row426 setLabel "name_type" "DragOver()\n"
  2699. $row426 setProp "has_parmlist" "1"
  2700. $row426 setProp "is_event" "1"
  2701. $row426 setProp "method_access" "Published"
  2702.  
  2703. set row427 [$diag addRow method 0.0]
  2704. $row427 setLabel "name_type" "EndDrag()\n"
  2705. $row427 setProp "has_parmlist" "1"
  2706. $row427 setProp "is_event" "1"
  2707. $row427 setProp "method_access" "Published"
  2708.  
  2709. set row428 [$diag addRow method 0.0]
  2710. $row428 setLabel "name_type" "Enter()\n"
  2711. $row428 setProp "has_parmlist" "1"
  2712. $row428 setProp "is_event" "1"
  2713. $row428 setProp "method_access" "Published"
  2714.  
  2715. set row429 [$diag addRow method 0.0]
  2716. $row429 setLabel "name_type" "Exit()\n"
  2717. $row429 setProp "has_parmlist" "1"
  2718. $row429 setProp "is_event" "1"
  2719. $row429 setProp "method_access" "Published"
  2720.  
  2721. set row430 [$diag addRow method 0.0]
  2722. $row430 setLabel "name_type" "MouseDown()\n"
  2723. $row430 setProp "has_parmlist" "1"
  2724. $row430 setProp "is_event" "1"
  2725. $row430 setProp "method_access" "Published"
  2726.  
  2727. set row431 [$diag addRow method 0.0]
  2728. $row431 setLabel "name_type" "MouseMove()\n"
  2729. $row431 setProp "has_parmlist" "1"
  2730. $row431 setProp "is_event" "1"
  2731. $row431 setProp "method_access" "Published"
  2732.  
  2733. set row432 [$diag addRow method 0.0]
  2734. $row432 setLabel "name_type" "MouseUp()\n"
  2735. $row432 setProp "has_parmlist" "1"
  2736. $row432 setProp "is_event" "1"
  2737. $row432 setProp "method_access" "Published"
  2738.  
  2739. set row433 [$diag addRow method 0.0]
  2740. $row433 setLabel "name_type" "Resize()\n"
  2741. $row433 setProp "has_parmlist" "1"
  2742. $row433 setProp "is_event" "1"
  2743. $row433 setProp "method_access" "Published"
  2744.  
  2745. set row434 [$diag addRow method 0.0]
  2746. $row434 setLabel "name_type" "StartDrag()"
  2747. $row434 setProp "has_parmlist" "1"
  2748. $row434 setProp "is_event" "1"
  2749. $row434 setProp "method_access" "Published"
  2750.  
  2751. $diag save
  2752.  
  2753. # Generator: et.tcl    /main/titanic/10
  2754. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2755. # Interpreter to use: Otsh V7.1.1/B5
  2756. #
  2757. OTShRegister::importTool
  2758.  
  2759. set diag [CDM new TDBRadioGroup "DelphiVCL" "" "" "" "" "" 1]
  2760.  
  2761. set row435 [$diag addRow method 0.0]
  2762. $row435 setLabel "name_type" "Change()\n"
  2763. $row435 setProp "has_parmlist" "1"
  2764. $row435 setProp "is_event" "1"
  2765. $row435 setProp "method_access" "Published"
  2766.  
  2767. set row436 [$diag addRow method 0.0]
  2768. $row436 setLabel "name_type" "Click()\n"
  2769. $row436 setProp "has_parmlist" "1"
  2770. $row436 setProp "is_event" "1"
  2771. $row436 setProp "method_access" "Published"
  2772.  
  2773. set row437 [$diag addRow method 0.0]
  2774. $row437 setLabel "name_type" "DblClick()\n"
  2775. $row437 setProp "has_parmlist" "1"
  2776. $row437 setProp "is_event" "1"
  2777. $row437 setProp "method_access" "Published"
  2778.  
  2779. set row438 [$diag addRow method 0.0]
  2780. $row438 setLabel "name_type" "DragDrop()\n"
  2781. $row438 setProp "has_parmlist" "1"
  2782. $row438 setProp "is_event" "1"
  2783. $row438 setProp "method_access" "Published"
  2784.  
  2785. set row439 [$diag addRow method 0.0]
  2786. $row439 setLabel "name_type" "DragOver()\n"
  2787. $row439 setProp "has_parmlist" "1"
  2788. $row439 setProp "is_event" "1"
  2789. $row439 setProp "method_access" "Published"
  2790.  
  2791. set row440 [$diag addRow method 0.0]
  2792. $row440 setLabel "name_type" "EndDrag()\n"
  2793. $row440 setProp "has_parmlist" "1"
  2794. $row440 setProp "is_event" "1"
  2795. $row440 setProp "method_access" "Published"
  2796.  
  2797. set row441 [$diag addRow method 0.0]
  2798. $row441 setLabel "name_type" "Enter()\n"
  2799. $row441 setProp "has_parmlist" "1"
  2800. $row441 setProp "is_event" "1"
  2801. $row441 setProp "method_access" "Published"
  2802.  
  2803. set row442 [$diag addRow method 0.0]
  2804. $row442 setLabel "name_type" "Exit()\n"
  2805. $row442 setProp "has_parmlist" "1"
  2806. $row442 setProp "is_event" "1"
  2807. $row442 setProp "method_access" "Published"
  2808.  
  2809. set row443 [$diag addRow method 0.0]
  2810. $row443 setLabel "name_type" "StartDrag()"
  2811. $row443 setProp "has_parmlist" "1"
  2812. $row443 setProp "is_event" "1"
  2813. $row443 setProp "method_access" "Published"
  2814.  
  2815. $diag save
  2816.  
  2817. # Generator: et.tcl    /main/titanic/10
  2818. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2819. # Interpreter to use: Otsh V7.1.1/B5
  2820. #
  2821. OTShRegister::importTool
  2822.  
  2823. set diag [CDM new TDBLookupListBox "DelphiVCL" "" "" "" "" "" 1]
  2824.  
  2825. set row444 [$diag addRow method 0.0]
  2826. $row444 setLabel "name_type" "Click()\n"
  2827. $row444 setProp "has_parmlist" "1"
  2828. $row444 setProp "is_event" "1"
  2829. $row444 setProp "method_access" "Published"
  2830.  
  2831. set row445 [$diag addRow method 0.0]
  2832. $row445 setLabel "name_type" "DblClick()\n"
  2833. $row445 setProp "has_parmlist" "1"
  2834. $row445 setProp "is_event" "1"
  2835. $row445 setProp "method_access" "Published"
  2836.  
  2837. set row446 [$diag addRow method 0.0]
  2838. $row446 setLabel "name_type" "DragDrop()\n"
  2839. $row446 setProp "has_parmlist" "1"
  2840. $row446 setProp "is_event" "1"
  2841. $row446 setProp "method_access" "Published"
  2842.  
  2843. set row447 [$diag addRow method 0.0]
  2844. $row447 setLabel "name_type" "DragOver()\n"
  2845. $row447 setProp "has_parmlist" "1"
  2846. $row447 setProp "is_event" "1"
  2847. $row447 setProp "method_access" "Published"
  2848.  
  2849. set row448 [$diag addRow method 0.0]
  2850. $row448 setLabel "name_type" "EndDrag()\n"
  2851. $row448 setProp "has_parmlist" "1"
  2852. $row448 setProp "is_event" "1"
  2853. $row448 setProp "method_access" "Published"
  2854.  
  2855. set row449 [$diag addRow method 0.0]
  2856. $row449 setLabel "name_type" "Enter()\n"
  2857. $row449 setProp "has_parmlist" "1"
  2858. $row449 setProp "is_event" "1"
  2859. $row449 setProp "method_access" "Published"
  2860.  
  2861. set row450 [$diag addRow method 0.0]
  2862. $row450 setLabel "name_type" "Exit()\n"
  2863. $row450 setProp "has_parmlist" "1"
  2864. $row450 setProp "is_event" "1"
  2865. $row450 setProp "method_access" "Published"
  2866.  
  2867. set row451 [$diag addRow method 0.0]
  2868. $row451 setLabel "name_type" "KeyDown()\n"
  2869. $row451 setProp "has_parmlist" "1"
  2870. $row451 setProp "is_event" "1"
  2871. $row451 setProp "method_access" "Published"
  2872.  
  2873. set row452 [$diag addRow method 0.0]
  2874. $row452 setLabel "name_type" "KeyPress()\n"
  2875. $row452 setProp "has_parmlist" "1"
  2876. $row452 setProp "is_event" "1"
  2877. $row452 setProp "method_access" "Published"
  2878.  
  2879. set row453 [$diag addRow method 0.0]
  2880. $row453 setLabel "name_type" "KeyUp()\n"
  2881. $row453 setProp "has_parmlist" "1"
  2882. $row453 setProp "is_event" "1"
  2883. $row453 setProp "method_access" "Published"
  2884.  
  2885. set row454 [$diag addRow method 0.0]
  2886. $row454 setLabel "name_type" "MouseDown()\n"
  2887. $row454 setProp "has_parmlist" "1"
  2888. $row454 setProp "is_event" "1"
  2889. $row454 setProp "method_access" "Published"
  2890.  
  2891. set row455 [$diag addRow method 0.0]
  2892. $row455 setLabel "name_type" "MouseMove()\n"
  2893. $row455 setProp "has_parmlist" "1"
  2894. $row455 setProp "is_event" "1"
  2895. $row455 setProp "method_access" "Published"
  2896.  
  2897. set row456 [$diag addRow method 0.0]
  2898. $row456 setLabel "name_type" "MouseUp()\n"
  2899. $row456 setProp "has_parmlist" "1"
  2900. $row456 setProp "is_event" "1"
  2901. $row456 setProp "method_access" "Published"
  2902.  
  2903. set row457 [$diag addRow method 0.0]
  2904. $row457 setLabel "name_type" "StartDrag()"
  2905. $row457 setProp "has_parmlist" "1"
  2906. $row457 setProp "is_event" "1"
  2907. $row457 setProp "method_access" "Published"
  2908.  
  2909. $diag save
  2910.  
  2911. # Generator: et.tcl    /main/titanic/10
  2912. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  2913. # Interpreter to use: Otsh V7.1.1/B5
  2914. #
  2915. OTShRegister::importTool
  2916.  
  2917. set diag [CDM new TDBLookupComboBox "DelphiVCL" "" "" "" "" "" 1]
  2918.  
  2919. set row458 [$diag addRow method 0.0]
  2920. $row458 setLabel "name_type" "Click()\n"
  2921. $row458 setProp "has_parmlist" "1"
  2922. $row458 setProp "is_event" "1"
  2923. $row458 setProp "method_access" "Published"
  2924.  
  2925. set row459 [$diag addRow method 0.0]
  2926. $row459 setLabel "name_type" "DblClick()\n"
  2927. $row459 setProp "has_parmlist" "1"
  2928. $row459 setProp "is_event" "1"
  2929. $row459 setProp "method_access" "Published"
  2930.  
  2931. set row460 [$diag addRow method 0.0]
  2932. $row460 setLabel "name_type" "DragDrop()\n"
  2933. $row460 setProp "has_parmlist" "1"
  2934. $row460 setProp "is_event" "1"
  2935. $row460 setProp "method_access" "Published"
  2936.  
  2937. set row461 [$diag addRow method 0.0]
  2938. $row461 setLabel "name_type" "DragOver()\n"
  2939. $row461 setProp "has_parmlist" "1"
  2940. $row461 setProp "is_event" "1"
  2941. $row461 setProp "method_access" "Published"
  2942.  
  2943. set row462 [$diag addRow method 0.0]
  2944. $row462 setLabel "name_type" "EndDrag()\n"
  2945. $row462 setProp "has_parmlist" "1"
  2946. $row462 setProp "is_event" "1"
  2947. $row462 setProp "method_access" "Published"
  2948.  
  2949. set row463 [$diag addRow method 0.0]
  2950. $row463 setLabel "name_type" "Enter()\n"
  2951. $row463 setProp "has_parmlist" "1"
  2952. $row463 setProp "is_event" "1"
  2953. $row463 setProp "method_access" "Published"
  2954.  
  2955. set row464 [$diag addRow method 0.0]
  2956. $row464 setLabel "name_type" "Exit()\n"
  2957. $row464 setProp "has_parmlist" "1"
  2958. $row464 setProp "is_event" "1"
  2959. $row464 setProp "method_access" "Published"
  2960.  
  2961. set row465 [$diag addRow method 0.0]
  2962. $row465 setLabel "name_type" "KeyDown()\n"
  2963. $row465 setProp "has_parmlist" "1"
  2964. $row465 setProp "is_event" "1"
  2965. $row465 setProp "method_access" "Published"
  2966.  
  2967. set row466 [$diag addRow method 0.0]
  2968. $row466 setLabel "name_type" "KeyPress()\n"
  2969. $row466 setProp "has_parmlist" "1"
  2970. $row466 setProp "is_event" "1"
  2971. $row466 setProp "method_access" "Published"
  2972.  
  2973. set row467 [$diag addRow method 0.0]
  2974. $row467 setLabel "name_type" "KeyUp()\n"
  2975. $row467 setProp "has_parmlist" "1"
  2976. $row467 setProp "is_event" "1"
  2977. $row467 setProp "method_access" "Published"
  2978.  
  2979. set row468 [$diag addRow method 0.0]
  2980. $row468 setLabel "name_type" "MouseDown()\n"
  2981. $row468 setProp "has_parmlist" "1"
  2982. $row468 setProp "is_event" "1"
  2983. $row468 setProp "method_access" "Published"
  2984.  
  2985. set row469 [$diag addRow method 0.0]
  2986. $row469 setLabel "name_type" "MouseMove()\n"
  2987. $row469 setProp "has_parmlist" "1"
  2988. $row469 setProp "is_event" "1"
  2989. $row469 setProp "method_access" "Published"
  2990.  
  2991. set row470 [$diag addRow method 0.0]
  2992. $row470 setLabel "name_type" "MouseUp()\n"
  2993. $row470 setProp "has_parmlist" "1"
  2994. $row470 setProp "is_event" "1"
  2995. $row470 setProp "method_access" "Published"
  2996.  
  2997. set row471 [$diag addRow method 0.0]
  2998. $row471 setLabel "name_type" "StartDrag()\n"
  2999. $row471 setProp "has_parmlist" "1"
  3000. $row471 setProp "is_event" "1"
  3001. $row471 setProp "method_access" "Published"
  3002.  
  3003. set row472 [$diag addRow method 0.0]
  3004. $row472 setLabel "name_type" "CloseUp()\n"
  3005. $row472 setProp "has_parmlist" "1"
  3006. $row472 setProp "is_event" "1"
  3007. $row472 setProp "method_access" "Published"
  3008.  
  3009. set cell473 [$row472 addCell parameter 0.0]
  3010. $cell473 setLabel "name_type" "Sender: TObject"
  3011. $cell473 setScope "name_type" "cl" "scopePhase"
  3012. $cell473 setProp "is_declaration" "1" "name_type" "cl"
  3013. $cell473 setProp "libunit" "System" "name_type" "cl"
  3014. $cell473 setScope "name_type" "de" "scopeFile"
  3015.  
  3016. set row474 [$diag addRow method 0.0]
  3017. $row474 setLabel "name_type" "DropDown()"
  3018. $row474 setProp "has_parmlist" "1"
  3019. $row474 setProp "is_event" "1"
  3020. $row474 setProp "method_access" "Published"
  3021.  
  3022. set cell475 [$row474 addCell parameter 0.0]
  3023. $cell475 setLabel "name_type" "Sender: TObject"
  3024. $cell475 setScope "name_type" "cl" "scopePhase"
  3025. $cell475 setProp "is_declaration" "1" "name_type" "cl"
  3026. $cell475 setProp "libunit" "System" "name_type" "cl"
  3027. $cell475 setScope "name_type" "de" "scopeFile"
  3028.  
  3029. $diag save
  3030.  
  3031. # Generator: et.tcl    /main/titanic/10
  3032. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3033. # Interpreter to use: Otsh V7.1.1/B5
  3034. #
  3035. OTShRegister::importTool
  3036.  
  3037. set diag [CAD new DBGridsClasses "DelphiVCL" "" "" "" "" "" 1]
  3038.  
  3039. set node479 [$diag addNode cad_class 496.0 480.0 120.0 33.0]
  3040. $node479 setLabel "name" "TCustomGrid"
  3041. $node479 setProp "is_folded" "1"
  3042. $node479 setScope "name" "cl" "scopePhase"
  3043. $node479 setProp "is_declaration" "1" "name" "cl"
  3044. $node479 setProp "libunit" "Other" "name" "cl"
  3045. $node479 setProp "userlib" "Grids" "name" "cl"
  3046.  
  3047. set node480 [$diag addNode cad_class 928.0 592.0 123.0 33.0]
  3048. $node480 setLabel "name" "TCollectionItem"
  3049. $node480 setProp "is_folded" "1"
  3050. $node480 setScope "name" "cl" "scopePhase"
  3051. $node480 setProp "is_declaration" "1" "name" "cl"
  3052. $node480 setProp "libunit" "Classes" "name" "cl"
  3053.  
  3054. set node481 [$diag addNode cad_class 928.0 704.0 120.0 33.0]
  3055. $node481 setLabel "name" "TColumn"
  3056. $node481 setProp "is_folded" "1"
  3057. $node481 setScope "name" "cl" "scopePhase"
  3058. $node481 setProp "is_declaration" "1" "name" "cl"
  3059. $node481 setProp "libunit" "Other" "name" "cl"
  3060. $node481 setProp "userlib" "DBGrids" "name" "cl"
  3061.  
  3062. set node482 [$diag addNode cad_class 496.0 864.0 129.0 339.0]
  3063. $node482 setLabel "name" "TDBGrid"
  3064. $node482 setScope "name" "cl" "scopePhase"
  3065. $node482 setProp "is_declaration" "1" "name" "cl"
  3066. $node482 setProp "libunit" "Other" "name" "cl"
  3067. $node482 setProp "userlib" "DBGrids" "name" "cl"
  3068.  
  3069. set node483 [$diag addNode cad_class 240.0 592.0 661.0 179.0]
  3070. $node483 setLabel "name" "TCustomDBGrid"
  3071. $node483 setScope "name" "cl" "scopePhase"
  3072. $node483 setProp "is_declaration" "1" "name" "cl"
  3073. $node483 setProp "libunit" "Other" "name" "cl"
  3074. $node483 setProp "userlib" "DBGrids" "name" "cl"
  3075.  
  3076. set node476 [$diag addRake generalization $node479 $node483 560.0 512.0 560.0 608.0 560.0]
  3077.  
  3078. set conn484 [$node476 getInConn]
  3079. set segm485 [$conn484 getFirstSegm]
  3080.  
  3081. set conn486 [$node476 getFirstOutConn]
  3082. set segm487 [$conn486 getFirstSegm]
  3083.  
  3084. set node477 [$diag addRake generalization $node480 $node481 992.0 624.0 992.0 704.0 671.5]
  3085.  
  3086. set conn488 [$node477 getInConn]
  3087. set segm489 [$conn488 getFirstSegm]
  3088.  
  3089. set conn490 [$node477 getFirstOutConn]
  3090. set segm491 [$conn490 getFirstSegm]
  3091.  
  3092. set node478 [$diag addRake generalization $node483 $node482 560.0 768.0 560.0 880.0 815.5]
  3093.  
  3094. set conn492 [$node478 getInConn]
  3095. set segm493 [$conn492 getFirstSegm]
  3096.  
  3097. set conn494 [$node478 getFirstOutConn]
  3098. set segm495 [$conn494 getFirstSegm]
  3099.  
  3100. $diag save
  3101.  
  3102. # Generator: et.tcl    /main/titanic/10
  3103. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3104. # Interpreter to use: Otsh V7.1.1/B5
  3105. #
  3106. OTShRegister::importTool
  3107.  
  3108. set diag [CAD new MaskClasses "DelphiVCL" "" "" "" "" "" 1]
  3109.  
  3110. set node498 [$diag addNode cad_class 688.0 512.0 120.0 33.0]
  3111. $node498 setLabel "name" "TCustomEdit"
  3112. $node498 setProp "is_folded" "1"
  3113. $node498 setScope "name" "cl" "scopePhase"
  3114. $node498 setProp "is_declaration" "1" "name" "cl"
  3115. $node498 setProp "libunit" "StdCtrls" "name" "cl"
  3116.  
  3117. set node499 [$diag addNode cad_class 688.0 672.0 141.0 33.0]
  3118. $node499 setLabel "name" "TCustomMaskEdit"
  3119. $node499 setProp "is_folded" "1"
  3120. $node499 setScope "name" "cl" "scopePhase"
  3121. $node499 setProp "is_declaration" "1" "name" "cl"
  3122. $node499 setProp "libunit" "Other" "name" "cl"
  3123. $node499 setProp "userlib" "Mask" "name" "cl"
  3124.  
  3125. set node500 [$diag addNode cad_class 688.0 880.0 120.0 323.0]
  3126. $node500 setLabel "name" "TMaskEdit"
  3127. $node500 setScope "name" "cl" "scopePhase"
  3128. $node500 setProp "is_declaration" "1" "name" "cl"
  3129. $node500 setProp "libunit" "Other" "name" "cl"
  3130. $node500 setProp "userlib" "Mask" "name" "cl"
  3131.  
  3132. set node496 [$diag addRake generalization $node499 $node500 752.0 704.0 752.0 912.0 751.5]
  3133.  
  3134. set conn501 [$node496 getInConn]
  3135. set segm502 [$conn501 getFirstSegm]
  3136.  
  3137. set conn503 [$node496 getFirstOutConn]
  3138. set segm504 [$conn503 getFirstSegm]
  3139.  
  3140. set node497 [$diag addRake generalization $node498 $node499 736.0 544.0 736.0 688.0 616.0]
  3141.  
  3142. set conn505 [$node497 getInConn]
  3143. set segm506 [$conn505 getFirstSegm]
  3144.  
  3145. set conn507 [$node497 getFirstOutConn]
  3146. set segm508 [$conn507 getFirstSegm]
  3147.  
  3148. $diag save
  3149.  
  3150. # Generator: et.tcl    /main/titanic/10
  3151. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3152. # Interpreter to use: Otsh V7.1.1/B5
  3153. #
  3154. OTShRegister::importTool
  3155.  
  3156. set diag [CDM new TDBGrid "DelphiVCL" "" "" "" "" "" 1]
  3157.  
  3158. set row509 [$diag addRow method 0.0]
  3159. $row509 setLabel "name_type" "ColEnter()\n"
  3160. $row509 setProp "has_parmlist" "1"
  3161. $row509 setProp "is_event" "1"
  3162. $row509 setProp "method_access" "Published"
  3163.  
  3164. set row510 [$diag addRow method 0.0]
  3165. $row510 setLabel "name_type" "ColExit()\n"
  3166. $row510 setProp "has_parmlist" "1"
  3167. $row510 setProp "is_event" "1"
  3168. $row510 setProp "method_access" "Published"
  3169.  
  3170. set row511 [$diag addRow method 0.0]
  3171. $row511 setLabel "name_type" "ColumnMoved()\n"
  3172. $row511 setProp "has_parmlist" "1"
  3173. $row511 setProp "is_event" "1"
  3174. $row511 setProp "method_access" "Published"
  3175.  
  3176. set row512 [$diag addRow method 0.0]
  3177. $row512 setLabel "name_type" "DblClick()\n"
  3178. $row512 setProp "has_parmlist" "1"
  3179. $row512 setProp "is_event" "1"
  3180. $row512 setProp "method_access" "Published"
  3181.  
  3182. set row513 [$diag addRow method 0.0]
  3183. $row513 setLabel "name_type" "DragDrop()\n"
  3184. $row513 setProp "has_parmlist" "1"
  3185. $row513 setProp "is_event" "1"
  3186. $row513 setProp "method_access" "Published"
  3187.  
  3188. set row514 [$diag addRow method 0.0]
  3189. $row514 setLabel "name_type" "DragOver()\n"
  3190. $row514 setProp "has_parmlist" "1"
  3191. $row514 setProp "is_event" "1"
  3192. $row514 setProp "method_access" "Published"
  3193.  
  3194. set row515 [$diag addRow method 0.0]
  3195. $row515 setLabel "name_type" "DrawColumnCell()\n"
  3196. $row515 setProp "has_parmlist" "1"
  3197. $row515 setProp "is_event" "1"
  3198. $row515 setProp "method_access" "Published"
  3199.  
  3200. set row516 [$diag addRow method 0.0]
  3201. $row516 setLabel "name_type" "DrawDataCell()\n"
  3202. $row516 setProp "has_parmlist" "1"
  3203. $row516 setProp "is_event" "1"
  3204. $row516 setProp "method_access" "Published"
  3205.  
  3206. set row517 [$diag addRow method 0.0]
  3207. $row517 setLabel "name_type" "EditButtonClick()\n"
  3208. $row517 setProp "has_parmlist" "1"
  3209. $row517 setProp "is_event" "1"
  3210. $row517 setProp "method_access" "Published"
  3211.  
  3212. set row518 [$diag addRow method 0.0]
  3213. $row518 setLabel "name_type" "EndDrag()\n"
  3214. $row518 setProp "has_parmlist" "1"
  3215. $row518 setProp "is_event" "1"
  3216. $row518 setProp "method_access" "Published"
  3217.  
  3218. set row519 [$diag addRow method 0.0]
  3219. $row519 setLabel "name_type" "Enter()\n"
  3220. $row519 setProp "has_parmlist" "1"
  3221. $row519 setProp "is_event" "1"
  3222. $row519 setProp "method_access" "Published"
  3223.  
  3224. set row520 [$diag addRow method 0.0]
  3225. $row520 setLabel "name_type" "Exit()\n"
  3226. $row520 setProp "has_parmlist" "1"
  3227. $row520 setProp "is_event" "1"
  3228. $row520 setProp "method_access" "Published"
  3229.  
  3230. set row521 [$diag addRow method 0.0]
  3231. $row521 setLabel "name_type" "KeyDown()\n"
  3232. $row521 setProp "has_parmlist" "1"
  3233. $row521 setProp "is_event" "1"
  3234. $row521 setProp "method_access" "Published"
  3235.  
  3236. set row522 [$diag addRow method 0.0]
  3237. $row522 setLabel "name_type" "KeyPress()\n"
  3238. $row522 setProp "has_parmlist" "1"
  3239. $row522 setProp "is_event" "1"
  3240. $row522 setProp "method_access" "Published"
  3241.  
  3242. set row523 [$diag addRow method 0.0]
  3243. $row523 setLabel "name_type" "KeyUp()\n"
  3244. $row523 setProp "has_parmlist" "1"
  3245. $row523 setProp "is_event" "1"
  3246. $row523 setProp "method_access" "Published"
  3247.  
  3248. set row524 [$diag addRow method 0.0]
  3249. $row524 setLabel "name_type" "StartDrag()"
  3250. $row524 setProp "has_parmlist" "1"
  3251. $row524 setProp "is_event" "1"
  3252. $row524 setProp "method_access" "Published"
  3253.  
  3254. $diag save
  3255.  
  3256. # Generator: et.tcl    /main/titanic/10
  3257. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3258. # Interpreter to use: Otsh V7.1.1/B5
  3259. #
  3260. OTShRegister::importTool
  3261.  
  3262. set diag [CDM new TMaskEdit "DelphiVCL" "" "" "" "" "" 1]
  3263.  
  3264. set row525 [$diag addRow method 0.0]
  3265. $row525 setLabel "name_type" "Change()\n"
  3266. $row525 setProp "has_parmlist" "1"
  3267. $row525 setProp "is_event" "1"
  3268. $row525 setProp "method_access" "Published"
  3269.  
  3270. set row526 [$diag addRow method 0.0]
  3271. $row526 setLabel "name_type" "Click()\n"
  3272. $row526 setProp "has_parmlist" "1"
  3273. $row526 setProp "is_event" "1"
  3274. $row526 setProp "method_access" "Published"
  3275.  
  3276. set row527 [$diag addRow method 0.0]
  3277. $row527 setLabel "name_type" "DblClick()\n"
  3278. $row527 setProp "has_parmlist" "1"
  3279. $row527 setProp "is_event" "1"
  3280. $row527 setProp "method_access" "Published"
  3281.  
  3282. set row528 [$diag addRow method 0.0]
  3283. $row528 setLabel "name_type" "DragDrop()\n"
  3284. $row528 setProp "has_parmlist" "1"
  3285. $row528 setProp "is_event" "1"
  3286. $row528 setProp "method_access" "Published"
  3287.  
  3288. set row529 [$diag addRow method 0.0]
  3289. $row529 setLabel "name_type" "DragOver()\n"
  3290. $row529 setProp "has_parmlist" "1"
  3291. $row529 setProp "is_event" "1"
  3292. $row529 setProp "method_access" "Published"
  3293.  
  3294. set row530 [$diag addRow method 0.0]
  3295. $row530 setLabel "name_type" "EndDrag()\n"
  3296. $row530 setProp "has_parmlist" "1"
  3297. $row530 setProp "is_event" "1"
  3298. $row530 setProp "method_access" "Published"
  3299.  
  3300. set row531 [$diag addRow method 0.0]
  3301. $row531 setLabel "name_type" "Enter()\n"
  3302. $row531 setProp "has_parmlist" "1"
  3303. $row531 setProp "is_event" "1"
  3304. $row531 setProp "method_access" "Published"
  3305.  
  3306. set row532 [$diag addRow method 0.0]
  3307. $row532 setLabel "name_type" "Exit()\n"
  3308. $row532 setProp "has_parmlist" "1"
  3309. $row532 setProp "is_event" "1"
  3310. $row532 setProp "method_access" "Published"
  3311.  
  3312. set row533 [$diag addRow method 0.0]
  3313. $row533 setLabel "name_type" "KeyDown()\n"
  3314. $row533 setProp "has_parmlist" "1"
  3315. $row533 setProp "is_event" "1"
  3316. $row533 setProp "method_access" "Published"
  3317.  
  3318. set row534 [$diag addRow method 0.0]
  3319. $row534 setLabel "name_type" "KeyPress()\n"
  3320. $row534 setProp "has_parmlist" "1"
  3321. $row534 setProp "is_event" "1"
  3322. $row534 setProp "method_access" "Published"
  3323.  
  3324. set row535 [$diag addRow method 0.0]
  3325. $row535 setLabel "name_type" "KeyUp()\n"
  3326. $row535 setProp "has_parmlist" "1"
  3327. $row535 setProp "is_event" "1"
  3328. $row535 setProp "method_access" "Published"
  3329.  
  3330. set row536 [$diag addRow method 0.0]
  3331. $row536 setLabel "name_type" "MouseDown()\n"
  3332. $row536 setProp "has_parmlist" "1"
  3333. $row536 setProp "is_event" "1"
  3334. $row536 setProp "method_access" "Published"
  3335.  
  3336. set row537 [$diag addRow method 0.0]
  3337. $row537 setLabel "name_type" "MouseMove()\n"
  3338. $row537 setProp "has_parmlist" "1"
  3339. $row537 setProp "is_event" "1"
  3340. $row537 setProp "method_access" "Published"
  3341.  
  3342. set row538 [$diag addRow method 0.0]
  3343. $row538 setLabel "name_type" "MouseUp()\n"
  3344. $row538 setProp "has_parmlist" "1"
  3345. $row538 setProp "is_event" "1"
  3346. $row538 setProp "method_access" "Published"
  3347.  
  3348. set row539 [$diag addRow method 0.0]
  3349. $row539 setLabel "name_type" "StartDrag()"
  3350. $row539 setProp "has_parmlist" "1"
  3351. $row539 setProp "is_event" "1"
  3352. $row539 setProp "method_access" "Published"
  3353.  
  3354. $diag save
  3355.  
  3356. # Generator: et.tcl    /main/titanic/10
  3357. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3358. # Interpreter to use: Otsh V7.1.1/B5
  3359. #
  3360. OTShRegister::importTool
  3361.  
  3362. set diag [CAD new GridsTypes "DelphiVCL" "" "" "" "" "" 1]
  3363.  
  3364. set node540 [$diag addNode cad_class 624.0 688.0 138.0 135.0]
  3365. $node540 setLabel "name" "TGridDrawState"
  3366. $node540 setScope "name" "cl" "scopePhase"
  3367. $node540 setProp "libunit" "Other" "name" "cl"
  3368. $node540 setProp "userlib" "Grids" "name" "cl"
  3369.  
  3370. $diag save
  3371.  
  3372. # Generator: et.tcl    /main/titanic/10
  3373. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3374. # Interpreter to use: Otsh V7.1.1/B5
  3375. #
  3376. OTShRegister::importTool
  3377.  
  3378. set diag [CDM new TGridDrawState "DelphiVCL" "" "" "" "" "" 1]
  3379.  
  3380. set row541 [$diag addRow attribute 0.0]
  3381. $row541 setLabel "name_type" "\$gdSelected: enum\n"
  3382. $row541 setProp "is_class_feature" "1"
  3383. $row541 setScope "name_type" "cl" "scopePhase"
  3384.  
  3385. set row542 [$diag addRow attribute 0.0]
  3386. $row542 setLabel "name_type" "\$gdFocused: enum\n"
  3387. $row542 setProp "is_class_feature" "1"
  3388. $row542 setScope "name_type" "cl" "scopePhase"
  3389.  
  3390. set row543 [$diag addRow attribute 0.0]
  3391. $row543 setLabel "name_type" "\$gdFixed: enum"
  3392. $row543 setProp "is_class_feature" "1"
  3393. $row543 setScope "name_type" "cl" "scopePhase"
  3394.  
  3395. $diag save
  3396.  
  3397. # Generator: et.tcl    /main/titanic/10
  3398. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3399. # Interpreter to use: Otsh V7.1.1/B5
  3400. #
  3401. OTShRegister::importTool
  3402.  
  3403. set diag [CAD new GridsClasses "DelphiVCL" "" "" "" "" "" 1]
  3404.  
  3405. set node545 [$diag addNode cad_class 736.0 752.0 120.0 33.0]
  3406. $node545 setLabel "name" "TCustomGrid"
  3407. $node545 setProp "is_folded" "1"
  3408. $node545 setScope "name" "cl" "scopePhase"
  3409. $node545 setProp "is_declaration" "1" "name" "cl"
  3410. $node545 setProp "libunit" "Other" "name" "cl"
  3411. $node545 setProp "userlib" "Grids" "name" "cl"
  3412.  
  3413. set node546 [$diag addNode cad_class 736.0 624.0 130.0 33.0]
  3414. $node546 setLabel "name" "TCustomControl"
  3415. $node546 setProp "is_folded" "1"
  3416. $node546 setScope "name" "cl" "scopePhase"
  3417. $node546 setProp "is_declaration" "1" "name" "cl"
  3418. $node546 setProp "libunit" "Controls" "name" "cl"
  3419.  
  3420. set node544 [$diag addRake generalization $node546 $node545 800.0 656.0 800.0 768.0 712.0]
  3421.  
  3422. set conn547 [$node544 getInConn]
  3423. set segm548 [$conn547 getFirstSegm]
  3424.  
  3425. set conn549 [$node544 getFirstOutConn]
  3426. set segm550 [$conn549 getFirstSegm]
  3427.  
  3428. $diag save
  3429.  
  3430. # Generator: et.tcl    /main/titanic/10
  3431. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3432. # Interpreter to use: Otsh V7.1.1/B5
  3433. #
  3434. OTShRegister::importTool
  3435.  
  3436. set diag [CDM new TComponent "DelphiVCL" "" "" "" "" "" 1]
  3437.  
  3438. $diag save
  3439.  
  3440. # Generator: et.tcl    /main/titanic/10
  3441. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3442. # Interpreter to use: Otsh V7.1.1/B5
  3443. #
  3444. OTShRegister::importTool
  3445.  
  3446. set diag [CDM new TCustomImageList "DelphiVCL" "" "" "" "" "" 1]
  3447.  
  3448. set row551 [$diag addRow method 0.0]
  3449. $row551 setLabel "name_type" "Change()"
  3450. $row551 setProp "has_parmlist" "1"
  3451. $row551 setProp "is_event" "1"
  3452. $row551 setProp "method_access" "Protected"
  3453.  
  3454. set cell552 [$row551 addCell parameter 0.0]
  3455. $cell552 setLabel "name_type" "Sender: TObject"
  3456. $cell552 setScope "name_type" "cl" "scopePhase"
  3457. $cell552 setProp "is_declaration" "1" "name_type" "cl"
  3458. $cell552 setProp "libunit" "System" "name_type" "cl"
  3459. $cell552 setScope "name_type" "de" "scopeFile"
  3460.  
  3461. $diag save
  3462.  
  3463. # Generator: et.tcl    /main/titanic/10
  3464. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3465. # Interpreter to use: Otsh V7.1.1/B5
  3466. #
  3467. OTShRegister::importTool
  3468.  
  3469. set diag [CDM new TDatabaseEvent "DelphiVCL" "" "" "" "" "" 1]
  3470.  
  3471. set row553 [$diag addRow attribute 0.0]
  3472. $row553 setLabel "name_type" "\$dbOpen: enum\n"
  3473. $row553 setProp "is_class_feature" "1"
  3474. $row553 setScope "name_type" "cl" "scopePhase"
  3475.  
  3476. set row554 [$diag addRow attribute 0.0]
  3477. $row554 setLabel "name_type" "\$dbClose: enum\n"
  3478. $row554 setProp "is_class_feature" "1"
  3479. $row554 setScope "name_type" "cl" "scopePhase"
  3480.  
  3481. set row555 [$diag addRow attribute 0.0]
  3482. $row555 setLabel "name_type" "\$dbAdd: enum\n"
  3483. $row555 setProp "is_class_feature" "1"
  3484. $row555 setScope "name_type" "cl" "scopePhase"
  3485.  
  3486. set row556 [$diag addRow attribute 0.0]
  3487. $row556 setLabel "name_type" "\$dbRemove: enum\n"
  3488. $row556 setProp "is_class_feature" "1"
  3489. $row556 setScope "name_type" "cl" "scopePhase"
  3490.  
  3491. set row557 [$diag addRow attribute 0.0]
  3492. $row557 setLabel "name_type" "\$dbAddAlias: enum\n"
  3493. $row557 setProp "is_class_feature" "1"
  3494. $row557 setScope "name_type" "cl" "scopePhase"
  3495.  
  3496. set row558 [$diag addRow attribute 0.0]
  3497. $row558 setLabel "name_type" "\$dbDeleteAlias: enum"
  3498. $row558 setProp "is_class_feature" "1"
  3499. $row558 setScope "name_type" "cl" "scopePhase"
  3500.  
  3501. $diag save
  3502.  
  3503. # Generator: et.tcl    /main/titanic/10
  3504. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3505. # Interpreter to use: Otsh V7.1.1/B5
  3506. #
  3507. OTShRegister::importTool
  3508.  
  3509. set diag [CDM new TCustomDBGrid "DelphiVCL" "" "" "" "" "" 1]
  3510.  
  3511. set row559 [$diag addRow method 0.0]
  3512. $row559 setLabel "name_type" "ColEnter()\n"
  3513. $row559 setProp "has_parmlist" "1"
  3514. $row559 setProp "is_event" "1"
  3515. $row559 setProp "method_access" "Protected"
  3516.  
  3517. set cell560 [$row559 addCell parameter 0.0]
  3518. $cell560 setLabel "name_type" "Sender: TObject"
  3519. $cell560 setScope "name_type" "cl" "scopePhase"
  3520. $cell560 setProp "is_declaration" "1" "name_type" "cl"
  3521. $cell560 setProp "libunit" "System" "name_type" "cl"
  3522. $cell560 setScope "name_type" "de" "scopeFile"
  3523.  
  3524. set row561 [$diag addRow method 0.0]
  3525. $row561 setLabel "name_type" "ColExit()\n"
  3526. $row561 setProp "has_parmlist" "1"
  3527. $row561 setProp "is_event" "1"
  3528. $row561 setProp "method_access" "Protected"
  3529.  
  3530. set cell562 [$row561 addCell parameter 0.0]
  3531. $cell562 setLabel "name_type" "Sender: TObject"
  3532. $cell562 setScope "name_type" "cl" "scopePhase"
  3533. $cell562 setProp "is_declaration" "1" "name_type" "cl"
  3534. $cell562 setProp "libunit" "System" "name_type" "cl"
  3535. $cell562 setScope "name_type" "de" "scopeFile"
  3536.  
  3537. set row563 [$diag addRow method 0.0]
  3538. $row563 setLabel "name_type" "ColumnMoved()\n"
  3539. $row563 setProp "has_parmlist" "1"
  3540. $row563 setProp "is_event" "1"
  3541. $row563 setProp "method_access" "Protected"
  3542.  
  3543. set cell564 [$row563 addCell parameter 0.0]
  3544. $cell564 setLabel "name_type" "Sender: TObject, "
  3545. $cell564 setScope "name_type" "cl" "scopePhase"
  3546. $cell564 setProp "is_declaration" "1" "name_type" "cl"
  3547. $cell564 setProp "libunit" "System" "name_type" "cl"
  3548. $cell564 setScope "name_type" "de" "scopeFile"
  3549.  
  3550. set cell565 [$row563 addCell parameter 0.0]
  3551. $cell565 setLabel "name_type" "FromIndex: longint, "
  3552. $cell565 setScope "name_type" "cl" "scopePhase"
  3553. $cell565 setScope "name_type" "de" "scopeFile"
  3554.  
  3555. set cell566 [$row563 addCell parameter 0.0]
  3556. $cell566 setLabel "name_type" "ToIndex: longint"
  3557. $cell566 setScope "name_type" "cl" "scopePhase"
  3558. $cell566 setScope "name_type" "de" "scopeFile"
  3559.  
  3560. set row567 [$diag addRow method 0.0]
  3561. $row567 setLabel "name_type" "DrawColumnCell()\n"
  3562. $row567 setProp "has_parmlist" "1"
  3563. $row567 setProp "is_event" "1"
  3564. $row567 setProp "method_access" "Protected"
  3565.  
  3566. set cell568 [$row567 addCell parameter 0.0]
  3567. $cell568 setLabel "name_type" "Sender: TObject, "
  3568. $cell568 setScope "name_type" "cl" "scopePhase"
  3569. $cell568 setProp "is_declaration" "1" "name_type" "cl"
  3570. $cell568 setProp "libunit" "System" "name_type" "cl"
  3571. $cell568 setScope "name_type" "de" "scopeFile"
  3572.  
  3573. set cell569 [$row567 addCell parameter 0.0]
  3574. $cell569 setLabel "name_type" "Rect: TRect, "
  3575. $cell569 setProp "pass_by" "Constant"
  3576. $cell569 setScope "name_type" "cl" "scopePhase"
  3577. $cell569 setProp "libunit" "Other" "name_type" "cl"
  3578. $cell569 setProp "userlib" "Windows" "name_type" "cl"
  3579. $cell569 setScope "name_type" "de" "scopeFile"
  3580.  
  3581. set cell570 [$row567 addCell parameter 0.0]
  3582. $cell570 setLabel "name_type" "DataCol: int, "
  3583. $cell570 setScope "name_type" "cl" "scopePhase"
  3584. $cell570 setScope "name_type" "de" "scopeFile"
  3585.  
  3586. set cell571 [$row567 addCell parameter 0.0]
  3587. $cell571 setLabel "name_type" "Column: TColumn, "
  3588. $cell571 setScope "name_type" "cl" "scopePhase"
  3589. $cell571 setProp "is_declaration" "1" "name_type" "cl"
  3590. $cell571 setProp "libunit" "Other" "name_type" "cl"
  3591. $cell571 setProp "userlib" "DBGrids" "name_type" "cl"
  3592. $cell571 setScope "name_type" "de" "scopeFile"
  3593.  
  3594. set cell572 [$row567 addCell parameter 0.0]
  3595. $cell572 setLabel "name_type" "State: TGridDrawState"
  3596. $cell572 setScope "name_type" "cl" "scopePhase"
  3597. $cell572 setProp "libunit" "Other" "name_type" "cl"
  3598. $cell572 setProp "userlib" "Grids" "name_type" "cl"
  3599. $cell572 setScope "name_type" "de" "scopeFile"
  3600.  
  3601. set row573 [$diag addRow method 0.0]
  3602. $row573 setLabel "name_type" "DrawDataCell()\n"
  3603. $row573 setProp "has_parmlist" "1"
  3604. $row573 setProp "is_event" "1"
  3605. $row573 setProp "method_access" "Protected"
  3606.  
  3607. set cell574 [$row573 addCell parameter 0.0]
  3608. $cell574 setLabel "name_type" "Sender: TObject, "
  3609. $cell574 setScope "name_type" "cl" "scopePhase"
  3610. $cell574 setProp "is_declaration" "1" "name_type" "cl"
  3611. $cell574 setProp "libunit" "System" "name_type" "cl"
  3612. $cell574 setScope "name_type" "de" "scopeFile"
  3613.  
  3614. set cell575 [$row573 addCell parameter 0.0]
  3615. $cell575 setLabel "name_type" "Rect: TRect, "
  3616. $cell575 setProp "pass_by" "Constant"
  3617. $cell575 setScope "name_type" "cl" "scopePhase"
  3618. $cell575 setProp "libunit" "Other" "name_type" "cl"
  3619. $cell575 setProp "userlib" "Windows" "name_type" "cl"
  3620. $cell575 setScope "name_type" "de" "scopeFile"
  3621.  
  3622. set cell576 [$row573 addCell parameter 0.0]
  3623. $cell576 setLabel "name_type" "Field: TField, "
  3624. $cell576 setScope "name_type" "cl" "scopePhase"
  3625. $cell576 setProp "is_declaration" "1" "name_type" "cl"
  3626. $cell576 setProp "libunit" "Other" "name_type" "cl"
  3627. $cell576 setProp "userlib" "DB" "name_type" "cl"
  3628. $cell576 setScope "name_type" "de" "scopeFile"
  3629.  
  3630. set cell577 [$row573 addCell parameter 0.0]
  3631. $cell577 setLabel "name_type" "State: TGridDrawState"
  3632. $cell577 setScope "name_type" "cl" "scopePhase"
  3633. $cell577 setProp "libunit" "Other" "name_type" "cl"
  3634. $cell577 setProp "userlib" "Grids" "name_type" "cl"
  3635. $cell577 setScope "name_type" "de" "scopeFile"
  3636.  
  3637. set row578 [$diag addRow method 0.0]
  3638. $row578 setLabel "name_type" "EditButtonClick()"
  3639. $row578 setProp "has_parmlist" "1"
  3640. $row578 setProp "is_event" "1"
  3641. $row578 setProp "method_access" "Protected"
  3642.  
  3643. set cell579 [$row578 addCell parameter 0.0]
  3644. $cell579 setLabel "name_type" "Sender: TObject"
  3645. $cell579 setScope "name_type" "cl" "scopePhase"
  3646. $cell579 setProp "is_declaration" "1" "name_type" "cl"
  3647. $cell579 setProp "libunit" "System" "name_type" "cl"
  3648. $cell579 setScope "name_type" "de" "scopeFile"
  3649.  
  3650. $diag save
  3651.  
  3652. # Generator: et.tcl    /main/titanic/10
  3653. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3654. # Interpreter to use: Otsh V7.1.1/B5
  3655. #
  3656. OTShRegister::importTool
  3657.  
  3658. set diag [CAD new MenusClasses "DelphiVCL" "" "" "" "" "" 1]
  3659.  
  3660. set node582 [$diag addNode cad_class 880.0 704.0 160.0 99.0]
  3661. $node582 setLabel "name" "TMenuItem"
  3662. $node582 setScope "name" "cl" "scopePhase"
  3663. $node582 setProp "is_declaration" "1" "name" "cl"
  3664. $node582 setProp "libunit" "Other" "name" "cl"
  3665. $node582 setProp "userlib" "Menus" "name" "cl"
  3666.  
  3667. set node583 [$diag addNode cad_class 768.0 896.0 170.0 99.0]
  3668. $node583 setLabel "name" "TPopupMenu"
  3669. $node583 setScope "name" "cl" "scopePhase"
  3670. $node583 setProp "is_declaration" "1" "name" "cl"
  3671. $node583 setProp "libunit" "Other" "name" "cl"
  3672. $node583 setProp "userlib" "Menus" "name" "cl"
  3673.  
  3674. set node584 [$diag addNode cad_class 592.0 896.0 120.0 99.0]
  3675. $node584 setLabel "name" "TMainMenu"
  3676. $node584 setScope "name" "cl" "scopePhase"
  3677. $node584 setProp "is_declaration" "1" "name" "cl"
  3678. $node584 setProp "libunit" "Other" "name" "cl"
  3679. $node584 setProp "userlib" "Menus" "name" "cl"
  3680.  
  3681. set node585 [$diag addNode cad_class 688.0 704.0 160.0 99.0]
  3682. $node585 setLabel "name" "TMenu"
  3683. $node585 setScope "name" "cl" "scopePhase"
  3684. $node585 setProp "is_declaration" "1" "name" "cl"
  3685. $node585 setProp "libunit" "Other" "name" "cl"
  3686. $node585 setProp "userlib" "Menus" "name" "cl"
  3687.  
  3688. set node586 [$diag addNode cad_class 784.0 560.0 120.0 33.0]
  3689. $node586 setLabel "name" "TComponent"
  3690. $node586 setProp "is_folded" "1"
  3691. $node586 setScope "name" "cl" "scopePhase"
  3692. $node586 setProp "is_declaration" "1" "name" "cl"
  3693. $node586 setProp "libunit" "Classes" "name" "cl"
  3694.  
  3695. set node580 [$diag addRake generalization $node585 $node583 752.0 800.0 832.0 944.0 856.0]
  3696.  
  3697. set conn587 [$node580 getInConn]
  3698. set segm588 [$conn587 getFirstSegm]
  3699.  
  3700. set conn589 [$node580 getFirstOutConn]
  3701. set segm590 [$conn589 getFirstSegm]
  3702.  
  3703. set conn591 [$diag addConn generalization_conn $node580 $node584 656.0 856.0 656.0 912.0]
  3704. set segm592 [$conn591 getFirstSegm]
  3705.  
  3706. set node581 [$diag addRake generalization $node586 $node582 848.0 592.0 944.0 736.0 656.0]
  3707.  
  3708. set conn593 [$node581 getInConn]
  3709. set segm594 [$conn593 getFirstSegm]
  3710.  
  3711. set conn595 [$node581 getFirstOutConn]
  3712. set segm596 [$conn595 getFirstSegm]
  3713.  
  3714. set conn597 [$diag addConn generalization_conn $node581 $node585 752.0 656.0 752.0 720.0]
  3715. set segm598 [$conn597 getFirstSegm]
  3716.  
  3717. $diag save
  3718.  
  3719. # Generator: et.tcl    /main/titanic/10
  3720. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3721. # Interpreter to use: Otsh V7.1.1/B5
  3722. #
  3723. OTShRegister::importTool
  3724.  
  3725. set diag [CDM new TPopupMenu "DelphiVCL" "" "" "" "" "" 1]
  3726.  
  3727. set row599 [$diag addRow method 0.0]
  3728. $row599 setLabel "name_type" "Popup()"
  3729. $row599 setProp "has_parmlist" "1"
  3730. $row599 setProp "is_event" "1"
  3731. $row599 setProp "method_access" "Published"
  3732.  
  3733. set cell600 [$row599 addCell parameter 0.0]
  3734. $cell600 setLabel "name_type" "Sender: TObject"
  3735. $cell600 setScope "name_type" "cl" "scopePhase"
  3736. $cell600 setProp "is_declaration" "1" "name_type" "cl"
  3737. $cell600 setProp "libunit" "System" "name_type" "cl"
  3738. $cell600 setScope "name_type" "de" "scopeFile"
  3739.  
  3740. $diag save
  3741.  
  3742. # Generator: et.tcl    /main/titanic/10
  3743. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3744. # Interpreter to use: Otsh V7.1.1/B5
  3745. #
  3746. OTShRegister::importTool
  3747.  
  3748. set diag [CDM new TMenu "DelphiVCL" "" "" "" "" "" 1]
  3749.  
  3750. set row601 [$diag addRow method 0.0]
  3751. $row601 setLabel "name_type" "Click()"
  3752. $row601 setProp "has_parmlist" "1"
  3753. $row601 setProp "is_event" "1"
  3754. $row601 setProp "method_access" "Published"
  3755.  
  3756. set cell602 [$row601 addCell parameter 0.0]
  3757. $cell602 setLabel "name_type" "Sender: TObject"
  3758. $cell602 setScope "name_type" "cl" "scopePhase"
  3759. $cell602 setProp "is_declaration" "1" "name_type" "cl"
  3760. $cell602 setProp "libunit" "System" "name_type" "cl"
  3761. $cell602 setScope "name_type" "de" "scopeFile"
  3762.  
  3763. $diag save
  3764.  
  3765. # Generator: et.tcl    /main/titanic/10
  3766. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3767. # Interpreter to use: Otsh V7.1.1/B5
  3768. #
  3769. OTShRegister::importTool
  3770.  
  3771. set diag [CAD new ChecklstClasses "DelphiVCL" "" "" "" "" "" 1]
  3772.  
  3773. set node604 [$diag addNode cad_class 672.0 784.0 201.0 355.0]
  3774. $node604 setLabel "name" "TCheckListBox"
  3775. $node604 setScope "name" "cl" "scopePhase"
  3776. $node604 setProp "is_declaration" "1" "name" "cl"
  3777. $node604 setProp "libunit" "Other" "name" "cl"
  3778. $node604 setProp "userlib" "Checklst" "name" "cl"
  3779.  
  3780. set node605 [$diag addNode cad_class 704.0 640.0 128.0 33.0]
  3781. $node605 setLabel "name" "TCustomListBox"
  3782. $node605 setProp "is_folded" "1"
  3783. $node605 setScope "name" "cl" "scopePhase"
  3784. $node605 setProp "is_declaration" "1" "name" "cl"
  3785. $node605 setProp "libunit" "StdCtrls" "name" "cl"
  3786.  
  3787. set node603 [$diag addRake generalization $node605 $node604 768.0 672.0 768.0 800.0 736.0]
  3788.  
  3789. set conn606 [$node603 getInConn]
  3790. set segm607 [$conn606 getFirstSegm]
  3791.  
  3792. set conn608 [$node603 getFirstOutConn]
  3793. set segm609 [$conn608 getFirstSegm]
  3794.  
  3795. $diag save
  3796.  
  3797. # Generator: et.tcl    /main/titanic/10
  3798. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3799. # Interpreter to use: Otsh V7.1.1/B5
  3800. #
  3801. OTShRegister::importTool
  3802.  
  3803. set diag [CDM new TCheckListBox "DelphiVCL" "" "" "" "" "" 1]
  3804.  
  3805. set row610 [$diag addRow method 0.0]
  3806. $row610 setLabel "name_type" "Click()\n"
  3807. $row610 setProp "has_parmlist" "1"
  3808. $row610 setProp "is_event" "1"
  3809. $row610 setProp "method_access" "Published"
  3810.  
  3811. set row611 [$diag addRow method 0.0]
  3812. $row611 setLabel "name_type" "ClickCheck()\n"
  3813. $row611 setProp "has_parmlist" "1"
  3814. $row611 setProp "is_event" "1"
  3815. $row611 setProp "method_access" "Published"
  3816.  
  3817. set cell612 [$row611 addCell parameter 0.0]
  3818. $cell612 setLabel "name_type" "Sender: TObject"
  3819. $cell612 setScope "name_type" "cl" "scopePhase"
  3820. $cell612 setProp "is_declaration" "1" "name_type" "cl"
  3821. $cell612 setProp "libunit" "System" "name_type" "cl"
  3822. $cell612 setScope "name_type" "de" "scopeFile"
  3823.  
  3824. set row613 [$diag addRow method 0.0]
  3825. $row613 setLabel "name_type" "DblClick()\n"
  3826. $row613 setProp "has_parmlist" "1"
  3827. $row613 setProp "is_event" "1"
  3828. $row613 setProp "method_access" "Published"
  3829.  
  3830. set row614 [$diag addRow method 0.0]
  3831. $row614 setLabel "name_type" "DragDrop()\n"
  3832. $row614 setProp "has_parmlist" "1"
  3833. $row614 setProp "is_event" "1"
  3834. $row614 setProp "method_access" "Published"
  3835.  
  3836. set row615 [$diag addRow method 0.0]
  3837. $row615 setLabel "name_type" "DragOver()\n"
  3838. $row615 setProp "has_parmlist" "1"
  3839. $row615 setProp "is_event" "1"
  3840. $row615 setProp "method_access" "Published"
  3841.  
  3842. set row616 [$diag addRow method 0.0]
  3843. $row616 setLabel "name_type" "DrawItem()\n"
  3844. $row616 setProp "has_parmlist" "1"
  3845. $row616 setProp "is_event" "1"
  3846. $row616 setProp "method_access" "Published"
  3847.  
  3848. set row617 [$diag addRow method 0.0]
  3849. $row617 setLabel "name_type" "EndDrag()\n"
  3850. $row617 setProp "has_parmlist" "1"
  3851. $row617 setProp "is_event" "1"
  3852. $row617 setProp "method_access" "Published"
  3853.  
  3854. set row618 [$diag addRow method 0.0]
  3855. $row618 setLabel "name_type" "Enter()\n"
  3856. $row618 setProp "has_parmlist" "1"
  3857. $row618 setProp "is_event" "1"
  3858. $row618 setProp "method_access" "Published"
  3859.  
  3860. set row619 [$diag addRow method 0.0]
  3861. $row619 setLabel "name_type" "Exit()\n"
  3862. $row619 setProp "has_parmlist" "1"
  3863. $row619 setProp "is_event" "1"
  3864. $row619 setProp "method_access" "Published"
  3865.  
  3866. set row620 [$diag addRow method 0.0]
  3867. $row620 setLabel "name_type" "KeyDown()\n"
  3868. $row620 setProp "has_parmlist" "1"
  3869. $row620 setProp "is_event" "1"
  3870. $row620 setProp "method_access" "Published"
  3871.  
  3872. set row621 [$diag addRow method 0.0]
  3873. $row621 setLabel "name_type" "KeyPress()\n"
  3874. $row621 setProp "has_parmlist" "1"
  3875. $row621 setProp "is_event" "1"
  3876. $row621 setProp "method_access" "Published"
  3877.  
  3878. set row622 [$diag addRow method 0.0]
  3879. $row622 setLabel "name_type" "KeyUp()\n"
  3880. $row622 setProp "has_parmlist" "1"
  3881. $row622 setProp "is_event" "1"
  3882. $row622 setProp "method_access" "Published"
  3883.  
  3884. set row623 [$diag addRow method 0.0]
  3885. $row623 setLabel "name_type" "MeasureItem()\n"
  3886. $row623 setProp "has_parmlist" "1"
  3887. $row623 setProp "is_event" "1"
  3888. $row623 setProp "method_access" "Published"
  3889.  
  3890. set row624 [$diag addRow method 0.0]
  3891. $row624 setLabel "name_type" "MouseDown()\n"
  3892. $row624 setProp "has_parmlist" "1"
  3893. $row624 setProp "is_event" "1"
  3894. $row624 setProp "method_access" "Published"
  3895.  
  3896. set row625 [$diag addRow method 0.0]
  3897. $row625 setLabel "name_type" "MouseMove()\n"
  3898. $row625 setProp "has_parmlist" "1"
  3899. $row625 setProp "is_event" "1"
  3900. $row625 setProp "method_access" "Published"
  3901.  
  3902. set row626 [$diag addRow method 0.0]
  3903. $row626 setLabel "name_type" "MouseUp()\n"
  3904. $row626 setProp "has_parmlist" "1"
  3905. $row626 setProp "is_event" "1"
  3906. $row626 setProp "method_access" "Published"
  3907.  
  3908. set row627 [$diag addRow method 0.0]
  3909. $row627 setLabel "name_type" "StartDrag()"
  3910. $row627 setProp "has_parmlist" "1"
  3911. $row627 setProp "is_event" "1"
  3912. $row627 setProp "method_access" "Published"
  3913.  
  3914. $diag save
  3915.  
  3916. # Generator: et.tcl    /main/titanic/10
  3917. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3918. # Interpreter to use: Otsh V7.1.1/B5
  3919. #
  3920. OTShRegister::importTool
  3921.  
  3922. set diag [CDM new TSplitter "DelphiVCL" "" "" "" "" "" 1]
  3923.  
  3924. set row628 [$diag addRow method 0.0]
  3925. $row628 setLabel "name_type" "Moved()"
  3926. $row628 setProp "has_parmlist" "1"
  3927. $row628 setProp "is_event" "1"
  3928. $row628 setProp "method_access" "Published"
  3929.  
  3930. set cell629 [$row628 addCell parameter 0.0]
  3931. $cell629 setLabel "name_type" "Sender: TObject"
  3932. $cell629 setScope "name_type" "cl" "scopePhase"
  3933. $cell629 setProp "is_declaration" "1" "name_type" "cl"
  3934. $cell629 setProp "libunit" "System" "name_type" "cl"
  3935. $cell629 setScope "name_type" "de" "scopeFile"
  3936.  
  3937. $diag save
  3938.  
  3939. # Generator: et.tcl    /main/titanic/10
  3940. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  3941. # Interpreter to use: Otsh V7.1.1/B5
  3942. #
  3943. OTShRegister::importTool
  3944.  
  3945. set diag [CDM new TStaticText "DelphiVCL" "" "" "" "" "" 1]
  3946.  
  3947. set row630 [$diag addRow method 0.0]
  3948. $row630 setLabel "name_type" "Click()\n"
  3949. $row630 setProp "has_parmlist" "1"
  3950. $row630 setProp "is_event" "1"
  3951. $row630 setProp "method_access" "Published"
  3952.  
  3953. set row631 [$diag addRow method 0.0]
  3954. $row631 setLabel "name_type" "DblClick()\n"
  3955. $row631 setProp "has_parmlist" "1"
  3956. $row631 setProp "is_event" "1"
  3957. $row631 setProp "method_access" "Published"
  3958.  
  3959. set row632 [$diag addRow method 0.0]
  3960. $row632 setLabel "name_type" "DragDrop()\n"
  3961. $row632 setProp "has_parmlist" "1"
  3962. $row632 setProp "is_event" "1"
  3963. $row632 setProp "method_access" "Published"
  3964.  
  3965. set row633 [$diag addRow method 0.0]
  3966. $row633 setLabel "name_type" "DragOver()\n"
  3967. $row633 setProp "has_parmlist" "1"
  3968. $row633 setProp "is_event" "1"
  3969. $row633 setProp "method_access" "Published"
  3970.  
  3971. set row634 [$diag addRow method 0.0]
  3972. $row634 setLabel "name_type" "EndDrag()\n"
  3973. $row634 setProp "has_parmlist" "1"
  3974. $row634 setProp "is_event" "1"
  3975. $row634 setProp "method_access" "Published"
  3976.  
  3977. set row635 [$diag addRow method 0.0]
  3978. $row635 setLabel "name_type" "MouseDown()\n"
  3979. $row635 setProp "has_parmlist" "1"
  3980. $row635 setProp "is_event" "1"
  3981. $row635 setProp "method_access" "Published"
  3982.  
  3983. set row636 [$diag addRow method 0.0]
  3984. $row636 setLabel "name_type" "MouseMove()\n"
  3985. $row636 setProp "has_parmlist" "1"
  3986. $row636 setProp "is_event" "1"
  3987. $row636 setProp "method_access" "Published"
  3988.  
  3989. set row637 [$diag addRow method 0.0]
  3990. $row637 setLabel "name_type" "MouseUp()\n"
  3991. $row637 setProp "has_parmlist" "1"
  3992. $row637 setProp "is_event" "1"
  3993. $row637 setProp "method_access" "Published"
  3994.  
  3995. set row638 [$diag addRow method 0.0]
  3996. $row638 setLabel "name_type" "StartDrag()"
  3997. $row638 setProp "has_parmlist" "1"
  3998. $row638 setProp "is_event" "1"
  3999. $row638 setProp "method_access" "Published"
  4000.  
  4001. $diag save
  4002.  
  4003. # Generator: et.tcl    /main/titanic/10
  4004. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4005. # Interpreter to use: Otsh V7.1.1/B5
  4006. #
  4007. OTShRegister::importTool
  4008.  
  4009. set diag [CAD new ComCtrlsClasses "DelphiVCL" "" "" "" "" "" 1]
  4010.  
  4011. set node650 [$diag addNode cad_class 2176.0 1472.0 120.0 40.0]
  4012. $node650 setLabel "name" "TWinControl"
  4013. $node650 setProp "is_folded" "1"
  4014. $node650 setScope "name" "cl" "scopePhase"
  4015. $node650 setProp "is_declaration" "1" "name" "cl"
  4016. $node650 setProp "libunit" "Controls" "name" "cl"
  4017.  
  4018. set node651 [$diag addNode cad_class 1072.0 912.0 127.0 99.0]
  4019. $node651 setLabel "name" "TCustomHotKey"
  4020. $node651 setScope "name" "cl" "scopePhase"
  4021. $node651 setProp "is_declaration" "1" "name" "cl"
  4022. $node651 setProp "libunit" "Other" "name" "cl"
  4023. $node651 setProp "userlib" "ComCtrls" "name" "cl"
  4024.  
  4025. set node652 [$diag addNode cad_class 1504.0 912.0 339.0 115.0]
  4026. $node652 setLabel "name" "TCustomUpDown"
  4027. $node652 setScope "name" "cl" "scopePhase"
  4028. $node652 setProp "is_declaration" "1" "name" "cl"
  4029. $node652 setProp "libunit" "Other" "name" "cl"
  4030. $node652 setProp "userlib" "ComCtrls" "name" "cl"
  4031.  
  4032. set node653 [$diag addNode cad_class 2240.0 912.0 645.0 147.0]
  4033. $node653 setLabel "name" "TCustomRichEdit"
  4034. $node653 setScope "name" "cl" "scopePhase"
  4035. $node653 setProp "is_declaration" "1" "name" "cl"
  4036. $node653 setProp "libunit" "Other" "name" "cl"
  4037. $node653 setProp "userlib" "ComCtrls" "name" "cl"
  4038.  
  4039. set node654 [$diag addNode cad_class 2496.0 800.0 120.0 33.0]
  4040. $node654 setLabel "name" "TCustomMemo"
  4041. $node654 setProp "is_folded" "1"
  4042. $node654 setScope "name" "cl" "scopePhase"
  4043. $node654 setProp "is_declaration" "1" "name" "cl"
  4044.  
  4045. set node655 [$diag addNode cad_class 1872.0 912.0 339.0 115.0]
  4046. $node655 setLabel "name" "TCustomTabControl"
  4047. $node655 setScope "name" "cl" "scopePhase"
  4048. $node655 setProp "is_declaration" "1" "name" "cl"
  4049. $node655 setProp "libunit" "Other" "name" "cl"
  4050. $node655 setProp "userlib" "ComCtrls" "name" "cl"
  4051.  
  4052. set node656 [$diag addNode cad_class 1984.0 800.0 120.0 33.0]
  4053. $node656 setLabel "name" "TWinControl"
  4054. $node656 setProp "is_folded" "1"
  4055. $node656 setScope "name" "cl" "scopePhase"
  4056. $node656 setProp "is_declaration" "1" "name" "cl"
  4057. $node656 setProp "libunit" "Controls" "name" "cl"
  4058.  
  4059. set node657 [$diag addNode cad_class 1472.0 2240.0 179.0 259.0]
  4060. $node657 setLabel "name" "TCoolBar"
  4061. $node657 setScope "name" "cl" "scopePhase"
  4062. $node657 setProp "is_declaration" "1" "name" "cl"
  4063. $node657 setProp "libunit" "Other" "name" "cl"
  4064. $node657 setProp "userlib" "ComCtrls" "name" "cl"
  4065.  
  4066. set node658 [$diag addNode cad_class 2000.0 2160.0 452.0 259.0]
  4067. $node658 setLabel "name" "TStatusBar"
  4068. $node658 setScope "name" "cl" "scopePhase"
  4069. $node658 setProp "is_declaration" "1" "name" "cl"
  4070. $node658 setProp "libunit" "Other" "name" "cl"
  4071. $node658 setProp "userlib" "ComCtrls" "name" "cl"
  4072.  
  4073. set node659 [$diag addNode cad_class 752.0 1600.0 748.0 275.0]
  4074. $node659 setLabel "name" "THeaderControl"
  4075. $node659 setScope "name" "cl" "scopePhase"
  4076. $node659 setProp "is_declaration" "1" "name" "cl"
  4077. $node659 setProp "libunit" "Other" "name" "cl"
  4078. $node659 setProp "userlib" "ComCtrls" "name" "cl"
  4079.  
  4080. set node660 [$diag addNode cad_class 3264.0 1904.0 120.0 435.0]
  4081. $node660 setLabel "name" "TListView"
  4082. $node660 setScope "name" "cl" "scopePhase"
  4083. $node660 setProp "is_declaration" "1" "name" "cl"
  4084. $node660 setProp "libunit" "Other" "name" "cl"
  4085. $node660 setProp "userlib" "ComCtrls" "name" "cl"
  4086.  
  4087. set node661 [$diag addNode cad_class 2592.0 1968.0 140.0 499.0]
  4088. $node661 setLabel "name" "TTreeView"
  4089. $node661 setScope "name" "cl" "scopePhase"
  4090. $node661 setProp "is_declaration" "1" "name" "cl"
  4091. $node661 setProp "libunit" "Other" "name" "cl"
  4092. $node661 setProp "userlib" "ComCtrls" "name" "cl"
  4093.  
  4094. set node662 [$diag addNode cad_class 1696.0 1600.0 632.0 323.0]
  4095. $node662 setLabel "name" "TDateTimePicker"
  4096. $node662 setScope "name" "cl" "scopePhase"
  4097. $node662 setProp "is_declaration" "1" "name" "cl"
  4098. $node662 setProp "libunit" "Other" "name" "cl"
  4099. $node662 setProp "userlib" "ComCtrls" "name" "cl"
  4100.  
  4101. set node663 [$diag addNode cad_class 1520.0 1600.0 166.0 147.0]
  4102. $node663 setLabel "name" "TAnimate"
  4103. $node663 setScope "name" "cl" "scopePhase"
  4104. $node663 setProp "is_declaration" "1" "name" "cl"
  4105. $node663 setProp "libunit" "Other" "name" "cl"
  4106. $node663 setProp "userlib" "ComCtrls" "name" "cl"
  4107.  
  4108. set node664 [$diag addNode cad_class 1072.0 1104.0 120.0 163.0]
  4109. $node664 setLabel "name" "THotKey"
  4110. $node664 setScope "name" "cl" "scopePhase"
  4111. $node664 setProp "is_declaration" "1" "name" "cl"
  4112. $node664 setProp "libunit" "Other" "name" "cl"
  4113. $node664 setProp "userlib" "ComCtrls" "name" "cl"
  4114.  
  4115. set node665 [$diag addNode cad_class 1600.0 1120.0 120.0 195.0]
  4116. $node665 setLabel "name" "TUpDown"
  4117. $node665 setScope "name" "cl" "scopePhase"
  4118. $node665 setProp "is_declaration" "1" "name" "cl"
  4119. $node665 setProp "libunit" "Other" "name" "cl"
  4120. $node665 setProp "userlib" "ComCtrls" "name" "cl"
  4121.  
  4122. set node666 [$diag addNode cad_class 1232.0 912.0 120.0 227.0]
  4123. $node666 setLabel "name" "TProgressBar"
  4124. $node666 setScope "name" "cl" "scopePhase"
  4125. $node666 setProp "is_declaration" "1" "name" "cl"
  4126. $node666 setProp "libunit" "Other" "name" "cl"
  4127. $node666 setProp "userlib" "ComCtrls" "name" "cl"
  4128.  
  4129. set node667 [$diag addNode cad_class 1360.0 912.0 120.0 243.0]
  4130. $node667 setLabel "name" "TTrackBar"
  4131. $node667 setScope "name" "cl" "scopePhase"
  4132. $node667 setProp "is_declaration" "1" "name" "cl"
  4133. $node667 setProp "libunit" "Other" "name" "cl"
  4134. $node667 setProp "userlib" "ComCtrls" "name" "cl"
  4135.  
  4136. set node668 [$diag addNode cad_class 2480.0 1120.0 134.0 355.0]
  4137. $node668 setLabel "name" "TRichEdit"
  4138. $node668 setScope "name" "cl" "scopePhase"
  4139. $node668 setProp "is_declaration" "1" "name" "cl"
  4140. $node668 setProp "libunit" "Other" "name" "cl"
  4141. $node668 setProp "userlib" "ComCtrls" "name" "cl"
  4142.  
  4143. set node669 [$diag addNode cad_class 2064.0 1136.0 120.0 259.0]
  4144. $node669 setLabel "name" "TPageControl"
  4145. $node669 setScope "name" "cl" "scopePhase"
  4146.  
  4147. set node670 [$diag addNode cad_class 1920.0 1136.0 120.0 259.0]
  4148. $node670 setLabel "name" "TTabControl"
  4149. $node670 setScope "name" "cl" "scopePhase"
  4150. $node670 setProp "is_declaration" "1" "name" "cl"
  4151. $node670 setProp "libunit" "Other" "name" "cl"
  4152. $node670 setProp "userlib" "ComCtrls" "name" "cl"
  4153.  
  4154. set node671 [$diag addNode cad_class 2336.0 1600.0 649.0 275.0]
  4155. $node671 setLabel "name" "TCustomTreeView"
  4156. $node671 setScope "name" "cl" "scopePhase"
  4157. $node671 setProp "is_declaration" "1" "name" "cl"
  4158. $node671 setProp "libunit" "Other" "name" "cl"
  4159. $node671 setProp "userlib" "ComCtrls" "name" "cl"
  4160.  
  4161. set node672 [$diag addNode cad_class 1744.0 2240.0 172.0 275.0]
  4162. $node672 setLabel "name" "TToolBar"
  4163. $node672 setScope "name" "cl" "scopePhase"
  4164. $node672 setProp "is_declaration" "1" "name" "cl"
  4165. $node672 setProp "libunit" "Other" "name" "cl"
  4166. $node672 setProp "userlib" "ComCtrls" "name" "cl"
  4167.  
  4168. set node673 [$diag addNode cad_class 1600.0 2096.0 120.0 33.0]
  4169. $node673 setLabel "name" "TToolWindow"
  4170. $node673 setProp "is_folded" "1"
  4171. $node673 setScope "name" "cl" "scopePhase"
  4172. $node673 setProp "is_declaration" "1" "name" "cl"
  4173. $node673 setProp "libunit" "Other" "name" "cl"
  4174. $node673 setProp "userlib" "ComCtrls" "name" "cl"
  4175.  
  4176. set node674 [$diag addNode cad_class 1776.0 2000.0 120.0 33.0]
  4177. $node674 setLabel "name" "TWinControl"
  4178. $node674 setProp "is_folded" "1"
  4179. $node674 setScope "name" "cl" "scopePhase"
  4180. $node674 setProp "is_declaration" "1" "name" "cl"
  4181. $node674 setProp "libunit" "Controls" "name" "cl"
  4182.  
  4183. set node675 [$diag addNode cad_class 3008.0 1600.0 611.0 211.0]
  4184. $node675 setLabel "name" "TCustomListView"
  4185. $node675 setScope "name" "cl" "scopePhase"
  4186. $node675 setProp "is_declaration" "1" "name" "cl"
  4187. $node675 setProp "libunit" "Other" "name" "cl"
  4188. $node675 setProp "userlib" "ComCtrls" "name" "cl"
  4189.  
  4190. set node639 [$diag addRake generalization $node650 $node662 2240.0 1504.0 1760.0 1664.0 1567.5]
  4191.  
  4192. set conn676 [$node639 getInConn]
  4193. set segm677 [$conn676 getFirstSegm]
  4194.  
  4195. set conn678 [$node639 getFirstOutConn]
  4196. set segm679 [$conn678 getFirstSegm]
  4197.  
  4198. set conn680 [$diag addConn generalization_conn $node639 $node663 1600.0 1567.5 1600.0 1664.0]
  4199. set segm681 [$conn680 getFirstSegm]
  4200.  
  4201. set conn682 [$diag addConn generalization_conn $node639 $node671 2688.0 1567.5 2688.0 1680.0]
  4202. set segm683 [$conn682 getFirstSegm]
  4203.  
  4204. set conn684 [$diag addConn generalization_conn $node639 $node659 1120.0 1567.5 1120.0 1632.0]
  4205. set segm685 [$conn684 getFirstSegm]
  4206.  
  4207. set conn686 [$diag addConn generalization_conn $node639 $node675 3312.0 1567.5 3312.0 1680.0]
  4208. set segm687 [$conn686 getFirstSegm]
  4209.  
  4210. set node640 [$diag addRake generalization $node651 $node664 1136.0 1008.0 1136.0 1120.0 1064.0]
  4211.  
  4212. set conn688 [$node640 getInConn]
  4213. set segm689 [$conn688 getFirstSegm]
  4214.  
  4215. set conn690 [$node640 getFirstOutConn]
  4216. set segm691 [$conn690 getFirstSegm]
  4217.  
  4218. set node641 [$diag addRake generalization $node652 $node665 1664.0 1024.0 1664.0 1136.0 1080.0]
  4219.  
  4220. set conn692 [$node641 getInConn]
  4221. set segm693 [$conn692 getFirstSegm]
  4222.  
  4223. set conn694 [$node641 getFirstOutConn]
  4224. set segm695 [$conn694 getFirstSegm]
  4225.  
  4226. set node642 [$diag addRake generalization $node653 $node668 2544.0 1056.0 2544.0 1152.0 1104.0]
  4227.  
  4228. set conn696 [$node642 getInConn]
  4229. set segm697 [$conn696 getFirstSegm]
  4230.  
  4231. set conn698 [$node642 getFirstOutConn]
  4232. set segm699 [$conn698 getFirstSegm]
  4233.  
  4234. set node643 [$diag addRake generalization $node654 $node653 2560.0 832.0 2560.0 944.0 888.0]
  4235.  
  4236. set conn700 [$node643 getInConn]
  4237. set segm701 [$conn700 getFirstSegm]
  4238.  
  4239. set conn702 [$node643 getFirstOutConn]
  4240. set segm703 [$conn702 getFirstSegm]
  4241.  
  4242. set node644 [$diag addRake generalization $node656 $node651 2048.0 832.0 1136.0 960.0 879.5]
  4243.  
  4244. set conn704 [$node644 getInConn]
  4245. set segm705 [$conn704 getFirstSegm]
  4246.  
  4247. set conn706 [$node644 getFirstOutConn]
  4248. set segm707 [$conn706 getFirstSegm]
  4249.  
  4250. set conn708 [$diag addConn generalization_conn $node644 $node652 1664.0 879.5 1664.0 960.0]
  4251. set segm709 [$conn708 getFirstSegm]
  4252.  
  4253. set conn710 [$diag addConn generalization_conn $node644 $node666 1296.0 879.5 1296.0 944.0]
  4254. set segm711 [$conn710 getFirstSegm]
  4255.  
  4256. set conn712 [$diag addConn generalization_conn $node644 $node667 1424.0 879.5 1424.0 928.0]
  4257. set segm713 [$conn712 getFirstSegm]
  4258.  
  4259. set conn714 [$diag addConn generalization_conn $node644 $node655 2048.0 879.5 2048.0 960.0]
  4260. set segm715 [$conn714 getFirstSegm]
  4261.  
  4262. set node645 [$diag addRake generalization $node655 $node669 2048.0 1024.0 2128.0 1184.0 1088.0]
  4263.  
  4264. set conn716 [$node645 getInConn]
  4265. set segm717 [$conn716 getFirstSegm]
  4266.  
  4267. set conn718 [$node645 getFirstOutConn]
  4268. set segm719 [$conn718 getFirstSegm]
  4269.  
  4270. set conn720 [$diag addConn generalization_conn $node645 $node670 1984.0 1088.0 1984.0 1184.0]
  4271. set segm721 [$conn720 getFirstSegm]
  4272.  
  4273. set node646 [$diag addRake generalization $node671 $node661 2656.0 1872.0 2656.0 2016.0 1944.0]
  4274.  
  4275. set conn722 [$node646 getInConn]
  4276. set segm723 [$conn722 getFirstSegm]
  4277.  
  4278. set conn724 [$node646 getFirstOutConn]
  4279. set segm725 [$conn724 getFirstSegm]
  4280.  
  4281. set node647 [$diag addRake generalization $node673 $node657 1664.0 2128.0 1568.0 2272.0 2200.0]
  4282.  
  4283. set conn726 [$node647 getInConn]
  4284. set segm727 [$conn726 getFirstSegm]
  4285.  
  4286. set conn728 [$node647 getFirstOutConn]
  4287. set segm729 [$conn728 getFirstSegm]
  4288.  
  4289. set conn730 [$diag addConn generalization_conn $node647 $node672 1824.0 2200.0 1824.0 2288.0]
  4290. set segm731 [$conn730 getFirstSegm]
  4291.  
  4292. set node648 [$diag addRake generalization $node674 $node658 1840.0 2032.0 2240.0 2208.0 2072.0]
  4293.  
  4294. set conn732 [$node648 getInConn]
  4295. set segm733 [$conn732 getFirstSegm]
  4296.  
  4297. set conn734 [$node648 getFirstOutConn]
  4298. set segm735 [$conn734 getFirstSegm]
  4299.  
  4300. set conn736 [$diag addConn generalization_conn $node648 $node673 1664.0 2072.0 1664.0 2112.0]
  4301. set segm737 [$conn736 getFirstSegm]
  4302.  
  4303. set node649 [$diag addRake generalization $node675 $node660 3328.0 1808.0 3328.0 1952.0 1880.0]
  4304.  
  4305. set conn738 [$node649 getInConn]
  4306. set segm739 [$conn738 getFirstSegm]
  4307.  
  4308. set conn740 [$node649 getFirstOutConn]
  4309. set segm741 [$conn740 getFirstSegm]
  4310.  
  4311. $diag save
  4312.  
  4313. # Generator: et.tcl    /main/titanic/10
  4314. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4315. # Interpreter to use: Otsh V7.1.1/B5
  4316. #
  4317. OTShRegister::importTool
  4318.  
  4319. set diag [CDM new TCustomTabControl "DelphiVCL" "" "" "" "" "" 1]
  4320.  
  4321. set row742 [$diag addRow method 0.0]
  4322. $row742 setLabel "name_type" "Change()\n"
  4323. $row742 setProp "has_parmlist" "1"
  4324. $row742 setProp "is_event" "1"
  4325. $row742 setProp "method_access" "Protected"
  4326.  
  4327. set cell743 [$row742 addCell parameter 0.0]
  4328. $cell743 setLabel "name_type" "Sender: TObject"
  4329. $cell743 setScope "name_type" "cl" "scopePhase"
  4330. $cell743 setProp "is_declaration" "1" "name_type" "cl"
  4331. $cell743 setProp "libunit" "System" "name_type" "cl"
  4332. $cell743 setScope "name_type" "de" "scopeFile"
  4333.  
  4334. set row744 [$diag addRow method 0.0]
  4335. $row744 setLabel "name_type" "Changing()"
  4336. $row744 setProp "has_parmlist" "1"
  4337. $row744 setProp "is_event" "1"
  4338. $row744 setProp "method_access" "Protected"
  4339.  
  4340. set cell745 [$row744 addCell parameter 0.0]
  4341. $cell745 setLabel "name_type" "Sender: TObject, "
  4342. $cell745 setScope "name_type" "cl" "scopePhase"
  4343. $cell745 setProp "is_declaration" "1" "name_type" "cl"
  4344. $cell745 setProp "libunit" "System" "name_type" "cl"
  4345. $cell745 setScope "name_type" "de" "scopeFile"
  4346.  
  4347. set cell746 [$row744 addCell parameter 0.0]
  4348. $cell746 setLabel "name_type" "AllowChange: boolean"
  4349. $cell746 setProp "pass_by" "Variable"
  4350. $cell746 setScope "name_type" "cl" "scopePhase"
  4351. $cell746 setScope "name_type" "de" "scopeFile"
  4352.  
  4353. $diag save
  4354.  
  4355. # Generator: et.tcl    /main/titanic/10
  4356. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4357. # Interpreter to use: Otsh V7.1.1/B5
  4358. #
  4359. OTShRegister::importTool
  4360.  
  4361. set diag [CDM new TTabControl "DelphiVCL" "" "" "" "" "" 1]
  4362.  
  4363. set row747 [$diag addRow method 0.0]
  4364. $row747 setLabel "name_type" "Change()\n"
  4365. $row747 setProp "has_parmlist" "1"
  4366. $row747 setProp "is_event" "1"
  4367. $row747 setProp "method_access" "Published"
  4368.  
  4369. set row748 [$diag addRow method 0.0]
  4370. $row748 setLabel "name_type" "Changing()\n"
  4371. $row748 setProp "has_parmlist" "1"
  4372. $row748 setProp "is_event" "1"
  4373. $row748 setProp "method_access" "Published"
  4374.  
  4375. set row749 [$diag addRow method 0.0]
  4376. $row749 setLabel "name_type" "Enter()\n"
  4377. $row749 setProp "has_parmlist" "1"
  4378. $row749 setProp "is_event" "1"
  4379. $row749 setProp "method_access" "Published"
  4380.  
  4381. set row750 [$diag addRow method 0.0]
  4382. $row750 setLabel "name_type" "Exit()\n"
  4383. $row750 setProp "has_parmlist" "1"
  4384. $row750 setProp "is_event" "1"
  4385. $row750 setProp "method_access" "Published"
  4386.  
  4387. set row751 [$diag addRow method 0.0]
  4388. $row751 setLabel "name_type" "DragDrop()\n"
  4389. $row751 setProp "has_parmlist" "1"
  4390. $row751 setProp "is_event" "1"
  4391. $row751 setProp "method_access" "Published"
  4392.  
  4393. set row752 [$diag addRow method 0.0]
  4394. $row752 setLabel "name_type" "DragOver()\n"
  4395. $row752 setProp "has_parmlist" "1"
  4396. $row752 setProp "is_event" "1"
  4397. $row752 setProp "method_access" "Published"
  4398.  
  4399. set row753 [$diag addRow method 0.0]
  4400. $row753 setLabel "name_type" "EndDrag()\n"
  4401. $row753 setProp "has_parmlist" "1"
  4402. $row753 setProp "is_event" "1"
  4403. $row753 setProp "method_access" "Published"
  4404.  
  4405. set row754 [$diag addRow method 0.0]
  4406. $row754 setLabel "name_type" "MouseDown()\n"
  4407. $row754 setProp "has_parmlist" "1"
  4408. $row754 setProp "is_event" "1"
  4409. $row754 setProp "method_access" "Published"
  4410.  
  4411. set row755 [$diag addRow method 0.0]
  4412. $row755 setLabel "name_type" "MouseMove()\n"
  4413. $row755 setProp "has_parmlist" "1"
  4414. $row755 setProp "is_event" "1"
  4415. $row755 setProp "method_access" "Published"
  4416.  
  4417. set row756 [$diag addRow method 0.0]
  4418. $row756 setLabel "name_type" "MouseUp()\n"
  4419. $row756 setProp "has_parmlist" "1"
  4420. $row756 setProp "is_event" "1"
  4421. $row756 setProp "method_access" "Published"
  4422.  
  4423. set row757 [$diag addRow method 0.0]
  4424. $row757 setLabel "name_type" "StartDrag()"
  4425. $row757 setProp "has_parmlist" "1"
  4426. $row757 setProp "is_event" "1"
  4427. $row757 setProp "method_access" "Published"
  4428.  
  4429. $diag save
  4430.  
  4431. # Generator: et.tcl    /main/titanic/10
  4432. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4433. # Interpreter to use: Otsh V7.1.1/B5
  4434. #
  4435. OTShRegister::importTool
  4436.  
  4437. set diag [CDM new TPageControl "DelphiVCL" "" "" "" "" "" 1]
  4438.  
  4439. set row758 [$diag addRow method 0.0]
  4440. $row758 setLabel "name_type" "Change()\n"
  4441. $row758 setProp "has_parmlist" "1"
  4442. $row758 setProp "is_event" "1"
  4443. $row758 setProp "method_access" "Published"
  4444.  
  4445. set row759 [$diag addRow method 0.0]
  4446. $row759 setLabel "name_type" "Changing()\n"
  4447. $row759 setProp "has_parmlist" "1"
  4448. $row759 setProp "is_event" "1"
  4449. $row759 setProp "method_access" "Published"
  4450.  
  4451. set row760 [$diag addRow method 0.0]
  4452. $row760 setLabel "name_type" "Enter()\n"
  4453. $row760 setProp "has_parmlist" "1"
  4454. $row760 setProp "is_event" "1"
  4455. $row760 setProp "method_access" "Published"
  4456.  
  4457. set row761 [$diag addRow method 0.0]
  4458. $row761 setLabel "name_type" "Exit()\n"
  4459. $row761 setProp "has_parmlist" "1"
  4460. $row761 setProp "is_event" "1"
  4461. $row761 setProp "method_access" "Published"
  4462.  
  4463. set row762 [$diag addRow method 0.0]
  4464. $row762 setLabel "name_type" "DragDrop()\n"
  4465. $row762 setProp "has_parmlist" "1"
  4466. $row762 setProp "is_event" "1"
  4467. $row762 setProp "method_access" "Published"
  4468.  
  4469. set row763 [$diag addRow method 0.0]
  4470. $row763 setLabel "name_type" "DragOver()\n"
  4471. $row763 setProp "has_parmlist" "1"
  4472. $row763 setProp "is_event" "1"
  4473. $row763 setProp "method_access" "Published"
  4474.  
  4475. set row764 [$diag addRow method 0.0]
  4476. $row764 setLabel "name_type" "EndDrag()\n"
  4477. $row764 setProp "has_parmlist" "1"
  4478. $row764 setProp "is_event" "1"
  4479. $row764 setProp "method_access" "Published"
  4480.  
  4481. set row765 [$diag addRow method 0.0]
  4482. $row765 setLabel "name_type" "MouseDown()\n"
  4483. $row765 setProp "has_parmlist" "1"
  4484. $row765 setProp "is_event" "1"
  4485. $row765 setProp "method_access" "Published"
  4486.  
  4487. set row766 [$diag addRow method 0.0]
  4488. $row766 setLabel "name_type" "MouseMove()\n"
  4489. $row766 setProp "has_parmlist" "1"
  4490. $row766 setProp "is_event" "1"
  4491. $row766 setProp "method_access" "Published"
  4492.  
  4493. set row767 [$diag addRow method 0.0]
  4494. $row767 setLabel "name_type" "MouseUp()\n"
  4495. $row767 setProp "has_parmlist" "1"
  4496. $row767 setProp "is_event" "1"
  4497. $row767 setProp "method_access" "Published"
  4498.  
  4499. set row768 [$diag addRow method 0.0]
  4500. $row768 setLabel "name_type" "StartDrag()"
  4501. $row768 setProp "has_parmlist" "1"
  4502. $row768 setProp "is_event" "1"
  4503. $row768 setProp "method_access" "Published"
  4504.  
  4505. $diag save
  4506.  
  4507. # Generator: et.tcl    /main/titanic/10
  4508. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4509. # Interpreter to use: Otsh V7.1.1/B5
  4510. #
  4511. OTShRegister::importTool
  4512.  
  4513. set diag [CDM new TCustomRichEdit "DelphiVCL" "" "" "" "" "" 1]
  4514.  
  4515. set row769 [$diag addRow method 0.0]
  4516. $row769 setLabel "name_type" "ProtectChange()\n"
  4517. $row769 setProp "has_parmlist" "1"
  4518. $row769 setProp "is_event" "1"
  4519. $row769 setProp "method_access" "Protected"
  4520.  
  4521. set cell770 [$row769 addCell parameter 0.0]
  4522. $cell770 setLabel "name_type" "Sender: TObject, "
  4523. $cell770 setScope "name_type" "cl" "scopePhase"
  4524. $cell770 setProp "is_declaration" "1" "name_type" "cl"
  4525. $cell770 setProp "libunit" "System" "name_type" "cl"
  4526. $cell770 setScope "name_type" "de" "scopeFile"
  4527.  
  4528. set cell771 [$row769 addCell parameter 0.0]
  4529. $cell771 setLabel "name_type" "StartPos: integer, "
  4530. $cell771 setScope "name_type" "cl" "scopePhase"
  4531. $cell771 setScope "name_type" "de" "scopeFile"
  4532.  
  4533. set cell772 [$row769 addCell parameter 0.0]
  4534. $cell772 setLabel "name_type" "EndPos: integer, "
  4535. $cell772 setScope "name_type" "cl" "scopePhase"
  4536. $cell772 setScope "name_type" "de" "scopeFile"
  4537.  
  4538. set cell773 [$row769 addCell parameter 0.0]
  4539. $cell773 setLabel "name_type" "AllowChange: boolean"
  4540. $cell773 setProp "pass_by" "Variable"
  4541. $cell773 setScope "name_type" "cl" "scopePhase"
  4542. $cell773 setScope "name_type" "de" "scopeFile"
  4543.  
  4544. set row774 [$diag addRow method 0.0]
  4545. $row774 setLabel "name_type" "ResizeRequest()\n"
  4546. $row774 setProp "has_parmlist" "1"
  4547. $row774 setProp "is_event" "1"
  4548. $row774 setProp "method_access" "Protected"
  4549.  
  4550. set cell775 [$row774 addCell parameter 0.0]
  4551. $cell775 setLabel "name_type" "Sender: TObject, "
  4552. $cell775 setScope "name_type" "cl" "scopePhase"
  4553. $cell775 setProp "is_declaration" "1" "name_type" "cl"
  4554. $cell775 setProp "libunit" "System" "name_type" "cl"
  4555. $cell775 setScope "name_type" "de" "scopeFile"
  4556.  
  4557. set cell776 [$row774 addCell parameter 0.0]
  4558. $cell776 setLabel "name_type" "Rect: TRect"
  4559. $cell776 setScope "name_type" "cl" "scopePhase"
  4560. $cell776 setProp "libunit" "Other" "name_type" "cl"
  4561. $cell776 setProp "userlib" "Windows" "name_type" "cl"
  4562. $cell776 setScope "name_type" "de" "scopeFile"
  4563.  
  4564. set row777 [$diag addRow method 0.0]
  4565. $row777 setLabel "name_type" "SaveClipboard()\n"
  4566. $row777 setProp "has_parmlist" "1"
  4567. $row777 setProp "is_event" "1"
  4568. $row777 setProp "method_access" "Protected"
  4569.  
  4570. set cell778 [$row777 addCell parameter 0.0]
  4571. $cell778 setLabel "name_type" "Sender: TObject, "
  4572. $cell778 setScope "name_type" "cl" "scopePhase"
  4573. $cell778 setProp "is_declaration" "1" "name_type" "cl"
  4574. $cell778 setProp "libunit" "System" "name_type" "cl"
  4575. $cell778 setScope "name_type" "de" "scopeFile"
  4576.  
  4577. set cell779 [$row777 addCell parameter 0.0]
  4578. $cell779 setLabel "name_type" "NumObjects: integer, "
  4579. $cell779 setScope "name_type" "cl" "scopePhase"
  4580. $cell779 setScope "name_type" "de" "scopeFile"
  4581.  
  4582. set cell780 [$row777 addCell parameter 0.0]
  4583. $cell780 setLabel "name_type" "NumChars: integer, "
  4584. $cell780 setScope "name_type" "cl" "scopePhase"
  4585. $cell780 setScope "name_type" "de" "scopeFile"
  4586.  
  4587. set cell781 [$row777 addCell parameter 0.0]
  4588. $cell781 setLabel "name_type" "SaveClipboard: boolean"
  4589. $cell781 setProp "pass_by" "Variable"
  4590. $cell781 setScope "name_type" "cl" "scopePhase"
  4591. $cell781 setScope "name_type" "de" "scopeFile"
  4592.  
  4593. set row782 [$diag addRow method 0.0]
  4594. $row782 setLabel "name_type" "SelectionChange()"
  4595. $row782 setProp "has_parmlist" "1"
  4596. $row782 setProp "is_event" "1"
  4597. $row782 setProp "method_access" "Protected"
  4598.  
  4599. set cell783 [$row782 addCell parameter 0.0]
  4600. $cell783 setLabel "name_type" "Sender: TObject"
  4601. $cell783 setScope "name_type" "cl" "scopePhase"
  4602. $cell783 setProp "is_declaration" "1" "name_type" "cl"
  4603. $cell783 setProp "libunit" "System" "name_type" "cl"
  4604. $cell783 setScope "name_type" "de" "scopeFile"
  4605.  
  4606. $diag save
  4607.  
  4608. # Generator: et.tcl    /main/titanic/10
  4609. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4610. # Interpreter to use: Otsh V7.1.1/B5
  4611. #
  4612. OTShRegister::importTool
  4613.  
  4614. set diag [CDM new TProgressBar "DelphiVCL" "" "" "" "" "" 1]
  4615.  
  4616. set row784 [$diag addRow method 0.0]
  4617. $row784 setLabel "name_type" "Enter()\n"
  4618. $row784 setProp "has_parmlist" "1"
  4619. $row784 setProp "is_event" "1"
  4620. $row784 setProp "method_access" "Published"
  4621.  
  4622. set row785 [$diag addRow method 0.0]
  4623. $row785 setLabel "name_type" "Exit()\n"
  4624. $row785 setProp "has_parmlist" "1"
  4625. $row785 setProp "is_event" "1"
  4626. $row785 setProp "method_access" "Published"
  4627.  
  4628. set row786 [$diag addRow method 0.0]
  4629. $row786 setLabel "name_type" "DragDrop()\n"
  4630. $row786 setProp "has_parmlist" "1"
  4631. $row786 setProp "is_event" "1"
  4632. $row786 setProp "method_access" "Published"
  4633.  
  4634. set row787 [$diag addRow method 0.0]
  4635. $row787 setLabel "name_type" "DragOver()\n"
  4636. $row787 setProp "has_parmlist" "1"
  4637. $row787 setProp "is_event" "1"
  4638. $row787 setProp "method_access" "Published"
  4639.  
  4640. set row788 [$diag addRow method 0.0]
  4641. $row788 setLabel "name_type" "EndDrag()\n"
  4642. $row788 setProp "has_parmlist" "1"
  4643. $row788 setProp "is_event" "1"
  4644. $row788 setProp "method_access" "Published"
  4645.  
  4646. set row789 [$diag addRow method 0.0]
  4647. $row789 setLabel "name_type" "MouseDown()\n"
  4648. $row789 setProp "has_parmlist" "1"
  4649. $row789 setProp "is_event" "1"
  4650. $row789 setProp "method_access" "Published"
  4651.  
  4652. set row790 [$diag addRow method 0.0]
  4653. $row790 setLabel "name_type" "MouseMove()\n"
  4654. $row790 setProp "has_parmlist" "1"
  4655. $row790 setProp "is_event" "1"
  4656. $row790 setProp "method_access" "Published"
  4657.  
  4658. set row791 [$diag addRow method 0.0]
  4659. $row791 setLabel "name_type" "MouseUp()\n"
  4660. $row791 setProp "has_parmlist" "1"
  4661. $row791 setProp "is_event" "1"
  4662. $row791 setProp "method_access" "Published"
  4663.  
  4664. set row792 [$diag addRow method 0.0]
  4665. $row792 setLabel "name_type" "StartDrag()"
  4666. $row792 setProp "has_parmlist" "1"
  4667. $row792 setProp "is_event" "1"
  4668. $row792 setProp "method_access" "Published"
  4669.  
  4670. $diag save
  4671.  
  4672. # Generator: et.tcl    /main/titanic/10
  4673. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4674. # Interpreter to use: Otsh V7.1.1/B5
  4675. #
  4676. OTShRegister::importTool
  4677.  
  4678. set diag [CDM new TCustomUpDown "DelphiVCL" "" "" "" "" "" 1]
  4679.  
  4680. set row793 [$diag addRow method 0.0]
  4681. $row793 setLabel "name_type" "Changing()\n"
  4682. $row793 setProp "has_parmlist" "1"
  4683. $row793 setProp "is_event" "1"
  4684. $row793 setProp "method_access" "Protected"
  4685.  
  4686. set cell794 [$row793 addCell parameter 0.0]
  4687. $cell794 setLabel "name_type" "Sender: TObject, "
  4688. $cell794 setScope "name_type" "cl" "scopePhase"
  4689. $cell794 setProp "is_declaration" "1" "name_type" "cl"
  4690. $cell794 setProp "libunit" "System" "name_type" "cl"
  4691. $cell794 setScope "name_type" "de" "scopeFile"
  4692.  
  4693. set cell795 [$row793 addCell parameter 0.0]
  4694. $cell795 setLabel "name_type" "AllowChange: boolean"
  4695. $cell795 setProp "pass_by" "Variable"
  4696. $cell795 setScope "name_type" "cl" "scopePhase"
  4697. $cell795 setScope "name_type" "de" "scopeFile"
  4698.  
  4699. set row796 [$diag addRow method 0.0]
  4700. $row796 setLabel "name_type" "Click()"
  4701. $row796 setProp "has_parmlist" "1"
  4702. $row796 setProp "is_event" "1"
  4703. $row796 setProp "method_access" "Protected"
  4704.  
  4705. set cell797 [$row796 addCell parameter 0.0]
  4706. $cell797 setLabel "name_type" "Sender: TObject, "
  4707. $cell797 setScope "name_type" "cl" "scopePhase"
  4708. $cell797 setProp "is_declaration" "1" "name_type" "cl"
  4709. $cell797 setProp "libunit" "System" "name_type" "cl"
  4710. $cell797 setScope "name_type" "de" "scopeFile"
  4711.  
  4712. set cell798 [$row796 addCell parameter 0.0]
  4713. $cell798 setLabel "name_type" "Button: TUDBtnType"
  4714. $cell798 setScope "name_type" "cl" "scopePhase"
  4715. $cell798 setProp "libunit" "Other" "name_type" "cl"
  4716. $cell798 setProp "userlib" "ComCtrls" "name_type" "cl"
  4717. $cell798 setScope "name_type" "de" "scopeFile"
  4718.  
  4719. $diag save
  4720.  
  4721. # Generator: et.tcl    /main/titanic/10
  4722. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4723. # Interpreter to use: Otsh V7.1.1/B5
  4724. #
  4725. OTShRegister::importTool
  4726.  
  4727. set diag [CDM new TUpDown "DelphiVCL" "" "" "" "" "" 1]
  4728.  
  4729. set row799 [$diag addRow method 0.0]
  4730. $row799 setLabel "name_type" "Changing()\n"
  4731. $row799 setProp "has_parmlist" "1"
  4732. $row799 setProp "is_event" "1"
  4733. $row799 setProp "method_access" "Published"
  4734.  
  4735. set row800 [$diag addRow method 0.0]
  4736. $row800 setLabel "name_type" "Click()\n"
  4737. $row800 setProp "has_parmlist" "1"
  4738. $row800 setProp "is_event" "1"
  4739. $row800 setProp "method_access" "Published"
  4740.  
  4741. set row801 [$diag addRow method 0.0]
  4742. $row801 setLabel "name_type" "Enter()\n"
  4743. $row801 setProp "has_parmlist" "1"
  4744. $row801 setProp "is_event" "1"
  4745. $row801 setProp "method_access" "Published"
  4746.  
  4747. set row802 [$diag addRow method 0.0]
  4748. $row802 setLabel "name_type" "Exit()\n"
  4749. $row802 setProp "has_parmlist" "1"
  4750. $row802 setProp "is_event" "1"
  4751. $row802 setProp "method_access" "Published"
  4752.  
  4753. set row803 [$diag addRow method 0.0]
  4754. $row803 setLabel "name_type" "MouseDown()\n"
  4755. $row803 setProp "has_parmlist" "1"
  4756. $row803 setProp "is_event" "1"
  4757. $row803 setProp "method_access" "Published"
  4758.  
  4759. set row804 [$diag addRow method 0.0]
  4760. $row804 setLabel "name_type" "MouseMove()\n"
  4761. $row804 setProp "has_parmlist" "1"
  4762. $row804 setProp "is_event" "1"
  4763. $row804 setProp "method_access" "Published"
  4764.  
  4765. set row805 [$diag addRow method 0.0]
  4766. $row805 setLabel "name_type" "MouseUp()"
  4767. $row805 setProp "has_parmlist" "1"
  4768. $row805 setProp "is_event" "1"
  4769. $row805 setProp "method_access" "Published"
  4770.  
  4771. $diag save
  4772.  
  4773. # Generator: et.tcl    /main/titanic/10
  4774. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4775. # Interpreter to use: Otsh V7.1.1/B5
  4776. #
  4777. OTShRegister::importTool
  4778.  
  4779. set diag [CDM new THotKey "DelphiVCL" "" "" "" "" "" 1]
  4780.  
  4781. set row806 [$diag addRow method 0.0]
  4782. $row806 setLabel "name_type" "Enter()\n"
  4783. $row806 setProp "has_parmlist" "1"
  4784. $row806 setProp "is_event" "1"
  4785. $row806 setProp "method_access" "Published"
  4786.  
  4787. set row807 [$diag addRow method 0.0]
  4788. $row807 setLabel "name_type" "Exit()\n"
  4789. $row807 setProp "has_parmlist" "1"
  4790. $row807 setProp "is_event" "1"
  4791. $row807 setProp "method_access" "Published"
  4792.  
  4793. set row808 [$diag addRow method 0.0]
  4794. $row808 setLabel "name_type" "MouseDown()\n"
  4795. $row808 setProp "has_parmlist" "1"
  4796. $row808 setProp "is_event" "1"
  4797. $row808 setProp "method_access" "Published"
  4798.  
  4799. set row809 [$diag addRow method 0.0]
  4800. $row809 setLabel "name_type" "MouseMove()\n"
  4801. $row809 setProp "has_parmlist" "1"
  4802. $row809 setProp "is_event" "1"
  4803. $row809 setProp "method_access" "Published"
  4804.  
  4805. set row810 [$diag addRow method 0.0]
  4806. $row810 setLabel "name_type" "MouseUp()"
  4807. $row810 setProp "has_parmlist" "1"
  4808. $row810 setProp "is_event" "1"
  4809. $row810 setProp "method_access" "Published"
  4810.  
  4811. $diag save
  4812.  
  4813. # Generator: et.tcl    /main/titanic/10
  4814. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4815. # Interpreter to use: Otsh V7.1.1/B5
  4816. #
  4817. OTShRegister::importTool
  4818.  
  4819. set diag [CDM new TAnimate "DelphiVCL" "" "" "" "" "" 1]
  4820.  
  4821. set row811 [$diag addRow method 0.0]
  4822. $row811 setLabel "name_type" "Close()\n"
  4823. $row811 setProp "has_parmlist" "1"
  4824. $row811 setProp "is_event" "1"
  4825. $row811 setProp "method_access" "Published"
  4826.  
  4827. set cell812 [$row811 addCell parameter 0.0]
  4828. $cell812 setLabel "name_type" "Sender: TObject"
  4829. $cell812 setScope "name_type" "cl" "scopePhase"
  4830. $cell812 setProp "is_declaration" "1" "name_type" "cl"
  4831. $cell812 setProp "libunit" "System" "name_type" "cl"
  4832. $cell812 setScope "name_type" "de" "scopeFile"
  4833.  
  4834. set row813 [$diag addRow method 0.0]
  4835. $row813 setLabel "name_type" "Open()\n"
  4836. $row813 setProp "has_parmlist" "1"
  4837. $row813 setProp "is_event" "1"
  4838. $row813 setProp "method_access" "Published"
  4839.  
  4840. set cell814 [$row813 addCell parameter 0.0]
  4841. $cell814 setLabel "name_type" "Sender: TObject"
  4842. $cell814 setScope "name_type" "cl" "scopePhase"
  4843. $cell814 setProp "is_declaration" "1" "name_type" "cl"
  4844. $cell814 setProp "libunit" "System" "name_type" "cl"
  4845. $cell814 setScope "name_type" "de" "scopeFile"
  4846.  
  4847. set row815 [$diag addRow method 0.0]
  4848. $row815 setLabel "name_type" "Start()\n"
  4849. $row815 setProp "has_parmlist" "1"
  4850. $row815 setProp "is_event" "1"
  4851. $row815 setProp "method_access" "Published"
  4852.  
  4853. set cell816 [$row815 addCell parameter 0.0]
  4854. $cell816 setLabel "name_type" "Sender: TObject"
  4855. $cell816 setScope "name_type" "cl" "scopePhase"
  4856. $cell816 setProp "is_declaration" "1" "name_type" "cl"
  4857. $cell816 setProp "libunit" "System" "name_type" "cl"
  4858. $cell816 setScope "name_type" "de" "scopeFile"
  4859.  
  4860. set row817 [$diag addRow method 0.0]
  4861. $row817 setLabel "name_type" "Stop()"
  4862. $row817 setProp "has_parmlist" "1"
  4863. $row817 setProp "is_event" "1"
  4864. $row817 setProp "method_access" "Published"
  4865.  
  4866. set cell818 [$row817 addCell parameter 0.0]
  4867. $cell818 setLabel "name_type" "Sender: TObject"
  4868. $cell818 setScope "name_type" "cl" "scopePhase"
  4869. $cell818 setProp "is_declaration" "1" "name_type" "cl"
  4870. $cell818 setProp "libunit" "System" "name_type" "cl"
  4871. $cell818 setScope "name_type" "de" "scopeFile"
  4872.  
  4873. $diag save
  4874.  
  4875. # Generator: et.tcl    /main/titanic/10
  4876. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  4877. # Interpreter to use: Otsh V7.1.1/B5
  4878. #
  4879. OTShRegister::importTool
  4880.  
  4881. set diag [CDM new TDateTimePicker "DelphiVCL" "" "" "" "" "" 1]
  4882.  
  4883. set row819 [$diag addRow method 0.0]
  4884. $row819 setLabel "name_type" "Change()\n"
  4885. $row819 setProp "has_parmlist" "1"
  4886. $row819 setProp "is_event" "1"
  4887. $row819 setProp "method_access" "Published"
  4888.  
  4889. set cell820 [$row819 addCell parameter 0.0]
  4890. $cell820 setLabel "name_type" "Sender: TObject"
  4891. $cell820 setScope "name_type" "cl" "scopePhase"
  4892. $cell820 setProp "is_declaration" "1" "name_type" "cl"
  4893. $cell820 setProp "libunit" "System" "name_type" "cl"
  4894. $cell820 setScope "name_type" "de" "scopeFile"
  4895.  
  4896. set row821 [$diag addRow method 0.0]
  4897. $row821 setLabel "name_type" "CloseUp()\n"
  4898. $row821 setProp "has_parmlist" "1"
  4899. $row821 setProp "is_event" "1"
  4900. $row821 setProp "method_access" "Published"
  4901.  
  4902. set cell822 [$row821 addCell parameter 0.0]
  4903. $cell822 setLabel "name_type" "Sender: TObject"
  4904. $cell822 setScope "name_type" "cl" "scopePhase"
  4905. $cell822 setProp "is_declaration" "1" "name_type" "cl"
  4906. $cell822 setProp "libunit" "System" "name_type" "cl"
  4907. $cell822 setScope "name_type" "de" "scopeFile"
  4908.  
  4909. set row823 [$diag addRow method 0.0]
  4910. $row823 setLabel "name_type" "DropDown()\n"
  4911. $row823 setProp "has_parmlist" "1"
  4912. $row823 setProp "is_event" "1"
  4913. $row823 setProp "method_access" "Published"
  4914.  
  4915. set cell824 [$row823 addCell parameter 0.0]
  4916. $cell824 setLabel "name_type" "Sender: TObject"
  4917. $cell824 setScope "name_type" "cl" "scopePhase"
  4918. $cell824 setProp "is_declaration" "1" "name_type" "cl"
  4919. $cell824 setProp "libunit" "System" "name_type" "cl"
  4920. $cell824 setScope "name_type" "de" "scopeFile"
  4921.  
  4922. set row825 [$diag addRow method 0.0]
  4923. $row825 setLabel "name_type" "UserInput()\n"
  4924. $row825 setProp "has_parmlist" "1"
  4925. $row825 setProp "is_event" "1"
  4926. $row825 setProp "method_access" "Published"
  4927.  
  4928. set cell826 [$row825 addCell parameter 0.0]
  4929. $cell826 setLabel "name_type" "Sender: TObject, "
  4930. $cell826 setScope "name_type" "cl" "scopePhase"
  4931. $cell826 setProp "is_declaration" "1" "name_type" "cl"
  4932. $cell826 setProp "libunit" "System" "name_type" "cl"
  4933. $cell826 setScope "name_type" "de" "scopeFile"
  4934.  
  4935. set cell827 [$row825 addCell parameter 0.0]
  4936. $cell827 setLabel "name_type" "UserString: string, "
  4937. $cell827 setProp "pass_by" "Constant"
  4938. $cell827 setScope "name_type" "cl" "scopePhase"
  4939. $cell827 setScope "name_type" "de" "scopeFile"
  4940.  
  4941. set cell828 [$row825 addCell parameter 0.0]
  4942. $cell828 setLabel "name_type" "DateAndTime: TDateTime, "
  4943. $cell828 setProp "pass_by" "Variable"
  4944. $cell828 setScope "name_type" "cl" "scopePhase"
  4945. $cell828 setProp "libunit" "System" "name_type" "cl"
  4946. $cell828 setScope "name_type" "de" "scopeFile"
  4947.  
  4948. set cell829 [$row825 addCell parameter 0.0]
  4949. $cell829 setLabel "name_type" "AllowChange: boolean"
  4950. $cell829 setProp "pass_by" "Variable"
  4951. $cell829 setScope "name_type" "cl" "scopePhase"
  4952. $cell829 setScope "name_type" "de" "scopeFile"
  4953.  
  4954. set row830 [$diag addRow method 0.0]
  4955. $row830 setLabel "name_type" "Enter()\n"
  4956. $row830 setProp "has_parmlist" "1"
  4957. $row830 setProp "is_event" "1"
  4958. $row830 setProp "method_access" "Published"
  4959.  
  4960. set row831 [$diag addRow method 0.0]
  4961. $row831 setLabel "name_type" "Exit()\n"
  4962. $row831 setProp "has_parmlist" "1"
  4963. $row831 setProp "is_event" "1"
  4964. $row831 setProp "method_access" "Published"
  4965.  
  4966. set row832 [$diag addRow method 0.0]
  4967. $row832 setLabel "name_type" "KeyDown()\n"
  4968. $row832 setProp "has_parmlist" "1"
  4969. $row832 setProp "is_event" "1"
  4970. $row832 setProp "method_access" "Published"
  4971.  
  4972. set row833 [$diag addRow method 0.0]
  4973. $row833 setLabel "name_type" "KeyPress()\n"
  4974. $row833 setProp "has_parmlist" "1"
  4975. $row833 setProp "is_event" "1"
  4976. $row833 setProp "method_access" "Published"
  4977.  
  4978. set row834 [$diag addRow method 0.0]
  4979. $row834 setLabel "name_type" "KeyUp()\n"
  4980. $row834 setProp "has_parmlist" "1"
  4981. $row834 setProp "is_event" "1"
  4982. $row834 setProp "method_access" "Published"
  4983.  
  4984. set row835 [$diag addRow method 0.0]
  4985. $row835 setLabel "name_type" "Click()\n"
  4986. $row835 setProp "has_parmlist" "1"
  4987. $row835 setProp "is_event" "1"
  4988. $row835 setProp "method_access" "Published"
  4989.  
  4990. set row836 [$diag addRow method 0.0]
  4991. $row836 setLabel "name_type" "DblClick()\n"
  4992. $row836 setProp "has_parmlist" "1"
  4993. $row836 setProp "is_event" "1"
  4994. $row836 setProp "method_access" "Published"
  4995.  
  4996. set row837 [$diag addRow method 0.0]
  4997. $row837 setLabel "name_type" "DragDrop()\n"
  4998. $row837 setProp "has_parmlist" "1"
  4999. $row837 setProp "is_event" "1"
  5000. $row837 setProp "method_access" "Published"
  5001.  
  5002. set row838 [$diag addRow method 0.0]
  5003. $row838 setLabel "name_type" "DragOver()\n"
  5004. $row838 setProp "has_parmlist" "1"
  5005. $row838 setProp "is_event" "1"
  5006. $row838 setProp "method_access" "Published"
  5007.  
  5008. set row839 [$diag addRow method 0.0]
  5009. $row839 setLabel "name_type" "EndDrag()\n"
  5010. $row839 setProp "has_parmlist" "1"
  5011. $row839 setProp "is_event" "1"
  5012. $row839 setProp "method_access" "Published"
  5013.  
  5014. set row840 [$diag addRow method 0.0]
  5015. $row840 setLabel "name_type" "StartDrag()"
  5016. $row840 setProp "has_parmlist" "1"
  5017. $row840 setProp "is_event" "1"
  5018. $row840 setProp "method_access" "Published"
  5019.  
  5020. $diag save
  5021.  
  5022. # Generator: et.tcl    /main/titanic/10
  5023. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  5024. # Interpreter to use: Otsh V7.1.1/B5
  5025. #
  5026. OTShRegister::importTool
  5027.  
  5028. set diag [CDM new TCustomTreeView "DelphiVCL" "" "" "" "" "" 1]
  5029.  
  5030. set row841 [$diag addRow method 0.0]
  5031. $row841 setLabel "name_type" "Change()\n"
  5032. $row841 setProp "has_parmlist" "1"
  5033. $row841 setProp "is_event" "1"
  5034. $row841 setProp "method_access" "Protected"
  5035.  
  5036. set cell842 [$row841 addCell parameter 0.0]
  5037. $cell842 setLabel "name_type" "Sender: TObject, "
  5038. $cell842 setScope "name_type" "cl" "scopePhase"
  5039. $cell842 setProp "is_declaration" "1" "name_type" "cl"
  5040. $cell842 setProp "libunit" "System" "name_type" "cl"
  5041. $cell842 setScope "name_type" "de" "scopeFile"
  5042.  
  5043. set cell843 [$row841 addCell parameter 0.0]
  5044. $cell843 setLabel "name_type" "Node: TTreeNode"
  5045. $cell843 setScope "name_type" "cl" "scopePhase"
  5046. $cell843 setProp "libunit" "Other" "name_type" "cl"
  5047. $cell843 setProp "userlib" "ComCtrls" "name_type" "cl"
  5048. $cell843 setScope "name_type" "de" "scopeFile"
  5049.  
  5050. set row844 [$diag addRow method 0.0]
  5051. $row844 setLabel "name_type" "Changing()\n"
  5052. $row844 setProp "has_parmlist" "1"
  5053. $row844 setProp "is_event" "1"
  5054. $row844 setProp "method_access" "Protected"
  5055.  
  5056. set cell845 [$row844 addCell parameter 0.0]
  5057. $cell845 setLabel "name_type" "Sender: TObject, "
  5058. $cell845 setScope "name_type" "cl" "scopePhase"
  5059. $cell845 setProp "is_declaration" "1" "name_type" "cl"
  5060. $cell845 setProp "libunit" "System" "name_type" "cl"
  5061. $cell845 setScope "name_type" "de" "scopeFile"
  5062.  
  5063. set cell846 [$row844 addCell parameter 0.0]
  5064. $cell846 setLabel "name_type" "Node: TTreeNode, "
  5065. $cell846 setScope "name_type" "cl" "scopePhase"
  5066. $cell846 setProp "libunit" "Other" "name_type" "cl"
  5067. $cell846 setProp "userlib" "ComCtrls" "name_type" "cl"
  5068. $cell846 setScope "name_type" "de" "scopeFile"
  5069.  
  5070. set cell847 [$row844 addCell parameter 0.0]
  5071. $cell847 setLabel "name_type" "AllowChange: boolean"
  5072. $cell847 setProp "pass_by" "Variable"
  5073. $cell847 setScope "name_type" "cl" "scopePhase"
  5074. $cell847 setScope "name_type" "de" "scopeFile"
  5075.  
  5076. set row848 [$diag addRow method 0.0]
  5077. $row848 setLabel "name_type" "Collapsed()\n"
  5078. $row848 setProp "has_parmlist" "1"
  5079. $row848 setProp "is_event" "1"
  5080. $row848 setProp "method_access" "Protected"
  5081.  
  5082. set cell849 [$row848 addCell parameter 0.0]
  5083. $cell849 setLabel "name_type" "Sender: TObject, "
  5084. $cell849 setScope "name_type" "cl" "scopePhase"
  5085. $cell849 setProp "is_declaration" "1" "name_type" "cl"
  5086. $cell849 setProp "libunit" "System" "name_type" "cl"
  5087. $cell849 setScope "name_type" "de" "scopeFile"
  5088.  
  5089. set cell850 [$row848 addCell parameter 0.0]
  5090. $cell850 setLabel "name_type" "Node: TTreeNode"
  5091. $cell850 setScope "name_type" "cl" "scopePhase"
  5092. $cell850 setProp "libunit" "Other" "name_type" "cl"
  5093. $cell850 setProp "userlib" "ComCtrls" "name_type" "cl"
  5094. $cell850 setScope "name_type" "de" "scopeFile"
  5095.  
  5096. set row851 [$diag addRow method 0.0]
  5097. $row851 setLabel "name_type" "Collapsing()\n"
  5098. $row851 setProp "has_parmlist" "1"
  5099. $row851 setProp "is_event" "1"
  5100. $row851 setProp "method_access" "Protected"
  5101.  
  5102. set cell852 [$row851 addCell parameter 0.0]
  5103. $cell852 setLabel "name_type" "Sender: TObject, "
  5104. $cell852 setScope "name_type" "cl" "scopePhase"
  5105. $cell852 setProp "is_declaration" "1" "name_type" "cl"
  5106. $cell852 setProp "libunit" "System" "name_type" "cl"
  5107. $cell852 setScope "name_type" "de" "scopeFile"
  5108.  
  5109. set cell853 [$row851 addCell parameter 0.0]
  5110. $cell853 setLabel "name_type" "Node: TTreeNode, "
  5111. $cell853 setScope "name_type" "cl" "scopePhase"
  5112. $cell853 setProp "libunit" "Other" "name_type" "cl"
  5113. $cell853 setProp "userlib" "ComCtrls" "name_type" "cl"
  5114. $cell853 setScope "name_type" "de" "scopeFile"
  5115.  
  5116. set cell854 [$row851 addCell parameter 0.0]
  5117. $cell854 setLabel "name_type" "AllowCollapse: boolean"
  5118. $cell854 setProp "pass_by" "Variable"
  5119. $cell854 setScope "name_type" "cl" "scopePhase"
  5120. $cell854 setScope "name_type" "de" "scopeFile"
  5121.  
  5122. set row855 [$diag addRow method 0.0]
  5123. $row855 setLabel "name_type" "Compare()\n"
  5124. $row855 setProp "has_parmlist" "1"
  5125. $row855 setProp "is_event" "1"
  5126. $row855 setProp "method_access" "Protected"
  5127.  
  5128. set cell856 [$row855 addCell parameter 0.0]
  5129. $cell856 setLabel "name_type" "Sender: TObject, "
  5130. $cell856 setScope "name_type" "cl" "scopePhase"
  5131. $cell856 setProp "is_declaration" "1" "name_type" "cl"
  5132. $cell856 setProp "libunit" "System" "name_type" "cl"
  5133. $cell856 setScope "name_type" "de" "scopeFile"
  5134.  
  5135. set cell857 [$row855 addCell parameter 0.0]
  5136. $cell857 setLabel "name_type" "Node1: TTreeNode, "
  5137. $cell857 setScope "name_type" "cl" "scopePhase"
  5138. $cell857 setProp "libunit" "Other" "name_type" "cl"
  5139. $cell857 setProp "userlib" "ComCtrls" "name_type" "cl"
  5140. $cell857 setScope "name_type" "de" "scopeFile"
  5141.  
  5142. set cell858 [$row855 addCell parameter 0.0]
  5143. $cell858 setLabel "name_type" "Node2: TTreeNode, "
  5144. $cell858 setScope "name_type" "cl" "scopePhase"
  5145. $cell858 setProp "libunit" "Other" "name_type" "cl"
  5146. $cell858 setProp "userlib" "ComCtrls" "name_type" "cl"
  5147. $cell858 setScope "name_type" "de" "scopeFile"
  5148.  
  5149. set cell859 [$row855 addCell parameter 0.0]
  5150. $cell859 setLabel "name_type" "Data: integer, "
  5151. $cell859 setScope "name_type" "cl" "scopePhase"
  5152. $cell859 setScope "name_type" "de" "scopeFile"
  5153.  
  5154. set cell860 [$row855 addCell parameter 0.0]
  5155. $cell860 setLabel "name_type" "Compare: integer"
  5156. $cell860 setProp "pass_by" "Variable"
  5157. $cell860 setScope "name_type" "cl" "scopePhase"
  5158. $cell860 setScope "name_type" "de" "scopeFile"
  5159.  
  5160. set row861 [$diag addRow method 0.0]
  5161. $row861 setLabel "name_type" "Deletion()\n"
  5162. $row861 setProp "has_parmlist" "1"
  5163. $row861 setProp "is_event" "1"
  5164. $row861 setProp "method_access" "Protected"
  5165.  
  5166. set cell862 [$row861 addCell parameter 0.0]
  5167. $cell862 setLabel "name_type" "Sender: TObject, "
  5168. $cell862 setScope "name_type" "cl" "scopePhase"
  5169. $cell862 setProp "is_declaration" "1" "name_type" "cl"
  5170. $cell862 setProp "libunit" "System" "name_type" "cl"
  5171. $cell862 setScope "name_type" "de" "scopeFile"
  5172.  
  5173. set cell863 [$row861 addCell parameter 0.0]
  5174. $cell863 setLabel "name_type" "Node: TTreeNode"
  5175. $cell863 setScope "name_type" "cl" "scopePhase"
  5176. $cell863 setProp "libunit" "Other" "name_type" "cl"
  5177. $cell863 setProp "userlib" "ComCtrls" "name_type" "cl"
  5178. $cell863 setScope "name_type" "de" "scopeFile"
  5179.  
  5180. set row864 [$diag addRow method 0.0]
  5181. $row864 setLabel "name_type" "Edited()\n"
  5182. $row864 setProp "has_parmlist" "1"
  5183. $row864 setProp "is_event" "1"
  5184. $row864 setProp "method_access" "Protected"
  5185.  
  5186. set cell865 [$row864 addCell parameter 0.0]
  5187. $cell865 setLabel "name_type" "Sender: TObject, "
  5188. $cell865 setScope "name_type" "cl" "scopePhase"
  5189. $cell865 setProp "is_declaration" "1" "name_type" "cl"
  5190. $cell865 setProp "libunit" "System" "name_type" "cl"
  5191. $cell865 setScope "name_type" "de" "scopeFile"
  5192.  
  5193. set cell866 [$row864 addCell parameter 0.0]
  5194. $cell866 setLabel "name_type" "Node: TTreeNode, "
  5195. $cell866 setScope "name_type" "cl" "scopePhase"
  5196. $cell866 setProp "libunit" "Other" "name_type" "cl"
  5197. $cell866 setProp "userlib" "ComCtrls" "name_type" "cl"
  5198. $cell866 setScope "name_type" "de" "scopeFile"
  5199.  
  5200. set cell867 [$row864 addCell parameter 0.0]
  5201. $cell867 setLabel "name_type" "S: string"
  5202. $cell867 setProp "pass_by" "Variable"
  5203. $cell867 setScope "name_type" "cl" "scopePhase"
  5204. $cell867 setScope "name_type" "de" "scopeFile"
  5205.  
  5206. set row868 [$diag addRow method 0.0]
  5207. $row868 setLabel "name_type" "Editing()\n"
  5208. $row868 setProp "has_parmlist" "1"
  5209. $row868 setProp "is_event" "1"
  5210. $row868 setProp "method_access" "Private"
  5211.  
  5212. set cell869 [$row868 addCell parameter 0.0]
  5213. $cell869 setLabel "name_type" "Sender: TObject, "
  5214. $cell869 setScope "name_type" "cl" "scopePhase"
  5215. $cell869 setProp "is_declaration" "1" "name_type" "cl"
  5216. $cell869 setProp "libunit" "System" "name_type" "cl"
  5217. $cell869 setScope "name_type" "de" "scopeFile"
  5218.  
  5219. set cell870 [$row868 addCell parameter 0.0]
  5220. $cell870 setLabel "name_type" "Node: TTreeNode, "
  5221. $cell870 setScope "name_type" "cl" "scopePhase"
  5222. $cell870 setProp "libunit" "Other" "name_type" "cl"
  5223. $cell870 setProp "userlib" "ComCtrls" "name_type" "cl"
  5224. $cell870 setScope "name_type" "de" "scopeFile"
  5225.  
  5226. set cell871 [$row868 addCell parameter 0.0]
  5227. $cell871 setLabel "name_type" "AllowEdit: boolean"
  5228. $cell871 setProp "pass_by" "Variable"
  5229. $cell871 setScope "name_type" "cl" "scopePhase"
  5230. $cell871 setScope "name_type" "de" "scopeFile"
  5231.  
  5232. set row872 [$diag addRow method 0.0]
  5233. $row872 setLabel "name_type" "Expanded()\n"
  5234. $row872 setProp "has_parmlist" "1"
  5235. $row872 setProp "is_event" "1"
  5236. $row872 setProp "method_access" "Protected"
  5237.  
  5238. set cell873 [$row872 addCell parameter 0.0]
  5239. $cell873 setLabel "name_type" "Sender: TObject, "
  5240. $cell873 setScope "name_type" "cl" "scopePhase"
  5241. $cell873 setProp "is_declaration" "1" "name_type" "cl"
  5242. $cell873 setProp "libunit" "System" "name_type" "cl"
  5243. $cell873 setScope "name_type" "de" "scopeFile"
  5244.  
  5245. set cell874 [$row872 addCell parameter 0.0]
  5246. $cell874 setLabel "name_type" "Node: TTreeNode"
  5247. $cell874 setScope "name_type" "cl" "scopePhase"
  5248. $cell874 setProp "libunit" "Other" "name_type" "cl"
  5249. $cell874 setProp "userlib" "ComCtrls" "name_type" "cl"
  5250. $cell874 setScope "name_type" "de" "scopeFile"
  5251.  
  5252. set row875 [$diag addRow method 0.0]
  5253. $row875 setLabel "name_type" "Expanding()\n"
  5254. $row875 setProp "has_parmlist" "1"
  5255. $row875 setProp "is_event" "1"
  5256. $row875 setProp "method_access" "Protected"
  5257.  
  5258. set cell876 [$row875 addCell parameter 0.0]
  5259. $cell876 setLabel "name_type" "Sender: TObject, "
  5260. $cell876 setScope "name_type" "cl" "scopePhase"
  5261. $cell876 setProp "is_declaration" "1" "name_type" "cl"
  5262. $cell876 setProp "libunit" "System" "name_type" "cl"
  5263. $cell876 setScope "name_type" "de" "scopeFile"
  5264.  
  5265. set cell877 [$row875 addCell parameter 0.0]
  5266. $cell877 setLabel "name_type" "Node: TTreeNode, "
  5267. $cell877 setScope "name_type" "cl" "scopePhase"
  5268. $cell877 setProp "libunit" "Other" "name_type" "cl"
  5269. $cell877 setProp "userlib" "ComCtrls" "name_type" "cl"
  5270. $cell877 setScope "name_type" "de" "scopeFile"
  5271.  
  5272. set cell878 [$row875 addCell parameter 0.0]
  5273. $cell878 setLabel "name_type" "AllowExpansion: boolean"
  5274. $cell878 setProp "pass_by" "Variable"
  5275. $cell878 setScope "name_type" "cl" "scopePhase"
  5276. $cell878 setScope "name_type" "de" "scopeFile"
  5277.  
  5278. set row879 [$diag addRow method 0.0]
  5279. $row879 setLabel "name_type" "GetImageIndex()\n"
  5280. $row879 setProp "has_parmlist" "1"
  5281. $row879 setProp "is_event" "1"
  5282. $row879 setProp "method_access" "Protected"
  5283.  
  5284. set cell880 [$row879 addCell parameter 0.0]
  5285. $cell880 setLabel "name_type" "Sender: TObject, "
  5286. $cell880 setScope "name_type" "cl" "scopePhase"
  5287. $cell880 setProp "is_declaration" "1" "name_type" "cl"
  5288. $cell880 setProp "libunit" "System" "name_type" "cl"
  5289. $cell880 setScope "name_type" "de" "scopeFile"
  5290.  
  5291. set cell881 [$row879 addCell parameter 0.0]
  5292. $cell881 setLabel "name_type" "Node: TTreeNode"
  5293. $cell881 setScope "name_type" "cl" "scopePhase"
  5294. $cell881 setProp "libunit" "Other" "name_type" "cl"
  5295. $cell881 setProp "userlib" "ComCtrls" "name_type" "cl"
  5296. $cell881 setScope "name_type" "de" "scopeFile"
  5297.  
  5298. set row882 [$diag addRow method 0.0]
  5299. $row882 setLabel "name_type" "GetSelectedIndex()"
  5300. $row882 setProp "has_parmlist" "1"
  5301. $row882 setProp "is_event" "1"
  5302. $row882 setProp "method_access" "Protected"
  5303.  
  5304. set cell883 [$row882 addCell parameter 0.0]
  5305. $cell883 setLabel "name_type" "Sender: TObject, "
  5306. $cell883 setScope "name_type" "cl" "scopePhase"
  5307. $cell883 setProp "is_declaration" "1" "name_type" "cl"
  5308. $cell883 setProp "libunit" "System" "name_type" "cl"
  5309. $cell883 setScope "name_type" "de" "scopeFile"
  5310.  
  5311. set cell884 [$row882 addCell parameter 0.0]
  5312. $cell884 setLabel "name_type" "Node: TTreeNode"
  5313. $cell884 setScope "name_type" "cl" "scopePhase"
  5314. $cell884 setProp "libunit" "Other" "name_type" "cl"
  5315. $cell884 setProp "userlib" "ComCtrls" "name_type" "cl"
  5316. $cell884 setScope "name_type" "de" "scopeFile"
  5317.  
  5318. $diag save
  5319.  
  5320. # Generator: et.tcl    /main/titanic/10
  5321. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  5322. # Interpreter to use: Otsh V7.1.1/B5
  5323. #
  5324. OTShRegister::importTool
  5325.  
  5326. set diag [CDM new TTreeView "DelphiVCL" "" "" "" "" "" 1]
  5327.  
  5328. set row885 [$diag addRow method 0.0]
  5329. $row885 setLabel "name_type" "Change()\n"
  5330. $row885 setProp "has_parmlist" "1"
  5331. $row885 setProp "is_event" "1"
  5332. $row885 setProp "method_access" "Published"
  5333.  
  5334. set row886 [$diag addRow method 0.0]
  5335. $row886 setLabel "name_type" "Changing()\n"
  5336. $row886 setProp "has_parmlist" "1"
  5337. $row886 setProp "is_event" "1"
  5338. $row886 setProp "method_access" "Published"
  5339.  
  5340. set row887 [$diag addRow method 0.0]
  5341. $row887 setLabel "name_type" "Collapsed()\n"
  5342. $row887 setProp "has_parmlist" "1"
  5343. $row887 setProp "is_event" "1"
  5344. $row887 setProp "method_access" "Published"
  5345.  
  5346. set row888 [$diag addRow method 0.0]
  5347. $row888 setLabel "name_type" "Collapsing()\n"
  5348. $row888 setProp "has_parmlist" "1"
  5349. $row888 setProp "is_event" "1"
  5350. $row888 setProp "method_access" "Published"
  5351.  
  5352. set row889 [$diag addRow method 0.0]
  5353. $row889 setLabel "name_type" "Compare()\n"
  5354. $row889 setProp "has_parmlist" "1"
  5355. $row889 setProp "is_event" "1"
  5356. $row889 setProp "method_access" "Published"
  5357.  
  5358. set row890 [$diag addRow method 0.0]
  5359. $row890 setLabel "name_type" "Deletion()\n"
  5360. $row890 setProp "has_parmlist" "1"
  5361. $row890 setProp "is_event" "1"
  5362. $row890 setProp "method_access" "Published"
  5363.  
  5364. set row891 [$diag addRow method 0.0]
  5365. $row891 setLabel "name_type" "Edited()\n"
  5366. $row891 setProp "has_parmlist" "1"
  5367. $row891 setProp "is_event" "1"
  5368. $row891 setProp "method_access" "Published"
  5369.  
  5370. set row892 [$diag addRow method 0.0]
  5371. $row892 setLabel "name_type" "Editing()\n"
  5372. $row892 setProp "has_parmlist" "1"
  5373. $row892 setProp "is_event" "1"
  5374. $row892 setProp "method_access" "Published"
  5375.  
  5376. set row893 [$diag addRow method 0.0]
  5377. $row893 setLabel "name_type" "Expanded()\n"
  5378. $row893 setProp "has_parmlist" "1"
  5379. $row893 setProp "is_event" "1"
  5380. $row893 setProp "method_access" "Published"
  5381.  
  5382. set row894 [$diag addRow method 0.0]
  5383. $row894 setLabel "name_type" "Expanding()\n"
  5384. $row894 setProp "has_parmlist" "1"
  5385. $row894 setProp "is_event" "1"
  5386. $row894 setProp "method_access" "Published"
  5387.  
  5388. set row895 [$diag addRow method 0.0]
  5389. $row895 setLabel "name_type" "GetImageIndex()\n"
  5390. $row895 setProp "has_parmlist" "1"
  5391. $row895 setProp "is_event" "1"
  5392. $row895 setProp "method_access" "Published"
  5393.  
  5394. set row896 [$diag addRow method 0.0]
  5395. $row896 setLabel "name_type" "GetSelectedIndex()\n"
  5396. $row896 setProp "has_parmlist" "1"
  5397. $row896 setProp "is_event" "1"
  5398. $row896 setProp "method_access" "Published"
  5399.  
  5400. set row897 [$diag addRow method 0.0]
  5401. $row897 setLabel "name_type" "Enter()\n"
  5402. $row897 setProp "has_parmlist" "1"
  5403. $row897 setProp "is_event" "1"
  5404. $row897 setProp "method_access" "Published"
  5405.  
  5406. set row898 [$diag addRow method 0.0]
  5407. $row898 setLabel "name_type" "Exit()\n"
  5408. $row898 setProp "has_parmlist" "1"
  5409. $row898 setProp "is_event" "1"
  5410. $row898 setProp "method_access" "Published"
  5411.  
  5412. set row899 [$diag addRow method 0.0]
  5413. $row899 setLabel "name_type" "KeyDown()\n"
  5414. $row899 setProp "has_parmlist" "1"
  5415. $row899 setProp "is_event" "1"
  5416. $row899 setProp "method_access" "Published"
  5417.  
  5418. set row900 [$diag addRow method 0.0]
  5419. $row900 setLabel "name_type" "KeyPress()\n"
  5420. $row900 setProp "has_parmlist" "1"
  5421. $row900 setProp "is_event" "1"
  5422. $row900 setProp "method_access" "Published"
  5423.  
  5424. set row901 [$diag addRow method 0.0]
  5425. $row901 setLabel "name_type" "KeyUp()\n"
  5426. $row901 setProp "has_parmlist" "1"
  5427. $row901 setProp "is_event" "1"
  5428. $row901 setProp "method_access" "Published"
  5429.  
  5430. set row902 [$diag addRow method 0.0]
  5431. $row902 setLabel "name_type" "Click()\n"
  5432. $row902 setProp "has_parmlist" "1"
  5433. $row902 setProp "is_event" "1"
  5434. $row902 setProp "method_access" "Published"
  5435.  
  5436. set row903 [$diag addRow method 0.0]
  5437. $row903 setLabel "name_type" "DblClick()\n"
  5438. $row903 setProp "has_parmlist" "1"
  5439. $row903 setProp "is_event" "1"
  5440. $row903 setProp "method_access" "Published"
  5441.  
  5442. set row904 [$diag addRow method 0.0]
  5443. $row904 setLabel "name_type" "DragDrop()\n"
  5444. $row904 setProp "has_parmlist" "1"
  5445. $row904 setProp "is_event" "1"
  5446. $row904 setProp "method_access" "Published"
  5447.  
  5448. set row905 [$diag addRow method 0.0]
  5449. $row905 setLabel "name_type" "DragOver()\n"
  5450. $row905 setProp "has_parmlist" "1"
  5451. $row905 setProp "is_event" "1"
  5452. $row905 setProp "method_access" "Published"
  5453.  
  5454. set row906 [$diag addRow method 0.0]
  5455. $row906 setLabel "name_type" "EndDrag()\n"
  5456. $row906 setProp "has_parmlist" "1"
  5457. $row906 setProp "is_event" "1"
  5458. $row906 setProp "method_access" "Published"
  5459.  
  5460. set row907 [$diag addRow method 0.0]
  5461. $row907 setLabel "name_type" "MouseDown()\n"
  5462. $row907 setProp "has_parmlist" "1"
  5463. $row907 setProp "is_event" "1"
  5464. $row907 setProp "method_access" "Published"
  5465.  
  5466. set row908 [$diag addRow method 0.0]
  5467. $row908 setLabel "name_type" "MouseMove()\n"
  5468. $row908 setProp "has_parmlist" "1"
  5469. $row908 setProp "is_event" "1"
  5470. $row908 setProp "method_access" "Published"
  5471.  
  5472. set row909 [$diag addRow method 0.0]
  5473. $row909 setLabel "name_type" "MouseUp()\n"
  5474. $row909 setProp "has_parmlist" "1"
  5475. $row909 setProp "is_event" "1"
  5476. $row909 setProp "method_access" "Published"
  5477.  
  5478. set row910 [$diag addRow method 0.0]
  5479. $row910 setLabel "name_type" "StartDrag()"
  5480. $row910 setProp "has_parmlist" "1"
  5481. $row910 setProp "is_event" "1"
  5482. $row910 setProp "method_access" "Published"
  5483.  
  5484. $diag save
  5485.  
  5486. # Generator: et.tcl    /main/titanic/10
  5487. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  5488. # Interpreter to use: Otsh V7.1.1/B5
  5489. #
  5490. OTShRegister::importTool
  5491.  
  5492. set diag [CDM new TCustomListView "DelphiVCL" "" "" "" "" "" 1]
  5493.  
  5494. set row911 [$diag addRow method 0.0]
  5495. $row911 setLabel "name_type" "Change()\n"
  5496. $row911 setProp "has_parmlist" "1"
  5497. $row911 setProp "is_event" "1"
  5498. $row911 setProp "method_access" "Protected"
  5499.  
  5500. set cell912 [$row911 addCell parameter 0.0]
  5501. $cell912 setLabel "name_type" "Sender: TObject, "
  5502. $cell912 setScope "name_type" "cl" "scopePhase"
  5503. $cell912 setProp "is_declaration" "1" "name_type" "cl"
  5504. $cell912 setProp "libunit" "System" "name_type" "cl"
  5505. $cell912 setScope "name_type" "de" "scopeFile"
  5506.  
  5507. set cell913 [$row911 addCell parameter 0.0]
  5508. $cell913 setLabel "name_type" "Item: TListItem, "
  5509. $cell913 setScope "name_type" "cl" "scopePhase"
  5510. $cell913 setProp "libunit" "Other" "name_type" "cl"
  5511. $cell913 setProp "userlib" "ComCtrls" "name_type" "cl"
  5512. $cell913 setScope "name_type" "de" "scopeFile"
  5513.  
  5514. set cell914 [$row911 addCell parameter 0.0]
  5515. $cell914 setLabel "name_type" "Change: TItemChange"
  5516. $cell914 setScope "name_type" "cl" "scopePhase"
  5517. $cell914 setProp "libunit" "Other" "name_type" "cl"
  5518. $cell914 setProp "userlib" "ComCtrls" "name_type" "cl"
  5519. $cell914 setScope "name_type" "de" "scopeFile"
  5520.  
  5521. set row915 [$diag addRow method 0.0]
  5522. $row915 setLabel "name_type" "Changing()\n"
  5523. $row915 setProp "has_parmlist" "1"
  5524. $row915 setProp "is_event" "1"
  5525. $row915 setProp "method_access" "Protected"
  5526.  
  5527. set cell916 [$row915 addCell parameter 0.0]
  5528. $cell916 setLabel "name_type" "Sender: TObject, "
  5529. $cell916 setScope "name_type" "cl" "scopePhase"
  5530. $cell916 setProp "is_declaration" "1" "name_type" "cl"
  5531. $cell916 setProp "libunit" "System" "name_type" "cl"
  5532. $cell916 setScope "name_type" "de" "scopeFile"
  5533.  
  5534. set cell917 [$row915 addCell parameter 0.0]
  5535. $cell917 setLabel "name_type" "Item: TListItem, "
  5536. $cell917 setScope "name_type" "cl" "scopePhase"
  5537. $cell917 setProp "libunit" "Other" "name_type" "cl"
  5538. $cell917 setProp "userlib" "ComCtrls" "name_type" "cl"
  5539. $cell917 setScope "name_type" "de" "scopeFile"
  5540.  
  5541. set cell918 [$row915 addCell parameter 0.0]
  5542. $cell918 setLabel "name_type" "Change: TItemChange, "
  5543. $cell918 setScope "name_type" "cl" "scopePhase"
  5544. $cell918 setProp "libunit" "Other" "name_type" "cl"
  5545. $cell918 setProp "userlib" "ComCtrls" "name_type" "cl"
  5546. $cell918 setScope "name_type" "de" "scopeFile"
  5547.  
  5548. set cell919 [$row915 addCell parameter 0.0]
  5549. $cell919 setLabel "name_type" "AllowChange: boolean"
  5550. $cell919 setProp "pass_by" "Variable"
  5551. $cell919 setScope "name_type" "cl" "scopePhase"
  5552. $cell919 setScope "name_type" "de" "scopeFile"
  5553.  
  5554. set row920 [$diag addRow method 0.0]
  5555. $row920 setLabel "name_type" "ColumnClick()\n"
  5556. $row920 setProp "has_parmlist" "1"
  5557. $row920 setProp "is_event" "1"
  5558. $row920 setProp "method_access" "Protected"
  5559.  
  5560. set cell921 [$row920 addCell parameter 0.0]
  5561. $cell921 setLabel "name_type" "Sender: TObject, "
  5562. $cell921 setScope "name_type" "cl" "scopePhase"
  5563. $cell921 setProp "is_declaration" "1" "name_type" "cl"
  5564. $cell921 setProp "libunit" "System" "name_type" "cl"
  5565. $cell921 setScope "name_type" "de" "scopeFile"
  5566.  
  5567. set cell922 [$row920 addCell parameter 0.0]
  5568. $cell922 setLabel "name_type" "Column: TListColumn"
  5569. $cell922 setScope "name_type" "cl" "scopePhase"
  5570. $cell922 setProp "libunit" "Other" "name_type" "cl"
  5571. $cell922 setProp "userlib" "ComCtrls" "name_type" "cl"
  5572. $cell922 setScope "name_type" "de" "scopeFile"
  5573.  
  5574. set row923 [$diag addRow method 0.0]
  5575. $row923 setLabel "name_type" "Compare()\n"
  5576. $row923 setProp "has_parmlist" "1"
  5577. $row923 setProp "is_event" "1"
  5578. $row923 setProp "method_access" "Protected"
  5579.  
  5580. set cell924 [$row923 addCell parameter 0.0]
  5581. $cell924 setLabel "name_type" "Sender: TObject, "
  5582. $cell924 setScope "name_type" "cl" "scopePhase"
  5583. $cell924 setProp "is_declaration" "1" "name_type" "cl"
  5584. $cell924 setProp "libunit" "System" "name_type" "cl"
  5585. $cell924 setScope "name_type" "de" "scopeFile"
  5586.  
  5587. set cell925 [$row923 addCell parameter 0.0]
  5588. $cell925 setLabel "name_type" "Item1: TListItem, "
  5589. $cell925 setScope "name_type" "cl" "scopePhase"
  5590. $cell925 setProp "libunit" "Other" "name_type" "cl"
  5591. $cell925 setProp "userlib" "ComCtrls" "name_type" "cl"
  5592. $cell925 setScope "name_type" "de" "scopeFile"
  5593.  
  5594. set cell926 [$row923 addCell parameter 0.0]
  5595. $cell926 setLabel "name_type" "Item2: TListItem, "
  5596. $cell926 setScope "name_type" "cl" "scopePhase"
  5597. $cell926 setProp "libunit" "Other" "name_type" "cl"
  5598. $cell926 setProp "userlib" "ComCtrls" "name_type" "cl"
  5599. $cell926 setScope "name_type" "de" "scopeFile"
  5600.  
  5601. set cell927 [$row923 addCell parameter 0.0]
  5602. $cell927 setLabel "name_type" "Data: integer, "
  5603. $cell927 setScope "name_type" "cl" "scopePhase"
  5604. $cell927 setScope "name_type" "de" "scopeFile"
  5605.  
  5606. set cell928 [$row923 addCell parameter 0.0]
  5607. $cell928 setLabel "name_type" "Compare: integer"
  5608. $cell928 setProp "pass_by" "Variable"
  5609. $cell928 setScope "name_type" "cl" "scopePhase"
  5610. $cell928 setScope "name_type" "de" "scopeFile"
  5611.  
  5612. set row929 [$diag addRow method 0.0]
  5613. $row929 setLabel "name_type" "Deletion()\n"
  5614. $row929 setProp "has_parmlist" "1"
  5615. $row929 setProp "is_event" "1"
  5616. $row929 setProp "method_access" "Protected"
  5617.  
  5618. set cell930 [$row929 addCell parameter 0.0]
  5619. $cell930 setLabel "name_type" "Sender: TObject, "
  5620. $cell930 setScope "name_type" "cl" "scopePhase"
  5621. $cell930 setProp "is_declaration" "1" "name_type" "cl"
  5622. $cell930 setProp "libunit" "System" "name_type" "cl"
  5623. $cell930 setScope "name_type" "de" "scopeFile"
  5624.  
  5625. set cell931 [$row929 addCell parameter 0.0]
  5626. $cell931 setLabel "name_type" "Item: TListItem"
  5627. $cell931 setScope "name_type" "cl" "scopePhase"
  5628. $cell931 setProp "libunit" "Other" "name_type" "cl"
  5629. $cell931 setProp "userlib" "ComCtrls" "name_type" "cl"
  5630. $cell931 setScope "name_type" "de" "scopeFile"
  5631.  
  5632. set row932 [$diag addRow method 0.0]
  5633. $row932 setLabel "name_type" "Edited()\n"
  5634. $row932 setProp "has_parmlist" "1"
  5635. $row932 setProp "is_event" "1"
  5636. $row932 setProp "method_access" "Protected"
  5637.  
  5638. set cell933 [$row932 addCell parameter 0.0]
  5639. $cell933 setLabel "name_type" "Sender: TObject, "
  5640. $cell933 setScope "name_type" "cl" "scopePhase"
  5641. $cell933 setProp "is_declaration" "1" "name_type" "cl"
  5642. $cell933 setProp "libunit" "System" "name_type" "cl"
  5643. $cell933 setScope "name_type" "de" "scopeFile"
  5644.  
  5645. set cell934 [$row932 addCell parameter 0.0]
  5646. $cell934 setLabel "name_type" "Item: TListItem, "
  5647. $cell934 setScope "name_type" "cl" "scopePhase"
  5648. $cell934 setProp "libunit" "Other" "name_type" "cl"
  5649. $cell934 setProp "userlib" "ComCtrls" "name_type" "cl"
  5650. $cell934 setScope "name_type" "de" "scopeFile"
  5651.  
  5652. set cell935 [$row932 addCell parameter 0.0]
  5653. $cell935 setLabel "name_type" "S: string"
  5654. $cell935 setProp "pass_by" "Variable"
  5655. $cell935 setScope "name_type" "cl" "scopePhase"
  5656. $cell935 setScope "name_type" "de" "scopeFile"
  5657.  
  5658. set row936 [$diag addRow method 0.0]
  5659. $row936 setLabel "name_type" "Editing()\n"
  5660. $row936 setProp "has_parmlist" "1"
  5661. $row936 setProp "is_event" "1"
  5662. $row936 setProp "method_access" "Protected"
  5663.  
  5664. set cell937 [$row936 addCell parameter 0.0]
  5665. $cell937 setLabel "name_type" "Sender: TObject, "
  5666. $cell937 setScope "name_type" "cl" "scopePhase"
  5667. $cell937 setProp "is_declaration" "1" "name_type" "cl"
  5668. $cell937 setProp "libunit" "System" "name_type" "cl"
  5669. $cell937 setScope "name_type" "de" "scopeFile"
  5670.  
  5671. set cell938 [$row936 addCell parameter 0.0]
  5672. $cell938 setLabel "name_type" "Item: TListItem, "
  5673. $cell938 setScope "name_type" "cl" "scopePhase"
  5674. $cell938 setProp "libunit" "Other" "name_type" "cl"
  5675. $cell938 setProp "userlib" "ComCtrls" "name_type" "cl"
  5676. $cell938 setScope "name_type" "de" "scopeFile"
  5677.  
  5678. set cell939 [$row936 addCell parameter 0.0]
  5679. $cell939 setLabel "name_type" "AllowEdit: boolean"
  5680. $cell939 setProp "pass_by" "Variable"
  5681. $cell939 setScope "name_type" "cl" "scopePhase"
  5682. $cell939 setScope "name_type" "de" "scopeFile"
  5683.  
  5684. set row940 [$diag addRow method 0.0]
  5685. $row940 setLabel "name_type" "Insert()"
  5686. $row940 setProp "has_parmlist" "1"
  5687. $row940 setProp "is_event" "1"
  5688. $row940 setProp "method_access" "Protected"
  5689.  
  5690. set cell941 [$row940 addCell parameter 0.0]
  5691. $cell941 setLabel "name_type" "Sender: TObject, "
  5692. $cell941 setScope "name_type" "cl" "scopePhase"
  5693. $cell941 setProp "is_declaration" "1" "name_type" "cl"
  5694. $cell941 setProp "libunit" "System" "name_type" "cl"
  5695. $cell941 setScope "name_type" "de" "scopeFile"
  5696.  
  5697. set cell942 [$row940 addCell parameter 0.0]
  5698. $cell942 setLabel "name_type" "Item: TListItem"
  5699. $cell942 setScope "name_type" "cl" "scopePhase"
  5700. $cell942 setProp "libunit" "Other" "name_type" "cl"
  5701. $cell942 setProp "userlib" "ComCtrls" "name_type" "cl"
  5702. $cell942 setScope "name_type" "de" "scopeFile"
  5703.  
  5704. $diag save
  5705.  
  5706. # Generator: et.tcl    /main/titanic/10
  5707. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  5708. # Interpreter to use: Otsh V7.1.1/B5
  5709. #
  5710. OTShRegister::importTool
  5711.  
  5712. set diag [CDM new TListView "DelphiVCL" "" "" "" "" "" 1]
  5713.  
  5714. set row943 [$diag addRow method 0.0]
  5715. $row943 setLabel "name_type" "Change()\n"
  5716. $row943 setProp "has_parmlist" "1"
  5717. $row943 setProp "is_event" "1"
  5718. $row943 setProp "method_access" "Published"
  5719.  
  5720. set row944 [$diag addRow method 0.0]
  5721. $row944 setLabel "name_type" "Changing()\n"
  5722. $row944 setProp "has_parmlist" "1"
  5723. $row944 setProp "is_event" "1"
  5724. $row944 setProp "method_access" "Published"
  5725.  
  5726. set row945 [$diag addRow method 0.0]
  5727. $row945 setLabel "name_type" "ColumnClick()\n"
  5728. $row945 setProp "has_parmlist" "1"
  5729. $row945 setProp "is_event" "1"
  5730. $row945 setProp "method_access" "Published"
  5731.  
  5732. set row946 [$diag addRow method 0.0]
  5733. $row946 setLabel "name_type" "Compare()\n"
  5734. $row946 setProp "has_parmlist" "1"
  5735. $row946 setProp "is_event" "1"
  5736. $row946 setProp "method_access" "Published"
  5737.  
  5738. set row947 [$diag addRow method 0.0]
  5739. $row947 setLabel "name_type" "Deletion()\n"
  5740. $row947 setProp "has_parmlist" "1"
  5741. $row947 setProp "is_event" "1"
  5742. $row947 setProp "method_access" "Published"
  5743.  
  5744. set row948 [$diag addRow method 0.0]
  5745. $row948 setLabel "name_type" "Edited()\n"
  5746. $row948 setProp "has_parmlist" "1"
  5747. $row948 setProp "is_event" "1"
  5748. $row948 setProp "method_access" "Published"
  5749.  
  5750. set row949 [$diag addRow method 0.0]
  5751. $row949 setLabel "name_type" "Editing()\n"
  5752. $row949 setProp "has_parmlist" "1"
  5753. $row949 setProp "is_event" "1"
  5754. $row949 setProp "method_access" "Published"
  5755.  
  5756. set row950 [$diag addRow method 0.0]
  5757. $row950 setLabel "name_type" "Insert()\n"
  5758. $row950 setProp "has_parmlist" "1"
  5759. $row950 setProp "is_event" "1"
  5760. $row950 setProp "method_access" "Published"
  5761.  
  5762. set row951 [$diag addRow method 0.0]
  5763. $row951 setLabel "name_type" "Enter()\n"
  5764. $row951 setProp "has_parmlist" "1"
  5765. $row951 setProp "is_event" "1"
  5766. $row951 setProp "method_access" "Published"
  5767.  
  5768. set row952 [$diag addRow method 0.0]
  5769. $row952 setLabel "name_type" "Exit()\n"
  5770. $row952 setProp "has_parmlist" "1"
  5771. $row952 setProp "is_event" "1"
  5772. $row952 setProp "method_access" "Published"
  5773.  
  5774. set row953 [$diag addRow method 0.0]
  5775. $row953 setLabel "name_type" "KeyDown()\n"
  5776. $row953 setProp "has_parmlist" "1"
  5777. $row953 setProp "is_event" "1"
  5778. $row953 setProp "method_access" "Published"
  5779.  
  5780. set row954 [$diag addRow method 0.0]
  5781. $row954 setLabel "name_type" "KeyPress()\n"
  5782. $row954 setProp "has_parmlist" "1"
  5783. $row954 setProp "is_event" "1"
  5784. $row954 setProp "method_access" "Published"
  5785.  
  5786. set row955 [$diag addRow method 0.0]
  5787. $row955 setLabel "name_type" "KeyUp()\n"
  5788. $row955 setProp "has_parmlist" "1"
  5789. $row955 setProp "is_event" "1"
  5790. $row955 setProp "method_access" "Published"
  5791.  
  5792. set row956 [$diag addRow method 0.0]
  5793. $row956 setLabel "name_type" "Click()\n"
  5794. $row956 setProp "has_parmlist" "1"
  5795. $row956 setProp "is_event" "1"
  5796. $row956 setProp "method_access" "Published"
  5797.  
  5798. set row957 [$diag addRow method 0.0]
  5799. $row957 setLabel "name_type" "DblClick()\n"
  5800. $row957 setProp "has_parmlist" "1"
  5801. $row957 setProp "is_event" "1"
  5802. $row957 setProp "method_access" "Published"
  5803.  
  5804. set row958 [$diag addRow method 0.0]
  5805. $row958 setLabel "name_type" "DragDrop()\n"
  5806. $row958 setProp "has_parmlist" "1"
  5807. $row958 setProp "is_event" "1"
  5808. $row958 setProp "method_access" "Published"
  5809.  
  5810. set row959 [$diag addRow method 0.0]
  5811. $row959 setLabel "name_type" "DragOver()\n"
  5812. $row959 setProp "has_parmlist" "1"
  5813. $row959 setProp "is_event" "1"
  5814. $row959 setProp "method_access" "Published"
  5815.  
  5816. set row960 [$diag addRow method 0.0]
  5817. $row960 setLabel "name_type" "EndDrag()\n"
  5818. $row960 setProp "has_parmlist" "1"
  5819. $row960 setProp "is_event" "1"
  5820. $row960 setProp "method_access" "Published"
  5821.  
  5822. set row961 [$diag addRow method 0.0]
  5823. $row961 setLabel "name_type" "MouseDown()\n"
  5824. $row961 setProp "has_parmlist" "1"
  5825. $row961 setProp "is_event" "1"
  5826. $row961 setProp "method_access" "Published"
  5827.  
  5828. set row962 [$diag addRow method 0.0]
  5829. $row962 setLabel "name_type" "MouseMove()\n"
  5830. $row962 setProp "has_parmlist" "1"
  5831. $row962 setProp "is_event" "1"
  5832. $row962 setProp "method_access" "Published"
  5833.  
  5834. set row963 [$diag addRow method 0.0]
  5835. $row963 setLabel "name_type" "MouseUp()\n"
  5836. $row963 setProp "has_parmlist" "1"
  5837. $row963 setProp "is_event" "1"
  5838. $row963 setProp "method_access" "Published"
  5839.  
  5840. set row964 [$diag addRow method 0.0]
  5841. $row964 setLabel "name_type" "StartDrag()"
  5842. $row964 setProp "has_parmlist" "1"
  5843. $row964 setProp "is_event" "1"
  5844. $row964 setProp "method_access" "Published"
  5845.  
  5846. $diag save
  5847.  
  5848. # Generator: et.tcl    /main/titanic/10
  5849. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  5850. # Interpreter to use: Otsh V7.1.1/B5
  5851. #
  5852. OTShRegister::importTool
  5853.  
  5854. set diag [CDM new THeaderControl "DelphiVCL" "" "" "" "" "" 1]
  5855.  
  5856. set row965 [$diag addRow method 0.0]
  5857. $row965 setLabel "name_type" "DrawSection()\n"
  5858. $row965 setProp "has_parmlist" "1"
  5859. $row965 setProp "is_event" "1"
  5860. $row965 setProp "method_access" "Published"
  5861.  
  5862. set cell966 [$row965 addCell parameter 0.0]
  5863. $cell966 setLabel "name_type" "HeaderControl: THeaderControl, "
  5864. $cell966 setScope "name_type" "cl" "scopePhase"
  5865. $cell966 setProp "is_declaration" "1" "name_type" "cl"
  5866. $cell966 setProp "libunit" "Other" "name_type" "cl"
  5867. $cell966 setProp "userlib" "ComCtrls" "name_type" "cl"
  5868. $cell966 setScope "name_type" "de" "scopeFile"
  5869.  
  5870. set cell967 [$row965 addCell parameter 0.0]
  5871. $cell967 setLabel "name_type" "Section: THeaderSection, "
  5872. $cell967 setScope "name_type" "cl" "scopePhase"
  5873. $cell967 setProp "is_declaration" "1" "name_type" "cl"
  5874. $cell967 setProp "libunit" "Other" "name_type" "cl"
  5875. $cell967 setProp "userlib" "ComCtrls" "name_type" "cl"
  5876. $cell967 setScope "name_type" "de" "scopeFile"
  5877.  
  5878. set cell968 [$row965 addCell parameter 0.0]
  5879. $cell968 setLabel "name_type" "Rect: TRect, "
  5880. $cell968 setScope "name_type" "cl" "scopePhase"
  5881. $cell968 setProp "libunit" "Other" "name_type" "cl"
  5882. $cell968 setProp "userlib" "Windows" "name_type" "cl"
  5883. $cell968 setScope "name_type" "de" "scopeFile"
  5884.  
  5885. set cell969 [$row965 addCell parameter 0.0]
  5886. $cell969 setLabel "name_type" "Pressed: boolean"
  5887. $cell969 setScope "name_type" "cl" "scopePhase"
  5888. $cell969 setScope "name_type" "de" "scopeFile"
  5889.  
  5890. set row970 [$diag addRow method 0.0]
  5891. $row970 setLabel "name_type" "Resize()\n"
  5892. $row970 setProp "has_parmlist" "1"
  5893. $row970 setProp "is_event" "1"
  5894. $row970 setProp "method_access" "Published"
  5895.  
  5896. set cell971 [$row970 addCell parameter 0.0]
  5897. $cell971 setLabel "name_type" "Sender: TObject"
  5898. $cell971 setScope "name_type" "cl" "scopePhase"
  5899. $cell971 setProp "is_declaration" "1" "name_type" "cl"
  5900. $cell971 setProp "libunit" "System" "name_type" "cl"
  5901. $cell971 setScope "name_type" "de" "scopeFile"
  5902.  
  5903. set row972 [$diag addRow method 0.0]
  5904. $row972 setLabel "name_type" "SectionClick()\n"
  5905. $row972 setProp "has_parmlist" "1"
  5906. $row972 setProp "is_event" "1"
  5907. $row972 setProp "method_access" "Published"
  5908.  
  5909. set cell973 [$row972 addCell parameter 0.0]
  5910. $cell973 setLabel "name_type" "HeaderControl: THeaderControl, "
  5911. $cell973 setScope "name_type" "cl" "scopePhase"
  5912. $cell973 setProp "is_declaration" "1" "name_type" "cl"
  5913. $cell973 setProp "libunit" "Other" "name_type" "cl"
  5914. $cell973 setProp "userlib" "ComCtrls" "name_type" "cl"
  5915. $cell973 setScope "name_type" "de" "scopeFile"
  5916.  
  5917. set cell974 [$row972 addCell parameter 0.0]
  5918. $cell974 setLabel "name_type" "Section: THeaderSection"
  5919. $cell974 setScope "name_type" "cl" "scopePhase"
  5920. $cell974 setProp "is_declaration" "1" "name_type" "cl"
  5921. $cell974 setProp "libunit" "Other" "name_type" "cl"
  5922. $cell974 setProp "userlib" "ComCtrls" "name_type" "cl"
  5923. $cell974 setScope "name_type" "de" "scopeFile"
  5924.  
  5925. set row975 [$diag addRow method 0.0]
  5926. $row975 setLabel "name_type" "SectionResize()\n"
  5927. $row975 setProp "has_parmlist" "1"
  5928. $row975 setProp "is_event" "1"
  5929. $row975 setProp "method_access" "Published"
  5930.  
  5931. set cell976 [$row975 addCell parameter 0.0]
  5932. $cell976 setLabel "name_type" "HeaderControl: THeaderControl, "
  5933. $cell976 setScope "name_type" "cl" "scopePhase"
  5934. $cell976 setProp "is_declaration" "1" "name_type" "cl"
  5935. $cell976 setProp "libunit" "Other" "name_type" "cl"
  5936. $cell976 setProp "userlib" "ComCtrls" "name_type" "cl"
  5937. $cell976 setScope "name_type" "de" "scopeFile"
  5938.  
  5939. set cell977 [$row975 addCell parameter 0.0]
  5940. $cell977 setLabel "name_type" "Section: THeaderSection"
  5941. $cell977 setScope "name_type" "cl" "scopePhase"
  5942. $cell977 setProp "is_declaration" "1" "name_type" "cl"
  5943. $cell977 setProp "libunit" "Other" "name_type" "cl"
  5944. $cell977 setProp "userlib" "ComCtrls" "name_type" "cl"
  5945. $cell977 setScope "name_type" "de" "scopeFile"
  5946.  
  5947. set row978 [$diag addRow method 0.0]
  5948. $row978 setLabel "name_type" "SectionTrack()\n"
  5949. $row978 setProp "has_parmlist" "1"
  5950. $row978 setProp "is_event" "1"
  5951. $row978 setProp "method_access" "Published"
  5952.  
  5953. set cell979 [$row978 addCell parameter 0.0]
  5954. $cell979 setLabel "name_type" "HeaderControl: THeaderControl, "
  5955. $cell979 setScope "name_type" "cl" "scopePhase"
  5956. $cell979 setProp "is_declaration" "1" "name_type" "cl"
  5957. $cell979 setProp "libunit" "Other" "name_type" "cl"
  5958. $cell979 setProp "userlib" "ComCtrls" "name_type" "cl"
  5959. $cell979 setScope "name_type" "de" "scopeFile"
  5960.  
  5961. set cell980 [$row978 addCell parameter 0.0]
  5962. $cell980 setLabel "name_type" "Section: THeaderSection, "
  5963. $cell980 setScope "name_type" "cl" "scopePhase"
  5964. $cell980 setProp "is_declaration" "1" "name_type" "cl"
  5965. $cell980 setProp "libunit" "Other" "name_type" "cl"
  5966. $cell980 setProp "userlib" "ComCtrls" "name_type" "cl"
  5967. $cell980 setScope "name_type" "de" "scopeFile"
  5968.  
  5969. set cell981 [$row978 addCell parameter 0.0]
  5970. $cell981 setLabel "name_type" "Width: integer, "
  5971. $cell981 setScope "name_type" "cl" "scopePhase"
  5972. $cell981 setScope "name_type" "de" "scopeFile"
  5973.  
  5974. set cell982 [$row978 addCell parameter 0.0]
  5975. $cell982 setLabel "name_type" "State: TSectionTrackState"
  5976. $cell982 setScope "name_type" "cl" "scopePhase"
  5977. $cell982 setProp "libunit" "Other" "name_type" "cl"
  5978. $cell982 setProp "userlib" "ComCtrls" "name_type" "cl"
  5979. $cell982 setScope "name_type" "de" "scopeFile"
  5980.  
  5981. set row983 [$diag addRow method 0.0]
  5982. $row983 setLabel "name_type" "DragDrop()\n"
  5983. $row983 setProp "has_parmlist" "1"
  5984. $row983 setProp "is_event" "1"
  5985. $row983 setProp "method_access" "Published"
  5986.  
  5987. set row984 [$diag addRow method 0.0]
  5988. $row984 setLabel "name_type" "DragOver()\n"
  5989. $row984 setProp "has_parmlist" "1"
  5990. $row984 setProp "is_event" "1"
  5991. $row984 setProp "method_access" "Published"
  5992.  
  5993. set row985 [$diag addRow method 0.0]
  5994. $row985 setLabel "name_type" "EndDrag()\n"
  5995. $row985 setProp "has_parmlist" "1"
  5996. $row985 setProp "is_event" "1"
  5997. $row985 setProp "method_access" "Published"
  5998.  
  5999. set row986 [$diag addRow method 0.0]
  6000. $row986 setLabel "name_type" "MouseDown()\n"
  6001. $row986 setProp "has_parmlist" "1"
  6002. $row986 setProp "is_event" "1"
  6003. $row986 setProp "method_access" "Published"
  6004.  
  6005. set row987 [$diag addRow method 0.0]
  6006. $row987 setLabel "name_type" "MouseMove()\n"
  6007. $row987 setProp "has_parmlist" "1"
  6008. $row987 setProp "is_event" "1"
  6009. $row987 setProp "method_access" "Published"
  6010.  
  6011. set row988 [$diag addRow method 0.0]
  6012. $row988 setLabel "name_type" "MouseUp()\n"
  6013. $row988 setProp "has_parmlist" "1"
  6014. $row988 setProp "is_event" "1"
  6015. $row988 setProp "method_access" "Published"
  6016.  
  6017. set row989 [$diag addRow method 0.0]
  6018. $row989 setLabel "name_type" "StartDrag()"
  6019. $row989 setProp "has_parmlist" "1"
  6020. $row989 setProp "is_event" "1"
  6021. $row989 setProp "method_access" "Published"
  6022.  
  6023. $diag save
  6024.  
  6025. # Generator: et.tcl    /main/titanic/10
  6026. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6027. # Interpreter to use: Otsh V7.1.1/B5
  6028. #
  6029. OTShRegister::importTool
  6030.  
  6031. set diag [CDM new TStatusBar "DelphiVCL" "" "" "" "" "" 1]
  6032.  
  6033. set row990 [$diag addRow method 0.0]
  6034. $row990 setLabel "name_type" "DrawPanel()\n"
  6035. $row990 setProp "has_parmlist" "1"
  6036. $row990 setProp "is_event" "1"
  6037. $row990 setProp "method_access" "Published"
  6038.  
  6039. set cell991 [$row990 addCell parameter 0.0]
  6040. $cell991 setLabel "name_type" "StatusBar: TStatusBar, "
  6041. $cell991 setScope "name_type" "cl" "scopePhase"
  6042. $cell991 setProp "is_declaration" "1" "name_type" "cl"
  6043. $cell991 setProp "libunit" "Other" "name_type" "cl"
  6044. $cell991 setProp "userlib" "ComCtrls" "name_type" "cl"
  6045. $cell991 setScope "name_type" "de" "scopeFile"
  6046.  
  6047. set cell992 [$row990 addCell parameter 0.0]
  6048. $cell992 setLabel "name_type" "Panel: TStatusPanel, "
  6049. $cell992 setScope "name_type" "cl" "scopePhase"
  6050. $cell992 setProp "libunit" "Other" "name_type" "cl"
  6051. $cell992 setProp "userlib" "ComCtrls" "name_type" "cl"
  6052. $cell992 setScope "name_type" "de" "scopeFile"
  6053.  
  6054. set cell993 [$row990 addCell parameter 0.0]
  6055. $cell993 setLabel "name_type" "Rect: TRect"
  6056. $cell993 setProp "pass_by" "Constant"
  6057. $cell993 setScope "name_type" "cl" "scopePhase"
  6058. $cell993 setProp "libunit" "Other" "name_type" "cl"
  6059. $cell993 setProp "userlib" "Windows" "name_type" "cl"
  6060. $cell993 setScope "name_type" "de" "scopeFile"
  6061.  
  6062. set row994 [$diag addRow method 0.0]
  6063. $row994 setLabel "name_type" "Resize()\n"
  6064. $row994 setProp "has_parmlist" "1"
  6065. $row994 setProp "is_event" "1"
  6066. $row994 setProp "method_access" "Published"
  6067.  
  6068. set cell995 [$row994 addCell parameter 0.0]
  6069. $cell995 setLabel "name_type" "Sender: TObject"
  6070. $cell995 setScope "name_type" "cl" "scopePhase"
  6071. $cell995 setProp "is_declaration" "1" "name_type" "cl"
  6072. $cell995 setProp "libunit" "System" "name_type" "cl"
  6073. $cell995 setScope "name_type" "de" "scopeFile"
  6074.  
  6075. set row996 [$diag addRow method 0.0]
  6076. $row996 setLabel "name_type" "Click()\n"
  6077. $row996 setProp "has_parmlist" "1"
  6078. $row996 setProp "is_event" "1"
  6079. $row996 setProp "method_access" "Published"
  6080.  
  6081. set row997 [$diag addRow method 0.0]
  6082. $row997 setLabel "name_type" "DblClick()\n"
  6083. $row997 setProp "has_parmlist" "1"
  6084. $row997 setProp "is_event" "1"
  6085. $row997 setProp "method_access" "Published"
  6086.  
  6087. set row998 [$diag addRow method 0.0]
  6088. $row998 setLabel "name_type" "DragDrop()\n"
  6089. $row998 setProp "has_parmlist" "1"
  6090. $row998 setProp "is_event" "1"
  6091. $row998 setProp "method_access" "Published"
  6092.  
  6093. set row999 [$diag addRow method 0.0]
  6094. $row999 setLabel "name_type" "DragOver()\n"
  6095. $row999 setProp "has_parmlist" "1"
  6096. $row999 setProp "is_event" "1"
  6097. $row999 setProp "method_access" "Published"
  6098.  
  6099. set row1000 [$diag addRow method 0.0]
  6100. $row1000 setLabel "name_type" "EndDrag()\n"
  6101. $row1000 setProp "has_parmlist" "1"
  6102. $row1000 setProp "is_event" "1"
  6103. $row1000 setProp "method_access" "Published"
  6104.  
  6105. set row1001 [$diag addRow method 0.0]
  6106. $row1001 setLabel "name_type" "MouseDown()\n"
  6107. $row1001 setProp "has_parmlist" "1"
  6108. $row1001 setProp "is_event" "1"
  6109. $row1001 setProp "method_access" "Published"
  6110.  
  6111. set row1002 [$diag addRow method 0.0]
  6112. $row1002 setLabel "name_type" "MouseMove()\n"
  6113. $row1002 setProp "has_parmlist" "1"
  6114. $row1002 setProp "is_event" "1"
  6115. $row1002 setProp "method_access" "Published"
  6116.  
  6117. set row1003 [$diag addRow method 0.0]
  6118. $row1003 setLabel "name_type" "MouseUp()\n"
  6119. $row1003 setProp "has_parmlist" "1"
  6120. $row1003 setProp "is_event" "1"
  6121. $row1003 setProp "method_access" "Published"
  6122.  
  6123. set row1004 [$diag addRow method 0.0]
  6124. $row1004 setLabel "name_type" "StartDrag()"
  6125. $row1004 setProp "has_parmlist" "1"
  6126. $row1004 setProp "is_event" "1"
  6127. $row1004 setProp "method_access" "Published"
  6128.  
  6129. $diag save
  6130.  
  6131. # Generator: et.tcl    /main/titanic/10
  6132. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6133. # Interpreter to use: Otsh V7.1.1/B5
  6134. #
  6135. OTShRegister::importTool
  6136.  
  6137. set diag [CDM new TToolBar "DelphiVCL" "" "" "" "" "" 1]
  6138.  
  6139. set row1005 [$diag addRow method 0.0]
  6140. $row1005 setLabel "name_type" "Resize()\n"
  6141. $row1005 setProp "has_parmlist" "1"
  6142. $row1005 setProp "is_event" "1"
  6143. $row1005 setProp "method_access" "Published"
  6144.  
  6145. set cell1006 [$row1005 addCell parameter 0.0]
  6146. $cell1006 setLabel "name_type" "Sender: TObject"
  6147. $cell1006 setScope "name_type" "cl" "scopePhase"
  6148. $cell1006 setProp "is_declaration" "1" "name_type" "cl"
  6149. $cell1006 setProp "libunit" "System" "name_type" "cl"
  6150. $cell1006 setScope "name_type" "de" "scopeFile"
  6151.  
  6152. set row1007 [$diag addRow method 0.0]
  6153. $row1007 setLabel "name_type" "Enter()\n"
  6154. $row1007 setProp "has_parmlist" "1"
  6155. $row1007 setProp "is_event" "1"
  6156. $row1007 setProp "method_access" "Published"
  6157.  
  6158. set row1008 [$diag addRow method 0.0]
  6159. $row1008 setLabel "name_type" "Exit()\n"
  6160. $row1008 setProp "has_parmlist" "1"
  6161. $row1008 setProp "is_event" "1"
  6162. $row1008 setProp "method_access" "Published"
  6163.  
  6164. set row1009 [$diag addRow method 0.0]
  6165. $row1009 setLabel "name_type" "Click()\n"
  6166. $row1009 setProp "has_parmlist" "1"
  6167. $row1009 setProp "is_event" "1"
  6168. $row1009 setProp "method_access" "Published"
  6169.  
  6170. set row1010 [$diag addRow method 0.0]
  6171. $row1010 setLabel "name_type" "DblClick()\n"
  6172. $row1010 setProp "has_parmlist" "1"
  6173. $row1010 setProp "is_event" "1"
  6174. $row1010 setProp "method_access" "Published"
  6175.  
  6176. set row1011 [$diag addRow method 0.0]
  6177. $row1011 setLabel "name_type" "DragDrop()\n"
  6178. $row1011 setProp "has_parmlist" "1"
  6179. $row1011 setProp "is_event" "1"
  6180. $row1011 setProp "method_access" "Published"
  6181.  
  6182. set row1012 [$diag addRow method 0.0]
  6183. $row1012 setLabel "name_type" "DragOver()\n"
  6184. $row1012 setProp "has_parmlist" "1"
  6185. $row1012 setProp "is_event" "1"
  6186. $row1012 setProp "method_access" "Published"
  6187.  
  6188. set row1013 [$diag addRow method 0.0]
  6189. $row1013 setLabel "name_type" "EndDrag()\n"
  6190. $row1013 setProp "has_parmlist" "1"
  6191. $row1013 setProp "is_event" "1"
  6192. $row1013 setProp "method_access" "Published"
  6193.  
  6194. set row1014 [$diag addRow method 0.0]
  6195. $row1014 setLabel "name_type" "MouseDown()\n"
  6196. $row1014 setProp "has_parmlist" "1"
  6197. $row1014 setProp "is_event" "1"
  6198. $row1014 setProp "method_access" "Published"
  6199.  
  6200. set row1015 [$diag addRow method 0.0]
  6201. $row1015 setLabel "name_type" "MouseMove()\n"
  6202. $row1015 setProp "has_parmlist" "1"
  6203. $row1015 setProp "is_event" "1"
  6204. $row1015 setProp "method_access" "Published"
  6205.  
  6206. set row1016 [$diag addRow method 0.0]
  6207. $row1016 setLabel "name_type" "MouseUp()\n"
  6208. $row1016 setProp "has_parmlist" "1"
  6209. $row1016 setProp "is_event" "1"
  6210. $row1016 setProp "method_access" "Published"
  6211.  
  6212. set row1017 [$diag addRow method 0.0]
  6213. $row1017 setLabel "name_type" "StartDrag()"
  6214. $row1017 setProp "has_parmlist" "1"
  6215. $row1017 setProp "is_event" "1"
  6216. $row1017 setProp "method_access" "Published"
  6217.  
  6218. $diag save
  6219.  
  6220. # Generator: et.tcl    /main/titanic/10
  6221. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6222. # Interpreter to use: Otsh V7.1.1/B5
  6223. #
  6224. OTShRegister::importTool
  6225.  
  6226. set diag [CDM new TCoolBar "DelphiVCL" "" "" "" "" "" 1]
  6227.  
  6228. set row1018 [$diag addRow method 0.0]
  6229. $row1018 setLabel "name_type" "Change()\n"
  6230. $row1018 setProp "has_parmlist" "1"
  6231. $row1018 setProp "is_event" "1"
  6232. $row1018 setProp "method_access" "Published"
  6233.  
  6234. set cell1019 [$row1018 addCell parameter 0.0]
  6235. $cell1019 setLabel "name_type" "Sender: TObject"
  6236. $cell1019 setScope "name_type" "cl" "scopePhase"
  6237. $cell1019 setProp "is_declaration" "1" "name_type" "cl"
  6238. $cell1019 setProp "libunit" "System" "name_type" "cl"
  6239. $cell1019 setScope "name_type" "de" "scopeFile"
  6240.  
  6241. set row1020 [$diag addRow method 0.0]
  6242. $row1020 setLabel "name_type" "Resize()\n"
  6243. $row1020 setProp "has_parmlist" "1"
  6244. $row1020 setProp "is_event" "1"
  6245. $row1020 setProp "method_access" "Published"
  6246.  
  6247. set cell1021 [$row1020 addCell parameter 0.0]
  6248. $cell1021 setLabel "name_type" "Sender: TObject"
  6249. $cell1021 setScope "name_type" "cl" "scopePhase"
  6250. $cell1021 setProp "is_declaration" "1" "name_type" "cl"
  6251. $cell1021 setProp "libunit" "System" "name_type" "cl"
  6252. $cell1021 setScope "name_type" "de" "scopeFile"
  6253.  
  6254. set row1022 [$diag addRow method 0.0]
  6255. $row1022 setLabel "name_type" "Click()\n"
  6256. $row1022 setProp "has_parmlist" "1"
  6257. $row1022 setProp "is_event" "1"
  6258. $row1022 setProp "method_access" "Published"
  6259.  
  6260. set row1023 [$diag addRow method 0.0]
  6261. $row1023 setLabel "name_type" "DblClick()\n"
  6262. $row1023 setProp "has_parmlist" "1"
  6263. $row1023 setProp "is_event" "1"
  6264. $row1023 setProp "method_access" "Published"
  6265.  
  6266. set row1024 [$diag addRow method 0.0]
  6267. $row1024 setLabel "name_type" "DragDrop()\n"
  6268. $row1024 setProp "has_parmlist" "1"
  6269. $row1024 setProp "is_event" "1"
  6270. $row1024 setProp "method_access" "Published"
  6271.  
  6272. set row1025 [$diag addRow method 0.0]
  6273. $row1025 setLabel "name_type" "DragOver()\n"
  6274. $row1025 setProp "has_parmlist" "1"
  6275. $row1025 setProp "is_event" "1"
  6276. $row1025 setProp "method_access" "Published"
  6277.  
  6278. set row1026 [$diag addRow method 0.0]
  6279. $row1026 setLabel "name_type" "EndDrag()\n"
  6280. $row1026 setProp "has_parmlist" "1"
  6281. $row1026 setProp "is_event" "1"
  6282. $row1026 setProp "method_access" "Published"
  6283.  
  6284. set row1027 [$diag addRow method 0.0]
  6285. $row1027 setLabel "name_type" "MouseDown()\n"
  6286. $row1027 setProp "has_parmlist" "1"
  6287. $row1027 setProp "is_event" "1"
  6288. $row1027 setProp "method_access" "Published"
  6289.  
  6290. set row1028 [$diag addRow method 0.0]
  6291. $row1028 setLabel "name_type" "MouseMove()\n"
  6292. $row1028 setProp "has_parmlist" "1"
  6293. $row1028 setProp "is_event" "1"
  6294. $row1028 setProp "method_access" "Published"
  6295.  
  6296. set row1029 [$diag addRow method 0.0]
  6297. $row1029 setLabel "name_type" "MouseUp()\n"
  6298. $row1029 setProp "has_parmlist" "1"
  6299. $row1029 setProp "is_event" "1"
  6300. $row1029 setProp "method_access" "Published"
  6301.  
  6302. set row1030 [$diag addRow method 0.0]
  6303. $row1030 setLabel "name_type" "StartDrag()"
  6304. $row1030 setProp "has_parmlist" "1"
  6305. $row1030 setProp "is_event" "1"
  6306. $row1030 setProp "method_access" "Published"
  6307.  
  6308. $diag save
  6309.  
  6310. # Generator: et.tcl    /main/titanic/10
  6311. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6312. # Interpreter to use: Otsh V7.1.1/B5
  6313. #
  6314. OTShRegister::importTool
  6315.  
  6316. set diag [CAD new ComCtrlsTypes "DelphiVCL" "" "" "" "" "" 1]
  6317.  
  6318. set node1033 [$diag addNode cad_class 736.0 848.0 120.0 115.0]
  6319. $node1033 setLabel "name" "TUDBtnType"
  6320. $node1033 setScope "name" "cl" "scopePhase"
  6321. $node1033 setProp "libunit" "Other" "name" "cl"
  6322. $node1033 setProp "userlib" "ComCtrls" "name" "cl"
  6323.  
  6324. set node1034 [$diag addNode cad_class 896.0 576.0 123.0 33.0]
  6325. $node1034 setLabel "name" "TCollectionItem"
  6326. $node1034 setProp "is_folded" "1"
  6327. $node1034 setScope "name" "cl" "scopePhase"
  6328. $node1034 setProp "is_declaration" "1" "name" "cl"
  6329. $node1034 setProp "libunit" "Classes" "name" "cl"
  6330.  
  6331. set node1035 [$diag addNode cad_class 432.0 576.0 120.0 33.0]
  6332. $node1035 setLabel "name" "TPersistent"
  6333. $node1035 setProp "is_folded" "1"
  6334. $node1035 setScope "name" "cl" "scopePhase"
  6335. $node1035 setProp "is_declaration" "1" "name" "cl"
  6336. $node1035 setProp "libunit" "Classes" "name" "cl"
  6337.  
  6338. set node1036 [$diag addNode cad_class 1040.0 672.0 120.0 99.0]
  6339. $node1036 setLabel "name" "TStatusPanel"
  6340. $node1036 setScope "name" "cl" "scopePhase"
  6341. $node1036 setProp "libunit" "Other" "name" "cl"
  6342. $node1036 setProp "userlib" "ComCtrls" "name" "cl"
  6343.  
  6344. set node1037 [$diag addNode cad_class 432.0 848.0 151.0 131.0]
  6345. $node1037 setLabel "name" "TSectionTrackState"
  6346. $node1037 setScope "name" "cl" "scopePhase"
  6347. $node1037 setProp "libunit" "Other" "name" "cl"
  6348. $node1037 setProp "userlib" "ComCtrls" "name" "cl"
  6349.  
  6350. set node1038 [$diag addNode cad_class 896.0 672.0 125.0 99.0]
  6351. $node1038 setLabel "name" "THeaderSection"
  6352. $node1038 setScope "name" "cl" "scopePhase"
  6353. $node1038 setProp "is_declaration" "1" "name" "cl"
  6354. $node1038 setProp "libunit" "Other" "name" "cl"
  6355. $node1038 setProp "userlib" "ComCtrls" "name" "cl"
  6356.  
  6357. set node1039 [$diag addNode cad_class 576.0 672.0 120.0 99.0]
  6358. $node1039 setLabel "name" "TTreeNode"
  6359. $node1039 setScope "name" "cl" "scopePhase"
  6360. $node1039 setProp "libunit" "Other" "name" "cl"
  6361. $node1039 setProp "userlib" "ComCtrls" "name" "cl"
  6362.  
  6363. set node1040 [$diag addNode cad_class 752.0 672.0 120.0 99.0]
  6364. $node1040 setLabel "name" "TListColumn"
  6365. $node1040 setScope "name" "cl" "scopePhase"
  6366. $node1040 setProp "libunit" "Other" "name" "cl"
  6367. $node1040 setProp "userlib" "ComCtrls" "name" "cl"
  6368.  
  6369. set node1041 [$diag addNode cad_class 592.0 848.0 127.0 131.0]
  6370. $node1041 setLabel "name" "TItemChange"
  6371. $node1041 setScope "name" "cl" "scopePhase"
  6372. $node1041 setProp "libunit" "Other" "name" "cl"
  6373. $node1041 setProp "userlib" "ComCtrls" "name" "cl"
  6374.  
  6375. set node1042 [$diag addNode cad_class 432.0 672.0 120.0 99.0]
  6376. $node1042 setLabel "name" "TListItem"
  6377. $node1042 setScope "name" "cl" "scopePhase"
  6378. $node1042 setProp "libunit" "Other" "name" "cl"
  6379. $node1042 setProp "userlib" "ComCtrls" "name" "cl"
  6380.  
  6381. set node1031 [$diag addRake generalization $node1034 $node1036 960.0 608.0 1104.0 704.0 656.0]
  6382.  
  6383. set conn1043 [$node1031 getInConn]
  6384. set segm1044 [$conn1043 getFirstSegm]
  6385.  
  6386. set conn1045 [$node1031 getFirstOutConn]
  6387. set segm1046 [$conn1045 getFirstSegm]
  6388.  
  6389. set conn1047 [$diag addConn generalization_conn $node1031 $node1038 960.0 656.0 960.0 704.0]
  6390. set segm1048 [$conn1047 getFirstSegm]
  6391.  
  6392. set conn1049 [$diag addConn generalization_conn $node1031 $node1040 816.0 656.0 816.0 704.0]
  6393. set segm1050 [$conn1049 getFirstSegm]
  6394.  
  6395. set node1032 [$diag addRake generalization $node1035 $node1039 496.0 608.0 640.0 688.0 656.0]
  6396.  
  6397. set conn1051 [$node1032 getInConn]
  6398. set segm1052 [$conn1051 getFirstSegm]
  6399.  
  6400. set conn1053 [$node1032 getFirstOutConn]
  6401. set segm1054 [$conn1053 getFirstSegm]
  6402.  
  6403. set conn1055 [$diag addConn generalization_conn $node1032 $node1042 496.0 656.0 496.0 688.0]
  6404. set segm1056 [$conn1055 getFirstSegm]
  6405.  
  6406. $diag save
  6407.  
  6408. # Generator: et.tcl    /main/titanic/10
  6409. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6410. # Interpreter to use: Otsh V7.1.1/B5
  6411. #
  6412. OTShRegister::importTool
  6413.  
  6414. set diag [CDM new TItemChange "DelphiVCL" "" "" "" "" "" 1]
  6415.  
  6416. set row1057 [$diag addRow attribute 0.0]
  6417. $row1057 setLabel "name_type" "\$ctText: enum\n"
  6418. $row1057 setProp "is_class_feature" "1"
  6419. $row1057 setScope "name_type" "cl" "scopePhase"
  6420.  
  6421. set row1058 [$diag addRow attribute 0.0]
  6422. $row1058 setLabel "name_type" "\$ctImage: enum\n"
  6423. $row1058 setProp "is_class_feature" "1"
  6424. $row1058 setScope "name_type" "cl" "scopePhase"
  6425.  
  6426. set row1059 [$diag addRow attribute 0.0]
  6427. $row1059 setLabel "name_type" "\$ctChange: enum"
  6428. $row1059 setProp "is_class_feature" "1"
  6429. $row1059 setScope "name_type" "cl" "scopePhase"
  6430.  
  6431. $diag save
  6432.  
  6433. # Generator: et.tcl    /main/titanic/10
  6434. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6435. # Interpreter to use: Otsh V7.1.1/B5
  6436. #
  6437. OTShRegister::importTool
  6438.  
  6439. set diag [CDM new TUDBtnType "DelphiVCL" "" "" "" "" "" 1]
  6440.  
  6441. set row1060 [$diag addRow attribute 0.0]
  6442. $row1060 setLabel "name_type" "\$btNext: enum\n"
  6443. $row1060 setProp "is_class_feature" "1"
  6444. $row1060 setScope "name_type" "cl" "scopePhase"
  6445.  
  6446. set row1061 [$diag addRow attribute 0.0]
  6447. $row1061 setLabel "name_type" "\$btPrev: enum"
  6448. $row1061 setProp "is_class_feature" "1"
  6449. $row1061 setScope "name_type" "cl" "scopePhase"
  6450.  
  6451. $diag save
  6452.  
  6453. # Generator: et.tcl    /main/titanic/10
  6454. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6455. # Interpreter to use: Otsh V7.1.1/B5
  6456. #
  6457. OTShRegister::importTool
  6458.  
  6459. set diag [CDM new TSectionTrackState "DelphiVCL" "" "" "" "" "" 1]
  6460.  
  6461. set row1062 [$diag addRow attribute 0.0]
  6462. $row1062 setLabel "name_type" "\$tsTrackBegin: enum\n"
  6463. $row1062 setProp "is_class_feature" "1"
  6464. $row1062 setScope "name_type" "cl" "scopePhase"
  6465.  
  6466. set row1063 [$diag addRow attribute 0.0]
  6467. $row1063 setLabel "name_type" "\$tsTrackMove: enum\n"
  6468. $row1063 setProp "is_class_feature" "1"
  6469. $row1063 setScope "name_type" "cl" "scopePhase"
  6470.  
  6471. set row1064 [$diag addRow attribute 0.0]
  6472. $row1064 setLabel "name_type" "\$tsTrackEnd: enum"
  6473. $row1064 setProp "is_class_feature" "1"
  6474. $row1064 setScope "name_type" "cl" "scopePhase"
  6475.  
  6476. $diag save
  6477.  
  6478. # Generator: et.tcl    /main/titanic/10
  6479. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6480. # Interpreter to use: Otsh V7.1.1/B5
  6481. #
  6482. OTShRegister::importTool
  6483.  
  6484. set diag [CDM new TDateTime "DelphiVCL" "" "" "" "" "" 1]
  6485.  
  6486. set row1065 [$diag addRow attribute 0.0]
  6487. $row1065 setLabel "name_type" "_: double"
  6488. $row1065 setScope "name_type" "cl" "scopePhase"
  6489.  
  6490. $diag save
  6491.  
  6492. # Generator: et.tcl    /main/titanic/10
  6493. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6494. # Interpreter to use: Otsh V7.1.1/B5
  6495. #
  6496. OTShRegister::importTool
  6497.  
  6498. set diag [CAD new DialogsClasses "DelphiVCL" "" "" "" "" "" 1]
  6499.  
  6500. set node1070 [$diag addNode cad_class 1280.0 752.0 157.0 33.0]
  6501. $node1070 setLabel "name" "TPrinterSetupDialog"
  6502. $node1070 setProp "is_folded" "1"
  6503. $node1070 setScope "name" "cl" "scopePhase"
  6504. $node1070 setProp "is_declaration" "1" "name" "cl"
  6505. $node1070 setProp "libunit" "Other" "name" "cl"
  6506. $node1070 setProp "userlib" "Dialogs" "name" "cl"
  6507.  
  6508. set node1071 [$diag addNode cad_class 1136.0 752.0 120.0 33.0]
  6509. $node1071 setLabel "name" "TPrintDialog"
  6510. $node1071 setProp "is_folded" "1"
  6511. $node1071 setScope "name" "cl" "scopePhase"
  6512. $node1071 setProp "is_declaration" "1" "name" "cl"
  6513. $node1071 setProp "libunit" "Other" "name" "cl"
  6514. $node1071 setProp "userlib" "Dialogs" "name" "cl"
  6515.  
  6516. set node1072 [$diag addNode cad_class 992.0 848.0 120.0 33.0]
  6517. $node1072 setLabel "name" "TSaveDialog"
  6518. $node1072 setProp "is_folded" "1"
  6519. $node1072 setScope "name" "cl" "scopePhase"
  6520. $node1072 setProp "is_declaration" "1" "name" "cl"
  6521. $node1072 setProp "libunit" "Other" "name" "cl"
  6522. $node1072 setProp "userlib" "Dialogs" "name" "cl"
  6523.  
  6524. set node1073 [$diag addNode cad_class 992.0 752.0 120.0 33.0]
  6525. $node1073 setLabel "name" "TOpenDialog"
  6526. $node1073 setProp "is_folded" "1"
  6527. $node1073 setScope "name" "cl" "scopePhase"
  6528. $node1073 setProp "is_declaration" "1" "name" "cl"
  6529. $node1073 setProp "libunit" "Other" "name" "cl"
  6530. $node1073 setProp "userlib" "Dialogs" "name" "cl"
  6531.  
  6532. set node1074 [$diag addNode cad_class 672.0 752.0 256.0 99.0]
  6533. $node1074 setLabel "name" "TFontDialog"
  6534. $node1074 setScope "name" "cl" "scopePhase"
  6535. $node1074 setProp "is_declaration" "1" "name" "cl"
  6536. $node1074 setProp "libunit" "Other" "name" "cl"
  6537. $node1074 setProp "userlib" "Dialogs" "name" "cl"
  6538.  
  6539. set node1075 [$diag addNode cad_class 416.0 928.0 181.0 99.0]
  6540. $node1075 setLabel "name" "TReplaceDialog"
  6541. $node1075 setScope "name" "cl" "scopePhase"
  6542. $node1075 setProp "is_declaration" "1" "name" "cl"
  6543. $node1075 setProp "libunit" "Other" "name" "cl"
  6544. $node1075 setProp "userlib" "Dialogs" "name" "cl"
  6545.  
  6546. set node1076 [$diag addNode cad_class 432.0 752.0 157.0 99.0]
  6547. $node1076 setLabel "name" "TFindDialog"
  6548. $node1076 setScope "name" "cl" "scopePhase"
  6549. $node1076 setProp "is_declaration" "1" "name" "cl"
  6550. $node1076 setProp "libunit" "Other" "name" "cl"
  6551. $node1076 setProp "userlib" "Dialogs" "name" "cl"
  6552.  
  6553. set node1077 [$diag addNode cad_class 240.0 752.0 120.0 33.0]
  6554. $node1077 setLabel "name" "TColorDialog"
  6555. $node1077 setProp "is_folded" "1"
  6556. $node1077 setScope "name" "cl" "scopePhase"
  6557. $node1077 setProp "is_declaration" "1" "name" "cl"
  6558. $node1077 setProp "libunit" "Other" "name" "cl"
  6559. $node1077 setProp "userlib" "Dialogs" "name" "cl"
  6560.  
  6561. set node1078 [$diag addNode cad_class 912.0 656.0 130.0 33.0]
  6562. $node1078 setLabel "name" "TCommonDialog"
  6563. $node1078 setProp "is_folded" "1"
  6564. $node1078 setScope "name" "cl" "scopePhase"
  6565. $node1078 setProp "is_declaration" "1" "name" "cl"
  6566. $node1078 setProp "libunit" "Other" "name" "cl"
  6567. $node1078 setProp "userlib" "Dialogs" "name" "cl"
  6568.  
  6569. set node1079 [$diag addNode cad_class 912.0 560.0 120.0 33.0]
  6570. $node1079 setLabel "name" "TComponent"
  6571. $node1079 setProp "is_folded" "1"
  6572. $node1079 setScope "name" "cl" "scopePhase"
  6573. $node1079 setProp "is_declaration" "1" "name" "cl"
  6574. $node1079 setProp "libunit" "Classes" "name" "cl"
  6575.  
  6576. set node1066 [$diag addRake generalization $node1073 $node1072 1056.0 784.0 1056.0 864.0 824.0]
  6577.  
  6578. set conn1080 [$node1066 getInConn]
  6579. set segm1081 [$conn1080 getFirstSegm]
  6580.  
  6581. set conn1082 [$node1066 getFirstOutConn]
  6582. set segm1083 [$conn1082 getFirstSegm]
  6583.  
  6584. set node1067 [$diag addRake generalization $node1076 $node1075 496.0 784.0 496.0 928.0 895.5]
  6585.  
  6586. set conn1084 [$node1067 getInConn]
  6587. set segm1085 [$conn1084 getFirstSegm]
  6588.  
  6589. set conn1086 [$node1067 getFirstOutConn]
  6590. set segm1087 [$conn1086 getFirstSegm]
  6591.  
  6592. set node1068 [$diag addRake generalization $node1078 $node1077 976.0 688.0 304.0 752.0 720.0]
  6593.  
  6594. set conn1088 [$node1068 getInConn]
  6595. set segm1089 [$conn1088 getFirstSegm]
  6596.  
  6597. set conn1090 [$node1068 getFirstOutConn]
  6598. set segm1091 [$conn1090 getFirstSegm]
  6599.  
  6600. set conn1092 [$diag addConn generalization_conn $node1068 $node1070 1360.0 720.0 1360.0 768.0]
  6601. set segm1093 [$conn1092 getFirstSegm]
  6602.  
  6603. set conn1094 [$diag addConn generalization_conn $node1068 $node1071 1200.0 720.0 1200.0 768.0]
  6604. set segm1095 [$conn1094 getFirstSegm]
  6605.  
  6606. set conn1096 [$diag addConn generalization_conn $node1068 $node1073 1056.0 720.0 1056.0 752.0]
  6607. set segm1097 [$conn1096 getFirstSegm]
  6608.  
  6609. set conn1098 [$diag addConn generalization_conn $node1068 $node1074 800.0 720.0 800.0 768.0]
  6610. set segm1099 [$conn1098 getFirstSegm]
  6611.  
  6612. set conn1100 [$diag addConn generalization_conn $node1068 $node1076 496.0 720.0 496.0 752.0]
  6613. set segm1101 [$conn1100 getFirstSegm]
  6614.  
  6615. set node1069 [$diag addRake generalization $node1079 $node1078 976.0 592.0 976.0 672.0 632.0]
  6616.  
  6617. set conn1102 [$node1069 getInConn]
  6618. set segm1103 [$conn1102 getFirstSegm]
  6619.  
  6620. set conn1104 [$node1069 getFirstOutConn]
  6621. set segm1105 [$conn1104 getFirstSegm]
  6622.  
  6623. $diag save
  6624.  
  6625. # Generator: et.tcl    /main/titanic/10
  6626. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6627. # Interpreter to use: Otsh V7.1.1/B5
  6628. #
  6629. OTShRegister::importTool
  6630.  
  6631. set diag [CDM new TBitBtn "DelphiVCL" "" "" "" "" "" 1]
  6632.  
  6633. set row1106 [$diag addRow method 0.0]
  6634. $row1106 setLabel "name_type" "Enter()\n"
  6635. $row1106 setProp "has_parmlist" "1"
  6636. $row1106 setProp "is_event" "1"
  6637. $row1106 setProp "method_access" "Published"
  6638.  
  6639. set row1107 [$diag addRow method 0.0]
  6640. $row1107 setLabel "name_type" "Exit()"
  6641. $row1107 setProp "has_parmlist" "1"
  6642. $row1107 setProp "is_event" "1"
  6643. $row1107 setProp "method_access" "Published"
  6644.  
  6645. $diag save
  6646.  
  6647. # Generator: et.tcl    /main/titanic/10
  6648. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6649. # Interpreter to use: Otsh V7.1.1/B5
  6650. #
  6651. OTShRegister::importTool
  6652.  
  6653. set diag [CDM new TSpeedButton "DelphiVCL" "" "" "" "" "" 1]
  6654.  
  6655. set row1108 [$diag addRow method 0.0]
  6656. $row1108 setLabel "name_type" "Click()\n"
  6657. $row1108 setProp "has_parmlist" "1"
  6658. $row1108 setProp "is_event" "1"
  6659. $row1108 setProp "method_access" "Published"
  6660.  
  6661. set row1109 [$diag addRow method 0.0]
  6662. $row1109 setLabel "name_type" "DblClick()\n"
  6663. $row1109 setProp "has_parmlist" "1"
  6664. $row1109 setProp "is_event" "1"
  6665. $row1109 setProp "method_access" "Published"
  6666.  
  6667. set row1110 [$diag addRow method 0.0]
  6668. $row1110 setLabel "name_type" "MouseDown()\n"
  6669. $row1110 setProp "has_parmlist" "1"
  6670. $row1110 setProp "is_event" "1"
  6671. $row1110 setProp "method_access" "Published"
  6672.  
  6673. set row1111 [$diag addRow method 0.0]
  6674. $row1111 setLabel "name_type" "MouseMove()\n"
  6675. $row1111 setProp "has_parmlist" "1"
  6676. $row1111 setProp "is_event" "1"
  6677. $row1111 setProp "method_access" "Published"
  6678.  
  6679. set row1112 [$diag addRow method 0.0]
  6680. $row1112 setLabel "name_type" "MouseUp()"
  6681. $row1112 setProp "has_parmlist" "1"
  6682. $row1112 setProp "is_event" "1"
  6683. $row1112 setProp "method_access" "Published"
  6684.  
  6685. $diag save
  6686.  
  6687. # Generator: et.tcl    /main/titanic/10
  6688. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6689. # Interpreter to use: Otsh V7.1.1/B5
  6690. #
  6691. OTShRegister::importTool
  6692.  
  6693. set diag [CAD new SysUtilsClasses "DelphiVCL" "" "" "" "" "" 1]
  6694.  
  6695. set node1118 [$diag addNode cad_class 688.0 800.0 120.0 33.0]
  6696. $node1118 setLabel "name" "Exception"
  6697. $node1118 setProp "is_folded" "1"
  6698. $node1118 setScope "name" "cl" "scopePhase"
  6699. $node1118 setProp "libunit" "SysUtils" "name" "cl"
  6700.  
  6701. set node1119 [$diag addNode cad_class 688.0 704.0 120.0 39.0]
  6702. $node1119 setLabel "name" "TObject"
  6703. $node1119 setProp "is_folded" "1"
  6704. $node1119 setScope "name" "cl" "scopePhase"
  6705. $node1119 setProp "is_declaration" "1" "name" "cl"
  6706. $node1119 setProp "libunit" "System" "name" "cl"
  6707.  
  6708. set node1120 [$diag addNode cad_class 512.0 1328.0 120.0 33.0]
  6709. $node1120 setLabel "name" "EUnderflow"
  6710. $node1120 setProp "is_folded" "1"
  6711. $node1120 setScope "name" "cl" "scopePhase"
  6712. $node1120 setProp "libunit" "SysUtils" "name" "cl"
  6713.  
  6714. set node1121 [$diag addNode cad_class 384.0 1328.0 120.0 33.0]
  6715. $node1121 setLabel "name" "EOverflow"
  6716. $node1121 setProp "is_folded" "1"
  6717. $node1121 setScope "name" "cl" "scopePhase"
  6718. $node1121 setProp "libunit" "SysUtils" "name" "cl"
  6719.  
  6720. set node1122 [$diag addNode cad_class 256.0 1328.0 120.0 33.0]
  6721. $node1122 setLabel "name" "EInvalidOp"
  6722. $node1122 setProp "is_folded" "1"
  6723. $node1122 setScope "name" "cl" "scopePhase"
  6724. $node1122 setProp "libunit" "SysUtils" "name" "cl"
  6725.  
  6726. set node1123 [$diag addNode cad_class 1312.0 1216.0 120.0 33.0]
  6727. $node1123 setLabel "name" "EZeroDivide"
  6728. $node1123 setProp "is_folded" "1"
  6729. $node1123 setScope "name" "cl" "scopePhase"
  6730. $node1123 setProp "libunit" "SysUtils" "name" "cl"
  6731.  
  6732. set node1124 [$diag addNode cad_class 1184.0 1216.0 120.0 33.0]
  6733. $node1124 setLabel "name" "EVariantError"
  6734. $node1124 setProp "is_folded" "1"
  6735. $node1124 setScope "name" "cl" "scopePhase"
  6736. $node1124 setProp "libunit" "SysUtils" "name" "cl"
  6737.  
  6738. set node1125 [$diag addNode cad_class 1056.0 1216.0 124.0 33.0]
  6739. $node1125 setLabel "name" "EStackOverflow"
  6740. $node1125 setProp "is_folded" "1"
  6741. $node1125 setScope "name" "cl" "scopePhase"
  6742. $node1125 setProp "libunit" "SysUtils" "name" "cl"
  6743.  
  6744. set node1126 [$diag addNode cad_class 912.0 1216.0 128.0 33.0]
  6745. $node1126 setLabel "name" "EPropWriteOnly"
  6746. $node1126 setProp "is_folded" "1"
  6747. $node1126 setScope "name" "cl" "scopePhase"
  6748. $node1126 setProp "libunit" "SysUtils" "name" "cl"
  6749.  
  6750. set node1127 [$diag addNode cad_class 768.0 1216.0 127.0 33.0]
  6751. $node1127 setLabel "name" "EPropReadOnly"
  6752. $node1127 setProp "is_folded" "1"
  6753. $node1127 setScope "name" "cl" "scopePhase"
  6754. $node1127 setProp "libunit" "SysUtils" "name" "cl"
  6755.  
  6756. set node1128 [$diag addNode cad_class 640.0 1216.0 120.0 33.0]
  6757. $node1128 setLabel "name" "EPrivilege"
  6758. $node1128 setProp "is_folded" "1"
  6759. $node1128 setScope "name" "cl" "scopePhase"
  6760. $node1128 setProp "libunit" "SysUtils" "name" "cl"
  6761.  
  6762. set node1129 [$diag addNode cad_class 512.0 1216.0 122.0 33.0]
  6763. $node1129 setLabel "name" "EOutOfMemory"
  6764. $node1129 setProp "is_folded" "1"
  6765. $node1129 setScope "name" "cl" "scopePhase"
  6766. $node1129 setProp "libunit" "SysUtils" "name" "cl"
  6767.  
  6768. set node1130 [$diag addNode cad_class 384.0 1216.0 120.0 33.0]
  6769. $node1130 setLabel "name" "EMathError"
  6770. $node1130 setProp "is_folded" "1"
  6771. $node1130 setScope "name" "cl" "scopePhase"
  6772. $node1130 setProp "libunit" "SysUtils" "name" "cl"
  6773.  
  6774. set node1131 [$diag addNode cad_class 256.0 1216.0 121.0 33.0]
  6775. $node1131 setLabel "name" "EInvalidPointer"
  6776. $node1131 setProp "is_folded" "1"
  6777. $node1131 setScope "name" "cl" "scopePhase"
  6778. $node1131 setProp "libunit" "SysUtils" "name" "cl"
  6779.  
  6780. set node1132 [$diag addNode cad_class 688.0 1088.0 120.0 33.0]
  6781. $node1132 setLabel "name" "Exception"
  6782. $node1132 setProp "is_folded" "1"
  6783. $node1132 setScope "name" "cl" "scopePhase"
  6784. $node1132 setProp "libunit" "SysUtils" "name" "cl"
  6785.  
  6786. set node1133 [$diag addNode cad_class 1232.0 1024.0 120.0 33.0]
  6787. $node1133 setLabel "name" "ERangeError"
  6788. $node1133 setProp "is_folded" "1"
  6789. $node1133 setScope "name" "cl" "scopePhase"
  6790. $node1133 setProp "libunit" "SysUtils" "name" "cl"
  6791.  
  6792. set node1134 [$diag addNode cad_class 1104.0 1024.0 120.0 33.0]
  6793. $node1134 setLabel "name" "EIntOverflow"
  6794. $node1134 setProp "is_folded" "1"
  6795. $node1134 setScope "name" "cl" "scopePhase"
  6796. $node1134 setProp "libunit" "SysUtils" "name" "cl"
  6797.  
  6798. set node1135 [$diag addNode cad_class 976.0 1024.0 120.0 33.0]
  6799. $node1135 setLabel "name" "EDivByZero"
  6800. $node1135 setProp "is_folded" "1"
  6801. $node1135 setScope "name" "cl" "scopePhase"
  6802. $node1135 setProp "libunit" "SysUtils" "name" "cl"
  6803.  
  6804. set node1136 [$diag addNode cad_class 1232.0 912.0 120.0 33.0]
  6805. $node1136 setLabel "name" "EInvalidCast"
  6806. $node1136 setProp "is_folded" "1"
  6807. $node1136 setScope "name" "cl" "scopePhase"
  6808. $node1136 setProp "libunit" "SysUtils" "name" "cl"
  6809.  
  6810. set node1137 [$diag addNode cad_class 1104.0 912.0 120.0 33.0]
  6811. $node1137 setLabel "name" "EIntError"
  6812. $node1137 setProp "is_folded" "1"
  6813. $node1137 setScope "name" "cl" "scopePhase"
  6814. $node1137 setProp "libunit" "SysUtils" "name" "cl"
  6815.  
  6816. set node1138 [$diag addNode cad_class 976.0 912.0 120.0 33.0]
  6817. $node1138 setLabel "name" "EInOutError"
  6818. $node1138 setProp "is_folded" "1"
  6819. $node1138 setScope "name" "cl" "scopePhase"
  6820. $node1138 setProp "libunit" "SysUtils" "name" "cl"
  6821.  
  6822. set node1139 [$diag addNode cad_class 816.0 912.0 148.0 33.0]
  6823. $node1139 setLabel "name" "EExternalException"
  6824. $node1139 setProp "is_folded" "1"
  6825. $node1139 setScope "name" "cl" "scopePhase"
  6826. $node1139 setProp "libunit" "SysUtils" "name" "cl"
  6827.  
  6828. set node1140 [$diag addNode cad_class 688.0 912.0 120.0 33.0]
  6829. $node1140 setLabel "name" "EConvertError"
  6830. $node1140 setProp "is_folded" "1"
  6831. $node1140 setScope "name" "cl" "scopePhase"
  6832. $node1140 setProp "libunit" "SysUtils" "name" "cl"
  6833.  
  6834. set node1141 [$diag addNode cad_class 560.0 912.0 120.0 33.0]
  6835. $node1141 setLabel "name" "EControlC"
  6836. $node1141 setProp "is_folded" "1"
  6837. $node1141 setScope "name" "cl" "scopePhase"
  6838. $node1141 setProp "libunit" "SysUtils" "name" "cl"
  6839.  
  6840. set node1142 [$diag addNode cad_class 416.0 912.0 136.0 33.0]
  6841. $node1142 setLabel "name" "EAccessViolation"
  6842. $node1142 setProp "is_folded" "1"
  6843. $node1142 setScope "name" "cl" "scopePhase"
  6844. $node1142 setProp "libunit" "System" "name" "cl"
  6845.  
  6846. set node1143 [$diag addNode cad_class 288.0 912.0 120.0 33.0]
  6847. $node1143 setLabel "name" "EAbort"
  6848. $node1143 setProp "is_folded" "1"
  6849. $node1143 setScope "name" "cl" "scopePhase"
  6850. $node1143 setProp "libunit" "SysUtils" "name" "cl"
  6851.  
  6852. set node1113 [$diag addRake generalization $node1119 $node1118 752.0 743.0 752.0 832.0 767.5]
  6853.  
  6854. set conn1144 [$node1113 getInConn]
  6855. set segm1145 [$conn1144 getFirstSegm]
  6856.  
  6857. set conn1146 [$node1113 getFirstOutConn]
  6858. set segm1147 [$conn1146 getFirstSegm]
  6859.  
  6860. set node1114 [$diag addRake generalization $node1130 $node1120 448.0 1248.0 576.0 1344.0 1296.0]
  6861.  
  6862. set conn1148 [$node1114 getInConn]
  6863. set segm1149 [$conn1148 getFirstSegm]
  6864.  
  6865. set conn1150 [$node1114 getFirstOutConn]
  6866. set segm1151 [$conn1150 getFirstSegm]
  6867.  
  6868. set conn1152 [$diag addConn generalization_conn $node1114 $node1121 448.0 1296.0 448.0 1344.0]
  6869. set segm1153 [$conn1152 getFirstSegm]
  6870.  
  6871. set conn1154 [$diag addConn generalization_conn $node1114 $node1122 320.0 1296.0 320.0 1344.0]
  6872. set segm1155 [$conn1154 getFirstSegm]
  6873.  
  6874. set node1115 [$diag addRake generalization $node1132 $node1125 752.0 1120.0 1120.0 1232.0 1168.0]
  6875.  
  6876. set conn1156 [$node1115 getInConn]
  6877. set segm1157 [$conn1156 getFirstSegm]
  6878.  
  6879. set conn1158 [$node1115 getFirstOutConn]
  6880. set segm1159 [$conn1158 getFirstSegm]
  6881.  
  6882. set conn1160 [$diag addConn generalization_conn $node1115 $node1126 976.0 1168.0 976.0 1232.0]
  6883. set segm1161 [$conn1160 getFirstSegm]
  6884.  
  6885. set conn1162 [$diag addConn generalization_conn $node1115 $node1127 832.0 1168.0 832.0 1232.0]
  6886. set segm1163 [$conn1162 getFirstSegm]
  6887.  
  6888. set conn1164 [$diag addConn generalization_conn $node1115 $node1123 1376.0 1168.0 1376.0 1232.0]
  6889. set segm1165 [$conn1164 getFirstSegm]
  6890.  
  6891. set conn1166 [$diag addConn generalization_conn $node1115 $node1124 1248.0 1168.0 1248.0 1232.0]
  6892. set segm1167 [$conn1166 getFirstSegm]
  6893.  
  6894. set conn1168 [$diag addConn generalization_conn $node1115 $node1128 704.0 1168.0 704.0 1232.0]
  6895. set segm1169 [$conn1168 getFirstSegm]
  6896.  
  6897. set conn1170 [$diag addConn generalization_conn $node1115 $node1129 576.0 1168.0 576.0 1232.0]
  6898. set segm1171 [$conn1170 getFirstSegm]
  6899.  
  6900. set conn1172 [$diag addConn generalization_conn $node1115 $node1130 448.0 1168.0 448.0 1232.0]
  6901. set segm1173 [$conn1172 getFirstSegm]
  6902.  
  6903. set conn1174 [$diag addConn generalization_conn $node1115 $node1131 320.0 1168.0 320.0 1216.0]
  6904. set segm1175 [$conn1174 getFirstSegm]
  6905.  
  6906. set node1116 [$diag addRake generalization $node1118 $node1140 752.0 832.0 752.0 912.0 872.0]
  6907.  
  6908. set conn1176 [$node1116 getInConn]
  6909. set segm1177 [$conn1176 getFirstSegm]
  6910.  
  6911. set conn1178 [$node1116 getFirstOutConn]
  6912. set segm1179 [$conn1178 getFirstSegm]
  6913.  
  6914. set conn1180 [$diag addConn generalization_conn $node1116 $node1143 352.0 872.0 352.0 928.0]
  6915. set segm1181 [$conn1180 getFirstSegm]
  6916.  
  6917. set conn1182 [$diag addConn generalization_conn $node1116 $node1142 496.0 872.0 496.0 928.0]
  6918. set segm1183 [$conn1182 getFirstSegm]
  6919.  
  6920. set conn1184 [$diag addConn generalization_conn $node1116 $node1141 624.0 872.0 624.0 928.0]
  6921. set segm1185 [$conn1184 getFirstSegm]
  6922.  
  6923. set conn1186 [$diag addConn generalization_conn $node1116 $node1136 1296.0 872.0 1296.0 928.0]
  6924. set segm1187 [$conn1186 getFirstSegm]
  6925.  
  6926. set conn1188 [$diag addConn generalization_conn $node1116 $node1137 1152.0 872.0 1152.0 928.0]
  6927. set segm1189 [$conn1188 getFirstSegm]
  6928.  
  6929. set conn1190 [$diag addConn generalization_conn $node1116 $node1138 1040.0 872.0 1040.0 944.0]
  6930. set segm1191 [$conn1190 getFirstSegm]
  6931.  
  6932. set conn1192 [$diag addConn generalization_conn $node1116 $node1139 896.0 872.0 896.0 928.0]
  6933. set segm1193 [$conn1192 getFirstSegm]
  6934.  
  6935. set node1117 [$diag addRake generalization $node1137 $node1133 1168.0 944.0 1296.0 1040.0 992.0]
  6936.  
  6937. set conn1194 [$node1117 getInConn]
  6938. set segm1195 [$conn1194 getFirstSegm]
  6939.  
  6940. set conn1196 [$node1117 getFirstOutConn]
  6941. set segm1197 [$conn1196 getFirstSegm]
  6942.  
  6943. set conn1198 [$diag addConn generalization_conn $node1117 $node1134 1168.0 992.0 1168.0 1056.0]
  6944. set segm1199 [$conn1198 getFirstSegm]
  6945.  
  6946. set conn1200 [$diag addConn generalization_conn $node1117 $node1135 1040.0 992.0 1040.0 1040.0]
  6947. set segm1201 [$conn1200 getFirstSegm]
  6948.  
  6949. $diag save
  6950.  
  6951. # Generator: et.tcl    /main/titanic/10
  6952. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6953. # Interpreter to use: Otsh V7.1.1/B5
  6954. #
  6955. OTShRegister::importTool
  6956.  
  6957. set diag [CAD new RTLTypes "DelphiVCL" "" "" "" "" "" 1]
  6958.  
  6959. set node1202 [$diag addNode cad_class 176.0 624.0 120.0 103.0]
  6960. $node1202 setLabel "name" "TDateTime"
  6961. $node1202 setScope "name" "cl" "scopePhase"
  6962. $node1202 setProp "libunit" "System" "name" "cl"
  6963.  
  6964. set node1203 [$diag addNode cad_class 640.0 624.0 120.0 33.0]
  6965. $node1203 setLabel "name" "TObject"
  6966. $node1203 setProp "is_folded" "1"
  6967. $node1203 setScope "name" "cl" "scopePhase"
  6968. $node1203 setProp "is_declaration" "1" "name" "cl"
  6969. $node1203 setProp "libunit" "System" "name" "cl"
  6970.  
  6971. set node1204 [$diag addNode cad_class 480.0 624.0 120.0 33.0]
  6972. $node1204 setLabel "name" "HWND"
  6973. $node1204 setProp "is_folded" "1"
  6974. $node1204 setScope "name" "cl" "scopePhase"
  6975. $node1204 setProp "libunit" "System" "name" "cl"
  6976.  
  6977. set node1205 [$diag addNode cad_class 320.0 624.0 120.0 33.0]
  6978. $node1205 setLabel "name" "TRect"
  6979. $node1205 setProp "is_folded" "1"
  6980. $node1205 setScope "name" "cl" "scopePhase"
  6981. $node1205 setProp "libunit" "Other" "name" "cl"
  6982. $node1205 setProp "userlib" "Windows" "name" "cl"
  6983.  
  6984. $diag save
  6985.  
  6986. # Generator: et.tcl    /main/titanic/10
  6987. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  6988. # Interpreter to use: Otsh V7.1.1/B5
  6989. #
  6990. OTShRegister::importTool
  6991.  
  6992. set diag [CAD new DBTablesClasses "DelphiVCL" "" "" "" "" "" 1]
  6993.  
  6994. set node1216 [$diag addNode cad_class 1296.0 1696.0 120.0 33.0]
  6995. $node1216 setLabel "name" "TAutoIncField"
  6996. $node1216 setProp "is_folded" "1"
  6997. $node1216 setScope "name" "cl" "scopePhase"
  6998. $node1216 setProp "is_declaration" "1" "name" "cl"
  6999. $node1216 setProp "libunit" "Other" "name" "cl"
  7000. $node1216 setProp "userlib" "DBTables" "name" "cl"
  7001.  
  7002. set node1217 [$diag addNode cad_class 1008.0 1024.0 120.0 33.0]
  7003. $node1217 setLabel "name" "TBatchMove"
  7004. $node1217 setProp "is_folded" "1"
  7005. $node1217 setScope "name" "cl" "scopePhase"
  7006. $node1217 setProp "is_declaration" "1" "name" "cl"
  7007. $node1217 setProp "libunit" "Other" "name" "cl"
  7008. $node1217 setProp "userlib" "DBTables" "name" "cl"
  7009.  
  7010. set node1218 [$diag addNode cad_class 1328.0 1520.0 120.0 33.0]
  7011. $node1218 setLabel "name" "TBCDField"
  7012. $node1218 setProp "is_folded" "1"
  7013. $node1218 setScope "name" "cl" "scopePhase"
  7014. $node1218 setProp "is_declaration" "1" "name" "cl"
  7015. $node1218 setProp "libunit" "Other" "name" "cl"
  7016. $node1218 setProp "userlib" "DBTables" "name" "cl"
  7017.  
  7018. set node1219 [$diag addNode cad_class 1872.0 1344.0 120.0 33.0]
  7019. $node1219 setLabel "name" "TBlobField"
  7020. $node1219 setProp "is_folded" "1"
  7021. $node1219 setScope "name" "cl" "scopePhase"
  7022. $node1219 setProp "is_declaration" "1" "name" "cl"
  7023. $node1219 setProp "libunit" "Other" "name" "cl"
  7024. $node1219 setProp "userlib" "DBTables" "name" "cl"
  7025.  
  7026. set node1220 [$diag addNode cad_class 1488.0 1024.0 120.0 33.0]
  7027. $node1220 setLabel "name" "TBlobStream"
  7028. $node1220 setProp "is_folded" "1"
  7029. $node1220 setScope "name" "cl" "scopePhase"
  7030. $node1220 setProp "is_declaration" "1" "name" "cl"
  7031. $node1220 setProp "libunit" "Other" "name" "cl"
  7032. $node1220 setProp "userlib" "DBTables" "name" "cl"
  7033.  
  7034. set node1221 [$diag addNode cad_class 1696.0 1344.0 120.0 33.0]
  7035. $node1221 setLabel "name" "TBooleanField"
  7036. $node1221 setProp "is_folded" "1"
  7037. $node1221 setScope "name" "cl" "scopePhase"
  7038. $node1221 setProp "is_declaration" "1" "name" "cl"
  7039. $node1221 setProp "libunit" "Other" "name" "cl"
  7040. $node1221 setProp "userlib" "DBTables" "name" "cl"
  7041.  
  7042. set node1222 [$diag addNode cad_class 656.0 1344.0 120.0 33.0]
  7043. $node1222 setLabel "name" "TBytesField"
  7044. $node1222 setProp "is_folded" "1"
  7045. $node1222 setScope "name" "cl" "scopePhase"
  7046. $node1222 setProp "is_declaration" "1" "name" "cl"
  7047. $node1222 setProp "libunit" "Other" "name" "cl"
  7048. $node1222 setProp "userlib" "DBTables" "name" "cl"
  7049.  
  7050. set node1223 [$diag addNode cad_class 1520.0 1696.0 122.0 33.0]
  7051. $node1223 setLabel "name" "TCurrencyField"
  7052. $node1223 setProp "is_folded" "1"
  7053. $node1223 setScope "name" "cl" "scopePhase"
  7054. $node1223 setProp "is_declaration" "1" "name" "cl"
  7055. $node1223 setProp "libunit" "Other" "name" "cl"
  7056. $node1223 setProp "userlib" "DBTables" "name" "cl"
  7057.  
  7058. set node1224 [$diag addNode cad_class 800.0 1520.0 120.0 33.0]
  7059. $node1224 setLabel "name" "TDateField"
  7060. $node1224 setProp "is_folded" "1"
  7061. $node1224 setScope "name" "cl" "scopePhase"
  7062. $node1224 setProp "is_declaration" "1" "name" "cl"
  7063. $node1224 setProp "libunit" "Other" "name" "cl"
  7064. $node1224 setProp "userlib" "DBTables" "name" "cl"
  7065.  
  7066. set node1225 [$diag addNode cad_class 880.0 1344.0 121.0 33.0]
  7067. $node1225 setLabel "name" "TDateTimeField"
  7068. $node1225 setProp "is_folded" "1"
  7069. $node1225 setScope "name" "cl" "scopePhase"
  7070. $node1225 setProp "is_declaration" "1" "name" "cl"
  7071. $node1225 setProp "libunit" "Other" "name" "cl"
  7072. $node1225 setProp "userlib" "DBTables" "name" "cl"
  7073.  
  7074. set node1226 [$diag addNode cad_class 1520.0 1520.0 120.0 33.0]
  7075. $node1226 setLabel "name" "TFloatField"
  7076. $node1226 setProp "is_folded" "1"
  7077. $node1226 setScope "name" "cl" "scopePhase"
  7078. $node1226 setProp "is_declaration" "1" "name" "cl"
  7079. $node1226 setProp "libunit" "Other" "name" "cl"
  7080. $node1226 setProp "userlib" "DBTables" "name" "cl"
  7081.  
  7082. set node1227 [$diag addNode cad_class 1792.0 1520.0 120.0 33.0]
  7083. $node1227 setLabel "name" "TGraphicField"
  7084. $node1227 setProp "is_folded" "1"
  7085. $node1227 setScope "name" "cl" "scopePhase"
  7086. $node1227 setProp "is_declaration" "1" "name" "cl"
  7087. $node1227 setProp "libunit" "Other" "name" "cl"
  7088. $node1227 setProp "userlib" "DBTables" "name" "cl"
  7089.  
  7090. set node1228 [$diag addNode cad_class 1232.0 1024.0 120.0 33.0]
  7091. $node1228 setLabel "name" "TUpdateSQL"
  7092. $node1228 setProp "is_folded" "1"
  7093. $node1228 setScope "name" "cl" "scopePhase"
  7094. $node1228 setProp "is_declaration" "1" "name" "cl"
  7095. $node1228 setProp "libunit" "Other" "name" "cl"
  7096. $node1228 setProp "userlib" "DBTables" "name" "cl"
  7097.  
  7098. set node1229 [$diag addNode cad_class 1136.0 1344.0 120.0 33.0]
  7099. $node1229 setLabel "name" "TVarBytesField"
  7100. $node1229 setProp "is_folded" "1"
  7101. $node1229 setScope "name" "cl" "scopePhase"
  7102. $node1229 setProp "is_declaration" "1" "name" "cl"
  7103. $node1229 setProp "libunit" "Other" "name" "cl"
  7104. $node1229 setProp "userlib" "DBTables" "name" "cl"
  7105.  
  7106. set node1230 [$diag addNode cad_class 976.0 1696.0 120.0 33.0]
  7107. $node1230 setLabel "name" "TWordField"
  7108. $node1230 setProp "is_folded" "1"
  7109. $node1230 setScope "name" "cl" "scopePhase"
  7110. $node1230 setProp "is_declaration" "1" "name" "cl"
  7111. $node1230 setProp "libunit" "Other" "name" "cl"
  7112. $node1230 setProp "userlib" "DBTables" "name" "cl"
  7113.  
  7114. set node1231 [$diag addNode cad_class 1136.0 1520.0 120.0 33.0]
  7115. $node1231 setLabel "name" "TIntegerField"
  7116. $node1231 setProp "is_folded" "1"
  7117. $node1231 setScope "name" "cl" "scopePhase"
  7118. $node1231 setProp "is_declaration" "1" "name" "cl"
  7119. $node1231 setProp "libunit" "Other" "name" "cl"
  7120. $node1231 setProp "userlib" "DBTables" "name" "cl"
  7121.  
  7122. set node1232 [$diag addNode cad_class 1936.0 1520.0 120.0 33.0]
  7123. $node1232 setLabel "name" "TMemoField"
  7124. $node1232 setProp "is_folded" "1"
  7125. $node1232 setScope "name" "cl" "scopePhase"
  7126. $node1232 setProp "is_declaration" "1" "name" "cl"
  7127. $node1232 setProp "libunit" "Other" "name" "cl"
  7128. $node1232 setProp "userlib" "DBTables" "name" "cl"
  7129.  
  7130. set node1233 [$diag addNode cad_class 1664.0 1024.0 120.0 33.0]
  7131. $node1233 setLabel "name" "TQuery"
  7132. $node1233 setProp "is_folded" "1"
  7133. $node1233 setScope "name" "cl" "scopePhase"
  7134. $node1233 setProp "is_declaration" "1" "name" "cl"
  7135. $node1233 setProp "libunit" "Other" "name" "cl"
  7136. $node1233 setProp "userlib" "DBTables" "name" "cl"
  7137.  
  7138. set node1234 [$diag addNode cad_class 1136.0 1696.0 120.0 33.0]
  7139. $node1234 setLabel "name" "TSmallIntField"
  7140. $node1234 setProp "is_folded" "1"
  7141. $node1234 setScope "name" "cl" "scopePhase"
  7142. $node1234 setProp "libunit" "Other" "name" "cl"
  7143. $node1234 setProp "userlib" "DBTables" "name" "cl"
  7144.  
  7145. set node1235 [$diag addNode cad_class 1824.0 1024.0 120.0 33.0]
  7146. $node1235 setLabel "name" "TStoredProc"
  7147. $node1235 setProp "is_folded" "1"
  7148. $node1235 setScope "name" "cl" "scopePhase"
  7149. $node1235 setProp "is_declaration" "1" "name" "cl"
  7150. $node1235 setProp "libunit" "Other" "name" "cl"
  7151. $node1235 setProp "userlib" "DBTables" "name" "cl"
  7152.  
  7153. set node1236 [$diag addNode cad_class 1520.0 1344.0 120.0 33.0]
  7154. $node1236 setLabel "name" "TStringField"
  7155. $node1236 setProp "is_folded" "1"
  7156. $node1236 setScope "name" "cl" "scopePhase"
  7157. $node1236 setProp "is_declaration" "1" "name" "cl"
  7158. $node1236 setProp "libunit" "Other" "name" "cl"
  7159. $node1236 setProp "userlib" "DBTables" "name" "cl"
  7160.  
  7161. set node1237 [$diag addNode cad_class 944.0 1520.0 120.0 33.0]
  7162. $node1237 setLabel "name" "TTimeField"
  7163. $node1237 setProp "is_folded" "1"
  7164. $node1237 setScope "name" "cl" "scopePhase"
  7165. $node1237 setProp "is_declaration" "1" "name" "cl"
  7166. $node1237 setProp "libunit" "Other" "name" "cl"
  7167. $node1237 setProp "userlib" "DBTables" "name" "cl"
  7168.  
  7169. set node1238 [$diag addNode cad_class 1328.0 1344.0 120.0 33.0]
  7170. $node1238 setLabel "name" "TNumericField"
  7171. $node1238 setProp "is_folded" "1"
  7172. $node1238 setScope "name" "cl" "scopePhase"
  7173. $node1238 setProp "is_declaration" "1" "name" "cl"
  7174. $node1238 setProp "libunit" "Other" "name" "cl"
  7175. $node1238 setProp "userlib" "DBTables" "name" "cl"
  7176.  
  7177. set node1239 [$diag addNode cad_class 1328.0 1216.0 120.0 33.0]
  7178. $node1239 setLabel "name" "TField"
  7179. $node1239 setProp "is_folded" "1"
  7180. $node1239 setScope "name" "cl" "scopePhase"
  7181. $node1239 setProp "is_declaration" "1" "name" "cl"
  7182. $node1239 setProp "libunit" "Other" "name" "cl"
  7183. $node1239 setProp "userlib" "DB" "name" "cl"
  7184.  
  7185. set node1240 [$diag addNode cad_class 1488.0 896.0 120.0 33.0]
  7186. $node1240 setLabel "name" "TStream"
  7187. $node1240 setProp "is_folded" "1"
  7188. $node1240 setScope "name" "cl" "scopePhase"
  7189. $node1240 setProp "is_declaration" "1" "name" "cl"
  7190. $node1240 setProp "libunit" "Classes" "name" "cl"
  7191.  
  7192. set node1241 [$diag addNode cad_class 1824.0 896.0 120.0 33.0]
  7193. $node1241 setLabel "name" "TDBDataSet"
  7194. $node1241 setProp "is_folded" "1"
  7195. $node1241 setScope "name" "cl" "scopePhase"
  7196. $node1241 setProp "is_declaration" "1" "name" "cl"
  7197. $node1241 setProp "libunit" "Other" "name" "cl"
  7198. $node1241 setProp "userlib" "DB" "name" "cl"
  7199.  
  7200. set node1242 [$diag addNode cad_class 1984.0 1024.0 120.0 33.0]
  7201. $node1242 setLabel "name" "TTable"
  7202. $node1242 setProp "is_folded" "1"
  7203. $node1242 setScope "name" "cl" "scopePhase"
  7204. $node1242 setProp "is_declaration" "1" "name" "cl"
  7205. $node1242 setProp "libunit" "Other" "name" "cl"
  7206. $node1242 setProp "userlib" "DBTables" "name" "cl"
  7207.  
  7208. set node1243 [$diag addNode cad_class 1216.0 896.0 174.0 33.0]
  7209. $node1243 setLabel "name" "TDataSetUpdateObject"
  7210. $node1243 setProp "is_folded" "1"
  7211. $node1243 setScope "name" "cl" "scopePhase"
  7212. $node1243 setProp "is_declaration" "1" "name" "cl"
  7213. $node1243 setProp "libunit" "Other" "name" "cl"
  7214. $node1243 setProp "userlib" "DB" "name" "cl"
  7215.  
  7216. set node1244 [$diag addNode cad_class 1008.0 896.0 120.0 33.0]
  7217. $node1244 setLabel "name" "TComponent"
  7218. $node1244 setProp "is_folded" "1"
  7219. $node1244 setScope "name" "cl" "scopePhase"
  7220. $node1244 setProp "is_declaration" "1" "name" "cl"
  7221. $node1244 setProp "libunit" "Classes" "name" "cl"
  7222.  
  7223. set node1206 [$diag addRake generalization $node1231 $node1230 1200.0 1536.0 1040.0 1712.0 1647.5]
  7224.  
  7225. set conn1245 [$node1206 getInConn]
  7226. set segm1246 [$conn1245 getFirstSegm]
  7227.  
  7228. set conn1247 [$node1206 getFirstOutConn]
  7229. set segm1248 [$conn1247 getFirstSegm]
  7230.  
  7231. set conn1249 [$diag addConn generalization_conn $node1206 $node1234 1200.0 1647.5 1200.0 1712.0]
  7232. set segm1250 [$conn1249 getFirstSegm]
  7233.  
  7234. set conn1251 [$diag addConn generalization_conn $node1206 $node1216 1360.0 1647.5 1360.0 1712.0]
  7235. set segm1252 [$conn1251 getFirstSegm]
  7236.  
  7237. set node1207 [$diag addRake generalization $node1226 $node1223 1584.0 1552.0 1584.0 1728.0 1647.5]
  7238.  
  7239. set conn1253 [$node1207 getInConn]
  7240. set segm1254 [$conn1253 getFirstSegm]
  7241.  
  7242. set conn1255 [$node1207 getFirstOutConn]
  7243. set segm1256 [$conn1255 getFirstSegm]
  7244.  
  7245. set node1208 [$diag addRake generalization $node1238 $node1231 1392.0 1377.0 1200.0 1536.0 1488.0]
  7246.  
  7247. set conn1257 [$node1208 getInConn]
  7248. set segm1258 [$conn1257 getFirstSegm]
  7249.  
  7250. set conn1259 [$node1208 getFirstOutConn]
  7251. set segm1260 [$conn1259 getFirstSegm]
  7252.  
  7253. set conn1261 [$diag addConn generalization_conn $node1208 $node1218 1392.0 1488.0 1392.0 1552.0]
  7254. set segm1262 [$conn1261 getFirstSegm]
  7255.  
  7256. set conn1263 [$diag addConn generalization_conn $node1208 $node1226 1584.0 1488.0 1584.0 1552.0]
  7257. set segm1264 [$conn1263 getFirstSegm]
  7258.  
  7259. set node1209 [$diag addRake generalization $node1219 $node1227 1936.0 1377.0 1856.0 1536.0 1488.0]
  7260.  
  7261. set conn1265 [$node1209 getInConn]
  7262. set segm1266 [$conn1265 getFirstSegm]
  7263.  
  7264. set conn1267 [$node1209 getFirstOutConn]
  7265. set segm1268 [$conn1267 getFirstSegm]
  7266.  
  7267. set conn1269 [$diag addConn generalization_conn $node1209 $node1232 2000.0 1488.0 2000.0 1536.0]
  7268. set segm1270 [$conn1269 getFirstSegm]
  7269.  
  7270. set node1210 [$diag addRake generalization $node1225 $node1224 944.0 1376.0 864.0 1536.0 1488.0]
  7271.  
  7272. set conn1271 [$node1210 getInConn]
  7273. set segm1272 [$conn1271 getFirstSegm]
  7274.  
  7275. set conn1273 [$node1210 getFirstOutConn]
  7276. set segm1274 [$conn1273 getFirstSegm]
  7277.  
  7278. set conn1275 [$diag addConn generalization_conn $node1210 $node1237 1008.0 1488.0 1008.0 1536.0]
  7279. set segm1276 [$conn1275 getFirstSegm]
  7280.  
  7281. set node1211 [$diag addRake generalization $node1239 $node1238 1392.0 1248.0 1392.0 1376.0 1312.0]
  7282.  
  7283. set conn1277 [$node1211 getInConn]
  7284. set segm1278 [$conn1277 getFirstSegm]
  7285.  
  7286. set conn1279 [$node1211 getFirstOutConn]
  7287. set segm1280 [$conn1279 getFirstSegm]
  7288.  
  7289. set conn1281 [$diag addConn generalization_conn $node1211 $node1236 1584.0 1312.0 1584.0 1360.0]
  7290. set segm1282 [$conn1281 getFirstSegm]
  7291.  
  7292. set conn1283 [$diag addConn generalization_conn $node1211 $node1221 1760.0 1312.0 1760.0 1376.0]
  7293. set segm1284 [$conn1283 getFirstSegm]
  7294.  
  7295. set conn1285 [$diag addConn generalization_conn $node1211 $node1229 1200.0 1312.0 1200.0 1360.0]
  7296. set segm1286 [$conn1285 getFirstSegm]
  7297.  
  7298. set conn1287 [$diag addConn generalization_conn $node1211 $node1225 944.0 1312.0 944.0 1344.0]
  7299. set segm1288 [$conn1287 getFirstSegm]
  7300.  
  7301. set conn1289 [$diag addConn generalization_conn $node1211 $node1219 1936.0 1312.0 1936.0 1376.0]
  7302. set segm1290 [$conn1289 getFirstSegm]
  7303.  
  7304. set conn1291 [$diag addConn generalization_conn $node1211 $node1222 720.0 1312.0 720.0 1360.0]
  7305. set segm1292 [$conn1291 getFirstSegm]
  7306.  
  7307. set node1212 [$diag addRake generalization $node1240 $node1220 1552.0 928.0 1552.0 1057.0 984.0]
  7308.  
  7309. set conn1293 [$node1212 getInConn]
  7310. set segm1294 [$conn1293 getFirstSegm]
  7311.  
  7312. set conn1295 [$node1212 getFirstOutConn]
  7313. set segm1296 [$conn1295 getFirstSegm]
  7314.  
  7315. set node1213 [$diag addRake generalization $node1241 $node1233 1888.0 928.0 1728.0 1040.0 984.0]
  7316.  
  7317. set conn1297 [$node1213 getInConn]
  7318. set segm1298 [$conn1297 getFirstSegm]
  7319.  
  7320. set conn1299 [$node1213 getFirstOutConn]
  7321. set segm1300 [$conn1299 getFirstSegm]
  7322.  
  7323. set conn1301 [$diag addConn generalization_conn $node1213 $node1235 1888.0 984.0 1888.0 1056.0]
  7324. set segm1302 [$conn1301 getFirstSegm]
  7325.  
  7326. set conn1303 [$diag addConn generalization_conn $node1213 $node1242 2048.0 984.0 2048.0 1056.0]
  7327. set segm1304 [$conn1303 getFirstSegm]
  7328.  
  7329. set node1214 [$diag addRake generalization $node1243 $node1228 1296.0 928.0 1296.0 1040.0 984.0]
  7330.  
  7331. set conn1305 [$node1214 getInConn]
  7332. set segm1306 [$conn1305 getFirstSegm]
  7333.  
  7334. set conn1307 [$node1214 getFirstOutConn]
  7335. set segm1308 [$conn1307 getFirstSegm]
  7336.  
  7337. set node1215 [$diag addRake generalization $node1244 $node1217 1072.0 928.0 1072.0 1040.0 984.0]
  7338.  
  7339. set conn1309 [$node1215 getInConn]
  7340. set segm1310 [$conn1309 getFirstSegm]
  7341.  
  7342. set conn1311 [$node1215 getFirstOutConn]
  7343. set segm1312 [$conn1311 getFirstSegm]
  7344.  
  7345. $diag save
  7346.  
  7347. # Generator: et.tcl    /main/titanic/10
  7348. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  7349. # Interpreter to use: Otsh V7.1.1/B5
  7350. #
  7351. OTShRegister::importTool
  7352.  
  7353. set diag [CAD new ClassesClasses "DelphiVCL" "" "" "" "" "" 1]
  7354.  
  7355. set node1323 [$diag addNode cad_class 1728.0 1296.0 128.0 33.0]
  7356. $node1323 setLabel "name" "EStringListError"
  7357. $node1323 setProp "is_folded" "1"
  7358. $node1323 setScope "name" "cl" "scopePhase"
  7359. $node1323 setProp "libunit" "Classes" "name" "cl"
  7360.  
  7361. set node1324 [$diag addNode cad_class 1584.0 1296.0 120.0 33.0]
  7362. $node1324 setLabel "name" "EStreamError"
  7363. $node1324 setProp "is_folded" "1"
  7364. $node1324 setScope "name" "cl" "scopePhase"
  7365. $node1324 setProp "libunit" "Classes" "name" "cl"
  7366.  
  7367. set node1325 [$diag addNode cad_class 1440.0 1296.0 121.0 33.0]
  7368. $node1325 setLabel "name" "EResNotFound"
  7369. $node1325 setProp "is_folded" "1"
  7370. $node1325 setScope "name" "cl" "scopePhase"
  7371. $node1325 setProp "libunit" "Classes" "name" "cl"
  7372.  
  7373. set node1326 [$diag addNode cad_class 1888.0 1504.0 120.0 33.0]
  7374. $node1326 setLabel "name" "EReadError"
  7375. $node1326 setProp "is_folded" "1"
  7376. $node1326 setScope "name" "cl" "scopePhase"
  7377. $node1326 setProp "libunit" "Classes" "name" "cl"
  7378.  
  7379. set node1327 [$diag addNode cad_class 1296.0 1296.0 120.0 33.0]
  7380. $node1327 setLabel "name" "EParserError"
  7381. $node1327 setProp "is_folded" "1"
  7382. $node1327 setScope "name" "cl" "scopePhase"
  7383. $node1327 setProp "libunit" "Classes" "name" "cl"
  7384.  
  7385. set node1328 [$diag addNode cad_class 1152.0 1296.0 120.0 33.0]
  7386. $node1328 setLabel "name" "EListError"
  7387. $node1328 setProp "is_folded" "1"
  7388. $node1328 setScope "name" "cl" "scopePhase"
  7389. $node1328 setProp "libunit" "Classes" "name" "cl"
  7390.  
  7391. set node1329 [$diag addNode cad_class 1600.0 1504.0 120.0 33.0]
  7392. $node1329 setLabel "name" "EInvalidImage"
  7393. $node1329 setProp "is_folded" "1"
  7394. $node1329 setScope "name" "cl" "scopePhase"
  7395. $node1329 setProp "libunit" "Classes" "name" "cl"
  7396.  
  7397. set node1330 [$diag addNode cad_class 1584.0 1392.0 120.0 33.0]
  7398. $node1330 setLabel "name" "EFOpenError"
  7399. $node1330 setProp "is_folded" "1"
  7400. $node1330 setScope "name" "cl" "scopePhase"
  7401. $node1330 setProp "libunit" "Classes" "name" "cl"
  7402.  
  7403. set node1331 [$diag addNode cad_class 1728.0 1392.0 120.0 33.0]
  7404. $node1331 setLabel "name" "EFilerError"
  7405. $node1331 setProp "is_folded" "1"
  7406. $node1331 setScope "name" "cl" "scopePhase"
  7407. $node1331 setProp "libunit" "Classes" "name" "cl"
  7408.  
  7409. set node1332 [$diag addNode cad_class 1440.0 1392.0 120.0 33.0]
  7410. $node1332 setLabel "name" "EFCreateError"
  7411. $node1332 setProp "is_folded" "1"
  7412. $node1332 setScope "name" "cl" "scopePhase"
  7413. $node1332 setProp "libunit" "Classes" "name" "cl"
  7414.  
  7415. set node1333 [$diag addNode cad_class 992.0 1296.0 141.0 33.0]
  7416. $node1333 setLabel "name" "EComponentError"
  7417. $node1333 setProp "is_folded" "1"
  7418. $node1333 setScope "name" "cl" "scopePhase"
  7419. $node1333 setProp "libunit" "Classes" "name" "cl"
  7420.  
  7421. set node1334 [$diag addNode cad_class 1456.0 1504.0 133.0 33.0]
  7422. $node1334 setLabel "name" "EClassNotFound"
  7423. $node1334 setProp "is_folded" "1"
  7424. $node1334 setScope "name" "cl" "scopePhase"
  7425. $node1334 setProp "libunit" "Classes" "name" "cl"
  7426.  
  7427. set node1335 [$diag addNode cad_class 848.0 1296.0 120.0 33.0]
  7428. $node1335 setLabel "name" "EBitsError"
  7429. $node1335 setProp "is_folded" "1"
  7430. $node1335 setScope "name" "cl" "scopePhase"
  7431. $node1335 setProp "libunit" "Classes" "name" "cl"
  7432.  
  7433. set node1336 [$diag addNode cad_class 1184.0 800.0 120.0 33.0]
  7434. $node1336 setLabel "name" "TObject"
  7435. $node1336 setProp "is_folded" "1"
  7436. $node1336 setScope "name" "cl" "scopePhase"
  7437. $node1336 setProp "is_declaration" "1" "name" "cl"
  7438. $node1336 setProp "libunit" "System" "name" "cl"
  7439.  
  7440. set node1337 [$diag addNode cad_class 976.0 992.0 120.0 33.0]
  7441. $node1337 setLabel "name" "TComponent"
  7442. $node1337 setProp "is_folded" "1"
  7443. $node1337 setScope "name" "cl" "scopePhase"
  7444. $node1337 setProp "is_declaration" "1" "name" "cl"
  7445. $node1337 setProp "libunit" "Classes" "name" "cl"
  7446.  
  7447. set node1338 [$diag addNode cad_class 1648.0 992.0 120.0 33.0]
  7448. $node1338 setLabel "name" "TWriter"
  7449. $node1338 setProp "is_folded" "1"
  7450. $node1338 setScope "name" "cl" "scopePhase"
  7451. $node1338 setProp "is_declaration" "1" "name" "cl"
  7452. $node1338 setProp "libunit" "Classes" "name" "cl"
  7453.  
  7454. set node1339 [$diag addNode cad_class 2016.0 896.0 120.0 33.0]
  7455. $node1339 setLabel "name" "TThread"
  7456. $node1339 setProp "is_folded" "1"
  7457. $node1339 setScope "name" "cl" "scopePhase"
  7458. $node1339 setProp "is_declaration" "1" "name" "cl"
  7459. $node1339 setProp "libunit" "Classes" "name" "cl"
  7460.  
  7461. set node1340 [$diag addNode cad_class 1360.0 992.0 120.0 33.0]
  7462. $node1340 setLabel "name" "TStrings"
  7463. $node1340 setProp "is_folded" "1"
  7464. $node1340 setScope "name" "cl" "scopePhase"
  7465. $node1340 setProp "is_declaration" "1" "name" "cl"
  7466. $node1340 setProp "libunit" "Classes" "name" "cl"
  7467.  
  7468. set node1341 [$diag addNode cad_class 1360.0 1104.0 120.0 33.0]
  7469. $node1341 setLabel "name" "TStringList"
  7470. $node1341 setProp "is_folded" "1"
  7471. $node1341 setScope "name" "cl" "scopePhase"
  7472. $node1341 setProp "is_declaration" "1" "name" "cl"
  7473. $node1341 setProp "libunit" "Classes" "name" "cl"
  7474.  
  7475. set node1342 [$diag addNode cad_class 1856.0 896.0 120.0 33.0]
  7476. $node1342 setLabel "name" "TStream"
  7477. $node1342 setProp "is_folded" "1"
  7478. $node1342 setScope "name" "cl" "scopePhase"
  7479. $node1342 setProp "is_declaration" "1" "name" "cl"
  7480. $node1342 setProp "libunit" "Classes" "name" "cl"
  7481.  
  7482. set node1343 [$diag addNode cad_class 2080.0 1088.0 139.0 33.0]
  7483. $node1343 setLabel "name" "TResourceStream"
  7484. $node1343 setProp "is_folded" "1"
  7485. $node1343 setScope "name" "cl" "scopePhase"
  7486. $node1343 setProp "is_declaration" "1" "name" "cl"
  7487. $node1343 setProp "libunit" "Classes" "name" "cl"
  7488.  
  7489. set node1344 [$diag addNode cad_class 1520.0 992.0 120.0 33.0]
  7490. $node1344 setLabel "name" "TReader"
  7491. $node1344 setProp "is_folded" "1"
  7492. $node1344 setScope "name" "cl" "scopePhase"
  7493. $node1344 setProp "is_declaration" "1" "name" "cl"
  7494. $node1344 setProp "libunit" "Classes" "name" "cl"
  7495.  
  7496. set node1345 [$diag addNode cad_class 1184.0 896.0 120.0 33.0]
  7497. $node1345 setLabel "name" "TPersistent"
  7498. $node1345 setProp "is_folded" "1"
  7499. $node1345 setScope "name" "cl" "scopePhase"
  7500. $node1345 setProp "is_declaration" "1" "name" "cl"
  7501. $node1345 setProp "libunit" "Classes" "name" "cl"
  7502.  
  7503. set node1346 [$diag addNode cad_class 1936.0 1088.0 128.0 33.0]
  7504. $node1346 setLabel "name" "TMemoryStream"
  7505. $node1346 setProp "is_folded" "1"
  7506. $node1346 setScope "name" "cl" "scopePhase"
  7507. $node1346 setProp "is_declaration" "1" "name" "cl"
  7508. $node1346 setProp "libunit" "Classes" "name" "cl"
  7509.  
  7510. set node1347 [$diag addNode cad_class 800.0 896.0 120.0 33.0]
  7511. $node1347 setLabel "name" "TList"
  7512. $node1347 setProp "is_folded" "1"
  7513. $node1347 setScope "name" "cl" "scopePhase"
  7514. $node1347 setProp "is_declaration" "1" "name" "cl"
  7515. $node1347 setProp "libunit" "Classes" "name" "cl"
  7516.  
  7517. set node1348 [$diag addNode cad_class 1792.0 992.0 120.0 33.0]
  7518. $node1348 setLabel "name" "THandleStream"
  7519. $node1348 setProp "is_folded" "1"
  7520. $node1348 setScope "name" "cl" "scopePhase"
  7521. $node1348 setProp "is_declaration" "1" "name" "cl"
  7522. $node1348 setProp "libunit" "Classes" "name" "cl"
  7523.  
  7524. set node1349 [$diag addNode cad_class 1792.0 1088.0 120.0 33.0]
  7525. $node1349 setLabel "name" "TFileStream"
  7526. $node1349 setProp "is_folded" "1"
  7527. $node1349 setScope "name" "cl" "scopePhase"
  7528. $node1349 setProp "is_declaration" "1" "name" "cl"
  7529. $node1349 setProp "libunit" "Classes" "name" "cl"
  7530.  
  7531. set node1350 [$diag addNode cad_class 1584.0 896.0 120.0 33.0]
  7532. $node1350 setLabel "name" "TFiler"
  7533. $node1350 setProp "is_folded" "1"
  7534. $node1350 setScope "name" "cl" "scopePhase"
  7535. $node1350 setProp "is_declaration" "1" "name" "cl"
  7536. $node1350 setProp "libunit" "Classes" "name" "cl"
  7537.  
  7538. set node1351 [$diag addNode cad_class 1984.0 992.0 182.0 33.0]
  7539. $node1351 setLabel "name" "TCustomMemoryStream"
  7540. $node1351 setProp "is_folded" "1"
  7541. $node1351 setScope "name" "cl" "scopePhase"
  7542. $node1351 setProp "is_declaration" "1" "name" "cl"
  7543. $node1351 setProp "libunit" "Classes" "name" "cl"
  7544.  
  7545. set node1352 [$diag addNode cad_class 1232.0 992.0 123.0 33.0]
  7546. $node1352 setLabel "name" "TCollectionItem"
  7547. $node1352 setProp "is_folded" "1"
  7548. $node1352 setScope "name" "cl" "scopePhase"
  7549. $node1352 setProp "is_declaration" "1" "name" "cl"
  7550. $node1352 setProp "libunit" "Classes" "name" "cl"
  7551.  
  7552. set node1353 [$diag addNode cad_class 1104.0 992.0 120.0 33.0]
  7553. $node1353 setLabel "name" "TCollection"
  7554. $node1353 setProp "is_folded" "1"
  7555. $node1353 setScope "name" "cl" "scopePhase"
  7556. $node1353 setProp "is_declaration" "1" "name" "cl"
  7557. $node1353 setProp "libunit" "Classes" "name" "cl"
  7558.  
  7559. set node1354 [$diag addNode cad_class 928.0 896.0 120.0 33.0]
  7560. $node1354 setLabel "name" "TBits"
  7561. $node1354 setProp "is_folded" "1"
  7562. $node1354 setScope "name" "cl" "scopePhase"
  7563. $node1354 setProp "is_declaration" "1" "name" "cl"
  7564. $node1354 setProp "libunit" "Classes" "name" "cl"
  7565.  
  7566. set node1355 [$diag addNode cad_class 1728.0 1504.0 147.0 33.0]
  7567. $node1355 setLabel "name" "EMethodNotFound"
  7568. $node1355 setProp "is_folded" "1"
  7569. $node1355 setScope "name" "cl" "scopePhase"
  7570. $node1355 setProp "libunit" "Classes" "name" "cl"
  7571.  
  7572. set node1356 [$diag addNode cad_class 1360.0 1216.0 120.0 33.0]
  7573. $node1356 setLabel "name" "Exception"
  7574. $node1356 setProp "is_folded" "1"
  7575. $node1356 setScope "name" "cl" "scopePhase"
  7576. $node1356 setProp "libunit" "SysUtils" "name" "cl"
  7577.  
  7578. set node1357 [$diag addNode cad_class 2016.0 1504.0 120.0 33.0]
  7579. $node1357 setLabel "name" "EWriteError"
  7580. $node1357 setProp "is_folded" "1"
  7581. $node1357 setScope "name" "cl" "scopePhase"
  7582. $node1357 setProp "libunit" "Classes" "name" "cl"
  7583.  
  7584. set node1358 [$diag addNode cad_class 1872.0 1296.0 120.0 33.0]
  7585. $node1358 setLabel "name" "EThread"
  7586. $node1358 setProp "is_folded" "1"
  7587. $node1358 setScope "name" "cl" "scopePhase"
  7588. $node1358 setProp "libunit" "Classes" "name" "cl"
  7589.  
  7590. set node1313 [$diag addRake generalization $node1345 $node1340 1248.0 928.0 1424.0 1024.0 968.0]
  7591.  
  7592. set conn1359 [$node1313 getInConn]
  7593. set segm1360 [$conn1359 getFirstSegm]
  7594.  
  7595. set conn1361 [$node1313 getFirstOutConn]
  7596. set segm1362 [$conn1361 getFirstSegm]
  7597.  
  7598. set conn1363 [$diag addConn generalization_conn $node1313 $node1352 1296.0 968.0 1296.0 992.0]
  7599. set segm1364 [$conn1363 getFirstSegm]
  7600.  
  7601. set conn1365 [$diag addConn generalization_conn $node1313 $node1353 1168.0 968.0 1168.0 1008.0]
  7602. set segm1366 [$conn1365 getFirstSegm]
  7603.  
  7604. set conn1367 [$diag addConn generalization_conn $node1313 $node1337 1040.0 968.0 1040.0 1008.0]
  7605. set segm1368 [$conn1367 getFirstSegm]
  7606.  
  7607. set node1314 [$diag addRake generalization $node1340 $node1341 1424.0 1024.0 1424.0 1120.0 1072.0]
  7608.  
  7609. set conn1369 [$node1314 getInConn]
  7610. set segm1370 [$conn1369 getFirstSegm]
  7611.  
  7612. set conn1371 [$node1314 getFirstOutConn]
  7613. set segm1372 [$conn1371 getFirstSegm]
  7614.  
  7615. set node1315 [$diag addRake generalization $node1351 $node1343 2080.0 1024.0 2160.0 1104.0 1064.0]
  7616.  
  7617. set conn1373 [$node1315 getInConn]
  7618. set segm1374 [$conn1373 getFirstSegm]
  7619.  
  7620. set conn1375 [$node1315 getFirstOutConn]
  7621. set segm1376 [$conn1375 getFirstSegm]
  7622.  
  7623. set conn1377 [$diag addConn generalization_conn $node1315 $node1346 2000.0 1064.0 2000.0 1104.0]
  7624. set segm1378 [$conn1377 getFirstSegm]
  7625.  
  7626. set node1316 [$diag addRake generalization $node1348 $node1349 1856.0 1024.0 1856.0 1104.0 1064.0]
  7627.  
  7628. set conn1379 [$node1316 getInConn]
  7629. set segm1380 [$conn1379 getFirstSegm]
  7630.  
  7631. set conn1381 [$node1316 getFirstOutConn]
  7632. set segm1382 [$conn1381 getFirstSegm]
  7633.  
  7634. set node1317 [$diag addRake generalization $node1342 $node1351 1920.0 928.0 2080.0 1008.0 968.0]
  7635.  
  7636. set conn1383 [$node1317 getInConn]
  7637. set segm1384 [$conn1383 getFirstSegm]
  7638.  
  7639. set conn1385 [$node1317 getFirstOutConn]
  7640. set segm1386 [$conn1385 getFirstSegm]
  7641.  
  7642. set conn1387 [$diag addConn generalization_conn $node1317 $node1348 1856.0 968.0 1856.0 1008.0]
  7643. set segm1388 [$conn1387 getFirstSegm]
  7644.  
  7645. set node1318 [$diag addRake generalization $node1350 $node1338 1648.0 928.0 1712.0 1008.0 968.0]
  7646.  
  7647. set conn1389 [$node1318 getInConn]
  7648. set segm1390 [$conn1389 getFirstSegm]
  7649.  
  7650. set conn1391 [$node1318 getFirstOutConn]
  7651. set segm1392 [$conn1391 getFirstSegm]
  7652.  
  7653. set conn1393 [$diag addConn generalization_conn $node1318 $node1344 1584.0 968.0 1584.0 1008.0]
  7654. set segm1394 [$conn1393 getFirstSegm]
  7655.  
  7656. set node1319 [$diag addRake generalization $node1336 $node1339 1248.0 832.0 2080.0 912.0 872.0]
  7657.  
  7658. set conn1395 [$node1319 getInConn]
  7659. set segm1396 [$conn1395 getFirstSegm]
  7660.  
  7661. set conn1397 [$node1319 getFirstOutConn]
  7662. set segm1398 [$conn1397 getFirstSegm]
  7663.  
  7664. set conn1399 [$diag addConn generalization_conn $node1319 $node1342 1920.0 872.0 1920.0 912.0]
  7665. set segm1400 [$conn1399 getFirstSegm]
  7666.  
  7667. set conn1401 [$diag addConn generalization_conn $node1319 $node1350 1648.0 872.0 1648.0 912.0]
  7668. set segm1402 [$conn1401 getFirstSegm]
  7669.  
  7670. set conn1403 [$diag addConn generalization_conn $node1319 $node1345 1248.0 872.0 1248.0 912.0]
  7671. set segm1404 [$conn1403 getFirstSegm]
  7672.  
  7673. set conn1405 [$diag addConn generalization_conn $node1319 $node1354 992.0 872.0 992.0 912.0]
  7674. set segm1406 [$conn1405 getFirstSegm]
  7675.  
  7676. set conn1407 [$diag addConn generalization_conn $node1319 $node1347 864.0 872.0 864.0 912.0]
  7677. set segm1408 [$conn1407 getFirstSegm]
  7678.  
  7679. set node1320 [$diag addRake generalization $node1331 $node1357 1792.0 1424.0 2080.0 1520.0 1464.0]
  7680.  
  7681. set conn1409 [$node1320 getInConn]
  7682. set segm1410 [$conn1409 getFirstSegm]
  7683.  
  7684. set conn1411 [$node1320 getFirstOutConn]
  7685. set segm1412 [$conn1411 getFirstSegm]
  7686.  
  7687. set conn1413 [$diag addConn generalization_conn $node1320 $node1326 1968.0 1464.0 1968.0 1520.0]
  7688. set segm1414 [$conn1413 getFirstSegm]
  7689.  
  7690. set conn1415 [$diag addConn generalization_conn $node1320 $node1355 1808.0 1464.0 1808.0 1520.0]
  7691. set segm1416 [$conn1415 getFirstSegm]
  7692.  
  7693. set conn1417 [$diag addConn generalization_conn $node1320 $node1329 1664.0 1464.0 1664.0 1520.0]
  7694. set segm1418 [$conn1417 getFirstSegm]
  7695.  
  7696. set conn1419 [$diag addConn generalization_conn $node1320 $node1334 1520.0 1464.0 1520.0 1520.0]
  7697. set segm1420 [$conn1419 getFirstSegm]
  7698.  
  7699. set node1321 [$diag addRake generalization $node1324 $node1331 1648.0 1328.0 1792.0 1408.0 1360.0]
  7700.  
  7701. set conn1421 [$node1321 getInConn]
  7702. set segm1422 [$conn1421 getFirstSegm]
  7703.  
  7704. set conn1423 [$node1321 getFirstOutConn]
  7705. set segm1424 [$conn1423 getFirstSegm]
  7706.  
  7707. set conn1425 [$diag addConn generalization_conn $node1321 $node1330 1648.0 1360.0 1648.0 1408.0]
  7708. set segm1426 [$conn1425 getFirstSegm]
  7709.  
  7710. set conn1427 [$diag addConn generalization_conn $node1321 $node1332 1504.0 1360.0 1504.0 1392.0]
  7711. set segm1428 [$conn1427 getFirstSegm]
  7712.  
  7713. set node1322 [$diag addRake generalization $node1356 $node1358 1424.0 1248.0 1936.0 1312.0 1272.0]
  7714.  
  7715. set conn1429 [$node1322 getInConn]
  7716. set segm1430 [$conn1429 getFirstSegm]
  7717.  
  7718. set conn1431 [$node1322 getFirstOutConn]
  7719. set segm1432 [$conn1431 getFirstSegm]
  7720.  
  7721. set conn1433 [$diag addConn generalization_conn $node1322 $node1323 1792.0 1272.0 1792.0 1312.0]
  7722. set segm1434 [$conn1433 getFirstSegm]
  7723.  
  7724. set conn1435 [$diag addConn generalization_conn $node1322 $node1324 1648.0 1272.0 1648.0 1312.0]
  7725. set segm1436 [$conn1435 getFirstSegm]
  7726.  
  7727. set conn1437 [$diag addConn generalization_conn $node1322 $node1325 1504.0 1272.0 1504.0 1312.0]
  7728. set segm1438 [$conn1437 getFirstSegm]
  7729.  
  7730. set conn1439 [$diag addConn generalization_conn $node1322 $node1327 1360.0 1272.0 1360.0 1312.0]
  7731. set segm1440 [$conn1439 getFirstSegm]
  7732.  
  7733. set conn1441 [$diag addConn generalization_conn $node1322 $node1328 1216.0 1272.0 1216.0 1312.0]
  7734. set segm1442 [$conn1441 getFirstSegm]
  7735.  
  7736. set conn1443 [$diag addConn generalization_conn $node1322 $node1333 1056.0 1272.0 1056.0 1312.0]
  7737. set segm1444 [$conn1443 getFirstSegm]
  7738.  
  7739. set conn1445 [$diag addConn generalization_conn $node1322 $node1335 912.0 1272.0 912.0 1312.0]
  7740. set segm1446 [$conn1445 getFirstSegm]
  7741.  
  7742. $diag save
  7743.  
  7744. # Generator: et.tcl    /main/titanic/10
  7745. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  7746. # Interpreter to use: Otsh V7.1.1/B5
  7747. #
  7748. OTShRegister::importTool
  7749.  
  7750. set diag [CAD new ExtCtrlsClasses "DelphiVCL" "" "" "" "" "" 1]
  7751.  
  7752. set node1453 [$diag addNode cad_class 1424.0 1232.0 147.0 33.0]
  7753. $node1453 setLabel "name" "TCustomGroupBox"
  7754. $node1453 setProp "is_folded" "1"
  7755. $node1453 setScope "name" "cl" "scopePhase"
  7756. $node1453 setProp "is_declaration" "1" "name" "cl"
  7757. $node1453 setProp "libunit" "ExtCtrls" "name" "cl"
  7758.  
  7759. set node1454 [$diag addNode cad_class 1440.0 1120.0 130.0 33.0]
  7760. $node1454 setLabel "name" "TCustomControl"
  7761. $node1454 setProp "is_folded" "1"
  7762. $node1454 setScope "name" "cl" "scopePhase"
  7763. $node1454 setProp "is_declaration" "1" "name" "cl"
  7764. $node1454 setProp "libunit" "Controls" "name" "cl"
  7765.  
  7766. set node1455 [$diag addNode cad_class 992.0 1008.0 131.0 33.0]
  7767. $node1455 setLabel "name" "TGraphicControl"
  7768. $node1455 setProp "is_folded" "1"
  7769. $node1455 setScope "name" "cl" "scopePhase"
  7770. $node1455 setProp "is_declaration" "1" "name" "cl"
  7771. $node1455 setProp "libunit" "Controls" "name" "cl"
  7772.  
  7773. set node1456 [$diag addNode cad_class 1168.0 688.0 120.0 33.0]
  7774. $node1456 setLabel "name" "TComponent"
  7775. $node1456 setProp "is_folded" "1"
  7776. $node1456 setScope "name" "cl" "scopePhase"
  7777. $node1456 setProp "is_declaration" "1" "name" "cl"
  7778. $node1456 setProp "libunit" "Classes" "name" "cl"
  7779.  
  7780. set node1457 [$diag addNode cad_class 1152.0 768.0 175.0 99.0]
  7781. $node1457 setLabel "name" "TTimer"
  7782. $node1457 setScope "name" "cl" "scopePhase"
  7783. $node1457 setProp "is_declaration" "1" "name" "cl"
  7784. $node1457 setProp "libunit" "ExtCtrls" "name" "cl"
  7785.  
  7786. set node1458 [$diag addNode cad_class 1072.0 1120.0 120.0 195.0]
  7787. $node1458 setLabel "name" "TShape"
  7788. $node1458 setScope "name" "cl" "scopePhase"
  7789. $node1458 setProp "is_declaration" "1" "name" "cl"
  7790. $node1458 setProp "libunit" "ExtCtrls" "name" "cl"
  7791.  
  7792. set node1459 [$diag addNode cad_class 1440.0 1456.0 120.0 195.0]
  7793. $node1459 setLabel "name" "TRadioGroup"
  7794. $node1459 setScope "name" "cl" "scopePhase"
  7795. $node1459 setProp "is_declaration" "1" "name" "cl"
  7796. $node1459 setProp "libunit" "ExtCtrls" "name" "cl"
  7797.  
  7798. set node1460 [$diag addNode cad_class 1232.0 1408.0 120.0 275.0]
  7799. $node1460 setLabel "name" "TPanel"
  7800. $node1460 setScope "name" "cl" "scopePhase"
  7801. $node1460 setProp "is_declaration" "1" "name" "cl"
  7802. $node1460 setProp "libunit" "ExtCtrls" "name" "cl"
  7803.  
  7804. set node1461 [$diag addNode cad_class 896.0 1120.0 162.0 243.0]
  7805. $node1461 setLabel "name" "TPaintBox"
  7806. $node1461 setScope "name" "cl" "scopePhase"
  7807. $node1461 setProp "is_declaration" "1" "name" "cl"
  7808. $node1461 setProp "libunit" "ExtCtrls" "name" "cl"
  7809.  
  7810. set node1462 [$diag addNode cad_class 400.0 1376.0 751.0 243.0]
  7811. $node1462 setLabel "name" "TImage"
  7812. $node1462 setScope "name" "cl" "scopePhase"
  7813. $node1462 setProp "is_declaration" "1" "name" "cl"
  7814. $node1462 setProp "libunit" "ExtCtrls" "name" "cl"
  7815.  
  7816. set node1463 [$diag addNode cad_class 1968.0 1232.0 221.0 275.0]
  7817. $node1463 setLabel "name" "TNotebook"
  7818. $node1463 setScope "name" "cl" "scopePhase"
  7819. $node1463 setProp "is_declaration" "1" "name" "cl"
  7820. $node1463 setProp "libunit" "ExtCtrls" "name" "cl"
  7821.  
  7822. set node1464 [$diag addNode cad_class 1600.0 1232.0 338.0 147.0]
  7823. $node1464 setLabel "name" "THeader"
  7824. $node1464 setScope "name" "cl" "scopePhase"
  7825. $node1464 setProp "is_declaration" "1" "name" "cl"
  7826. $node1464 setProp "libunit" "ExtCtrls" "name" "cl"
  7827.  
  7828. set node1465 [$diag addNode cad_class 1424.0 1344.0 162.0 33.0]
  7829. $node1465 setLabel "name" "TCustomRadioGroup"
  7830. $node1465 setProp "is_folded" "1"
  7831. $node1465 setScope "name" "cl" "scopePhase"
  7832. $node1465 setProp "is_declaration" "1" "name" "cl"
  7833. $node1465 setProp "libunit" "ExtCtrls" "name" "cl"
  7834.  
  7835. set node1466 [$diag addNode cad_class 1232.0 1232.0 185.0 99.0]
  7836. $node1466 setLabel "name" "TCustomPanel"
  7837. $node1466 setScope "name" "cl" "scopePhase"
  7838. $node1466 setProp "is_declaration" "1" "name" "cl"
  7839. $node1466 setProp "libunit" "ExtCtrls" "name" "cl"
  7840.  
  7841. set node1467 [$diag addNode cad_class 464.0 1120.0 120.0 33.0]
  7842. $node1467 setLabel "name" "TBevel"
  7843. $node1467 setProp "is_folded" "1"
  7844. $node1467 setScope "name" "cl" "scopePhase"
  7845.  
  7846. set node1468 [$diag addNode cad_class 608.0 1120.0 175.0 99.0]
  7847. $node1468 setLabel "name" "TSplitter"
  7848. $node1468 setScope "name" "cl" "scopePhase"
  7849. $node1468 setProp "is_declaration" "1" "name" "cl"
  7850. $node1468 setProp "libunit" "ExtCtrls" "name" "cl"
  7851.  
  7852. set node1447 [$diag addRake generalization $node1455 $node1458 1056.0 1040.0 1136.0 1136.0 1080.0]
  7853.  
  7854. set conn1469 [$node1447 getInConn]
  7855. set segm1470 [$conn1469 getFirstSegm]
  7856.  
  7857. set conn1471 [$node1447 getFirstOutConn]
  7858. set segm1472 [$conn1471 getFirstSegm]
  7859.  
  7860. set conn1473 [$diag addConn generalization_conn $node1447 $node1461 960.0 1080.5 960.0 1136.0]
  7861. set segm1474 [$conn1473 getFirstSegm]
  7862.  
  7863. set conn1475 [$diag addConn generalization_conn $node1447 $node1462 832.0 1080.5 832.0 1408.0]
  7864. set segm1476 [$conn1475 getFirstSegm]
  7865.  
  7866. set conn1477 [$diag addConn generalization_conn $node1447 $node1467 528.0 1080.5 528.0 1120.0]
  7867. set segm1478 [$conn1477 getFirstSegm]
  7868.  
  7869. set conn1479 [$diag addConn generalization_conn $node1447 $node1468 656.0 1080.5 688.0 1184.0]
  7870. set segm1480 [$conn1479 getFirstSegm]
  7871.  
  7872. set node1448 [$diag addRake generalization $node1465 $node1459 1504.0 1376.0 1504.0 1472.0 1424.0]
  7873.  
  7874. set conn1481 [$node1448 getInConn]
  7875. set segm1482 [$conn1481 getFirstSegm]
  7876.  
  7877. set conn1483 [$node1448 getFirstOutConn]
  7878. set segm1484 [$conn1483 getFirstSegm]
  7879.  
  7880. set node1449 [$diag addRake generalization $node1466 $node1460 1296.0 1264.0 1296.0 1424.0 1375.5]
  7881.  
  7882. set conn1485 [$node1449 getInConn]
  7883. set segm1486 [$conn1485 getFirstSegm]
  7884.  
  7885. set conn1487 [$node1449 getFirstOutConn]
  7886. set segm1488 [$conn1487 getFirstSegm]
  7887.  
  7888. set node1450 [$diag addRake generalization $node1453 $node1465 1504.0 1264.0 1504.0 1360.0 1312.0]
  7889.  
  7890. set conn1489 [$node1450 getInConn]
  7891. set segm1490 [$conn1489 getFirstSegm]
  7892.  
  7893. set conn1491 [$node1450 getFirstOutConn]
  7894. set segm1492 [$conn1491 getFirstSegm]
  7895.  
  7896. set node1451 [$diag addRake generalization $node1454 $node1463 1504.0 1152.0 2032.0 1232.0 1192.0]
  7897.  
  7898. set conn1493 [$node1451 getInConn]
  7899. set segm1494 [$conn1493 getFirstSegm]
  7900.  
  7901. set conn1495 [$node1451 getFirstOutConn]
  7902. set segm1496 [$conn1495 getFirstSegm]
  7903.  
  7904. set conn1497 [$diag addConn generalization_conn $node1451 $node1464 1664.0 1192.5 1664.0 1248.0]
  7905. set segm1498 [$conn1497 getFirstSegm]
  7906.  
  7907. set conn1499 [$diag addConn generalization_conn $node1451 $node1466 1296.0 1192.5 1296.0 1232.0]
  7908. set segm1500 [$conn1499 getFirstSegm]
  7909.  
  7910. set node1452 [$diag addRake generalization $node1456 $node1457 1232.0 720.0 1232.0 816.0 751.5]
  7911.  
  7912. set conn1501 [$node1452 getInConn]
  7913. set segm1502 [$conn1501 getFirstSegm]
  7914.  
  7915. set conn1503 [$node1452 getFirstOutConn]
  7916. set segm1504 [$conn1503 getFirstSegm]
  7917.  
  7918. $diag save
  7919.  
  7920. # Generator: et.tcl    /main/titanic/10
  7921. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  7922. # Interpreter to use: Otsh V7.1.1/B5
  7923. #
  7924. OTShRegister::importTool
  7925.  
  7926. set diag [CAD new DBClasses "DelphiVCL" "" "" "" "" "" 1]
  7927.  
  7928. set node1510 [$diag addNode cad_class 1280.0 32.0 120.0 33.0]
  7929. $node1510 setLabel "name" "Exception"
  7930. $node1510 setProp "is_folded" "1"
  7931. $node1510 setScope "name" "cl" "scopePhase"
  7932. $node1510 setProp "libunit" "SysUtils" "name" "cl"
  7933.  
  7934. set node1511 [$diag addNode cad_class 1280.0 144.0 125.0 33.0]
  7935. $node1511 setLabel "name" "EDatabaseError"
  7936. $node1511 setProp "is_folded" "1"
  7937. $node1511 setScope "name" "cl" "scopePhase"
  7938. $node1511 setProp "libunit" "Other" "name" "cl"
  7939. $node1511 setProp "userlib" "DB" "name" "cl"
  7940.  
  7941. set node1512 [$diag addNode cad_class 624.0 592.0 120.0 33.0]
  7942. $node1512 setLabel "name" "TDataLink"
  7943. $node1512 setProp "is_folded" "1"
  7944. $node1512 setScope "name" "cl" "scopePhase"
  7945. $node1512 setProp "is_declaration" "1" "name" "cl"
  7946. $node1512 setProp "libunit" "Other" "name" "cl"
  7947. $node1512 setProp "userlib" "DB" "name" "cl"
  7948.  
  7949. set node1513 [$diag addNode cad_class 624.0 480.0 120.0 33.0]
  7950. $node1513 setLabel "name" "TPersistent"
  7951. $node1513 setProp "is_folded" "1"
  7952. $node1513 setScope "name" "cl" "scopePhase"
  7953. $node1513 setProp "is_declaration" "1" "name" "cl"
  7954. $node1513 setProp "libunit" "Classes" "name" "cl"
  7955.  
  7956. set node1514 [$diag addNode cad_class 784.0 208.0 174.0 33.0]
  7957. $node1514 setLabel "name" "TDataSetUpdateObject"
  7958. $node1514 setProp "is_folded" "1"
  7959. $node1514 setScope "name" "cl" "scopePhase"
  7960. $node1514 setProp "is_declaration" "1" "name" "cl"
  7961. $node1514 setProp "libunit" "Other" "name" "cl"
  7962. $node1514 setProp "userlib" "DB" "name" "cl"
  7963.  
  7964. set node1515 [$diag addNode cad_class 944.0 96.0 120.0 33.0]
  7965. $node1515 setLabel "name" "TComponent"
  7966. $node1515 setProp "is_folded" "1"
  7967. $node1515 setScope "name" "cl" "scopePhase"
  7968. $node1515 setProp "is_declaration" "1" "name" "cl"
  7969. $node1515 setProp "libunit" "Classes" "name" "cl"
  7970.  
  7971. set node1516 [$diag addNode cad_class 1056.0 208.0 723.0 451.0]
  7972. $node1516 setLabel "name" "TDataSet"
  7973. $node1516 setScope "name" "cl" "scopePhase"
  7974. $node1516 setProp "is_declaration" "1" "name" "cl"
  7975. $node1516 setProp "libunit" "Other" "name" "cl"
  7976. $node1516 setProp "userlib" "DB" "name" "cl"
  7977.  
  7978. set node1517 [$diag addNode cad_class 1264.0 736.0 120.0 33.0]
  7979. $node1517 setLabel "name" "TDBDataSet"
  7980. $node1517 setProp "is_folded" "1"
  7981. $node1517 setScope "name" "cl" "scopePhase"
  7982. $node1517 setProp "is_declaration" "1" "name" "cl"
  7983. $node1517 setProp "libunit" "Other" "name" "cl"
  7984. $node1517 setProp "userlib" "DB" "name" "cl"
  7985.  
  7986. set node1518 [$diag addNode cad_class 1552.0 896.0 346.0 99.0]
  7987. $node1518 setLabel "name" "TDataBase"
  7988. $node1518 setScope "name" "cl" "scopePhase"
  7989. $node1518 setProp "is_declaration" "1" "name" "cl"
  7990. $node1518 setProp "libunit" "Other" "name" "cl"
  7991. $node1518 setProp "userlib" "DB" "name" "cl"
  7992.  
  7993. set node1519 [$diag addNode cad_class 1232.0 896.0 294.0 131.0]
  7994. $node1519 setLabel "name" "TDataSource"
  7995. $node1519 setScope "name" "cl" "scopePhase"
  7996. $node1519 setProp "is_declaration" "1" "name" "cl"
  7997. $node1519 setProp "libunit" "Other" "name" "cl"
  7998. $node1519 setProp "userlib" "DB" "name" "cl"
  7999.  
  8000. set node1520 [$diag addNode cad_class 1040.0 800.0 120.0 33.0]
  8001. $node1520 setLabel "name" "TComponent"
  8002. $node1520 setProp "is_folded" "1"
  8003. $node1520 setScope "name" "cl" "scopePhase"
  8004. $node1520 setProp "is_declaration" "1" "name" "cl"
  8005. $node1520 setProp "libunit" "Classes" "name" "cl"
  8006.  
  8007. set node1521 [$diag addNode cad_class 864.0 896.0 320.0 131.0]
  8008. $node1521 setLabel "name" "TSession"
  8009. $node1521 setScope "name" "cl" "scopePhase"
  8010. $node1521 setProp "is_declaration" "1" "name" "cl"
  8011. $node1521 setProp "libunit" "Other" "name" "cl"
  8012. $node1521 setProp "userlib" "DB" "name" "cl"
  8013.  
  8014. set node1522 [$diag addNode cad_class 432.0 896.0 387.0 147.0]
  8015. $node1522 setLabel "name" "TField"
  8016. $node1522 setScope "name" "cl" "scopePhase"
  8017. $node1522 setProp "is_declaration" "1" "name" "cl"
  8018. $node1522 setProp "libunit" "Other" "name" "cl"
  8019. $node1522 setProp "userlib" "DB" "name" "cl"
  8020.  
  8021. set node1505 [$diag addRake generalization $node1510 $node1511 1344.0 64.0 1344.0 160.0 112.0]
  8022.  
  8023. set conn1523 [$node1505 getInConn]
  8024. set segm1524 [$conn1523 getFirstSegm]
  8025.  
  8026. set conn1525 [$node1505 getFirstOutConn]
  8027. set segm1526 [$conn1525 getFirstSegm]
  8028.  
  8029. set node1506 [$diag addRake generalization $node1513 $node1512 688.0 512.0 688.0 608.0 560.0]
  8030.  
  8031. set conn1527 [$node1506 getInConn]
  8032. set segm1528 [$conn1527 getFirstSegm]
  8033.  
  8034. set conn1529 [$node1506 getFirstOutConn]
  8035. set segm1530 [$conn1529 getFirstSegm]
  8036.  
  8037. set node1507 [$diag addRake generalization $node1515 $node1514 1008.0 128.0 880.0 224.0 175.5]
  8038.  
  8039. set conn1531 [$node1507 getInConn]
  8040. set segm1532 [$conn1531 getFirstSegm]
  8041.  
  8042. set conn1533 [$node1507 getFirstOutConn]
  8043. set segm1534 [$conn1533 getFirstSegm]
  8044.  
  8045. set conn1535 [$diag addConn generalization_conn $node1507 $node1516 1120.0 175.5 1120.0 224.0]
  8046. set segm1536 [$conn1535 getFirstSegm]
  8047.  
  8048. set node1508 [$diag addRake generalization $node1516 $node1517 1328.0 656.0 1328.0 768.0 703.5]
  8049.  
  8050. set conn1537 [$node1508 getInConn]
  8051. set segm1538 [$conn1537 getFirstSegm]
  8052.  
  8053. set conn1539 [$node1508 getFirstOutConn]
  8054. set segm1540 [$conn1539 getFirstSegm]
  8055.  
  8056. set node1509 [$diag addRake generalization $node1520 $node1518 1104.0 832.0 1616.0 912.0 872.0]
  8057.  
  8058. set conn1541 [$node1509 getInConn]
  8059. set segm1542 [$conn1541 getFirstSegm]
  8060.  
  8061. set conn1543 [$node1509 getFirstOutConn]
  8062. set segm1544 [$conn1543 getFirstSegm]
  8063.  
  8064. set conn1545 [$diag addConn generalization_conn $node1509 $node1519 1296.0 872.0 1296.0 896.0]
  8065. set segm1546 [$conn1545 getFirstSegm]
  8066.  
  8067. set conn1547 [$diag addConn generalization_conn $node1509 $node1521 928.0 872.0 928.0 912.0]
  8068. set segm1548 [$conn1547 getFirstSegm]
  8069.  
  8070. set conn1549 [$diag addConn generalization_conn $node1509 $node1522 496.0 872.0 496.0 912.0]
  8071. set segm1550 [$conn1549 getFirstSegm]
  8072.  
  8073. $diag save
  8074.  
  8075. # Generator: et.tcl    /main/titanic/10
  8076. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8077. # Interpreter to use: Otsh V7.1.1/B5
  8078. #
  8079. OTShRegister::importTool
  8080.  
  8081. set diag [CAD new ControlsClasses "DelphiVCL" "" "" "" "" "" 1]
  8082.  
  8083. set node1560 [$diag addNode cad_class 1536.0 800.0 120.0 33.0]
  8084. $node1560 setLabel "name" "TObject"
  8085. $node1560 setProp "is_folded" "1"
  8086. $node1560 setScope "name" "cl" "scopePhase"
  8087. $node1560 setProp "is_declaration" "1" "name" "cl"
  8088. $node1560 setProp "libunit" "System" "name" "cl"
  8089.  
  8090. set node1561 [$diag addNode cad_class 1232.0 896.0 120.0 33.0]
  8091. $node1561 setLabel "name" "TCanvas"
  8092. $node1561 setProp "is_folded" "1"
  8093. $node1561 setScope "name" "cl" "scopePhase"
  8094. $node1561 setProp "is_declaration" "1" "name" "cl"
  8095. $node1561 setProp "libunit" "Other" "name" "cl"
  8096. $node1561 setProp "userlib" "Graphics" "name" "cl"
  8097.  
  8098. set node1562 [$diag addNode cad_class 1232.0 768.0 120.0 33.0]
  8099. $node1562 setLabel "name" "TPersistent"
  8100. $node1562 setProp "is_folded" "1"
  8101. $node1562 setScope "name" "cl" "scopePhase"
  8102. $node1562 setProp "is_declaration" "1" "name" "cl"
  8103. $node1562 setProp "libunit" "Classes" "name" "cl"
  8104.  
  8105. set node1563 [$diag addNode cad_class 288.0 736.0 179.0 99.0]
  8106. $node1563 setLabel "name" "TCustomImageList"
  8107. $node1563 setScope "name" "cl" "scopePhase"
  8108. $node1563 setProp "is_declaration" "1" "name" "cl"
  8109. $node1563 setProp "libunit" "Controls" "name" "cl"
  8110.  
  8111. set node1564 [$diag addNode cad_class 480.0 624.0 120.0 33.0]
  8112. $node1564 setLabel "name" "TComponent"
  8113. $node1564 setProp "is_folded" "1"
  8114. $node1564 setScope "name" "cl" "scopePhase"
  8115. $node1564 setProp "is_declaration" "1" "name" "cl"
  8116. $node1564 setProp "libunit" "Classes" "name" "cl"
  8117.  
  8118. set node1565 [$diag addNode cad_class 1536.0 896.0 120.0 33.0]
  8119. $node1565 setLabel "name" "TDragObject"
  8120. $node1565 setProp "is_folded" "1"
  8121. $node1565 setScope "name" "cl" "scopePhase"
  8122.  
  8123. set node1566 [$diag addNode cad_class 1520.0 992.0 156.0 33.0]
  8124. $node1566 setLabel "name" "TDragControlObject"
  8125. $node1566 setProp "is_folded" "1"
  8126. $node1566 setScope "name" "cl" "scopePhase"
  8127.  
  8128. set node1567 [$diag addNode cad_class 1696.0 896.0 120.0 33.0]
  8129. $node1567 setLabel "name" "TChangeLink"
  8130. $node1567 setProp "is_folded" "1"
  8131. $node1567 setScope "name" "cl" "scopePhase"
  8132. $node1567 setProp "is_declaration" "1" "name" "cl"
  8133. $node1567 setProp "libunit" "Controls" "name" "cl"
  8134.  
  8135. set node1568 [$diag addNode cad_class 656.0 1104.0 368.0 163.0]
  8136. $node1568 setLabel "name" "TWinControl"
  8137. $node1568 setScope "name" "cl" "scopePhase"
  8138. $node1568 setProp "is_declaration" "1" "name" "cl"
  8139. $node1568 setProp "libunit" "Controls" "name" "cl"
  8140.  
  8141. set node1569 [$diag addNode cad_class 288.0 912.0 120.0 99.0]
  8142. $node1569 setLabel "name" "TImageList"
  8143. $node1569 setScope "name" "cl" "scopePhase"
  8144. $node1569 setProp "is_declaration" "1" "name" "cl"
  8145. $node1569 setProp "libunit" "Controls" "name" "cl"
  8146.  
  8147. set node1570 [$diag addNode cad_class 784.0 1472.0 120.0 33.0]
  8148. $node1570 setLabel "name" "THintWindow"
  8149. $node1570 setProp "is_folded" "1"
  8150. $node1570 setScope "name" "cl" "scopePhase"
  8151. $node1570 setProp "is_declaration" "1" "name" "cl"
  8152. $node1570 setProp "libunit" "Controls" "name" "cl"
  8153.  
  8154. set node1571 [$diag addNode cad_class 1200.0 1088.0 131.0 33.0]
  8155. $node1571 setLabel "name" "TGraphicControl"
  8156. $node1571 setProp "is_folded" "1"
  8157. $node1571 setScope "name" "cl" "scopePhase"
  8158. $node1571 setProp "is_declaration" "1" "name" "cl"
  8159. $node1571 setProp "libunit" "Controls" "name" "cl"
  8160.  
  8161. set node1572 [$diag addNode cad_class 784.0 1360.0 130.0 33.0]
  8162. $node1572 setLabel "name" "TCustomControl"
  8163. $node1572 setProp "is_folded" "1"
  8164. $node1572 setScope "name" "cl" "scopePhase"
  8165. $node1572 setProp "is_declaration" "1" "name" "cl"
  8166. $node1572 setProp "libunit" "Controls" "name" "cl"
  8167.  
  8168. set node1573 [$diag addNode cad_class 1232.0 992.0 128.0 33.0]
  8169. $node1573 setLabel "name" "TControlCanvas"
  8170. $node1573 setProp "is_folded" "1"
  8171. $node1573 setScope "name" "cl" "scopePhase"
  8172. $node1573 setProp "is_declaration" "1" "name" "cl"
  8173. $node1573 setProp "libunit" "Controls" "name" "cl"
  8174.  
  8175. set node1574 [$diag addNode cad_class 496.0 736.0 588.0 227.0]
  8176. $node1574 setLabel "name" "TControl"
  8177. $node1574 setScope "name" "cl" "scopePhase"
  8178. $node1574 setProp "is_declaration" "1" "name" "cl"
  8179. $node1574 setProp "libunit" "Controls" "name" "cl"
  8180.  
  8181. set node1551 [$diag addRake generalization $node1563 $node1569 352.0 832.0 352.0 928.0 879.5]
  8182.  
  8183. set conn1575 [$node1551 getInConn]
  8184. set segm1576 [$conn1575 getFirstSegm]
  8185.  
  8186. set conn1577 [$node1551 getFirstOutConn]
  8187. set segm1578 [$conn1577 getFirstSegm]
  8188.  
  8189. set node1552 [$diag addRake generalization $node1561 $node1573 1296.0 928.0 1296.0 1008.0 968.0]
  8190.  
  8191. set conn1579 [$node1552 getInConn]
  8192. set segm1580 [$conn1579 getFirstSegm]
  8193.  
  8194. set conn1581 [$node1552 getFirstOutConn]
  8195. set segm1582 [$conn1581 getFirstSegm]
  8196.  
  8197. set node1553 [$diag addRake generalization $node1564 $node1574 544.0 657.0 800.0 752.0 703.5]
  8198.  
  8199. set conn1583 [$node1553 getInConn]
  8200. set segm1584 [$conn1583 getFirstSegm]
  8201.  
  8202. set conn1585 [$node1553 getFirstOutConn]
  8203. set segm1586 [$conn1585 getFirstSegm]
  8204.  
  8205. set conn1587 [$diag addConn generalization_conn $node1553 $node1563 352.0 703.5 352.0 752.0]
  8206. set segm1588 [$conn1587 getFirstSegm]
  8207.  
  8208. set node1554 [$diag addRake generalization $node1565 $node1566 1600.0 928.0 1600.0 1008.0 968.0]
  8209.  
  8210. set conn1589 [$node1554 getInConn]
  8211. set segm1590 [$conn1589 getFirstSegm]
  8212.  
  8213. set conn1591 [$node1554 getFirstOutConn]
  8214. set segm1592 [$conn1591 getFirstSegm]
  8215.  
  8216. set node1555 [$diag addRake generalization $node1560 $node1567 1600.0 832.0 1760.0 928.0 872.0]
  8217.  
  8218. set conn1593 [$node1555 getInConn]
  8219. set segm1594 [$conn1593 getFirstSegm]
  8220.  
  8221. set conn1595 [$node1555 getFirstOutConn]
  8222. set segm1596 [$conn1595 getFirstSegm]
  8223.  
  8224. set conn1597 [$diag addConn generalization_conn $node1555 $node1565 1600.0 872.0 1600.0 912.0]
  8225. set segm1598 [$conn1597 getFirstSegm]
  8226.  
  8227. set node1556 [$diag addRake generalization $node1572 $node1570 848.0 1392.0 848.0 1488.0 1439.5]
  8228.  
  8229. set conn1599 [$node1556 getInConn]
  8230. set segm1600 [$conn1599 getFirstSegm]
  8231.  
  8232. set conn1601 [$node1556 getFirstOutConn]
  8233. set segm1602 [$conn1601 getFirstSegm]
  8234.  
  8235. set node1557 [$diag addRake generalization $node1568 $node1572 848.0 1264.0 848.0 1376.0 1327.5]
  8236.  
  8237. set conn1603 [$node1557 getInConn]
  8238. set segm1604 [$conn1603 getFirstSegm]
  8239.  
  8240. set conn1605 [$node1557 getFirstOutConn]
  8241. set segm1606 [$conn1605 getFirstSegm]
  8242.  
  8243. set node1558 [$diag addRake generalization $node1574 $node1571 1008.0 960.0 1264.0 1104.0 1064.0]
  8244.  
  8245. set conn1607 [$node1558 getInConn]
  8246. set segm1608 [$conn1607 getFirstSegm]
  8247.  
  8248. set conn1609 [$node1558 getFirstOutConn]
  8249. set segm1610 [$conn1609 getFirstSegm]
  8250.  
  8251. set conn1611 [$diag addConn generalization_conn $node1558 $node1568 848.0 1064.0 848.0 1136.0]
  8252. set segm1612 [$conn1611 getFirstSegm]
  8253.  
  8254. set node1559 [$diag addRake generalization $node1562 $node1561 1296.0 800.0 1296.0 912.0 863.5]
  8255.  
  8256. set conn1613 [$node1559 getInConn]
  8257. set segm1614 [$conn1613 getFirstSegm]
  8258.  
  8259. set conn1615 [$node1559 getFirstOutConn]
  8260. set segm1616 [$conn1615 getFirstSegm]
  8261.  
  8262. $diag save
  8263.  
  8264. # Generator: et.tcl    /main/titanic/10
  8265. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8266. # Interpreter to use: Otsh V7.1.1/B5
  8267. #
  8268. OTShRegister::importTool
  8269.  
  8270. set diag [CAD new FormsClasses "DelphiVCL" "" "" "" "" "" 1]
  8271.  
  8272. set node1622 [$diag addNode cad_class 1776.0 800.0 184.0 115.0]
  8273. $node1622 setLabel "name" "TDataModule"
  8274. $node1622 setScope "name" "cl" "scopePhase"
  8275. $node1622 setProp "is_declaration" "1" "name" "cl"
  8276. $node1622 setProp "libunit" "Forms" "name" "cl"
  8277.  
  8278. set node1623 [$diag addNode cad_class 1072.0 736.0 120.0 33.0]
  8279. $node1623 setLabel "name" "TDesigner"
  8280. $node1623 setProp "is_folded" "1"
  8281. $node1623 setScope "name" "cl" "scopePhase"
  8282.  
  8283. set node1624 [$diag addNode cad_class 1072.0 624.0 120.0 33.0]
  8284. $node1624 setLabel "name" "TObject"
  8285. $node1624 setProp "is_folded" "1"
  8286. $node1624 setScope "name" "cl" "scopePhase"
  8287. $node1624 setProp "is_declaration" "1" "name" "cl"
  8288. $node1624 setProp "libunit" "System" "name" "cl"
  8289.  
  8290. set node1625 [$diag addNode cad_class 1088.0 1328.0 173.0 259.0]
  8291. $node1625 setLabel "name" "TScrollBox"
  8292. $node1625 setScope "name" "cl" "scopePhase"
  8293. $node1625 setProp "is_declaration" "1" "name" "cl"
  8294. $node1625 setProp "libunit" "Forms" "name" "cl"
  8295.  
  8296. set node1626 [$diag addNode cad_class 1488.0 800.0 268.0 115.0]
  8297. $node1626 setLabel "name" "TScreen"
  8298. $node1626 setScope "name" "cl" "scopePhase"
  8299. $node1626 setProp "is_declaration" "1" "name" "cl"
  8300. $node1626 setProp "libunit" "Forms" "name" "cl"
  8301.  
  8302. set node1627 [$diag addNode cad_class 800.0 1664.0 120.0 403.0]
  8303. $node1627 setLabel "name" "TForm"
  8304. $node1627 setScope "name" "cl" "scopePhase"
  8305. $node1627 setProp "is_declaration" "1" "name" "cl"
  8306. $node1627 setProp "libunit" "Forms" "name" "cl"
  8307.  
  8308. set node1628 [$diag addNode cad_class 1008.0 1200.0 166.0 33.0]
  8309. $node1628 setLabel "name" "TScrollingWinControl"
  8310. $node1628 setProp "is_folded" "1"
  8311. $node1628 setScope "name" "cl" "scopePhase"
  8312. $node1628 setProp "is_declaration" "1" "name" "cl"
  8313. $node1628 setProp "libunit" "Forms" "name" "cl"
  8314.  
  8315. set node1629 [$diag addNode cad_class 912.0 736.0 141.0 33.0]
  8316. $node1629 setLabel "name" "TControlScrollBar"
  8317. $node1629 setProp "is_folded" "1"
  8318. $node1629 setScope "name" "cl" "scopePhase"
  8319.  
  8320. set node1630 [$diag addNode cad_class 1120.0 800.0 360.0 195.0]
  8321. $node1630 setLabel "name" "TApplication"
  8322. $node1630 setScope "name" "cl" "scopePhase"
  8323. $node1630 setProp "is_declaration" "1" "name" "cl"
  8324. $node1630 setProp "libunit" "Forms" "name" "cl"
  8325.  
  8326. set node1631 [$diag addNode cad_class 1024.0 1104.0 120.0 33.0]
  8327. $node1631 setLabel "name" "TWinControl"
  8328. $node1631 setProp "is_folded" "1"
  8329. $node1631 setScope "name" "cl" "scopePhase"
  8330. $node1631 setProp "is_declaration" "1" "name" "cl"
  8331. $node1631 setProp "libunit" "Controls" "name" "cl"
  8332.  
  8333. set node1632 [$diag addNode cad_class 928.0 624.0 120.0 33.0]
  8334. $node1632 setLabel "name" "TPersistent"
  8335. $node1632 setProp "is_folded" "1"
  8336. $node1632 setScope "name" "cl" "scopePhase"
  8337. $node1632 setProp "is_declaration" "1" "name" "cl"
  8338. $node1632 setProp "libunit" "Classes" "name" "cl"
  8339.  
  8340. set node1633 [$diag addNode cad_class 1408.0 624.0 120.0 33.0]
  8341. $node1633 setLabel "name" "TComponent"
  8342. $node1633 setProp "is_folded" "1"
  8343. $node1633 setScope "name" "cl" "scopePhase"
  8344. $node1633 setProp "is_declaration" "1" "name" "cl"
  8345. $node1633 setProp "libunit" "Classes" "name" "cl"
  8346.  
  8347. set node1635 [$diag addNode cad_class 736.0 1328.0 319.0 227.0]
  8348. $node1635 setLabel "name" "TCustomForm"
  8349. $node1635 setScope "name" "cl" "scopePhase"
  8350.  
  8351. set node1617 [$diag addRake generalization $node1624 $node1623 1136.0 656.0 1136.0 752.0 703.5]
  8352.  
  8353. set conn1636 [$node1617 getInConn]
  8354. set segm1637 [$conn1636 getFirstSegm]
  8355.  
  8356. set conn1638 [$node1617 getFirstOutConn]
  8357. set segm1639 [$conn1638 getFirstSegm]
  8358.  
  8359. set node1618 [$diag addRake generalization $node1628 $node1625 1088.0 1233.0 1152.0 1344.0 1279.5]
  8360.  
  8361. set conn1640 [$node1618 getInConn]
  8362. set segm1641 [$conn1640 getFirstSegm]
  8363.  
  8364. set conn1642 [$node1618 getFirstOutConn]
  8365. set segm1643 [$conn1642 getFirstSegm]
  8366.  
  8367. set conn1644 [$diag addConn generalization_conn $node1618 $node1635 880.0 1280.0 800.0 1360.0]
  8368. set segm1645 [$conn1644 getFirstSegm]
  8369.  
  8370. set node1619 [$diag addRake generalization $node1631 $node1628 1088.0 1136.0 1088.0 1216.0 1167.5]
  8371.  
  8372. set conn1646 [$node1619 getInConn]
  8373. set segm1647 [$conn1646 getFirstSegm]
  8374.  
  8375. set conn1648 [$node1619 getFirstOutConn]
  8376. set segm1649 [$conn1648 getFirstSegm]
  8377.  
  8378. set node1620 [$diag addRake generalization $node1632 $node1629 992.0 656.0 992.0 752.0 703.5]
  8379.  
  8380. set conn1650 [$node1620 getInConn]
  8381. set segm1651 [$conn1650 getFirstSegm]
  8382.  
  8383. set conn1652 [$node1620 getFirstOutConn]
  8384. set segm1653 [$conn1652 getFirstSegm]
  8385.  
  8386. set node1621 [$diag addRake generalization $node1633 $node1622 1472.0 656.0 1856.0 816.0 751.5]
  8387.  
  8388. set conn1654 [$node1621 getInConn]
  8389. set segm1655 [$conn1654 getFirstSegm]
  8390.  
  8391. set conn1656 [$node1621 getFirstOutConn]
  8392. set segm1657 [$conn1656 getFirstSegm]
  8393.  
  8394. set conn1658 [$diag addConn generalization_conn $node1621 $node1626 1568.0 752.0 1568.0 816.0]
  8395. set segm1659 [$conn1658 getFirstSegm]
  8396.  
  8397. set conn1660 [$diag addConn generalization_conn $node1621 $node1630 1296.0 752.0 1296.0 816.0]
  8398. set segm1661 [$conn1660 getFirstSegm]
  8399.  
  8400. set node1634 [$diag addRake generalization $node1635 $node1627 880.0 1552.0 880.0 1728.0 1624.0]
  8401.  
  8402. set conn1662 [$node1634 getInConn]
  8403. set segm1663 [$conn1662 getFirstSegm]
  8404.  
  8405. set conn1664 [$node1634 getFirstOutConn]
  8406. set segm1665 [$conn1664 getFirstSegm]
  8407.  
  8408. $diag save
  8409.  
  8410. # Generator: et.tcl    /main/titanic/10
  8411. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8412. # Interpreter to use: Otsh V7.1.1/B5
  8413. #
  8414. OTShRegister::importTool
  8415.  
  8416. set diag [CAD new ButtonsClasses "DelphiVCL" "" "" "" "" "" 1]
  8417.  
  8418. set node1668 [$diag addNode cad_class 768.0 768.0 120.0 163.0]
  8419. $node1668 setLabel "name" "TSpeedButton"
  8420. $node1668 setScope "name" "cl" "scopePhase"
  8421. $node1668 setProp "is_declaration" "1" "name" "cl"
  8422. $node1668 setProp "libunit" "Other" "name" "cl"
  8423. $node1668 setProp "userlib" "Buttons" "name" "cl"
  8424.  
  8425. set node1669 [$diag addNode cad_class 768.0 656.0 131.0 33.0]
  8426. $node1669 setLabel "name" "TGraphicControl"
  8427. $node1669 setProp "is_folded" "1"
  8428. $node1669 setScope "name" "cl" "scopePhase"
  8429. $node1669 setProp "is_declaration" "1" "name" "cl"
  8430. $node1669 setProp "libunit" "Controls" "name" "cl"
  8431.  
  8432. set node1670 [$diag addNode cad_class 560.0 656.0 120.0 33.0]
  8433. $node1670 setLabel "name" "TButton"
  8434. $node1670 setProp "is_folded" "1"
  8435. $node1670 setScope "name" "cl" "scopePhase"
  8436. $node1670 setProp "is_declaration" "1" "name" "cl"
  8437. $node1670 setProp "libunit" "StdCtrls" "name" "cl"
  8438.  
  8439. set node1671 [$diag addNode cad_class 560.0 768.0 120.0 115.0]
  8440. $node1671 setLabel "name" "TBitBtn"
  8441. $node1671 setScope "name" "cl" "scopePhase"
  8442. $node1671 setProp "is_declaration" "1" "name" "cl"
  8443. $node1671 setProp "libunit" "Other" "name" "cl"
  8444. $node1671 setProp "userlib" "Buttons" "name" "cl"
  8445.  
  8446. set node1666 [$diag addRake generalization $node1669 $node1668 832.0 688.0 832.0 784.0 735.5]
  8447.  
  8448. set conn1672 [$node1666 getInConn]
  8449. set segm1673 [$conn1672 getFirstSegm]
  8450.  
  8451. set conn1674 [$node1666 getFirstOutConn]
  8452. set segm1675 [$conn1674 getFirstSegm]
  8453.  
  8454. set node1667 [$diag addRake generalization $node1670 $node1671 624.0 688.0 624.0 768.0 728.0]
  8455.  
  8456. set conn1676 [$node1667 getInConn]
  8457. set segm1677 [$conn1676 getFirstSegm]
  8458.  
  8459. set conn1678 [$node1667 getFirstOutConn]
  8460. set segm1679 [$conn1678 getFirstSegm]
  8461.  
  8462. $diag save
  8463.  
  8464. # Generator: et.tcl    /main/titanic/10
  8465. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8466. # Interpreter to use: Otsh V7.1.1/B5
  8467. #
  8468. OTShRegister::importTool
  8469.  
  8470. set diag [CAD new StdCtrlsClasses "DelphiVCL" "" "" "" "" "" 1]
  8471.  
  8472. set node1692 [$diag addNode cad_class 800.0 976.0 418.0 275.0]
  8473. $node1692 setLabel "name" "TScrollBar"
  8474. $node1692 setScope "name" "cl" "scopePhase"
  8475. $node1692 setProp "is_declaration" "1" "name" "cl"
  8476. $node1692 setProp "libunit" "StdCtrls" "name" "cl"
  8477.  
  8478. set node1693 [$diag addNode cad_class 2384.0 1040.0 120.0 307.0]
  8479. $node1693 setLabel "name" "TRadioButton"
  8480. $node1693 setScope "name" "cl" "scopePhase"
  8481. $node1693 setProp "is_declaration" "1" "name" "cl"
  8482. $node1693 setProp "libunit" "StdCtrls" "name" "cl"
  8483.  
  8484. set node1694 [$diag addNode cad_class 1440.0 1136.0 120.0 323.0]
  8485. $node1694 setLabel "name" "TMemo"
  8486. $node1694 setScope "name" "cl" "scopePhase"
  8487. $node1694 setProp "is_declaration" "1" "name" "cl"
  8488. $node1694 setProp "libunit" "StdCtrls" "name" "cl"
  8489.  
  8490. set node1695 [$diag addNode cad_class 1776.0 1040.0 120.0 339.0]
  8491. $node1695 setLabel "name" "TListBox"
  8492. $node1695 setScope "name" "cl" "scopePhase"
  8493. $node1695 setProp "is_declaration" "1" "name" "cl"
  8494. $node1695 setProp "libunit" "StdCtrls" "name" "cl"
  8495.  
  8496. set node1696 [$diag addNode cad_class 3376.0 1088.0 120.0 227.0]
  8497. $node1696 setLabel "name" "TLabel"
  8498. $node1696 setScope "name" "cl" "scopePhase"
  8499. $node1696 setProp "is_declaration" "1" "name" "cl"
  8500. $node1696 setProp "libunit" "StdCtrls" "name" "cl"
  8501.  
  8502. set node1697 [$diag addNode cad_class 3120.0 1088.0 120.0 259.0]
  8503. $node1697 setLabel "name" "TGroupBox"
  8504. $node1697 setScope "name" "cl" "scopePhase"
  8505. $node1697 setProp "is_declaration" "1" "name" "cl"
  8506. $node1697 setProp "libunit" "StdCtrls" "name" "cl"
  8507.  
  8508. set node1698 [$diag addNode cad_class 1584.0 1040.0 120.0 307.0]
  8509. $node1698 setLabel "name" "TEdit"
  8510. $node1698 setScope "name" "cl" "scopePhase"
  8511. $node1698 setProp "is_declaration" "1" "name" "cl"
  8512. $node1698 setProp "libunit" "StdCtrls" "name" "cl"
  8513.  
  8514. set node1699 [$diag addNode cad_class 1440.0 1040.0 120.0 33.0]
  8515. $node1699 setLabel "name" "TCustomMemo"
  8516. $node1699 setProp "is_folded" "1"
  8517. $node1699 setScope "name" "cl" "scopePhase"
  8518. $node1699 setProp "is_declaration" "1" "name" "cl"
  8519.  
  8520. set node1700 [$diag addNode cad_class 1776.0 944.0 128.0 33.0]
  8521. $node1700 setLabel "name" "TCustomListBox"
  8522. $node1700 setProp "is_folded" "1"
  8523. $node1700 setScope "name" "cl" "scopePhase"
  8524. $node1700 setProp "is_declaration" "1" "name" "cl"
  8525. $node1700 setProp "libunit" "StdCtrls" "name" "cl"
  8526.  
  8527. set node1701 [$diag addNode cad_class 3376.0 976.0 120.0 33.0]
  8528. $node1701 setLabel "name" "TCustomLabel"
  8529. $node1701 setProp "is_folded" "1"
  8530. $node1701 setScope "name" "cl" "scopePhase"
  8531. $node1701 setProp "is_declaration" "1" "name" "cl"
  8532. $node1701 setProp "libunit" "StdCtrls" "name" "cl"
  8533.  
  8534. set node1702 [$diag addNode cad_class 1504.0 880.0 168.0 99.0]
  8535. $node1702 setLabel "name" "TCustomEdit"
  8536. $node1702 setScope "name" "cl" "scopePhase"
  8537. $node1702 setProp "is_declaration" "1" "name" "cl"
  8538. $node1702 setProp "libunit" "StdCtrls" "name" "cl"
  8539.  
  8540. set node1703 [$diag addNode cad_class 2512.0 944.0 503.0 147.0]
  8541. $node1703 setLabel "name" "TCustomComboBox"
  8542. $node1703 setScope "name" "cl" "scopePhase"
  8543. $node1703 setProp "is_declaration" "1" "name" "cl"
  8544. $node1703 setProp "libunit" "StdCtrls" "name" "cl"
  8545.  
  8546. set node1704 [$diag addNode cad_class 2160.0 1040.0 147.0 33.0]
  8547. $node1704 setLabel "name" "TCustomCheckBox"
  8548. $node1704 setProp "is_folded" "1"
  8549. $node1704 setScope "name" "cl" "scopePhase"
  8550. $node1704 setProp "is_declaration" "1" "name" "cl"
  8551. $node1704 setProp "libunit" "StdCtrls" "name" "cl"
  8552.  
  8553. set node1705 [$diag addNode cad_class 2704.0 1216.0 120.0 323.0]
  8554. $node1705 setLabel "name" "TComboBox"
  8555. $node1705 setScope "name" "cl" "scopePhase"
  8556. $node1705 setProp "is_declaration" "1" "name" "cl"
  8557. $node1705 setProp "libunit" "StdCtrls" "name" "cl"
  8558.  
  8559. set node1706 [$diag addNode cad_class 2176.0 1136.0 120.0 291.0]
  8560. $node1706 setLabel "name" "TCheckBox"
  8561. $node1706 setScope "name" "cl" "scopePhase"
  8562. $node1706 setProp "is_declaration" "1" "name" "cl"
  8563. $node1706 setProp "libunit" "StdCtrls" "name" "cl"
  8564.  
  8565. set node1707 [$diag addNode cad_class 2176.0 944.0 123.0 33.0]
  8566. $node1707 setLabel "name" "TButtonControl"
  8567. $node1707 setProp "is_folded" "1"
  8568. $node1707 setScope "name" "cl" "scopePhase"
  8569. $node1707 setProp "is_declaration" "1" "name" "cl"
  8570. $node1707 setProp "libunit" "StdCtrls" "name" "cl"
  8571.  
  8572. set node1708 [$diag addNode cad_class 1968.0 1040.0 120.0 291.0]
  8573. $node1708 setLabel "name" "TButton"
  8574. $node1708 setScope "name" "cl" "scopePhase"
  8575. $node1708 setProp "is_declaration" "1" "name" "cl"
  8576. $node1708 setProp "libunit" "StdCtrls" "name" "cl"
  8577.  
  8578. set node1709 [$diag addNode cad_class 3376.0 864.0 131.0 33.0]
  8579. $node1709 setLabel "name" "TGraphicControl"
  8580. $node1709 setProp "is_folded" "1"
  8581. $node1709 setScope "name" "cl" "scopePhase"
  8582. $node1709 setProp "is_declaration" "1" "name" "cl"
  8583. $node1709 setProp "libunit" "Controls" "name" "cl"
  8584.  
  8585. set node1710 [$diag addNode cad_class 3120.0 864.0 130.0 33.0]
  8586. $node1710 setLabel "name" "TCustomControl"
  8587. $node1710 setProp "is_folded" "1"
  8588. $node1710 setScope "name" "cl" "scopePhase"
  8589. $node1710 setProp "is_declaration" "1" "name" "cl"
  8590. $node1710 setProp "libunit" "Controls" "name" "cl"
  8591.  
  8592. set node1711 [$diag addNode cad_class 3104.0 976.0 147.0 33.0]
  8593. $node1711 setLabel "name" "TCustomGroupBox"
  8594. $node1711 setProp "is_folded" "1"
  8595. $node1711 setScope "name" "cl" "scopePhase"
  8596. $node1711 setProp "is_declaration" "1" "name" "cl"
  8597. $node1711 setProp "libunit" "ExtCtrls" "name" "cl"
  8598.  
  8599. set node1712 [$diag addNode cad_class 2176.0 800.0 120.0 33.0]
  8600. $node1712 setLabel "name" "TWinControl"
  8601. $node1712 setProp "is_folded" "1"
  8602. $node1712 setScope "name" "cl" "scopePhase"
  8603. $node1712 setProp "is_declaration" "1" "name" "cl"
  8604. $node1712 setProp "libunit" "Controls" "name" "cl"
  8605.  
  8606. set node1713 [$diag addNode cad_class 544.0 1104.0 120.0 227.0]
  8607. $node1713 setLabel "name" "TStaticText"
  8608. $node1713 setScope "name" "cl" "scopePhase"
  8609. $node1713 setProp "is_declaration" "1" "name" "cl"
  8610. $node1713 setProp "libunit" "StdCtrls" "name" "cl"
  8611.  
  8612. set node1714 [$diag addNode cad_class 528.0 976.0 145.0 56.0]
  8613. $node1714 setLabel "name" "TCustomStaticText"
  8614. $node1714 setProp "is_folded" "1"
  8615. $node1714 setScope "name" "cl" "scopePhase"
  8616. $node1714 setProp "is_declaration" "1" "name" "cl"
  8617. $node1714 setProp "libunit" "StdCtrls" "name" "cl"
  8618.  
  8619. set node1680 [$diag addRake generalization $node1701 $node1696 3440.0 1008.0 3440.0 1104.0 1055.5]
  8620.  
  8621. set conn1715 [$node1680 getInConn]
  8622. set segm1716 [$conn1715 getFirstSegm]
  8623.  
  8624. set conn1717 [$node1680 getFirstOutConn]
  8625. set segm1718 [$conn1717 getFirstSegm]
  8626.  
  8627. set node1681 [$diag addRake generalization $node1709 $node1701 3440.0 896.0 3440.0 992.0 943.5]
  8628.  
  8629. set conn1719 [$node1681 getInConn]
  8630. set segm1720 [$conn1719 getFirstSegm]
  8631.  
  8632. set conn1721 [$node1681 getFirstOutConn]
  8633. set segm1722 [$conn1721 getFirstSegm]
  8634.  
  8635. set node1682 [$diag addRake generalization $node1699 $node1694 1504.0 1072.0 1504.0 1152.0 1112.0]
  8636.  
  8637. set conn1723 [$node1682 getInConn]
  8638. set segm1724 [$conn1723 getFirstSegm]
  8639.  
  8640. set conn1725 [$node1682 getFirstOutConn]
  8641. set segm1726 [$conn1725 getFirstSegm]
  8642.  
  8643. set node1683 [$diag addRake generalization $node1702 $node1698 1568.0 912.0 1648.0 1056.0 1016.0]
  8644.  
  8645. set conn1727 [$node1683 getInConn]
  8646. set segm1728 [$conn1727 getFirstSegm]
  8647.  
  8648. set conn1729 [$node1683 getFirstOutConn]
  8649. set segm1730 [$conn1729 getFirstSegm]
  8650.  
  8651. set conn1731 [$diag addConn generalization_conn $node1683 $node1699 1504.0 1016.0 1504.0 1056.0]
  8652. set segm1732 [$conn1731 getFirstSegm]
  8653.  
  8654. set node1684 [$diag addRake generalization $node1700 $node1695 1840.0 976.0 1840.0 1056.0 1016.0]
  8655.  
  8656. set conn1733 [$node1684 getInConn]
  8657. set segm1734 [$conn1733 getFirstSegm]
  8658.  
  8659. set conn1735 [$node1684 getFirstOutConn]
  8660. set segm1736 [$conn1735 getFirstSegm]
  8661.  
  8662. set node1685 [$diag addRake generalization $node1704 $node1706 2240.0 1072.0 2240.0 1152.0 1112.0]
  8663.  
  8664. set conn1737 [$node1685 getInConn]
  8665. set segm1738 [$conn1737 getFirstSegm]
  8666.  
  8667. set conn1739 [$node1685 getFirstOutConn]
  8668. set segm1740 [$conn1739 getFirstSegm]
  8669.  
  8670. set node1686 [$diag addRake generalization $node1707 $node1693 2240.0 976.0 2448.0 1072.0 1016.0]
  8671.  
  8672. set conn1741 [$node1686 getInConn]
  8673. set segm1742 [$conn1741 getFirstSegm]
  8674.  
  8675. set conn1743 [$node1686 getFirstOutConn]
  8676. set segm1744 [$conn1743 getFirstSegm]
  8677.  
  8678. set conn1745 [$diag addConn generalization_conn $node1686 $node1704 2240.0 1016.0 2240.0 1056.0]
  8679. set segm1746 [$conn1745 getFirstSegm]
  8680.  
  8681. set conn1747 [$diag addConn generalization_conn $node1686 $node1708 2032.0 1016.0 2032.0 1056.0]
  8682. set segm1748 [$conn1747 getFirstSegm]
  8683.  
  8684. set node1687 [$diag addRake generalization $node1711 $node1697 3184.0 1008.0 3184.0 1104.0 1055.5]
  8685.  
  8686. set conn1749 [$node1687 getInConn]
  8687. set segm1750 [$conn1749 getFirstSegm]
  8688.  
  8689. set conn1751 [$node1687 getFirstOutConn]
  8690. set segm1752 [$conn1751 getFirstSegm]
  8691.  
  8692. set node1688 [$diag addRake generalization $node1710 $node1711 3184.0 896.0 3184.0 992.0 943.5]
  8693.  
  8694. set conn1753 [$node1688 getInConn]
  8695. set segm1754 [$conn1753 getFirstSegm]
  8696.  
  8697. set conn1755 [$node1688 getFirstOutConn]
  8698. set segm1756 [$conn1755 getFirstSegm]
  8699.  
  8700. set node1689 [$diag addRake generalization $node1703 $node1705 2768.0 1088.0 2768.0 1232.0 1151.5]
  8701.  
  8702. set conn1757 [$node1689 getInConn]
  8703. set segm1758 [$conn1757 getFirstSegm]
  8704.  
  8705. set conn1759 [$node1689 getFirstOutConn]
  8706. set segm1760 [$conn1759 getFirstSegm]
  8707.  
  8708. set node1690 [$diag addRake generalization $node1712 $node1714 2240.0 832.0 608.0 1024.0 863.5]
  8709.  
  8710. set conn1761 [$node1690 getInConn]
  8711. set segm1762 [$conn1761 getFirstSegm]
  8712.  
  8713. set conn1763 [$node1690 getFirstOutConn]
  8714. set segm1764 [$conn1763 getFirstSegm]
  8715.  
  8716. set conn1765 [$diag addConn generalization_conn $node1690 $node1692 1008.0 863.5 1008.0 992.0]
  8717. set segm1766 [$conn1765 getFirstSegm]
  8718.  
  8719. set conn1767 [$diag addConn generalization_conn $node1690 $node1702 1568.0 863.5 1568.0 896.0]
  8720. set segm1768 [$conn1767 getFirstSegm]
  8721.  
  8722. set conn1769 [$diag addConn generalization_conn $node1690 $node1703 2784.0 863.5 2784.0 960.0]
  8723. set segm1770 [$conn1769 getFirstSegm]
  8724.  
  8725. set conn1771 [$diag addConn generalization_conn $node1690 $node1700 1840.0 863.5 1840.0 944.0]
  8726. set segm1772 [$conn1771 getFirstSegm]
  8727.  
  8728. set conn1773 [$diag addConn generalization_conn $node1690 $node1707 2240.0 863.5 2240.0 960.0]
  8729. set segm1774 [$conn1773 getFirstSegm]
  8730.  
  8731. set node1691 [$diag addRake generalization $node1714 $node1713 608.0 1032.0 608.0 1120.0 1071.5]
  8732.  
  8733. set conn1775 [$node1691 getInConn]
  8734. set segm1776 [$conn1775 getFirstSegm]
  8735.  
  8736. set conn1777 [$node1691 getFirstOutConn]
  8737. set segm1778 [$conn1777 getFirstSegm]
  8738.  
  8739. $diag save
  8740.  
  8741. # Generator: et.tcl    /main/titanic/10
  8742. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8743. # Interpreter to use: Otsh V7.1.1/B5
  8744. #
  8745. OTShRegister::importTool
  8746.  
  8747. set diag [CDM new TFindDialog "DelphiVCL" "" "" "" "" "" 1]
  8748.  
  8749. set row1779 [$diag addRow method 0.0]
  8750. $row1779 setLabel "name_type" "Find()"
  8751. $row1779 setProp "has_parmlist" "1"
  8752. $row1779 setProp "is_event" "1"
  8753. $row1779 setProp "method_access" "Published"
  8754.  
  8755. set cell1780 [$row1779 addCell parameter 0.0]
  8756. $cell1780 setLabel "name_type" "Sender: TObject"
  8757. $cell1780 setScope "name_type" "cl" "scopePhase"
  8758. $cell1780 setProp "is_declaration" "1" "name_type" "cl"
  8759. $cell1780 setProp "libunit" "System" "name_type" "cl"
  8760. $cell1780 setScope "name_type" "de" "scopeFile"
  8761.  
  8762. $diag save
  8763.  
  8764. # Generator: et.tcl    /main/titanic/10
  8765. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8766. # Interpreter to use: Otsh V7.1.1/B5
  8767. #
  8768. OTShRegister::importTool
  8769.  
  8770. set diag [CDM new TReplaceDialog "DelphiVCL" "" "" "" "" "" 1]
  8771.  
  8772. set row1781 [$diag addRow method 0.0]
  8773. $row1781 setLabel "name_type" "Replace()"
  8774. $row1781 setProp "has_parmlist" "1"
  8775. $row1781 setProp "is_event" "1"
  8776. $row1781 setProp "method_access" "Published"
  8777.  
  8778. set cell1782 [$row1781 addCell parameter 0.0]
  8779. $cell1782 setLabel "name_type" "Sender: TObject"
  8780. $cell1782 setScope "name_type" "cl" "scopePhase"
  8781. $cell1782 setProp "is_declaration" "1" "name_type" "cl"
  8782. $cell1782 setProp "libunit" "System" "name_type" "cl"
  8783. $cell1782 setScope "name_type" "de" "scopeFile"
  8784.  
  8785. $diag save
  8786.  
  8787. # Generator: et.tcl    /main/titanic/10
  8788. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8789. # Interpreter to use: Otsh V7.1.1/B5
  8790. #
  8791. OTShRegister::importTool
  8792.  
  8793. set diag [CDM new TFontDialog "DelphiVCL" "" "" "" "" "" 1]
  8794.  
  8795. set row1783 [$diag addRow method 0.0]
  8796. $row1783 setLabel "name_type" "Apply()"
  8797. $row1783 setProp "has_parmlist" "1"
  8798. $row1783 setProp "is_event" "1"
  8799. $row1783 setProp "method_access" "Published"
  8800.  
  8801. set cell1784 [$row1783 addCell parameter 0.0]
  8802. $cell1784 setLabel "name_type" "Sender: TObject, "
  8803. $cell1784 setScope "name_type" "cl" "scopePhase"
  8804. $cell1784 setProp "is_declaration" "1" "name_type" "cl"
  8805. $cell1784 setProp "libunit" "System" "name_type" "cl"
  8806. $cell1784 setScope "name_type" "de" "scopeFile"
  8807.  
  8808. set cell1785 [$row1783 addCell parameter 0.0]
  8809. $cell1785 setLabel "name_type" "Wnd: HWND"
  8810. $cell1785 setScope "name_type" "cl" "scopePhase"
  8811. $cell1785 setProp "libunit" "System" "name_type" "cl"
  8812. $cell1785 setScope "name_type" "de" "scopeFile"
  8813.  
  8814. $diag save
  8815.  
  8816. # Generator: et.tcl    /main/titanic/10
  8817. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8818. # Interpreter to use: Otsh V7.1.1/B5
  8819. #
  8820. OTShRegister::importTool
  8821.  
  8822. set diag [CDM new TObject "DelphiVCL" "" "" "" "" "" 1]
  8823.  
  8824. $diag save
  8825.  
  8826. # Generator: et.tcl    /main/titanic/10
  8827. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8828. # Interpreter to use: Otsh V7.1.1/B5
  8829. #
  8830. OTShRegister::importTool
  8831.  
  8832. set diag [CAD new ClassDict "DelphiVCL" "" "" "" "" "" 1]
  8833.  
  8834. set node1786 [$diag addNode cad_class 864.0 704.0 123.0 119.0]
  8835. $node1786 setLabel "name" "TClassDictElem"
  8836. $node1786 setScope "name" "cl" "scopePhase"
  8837. $node1786 setProp "libunit" "Other" "name" "cl"
  8838. $node1786 setProp "userlib" "ClassDict" "name" "cl"
  8839.  
  8840. set node1787 [$diag addNode cad_class 512.0 704.0 212.0 231.0]
  8841. $node1787 setLabel "name" "TClassDict"
  8842. $node1787 setScope "name" "cl" "scopePhase"
  8843. $node1787 setProp "libunit" "Other" "name" "cl"
  8844. $node1787 setProp "userlib" "ClassDict" "name" "cl"
  8845.  
  8846. set conn1788 [$diag addConn association $node1787 $node1786 720.0 768.0 880.0 768.0]
  8847. $conn1788 setLabel "role_end" "elem"
  8848. $conn1788 setProp "mult_kind_end" "many"
  8849. $conn1788 setProp "mult_kind_start" "optional"
  8850. set segm1789 [$conn1788 getFirstSegm]
  8851.  
  8852. $diag save
  8853.  
  8854. # Generator: et.tcl    /main/titanic/10
  8855. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8856. # Interpreter to use: Otsh V7.1.1/B5
  8857. #
  8858. OTShRegister::importTool
  8859.  
  8860. set diag [CDM new TScreen "DelphiVCL" "" "" "" "" "" 1]
  8861.  
  8862. set row1790 [$diag addRow method 0.0]
  8863. $row1790 setLabel "name_type" "ActiveControlChange()\n"
  8864. $row1790 setProp "has_parmlist" "1"
  8865. $row1790 setProp "is_event" "1"
  8866. $row1790 setProp "method_access" "Published"
  8867.  
  8868. set cell1791 [$row1790 addCell parameter 0.0]
  8869. $cell1791 setLabel "name_type" "Sender: TObject"
  8870. $cell1791 setScope "name_type" "cl" "scopePhase"
  8871. $cell1791 setProp "is_declaration" "1" "name_type" "cl"
  8872. $cell1791 setProp "libunit" "System" "name_type" "cl"
  8873. $cell1791 setScope "name_type" "de" "scopeFile"
  8874.  
  8875. set row1792 [$diag addRow method 0.0]
  8876. $row1792 setLabel "name_type" "ActiveFormChange()"
  8877. $row1792 setProp "has_parmlist" "1"
  8878. $row1792 setProp "is_event" "1"
  8879. $row1792 setProp "method_access" "Published"
  8880.  
  8881. set cell1793 [$row1792 addCell parameter 0.0]
  8882. $cell1793 setLabel "name_type" "Sender: TObject"
  8883. $cell1793 setScope "name_type" "cl" "scopePhase"
  8884. $cell1793 setProp "is_declaration" "1" "name_type" "cl"
  8885. $cell1793 setProp "libunit" "System" "name_type" "cl"
  8886. $cell1793 setScope "name_type" "de" "scopeFile"
  8887.  
  8888. $diag save
  8889.  
  8890. # Generator: et.tcl    /main/titanic/10
  8891. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  8892. # Interpreter to use: Otsh V7.1.1/B5
  8893. #
  8894. OTShRegister::importTool
  8895.  
  8896. set diag [CDM new TApplication "DelphiVCL" "" "" "" "" "" 1]
  8897.  
  8898. set row1794 [$diag addRow method 0.0]
  8899. $row1794 setLabel "name_type" "Activate()\n"
  8900. $row1794 setProp "has_parmlist" "1"
  8901. $row1794 setProp "is_event" "1"
  8902. $row1794 setProp "method_access" "Published"
  8903.  
  8904. set cell1795 [$row1794 addCell parameter 0.0]
  8905. $cell1795 setLabel "name_type" "Sender: TObject"
  8906. $cell1795 setScope "name_type" "cl" "scopePhase"
  8907. $cell1795 setProp "is_declaration" "1" "name_type" "cl"
  8908. $cell1795 setProp "libunit" "System" "name_type" "cl"
  8909. $cell1795 setScope "name_type" "de" "scopeFile"
  8910.  
  8911. set row1796 [$diag addRow method 0.0]
  8912. $row1796 setLabel "name_type" "Deactivate()\n"
  8913. $row1796 setProp "has_parmlist" "1"
  8914. $row1796 setProp "is_event" "1"
  8915. $row1796 setProp "method_access" "Published"
  8916.  
  8917. set cell1797 [$row1796 addCell parameter 0.0]
  8918. $cell1797 setLabel "name_type" "Sender: TObject"
  8919. $cell1797 setScope "name_type" "cl" "scopePhase"
  8920. $cell1797 setProp "is_declaration" "1" "name_type" "cl"
  8921. $cell1797 setProp "libunit" "System" "name_type" "cl"
  8922. $cell1797 setScope "name_type" "de" "scopeFile"
  8923.  
  8924. set row1798 [$diag addRow method 0.0]
  8925. $row1798 setLabel "name_type" "Exception()\n"
  8926. $row1798 setProp "has_parmlist" "1"
  8927. $row1798 setProp "is_event" "1"
  8928. $row1798 setProp "method_access" "Published"
  8929.  
  8930. set cell1799 [$row1798 addCell parameter 0.0]
  8931. $cell1799 setLabel "name_type" "Sender: TObject, "
  8932. $cell1799 setScope "name_type" "cl" "scopePhase"
  8933. $cell1799 setProp "is_declaration" "1" "name_type" "cl"
  8934. $cell1799 setProp "libunit" "System" "name_type" "cl"
  8935. $cell1799 setScope "name_type" "de" "scopeFile"
  8936.  
  8937. set cell1800 [$row1798 addCell parameter 0.0]
  8938. $cell1800 setLabel "name_type" "E: Exception"
  8939. $cell1800 setScope "name_type" "cl" "scopePhase"
  8940. $cell1800 setProp "libunit" "SysUtils" "name_type" "cl"
  8941. $cell1800 setScope "name_type" "de" "scopeFile"
  8942.  
  8943. set row1801 [$diag addRow method 0.0]
  8944. $row1801 setLabel "name_type" "Help()\n"
  8945. $row1801 setProp "has_parmlist" "1"
  8946. $row1801 setProp "is_event" "1"
  8947. $row1801 setProp "method_access" "Published"
  8948.  
  8949. set cell1802 [$row1801 addCell parameter 0.0]
  8950. $cell1802 setLabel "name_type" "Command: word, "
  8951. $cell1802 setScope "name_type" "cl" "scopePhase"
  8952. $cell1802 setScope "name_type" "de" "scopeFile"
  8953.  
  8954. set cell1803 [$row1801 addCell parameter 0.0]
  8955. $cell1803 setLabel "name_type" "Data: longint, "
  8956. $cell1803 setScope "name_type" "cl" "scopePhase"
  8957. $cell1803 setScope "name_type" "de" "scopeFile"
  8958.  
  8959. set cell1804 [$row1801 addCell parameter 0.0]
  8960. $cell1804 setLabel "name_type" "CallHelp: boolean"
  8961. $cell1804 setProp "pass_by" "Variable"
  8962. $cell1804 setScope "name_type" "cl" "scopePhase"
  8963. $cell1804 setScope "name_type" "de" "scopeFile"
  8964.  
  8965. set row1805 [$diag addRow method 0.0]
  8966. $row1805 setLabel "name_type" "Hint()\n"
  8967. $row1805 setProp "has_parmlist" "1"
  8968. $row1805 setProp "is_event" "1"
  8969. $row1805 setProp "method_access" "Published"
  8970.  
  8971. set cell1806 [$row1805 addCell parameter 0.0]
  8972. $cell1806 setLabel "name_type" "Sender: TObject"
  8973. $cell1806 setScope "name_type" "cl" "scopePhase"
  8974. $cell1806 setProp "is_declaration" "1" "name_type" "cl"
  8975. $cell1806 setProp "libunit" "System" "name_type" "cl"
  8976. $cell1806 setScope "name_type" "de" "scopeFile"
  8977.  
  8978. set row1807 [$diag addRow method 0.0]
  8979. $row1807 setLabel "name_type" "Idle()\n"
  8980. $row1807 setProp "has_parmlist" "1"
  8981. $row1807 setProp "is_event" "1"
  8982. $row1807 setProp "method_access" "Published"
  8983.  
  8984. set cell1808 [$row1807 addCell parameter 0.0]
  8985. $cell1808 setLabel "name_type" "Sender: TObject, "
  8986. $cell1808 setScope "name_type" "cl" "scopePhase"
  8987. $cell1808 setProp "is_declaration" "1" "name_type" "cl"
  8988. $cell1808 setProp "libunit" "System" "name_type" "cl"
  8989. $cell1808 setScope "name_type" "de" "scopeFile"
  8990.  
  8991. set cell1809 [$row1807 addCell parameter 0.0]
  8992. $cell1809 setLabel "name_type" "Done: boolean"
  8993. $cell1809 setProp "pass_by" "Variable"
  8994. $cell1809 setScope "name_type" "cl" "scopePhase"
  8995. $cell1809 setScope "name_type" "de" "scopeFile"
  8996.  
  8997. set row1810 [$diag addRow method 0.0]
  8998. $row1810 setLabel "name_type" "Message()"
  8999. $row1810 setProp "has_parmlist" "1"
  9000. $row1810 setProp "is_event" "1"
  9001. $row1810 setProp "method_access" "Published"
  9002.  
  9003. set cell1811 [$row1810 addCell parameter 0.0]
  9004. $cell1811 setLabel "name_type" "Msg: TMsg, "
  9005. $cell1811 setProp "pass_by" "Variable"
  9006. $cell1811 setScope "name_type" "cl" "scopePhase"
  9007. $cell1811 setProp "libunit" "Forms" "name_type" "cl"
  9008. $cell1811 setScope "name_type" "de" "scopeFile"
  9009.  
  9010. set cell1812 [$row1810 addCell parameter 0.0]
  9011. $cell1812 setLabel "name_type" "Handled: boolean"
  9012. $cell1812 setProp "pass_by" "Variable"
  9013. $cell1812 setScope "name_type" "cl" "scopePhase"
  9014. $cell1812 setScope "name_type" "de" "scopeFile"
  9015.  
  9016. $diag save
  9017.  
  9018. # Generator: et.tcl    /main/titanic/10
  9019. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9020. # Interpreter to use: Otsh V7.1.1/B5
  9021. #
  9022. OTShRegister::importTool
  9023.  
  9024. set diag [CDM new TEdit "DelphiVCL" "" "" "" "" "" 1]
  9025.  
  9026. set row1813 [$diag addRow method 0.0]
  9027. $row1813 setLabel "name_type" "Change()\n"
  9028. $row1813 setProp "has_parmlist" "1"
  9029. $row1813 setProp "is_event" "1"
  9030. $row1813 setProp "method_access" "Published"
  9031.  
  9032. set row1814 [$diag addRow method 0.0]
  9033. $row1814 setLabel "name_type" "DblClick()\n"
  9034. $row1814 setProp "has_parmlist" "1"
  9035. $row1814 setProp "is_event" "1"
  9036. $row1814 setProp "method_access" "Published"
  9037.  
  9038. set row1815 [$diag addRow method 0.0]
  9039. $row1815 setLabel "name_type" "DragDrop()\n"
  9040. $row1815 setProp "has_parmlist" "1"
  9041. $row1815 setProp "is_event" "1"
  9042. $row1815 setProp "method_access" "Published"
  9043.  
  9044. set row1816 [$diag addRow method 0.0]
  9045. $row1816 setLabel "name_type" "DragOver()\n"
  9046. $row1816 setProp "has_parmlist" "1"
  9047. $row1816 setProp "is_event" "1"
  9048. $row1816 setProp "method_access" "Published"
  9049.  
  9050. set row1817 [$diag addRow method 0.0]
  9051. $row1817 setLabel "name_type" "EndDrag()\n"
  9052. $row1817 setProp "has_parmlist" "1"
  9053. $row1817 setProp "is_event" "1"
  9054. $row1817 setProp "method_access" "Published"
  9055.  
  9056. set row1818 [$diag addRow method 0.0]
  9057. $row1818 setLabel "name_type" "Enter()\n"
  9058. $row1818 setProp "has_parmlist" "1"
  9059. $row1818 setProp "is_event" "1"
  9060. $row1818 setProp "method_access" "Published"
  9061.  
  9062. set row1819 [$diag addRow method 0.0]
  9063. $row1819 setLabel "name_type" "Exit()\n"
  9064. $row1819 setProp "has_parmlist" "1"
  9065. $row1819 setProp "is_event" "1"
  9066. $row1819 setProp "method_access" "Published"
  9067.  
  9068. set row1820 [$diag addRow method 0.0]
  9069. $row1820 setLabel "name_type" "KeyDown()\n"
  9070. $row1820 setProp "has_parmlist" "1"
  9071. $row1820 setProp "is_event" "1"
  9072. $row1820 setProp "method_access" "Published"
  9073.  
  9074. set row1821 [$diag addRow method 0.0]
  9075. $row1821 setLabel "name_type" "KeyPress()\n"
  9076. $row1821 setProp "has_parmlist" "1"
  9077. $row1821 setProp "is_event" "1"
  9078. $row1821 setProp "method_access" "Published"
  9079.  
  9080. set row1822 [$diag addRow method 0.0]
  9081. $row1822 setLabel "name_type" "KeyUp()\n"
  9082. $row1822 setProp "has_parmlist" "1"
  9083. $row1822 setProp "is_event" "1"
  9084. $row1822 setProp "method_access" "Published"
  9085.  
  9086. set row1823 [$diag addRow method 0.0]
  9087. $row1823 setLabel "name_type" "MouseDown()\n"
  9088. $row1823 setProp "has_parmlist" "1"
  9089. $row1823 setProp "is_event" "1"
  9090. $row1823 setProp "method_access" "Published"
  9091.  
  9092. set row1824 [$diag addRow method 0.0]
  9093. $row1824 setLabel "name_type" "MouseMove()\n"
  9094. $row1824 setProp "has_parmlist" "1"
  9095. $row1824 setProp "is_event" "1"
  9096. $row1824 setProp "method_access" "Published"
  9097.  
  9098. set row1825 [$diag addRow method 0.0]
  9099. $row1825 setLabel "name_type" "MouseUp()\n"
  9100. $row1825 setProp "has_parmlist" "1"
  9101. $row1825 setProp "is_event" "1"
  9102. $row1825 setProp "method_access" "Published"
  9103.  
  9104. set row1826 [$diag addRow method 0.0]
  9105. $row1826 setLabel "name_type" "StartDrag()"
  9106. $row1826 setProp "has_parmlist" "1"
  9107. $row1826 setProp "is_event" "1"
  9108. $row1826 setProp "method_access" "Published"
  9109.  
  9110. $diag save
  9111.  
  9112. # Generator: et.tcl    /main/titanic/10
  9113. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9114. # Interpreter to use: Otsh V7.1.1/B5
  9115. #
  9116. OTShRegister::importTool
  9117.  
  9118. set diag [CDM new TMemo "DelphiVCL" "" "" "" "" "" 1]
  9119.  
  9120. set row1827 [$diag addRow method 0.0]
  9121. $row1827 setLabel "name_type" "Change()\n"
  9122. $row1827 setProp "has_parmlist" "1"
  9123. $row1827 setProp "is_event" "1"
  9124. $row1827 setProp "method_access" "Published"
  9125.  
  9126. set row1828 [$diag addRow method 0.0]
  9127. $row1828 setLabel "name_type" "Click()\n"
  9128. $row1828 setProp "has_parmlist" "1"
  9129. $row1828 setProp "is_event" "1"
  9130. $row1828 setProp "method_access" "Published"
  9131.  
  9132. set row1829 [$diag addRow method 0.0]
  9133. $row1829 setLabel "name_type" "DblClick()\n"
  9134. $row1829 setProp "has_parmlist" "1"
  9135. $row1829 setProp "is_event" "1"
  9136. $row1829 setProp "method_access" "Published"
  9137.  
  9138. set row1830 [$diag addRow method 0.0]
  9139. $row1830 setLabel "name_type" "DragDrop()\n"
  9140. $row1830 setProp "has_parmlist" "1"
  9141. $row1830 setProp "is_event" "1"
  9142. $row1830 setProp "method_access" "Published"
  9143.  
  9144. set row1831 [$diag addRow method 0.0]
  9145. $row1831 setLabel "name_type" "DragOver()\n"
  9146. $row1831 setProp "has_parmlist" "1"
  9147. $row1831 setProp "is_event" "1"
  9148. $row1831 setProp "method_access" "Published"
  9149.  
  9150. set row1832 [$diag addRow method 0.0]
  9151. $row1832 setLabel "name_type" "EndDrag()\n"
  9152. $row1832 setProp "has_parmlist" "1"
  9153. $row1832 setProp "is_event" "1"
  9154. $row1832 setProp "method_access" "Published"
  9155.  
  9156. set row1833 [$diag addRow method 0.0]
  9157. $row1833 setLabel "name_type" "Enter()\n"
  9158. $row1833 setProp "has_parmlist" "1"
  9159. $row1833 setProp "is_event" "1"
  9160. $row1833 setProp "method_access" "Published"
  9161.  
  9162. set row1834 [$diag addRow method 0.0]
  9163. $row1834 setLabel "name_type" "Exit()\n"
  9164. $row1834 setProp "has_parmlist" "1"
  9165. $row1834 setProp "is_event" "1"
  9166. $row1834 setProp "method_access" "Published"
  9167.  
  9168. set row1835 [$diag addRow method 0.0]
  9169. $row1835 setLabel "name_type" "KeyDown()\n"
  9170. $row1835 setProp "has_parmlist" "1"
  9171. $row1835 setProp "is_event" "1"
  9172. $row1835 setProp "method_access" "Published"
  9173.  
  9174. set row1836 [$diag addRow method 0.0]
  9175. $row1836 setLabel "name_type" "KeyPress()\n"
  9176. $row1836 setProp "has_parmlist" "1"
  9177. $row1836 setProp "is_event" "1"
  9178. $row1836 setProp "method_access" "Published"
  9179.  
  9180. set row1837 [$diag addRow method 0.0]
  9181. $row1837 setLabel "name_type" "KeyUp()\n"
  9182. $row1837 setProp "has_parmlist" "1"
  9183. $row1837 setProp "is_event" "1"
  9184. $row1837 setProp "method_access" "Published"
  9185.  
  9186. set row1838 [$diag addRow method 0.0]
  9187. $row1838 setLabel "name_type" "MouseDown()\n"
  9188. $row1838 setProp "has_parmlist" "1"
  9189. $row1838 setProp "is_event" "1"
  9190. $row1838 setProp "method_access" "Published"
  9191.  
  9192. set row1839 [$diag addRow method 0.0]
  9193. $row1839 setLabel "name_type" "MouseMove()\n"
  9194. $row1839 setProp "has_parmlist" "1"
  9195. $row1839 setProp "is_event" "1"
  9196. $row1839 setProp "method_access" "Published"
  9197.  
  9198. set row1840 [$diag addRow method 0.0]
  9199. $row1840 setLabel "name_type" "MouseUp()\n"
  9200. $row1840 setProp "has_parmlist" "1"
  9201. $row1840 setProp "is_event" "1"
  9202. $row1840 setProp "method_access" "Published"
  9203.  
  9204. set row1841 [$diag addRow method 0.0]
  9205. $row1841 setLabel "name_type" "StartDrag()"
  9206. $row1841 setProp "has_parmlist" "1"
  9207. $row1841 setProp "is_event" "1"
  9208. $row1841 setProp "method_access" "Published"
  9209.  
  9210. $diag save
  9211.  
  9212. # Generator: et.tcl    /main/titanic/10
  9213. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9214. # Interpreter to use: Otsh V7.1.1/B5
  9215. #
  9216. OTShRegister::importTool
  9217.  
  9218. set diag [CDM new TLabel "DelphiVCL" "" "" "" "" "" 1]
  9219.  
  9220. set row1842 [$diag addRow method 0.0]
  9221. $row1842 setLabel "name_type" "Click()\n"
  9222. $row1842 setProp "has_parmlist" "1"
  9223. $row1842 setProp "is_event" "1"
  9224. $row1842 setProp "method_access" "Published"
  9225.  
  9226. set row1843 [$diag addRow method 0.0]
  9227. $row1843 setLabel "name_type" "DblClick()\n"
  9228. $row1843 setProp "has_parmlist" "1"
  9229. $row1843 setProp "is_event" "1"
  9230. $row1843 setProp "method_access" "Published"
  9231.  
  9232. set row1844 [$diag addRow method 0.0]
  9233. $row1844 setLabel "name_type" "DragDrop()\n"
  9234. $row1844 setProp "has_parmlist" "1"
  9235. $row1844 setProp "is_event" "1"
  9236. $row1844 setProp "method_access" "Published"
  9237.  
  9238. set row1845 [$diag addRow method 0.0]
  9239. $row1845 setLabel "name_type" "DragOver()\n"
  9240. $row1845 setProp "has_parmlist" "1"
  9241. $row1845 setProp "is_event" "1"
  9242. $row1845 setProp "method_access" "Published"
  9243.  
  9244. set row1846 [$diag addRow method 0.0]
  9245. $row1846 setLabel "name_type" "EndDrag()\n"
  9246. $row1846 setProp "has_parmlist" "1"
  9247. $row1846 setProp "is_event" "1"
  9248. $row1846 setProp "method_access" "Published"
  9249.  
  9250. set row1847 [$diag addRow method 0.0]
  9251. $row1847 setLabel "name_type" "MouseDown()\n"
  9252. $row1847 setProp "has_parmlist" "1"
  9253. $row1847 setProp "is_event" "1"
  9254. $row1847 setProp "method_access" "Published"
  9255.  
  9256. set row1848 [$diag addRow method 0.0]
  9257. $row1848 setLabel "name_type" "MouseMove()\n"
  9258. $row1848 setProp "has_parmlist" "1"
  9259. $row1848 setProp "is_event" "1"
  9260. $row1848 setProp "method_access" "Published"
  9261.  
  9262. set row1849 [$diag addRow method 0.0]
  9263. $row1849 setLabel "name_type" "MouseUp()\n"
  9264. $row1849 setProp "has_parmlist" "1"
  9265. $row1849 setProp "is_event" "1"
  9266. $row1849 setProp "method_access" "Published"
  9267.  
  9268. set row1850 [$diag addRow method 0.0]
  9269. $row1850 setLabel "name_type" "StartDrag()"
  9270. $row1850 setProp "has_parmlist" "1"
  9271. $row1850 setProp "is_event" "1"
  9272. $row1850 setProp "method_access" "Published"
  9273.  
  9274. $diag save
  9275.  
  9276. # Generator: et.tcl    /main/titanic/10
  9277. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9278. # Interpreter to use: Otsh V7.1.1/B5
  9279. #
  9280. OTShRegister::importTool
  9281.  
  9282. set diag [CDM new TScrollBox "DelphiVCL" "" "" "" "" "" 1]
  9283.  
  9284. set row1851 [$diag addRow method 0.0]
  9285. $row1851 setLabel "name_type" "Click()\n"
  9286. $row1851 setProp "has_parmlist" "1"
  9287. $row1851 setProp "is_event" "1"
  9288. $row1851 setProp "method_access" "Published"
  9289.  
  9290. set row1852 [$diag addRow method 0.0]
  9291. $row1852 setLabel "name_type" "DblClick()\n"
  9292. $row1852 setProp "has_parmlist" "1"
  9293. $row1852 setProp "is_event" "1"
  9294. $row1852 setProp "method_access" "Published"
  9295.  
  9296. set row1853 [$diag addRow method 0.0]
  9297. $row1853 setLabel "name_type" "DragDrop()\n"
  9298. $row1853 setProp "has_parmlist" "1"
  9299. $row1853 setProp "is_event" "1"
  9300. $row1853 setProp "method_access" "Published"
  9301.  
  9302. set row1854 [$diag addRow method 0.0]
  9303. $row1854 setLabel "name_type" "DragOver()\n"
  9304. $row1854 setProp "has_parmlist" "1"
  9305. $row1854 setProp "is_event" "1"
  9306. $row1854 setProp "method_access" "Published"
  9307.  
  9308. set row1855 [$diag addRow method 0.0]
  9309. $row1855 setLabel "name_type" "EndDrag()\n"
  9310. $row1855 setProp "has_parmlist" "1"
  9311. $row1855 setProp "is_event" "1"
  9312. $row1855 setProp "method_access" "Published"
  9313.  
  9314. set row1856 [$diag addRow method 0.0]
  9315. $row1856 setLabel "name_type" "Enter()\n"
  9316. $row1856 setProp "has_parmlist" "1"
  9317. $row1856 setProp "is_event" "1"
  9318. $row1856 setProp "method_access" "Published"
  9319.  
  9320. set row1857 [$diag addRow method 0.0]
  9321. $row1857 setLabel "name_type" "Exit()\n"
  9322. $row1857 setProp "has_parmlist" "1"
  9323. $row1857 setProp "is_event" "1"
  9324. $row1857 setProp "method_access" "Published"
  9325.  
  9326. set row1858 [$diag addRow method 0.0]
  9327. $row1858 setLabel "name_type" "MouseDown()\n"
  9328. $row1858 setProp "has_parmlist" "1"
  9329. $row1858 setProp "is_event" "1"
  9330. $row1858 setProp "method_access" "Published"
  9331.  
  9332. set row1859 [$diag addRow method 0.0]
  9333. $row1859 setLabel "name_type" "MouseMove()\n"
  9334. $row1859 setProp "has_parmlist" "1"
  9335. $row1859 setProp "is_event" "1"
  9336. $row1859 setProp "method_access" "Published"
  9337.  
  9338. set row1860 [$diag addRow method 0.0]
  9339. $row1860 setLabel "name_type" "MouseUp()\n"
  9340. $row1860 setProp "has_parmlist" "1"
  9341. $row1860 setProp "is_event" "1"
  9342. $row1860 setProp "method_access" "Published"
  9343.  
  9344. set row1861 [$diag addRow method 0.0]
  9345. $row1861 setLabel "name_type" "Resize()"
  9346. $row1861 setProp "has_parmlist" "1"
  9347. $row1861 setProp "is_event" "1"
  9348. $row1861 setProp "method_access" "Published"
  9349.  
  9350. set cell1862 [$row1861 addCell parameter 0.0]
  9351. $cell1862 setLabel "name_type" "Sender: TObject"
  9352. $cell1862 setScope "name_type" "cl" "scopePhase"
  9353. $cell1862 setProp "is_declaration" "1" "name_type" "cl"
  9354. $cell1862 setProp "libunit" "System" "name_type" "cl"
  9355. $cell1862 setScope "name_type" "de" "scopeFile"
  9356.  
  9357. $diag save
  9358.  
  9359. # Generator: et.tcl    /main/titanic/10
  9360. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9361. # Interpreter to use: Otsh V7.1.1/B5
  9362. #
  9363. OTShRegister::importTool
  9364.  
  9365. set diag [CDM new TForm "DelphiVCL" "" "" "" "" "" 1]
  9366.  
  9367. set row1863 [$diag addRow method 0.0]
  9368. $row1863 setLabel "name_type" "Activate()\n"
  9369. $row1863 setProp "has_parmlist" "1"
  9370. $row1863 setProp "is_event" "1"
  9371. $row1863 setProp "method_access" "Published"
  9372.  
  9373. set row1864 [$diag addRow method 0.0]
  9374. $row1864 setLabel "name_type" "Click()\n"
  9375. $row1864 setProp "has_parmlist" "1"
  9376. $row1864 setProp "is_event" "1"
  9377. $row1864 setProp "method_access" "Published"
  9378.  
  9379. set row1865 [$diag addRow method 0.0]
  9380. $row1865 setLabel "name_type" "Close()\n"
  9381. $row1865 setProp "has_parmlist" "1"
  9382. $row1865 setProp "is_event" "1"
  9383. $row1865 setProp "method_access" "Published"
  9384.  
  9385. set row1866 [$diag addRow method 0.0]
  9386. $row1866 setLabel "name_type" "CloseQuery()\n"
  9387. $row1866 setProp "has_parmlist" "1"
  9388. $row1866 setProp "is_event" "1"
  9389. $row1866 setProp "method_access" "Published"
  9390.  
  9391. set row1867 [$diag addRow method 0.0]
  9392. $row1867 setLabel "name_type" "Create()\n"
  9393. $row1867 setProp "has_parmlist" "1"
  9394. $row1867 setProp "is_event" "1"
  9395. $row1867 setProp "method_access" "Published"
  9396.  
  9397. set row1868 [$diag addRow method 0.0]
  9398. $row1868 setLabel "name_type" "Destroy()\n"
  9399. $row1868 setProp "has_parmlist" "1"
  9400. $row1868 setProp "is_event" "1"
  9401. $row1868 setProp "method_access" "Published"
  9402.  
  9403. set row1869 [$diag addRow method 0.0]
  9404. $row1869 setLabel "name_type" "DblClick()\n"
  9405. $row1869 setProp "has_parmlist" "1"
  9406. $row1869 setProp "is_event" "1"
  9407. $row1869 setProp "method_access" "Published"
  9408.  
  9409. set row1870 [$diag addRow method 0.0]
  9410. $row1870 setLabel "name_type" "Deactivate()\n"
  9411. $row1870 setProp "has_parmlist" "1"
  9412. $row1870 setProp "is_event" "1"
  9413. $row1870 setProp "method_access" "Published"
  9414.  
  9415. set row1871 [$diag addRow method 0.0]
  9416. $row1871 setLabel "name_type" "DragDrop()\n"
  9417. $row1871 setProp "has_parmlist" "1"
  9418. $row1871 setProp "is_event" "1"
  9419. $row1871 setProp "method_access" "Published"
  9420.  
  9421. set row1872 [$diag addRow method 0.0]
  9422. $row1872 setLabel "name_type" "DragOver()\n"
  9423. $row1872 setProp "has_parmlist" "1"
  9424. $row1872 setProp "is_event" "1"
  9425. $row1872 setProp "method_access" "Published"
  9426.  
  9427. set row1873 [$diag addRow method 0.0]
  9428. $row1873 setLabel "name_type" "Hide()\n"
  9429. $row1873 setProp "has_parmlist" "1"
  9430. $row1873 setProp "is_event" "1"
  9431. $row1873 setProp "method_access" "Published"
  9432.  
  9433. set row1874 [$diag addRow method 0.0]
  9434. $row1874 setLabel "name_type" "KeyDown()\n"
  9435. $row1874 setProp "has_parmlist" "1"
  9436. $row1874 setProp "is_event" "1"
  9437. $row1874 setProp "method_access" "Published"
  9438.  
  9439. set row1875 [$diag addRow method 0.0]
  9440. $row1875 setLabel "name_type" "KeyPress()\n"
  9441. $row1875 setProp "has_parmlist" "1"
  9442. $row1875 setProp "is_event" "1"
  9443. $row1875 setProp "method_access" "Published"
  9444.  
  9445. set row1876 [$diag addRow method 0.0]
  9446. $row1876 setLabel "name_type" "KeyUp()\n"
  9447. $row1876 setProp "has_parmlist" "1"
  9448. $row1876 setProp "is_event" "1"
  9449. $row1876 setProp "method_access" "Published"
  9450.  
  9451. set row1877 [$diag addRow method 0.0]
  9452. $row1877 setLabel "name_type" "MouseDown()\n"
  9453. $row1877 setProp "has_parmlist" "1"
  9454. $row1877 setProp "is_event" "1"
  9455. $row1877 setProp "method_access" "Published"
  9456.  
  9457. set row1878 [$diag addRow method 0.0]
  9458. $row1878 setLabel "name_type" "MouseMove()\n"
  9459. $row1878 setProp "has_parmlist" "1"
  9460. $row1878 setProp "is_event" "1"
  9461. $row1878 setProp "method_access" "Published"
  9462.  
  9463. set row1879 [$diag addRow method 0.0]
  9464. $row1879 setLabel "name_type" "MouseUp()\n"
  9465. $row1879 setProp "has_parmlist" "1"
  9466. $row1879 setProp "is_event" "1"
  9467. $row1879 setProp "method_access" "Published"
  9468.  
  9469. set row1880 [$diag addRow method 0.0]
  9470. $row1880 setLabel "name_type" "Paint()\n"
  9471. $row1880 setProp "has_parmlist" "1"
  9472. $row1880 setProp "is_event" "1"
  9473. $row1880 setProp "method_access" "Published"
  9474.  
  9475. set row1881 [$diag addRow method 0.0]
  9476. $row1881 setLabel "name_type" "Resize()\n"
  9477. $row1881 setProp "has_parmlist" "1"
  9478. $row1881 setProp "is_event" "1"
  9479. $row1881 setProp "method_access" "Published"
  9480.  
  9481. set row1882 [$diag addRow method 0.0]
  9482. $row1882 setLabel "name_type" "Show() "
  9483. $row1882 setProp "has_parmlist" "1"
  9484. $row1882 setProp "is_event" "1"
  9485. $row1882 setProp "method_access" "Published"
  9486.  
  9487. $diag save
  9488.  
  9489. # Generator: et.tcl    /main/titanic/10
  9490. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9491. # Interpreter to use: Otsh V7.1.1/B5
  9492. #
  9493. OTShRegister::importTool
  9494.  
  9495. set diag [CDM new TComboBox "DelphiVCL" "" "" "" "" "" 1]
  9496.  
  9497. set row1883 [$diag addRow method 0.0]
  9498. $row1883 setLabel "name_type" "Change()\n"
  9499. $row1883 setProp "has_parmlist" "1"
  9500. $row1883 setProp "is_event" "1"
  9501. $row1883 setProp "method_access" "Published"
  9502.  
  9503. set row1884 [$diag addRow method 0.0]
  9504. $row1884 setLabel "name_type" "Click()\n"
  9505. $row1884 setProp "has_parmlist" "1"
  9506. $row1884 setProp "is_event" "1"
  9507. $row1884 setProp "method_access" "Published"
  9508.  
  9509. set row1885 [$diag addRow method 0.0]
  9510. $row1885 setLabel "name_type" "DblClick()\n"
  9511. $row1885 setProp "has_parmlist" "1"
  9512. $row1885 setProp "is_event" "1"
  9513. $row1885 setProp "method_access" "Published"
  9514.  
  9515. set row1886 [$diag addRow method 0.0]
  9516. $row1886 setLabel "name_type" "DragDrop()\n"
  9517. $row1886 setProp "has_parmlist" "1"
  9518. $row1886 setProp "is_event" "1"
  9519. $row1886 setProp "method_access" "Published"
  9520.  
  9521. set row1887 [$diag addRow method 0.0]
  9522. $row1887 setLabel "name_type" "DragOver()\n"
  9523. $row1887 setProp "has_parmlist" "1"
  9524. $row1887 setProp "is_event" "1"
  9525. $row1887 setProp "method_access" "Published"
  9526.  
  9527. set row1888 [$diag addRow method 0.0]
  9528. $row1888 setLabel "name_type" "DrawItem()\n"
  9529. $row1888 setProp "has_parmlist" "1"
  9530. $row1888 setProp "is_event" "1"
  9531. $row1888 setProp "method_access" "Published"
  9532.  
  9533. set row1889 [$diag addRow method 0.0]
  9534. $row1889 setLabel "name_type" "DropDown()\n"
  9535. $row1889 setProp "has_parmlist" "1"
  9536. $row1889 setProp "is_event" "1"
  9537. $row1889 setProp "method_access" "Published"
  9538.  
  9539. set row1890 [$diag addRow method 0.0]
  9540. $row1890 setLabel "name_type" "EndDrag()\n"
  9541. $row1890 setProp "has_parmlist" "1"
  9542. $row1890 setProp "is_event" "1"
  9543. $row1890 setProp "method_access" "Published"
  9544.  
  9545. set row1891 [$diag addRow method 0.0]
  9546. $row1891 setLabel "name_type" "Enter()\n"
  9547. $row1891 setProp "has_parmlist" "1"
  9548. $row1891 setProp "is_event" "1"
  9549. $row1891 setProp "method_access" "Published"
  9550.  
  9551. set row1892 [$diag addRow method 0.0]
  9552. $row1892 setLabel "name_type" "Exit()\n"
  9553. $row1892 setProp "has_parmlist" "1"
  9554. $row1892 setProp "is_event" "1"
  9555. $row1892 setProp "method_access" "Published"
  9556.  
  9557. set row1893 [$diag addRow method 0.0]
  9558. $row1893 setLabel "name_type" "KeyDown()\n"
  9559. $row1893 setProp "has_parmlist" "1"
  9560. $row1893 setProp "is_event" "1"
  9561. $row1893 setProp "method_access" "Published"
  9562.  
  9563. set row1894 [$diag addRow method 0.0]
  9564. $row1894 setLabel "name_type" "KeyPress()\n"
  9565. $row1894 setProp "has_parmlist" "1"
  9566. $row1894 setProp "is_event" "1"
  9567. $row1894 setProp "method_access" "Published"
  9568.  
  9569. set row1895 [$diag addRow method 0.0]
  9570. $row1895 setLabel "name_type" "KeyUp()\n"
  9571. $row1895 setProp "has_parmlist" "1"
  9572. $row1895 setProp "is_event" "1"
  9573. $row1895 setProp "method_access" "Published"
  9574.  
  9575. set row1896 [$diag addRow method 0.0]
  9576. $row1896 setLabel "name_type" "MeasureItem()\n"
  9577. $row1896 setProp "has_parmlist" "1"
  9578. $row1896 setProp "is_event" "1"
  9579. $row1896 setProp "method_access" "Published"
  9580.  
  9581. set row1897 [$diag addRow method 0.0]
  9582. $row1897 setLabel "name_type" "StartDrag()"
  9583. $row1897 setProp "has_parmlist" "1"
  9584. $row1897 setProp "is_event" "1"
  9585. $row1897 setProp "method_access" "Published"
  9586.  
  9587. $diag save
  9588.  
  9589. # Generator: et.tcl    /main/titanic/10
  9590. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9591. # Interpreter to use: Otsh V7.1.1/B5
  9592. #
  9593. OTShRegister::importTool
  9594.  
  9595. set diag [CDM new TButton "DelphiVCL" "" "" "" "" "" 1]
  9596.  
  9597. set row1898 [$diag addRow method 0.0]
  9598. $row1898 setLabel "name_type" "Click()\n"
  9599. $row1898 setProp "has_parmlist" "1"
  9600. $row1898 setProp "is_event" "1"
  9601. $row1898 setProp "method_access" "Published"
  9602.  
  9603. set row1899 [$diag addRow method 0.0]
  9604. $row1899 setLabel "name_type" "DragDrop()\n"
  9605. $row1899 setProp "has_parmlist" "1"
  9606. $row1899 setProp "is_event" "1"
  9607. $row1899 setProp "method_access" "Published"
  9608.  
  9609. set row1900 [$diag addRow method 0.0]
  9610. $row1900 setLabel "name_type" "DragOver()\n"
  9611. $row1900 setProp "has_parmlist" "1"
  9612. $row1900 setProp "is_event" "1"
  9613. $row1900 setProp "method_access" "Published"
  9614.  
  9615. set row1901 [$diag addRow method 0.0]
  9616. $row1901 setLabel "name_type" "EndDrag()\n"
  9617. $row1901 setProp "has_parmlist" "1"
  9618. $row1901 setProp "is_event" "1"
  9619. $row1901 setProp "method_access" "Published"
  9620.  
  9621. set row1902 [$diag addRow method 0.0]
  9622. $row1902 setLabel "name_type" "Enter()\n"
  9623. $row1902 setProp "has_parmlist" "1"
  9624. $row1902 setProp "is_event" "1"
  9625. $row1902 setProp "method_access" "Published"
  9626.  
  9627. set row1903 [$diag addRow method 0.0]
  9628. $row1903 setLabel "name_type" "Exit()\n"
  9629. $row1903 setProp "has_parmlist" "1"
  9630. $row1903 setProp "is_event" "1"
  9631. $row1903 setProp "method_access" "Published"
  9632.  
  9633. set row1904 [$diag addRow method 0.0]
  9634. $row1904 setLabel "name_type" "KeyDown()\n"
  9635. $row1904 setProp "has_parmlist" "1"
  9636. $row1904 setProp "is_event" "1"
  9637. $row1904 setProp "method_access" "Published"
  9638.  
  9639. set row1905 [$diag addRow method 0.0]
  9640. $row1905 setLabel "name_type" "KeyPress()\n"
  9641. $row1905 setProp "has_parmlist" "1"
  9642. $row1905 setProp "is_event" "1"
  9643. $row1905 setProp "method_access" "Published"
  9644.  
  9645. set row1906 [$diag addRow method 0.0]
  9646. $row1906 setLabel "name_type" "KeyUp()\n"
  9647. $row1906 setProp "has_parmlist" "1"
  9648. $row1906 setProp "is_event" "1"
  9649. $row1906 setProp "method_access" "Published"
  9650.  
  9651. set row1907 [$diag addRow method 0.0]
  9652. $row1907 setLabel "name_type" "MouseDown()\n"
  9653. $row1907 setProp "has_parmlist" "1"
  9654. $row1907 setProp "is_event" "1"
  9655. $row1907 setProp "method_access" "Published"
  9656.  
  9657. set row1908 [$diag addRow method 0.0]
  9658. $row1908 setLabel "name_type" "MouseMove()\n"
  9659. $row1908 setProp "has_parmlist" "1"
  9660. $row1908 setProp "is_event" "1"
  9661. $row1908 setProp "method_access" "Published"
  9662.  
  9663. set row1909 [$diag addRow method 0.0]
  9664. $row1909 setLabel "name_type" "MouseUp()\n"
  9665. $row1909 setProp "has_parmlist" "1"
  9666. $row1909 setProp "is_event" "1"
  9667. $row1909 setProp "method_access" "Published"
  9668.  
  9669. set row1910 [$diag addRow method 0.0]
  9670. $row1910 setLabel "name_type" "StartDrag()"
  9671. $row1910 setProp "has_parmlist" "1"
  9672. $row1910 setProp "is_event" "1"
  9673. $row1910 setProp "method_access" "Published"
  9674.  
  9675. $diag save
  9676.  
  9677. # Generator: et.tcl    /main/titanic/10
  9678. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9679. # Interpreter to use: Otsh V7.1.1/B5
  9680. #
  9681. OTShRegister::importTool
  9682.  
  9683. set diag [CDM new TCheckBox "DelphiVCL" "" "" "" "" "" 1]
  9684.  
  9685. set row1911 [$diag addRow method 0.0]
  9686. $row1911 setLabel "name_type" "Click()\n"
  9687. $row1911 setProp "has_parmlist" "1"
  9688. $row1911 setProp "is_event" "1"
  9689. $row1911 setProp "method_access" "Published"
  9690.  
  9691. set row1912 [$diag addRow method 0.0]
  9692. $row1912 setLabel "name_type" "DragDrop()\n"
  9693. $row1912 setProp "has_parmlist" "1"
  9694. $row1912 setProp "is_event" "1"
  9695. $row1912 setProp "method_access" "Published"
  9696.  
  9697. set row1913 [$diag addRow method 0.0]
  9698. $row1913 setLabel "name_type" "DragOver()\n"
  9699. $row1913 setProp "has_parmlist" "1"
  9700. $row1913 setProp "is_event" "1"
  9701. $row1913 setProp "method_access" "Published"
  9702.  
  9703. set row1914 [$diag addRow method 0.0]
  9704. $row1914 setLabel "name_type" "EndDrag()\n"
  9705. $row1914 setProp "has_parmlist" "1"
  9706. $row1914 setProp "is_event" "1"
  9707. $row1914 setProp "method_access" "Published"
  9708.  
  9709. set row1915 [$diag addRow method 0.0]
  9710. $row1915 setLabel "name_type" "Enter()\n"
  9711. $row1915 setProp "has_parmlist" "1"
  9712. $row1915 setProp "is_event" "1"
  9713. $row1915 setProp "method_access" "Published"
  9714.  
  9715. set row1916 [$diag addRow method 0.0]
  9716. $row1916 setLabel "name_type" "Exit()\n"
  9717. $row1916 setProp "has_parmlist" "1"
  9718. $row1916 setProp "is_event" "1"
  9719. $row1916 setProp "method_access" "Published"
  9720.  
  9721. set row1917 [$diag addRow method 0.0]
  9722. $row1917 setLabel "name_type" "KeyDown()\n"
  9723. $row1917 setProp "has_parmlist" "1"
  9724. $row1917 setProp "is_event" "1"
  9725. $row1917 setProp "method_access" "Published"
  9726.  
  9727. set row1918 [$diag addRow method 0.0]
  9728. $row1918 setLabel "name_type" "KeyPress()\n"
  9729. $row1918 setProp "has_parmlist" "1"
  9730. $row1918 setProp "is_event" "1"
  9731. $row1918 setProp "method_access" "Published"
  9732.  
  9733. set row1919 [$diag addRow method 0.0]
  9734. $row1919 setLabel "name_type" "KeyUp()\n"
  9735. $row1919 setProp "has_parmlist" "1"
  9736. $row1919 setProp "is_event" "1"
  9737. $row1919 setProp "method_access" "Published"
  9738.  
  9739. set row1920 [$diag addRow method 0.0]
  9740. $row1920 setLabel "name_type" "MouseDown()\n"
  9741. $row1920 setProp "has_parmlist" "1"
  9742. $row1920 setProp "is_event" "1"
  9743. $row1920 setProp "method_access" "Published"
  9744.  
  9745. set row1921 [$diag addRow method 0.0]
  9746. $row1921 setLabel "name_type" "MouseMove()\n"
  9747. $row1921 setProp "has_parmlist" "1"
  9748. $row1921 setProp "is_event" "1"
  9749. $row1921 setProp "method_access" "Published"
  9750.  
  9751. set row1922 [$diag addRow method 0.0]
  9752. $row1922 setLabel "name_type" "MouseUp()\n"
  9753. $row1922 setProp "has_parmlist" "1"
  9754. $row1922 setProp "is_event" "1"
  9755. $row1922 setProp "method_access" "Published"
  9756.  
  9757. set row1923 [$diag addRow method 0.0]
  9758. $row1923 setLabel "name_type" "StartDrag()"
  9759. $row1923 setProp "has_parmlist" "1"
  9760. $row1923 setProp "is_event" "1"
  9761. $row1923 setProp "method_access" "Published"
  9762.  
  9763. $diag save
  9764.  
  9765. # Generator: et.tcl    /main/titanic/10
  9766. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9767. # Interpreter to use: Otsh V7.1.1/B5
  9768. #
  9769. OTShRegister::importTool
  9770.  
  9771. set diag [CDM new TPaintBox "DelphiVCL" "" "" "" "" "" 1]
  9772.  
  9773. set row1924 [$diag addRow method 0.0]
  9774. $row1924 setLabel "name_type" "Click()\n"
  9775. $row1924 setProp "has_parmlist" "1"
  9776. $row1924 setProp "is_event" "1"
  9777. $row1924 setProp "method_access" "Published"
  9778.  
  9779. set row1925 [$diag addRow method 0.0]
  9780. $row1925 setLabel "name_type" "DblClick()\n"
  9781. $row1925 setProp "has_parmlist" "1"
  9782. $row1925 setProp "is_event" "1"
  9783. $row1925 setProp "method_access" "Published"
  9784.  
  9785. set row1926 [$diag addRow method 0.0]
  9786. $row1926 setLabel "name_type" "DragDrop()\n"
  9787. $row1926 setProp "has_parmlist" "1"
  9788. $row1926 setProp "is_event" "1"
  9789. $row1926 setProp "method_access" "Published"
  9790.  
  9791. set row1927 [$diag addRow method 0.0]
  9792. $row1927 setLabel "name_type" "DragOver()\n"
  9793. $row1927 setProp "has_parmlist" "1"
  9794. $row1927 setProp "is_event" "1"
  9795. $row1927 setProp "method_access" "Published"
  9796.  
  9797. set row1928 [$diag addRow method 0.0]
  9798. $row1928 setLabel "name_type" "EndDrag()\n"
  9799. $row1928 setProp "has_parmlist" "1"
  9800. $row1928 setProp "is_event" "1"
  9801. $row1928 setProp "method_access" "Published"
  9802.  
  9803. set row1929 [$diag addRow method 0.0]
  9804. $row1929 setLabel "name_type" "MouseDown()\n"
  9805. $row1929 setProp "has_parmlist" "1"
  9806. $row1929 setProp "is_event" "1"
  9807. $row1929 setProp "method_access" "Published"
  9808.  
  9809. set row1930 [$diag addRow method 0.0]
  9810. $row1930 setLabel "name_type" "MouseMove()\n"
  9811. $row1930 setProp "has_parmlist" "1"
  9812. $row1930 setProp "is_event" "1"
  9813. $row1930 setProp "method_access" "Published"
  9814.  
  9815. set row1931 [$diag addRow method 0.0]
  9816. $row1931 setLabel "name_type" "MouseUp()\n"
  9817. $row1931 setProp "has_parmlist" "1"
  9818. $row1931 setProp "is_event" "1"
  9819. $row1931 setProp "method_access" "Published"
  9820.  
  9821. set row1932 [$diag addRow method 0.0]
  9822. $row1932 setLabel "name_type" "Paint()\n"
  9823. $row1932 setProp "has_parmlist" "1"
  9824. $row1932 setProp "is_event" "1"
  9825. $row1932 setProp "method_access" "Published"
  9826.  
  9827. set cell1933 [$row1932 addCell parameter 0.0]
  9828. $cell1933 setLabel "name_type" "Sender: TObject"
  9829. $cell1933 setScope "name_type" "cl" "scopePhase"
  9830. $cell1933 setProp "is_declaration" "1" "name_type" "cl"
  9831. $cell1933 setProp "libunit" "System" "name_type" "cl"
  9832. $cell1933 setScope "name_type" "de" "scopeFile"
  9833.  
  9834. set row1934 [$diag addRow method 0.0]
  9835. $row1934 setLabel "name_type" "StartDrag()"
  9836. $row1934 setProp "has_parmlist" "1"
  9837. $row1934 setProp "is_event" "1"
  9838. $row1934 setProp "method_access" "Published"
  9839.  
  9840. $diag save
  9841.  
  9842. # Generator: et.tcl    /main/titanic/10
  9843. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9844. # Interpreter to use: Otsh V7.1.1/B5
  9845. #
  9846. OTShRegister::importTool
  9847.  
  9848. set diag [CDM new TListBox "DelphiVCL" "" "" "" "" "" 1]
  9849.  
  9850. set row1935 [$diag addRow method 0.0]
  9851. $row1935 setLabel "name_type" "Click()\n"
  9852. $row1935 setProp "has_parmlist" "1"
  9853. $row1935 setProp "is_event" "1"
  9854. $row1935 setProp "method_access" "Published"
  9855.  
  9856. set row1936 [$diag addRow method 0.0]
  9857. $row1936 setLabel "name_type" "DblClick()\n"
  9858. $row1936 setProp "has_parmlist" "1"
  9859. $row1936 setProp "is_event" "1"
  9860. $row1936 setProp "method_access" "Published"
  9861.  
  9862. set row1937 [$diag addRow method 0.0]
  9863. $row1937 setLabel "name_type" "DragDrop()\n"
  9864. $row1937 setProp "has_parmlist" "1"
  9865. $row1937 setProp "is_event" "1"
  9866. $row1937 setProp "method_access" "Published"
  9867.  
  9868. set row1938 [$diag addRow method 0.0]
  9869. $row1938 setLabel "name_type" "DragOver()\n"
  9870. $row1938 setProp "has_parmlist" "1"
  9871. $row1938 setProp "is_event" "1"
  9872. $row1938 setProp "method_access" "Published"
  9873.  
  9874. set row1939 [$diag addRow method 0.0]
  9875. $row1939 setLabel "name_type" "DrawItem()\n"
  9876. $row1939 setProp "has_parmlist" "1"
  9877. $row1939 setProp "is_event" "1"
  9878. $row1939 setProp "method_access" "Published"
  9879.  
  9880. set row1940 [$diag addRow method 0.0]
  9881. $row1940 setLabel "name_type" "EndDrag()\n"
  9882. $row1940 setProp "has_parmlist" "1"
  9883. $row1940 setProp "is_event" "1"
  9884. $row1940 setProp "method_access" "Published"
  9885.  
  9886. set row1941 [$diag addRow method 0.0]
  9887. $row1941 setLabel "name_type" "Enter()\n"
  9888. $row1941 setProp "has_parmlist" "1"
  9889. $row1941 setProp "is_event" "1"
  9890. $row1941 setProp "method_access" "Published"
  9891.  
  9892. set row1942 [$diag addRow method 0.0]
  9893. $row1942 setLabel "name_type" "Exit()\n"
  9894. $row1942 setProp "has_parmlist" "1"
  9895. $row1942 setProp "is_event" "1"
  9896. $row1942 setProp "method_access" "Published"
  9897.  
  9898. set row1943 [$diag addRow method 0.0]
  9899. $row1943 setLabel "name_type" "KeyDown()\n"
  9900. $row1943 setProp "has_parmlist" "1"
  9901. $row1943 setProp "is_event" "1"
  9902. $row1943 setProp "method_access" "Published"
  9903.  
  9904. set row1944 [$diag addRow method 0.0]
  9905. $row1944 setLabel "name_type" "KeyPress()\n"
  9906. $row1944 setProp "has_parmlist" "1"
  9907. $row1944 setProp "is_event" "1"
  9908. $row1944 setProp "method_access" "Published"
  9909.  
  9910. set row1945 [$diag addRow method 0.0]
  9911. $row1945 setLabel "name_type" "KeyUp()\n"
  9912. $row1945 setProp "has_parmlist" "1"
  9913. $row1945 setProp "is_event" "1"
  9914. $row1945 setProp "method_access" "Published"
  9915.  
  9916. set row1946 [$diag addRow method 0.0]
  9917. $row1946 setLabel "name_type" "MeasureItem()\n"
  9918. $row1946 setProp "has_parmlist" "1"
  9919. $row1946 setProp "is_event" "1"
  9920. $row1946 setProp "method_access" "Published"
  9921.  
  9922. set row1947 [$diag addRow method 0.0]
  9923. $row1947 setLabel "name_type" "MouseDown()\n"
  9924. $row1947 setProp "has_parmlist" "1"
  9925. $row1947 setProp "is_event" "1"
  9926. $row1947 setProp "method_access" "Published"
  9927.  
  9928. set row1948 [$diag addRow method 0.0]
  9929. $row1948 setLabel "name_type" "MouseMove()\n"
  9930. $row1948 setProp "has_parmlist" "1"
  9931. $row1948 setProp "is_event" "1"
  9932. $row1948 setProp "method_access" "Published"
  9933.  
  9934. set row1949 [$diag addRow method 0.0]
  9935. $row1949 setLabel "name_type" "MouseUp()\n"
  9936. $row1949 setProp "has_parmlist" "1"
  9937. $row1949 setProp "is_event" "1"
  9938. $row1949 setProp "method_access" "Published"
  9939.  
  9940. set row1950 [$diag addRow method 0.0]
  9941. $row1950 setLabel "name_type" "StartDrag()"
  9942. $row1950 setProp "has_parmlist" "1"
  9943. $row1950 setProp "is_event" "1"
  9944. $row1950 setProp "method_access" "Published"
  9945.  
  9946. $diag save
  9947.  
  9948. # Generator: et.tcl    /main/titanic/10
  9949. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  9950. # Interpreter to use: Otsh V7.1.1/B5
  9951. #
  9952. OTShRegister::importTool
  9953.  
  9954. set diag [CDM new TRadioButton "DelphiVCL" "" "" "" "" "" 1]
  9955.  
  9956. set row1951 [$diag addRow method 0.0]
  9957. $row1951 setLabel "name_type" "Click()\n"
  9958. $row1951 setProp "has_parmlist" "1"
  9959. $row1951 setProp "is_event" "1"
  9960. $row1951 setProp "method_access" "Published"
  9961.  
  9962. set row1952 [$diag addRow method 0.0]
  9963. $row1952 setLabel "name_type" "DblClick()\n"
  9964. $row1952 setProp "has_parmlist" "1"
  9965. $row1952 setProp "is_event" "1"
  9966. $row1952 setProp "method_access" "Published"
  9967.  
  9968. set row1953 [$diag addRow method 0.0]
  9969. $row1953 setLabel "name_type" "DragDrop()\n"
  9970. $row1953 setProp "has_parmlist" "1"
  9971. $row1953 setProp "is_event" "1"
  9972. $row1953 setProp "method_access" "Published"
  9973.  
  9974. set row1954 [$diag addRow method 0.0]
  9975. $row1954 setLabel "name_type" "DragOver()\n"
  9976. $row1954 setProp "has_parmlist" "1"
  9977. $row1954 setProp "is_event" "1"
  9978. $row1954 setProp "method_access" "Published"
  9979.  
  9980. set row1955 [$diag addRow method 0.0]
  9981. $row1955 setLabel "name_type" "EndDrag()\n"
  9982. $row1955 setProp "has_parmlist" "1"
  9983. $row1955 setProp "is_event" "1"
  9984. $row1955 setProp "method_access" "Published"
  9985.  
  9986. set row1956 [$diag addRow method 0.0]
  9987. $row1956 setLabel "name_type" "Enter()\n"
  9988. $row1956 setProp "has_parmlist" "1"
  9989. $row1956 setProp "is_event" "1"
  9990. $row1956 setProp "method_access" "Published"
  9991.  
  9992. set row1957 [$diag addRow method 0.0]
  9993. $row1957 setLabel "name_type" "Exit()\n"
  9994. $row1957 setProp "has_parmlist" "1"
  9995. $row1957 setProp "is_event" "1"
  9996. $row1957 setProp "method_access" "Published"
  9997.  
  9998. set row1958 [$diag addRow method 0.0]
  9999. $row1958 setLabel "name_type" "KeyDown()\n"
  10000. $row1958 setProp "has_parmlist" "1"
  10001. $row1958 setProp "is_event" "1"
  10002. $row1958 setProp "method_access" "Published"
  10003.  
  10004. set row1959 [$diag addRow method 0.0]
  10005. $row1959 setLabel "name_type" "KeyPress()\n"
  10006. $row1959 setProp "has_parmlist" "1"
  10007. $row1959 setProp "is_event" "1"
  10008. $row1959 setProp "method_access" "Published"
  10009.  
  10010. set row1960 [$diag addRow method 0.0]
  10011. $row1960 setLabel "name_type" "KeyUp()\n"
  10012. $row1960 setProp "has_parmlist" "1"
  10013. $row1960 setProp "is_event" "1"
  10014. $row1960 setProp "method_access" "Published"
  10015.  
  10016. set row1961 [$diag addRow method 0.0]
  10017. $row1961 setLabel "name_type" "MouseDown()\n"
  10018. $row1961 setProp "has_parmlist" "1"
  10019. $row1961 setProp "is_event" "1"
  10020. $row1961 setProp "method_access" "Published"
  10021.  
  10022. set row1962 [$diag addRow method 0.0]
  10023. $row1962 setLabel "name_type" "MouseMove()\n"
  10024. $row1962 setProp "has_parmlist" "1"
  10025. $row1962 setProp "is_event" "1"
  10026. $row1962 setProp "method_access" "Published"
  10027.  
  10028. set row1963 [$diag addRow method 0.0]
  10029. $row1963 setLabel "name_type" "MouseUp()\n"
  10030. $row1963 setProp "has_parmlist" "1"
  10031. $row1963 setProp "is_event" "1"
  10032. $row1963 setProp "method_access" "Published"
  10033.  
  10034. set row1964 [$diag addRow method 0.0]
  10035. $row1964 setLabel "name_type" "StartDrag()"
  10036. $row1964 setProp "has_parmlist" "1"
  10037. $row1964 setProp "is_event" "1"
  10038. $row1964 setProp "method_access" "Published"
  10039.  
  10040. $diag save
  10041.  
  10042. # Generator: et.tcl    /main/titanic/10
  10043. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10044. # Interpreter to use: Otsh V7.1.1/B5
  10045. #
  10046. OTShRegister::importTool
  10047.  
  10048. set diag [CDM new TScrollBar "DelphiVCL" "" "" "" "" "" 1]
  10049.  
  10050. set row1965 [$diag addRow method 0.0]
  10051. $row1965 setLabel "name_type" "Change()\n"
  10052. $row1965 setProp "has_parmlist" "1"
  10053. $row1965 setProp "is_event" "1"
  10054. $row1965 setProp "method_access" "Published"
  10055.  
  10056. set cell1966 [$row1965 addCell parameter 0.0]
  10057. $cell1966 setLabel "name_type" "Sender: TField"
  10058. $cell1966 setScope "name_type" "cl" "scopePhase"
  10059. $cell1966 setProp "is_declaration" "1" "name_type" "cl"
  10060. $cell1966 setProp "libunit" "Other" "name_type" "cl"
  10061. $cell1966 setProp "userlib" "DB" "name_type" "cl"
  10062. $cell1966 setScope "name_type" "de" "scopeFile"
  10063.  
  10064. set row1967 [$diag addRow method 0.0]
  10065. $row1967 setLabel "name_type" "Click()\n"
  10066. $row1967 setProp "has_parmlist" "1"
  10067. $row1967 setProp "is_event" "1"
  10068. $row1967 setProp "method_access" "Published"
  10069.  
  10070. set row1968 [$diag addRow method 0.0]
  10071. $row1968 setLabel "name_type" "DragDrop()\n"
  10072. $row1968 setProp "has_parmlist" "1"
  10073. $row1968 setProp "is_event" "1"
  10074. $row1968 setProp "method_access" "Published"
  10075.  
  10076. set row1969 [$diag addRow method 0.0]
  10077. $row1969 setLabel "name_type" "DragOver()\n"
  10078. $row1969 setProp "has_parmlist" "1"
  10079. $row1969 setProp "is_event" "1"
  10080. $row1969 setProp "method_access" "Published"
  10081.  
  10082. set row1970 [$diag addRow method 0.0]
  10083. $row1970 setLabel "name_type" "EndDrag()\n"
  10084. $row1970 setProp "has_parmlist" "1"
  10085. $row1970 setProp "is_event" "1"
  10086. $row1970 setProp "method_access" "Published"
  10087.  
  10088. set row1971 [$diag addRow method 0.0]
  10089. $row1971 setLabel "name_type" "Enter()\n"
  10090. $row1971 setProp "has_parmlist" "1"
  10091. $row1971 setProp "is_event" "1"
  10092. $row1971 setProp "method_access" "Published"
  10093.  
  10094. set row1972 [$diag addRow method 0.0]
  10095. $row1972 setLabel "name_type" "Exit()\n"
  10096. $row1972 setProp "has_parmlist" "1"
  10097. $row1972 setProp "is_event" "1"
  10098. $row1972 setProp "method_access" "Published"
  10099.  
  10100. set row1973 [$diag addRow method 0.0]
  10101. $row1973 setLabel "name_type" "KeyDown()\n"
  10102. $row1973 setProp "has_parmlist" "1"
  10103. $row1973 setProp "is_event" "1"
  10104. $row1973 setProp "method_access" "Published"
  10105.  
  10106. set row1974 [$diag addRow method 0.0]
  10107. $row1974 setLabel "name_type" "KeyPress()\n"
  10108. $row1974 setProp "has_parmlist" "1"
  10109. $row1974 setProp "is_event" "1"
  10110. $row1974 setProp "method_access" "Published"
  10111.  
  10112. set row1975 [$diag addRow method 0.0]
  10113. $row1975 setLabel "name_type" "KeyUp()\n"
  10114. $row1975 setProp "has_parmlist" "1"
  10115. $row1975 setProp "is_event" "1"
  10116. $row1975 setProp "method_access" "Published"
  10117.  
  10118. set row1976 [$diag addRow method 0.0]
  10119. $row1976 setLabel "name_type" "Scroll()\n"
  10120. $row1976 setProp "has_parmlist" "1"
  10121. $row1976 setProp "is_event" "1"
  10122. $row1976 setProp "method_access" "Published"
  10123.  
  10124. set cell1977 [$row1976 addCell parameter 0.0]
  10125. $cell1977 setLabel "name_type" "Sender: TObject, "
  10126. $cell1977 setScope "name_type" "cl" "scopePhase"
  10127. $cell1977 setProp "is_declaration" "1" "name_type" "cl"
  10128. $cell1977 setProp "libunit" "System" "name_type" "cl"
  10129. $cell1977 setScope "name_type" "de" "scopeFile"
  10130.  
  10131. set cell1978 [$row1976 addCell parameter 0.0]
  10132. $cell1978 setLabel "name_type" "ScrollCode: TScrollCode, "
  10133. $cell1978 setScope "name_type" "cl" "scopePhase"
  10134. $cell1978 setProp "libunit" "StdCtrls" "name_type" "cl"
  10135. $cell1978 setScope "name_type" "de" "scopeFile"
  10136.  
  10137. set cell1979 [$row1976 addCell parameter 0.0]
  10138. $cell1979 setLabel "name_type" "ScrollPos: int"
  10139. $cell1979 setProp "pass_by" "Variable"
  10140. $cell1979 setScope "name_type" "cl" "scopePhase"
  10141. $cell1979 setScope "name_type" "de" "scopeFile"
  10142.  
  10143. set row1980 [$diag addRow method 0.0]
  10144. $row1980 setLabel "name_type" "StartDrag()"
  10145. $row1980 setProp "has_parmlist" "1"
  10146. $row1980 setProp "is_event" "1"
  10147. $row1980 setProp "method_access" "Published"
  10148.  
  10149. $diag save
  10150.  
  10151. # Generator: et.tcl    /main/titanic/10
  10152. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10153. # Interpreter to use: Otsh V7.1.1/B5
  10154. #
  10155. OTShRegister::importTool
  10156.  
  10157. set diag [CDM new TClassDict "DelphiVCL" "" "" "" "" "" 1]
  10158.  
  10159. set row1981 [$diag addRow method 0.0]
  10160. $row1981 setLabel "name_type" "Add()\n"
  10161. $row1981 setProp "has_parmlist" "1"
  10162.  
  10163. set cell1982 [$row1981 addCell parameter 0.0]
  10164. $cell1982 setLabel "name_type" "key: variant, "
  10165. $cell1982 setScope "name_type" "cl" "scopePhase"
  10166. $cell1982 setScope "name_type" "de" "scopeFile"
  10167.  
  10168. set cell1983 [$row1981 addCell parameter 0.0]
  10169. $cell1983 setLabel "name_type" "obj: pointer"
  10170. $cell1983 setScope "name_type" "cl" "scopePhase"
  10171. $cell1983 setScope "name_type" "de" "scopeFile"
  10172.  
  10173. set row1984 [$diag addRow method 0.0]
  10174. $row1984 setLabel "name_type" "Count(): integer\n"
  10175. $row1984 setProp "has_parmlist" "1"
  10176. $row1984 setScope "name_type" "cl" "scopePhase"
  10177.  
  10178. set row1985 [$diag addRow method 0.0]
  10179. $row1985 setLabel "name_type" "Remove()\n"
  10180. $row1985 setProp "has_parmlist" "1"
  10181.  
  10182. set cell1986 [$row1985 addCell parameter 0.0]
  10183. $cell1986 setLabel "name_type" "obj: pointer"
  10184. $cell1986 setScope "name_type" "cl" "scopePhase"
  10185. $cell1986 setScope "name_type" "de" "scopeFile"
  10186.  
  10187. set row1987 [$diag addRow method 0.0]
  10188. $row1987 setLabel "name_type" "RemoveUsingKey()\n"
  10189. $row1987 setProp "has_parmlist" "1"
  10190.  
  10191. set cell1988 [$row1987 addCell parameter 0.0]
  10192. $cell1988 setLabel "name_type" "key: variant"
  10193. $cell1988 setScope "name_type" "cl" "scopePhase"
  10194. $cell1988 setScope "name_type" "de" "scopeFile"
  10195.  
  10196. set row1989 [$diag addRow method 0.0]
  10197. $row1989 setLabel "name_type" "Item(): pointer\n"
  10198. $row1989 setProp "has_parmlist" "1"
  10199. $row1989 setScope "name_type" "cl" "scopePhase"
  10200.  
  10201. set cell1990 [$row1989 addCell parameter 0.0]
  10202. $cell1990 setLabel "name_type" "key: variant"
  10203. $cell1990 setScope "name_type" "cl" "scopePhase"
  10204. $cell1990 setScope "name_type" "de" "scopeFile"
  10205.  
  10206. set row1991 [$diag addRow method 0.0]
  10207. $row1991 setLabel "name_type" "First(): pointer\n"
  10208. $row1991 setProp "has_parmlist" "1"
  10209. $row1991 setScope "name_type" "cl" "scopePhase"
  10210.  
  10211. set row1992 [$diag addRow method 0.0]
  10212. $row1992 setLabel "name_type" "Last(): pointer\n"
  10213. $row1992 setProp "has_parmlist" "1"
  10214. $row1992 setScope "name_type" "cl" "scopePhase"
  10215.  
  10216. set row1993 [$diag addRow method 0.0]
  10217. $row1993 setLabel "name_type" "FirstKey(): variant\n"
  10218. $row1993 setProp "has_parmlist" "1"
  10219. $row1993 setScope "name_type" "cl" "scopePhase"
  10220.  
  10221. set row1994 [$diag addRow method 0.0]
  10222. $row1994 setLabel "name_type" "LastKey(): variant"
  10223. $row1994 setProp "has_parmlist" "1"
  10224. $row1994 setScope "name_type" "cl" "scopePhase"
  10225.  
  10226. $diag save
  10227.  
  10228. # Generator: et.tcl    /main/titanic/10
  10229. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10230. # Interpreter to use: Otsh V7.1.1/B5
  10231. #
  10232. OTShRegister::importTool
  10233.  
  10234. set diag [CDM new TClassDictElem "DelphiVCL" "" "" "" "" "" 1]
  10235.  
  10236. set row1995 [$diag addRow attribute 0.0]
  10237. $row1995 setLabel "name_type" "obj: pointer\n"
  10238. $row1995 setScope "name_type" "cl" "scopePhase"
  10239.  
  10240. set row1996 [$diag addRow attribute 0.0]
  10241. $row1996 setLabel "name_type" "key: variant"
  10242. $row1996 setScope "name_type" "cl" "scopePhase"
  10243.  
  10244. $diag save
  10245.  
  10246. # Generator: et.tcl    /main/titanic/10
  10247. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10248. # Interpreter to use: Otsh V7.1.1/B5
  10249. #
  10250. OTShRegister::importTool
  10251.  
  10252. set diag [CDM new TCustomListBox "DelphiVCL" "" "" "" "" "" 1]
  10253.  
  10254. set row1997 [$diag addRow method 0.0]
  10255. $row1997 setLabel "name_type" "DrawItem()\n"
  10256. $row1997 setProp "has_parmlist" "1"
  10257. $row1997 setProp "is_event" "1"
  10258.  
  10259. set cell1998 [$row1997 addCell parameter 0.0]
  10260. $cell1998 setLabel "name_type" "ListBox: TListBox, "
  10261. $cell1998 setScope "name_type" "cl" "scopePhase"
  10262. $cell1998 setProp "is_declaration" "1" "name_type" "cl"
  10263. $cell1998 setProp "libunit" "StdCtrls" "name_type" "cl"
  10264. $cell1998 setScope "name_type" "de" "scopeFile"
  10265.  
  10266. set cell1999 [$row1997 addCell parameter 0.0]
  10267. $cell1999 setLabel "name_type" "Index: int, "
  10268. $cell1999 setScope "name_type" "cl" "scopePhase"
  10269. $cell1999 setScope "name_type" "de" "scopeFile"
  10270.  
  10271. set cell2000 [$row1997 addCell parameter 0.0]
  10272. $cell2000 setLabel "name_type" "Rect: TRect, "
  10273. $cell2000 setScope "name_type" "cl" "scopePhase"
  10274. $cell2000 setProp "libunit" "Other" "name_type" "cl"
  10275. $cell2000 setProp "userlib" "Windows" "name_type" "cl"
  10276. $cell2000 setScope "name_type" "de" "scopeFile"
  10277.  
  10278. set cell2001 [$row1997 addCell parameter 0.0]
  10279. $cell2001 setLabel "name_type" "State: TOwnerDrawState"
  10280. $cell2001 setScope "name_type" "cl" "scopePhase"
  10281. $cell2001 setProp "libunit" "StdCtrls" "name_type" "cl"
  10282. $cell2001 setScope "name_type" "de" "scopeFile"
  10283.  
  10284. set row2002 [$diag addRow method 0.0]
  10285. $row2002 setLabel "name_type" "MeasureItem()"
  10286. $row2002 setProp "has_parmlist" "1"
  10287. $row2002 setProp "is_event" "1"
  10288.  
  10289. set cell2003 [$row2002 addCell parameter 0.0]
  10290. $cell2003 setLabel "name_type" "Control: TWinControl, "
  10291. $cell2003 setScope "name_type" "cl" "scopePhase"
  10292. $cell2003 setProp "is_declaration" "1" "name_type" "cl"
  10293. $cell2003 setProp "libunit" "Controls" "name_type" "cl"
  10294. $cell2003 setScope "name_type" "de" "scopeFile"
  10295.  
  10296. set cell2004 [$row2002 addCell parameter 0.0]
  10297. $cell2004 setLabel "name_type" "Index: int, "
  10298. $cell2004 setScope "name_type" "cl" "scopePhase"
  10299. $cell2004 setScope "name_type" "de" "scopeFile"
  10300.  
  10301. set cell2005 [$row2002 addCell parameter 0.0]
  10302. $cell2005 setLabel "name_type" "Height: int"
  10303. $cell2005 setProp "pass_by" "Variable"
  10304. $cell2005 setScope "name_type" "cl" "scopePhase"
  10305. $cell2005 setScope "name_type" "de" "scopeFile"
  10306.  
  10307. $diag save
  10308.  
  10309. # Generator: et.tcl    /main/titanic/10
  10310. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10311. # Interpreter to use: Otsh V7.1.1/B5
  10312. #
  10313. OTShRegister::importTool
  10314.  
  10315. set diag [CDM new TCustomEdit "DelphiVCL" "" "" "" "" "" 1]
  10316.  
  10317. set row2006 [$diag addRow method 0.0]
  10318. $row2006 setLabel "name_type" "Change()"
  10319. $row2006 setProp "has_parmlist" "1"
  10320. $row2006 setProp "is_event" "1"
  10321. $row2006 setProp "method_access" "Protected"
  10322.  
  10323. set cell2007 [$row2006 addCell parameter 0.0]
  10324. $cell2007 setLabel "name_type" "Sender: TField"
  10325. $cell2007 setScope "name_type" "cl" "scopePhase"
  10326. $cell2007 setProp "is_declaration" "1" "name_type" "cl"
  10327. $cell2007 setProp "libunit" "Other" "name_type" "cl"
  10328. $cell2007 setProp "userlib" "DB" "name_type" "cl"
  10329. $cell2007 setScope "name_type" "de" "scopeFile"
  10330.  
  10331. $diag save
  10332.  
  10333. # Generator: et.tcl    /main/titanic/10
  10334. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10335. # Interpreter to use: Otsh V7.1.1/B5
  10336. #
  10337. OTShRegister::importTool
  10338.  
  10339. set diag [CDM new TCustomComboBox "DelphiVCL" "" "" "" "" "" 1]
  10340.  
  10341. set row2008 [$diag addRow method 0.0]
  10342. $row2008 setLabel "name_type" "Change()\n"
  10343. $row2008 setProp "has_parmlist" "1"
  10344. $row2008 setProp "is_event" "1"
  10345. $row2008 setProp "method_access" "Protected"
  10346.  
  10347. set cell2009 [$row2008 addCell parameter 0.0]
  10348. $cell2009 setLabel "name_type" "Sender: TField"
  10349. $cell2009 setScope "name_type" "cl" "scopePhase"
  10350. $cell2009 setProp "is_declaration" "1" "name_type" "cl"
  10351. $cell2009 setProp "libunit" "Other" "name_type" "cl"
  10352. $cell2009 setProp "userlib" "DB" "name_type" "cl"
  10353. $cell2009 setScope "name_type" "de" "scopeFile"
  10354.  
  10355. set row2010 [$diag addRow method 0.0]
  10356. $row2010 setLabel "name_type" "DrawItem()\n"
  10357. $row2010 setProp "has_parmlist" "1"
  10358. $row2010 setProp "is_event" "1"
  10359. $row2010 setProp "method_access" "Protected"
  10360.  
  10361. set cell2011 [$row2010 addCell parameter 0.0]
  10362. $cell2011 setLabel "name_type" "ListBox: TListBox, "
  10363. $cell2011 setScope "name_type" "cl" "scopePhase"
  10364. $cell2011 setProp "is_declaration" "1" "name_type" "cl"
  10365. $cell2011 setProp "libunit" "StdCtrls" "name_type" "cl"
  10366. $cell2011 setScope "name_type" "de" "scopeFile"
  10367.  
  10368. set cell2012 [$row2010 addCell parameter 0.0]
  10369. $cell2012 setLabel "name_type" "Index: int, "
  10370. $cell2012 setScope "name_type" "cl" "scopePhase"
  10371. $cell2012 setScope "name_type" "de" "scopeFile"
  10372.  
  10373. set cell2013 [$row2010 addCell parameter 0.0]
  10374. $cell2013 setLabel "name_type" "Rect: TRect, "
  10375. $cell2013 setScope "name_type" "cl" "scopePhase"
  10376. $cell2013 setProp "libunit" "Other" "name_type" "cl"
  10377. $cell2013 setProp "userlib" "Windows" "name_type" "cl"
  10378. $cell2013 setScope "name_type" "de" "scopeFile"
  10379.  
  10380. set cell2014 [$row2010 addCell parameter 0.0]
  10381. $cell2014 setLabel "name_type" "State: TOwnerDrawState"
  10382. $cell2014 setScope "name_type" "cl" "scopePhase"
  10383. $cell2014 setProp "libunit" "StdCtrls" "name_type" "cl"
  10384. $cell2014 setScope "name_type" "de" "scopeFile"
  10385.  
  10386. set row2015 [$diag addRow method 0.0]
  10387. $row2015 setLabel "name_type" "DropDown()\n"
  10388. $row2015 setProp "has_parmlist" "1"
  10389. $row2015 setProp "is_event" "1"
  10390. $row2015 setProp "method_access" "Protected"
  10391.  
  10392. set cell2016 [$row2015 addCell parameter 0.0]
  10393. $cell2016 setLabel "name_type" "Sender: TObject"
  10394. $cell2016 setScope "name_type" "cl" "scopePhase"
  10395. $cell2016 setProp "is_declaration" "1" "name_type" "cl"
  10396. $cell2016 setProp "libunit" "System" "name_type" "cl"
  10397. $cell2016 setScope "name_type" "de" "scopeFile"
  10398.  
  10399. set row2017 [$diag addRow method 0.0]
  10400. $row2017 setLabel "name_type" "MeasureItem()"
  10401. $row2017 setProp "has_parmlist" "1"
  10402. $row2017 setProp "is_event" "1"
  10403. $row2017 setProp "method_access" "Protected"
  10404.  
  10405. set cell2018 [$row2017 addCell parameter 0.0]
  10406. $cell2018 setLabel "name_type" "Control: TWinControl, "
  10407. $cell2018 setScope "name_type" "cl" "scopePhase"
  10408. $cell2018 setProp "is_declaration" "1" "name_type" "cl"
  10409. $cell2018 setProp "libunit" "Controls" "name_type" "cl"
  10410. $cell2018 setScope "name_type" "de" "scopeFile"
  10411.  
  10412. set cell2019 [$row2017 addCell parameter 0.0]
  10413. $cell2019 setLabel "name_type" "Index: int, "
  10414. $cell2019 setScope "name_type" "cl" "scopePhase"
  10415. $cell2019 setScope "name_type" "de" "scopeFile"
  10416.  
  10417. set cell2020 [$row2017 addCell parameter 0.0]
  10418. $cell2020 setLabel "name_type" "Height: int"
  10419. $cell2020 setProp "pass_by" "Variable"
  10420. $cell2020 setScope "name_type" "cl" "scopePhase"
  10421. $cell2020 setScope "name_type" "de" "scopeFile"
  10422.  
  10423. $diag save
  10424.  
  10425. # Generator: et.tcl    /main/titanic/10
  10426. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10427. # Interpreter to use: Otsh V7.1.1/B5
  10428. #
  10429. OTShRegister::importTool
  10430.  
  10431. set diag [CDM new TGroupBox "DelphiVCL" "" "" "" "" "" 1]
  10432.  
  10433. set row2021 [$diag addRow method 0.0]
  10434. $row2021 setLabel "name_type" "Click()\n"
  10435. $row2021 setProp "has_parmlist" "1"
  10436. $row2021 setProp "is_event" "1"
  10437. $row2021 setProp "method_access" "Published"
  10438.  
  10439. set row2022 [$diag addRow method 0.0]
  10440. $row2022 setLabel "name_type" "DblClick()\n"
  10441. $row2022 setProp "has_parmlist" "1"
  10442. $row2022 setProp "is_event" "1"
  10443. $row2022 setProp "method_access" "Published"
  10444.  
  10445. set row2023 [$diag addRow method 0.0]
  10446. $row2023 setLabel "name_type" "DragDrop()\n"
  10447. $row2023 setProp "has_parmlist" "1"
  10448. $row2023 setProp "is_event" "1"
  10449. $row2023 setProp "method_access" "Published"
  10450.  
  10451. set row2024 [$diag addRow method 0.0]
  10452. $row2024 setLabel "name_type" "DragOver()\n"
  10453. $row2024 setProp "has_parmlist" "1"
  10454. $row2024 setProp "is_event" "1"
  10455. $row2024 setProp "method_access" "Published"
  10456.  
  10457. set row2025 [$diag addRow method 0.0]
  10458. $row2025 setLabel "name_type" "EndDrag()\n"
  10459. $row2025 setProp "has_parmlist" "1"
  10460. $row2025 setProp "is_event" "1"
  10461. $row2025 setProp "method_access" "Published"
  10462.  
  10463. set row2026 [$diag addRow method 0.0]
  10464. $row2026 setLabel "name_type" "Enter()\n"
  10465. $row2026 setProp "has_parmlist" "1"
  10466. $row2026 setProp "is_event" "1"
  10467. $row2026 setProp "method_access" "Published"
  10468.  
  10469. set row2027 [$diag addRow method 0.0]
  10470. $row2027 setLabel "name_type" "Exit()\n"
  10471. $row2027 setProp "has_parmlist" "1"
  10472. $row2027 setProp "is_event" "1"
  10473. $row2027 setProp "method_access" "Published"
  10474.  
  10475. set row2028 [$diag addRow method 0.0]
  10476. $row2028 setLabel "name_type" "MouseDown()\n"
  10477. $row2028 setProp "has_parmlist" "1"
  10478. $row2028 setProp "is_event" "1"
  10479. $row2028 setProp "method_access" "Published"
  10480.  
  10481. set row2029 [$diag addRow method 0.0]
  10482. $row2029 setLabel "name_type" "MouseMove()\n"
  10483. $row2029 setProp "has_parmlist" "1"
  10484. $row2029 setProp "is_event" "1"
  10485. $row2029 setProp "method_access" "Published"
  10486.  
  10487. set row2030 [$diag addRow method 0.0]
  10488. $row2030 setLabel "name_type" "MouseUp()\n"
  10489. $row2030 setProp "has_parmlist" "1"
  10490. $row2030 setProp "is_event" "1"
  10491. $row2030 setProp "method_access" "Published"
  10492.  
  10493. set row2031 [$diag addRow method 0.0]
  10494. $row2031 setLabel "name_type" "StartDrag()"
  10495. $row2031 setProp "has_parmlist" "1"
  10496. $row2031 setProp "is_event" "1"
  10497. $row2031 setProp "method_access" "Published"
  10498.  
  10499. $diag save
  10500.  
  10501. # Generator: et.tcl    /main/titanic/10
  10502. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10503. # Interpreter to use: Otsh V7.1.1/B5
  10504. #
  10505. OTShRegister::importTool
  10506.  
  10507. set diag [CAD new StdCtrlsTypes "DelphiVCL" "" "" "" "" "" 1]
  10508.  
  10509. set node2032 [$diag addNode cad_class 768.0 688.0 139.0 167.0]
  10510. $node2032 setLabel "name" "TOwnerDrawState"
  10511. $node2032 setScope "name" "cl" "scopePhase"
  10512. $node2032 setProp "libunit" "StdCtrls" "name" "cl"
  10513.  
  10514. set node2033 [$diag addNode cad_class 512.0 640.0 149.0 231.0]
  10515. $node2033 setLabel "name" "TScrollCode"
  10516. $node2033 setScope "name" "cl" "scopePhase"
  10517. $node2033 setProp "libunit" "StdCtrls" "name" "cl"
  10518.  
  10519. $diag save
  10520.  
  10521. # Generator: et.tcl    /main/titanic/10
  10522. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10523. # Interpreter to use: Otsh V7.1.1/B5
  10524. #
  10525. OTShRegister::importTool
  10526.  
  10527. set diag [CDM new TScrollCode "DelphiVCL" "" "" "" "" "" 1]
  10528.  
  10529. set row2034 [$diag addRow attribute 0.0]
  10530. $row2034 setLabel "name_type" "\$scLineUp: enum\n"
  10531. $row2034 setProp "is_class_feature" "1"
  10532. $row2034 setScope "name_type" "cl" "scopePhase"
  10533.  
  10534. set row2035 [$diag addRow attribute 0.0]
  10535. $row2035 setLabel "name_type" "\$scLineDown: enum\n"
  10536. $row2035 setProp "is_class_feature" "1"
  10537. $row2035 setScope "name_type" "cl" "scopePhase"
  10538.  
  10539. set row2036 [$diag addRow attribute 0.0]
  10540. $row2036 setLabel "name_type" "\$scPageUp: enum\n"
  10541. $row2036 setProp "is_class_feature" "1"
  10542. $row2036 setScope "name_type" "cl" "scopePhase"
  10543.  
  10544. set row2037 [$diag addRow attribute 0.0]
  10545. $row2037 setLabel "name_type" "\$scPageDown: enum\n"
  10546. $row2037 setProp "is_class_feature" "1"
  10547. $row2037 setScope "name_type" "cl" "scopePhase"
  10548.  
  10549. set row2038 [$diag addRow attribute 0.0]
  10550. $row2038 setLabel "name_type" "\$scPosition: enum\n"
  10551. $row2038 setProp "is_class_feature" "1"
  10552. $row2038 setScope "name_type" "cl" "scopePhase"
  10553.  
  10554. set row2039 [$diag addRow attribute 0.0]
  10555. $row2039 setLabel "name_type" "\$scTrack: enum\n"
  10556. $row2039 setProp "is_class_feature" "1"
  10557. $row2039 setScope "name_type" "cl" "scopePhase"
  10558.  
  10559. set row2040 [$diag addRow attribute 0.0]
  10560. $row2040 setLabel "name_type" "\$scTop: enum\n"
  10561. $row2040 setProp "is_class_feature" "1"
  10562. $row2040 setScope "name_type" "cl" "scopePhase"
  10563.  
  10564. set row2041 [$diag addRow attribute 0.0]
  10565. $row2041 setLabel "name_type" "\$scBottom: enum\n"
  10566. $row2041 setProp "is_class_feature" "1"
  10567. $row2041 setScope "name_type" "cl" "scopePhase"
  10568.  
  10569. set row2042 [$diag addRow attribute 0.0]
  10570. $row2042 setLabel "name_type" "\$scEndScroll: enum"
  10571. $row2042 setProp "is_class_feature" "1"
  10572. $row2042 setScope "name_type" "cl" "scopePhase"
  10573.  
  10574. $diag save
  10575.  
  10576. # Generator: et.tcl    /main/titanic/10
  10577. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10578. # Interpreter to use: Otsh V7.1.1/B5
  10579. #
  10580. OTShRegister::importTool
  10581.  
  10582. set diag [CDM new TOwnerDrawState "DelphiVCL" "" "" "" "" "" 1]
  10583.  
  10584. set row2043 [$diag addRow attribute 0.0]
  10585. $row2043 setLabel "name_type" "\$odSelected: enum\n"
  10586. $row2043 setProp "is_class_feature" "1"
  10587. $row2043 setScope "name_type" "cl" "scopePhase"
  10588.  
  10589. set row2044 [$diag addRow attribute 0.0]
  10590. $row2044 setLabel "name_type" "\$odGrayed: enum\n"
  10591. $row2044 setProp "is_class_feature" "1"
  10592. $row2044 setScope "name_type" "cl" "scopePhase"
  10593.  
  10594. set row2045 [$diag addRow attribute 0.0]
  10595. $row2045 setLabel "name_type" "\$odDisabled: enum\n"
  10596. $row2045 setProp "is_class_feature" "1"
  10597. $row2045 setScope "name_type" "cl" "scopePhase"
  10598.  
  10599. set row2046 [$diag addRow attribute 0.0]
  10600. $row2046 setLabel "name_type" "\$odChecked: enum\n"
  10601. $row2046 setProp "is_class_feature" "1"
  10602. $row2046 setScope "name_type" "cl" "scopePhase"
  10603.  
  10604. set row2047 [$diag addRow attribute 0.0]
  10605. $row2047 setLabel "name_type" "\$odFocused: enum"
  10606. $row2047 setProp "is_class_feature" "1"
  10607. $row2047 setScope "name_type" "cl" "scopePhase"
  10608.  
  10609. $diag save
  10610.  
  10611. # Generator: et.tcl    /main/titanic/10
  10612. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10613. # Interpreter to use: Otsh V7.1.1/B5
  10614. #
  10615. OTShRegister::importTool
  10616.  
  10617. set diag [CAD new ControlsTypes "DelphiVCL" "" "" "" "" "" 1]
  10618.  
  10619. set node2048 [$diag addNode cad_class 736.0 704.0 127.0 135.0]
  10620. $node2048 setLabel "name" "TMouseButton"
  10621. $node2048 setScope "name" "cl" "scopePhase"
  10622. $node2048 setProp "libunit" "Controls" "name" "cl"
  10623.  
  10624. set node2049 [$diag addNode cad_class 528.0 704.0 152.0 135.0]
  10625. $node2049 setLabel "name" "TDragState"
  10626. $node2049 setScope "name" "cl" "scopePhase"
  10627. $node2049 setProp "libunit" "Controls" "name" "cl"
  10628.  
  10629. $diag save
  10630.  
  10631. # Generator: et.tcl    /main/titanic/10
  10632. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10633. # Interpreter to use: Otsh V7.1.1/B5
  10634. #
  10635. OTShRegister::importTool
  10636.  
  10637. set diag [CAD new FormsTypes "DelphiVCL" "" "" "" "" "" 1]
  10638.  
  10639. set node2050 [$diag addNode cad_class 784.0 800.0 137.0 151.0]
  10640. $node2050 setLabel "name" "TCloseAction"
  10641. $node2050 setScope "name" "cl" "scopePhase"
  10642.  
  10643. set node2051 [$diag addNode cad_class 944.0 800.0 120.0 103.0]
  10644. $node2051 setLabel "name" "TMsg"
  10645. $node2051 setScope "name" "cl" "scopePhase"
  10646. $node2051 setProp "libunit" "Forms" "name" "cl"
  10647.  
  10648. $diag save
  10649.  
  10650. # Generator: et.tcl    /main/titanic/10
  10651. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10652. # Interpreter to use: Otsh V7.1.1/B5
  10653. #
  10654. OTShRegister::importTool
  10655.  
  10656. set diag [CDM new TControl "DelphiVCL" "" "" "" "" "" 1]
  10657.  
  10658. set row2052 [$diag addRow method 0.0]
  10659. $row2052 setLabel "name_type" "Click()\n"
  10660. $row2052 setProp "has_parmlist" "1"
  10661. $row2052 setProp "is_event" "1"
  10662. $row2052 setProp "method_access" "Protected"
  10663.  
  10664. set cell2053 [$row2052 addCell parameter 0.0]
  10665. $cell2053 setLabel "name_type" "Sender: TObject"
  10666. $cell2053 setScope "name_type" "cl" "scopePhase"
  10667. $cell2053 setProp "is_declaration" "1" "name_type" "cl"
  10668. $cell2053 setProp "libunit" "System" "name_type" "cl"
  10669. $cell2053 setScope "name_type" "de" "scopeFile"
  10670.  
  10671. set row2054 [$diag addRow method 0.0]
  10672. $row2054 setLabel "name_type" "DblClick()\n"
  10673. $row2054 setProp "has_parmlist" "1"
  10674. $row2054 setProp "is_event" "1"
  10675. $row2054 setProp "method_access" "Protected"
  10676.  
  10677. set cell2055 [$row2054 addCell parameter 0.0]
  10678. $cell2055 setLabel "name_type" "Sender: TObject"
  10679. $cell2055 setScope "name_type" "cl" "scopePhase"
  10680. $cell2055 setProp "is_declaration" "1" "name_type" "cl"
  10681. $cell2055 setProp "libunit" "System" "name_type" "cl"
  10682. $cell2055 setScope "name_type" "de" "scopeFile"
  10683.  
  10684. set row2056 [$diag addRow method 0.0]
  10685. $row2056 setLabel "name_type" "DragDrop()\n"
  10686. $row2056 setProp "has_parmlist" "1"
  10687. $row2056 setProp "is_event" "1"
  10688. $row2056 setProp "method_access" "Protected"
  10689.  
  10690. set cell2057 [$row2056 addCell parameter 0.0]
  10691. $cell2057 setLabel "name_type" "Sender: TObject, "
  10692. $cell2057 setScope "name_type" "cl" "scopePhase"
  10693. $cell2057 setProp "is_declaration" "1" "name_type" "cl"
  10694. $cell2057 setProp "libunit" "System" "name_type" "cl"
  10695. $cell2057 setScope "name_type" "de" "scopeFile"
  10696.  
  10697. set cell2058 [$row2056 addCell parameter 0.0]
  10698. $cell2058 setLabel "name_type" "Source: TObject, "
  10699. $cell2058 setScope "name_type" "cl" "scopePhase"
  10700. $cell2058 setProp "is_declaration" "1" "name_type" "cl"
  10701. $cell2058 setProp "libunit" "System" "name_type" "cl"
  10702. $cell2058 setScope "name_type" "de" "scopeFile"
  10703.  
  10704. set cell2059 [$row2056 addCell parameter 0.0]
  10705. $cell2059 setLabel "name_type" "X: int, "
  10706. $cell2059 setScope "name_type" "cl" "scopePhase"
  10707. $cell2059 setScope "name_type" "de" "scopeFile"
  10708.  
  10709. set cell2060 [$row2056 addCell parameter 0.0]
  10710. $cell2060 setLabel "name_type" "Y: int"
  10711. $cell2060 setScope "name_type" "cl" "scopePhase"
  10712. $cell2060 setScope "name_type" "de" "scopeFile"
  10713.  
  10714. set row2061 [$diag addRow method 0.0]
  10715. $row2061 setLabel "name_type" "DragOver()\n"
  10716. $row2061 setProp "has_parmlist" "1"
  10717. $row2061 setProp "is_event" "1"
  10718. $row2061 setProp "method_access" "Protected"
  10719.  
  10720. set cell2062 [$row2061 addCell parameter 0.0]
  10721. $cell2062 setLabel "name_type" "Sender: TObject, "
  10722. $cell2062 setScope "name_type" "cl" "scopePhase"
  10723. $cell2062 setProp "is_declaration" "1" "name_type" "cl"
  10724. $cell2062 setProp "libunit" "System" "name_type" "cl"
  10725. $cell2062 setScope "name_type" "de" "scopeFile"
  10726.  
  10727. set cell2063 [$row2061 addCell parameter 0.0]
  10728. $cell2063 setLabel "name_type" "Source: TObject, "
  10729. $cell2063 setScope "name_type" "cl" "scopePhase"
  10730. $cell2063 setProp "is_declaration" "1" "name_type" "cl"
  10731. $cell2063 setProp "libunit" "System" "name_type" "cl"
  10732. $cell2063 setScope "name_type" "de" "scopeFile"
  10733.  
  10734. set cell2064 [$row2061 addCell parameter 0.0]
  10735. $cell2064 setLabel "name_type" "X: int, "
  10736. $cell2064 setScope "name_type" "cl" "scopePhase"
  10737. $cell2064 setScope "name_type" "de" "scopeFile"
  10738.  
  10739. set cell2065 [$row2061 addCell parameter 0.0]
  10740. $cell2065 setLabel "name_type" "Y: int, "
  10741. $cell2065 setScope "name_type" "cl" "scopePhase"
  10742. $cell2065 setScope "name_type" "de" "scopeFile"
  10743.  
  10744. set cell2066 [$row2061 addCell parameter 0.0]
  10745. $cell2066 setLabel "name_type" "State: TDragState, "
  10746. $cell2066 setScope "name_type" "cl" "scopePhase"
  10747. $cell2066 setProp "libunit" "Controls" "name_type" "cl"
  10748. $cell2066 setScope "name_type" "de" "scopeFile"
  10749.  
  10750. set cell2067 [$row2061 addCell parameter 0.0]
  10751. $cell2067 setLabel "name_type" "Accept: bool"
  10752. $cell2067 setProp "pass_by" "Variable"
  10753. $cell2067 setScope "name_type" "cl" "scopePhase"
  10754. $cell2067 setScope "name_type" "de" "scopeFile"
  10755.  
  10756. set row2068 [$diag addRow method 0.0]
  10757. $row2068 setLabel "name_type" "EndDrag()\n"
  10758. $row2068 setProp "has_parmlist" "1"
  10759. $row2068 setProp "is_event" "1"
  10760. $row2068 setProp "method_access" "Protected"
  10761.  
  10762. set cell2069 [$row2068 addCell parameter 0.0]
  10763. $cell2069 setLabel "name_type" "Sender: TObject, "
  10764. $cell2069 setScope "name_type" "cl" "scopePhase"
  10765. $cell2069 setProp "is_declaration" "1" "name_type" "cl"
  10766. $cell2069 setProp "libunit" "System" "name_type" "cl"
  10767. $cell2069 setScope "name_type" "de" "scopeFile"
  10768.  
  10769. set cell2070 [$row2068 addCell parameter 0.0]
  10770. $cell2070 setLabel "name_type" "Source: TObject, "
  10771. $cell2070 setScope "name_type" "cl" "scopePhase"
  10772. $cell2070 setProp "is_declaration" "1" "name_type" "cl"
  10773. $cell2070 setProp "libunit" "System" "name_type" "cl"
  10774. $cell2070 setScope "name_type" "de" "scopeFile"
  10775.  
  10776. set cell2071 [$row2068 addCell parameter 0.0]
  10777. $cell2071 setLabel "name_type" "X: int, "
  10778. $cell2071 setScope "name_type" "cl" "scopePhase"
  10779. $cell2071 setScope "name_type" "de" "scopeFile"
  10780.  
  10781. set cell2072 [$row2068 addCell parameter 0.0]
  10782. $cell2072 setLabel "name_type" "Y: int"
  10783. $cell2072 setScope "name_type" "cl" "scopePhase"
  10784. $cell2072 setScope "name_type" "de" "scopeFile"
  10785.  
  10786. set row2073 [$diag addRow method 0.0]
  10787. $row2073 setLabel "name_type" "MouseDown()\n"
  10788. $row2073 setProp "has_parmlist" "1"
  10789. $row2073 setProp "is_event" "1"
  10790. $row2073 setProp "method_access" "Protected"
  10791.  
  10792. set cell2074 [$row2073 addCell parameter 0.0]
  10793. $cell2074 setLabel "name_type" "Sender: TObject, "
  10794. $cell2074 setScope "name_type" "cl" "scopePhase"
  10795. $cell2074 setProp "is_declaration" "1" "name_type" "cl"
  10796. $cell2074 setProp "libunit" "System" "name_type" "cl"
  10797. $cell2074 setScope "name_type" "de" "scopeFile"
  10798.  
  10799. set cell2075 [$row2073 addCell parameter 0.0]
  10800. $cell2075 setLabel "name_type" "Button: TMouseButton, "
  10801. $cell2075 setScope "name_type" "cl" "scopePhase"
  10802. $cell2075 setProp "libunit" "Controls" "name_type" "cl"
  10803. $cell2075 setScope "name_type" "de" "scopeFile"
  10804.  
  10805. set cell2076 [$row2073 addCell parameter 0.0]
  10806. $cell2076 setLabel "name_type" "Shift: TShiftState, "
  10807. $cell2076 setScope "name_type" "cl" "scopePhase"
  10808. $cell2076 setProp "libunit" "Classes" "name_type" "cl"
  10809. $cell2076 setScope "name_type" "de" "scopeFile"
  10810.  
  10811. set cell2077 [$row2073 addCell parameter 0.0]
  10812. $cell2077 setLabel "name_type" "X: int, "
  10813. $cell2077 setScope "name_type" "cl" "scopePhase"
  10814. $cell2077 setScope "name_type" "de" "scopeFile"
  10815.  
  10816. set cell2078 [$row2073 addCell parameter 0.0]
  10817. $cell2078 setLabel "name_type" "Y: int"
  10818. $cell2078 setScope "name_type" "cl" "scopePhase"
  10819. $cell2078 setScope "name_type" "de" "scopeFile"
  10820.  
  10821. set row2079 [$diag addRow method 0.0]
  10822. $row2079 setLabel "name_type" "MouseMove()\n"
  10823. $row2079 setProp "has_parmlist" "1"
  10824. $row2079 setProp "is_event" "1"
  10825. $row2079 setProp "method_access" "Protected"
  10826.  
  10827. set cell2080 [$row2079 addCell parameter 0.0]
  10828. $cell2080 setLabel "name_type" "Sender: TObject, "
  10829. $cell2080 setScope "name_type" "cl" "scopePhase"
  10830. $cell2080 setProp "is_declaration" "1" "name_type" "cl"
  10831. $cell2080 setProp "libunit" "System" "name_type" "cl"
  10832. $cell2080 setScope "name_type" "de" "scopeFile"
  10833.  
  10834. set cell2081 [$row2079 addCell parameter 0.0]
  10835. $cell2081 setLabel "name_type" "Shift: TShiftState, "
  10836. $cell2081 setScope "name_type" "cl" "scopePhase"
  10837. $cell2081 setProp "libunit" "Classes" "name_type" "cl"
  10838. $cell2081 setScope "name_type" "de" "scopeFile"
  10839.  
  10840. set cell2082 [$row2079 addCell parameter 0.0]
  10841. $cell2082 setLabel "name_type" "X: int, "
  10842. $cell2082 setScope "name_type" "cl" "scopePhase"
  10843. $cell2082 setScope "name_type" "de" "scopeFile"
  10844.  
  10845. set cell2083 [$row2079 addCell parameter 0.0]
  10846. $cell2083 setLabel "name_type" "Y: int"
  10847. $cell2083 setScope "name_type" "cl" "scopePhase"
  10848. $cell2083 setScope "name_type" "de" "scopeFile"
  10849.  
  10850. set row2084 [$diag addRow method 0.0]
  10851. $row2084 setLabel "name_type" "MouseUp()\n"
  10852. $row2084 setProp "has_parmlist" "1"
  10853. $row2084 setProp "is_event" "1"
  10854. $row2084 setProp "method_access" "Protected"
  10855.  
  10856. set cell2085 [$row2084 addCell parameter 0.0]
  10857. $cell2085 setLabel "name_type" "Sender: TObject, "
  10858. $cell2085 setScope "name_type" "cl" "scopePhase"
  10859. $cell2085 setProp "is_declaration" "1" "name_type" "cl"
  10860. $cell2085 setProp "libunit" "System" "name_type" "cl"
  10861. $cell2085 setScope "name_type" "de" "scopeFile"
  10862.  
  10863. set cell2086 [$row2084 addCell parameter 0.0]
  10864. $cell2086 setLabel "name_type" "Button: TMouseButton, "
  10865. $cell2086 setScope "name_type" "cl" "scopePhase"
  10866. $cell2086 setProp "libunit" "Controls" "name_type" "cl"
  10867. $cell2086 setScope "name_type" "de" "scopeFile"
  10868.  
  10869. set cell2087 [$row2084 addCell parameter 0.0]
  10870. $cell2087 setLabel "name_type" "Shift: TShiftState, "
  10871. $cell2087 setScope "name_type" "cl" "scopePhase"
  10872. $cell2087 setProp "libunit" "Classes" "name_type" "cl"
  10873. $cell2087 setScope "name_type" "de" "scopeFile"
  10874.  
  10875. set cell2088 [$row2084 addCell parameter 0.0]
  10876. $cell2088 setLabel "name_type" "X: int, "
  10877. $cell2088 setScope "name_type" "cl" "scopePhase"
  10878. $cell2088 setScope "name_type" "de" "scopeFile"
  10879.  
  10880. set cell2089 [$row2084 addCell parameter 0.0]
  10881. $cell2089 setLabel "name_type" "Y: int"
  10882. $cell2089 setScope "name_type" "cl" "scopePhase"
  10883. $cell2089 setScope "name_type" "de" "scopeFile"
  10884.  
  10885. set row2090 [$diag addRow method 0.0]
  10886. $row2090 setLabel "name_type" "StartDrag()"
  10887. $row2090 setProp "has_parmlist" "1"
  10888. $row2090 setProp "is_event" "1"
  10889. $row2090 setProp "method_access" "Protected"
  10890.  
  10891. set cell2091 [$row2090 addCell parameter 0.0]
  10892. $cell2091 setLabel "name_type" "Sender: TObject, "
  10893. $cell2091 setScope "name_type" "cl" "scopePhase"
  10894. $cell2091 setProp "is_declaration" "1" "name_type" "cl"
  10895. $cell2091 setProp "libunit" "System" "name_type" "cl"
  10896. $cell2091 setScope "name_type" "de" "scopeFile"
  10897.  
  10898. set cell2092 [$row2090 addCell parameter 0.0]
  10899. $cell2092 setLabel "name_type" "DragObject: TDragObject"
  10900. $cell2092 setProp "pass_by" "Variable"
  10901. $cell2092 setScope "name_type" "cl" "scopePhase"
  10902. $cell2092 setScope "name_type" "de" "scopeFile"
  10903.  
  10904. $diag save
  10905.  
  10906. # Generator: et.tcl    /main/titanic/10
  10907. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10908. # Interpreter to use: Otsh V7.1.1/B5
  10909. #
  10910. OTShRegister::importTool
  10911.  
  10912. set diag [CDM new TDragState "DelphiVCL" "" "" "" "" "" 1]
  10913.  
  10914. set row2093 [$diag addRow attribute 0.0]
  10915. $row2093 setLabel "name_type" "\$dsDragEnter: enum\n"
  10916. $row2093 setProp "is_class_feature" "1"
  10917. $row2093 setScope "name_type" "cl" "scopePhase"
  10918.  
  10919. set row2094 [$diag addRow attribute 0.0]
  10920. $row2094 setLabel "name_type" "\$dsDragLeave: enum\n"
  10921. $row2094 setProp "is_class_feature" "1"
  10922. $row2094 setScope "name_type" "cl" "scopePhase"
  10923.  
  10924. set row2095 [$diag addRow attribute 0.0]
  10925. $row2095 setLabel "name_type" "\$dsDragMove: enum"
  10926. $row2095 setProp "is_class_feature" "1"
  10927. $row2095 setScope "name_type" "cl" "scopePhase"
  10928.  
  10929. $diag save
  10930.  
  10931. # Generator: et.tcl    /main/titanic/10
  10932. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10933. # Interpreter to use: Otsh V7.1.1/B5
  10934. #
  10935. OTShRegister::importTool
  10936.  
  10937. set diag [CDM new TImageList "DelphiVCL" "" "" "" "" "" 1]
  10938.  
  10939. set row2096 [$diag addRow method 0.0]
  10940. $row2096 setLabel "name_type" "Change()"
  10941. $row2096 setProp "has_parmlist" "1"
  10942. $row2096 setProp "is_event" "1"
  10943. $row2096 setProp "method_access" "Published"
  10944.  
  10945. $diag save
  10946.  
  10947. # Generator: et.tcl    /main/titanic/10
  10948. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10949. # Interpreter to use: Otsh V7.1.1/B5
  10950. #
  10951. OTShRegister::importTool
  10952.  
  10953. set diag [CAD new ClassesTypes "DelphiVCL" "" "" "" "" "" 1]
  10954.  
  10955. set node2097 [$diag addNode cad_class 576.0 688.0 126.0 199.0]
  10956. $node2097 setLabel "name" "TShiftState"
  10957. $node2097 setScope "name" "cl" "scopePhase"
  10958. $node2097 setProp "libunit" "Classes" "name" "cl"
  10959.  
  10960. $diag save
  10961.  
  10962. # Generator: et.tcl    /main/titanic/10
  10963. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  10964. # Interpreter to use: Otsh V7.1.1/B5
  10965. #
  10966. OTShRegister::importTool
  10967.  
  10968. set diag [CDM new TShiftState "DelphiVCL" "" "" "" "" "" 1]
  10969.  
  10970. set row2098 [$diag addRow attribute 0.0]
  10971. $row2098 setLabel "name_type" "\$ssShift: enum\n"
  10972. $row2098 setProp "is_class_feature" "1"
  10973. $row2098 setScope "name_type" "cl" "scopePhase"
  10974.  
  10975. set row2099 [$diag addRow attribute 0.0]
  10976. $row2099 setLabel "name_type" "\$ssAlt: enum\n"
  10977. $row2099 setProp "is_class_feature" "1"
  10978. $row2099 setScope "name_type" "cl" "scopePhase"
  10979.  
  10980. set row2100 [$diag addRow attribute 0.0]
  10981. $row2100 setLabel "name_type" "\$ssCtrl: enum\n"
  10982. $row2100 setProp "is_class_feature" "1"
  10983. $row2100 setScope "name_type" "cl" "scopePhase"
  10984.  
  10985. set row2101 [$diag addRow attribute 0.0]
  10986. $row2101 setLabel "name_type" "\$ssLeft: enum\n"
  10987. $row2101 setProp "is_class_feature" "1"
  10988. $row2101 setScope "name_type" "cl" "scopePhase"
  10989.  
  10990. set row2102 [$diag addRow attribute 0.0]
  10991. $row2102 setLabel "name_type" "\$ssRight: enum\n"
  10992. $row2102 setProp "is_class_feature" "1"
  10993. $row2102 setScope "name_type" "cl" "scopePhase"
  10994.  
  10995. set row2103 [$diag addRow attribute 0.0]
  10996. $row2103 setLabel "name_type" "\$ssMiddle: enum\n"
  10997. $row2103 setProp "is_class_feature" "1"
  10998. $row2103 setScope "name_type" "cl" "scopePhase"
  10999.  
  11000. set row2104 [$diag addRow attribute 0.0]
  11001. $row2104 setLabel "name_type" "\$ssDouble: enum"
  11002. $row2104 setProp "is_class_feature" "1"
  11003. $row2104 setScope "name_type" "cl" "scopePhase"
  11004.  
  11005. $diag save
  11006.  
  11007. # Generator: et.tcl    /main/titanic/10
  11008. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  11009. # Interpreter to use: Otsh V7.1.1/B5
  11010. #
  11011. OTShRegister::importTool
  11012.  
  11013. set diag [CDM new TMenuItem "DelphiVCL" "" "" "" "" "" 1]
  11014.  
  11015. set row2105 [$diag addRow method 0.0]
  11016. $row2105 setLabel "name_type" "Click()"
  11017. $row2105 setProp "has_parmlist" "1"
  11018. $row2105 setProp "is_event" "1"
  11019. $row2105 setProp "method_access" "Published"
  11020.  
  11021. set cell2106 [$row2105 addCell parameter 0.0]
  11022. $cell2106 setLabel "name_type" "Sender: TObject"
  11023. $cell2106 setScope "name_type" "cl" "scopePhase"
  11024. $cell2106 setProp "is_declaration" "1" "name_type" "cl"
  11025. $cell2106 setProp "libunit" "System" "name_type" "cl"
  11026. $cell2106 setScope "name_type" "de" "scopeFile"
  11027.  
  11028. $diag save
  11029.  
  11030. # Generator: et.tcl    /main/titanic/10
  11031. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  11032. # Interpreter to use: Otsh V7.1.1/B5
  11033. #
  11034. OTShRegister::importTool
  11035.  
  11036. set diag [CDM new TProgressStage "DelphiVCL" "" "" "" "" "" 1]
  11037.  
  11038. set row2107 [$diag addRow attribute 0.0]
  11039. $row2107 setLabel "name_type" "\$psStarting: enum\n"
  11040. $row2107 setProp "is_class_feature" "1"
  11041. $row2107 setScope "name_type" "cl" "scopePhase"
  11042.  
  11043. set row2108 [$diag addRow attribute 0.0]
  11044. $row2108 setLabel "name_type" "\$psRunning: enum\n"
  11045. $row2108 setProp "is_class_feature" "1"
  11046. $row2108 setScope "name_type" "cl" "scopePhase"
  11047.  
  11048. set row2109 [$diag addRow attribute 0.0]
  11049. $row2109 setLabel "name_type" "\$psEnding: enum"
  11050. $row2109 setProp "is_class_feature" "1"
  11051. $row2109 setScope "name_type" "cl" "scopePhase"
  11052.  
  11053. $diag save
  11054.  
  11055. # Generator: et.tcl    /main/titanic/10
  11056. # Argument(s): -e -dphase -a/user/resc/DelphiVCL.tcl
  11057. # Interpreter to use: Otsh V7.1.1/B5
  11058. #
  11059. OTShRegister::importTool
  11060.  
  11061. set diag [CDM new TCustomForm "DelphiVCL" "" "" "" "" "" 1]
  11062.  
  11063. set row2110 [$diag addRow method 0.0]
  11064. $row2110 setLabel "name_type" "Activate()\n"
  11065. $row2110 setProp "has_parmlist" "1"
  11066. $row2110 setProp "is_event" "1"
  11067. $row2110 setProp "method_access" "Protected"
  11068.  
  11069. set cell2111 [$row2110 addCell parameter 0.0]
  11070. $cell2111 setLabel "name_type" "Sender: TObject"
  11071. $cell2111 setScope "name_type" "cl" "scopePhase"
  11072. $cell2111 setProp "is_declaration" "1" "name_type" "cl"
  11073. $cell2111 setProp "libunit" "System" "name_type" "cl"
  11074. $cell2111 setScope "name_type" "de" "scopeFile"
  11075.  
  11076. set row2112 [$diag addRow method 0.0]
  11077. $row2112 setLabel "name_type" "Close()\n"
  11078. $row2112 setProp "has_parmlist" "1"
  11079. $row2112 setProp "is_event" "1"
  11080. $row2112 setProp "method_access" "Protected"
  11081.  
  11082. set cell2113 [$row2112 addCell parameter 0.0]
  11083. $cell2113 setLabel "name_type" "Sender: TObject, "
  11084. $cell2113 setScope "name_type" "cl" "scopePhase"
  11085. $cell2113 setProp "is_declaration" "1" "name_type" "cl"
  11086. $cell2113 setProp "libunit" "System" "name_type" "cl"
  11087. $cell2113 setScope "name_type" "de" "scopeFile"
  11088.  
  11089. set cell2114 [$row2112 addCell parameter 0.0]
  11090. $cell2114 setLabel "name_type" "Action: TCloseAction"
  11091. $cell2114 setScope "name_type" "cl" "scopePhase"
  11092. $cell2114 setScope "name_type" "de" "scopeFile"
  11093.  
  11094. set row2115 [$diag addRow method 0.0]
  11095. $row2115 setLabel "name_type" "CloseQuery()\n"
  11096. $row2115 setProp "has_parmlist" "1"
  11097. $row2115 setProp "is_event" "1"
  11098. $row2115 setProp "method_access" "Protected"
  11099.  
  11100. set cell2116 [$row2115 addCell parameter 0.0]
  11101. $cell2116 setLabel "name_type" "Sender: TObject, "
  11102. $cell2116 setScope "name_type" "cl" "scopePhase"
  11103. $cell2116 setProp "is_declaration" "1" "name_type" "cl"
  11104. $cell2116 setProp "libunit" "System" "name_type" "cl"
  11105. $cell2116 setScope "name_type" "de" "scopeFile"
  11106.  
  11107. set cell2117 [$row2115 addCell parameter 0.0]
  11108. $cell2117 setLabel "name_type" "CanClose: bool"
  11109. $cell2117 setScope "name_type" "cl" "scopePhase"
  11110. $cell2117 setScope "name_type" "de" "scopeFile"
  11111.  
  11112. set row2118 [$diag addRow method 0.0]
  11113. $row2118 setLabel "name_type" "Create()\n"
  11114. $row2118 setProp "has_parmlist" "1"
  11115. $row2118 setProp "is_event" "1"
  11116. $row2118 setProp "method_access" "Protected"
  11117.  
  11118. set cell2119 [$row2118 addCell parameter 0.0]
  11119. $cell2119 setLabel "name_type" "Sender: TObject"
  11120. $cell2119 setScope "name_type" "cl" "scopePhase"
  11121. $cell2119 setProp "is_declaration" "1" "name_type" "cl"
  11122. $cell2119 setProp "libunit" "System" "name_type" "cl"
  11123. $cell2119 setScope "name_type" "de" "scopeFile"
  11124.  
  11125. set row2120 [$diag addRow method 0.0]
  11126. $row2120 setLabel "name_type" "Deactivate()\n"
  11127. $row2120 setProp "has_parmlist" "1"
  11128. $row2120 setProp "is_event" "1"
  11129. $row2120 setProp "method_access" "Protected"
  11130.  
  11131. set cell2121 [$row2120 addCell parameter 0.0]
  11132. $cell2121 setLabel "name_type" "Sender: TObject"
  11133. $cell2121 setScope "name_type" "cl" "scopePhase"
  11134. $cell2121 setProp "is_declaration" "1" "name_type" "cl"
  11135. $cell2121 setProp "libunit" "System" "name_type" "cl"
  11136. $cell2121 setScope "name_type" "de" "scopeFile"
  11137.  
  11138. set row2122 [$diag addRow method 0.0]
  11139. $row2122 setLabel "name_type" "Destroy()\n"
  11140. $row2122 setProp "has_parmlist" "1"
  11141. $row2122 setProp "is_event" "1"
  11142. $row2122 setProp "method_access" "Protected"
  11143.  
  11144. set cell2123 [$row2122 addCell parameter 0.0]
  11145. $cell2123 setLabel "name_type" "Sender: TObject"
  11146. $cell2123 setScope "name_type" "cl" "scopePhase"
  11147. $cell2123 setProp "is_declaration" "1" "name_type" "cl"
  11148. $cell2123 setProp "libunit" "System" "name_type" "cl"
  11149. $cell2123 setScope "name_type" "de" "scopeFile"
  11150.  
  11151. set row2124 [$diag addRow method 0.0]
  11152. $row2124 setLabel "name_type" "Hide()\n"
  11153. $row2124 setProp "has_parmlist" "1"
  11154. $row2124 setProp "is_event" "1"
  11155. $row2124 setProp "method_access" "Protected"
  11156.  
  11157. set cell2125 [$row2124 addCell parameter 0.0]
  11158. $cell2125 setLabel "name_type" "Sender: TObject"
  11159. $cell2125 setScope "name_type" "cl" "scopePhase"
  11160. $cell2125 setProp "is_declaration" "1" "name_type" "cl"
  11161. $cell2125 setProp "libunit" "System" "name_type" "cl"
  11162. $cell2125 setScope "name_type" "de" "scopeFile"
  11163.  
  11164. set row2126 [$diag addRow method 0.0]
  11165. $row2126 setLabel "name_type" "Resize()\n"
  11166. $row2126 setProp "has_parmlist" "1"
  11167. $row2126 setProp "is_event" "1"
  11168. $row2126 setProp "method_access" "Protected"
  11169.  
  11170. set cell2127 [$row2126 addCell parameter 0.0]
  11171. $cell2127 setLabel "name_type" "Sender: TObject"
  11172. $cell2127 setScope "name_type" "cl" "scopePhase"
  11173. $cell2127 setProp "is_declaration" "1" "name_type" "cl"
  11174. $cell2127 setProp "libunit" "System" "name_type" "cl"
  11175. $cell2127 setScope "name_type" "de" "scopeFile"
  11176.  
  11177. set row2128 [$diag addRow method 0.0]
  11178. $row2128 setLabel "name_type" "Show()"
  11179. $row2128 setProp "has_parmlist" "1"
  11180. $row2128 setProp "is_event" "1"
  11181. $row2128 setProp "method_access" "Protected"
  11182.  
  11183. set cell2129 [$row2128 addCell parameter 0.0]
  11184. $cell2129 setLabel "name_type" "Sender: TObject"
  11185. $cell2129 setScope "name_type" "cl" "scopePhase"
  11186. $cell2129 setProp "is_declaration" "1" "name_type" "cl"
  11187. $cell2129 setProp "libunit" "System" "name_type" "cl"
  11188. $cell2129 setScope "name_type" "de" "scopeFile"
  11189.  
  11190. $diag save
  11191.