开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
Design.md~
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：2140k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

Design.md~：源码内容
  2. (object Petal
  3.     version     44
  4.     _written    "Rose 7.1.9642.27"
  5.     charSet     134)
  7. (object Design "Logical View"
  8.     is_unit     TRUE
  9.     is_loaded   TRUE
  10.     quid        "36D480D20224"
  11.     defaults    (object defaults
  12. rightMargin  0.250000
  13. leftMargin  0.250000
  14. topMargin   0.250000
  15. bottomMargin  0.500000
  16. pageOverlap  0.250000
  17. clipIconLabels  TRUE
  18. autoResize  TRUE
  19. snapToGrid  FALSE
  20. gridX       16
  21. gridY       16
  22. defaultFont  (object Font
  23.     size        10
  24.     face        "Arial"
  25.     bold        FALSE
  26.     italics     FALSE
  27.     underline   FALSE
  28.     strike      FALSE
  29.     color       0
  30.     default_color  TRUE)
  31. showMessageNum  1
  32. showClassOfObject  TRUE
  33. notation    "Unified")
  34.     root_usecase_package  (object Class_Category "Use Case View"
  35. quid        "36D480D20226"
  36. exportControl  "Public"
  37. global      TRUE
  38. logical_models  (list unit_reference_list
  39.     (object Class "TUser"
  40. quid        "3C4ACD82003D"
  41. stereotype  "Actor")
  42.     (object UseCase "TLogSys"
  43. quid        "3C4ACD8D0165")
  44.     (object UseCase "TMultiOperate"
  45. quid        "3C4ACE8C03A7")
  46.     (object UseCase "TDBConnect"
  47. quid        "3C59323802EF"
  48. statemachine  (object State_Machine "State/Activity Model"
  49.     quid        "3C59324C0103"
  50.     states      (list States
  51. (object State "$UNNAMED$0"
  52.     quid        "3C5932550250"
  53.     transitions  (list transition_list
  54. (object State_Transition
  55.     quid        "3C5932A50223"
  56.     supplier    "读取INI"
  57.     quidu       "3C5932620078"
  58.     sendEvent   (object sendEvent
  59. quid        "3C5932A50226")))
  60.     type        "StartState")
  61. (object State "系统"
  62.     quid        "3C5932570253"
  63.     type        "EndState")
  64. (object ActivityState "读取INI"
  65.     quid        "3C5932620078"
  66.     transitions  (list transition_list
  67. (object State_Transition
  68.     quid        "3C5932A801C3"
  69.     label       ""
  70.     supplier    "$UNNAMED$1"
  71.     quidu       "3C59329E0060"
  72.     Event       (object Event "根据INI配置信息连接数据库"
  73. quid        "3C5932A801C4")
  74.     sendEvent   (object sendEvent
  75. quid        "3C5932A801C6"))))
  76. (object ActivityState "$UNNAMED$2"
  77.     quid        "3C5932940201")
  78. (object Decision "$UNNAMED$1"
  79.     quid        "3C59329E0060"
  80.     transitions  (list transition_list
  81. (object State_Transition
  82.     quid        "3C5932AB0380"
  83.     supplier    "系统"
  84.     quidu       "3C5932570253"
  85.     sendEvent   (object sendEvent
  86. quid        "3C5932AB0383"))
  87. (object State_Transition
  88.     quid        "3C59336F0129"
  89.     supplier    "读取INI"
  90.     quidu       "3C5932620078"
  91.     sendEvent   (object sendEvent
  92. quid        "3C59336F012C"))
  93. (object State_Transition
  94.     quid        "3C5933CB02F8"
  95.     supplier    "重新配置"
  96.     quidu       "3C5933AC03C6"
  97.     sendEvent   (object sendEvent
  98. quid        "3C5933CB02FB"))))
  99. (object ActivityState "重新配置"
  100.     quid        "3C5933AC03C6"
  101.     transitions  (list transition_list
  102. (object State_Transition
  103.     quid        "3C5933D2015E"
  104.     supplier    "读取INI"
  105.     quidu       "3C5932620078"
  106.     sendEvent   (object sendEvent
  107. quid        "3C5933D20161"))
  108. (object State_Transition
  109.     quid        "3C59340C0310"
  110.     label       ""
  111.     supplier    "$UNNAMED$3"
  112.     quidu       "3C5934060307"
  113.     Event       (object Event "连接数据库"
  114. quid        "3C59340C0311")
  115.     sendEvent   (object sendEvent
  116. quid        "3C59340C0313"))))
  117. (object Decision "$UNNAMED$3"
  118.     quid        "3C5934060307"
  119.     transitions  (list transition_list
  120. (object State_Transition
  121.     quid        "3C59351A0001"
  122.     supplier    "$UNNAMED$4"
  123.     quidu       "3C59350F01AA"
  124.     sendEvent   (object sendEvent
  125. quid        "3C59351A0004"))
  126. (object State_Transition
  127.     quid        "3C59357001DB"
  128.     supplier    "系统"
  129.     quidu       "3C5932570253"
  130.     sendEvent   (object sendEvent
  131. quid        "3C59357001DE"))))
  132. (object State "$UNNAMED$4"
  133.     quid        "3C59350F01AA"
  134.     type        "EndState"))
  135.     partitions  (list Partitions)
  136.     objects     (list Objects)
  137.     statediagrams  (list StateDiagrams
  138. (object ActivityDiagram "ConfigDB"
  139.     quid        "3C59324C0149"
  140.     title       "ConfigDB"
  141.     zoom        100
  142.     max_height  28350
  143.     max_width   21600
  144.     origin_x    0
  145.     origin_y    476
  146.     items       (list diagram_item_list
  147. (object Swimlane "" @1
  148.     line_color  3342489
  149.     width       450)
  150. (object StateView "StartState" "$UNNAMED$0" @2
  151.     Parent_View  @1
  152.     location    (475, 97)
  153.     font        (object Font
  154. size        10
  155. face        "Arial"
  156. bold        FALSE
  157. italics     FALSE
  158. underline   FALSE
  159. strike      FALSE
  160. color       0
  161. default_color  TRUE)
  162.     label       (object ItemLabel
  163. Parent_View  @2
  164. location    (517, 67)
  165. nlines      2
  166. max_width   600
  167. label       "")
  168.     icon_style  "Icon"
  169.     line_color  3342489
  170.     quidu       "3C5932550250"
  171.     autoResize  TRUE)
  172. (object StateView "EndState" "系统" @3
  173.     Parent_View  @1
  174.     location    (475, 1201)
  175.     font        (object Font
  176. size        10
  177. face        "Arial"
  178. bold        FALSE
  179. italics     FALSE
  180. underline   FALSE
  181. strike      FALSE
  182. color       0
  183. default_color  TRUE)
  184.     label       (object ItemLabel
  185. Parent_View  @3
  186. location    (529, 1159)
  187. nlines      2
  188. max_width   600
  189. label       "系统")
  190.     icon_style  "Icon"
  191.     line_color  3342489
  192.     quidu       "3C5932570253"
  193.     autoResize  TRUE)
  194. (object ActivityStateView "读取INI" @4
  195.     Parent_View  @1
  196.     location    (476, 368)
  197.     font        (object Font
  198. size        10
  199. face        "Arial"
  200. bold        FALSE
  201. italics     FALSE
  202. underline   FALSE
  203. strike      FALSE
  204. color       0
  205. default_color  TRUE)
  206.     label       (object ItemLabel
  207. Parent_View  @4
  208. location    (476, 362)
  209. fill_color  13434879
  210. anchor_loc  1
  211. nlines      2
  212. max_width   257
  213. justify     0
  214. label       "读取INI")
  215.     icon_style  "Icon"
  216.     line_color  3342489
  217.     fill_color  13434879
  218.     quidu       "3C5932620078"
  219.     height      125
  220.     annotation  1
  221.     autoResize  TRUE)
  222. (object TransView "" @5
  223.     stereotype  TRUE
  224.     line_color  3342489
  225.     quidu       "3C5932A50223"
  226.     client      @2
  227.     supplier    @4
  228.     line_style  0
  229.     x_offset    FALSE)
  230. (object DecisionView "$UNNAMED$1" @6
  231.     Parent_View  @1
  232.     location    (476, 759)
  233.     font        (object Font
  234. size        10
  235. face        "Arial"
  236. bold        FALSE
  237. italics     FALSE
  238. underline   FALSE
  239. strike      FALSE
  240. color       0
  241. default_color  TRUE)
  242.     label       (object ItemLabel
  243. Parent_View  @6
  244. location    (536, 694)
  245. nlines      2
  246. max_width   300
  247. label       "")
  248.     icon_style  "Icon"
  249.     line_color  3342489
  250.     fill_color  13434879
  251.     quidu       "3C59329E0060"
  252.     width       169
  253.     height      107
  254.     autoResize  TRUE)
  255. (object TransView "" @7
  256.     font        (object Font
  257. size        10
  258. face        "Arial"
  259. bold        FALSE
  260. italics     FALSE
  261. underline   FALSE
  262. strike      FALSE
  263. color       0
  264. default_color  TRUE)
  265.     label       (object SegLabel @8
  266. Parent_View  @7
  267. location    (570, 562)
  268. font        (object Font
  269.     size        10
  270.     face        "Arial"
  271.     bold        FALSE
  272.     italics     FALSE
  273.     underline   FALSE
  274.     strike      FALSE
  275.     color       0
  276.     default_color  TRUE)
  277. anchor_loc  1
  278. nlines      5
  279. max_width   152
  280. justify     0
  281. label       "根据INI配置信息连接数据库"
  282. pctDist     0.480000
  283. height      94
  284. orientation  0)
  285.     stereotype  TRUE
  286.     line_color  3342489
  287.     quidu       "3C5932A801C3"
  288.     client      @4
  289.     supplier    @6
  290.     line_style  0
  291.     x_offset    FALSE)
  292. (object TransView "" @9
  293.     stereotype  TRUE
  294.     line_color  3342489
  295.     quidu       "3C5932AB0380"
  296.     client      @6
  297.     supplier    @3
  298.     line_style  0
  299.     x_offset    FALSE)
  300. (object ActivityStateView "重新配置" @10
  301.     Parent_View  @1
  302.     location    (1029, 762)
  303.     font        (object Font
  304. size        10
  305. face        "Arial"
  306. bold        FALSE
  307. italics     FALSE
  308. underline   FALSE
  309. strike      FALSE
  310. color       0
  311. default_color  TRUE)
  312.     label       (object ItemLabel
  313. Parent_View  @10
  314. location    (1029, 756)
  315. fill_color  13434879
  316. anchor_loc  1
  317. nlines      2
  318. max_width   293
  319. justify     0
  320. label       "重新配置")
  321.     icon_style  "Icon"
  322.     line_color  3342489
  323.     fill_color  13434879
  324.     quidu       "3C5933AC03C6"
  325.     width       411
  326.     height      124
  327.     annotation  1
  328.     autoResize  TRUE)
  329. (object TransView "" @11
  330.     stereotype  TRUE
  331.     line_color  3342489
  332.     quidu       "3C5933CB02F8"
  333.     client      @6
  334.     supplier    @10
  335.     line_style  0
  336.     x_offset    FALSE)
  337. (object DecisionView "$UNNAMED$3" @12
  338.     Parent_View  @1
  339.     location    (1029, 1036)
  340.     icon_style  "Icon"
  341.     line_color  3342489
  342.     fill_color  13434879
  343.     quidu       "3C5934060307"
  344.     autoResize  TRUE)
  345. (object TransView "" @13
  346.     font        (object Font
  347. size        10
  348. face        "Arial"
  349. bold        FALSE
  350. italics     FALSE
  351. underline   FALSE
  352. strike      FALSE
  353. color       0
  354. default_color  TRUE)
  355.     label       (object SegLabel @14
  356. Parent_View  @13
  357. location    (1102, 913)
  358. font        (object Font
  359.     size        10
  360.     face        "Arial"
  361.     bold        FALSE
  362.     italics     FALSE
  363.     underline   FALSE
  364.     strike      FALSE
  365.     color       0
  366.     default_color  TRUE)
  367. anchor_loc  1
  368. nlines      3
  369. max_width   112
  370. justify     0
  371. label       "连接数据库"
  372. pctDist     0.506848
  373. height      73
  374. orientation  0)
  375.     stereotype  TRUE
  376.     line_color  3342489
  377.     quidu       "3C59340C0310"
  378.     client      @10
  379.     supplier    @12
  380.     line_style  0
  381.     x_offset    FALSE)
  382. (object Label @15
  383.     Parent_View  @1
  384.     location    (558, 690)
  385.     font        (object Font
  386. size        10
  387. face        "Arial"
  388. bold        FALSE
  389. italics     FALSE
  390. underline   FALSE
  391. strike      FALSE
  392. color       0
  393. default_color  TRUE)
  394.     nlines      1
  395.     max_width   256
  396.     label       " 连接失败")
  397. (object Label @16
  398.     Parent_View  @1
  399.     location    (506, 859)
  400.     font        (object Font
  401. size        10
  402. face        "Arial"
  403. bold        FALSE
  404. italics     FALSE
  405. underline   FALSE
  406. strike      FALSE
  407. color       0
  408. default_color  TRUE)
  409.     nlines      4
  410.     max_width   56
  411.     label       "连接成功")
  412. (object StateView "EndState" "$UNNAMED$4" @17
  413.     Parent_View  @1
  414.     location    (1442, 1036)
  415.     font        (object Font
  416. size        10
  417. face        "Arial"
  418. bold        FALSE
  419. italics     FALSE
  420. underline   FALSE
  421. strike      FALSE
  422. color       0
  423. default_color  TRUE)
  424.     label       (object ItemLabel
  425. Parent_View  @17
  426. location    (1496, 994)
  427. nlines      2
  428. max_width   600
  429. label       "")
  430.     icon_style  "Icon"
  431.     line_color  3342489
  432.     quidu       "3C59350F01AA"
  433.     autoResize  TRUE)
  434. (object Label @18
  435.     Parent_View  @1
  436.     location    (1106, 1076)
  437.     font        (object Font
  438. size        10
  439. face        "Arial"
  440. bold        FALSE
  441. italics     FALSE
  442. underline   FALSE
  443. strike      FALSE
  444. color       0
  445. default_color  TRUE)
  446.     nlines      1
  447.     max_width   350
  448.     label      
  449. |连接失败，退出系统
  450. |成功
  451.     )
  452. (object TransView "" @19
  453.     stereotype  TRUE
  454.     line_color  3342489
  455.     quidu       "3C59351A0001"
  456.     client      @12
  457.     supplier    @17
  458.     line_style  0
  459.     x_offset    FALSE)
  460. (object TransView "" @20
  461.     stereotype  TRUE
  462.     line_color  3342489
  463.     quidu       "3C59357001DB"
  464.     client      @12
  465.     supplier    @3
  466.     vertices    (list Points
  467. (1029, 1073)
  468. (1028, 1201)
  469. (517, 1201))
  470.     line_style  0
  471.     x_offset    FALSE))))))
  472.     (object Association "$UNNAMED$5"
  473. quid        "3C4ACE4101D2"
  474. roles       (list role_list
  475.     (object Role "$UNNAMED$6"
  476. quid        "3C4ACE420129"
  477. supplier    "Use Case View::TLogSys"
  478. quidu       "3C4ACD8D0165"
  479. is_navigable  TRUE)
  480.     (object Role "$UNNAMED$7"
  481. quid        "3C4ACE42016F"
  482. supplier    "Use Case View::TUser"
  483. quidu       "3C4ACD82003D")))
  484.     (object Association "$UNNAMED$8"
  485. quid        "3C4ACECE0185"
  486. roles       (list role_list
  487.     (object Role "$UNNAMED$9"
  488. quid        "3C4ACECF00E6"
  489. supplier    "Use Case View::TMultiOperate"
  490. quidu       "3C4ACE8C03A7"
  491. is_navigable  TRUE)
  492.     (object Role "$UNNAMED$10"
  493. quid        "3C4ACECF00F1"
  494. supplier    "Use Case View::TLogSys"
  495. quidu       "3C4ACD8D0165"))))
  496. logical_presentations  (list unit_reference_list
  497.     (object UseCaseDiagram "Main"
  498. quid        "36D480D20261"
  499. title       "Main"
  500. zoom        100
  501. max_height  28350
  502. max_width   21600
  503. origin_x    0
  504. origin_y    -116
  505. items       (list diagram_item_list
  506.     (object UseCaseView "Use Case View::TDBConnect" @21
  507. location    (406, 347)
  508. font        (object Font
  509.     size        10
  510.     face        "Arial"
  511.     bold        FALSE
  512.     italics     FALSE
  513.     underline   FALSE
  514.     strike      FALSE
  515.     color       0
  516.     default_color  TRUE)
  517. label       (object ItemLabel
  518.     Parent_View  @21
  519.     location    (406, 485)
  520.     anchor_loc  1
  521.     nlines      2
  522.     max_width   630
  523.     justify     0
  524.     label       "TDBConnect")
  525. icon_style  "Icon"
  526. line_color  3342489
  527. fill_color  13434879
  528. quidu       "3C59323802EF"
  529. height      118)))))
  530.     root_category  (object Class_Category "Logical View"
  531. quid        "36D480D20225"
  532. exportControl  "Public"
  533. global      TRUE
  534. subsystem   "Component View"
  535. quidu       "36D480D20227"
  536. logical_models  (list unit_reference_list
  537.     (object Class "NewClass"
  538. quid        "3C4ACF290153")
  539.     (object Class "NewClass2"
  540. quid        "3C4AD06900EF")
  541.     (object Class "TLogsys"
  542. quid        "3C4AD08300BB"
  543. operations  (list Operations
  544.     (object Operation "DoLog"
  545. quid        "3C4AD0BB01DE"
  546. result      "Integer"
  547. concurrency  "Sequential"
  548. opExportControl  "Public"
  549. uid         0))
  550. class_attributes  (list class_attribute_list
  551.     (object ClassAttribute "UserName"
  552. quid        "3C4AD142008D"
  553. type        "String")
  554.     (object ClassAttribute "Password"
  555. quid        "3C4AD16601B2"
  556. type        "String")
  557.     (object ClassAttribute "TableName"
  558. quid        "3C4AD18C0120"
  559. type        "String")
  560.     (object ClassAttribute "FormCaption"
  561. quid        "3C4AD29C035C"
  562. type        "String")))
  563.     (object Class_Category "Delphi Framework"
  564. quid        "36D4A0F601C2"
  565. documentation 
  566. |The Delphi framework contains a fully reverse engineered model of the following Delphi4 library units:
  567. |
  568. |Classes, Controls, Dialogs, Forms, Graphics, Messages, SysUtils, System, Windows
  569. |
  570. |To make use of other Delphi library units, import the appropriate unit category file (.cat) from the "Delphi Framework" subdirectory in Rose Delphi Link installation directory. This would typically be:
  571. |
  572. |C:Program FilesEnsembleRose Delphi Link 3.xDelphi Framework
  573. |
  574. |For example, to use the Db unit, import the Db.cat file into Rose.
  576. exportControl  "Public"
  577. logical_models  (list unit_reference_list
  578.     (object Class_Category "Dialogs"
  579. quid        "36D4AA6702CB"
  580. stereotype  "Unit"
  581. exportControl  "Public"
  582. logical_models  (list unit_reference_list
  583.     (object Class "TCommonDialog"
  584. quid        "36D4AA670389"
  585. superclasses  (list inheritance_relationship_list
  586.     (object Inheritance_Relationship
  587. quid        "36D4AA680114"
  588. supplier    "Logical View::Delphi Framework::Classes::TComponent"
  589. quidu       "36D4A8B401A3"))
  590. operations  (list Operations
  591.     (object Operation "WMDestroy"
  592. attributes  (list Attribute_Set
  593.     (object Attribute
  594. tool        "Delphi"
  595. name        "Operation_Message"
  596. value       "WM_DESTROY"))
  597. quid        "36D4AA6801FA"
  598. parameters  (list Parameters
  599.     (object Parameter "Message"
  600. attributes  (list Attribute_Set
  601.     (object Attribute
  602. tool        "Delphi"
  603. name        "Mode"
  604. value       ("Mode_Enum" 3)))
  605. quid        "3C4ACCCC003E"
  606. type        "TWMDestroy"
  607. quidu       "36D4A1C2014C"))
  608. concurrency  "Sequential"
  609. opExportControl  "Private"
  610. uid         0)
  611.     (object Operation "WMInitDialog"
  612. attributes  (list Attribute_Set
  613.     (object Attribute
  614. tool        "Delphi"
  615. name        "Operation_Message"
  616. value       "WM_INITDIALOG"))
  617. quid        "36D4AA680204"
  618. parameters  (list Parameters
  619.     (object Parameter "Message"
  620. attributes  (list Attribute_Set
  621.     (object Attribute
  622. tool        "Delphi"
  623. name        "Mode"
  624. value       ("Mode_Enum" 3)))
  625. quid        "3C4ACCCC0046"
  626. type        "TWMInitDialog"
  627. quidu       "36D4A1C40344"))
  628. concurrency  "Sequential"
  629. opExportControl  "Private"
  630. uid         0)
  631.     (object Operation "WMNCDestroy"
  632. attributes  (list Attribute_Set
  633.     (object Attribute
  634. tool        "Delphi"
  635. name        "Operation_Message"
  636. value       "WM_NCDESTROY"))
  637. quid        "36D4AA680218"
  638. parameters  (list Parameters
  639.     (object Parameter "Message"
  640. attributes  (list Attribute_Set
  641.     (object Attribute
  642. tool        "Delphi"
  643. name        "Mode"
  644. value       ("Mode_Enum" 3)))
  645. quid        "3C4ACCCC0048"
  646. type        "TWMNCDestroy"
  647. quidu       "36D4A1C801AF"))
  648. concurrency  "Sequential"
  649. opExportControl  "Private"
  650. uid         0)
  651.     (object Operation "MainWndProc"
  652. quid        "36D4AA680222"
  653. parameters  (list Parameters
  654.     (object Parameter "Message"
  655. attributes  (list Attribute_Set
  656.     (object Attribute
  657. tool        "Delphi"
  658. name        "Mode"
  659. value       ("Mode_Enum" 3)))
  660. quid        "3C4ACCCC004A"
  661. type        "TMessage"
  662. quidu       "36D4A1BD034E"))
  663. concurrency  "Sequential"
  664. opExportControl  "Private"
  665. uid         0)
  666.     (object Operation "DoClose"
  667. attributes  (list Attribute_Set
  668.     (object Attribute
  669. tool        "Delphi"
  670. name        "Operation_Binding"
  671. value       ("Operation_Binding_Enum" 3)))
  672. quid        "36D4AA68022C"
  673. concurrency  "Sequential"
  674. opExportControl  "Protected"
  675. uid         0)
  676.     (object Operation "DoShow"
  677. attributes  (list Attribute_Set
  678.     (object Attribute
  679. tool        "Delphi"
  680. name        "Operation_Binding"
  681. value       ("Operation_Binding_Enum" 3)))
  682. quid        "36D4AA680236"
  683. concurrency  "Sequential"
  684. opExportControl  "Protected"
  685. uid         0)
  686.     (object Operation "WndProc"
  687. attributes  (list Attribute_Set
  688.     (object Attribute
  689. tool        "Delphi"
  690. name        "Operation_Binding"
  691. value       ("Operation_Binding_Enum" 2)))
  692. quid        "36D4AA680240"
  693. parameters  (list Parameters
  694.     (object Parameter "Message"
  695. attributes  (list Attribute_Set
  696.     (object Attribute
  697. tool        "Delphi"
  698. name        "Mode"
  699. value       ("Mode_Enum" 3)))
  700. quid        "3C4ACCCC004E"
  701. type        "TMessage"
  702. quidu       "36D4A1BD034E"))
  703. concurrency  "Sequential"
  704. opExportControl  "Protected"
  705. uid         0)
  706.     (object Operation "MessageHook"
  707. attributes  (list Attribute_Set
  708.     (object Attribute
  709. tool        "Delphi"
  710. name        "Operation_Kind"
  711. value       ("Operation_Kind_Enum" 2))
  712.     (object Attribute
  713. tool        "Delphi"
  714. name        "Operation_Binding"
  715. value       ("Operation_Binding_Enum" 2)))
  716. quid        "36D4AA680254"
  717. parameters  (list Parameters
  718.     (object Parameter "Msg"
  719. attributes  (list Attribute_Set
  720.     (object Attribute
  721. tool        "Delphi"
  722. name        "Mode"
  723. value       ("Mode_Enum" 3)))
  724. quid        "3C4ACCCC0050"
  725. type        "TMessage"
  726. quidu       "36D4A1BD034E"))
  727. result      "Boolean"
  728. concurrency  "Sequential"
  729. opExportControl  "Protected"
  730. uid         0)
  731.     (object Operation "TaskModalDialog"
  732. attributes  (list Attribute_Set
  733.     (object Attribute
  734. tool        "Delphi"
  735. name        "Operation_Kind"
  736. value       ("Operation_Kind_Enum" 2))
  737.     (object Attribute
  738. tool        "Delphi"
  739. name        "Operation_Binding"
  740. value       ("Operation_Binding_Enum" 2)))
  741. quid        "36D4AA680268"
  742. parameters  (list Parameters
  743.     (object Parameter "DialogFunc"
  744. quid        "3C4ACCCC0052"
  745. type        "Pointer")
  746.     (object Parameter "DialogData"
  747. attributes  (list Attribute_Set
  748.     (object Attribute
  749. tool        "Delphi"
  750. name        "Mode"
  751. value       ("Mode_Enum" 3)))
  752. quid        "3C4ACCCC0053"))
  753. result      "Bool"
  754. concurrency  "Sequential"
  755. opExportControl  "Protected"
  756. uid         0)
  757.     (object Operation "Execute"
  758. attributes  (list Attribute_Set
  759.     (object Attribute
  760. tool        "Delphi"
  761. name        "Operation_Kind"
  762. value       ("Operation_Kind_Enum" 2))
  763.     (object Attribute
  764. tool        "Delphi"
  765. name        "Operation_Binding"
  766. value       ("Operation_Binding_Enum" 2))
  767.     (object Attribute
  768. tool        "Delphi"
  769. name        "Operation_Abstract"
  770. value       TRUE))
  771. quid        "36D4AA680286"
  772. result      "Boolean"
  773. concurrency  "Sequential"
  774. opExportControl  "Protected"
  775. uid         0)
  776.     (object Operation "Create"
  777. attributes  (list Attribute_Set
  778.     (object Attribute
  779. tool        "Delphi"
  780. name        "Operation_Kind"
  781. value       ("Operation_Kind_Enum" 3))
  782.     (object Attribute
  783. tool        "Delphi"
  784. name        "Operation_Binding"
  785. value       ("Operation_Binding_Enum" 4)))
  786. quid        "36D4AA68029A"
  787. parameters  (list Parameters
  788.     (object Parameter "AOwner"
  789. quid        "3C4ACCCC0056"
  790. type        "TComponent"
  791. quidu       "36D4A8B401A3"))
  792. concurrency  "Sequential"
  793. opExportControl  "Public"
  794. uid         0)
  795.     (object Operation "Destroy"
  796. attributes  (list Attribute_Set
  797.     (object Attribute
  798. tool        "Delphi"
  799. name        "Operation_Kind"
  800. value       ("Operation_Kind_Enum" 4))
  801.     (object Attribute
  802. tool        "Delphi"
  803. name        "Operation_Binding"
  804. value       ("Operation_Binding_Enum" 4)))
  805. quid        "36D4AA6802A4"
  806. concurrency  "Sequential"
  807. opExportControl  "Public"
  808. uid         0)
  809.     (object Operation "DefaultHandler"
  810. attributes  (list Attribute_Set
  811.     (object Attribute
  812. tool        "Delphi"
  813. name        "Operation_Binding"
  814. value       ("Operation_Binding_Enum" 4)))
  815. quid        "36D4AA6802AE"
  816. parameters  (list Parameters
  817.     (object Parameter "Message"
  818. attributes  (list Attribute_Set
  819.     (object Attribute
  820. tool        "Delphi"
  821. name        "Mode"
  822. value       ("Mode_Enum" 3)))
  823. quid        "3C4ACCCC0059"))
  824. concurrency  "Sequential"
  825. opExportControl  "Public"
  826. uid         0)
  827.     (object Operation "Template"
  828. attributes  (list Attribute_Set
  829.     (object Attribute
  830. tool        "Delphi"
  831. name        "Property_Read"
  832. value       "FTemplate")
  833.     (object Attribute
  834. tool        "Delphi"
  835. name        "Property_Write"
  836. value       "FTemplate"))
  837. quid        "36D4AA6802C3"
  838. stereotype  "Property"
  839. result      "PChar"
  840. concurrency  "Sequential"
  841. opExportControl  "Protected"
  842. uid         0)
  843.     (object Operation "Handle"
  844. attributes  (list Attribute_Set
  845.     (object Attribute
  846. tool        "Delphi"
  847. name        "Property_Read"
  848. value       "FHandle"))
  849. quid        "36D4AA6802CD"
  850. stereotype  "Property"
  851. result      "HWnd"
  852. concurrency  "Sequential"
  853. opExportControl  "Public"
  854. uid         0)
  855.     (object Operation "Ctl3D"
  856. attributes  (list Attribute_Set
  857.     (object Attribute
  858. tool        "Delphi"
  859. name        "Published"
  860. value       TRUE)
  861.     (object Attribute
  862. tool        "Delphi"
  863. name        "Property_Read"
  864. value       "FCtl3D")
  865.     (object Attribute
  866. tool        "Delphi"
  867. name        "Property_Write"
  868. value       "FCtl3D")
  869.     (object Attribute
  870. tool        "Delphi"
  871. name        "Property_DefaultSpecifier"
  872. value       ("Property_DefaultSpecifier_Enum" 2))
  873.     (object Attribute
  874. tool        "Delphi"
  875. name        "Property_DefaultValue"
  876. value       "True"))
  877. quid        "36D4AA6802D7"
  878. stereotype  "Property"
  879. result      "Boolean"
  880. concurrency  "Sequential"
  881. opExportControl  "Public"
  882. uid         0)
  883.     (object Operation "HelpContext"
  884. attributes  (list Attribute_Set
  885.     (object Attribute
  886. tool        "Delphi"
  887. name        "Published"
  888. value       TRUE)
  889.     (object Attribute
  890. tool        "Delphi"
  891. name        "Property_Read"
  892. value       "FHelpContext")
  893.     (object Attribute
  894. tool        "Delphi"
  895. name        "Property_Write"
  896. value       "FHelpContext")
  897.     (object Attribute
  898. tool        "Delphi"
  899. name        "Property_DefaultSpecifier"
  900. value       ("Property_DefaultSpecifier_Enum" 2))
  901.     (object Attribute
  902. tool        "Delphi"
  903. name        "Property_DefaultValue"
  904. value       "0"))
  905. quid        "36D4AA6802E1"
  906. stereotype  "Property"
  907. result      "THelpContext"
  908. concurrency  "Sequential"
  909. opExportControl  "Public"
  910. uid         0
  911. quidu       "36D4A8BA021A")
  912.     (object Operation "OnClose"
  913. attributes  (list Attribute_Set
  914.     (object Attribute
  915. tool        "Delphi"
  916. name        "Published"
  917. value       TRUE)
  918.     (object Attribute
  919. tool        "Delphi"
  920. name        "Property_Read"
  921. value       "FOnClose")
  922.     (object Attribute
  923. tool        "Delphi"
  924. name        "Property_Write"
  925. value       "FOnClose"))
  926. quid        "36D4AA6802F5"
  927. stereotype  "Property"
  928. result      "TNotifyEvent"
  929. concurrency  "Sequential"
  930. opExportControl  "Public"
  931. uid         0
  932. quidu       "36D4A8B60214")
  933.     (object Operation "OnShow"
  934. attributes  (list Attribute_Set
  935.     (object Attribute
  936. tool        "Delphi"
  937. name        "Published"
  938. value       TRUE)
  939.     (object Attribute
  940. tool        "Delphi"
  941. name        "Property_Read"
  942. value       "FOnShow")
  943.     (object Attribute
  944. tool        "Delphi"
  945. name        "Property_Write"
  946. value       "FOnShow"))
  947. quid        "36D4AA6802FF"
  948. stereotype  "Property"
  949. result      "TNotifyEvent"
  950. concurrency  "Sequential"
  951. opExportControl  "Public"
  952. uid         0
  953. quidu       "36D4A8B60214"))
  954. class_attributes  (list class_attribute_list
  955.     (object ClassAttribute "FCtl3D"
  956. quid        "36D4AA680115"
  957. type        "Boolean")
  958.     (object ClassAttribute "FDefWndProc"
  959. quid        "36D4AA68011E"
  960. type        "Pointer")
  961.     (object ClassAttribute "FObjectInstance"
  962. quid        "36D4AA680128"
  963. type        "Pointer")
  964.     (object ClassAttribute "FTemplate"
  965. quid        "36D4AA68013C"
  966. type        "PChar"))
  967. module      "::Delphi Framework::Vcl::Dialogs"
  968. quidu       "36D4AA67019F"
  969. language    "Delphi")
  970.     (object Class "TOpenOption"
  971. quid        "36D4AA680313"
  972. stereotype  "Enum"
  973. module      "::Delphi Framework::Vcl::Dialogs"
  974. quidu       "36D4AA67019F"
  975. language    "Delphi")
  976.     (object Class "TOpenOptions"
  977. quid        "36D4AA690061"
  978. stereotype  "Set"
  979. module      "::Delphi Framework::Vcl::Dialogs"
  980. quidu       "36D4AA67019F"
  981. language    "Delphi")
  982.     (object Class "TFileEditStyle"
  983. quid        "36D4AA690198"
  984. stereotype  "Enum"
  985. module      "::Delphi Framework::Vcl::Dialogs"
  986. quidu       "36D4AA67019F"
  987. language    "Delphi")
  988.     (object Class "TOpenDialog"
  989. quid        "36D4AA6902BA"
  990. superclasses  (list inheritance_relationship_list
  991.     (object Inheritance_Relationship
  992. quid        "36D4AA6903DC"
  993. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  994. quidu       "36D4AA670389"))
  995. operations  (list Operations
  996.     (object Operation "GetFileName"
  997. attributes  (list Attribute_Set
  998.     (object Attribute
  999. tool        "Delphi"
  1000. name        "Operation_Kind"
  1001. value       ("Operation_Kind_Enum" 2)))
  1002. quid        "36D4AA6A02E3"
  1003. result      "TFileName"
  1004. concurrency  "Sequential"
  1005. opExportControl  "Private"
  1006. uid         0
  1007. quidu       "36D4A103038D")
  1008.     (object Operation "GetFilterIndex"
  1009. attributes  (list Attribute_Set
  1010.     (object Attribute
  1011. tool        "Delphi"
  1012. name        "Operation_Kind"
  1013. value       ("Operation_Kind_Enum" 2)))
  1014. quid        "36D4AA6A02ED"
  1015. result      "Integer"
  1016. concurrency  "Sequential"
  1017. opExportControl  "Private"
  1018. uid         0)
  1019.     (object Operation "ReadFileEditStyle"
  1020. quid        "36D4AA6A0301"
  1021. parameters  (list Parameters
  1022.     (object Parameter "Reader"
  1023. quid        "3C4ACCCC007A"
  1024. type        "TReader"
  1025. quidu       "36D4A8B8029B"))
  1026. concurrency  "Sequential"
  1027. opExportControl  "Private"
  1028. uid         0)
  1029.     (object Operation "SetHistoryList"
  1030. quid        "36D4AA6A030B"
  1031. parameters  (list Parameters
  1032.     (object Parameter "Value"
  1033. quid        "3C4ACCCC007C"
  1034. type        "TStrings"
  1035. quidu       "36D4A8C10332"))
  1036. concurrency  "Sequential"
  1037. opExportControl  "Private"
  1038. uid         0)
  1039.     (object Operation "SetInitialDir"
  1040. quid        "36D4AA6A0316"
  1041. parameters  (list Parameters
  1042.     (object Parameter "Value"
  1043. attributes  (list Attribute_Set
  1044.     (object Attribute
  1045. tool        "Delphi"
  1046. name        "Mode"
  1047. value       ("Mode_Enum" 2)))
  1048. quid        "3C4ACCCC007E"
  1049. type        "string"))
  1050. concurrency  "Sequential"
  1051. opExportControl  "Private"
  1052. uid         0)
  1053.     (object Operation "CanClose"
  1054. attributes  (list Attribute_Set
  1055.     (object Attribute
  1056. tool        "Delphi"
  1057. name        "Operation_Kind"
  1058. value       ("Operation_Kind_Enum" 2)))
  1059. quid        "36D4AA6A032A"
  1060. parameters  (list Parameters
  1061.     (object Parameter "OpenFileName"
  1062. attributes  (list Attribute_Set
  1063.     (object Attribute
  1064. tool        "Delphi"
  1065. name        "Mode"
  1066. value       ("Mode_Enum" 3)))
  1067. quid        "3C4ACCCC0080"
  1068. type        "TOpenFileName"))
  1069. result      "Boolean"
  1070. concurrency  "Sequential"
  1071. opExportControl  "Protected"
  1072. uid         0)
  1073.     (object Operation "DoCanClose"
  1074. attributes  (list Attribute_Set
  1075.     (object Attribute
  1076. tool        "Delphi"
  1077. name        "Operation_Kind"
  1078. value       ("Operation_Kind_Enum" 2))
  1079.     (object Attribute
  1080. tool        "Delphi"
  1081. name        "Operation_Binding"
  1082. value       ("Operation_Binding_Enum" 3)))
  1083. quid        "36D4AA6A033E"
  1084. result      "Boolean"
  1085. concurrency  "Sequential"
  1086. opExportControl  "Protected"
  1087. uid         0)
  1088.     (object Operation "DoExecute"
  1089. attributes  (list Attribute_Set
  1090.     (object Attribute
  1091. tool        "Delphi"
  1092. name        "Operation_Kind"
  1093. value       ("Operation_Kind_Enum" 2)))
  1094. quid        "36D4AA6A0352"
  1095. parameters  (list Parameters
  1096.     (object Parameter "Func"
  1097. quid        "3C4ACCCC0083"
  1098. type        "Pointer"))
  1099. result      "Bool"
  1100. concurrency  "Sequential"
  1101. opExportControl  "Protected"
  1102. uid         0)
  1103.     (object Operation "DoSelectionChange"
  1104. attributes  (list Attribute_Set
  1105.     (object Attribute
  1106. tool        "Delphi"
  1107. name        "Operation_Binding"
  1108. value       ("Operation_Binding_Enum" 3)))
  1109. quid        "36D4AA6A0370"
  1110. concurrency  "Sequential"
  1111. opExportControl  "Protected"
  1112. uid         0)
  1113.     (object Operation "DoFolderChange"
  1114. attributes  (list Attribute_Set
  1115.     (object Attribute
  1116. tool        "Delphi"
  1117. name        "Operation_Binding"
  1118. value       ("Operation_Binding_Enum" 3)))
  1119. quid        "36D4AA6A0371"
  1120. concurrency  "Sequential"
  1121. opExportControl  "Protected"
  1122. uid         0)
  1123.     (object Operation "DoTypeChange"
  1124. attributes  (list Attribute_Set
  1125.     (object Attribute
  1126. tool        "Delphi"
  1127. name        "Operation_Binding"
  1128. value       ("Operation_Binding_Enum" 3)))
  1129. quid        "36D4AA6A037A"
  1130. concurrency  "Sequential"
  1131. opExportControl  "Protected"
  1132. uid         0)
  1133.     (object Operation "DefineProperties"
  1134. attributes  (list Attribute_Set
  1135.     (object Attribute
  1136. tool        "Delphi"
  1137. name        "Operation_Binding"
  1138. value       ("Operation_Binding_Enum" 4)))
  1139. quid        "36D4AA6A0384"
  1140. parameters  (list Parameters
  1141.     (object Parameter "Filer"
  1142. quid        "3C4ACCCC008C"
  1143. type        "TFiler"
  1144. quidu       "36D4A8B803E4"))
  1145. concurrency  "Sequential"
  1146. opExportControl  "Protected"
  1147. uid         0)
  1148.     (object Operation "GetFileNames"
  1149. quid        "36D4AA6A0398"
  1150. parameters  (list Parameters
  1151.     (object Parameter "OpenFileName"
  1152. attributes  (list Attribute_Set
  1153.     (object Attribute
  1154. tool        "Delphi"
  1155. name        "Mode"
  1156. value       ("Mode_Enum" 3)))
  1157. quid        "3C4ACCCC008E"
  1158. type        "TOpenFileName"))
  1159. concurrency  "Sequential"
  1160. opExportControl  "Protected"
  1161. uid         0)
  1162.     (object Operation "GetStaticRect"
  1163. attributes  (list Attribute_Set
  1164.     (object Attribute
  1165. tool        "Delphi"
  1166. name        "Operation_Kind"
  1167. value       ("Operation_Kind_Enum" 2))
  1168.     (object Attribute
  1169. tool        "Delphi"
  1170. name        "Operation_Binding"
  1171. value       ("Operation_Binding_Enum" 2)))
  1172. quid        "36D4AA6A03A2"
  1173. result      "TRect"
  1174. concurrency  "Sequential"
  1175. opExportControl  "Protected"
  1176. uid         0
  1177. quidu       "36D4A10D03C4")
  1178.     (object Operation "WndProc"
  1179. attributes  (list Attribute_Set
  1180.     (object Attribute
  1181. tool        "Delphi"
  1182. name        "Operation_Binding"
  1183. value       ("Operation_Binding_Enum" 4)))
  1184. quid        "36D4AA6A03AC"
  1185. parameters  (list Parameters
  1186.     (object Parameter "Message"
  1187. attributes  (list Attribute_Set
  1188.     (object Attribute
  1189. tool        "Delphi"
  1190. name        "Mode"
  1191. value       ("Mode_Enum" 3)))
  1192. quid        "3C4ACCCC0091"
  1193. type        "TMessage"
  1194. quidu       "36D4A1BD034E"))
  1195. concurrency  "Sequential"
  1196. opExportControl  "Protected"
  1197. uid         0)
  1198.     (object Operation "Create"
  1199. attributes  (list Attribute_Set
  1200.     (object Attribute
  1201. tool        "Delphi"
  1202. name        "Operation_Kind"
  1203. value       ("Operation_Kind_Enum" 3))
  1204.     (object Attribute
  1205. tool        "Delphi"
  1206. name        "Operation_Binding"
  1207. value       ("Operation_Binding_Enum" 4)))
  1208. quid        "36D4AA6A03C0"
  1209. parameters  (list Parameters
  1210.     (object Parameter "AOwner"
  1211. quid        "3C4ACCCC0095"
  1212. type        "TComponent"
  1213. quidu       "36D4A8B401A3"))
  1214. concurrency  "Sequential"
  1215. opExportControl  "Public"
  1216. uid         0)
  1217.     (object Operation "Destroy"
  1218. attributes  (list Attribute_Set
  1219.     (object Attribute
  1220. tool        "Delphi"
  1221. name        "Operation_Kind"
  1222. value       ("Operation_Kind_Enum" 4))
  1223.     (object Attribute
  1224. tool        "Delphi"
  1225. name        "Operation_Binding"
  1226. value       ("Operation_Binding_Enum" 4)))
  1227. quid        "36D4AA6A03CA"
  1228. concurrency  "Sequential"
  1229. opExportControl  "Public"
  1230. uid         0)
  1231.     (object Operation "Execute"
  1232. attributes  (list Attribute_Set
  1233.     (object Attribute
  1234. tool        "Delphi"
  1235. name        "Operation_Kind"
  1236. value       ("Operation_Kind_Enum" 2))
  1237.     (object Attribute
  1238. tool        "Delphi"
  1239. name        "Operation_Binding"
  1240. value       ("Operation_Binding_Enum" 4)))
  1241. quid        "36D4AA6A03D4"
  1242. result      "Boolean"
  1243. concurrency  "Sequential"
  1244. opExportControl  "Public"
  1245. uid         0)
  1246.     (object Operation "FileEditStyle"
  1247. attributes  (list Attribute_Set
  1248.     (object Attribute
  1249. tool        "Delphi"
  1250. name        "Property_Read"
  1251. value       "FFileEditStyle")
  1252.     (object Attribute
  1253. tool        "Delphi"
  1254. name        "Property_Write"
  1255. value       "FFileEditStyle"))
  1256. quid        "36D4AA6B0000"
  1257. stereotype  "Property"
  1258. result      "TFileEditStyle"
  1259. concurrency  "Sequential"
  1260. opExportControl  "Public"
  1261. uid         0
  1262. quidu       "36D4AA690198")
  1263.     (object Operation "Files"
  1264. attributes  (list Attribute_Set
  1265.     (object Attribute
  1266. tool        "Delphi"
  1267. name        "Property_Read"
  1268. value       "FFiles"))
  1269. quid        "36D4AA6B000A"
  1270. stereotype  "Property"
  1271. result      "TStrings"
  1272. concurrency  "Sequential"
  1273. opExportControl  "Public"
  1274. uid         0
  1275. quidu       "36D4A8C10332")
  1276.     (object Operation "HistoryList"
  1277. attributes  (list Attribute_Set
  1278.     (object Attribute
  1279. tool        "Delphi"
  1280. name        "Property_Read"
  1281. value       "FHistoryList")
  1282.     (object Attribute
  1283. tool        "Delphi"
  1284. name        "Property_Write"
  1285. value       "SetHistoryList"))
  1286. quid        "36D4AA6B001E"
  1287. stereotype  "Property"
  1288. result      "TStrings"
  1289. concurrency  "Sequential"
  1290. opExportControl  "Public"
  1291. uid         0
  1292. quidu       "36D4A8C10332")
  1293.     (object Operation "DefaultExt"
  1294. attributes  (list Attribute_Set
  1295.     (object Attribute
  1296. tool        "Delphi"
  1297. name        "Published"
  1298. value       TRUE)
  1299.     (object Attribute
  1300. tool        "Delphi"
  1301. name        "Property_Read"
  1302. value       "FDefaultExt")
  1303.     (object Attribute
  1304. tool        "Delphi"
  1305. name        "Property_Write"
  1306. value       "FDefaultExt"))
  1307. quid        "36D4AA6B0028"
  1308. stereotype  "Property"
  1309. result      "string"
  1310. concurrency  "Sequential"
  1311. opExportControl  "Public"
  1312. uid         0)
  1313.     (object Operation "FileName"
  1314. attributes  (list Attribute_Set
  1315.     (object Attribute
  1316. tool        "Delphi"
  1317. name        "Published"
  1318. value       TRUE)
  1319.     (object Attribute
  1320. tool        "Delphi"
  1321. name        "Property_Read"
  1322. value       "GetFileName")
  1323.     (object Attribute
  1324. tool        "Delphi"
  1325. name        "Property_Write"
  1326. value       "FFileName"))
  1327. quid        "36D4AA6B0032"
  1328. stereotype  "Property"
  1329. result      "TFileName"
  1330. concurrency  "Sequential"
  1331. opExportControl  "Public"
  1332. uid         0
  1333. quidu       "36D4A103038D")
  1334.     (object Operation "Filter"
  1335. attributes  (list Attribute_Set
  1336.     (object Attribute
  1337. tool        "Delphi"
  1338. name        "Published"
  1339. value       TRUE)
  1340.     (object Attribute
  1341. tool        "Delphi"
  1342. name        "Property_Read"
  1343. value       "FFilter")
  1344.     (object Attribute
  1345. tool        "Delphi"
  1346. name        "Property_Write"
  1347. value       "FFilter"))
  1348. quid        "36D4AA6B003C"
  1349. stereotype  "Property"
  1350. result      "string"
  1351. concurrency  "Sequential"
  1352. opExportControl  "Public"
  1353. uid         0)
  1354.     (object Operation "FilterIndex"
  1355. attributes  (list Attribute_Set
  1356.     (object Attribute
  1357. tool        "Delphi"
  1358. name        "Published"
  1359. value       TRUE)
  1360.     (object Attribute
  1361. tool        "Delphi"
  1362. name        "Property_Read"
  1363. value       "GetFilterIndex")
  1364.     (object Attribute
  1365. tool        "Delphi"
  1366. name        "Property_Write"
  1367. value       "FFilterIndex")
  1368.     (object Attribute
  1369. tool        "Delphi"
  1370. name        "Property_DefaultSpecifier"
  1371. value       ("Property_DefaultSpecifier_Enum" 2))
  1372.     (object Attribute
  1373. tool        "Delphi"
  1374. name        "Property_DefaultValue"
  1375. value       "1"))
  1376. quid        "36D4AA6B0046"
  1377. stereotype  "Property"
  1378. result      "Integer"
  1379. concurrency  "Sequential"
  1380. opExportControl  "Public"
  1381. uid         0)
  1382.     (object Operation "InitialDir"
  1383. attributes  (list Attribute_Set
  1384.     (object Attribute
  1385. tool        "Delphi"
  1386. name        "Published"
  1387. value       TRUE)
  1388.     (object Attribute
  1389. tool        "Delphi"
  1390. name        "Property_Read"
  1391. value       "FInitialDir")
  1392.     (object Attribute
  1393. tool        "Delphi"
  1394. name        "Property_Write"
  1395. value       "SetInitialDir"))
  1396. quid        "36D4AA6B005A"
  1397. stereotype  "Property"
  1398. result      "string"
  1399. concurrency  "Sequential"
  1400. opExportControl  "Public"
  1401. uid         0)
  1402.     (object Operation "Options"
  1403. attributes  (list Attribute_Set
  1404.     (object Attribute
  1405. tool        "Delphi"
  1406. name        "Published"
  1407. value       TRUE)
  1408.     (object Attribute
  1409. tool        "Delphi"
  1410. name        "Property_Read"
  1411. value       "FOptions")
  1412.     (object Attribute
  1413. tool        "Delphi"
  1414. name        "Property_Write"
  1415. value       "FOptions")
  1416.     (object Attribute
  1417. tool        "Delphi"
  1418. name        "Property_DefaultSpecifier"
  1419. value       ("Property_DefaultSpecifier_Enum" 2))
  1420.     (object Attribute
  1421. tool        "Delphi"
  1422. name        "Property_DefaultValue"
  1423. value       "[ofHideReadOnly, ofEnableSizing]"))
  1424. quid        "36D4AA6B0064"
  1425. stereotype  "Property"
  1426. result      "TOpenOptions"
  1427. concurrency  "Sequential"
  1428. opExportControl  "Public"
  1429. uid         0
  1430. quidu       "36D4AA690061")
  1431.     (object Operation "Title"
  1432. attributes  (list Attribute_Set
  1433.     (object Attribute
  1434. tool        "Delphi"
  1435. name        "Published"
  1436. value       TRUE)
  1437.     (object Attribute
  1438. tool        "Delphi"
  1439. name        "Property_Read"
  1440. value       "FTitle")
  1441.     (object Attribute
  1442. tool        "Delphi"
  1443. name        "Property_Write"
  1444. value       "FTitle"))
  1445. quid        "36D4AA6B0078"
  1446. stereotype  "Property"
  1447. result      "string"
  1448. concurrency  "Sequential"
  1449. opExportControl  "Public"
  1450. uid         0)
  1451.     (object Operation "OnCanClose"
  1452. attributes  (list Attribute_Set
  1453.     (object Attribute
  1454. tool        "Delphi"
  1455. name        "Published"
  1456. value       TRUE)
  1457.     (object Attribute
  1458. tool        "Delphi"
  1459. name        "Property_Read"
  1460. value       "FOnCanClose")
  1461.     (object Attribute
  1462. tool        "Delphi"
  1463. name        "Property_Write"
  1464. value       "FOnCanClose"))
  1465. quid        "36D4AA6B0082"
  1466. stereotype  "Property"
  1467. result      "TCloseQueryEvent"
  1468. concurrency  "Sequential"
  1469. opExportControl  "Public"
  1470. uid         0
  1471. quidu       "36D4AA6A0199")
  1472.     (object Operation "OnFolderChange"
  1473. attributes  (list Attribute_Set
  1474.     (object Attribute
  1475. tool        "Delphi"
  1476. name        "Published"
  1477. value       TRUE)
  1478.     (object Attribute
  1479. tool        "Delphi"
  1480. name        "Property_Read"
  1481. value       "FOnFolderChange")
  1482.     (object Attribute
  1483. tool        "Delphi"
  1484. name        "Property_Write"
  1485. value       "FOnFolderChange"))
  1486. quid        "36D4AA6B008C"
  1487. stereotype  "Property"
  1488. result      "TNotifyEvent"
  1489. concurrency  "Sequential"
  1490. opExportControl  "Public"
  1491. uid         0
  1492. quidu       "36D4A8B60214")
  1493.     (object Operation "OnSelectionChange"
  1494. attributes  (list Attribute_Set
  1495.     (object Attribute
  1496. tool        "Delphi"
  1497. name        "Published"
  1498. value       TRUE)
  1499.     (object Attribute
  1500. tool        "Delphi"
  1501. name        "Property_Read"
  1502. value       "FOnSelectionChange")
  1503.     (object Attribute
  1504. tool        "Delphi"
  1505. name        "Property_Write"
  1506. value       "FOnSelectionChange"))
  1507. quid        "36D4AA6B0096"
  1508. stereotype  "Property"
  1509. result      "TNotifyEvent"
  1510. concurrency  "Sequential"
  1511. opExportControl  "Public"
  1512. uid         0
  1513. quidu       "36D4A8B60214")
  1514.     (object Operation "OnTypeChange"
  1515. attributes  (list Attribute_Set
  1516.     (object Attribute
  1517. tool        "Delphi"
  1518. name        "Published"
  1519. value       TRUE)
  1520.     (object Attribute
  1521. tool        "Delphi"
  1522. name        "Property_Read"
  1523. value       "FOnTypeChange")
  1524.     (object Attribute
  1525. tool        "Delphi"
  1526. name        "Property_Write"
  1527. value       "FOnTypeChange"))
  1528. quid        "36D4AA6B00AA"
  1529. stereotype  "Property"
  1530. result      "TNotifyEvent"
  1531. concurrency  "Sequential"
  1532. opExportControl  "Public"
  1533. uid         0
  1534. quidu       "36D4A8B60214"))
  1535. class_attributes  (list class_attribute_list
  1536.     (object ClassAttribute "FFilter"
  1537. quid        "36D4AA6903DD"
  1538. type        "string")
  1539.     (object ClassAttribute "FFilterIndex"
  1540. quid        "36D4AA6A0008"
  1541. type        "Integer")
  1542.     (object ClassAttribute "FCurrentFilterIndex"
  1543. quid        "36D4AA6A0012"
  1544. type        "Integer")
  1545.     (object ClassAttribute "FInitialDir"
  1546. quid        "36D4AA6A001C"
  1547. type        "string")
  1548.     (object ClassAttribute "FTitle"
  1549. quid        "36D4AA6A0030"
  1550. type        "string")
  1551.     (object ClassAttribute "FDefaultExt"
  1552. quid        "36D4AA6A003A"
  1553. type        "string"))
  1554. module      "::Delphi Framework::Vcl::Dialogs"
  1555. quidu       "36D4AA67019F"
  1556. language    "Delphi")
  1557.     (object Class "TSaveDialog"
  1558. quid        "36D4AA6B00B4"
  1559. superclasses  (list inheritance_relationship_list
  1560.     (object Inheritance_Relationship
  1561. quid        "36D4AA6B01D6"
  1562. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  1563. quidu       "36D4AA6902BA"))
  1564. operations  (list Operations
  1565.     (object Operation "Execute"
  1566. attributes  (list Attribute_Set
  1567.     (object Attribute
  1568. tool        "Delphi"
  1569. name        "Operation_Kind"
  1570. value       ("Operation_Kind_Enum" 2))
  1571.     (object Attribute
  1572. tool        "Delphi"
  1573. name        "Operation_Binding"
  1574. value       ("Operation_Binding_Enum" 4)))
  1575. quid        "36D4AA6B01E1"
  1576. result      "Boolean"
  1577. concurrency  "Sequential"
  1578. opExportControl  "Public"
  1579. uid         0))
  1580. module      "::Delphi Framework::Vcl::Dialogs"
  1581. quidu       "36D4AA67019F"
  1582. language    "Delphi")
  1583.     (object Class "TColorDialogOption"
  1584. quid        "36D4AA6B01F5"
  1585. stereotype  "Enum"
  1586. module      "::Delphi Framework::Vcl::Dialogs"
  1587. quidu       "36D4AA67019F"
  1588. language    "Delphi")
  1589.     (object Class "TColorDialogOptions"
  1590. quid        "36D4AA6B0317"
  1591. stereotype  "Set"
  1592. module      "::Delphi Framework::Vcl::Dialogs"
  1593. quidu       "36D4AA67019F"
  1594. language    "Delphi")
  1595.     (object Class "TCustomColors"
  1596. quid        "36D4AA6C005B"
  1597. stereotype  "Array"
  1598. module      "::Delphi Framework::Vcl::Dialogs"
  1599. quidu       "36D4AA67019F"
  1600. language    "Delphi")
  1601.     (object Class "TColorDialog"
  1602. quid        "36D4AA6C0188"
  1603. superclasses  (list inheritance_relationship_list
  1604.     (object Inheritance_Relationship
  1605. quid        "36D4AA6C02B4"
  1606. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  1607. quidu       "36D4AA670389"))
  1608. operations  (list Operations
  1609.     (object Operation "SetCustomColors"
  1610. quid        "36D4AA6C0336"
  1611. parameters  (list Parameters
  1612.     (object Parameter "Value"
  1613. quid        "3C4ACCCC00CD"
  1614. type        "TStrings"
  1615. quidu       "36D4A8C10332"))
  1616. concurrency  "Sequential"
  1617. opExportControl  "Private"
  1618. uid         0)
  1619.     (object Operation "Create"
  1620. attributes  (list Attribute_Set
  1621.     (object Attribute
  1622. tool        "Delphi"
  1623. name        "Operation_Kind"
  1624. value       ("Operation_Kind_Enum" 3))
  1625.     (object Attribute
  1626. tool        "Delphi"
  1627. name        "Operation_Binding"
  1628. value       ("Operation_Binding_Enum" 4)))
  1629. quid        "36D4AA6C0340"
  1630. parameters  (list Parameters
  1631.     (object Parameter "AOwner"
  1632. quid        "3C4ACCCC00CF"
  1633. type        "TComponent"
  1634. quidu       "36D4A8B401A3"))
  1635. concurrency  "Sequential"
  1636. opExportControl  "Public"
  1637. uid         0)
  1638.     (object Operation "Destroy"
  1639. attributes  (list Attribute_Set
  1640.     (object Attribute
  1641. tool        "Delphi"
  1642. name        "Operation_Kind"
  1643. value       ("Operation_Kind_Enum" 4))
  1644.     (object Attribute
  1645. tool        "Delphi"
  1646. name        "Operation_Binding"
  1647. value       ("Operation_Binding_Enum" 4)))
  1648. quid        "36D4AA6C034A"
  1649. concurrency  "Sequential"
  1650. opExportControl  "Public"
  1651. uid         0)
  1652.     (object Operation "Execute"
  1653. attributes  (list Attribute_Set
  1654.     (object Attribute
  1655. tool        "Delphi"
  1656. name        "Operation_Kind"
  1657. value       ("Operation_Kind_Enum" 2))
  1658.     (object Attribute
  1659. tool        "Delphi"
  1660. name        "Operation_Binding"
  1661. value       ("Operation_Binding_Enum" 4)))
  1662. quid        "36D4AA6C0354"
  1663. result      "Boolean"
  1664. concurrency  "Sequential"
  1665. opExportControl  "Public"
  1666. uid         0)
  1667.     (object Operation "Color"
  1668. attributes  (list Attribute_Set
  1669.     (object Attribute
  1670. tool        "Delphi"
  1671. name        "Published"
  1672. value       TRUE)
  1673.     (object Attribute
  1674. tool        "Delphi"
  1675. name        "Property_Read"
  1676. value       "FColor")
  1677.     (object Attribute
  1678. tool        "Delphi"
  1679. name        "Property_Write"
  1680. value       "FColor")
  1681.     (object Attribute
  1682. tool        "Delphi"
  1683. name        "Property_DefaultSpecifier"
  1684. value       ("Property_DefaultSpecifier_Enum" 2))
  1685.     (object Attribute
  1686. tool        "Delphi"
  1687. name        "Property_DefaultValue"
  1688. value       "clBlack"))
  1689. quid        "36D4AA6C0373"
  1690. stereotype  "Property"
  1691. result      "TColor"
  1692. concurrency  "Sequential"
  1693. opExportControl  "Public"
  1694. uid         0
  1695. quidu       "36D4A93701D4")
  1696.     (object Operation "Ctl3D"
  1697. attributes  (list Attribute_Set
  1698.     (object Attribute
  1699. tool        "Delphi"
  1700. name        "Published"
  1701. value       TRUE)
  1702.     (object Attribute
  1703. tool        "Delphi"
  1704. name        "Property_DefaultSpecifier"
  1705. value       ("Property_DefaultSpecifier_Enum" 2))
  1706.     (object Attribute
  1707. tool        "Delphi"
  1708. name        "Property_DefaultValue"
  1709. value       "False"))
  1710. quid        "36D4AA6C037D"
  1711. stereotype  "Property"
  1712. concurrency  "Sequential"
  1713. opExportControl  "Public"
  1714. uid         0)
  1715.     (object Operation "CustomColors"
  1716. attributes  (list Attribute_Set
  1717.     (object Attribute
  1718. tool        "Delphi"
  1719. name        "Published"
  1720. value       TRUE)
  1721.     (object Attribute
  1722. tool        "Delphi"
  1723. name        "Property_Read"
  1724. value       "FCustomColors")
  1725.     (object Attribute
  1726. tool        "Delphi"
  1727. name        "Property_Write"
  1728. value       "SetCustomColors"))
  1729. quid        "36D4AA6C0387"
  1730. stereotype  "Property"
  1731. result      "TStrings"
  1732. concurrency  "Sequential"
  1733. opExportControl  "Public"
  1734. uid         0
  1735. quidu       "36D4A8C10332")
  1736.     (object Operation "Options"
  1737. attributes  (list Attribute_Set
  1738.     (object Attribute
  1739. tool        "Delphi"
  1740. name        "Published"
  1741. value       TRUE)
  1742.     (object Attribute
  1743. tool        "Delphi"
  1744. name        "Property_Read"
  1745. value       "FOptions")
  1746.     (object Attribute
  1747. tool        "Delphi"
  1748. name        "Property_Write"
  1749. value       "FOptions")
  1750.     (object Attribute
  1751. tool        "Delphi"
  1752. name        "Property_DefaultSpecifier"
  1753. value       ("Property_DefaultSpecifier_Enum" 2))
  1754.     (object Attribute
  1755. tool        "Delphi"
  1756. name        "Property_DefaultValue"
  1757. value       "[]"))
  1758. quid        "36D4AA6C0391"
  1759. stereotype  "Property"
  1760. result      "TColorDialogOptions"
  1761. concurrency  "Sequential"
  1762. opExportControl  "Public"
  1763. uid         0
  1764. quidu       "36D4AA6B0317"))
  1765. module      "::Delphi Framework::Vcl::Dialogs"
  1766. quidu       "36D4AA67019F"
  1767. language    "Delphi")
  1768.     (object Class "TFontDialogOption"
  1769. quid        "36D4AA6C03A5"
  1770. stereotype  "Enum"
  1771. module      "::Delphi Framework::Vcl::Dialogs"
  1772. quidu       "36D4AA67019F"
  1773. language    "Delphi")
  1774.     (object Class "TFontDialogOptions"
  1775. quid        "36D4AA6D00E9"
  1776. stereotype  "Set"
  1777. module      "::Delphi Framework::Vcl::Dialogs"
  1778. quidu       "36D4AA67019F"
  1779. language    "Delphi")
  1780.     (object Class "TFontDialogDevice"
  1781. quid        "36D4AA6D020B"
  1782. stereotype  "Enum"
  1783. module      "::Delphi Framework::Vcl::Dialogs"
  1784. quidu       "36D4AA67019F"
  1785. language    "Delphi")
  1786.     (object Class "TFDApplyEvent"
  1787. quid        "36D4AA6D032E"
  1788. stereotype  "ProcType"
  1789. module      "::Delphi Framework::Vcl::Dialogs"
  1790. quidu       "36D4AA67019F"
  1791. language    "Delphi")
  1792.     (object Class "TFontDialog"
  1793. quid        "36D4AA6E0072"
  1794. superclasses  (list inheritance_relationship_list
  1795.     (object Inheritance_Relationship
  1796. quid        "36D4AA6E0195"
  1797. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  1798. quidu       "36D4AA670389"))
  1799. operations  (list Operations
  1800.     (object Operation "DoApply"
  1801. quid        "36D4AA6E0271"
  1802. parameters  (list Parameters
  1803.     (object Parameter "Wnd"
  1804. quid        "3C4ACCCC00EB"
  1805. type        "HWND"
  1806. quidu       "36D4A10E0299"))
  1807. concurrency  "Sequential"
  1808. opExportControl  "Private"
  1809. uid         0)
  1810.     (object Operation "SetFont"
  1811. quid        "36D4AA6E027B"
  1812. parameters  (list Parameters
  1813.     (object Parameter "Value"
  1814. quid        "3C4ACCCC00ED"
  1815. type        "TFont"
  1816. quidu       "36D4A8D20265"))
  1817. concurrency  "Sequential"
  1818. opExportControl  "Private"
  1819. uid         0)
  1820.     (object Operation "UpdateFromLogFont"
  1821. quid        "36D4AA6E0285"
  1822. parameters  (list Parameters
  1823.     (object Parameter "LogFont"
  1824. attributes  (list Attribute_Set
  1825.     (object Attribute
  1826. tool        "Delphi"
  1827. name        "Mode"
  1828. value       ("Mode_Enum" 2)))
  1829. quid        "3C4ACCCC00EF"
  1830. type        "TLogFont"
  1831. quidu       "36D4A2E501C3"))
  1832. concurrency  "Sequential"
  1833. opExportControl  "Private"
  1834. uid         0)
  1835.     (object Operation "Apply"
  1836. attributes  (list Attribute_Set
  1837.     (object Attribute
  1838. tool        "Delphi"
  1839. name        "Operation_Binding"
  1840. value       ("Operation_Binding_Enum" 3)))
  1841. quid        "36D4AA6E0299"
  1842. parameters  (list Parameters
  1843.     (object Parameter "Wnd"
  1844. quid        "3C4ACCCC00F1"
  1845. type        "HWND"
  1846. quidu       "36D4A10E0299"))
  1847. concurrency  "Sequential"
  1848. opExportControl  "Protected"
  1849. uid         0)
  1850.     (object Operation "WndProc"
  1851. attributes  (list Attribute_Set
  1852.     (object Attribute
  1853. tool        "Delphi"
  1854. name        "Operation_Binding"
  1855. value       ("Operation_Binding_Enum" 4)))
  1856. quid        "36D4AA6E02A3"
  1857. parameters  (list Parameters
  1858.     (object Parameter "Message"
  1859. attributes  (list Attribute_Set
  1860.     (object Attribute
  1861. tool        "Delphi"
  1862. name        "Mode"
  1863. value       ("Mode_Enum" 3)))
  1864. quid        "3C4ACCCC00F3"
  1865. type        "TMessage"
  1866. quidu       "36D4A1BD034E"))
  1867. concurrency  "Sequential"
  1868. opExportControl  "Protected"
  1869. uid         0)
  1870.     (object Operation "Create"
  1871. attributes  (list Attribute_Set
  1872.     (object Attribute
  1873. tool        "Delphi"
  1874. name        "Operation_Kind"
  1875. value       ("Operation_Kind_Enum" 3))
  1876.     (object Attribute
  1877. tool        "Delphi"
  1878. name        "Operation_Binding"
  1879. value       ("Operation_Binding_Enum" 4)))
  1880. quid        "36D4AA6E02B7"
  1881. parameters  (list Parameters
  1882.     (object Parameter "AOwner"
  1883. quid        "3C4ACCCC00F5"
  1884. type        "TComponent"
  1885. quidu       "36D4A8B401A3"))
  1886. concurrency  "Sequential"
  1887. opExportControl  "Public"
  1888. uid         0)
  1889.     (object Operation "Destroy"
  1890. attributes  (list Attribute_Set
  1891.     (object Attribute
  1892. tool        "Delphi"
  1893. name        "Operation_Kind"
  1894. value       ("Operation_Kind_Enum" 4))
  1895.     (object Attribute
  1896. tool        "Delphi"
  1897. name        "Operation_Binding"
  1898. value       ("Operation_Binding_Enum" 4)))
  1899. quid        "36D4AA6E02C1"
  1900. concurrency  "Sequential"
  1901. opExportControl  "Public"
  1902. uid         0)
  1903.     (object Operation "Execute"
  1904. attributes  (list Attribute_Set
  1905.     (object Attribute
  1906. tool        "Delphi"
  1907. name        "Operation_Kind"
  1908. value       ("Operation_Kind_Enum" 2))
  1909.     (object Attribute
  1910. tool        "Delphi"
  1911. name        "Operation_Binding"
  1912. value       ("Operation_Binding_Enum" 4)))
  1913. quid        "36D4AA6E02CB"
  1914. result      "Boolean"
  1915. concurrency  "Sequential"
  1916. opExportControl  "Public"
  1917. uid         0)
  1918.     (object Operation "Font"
  1919. attributes  (list Attribute_Set
  1920.     (object Attribute
  1921. tool        "Delphi"
  1922. name        "Published"
  1923. value       TRUE)
  1924.     (object Attribute
  1925. tool        "Delphi"
  1926. name        "Property_Read"
  1927. value       "FFont")
  1928.     (object Attribute
  1929. tool        "Delphi"
  1930. name        "Property_Write"
  1931. value       "SetFont"))
  1932. quid        "36D4AA6E02DF"
  1933. stereotype  "Property"
  1934. result      "TFont"
  1935. concurrency  "Sequential"
  1936. opExportControl  "Public"
  1937. uid         0
  1938. quidu       "36D4A8D20265")
  1939.     (object Operation "Device"
  1940. attributes  (list Attribute_Set
  1941.     (object Attribute
  1942. tool        "Delphi"
  1943. name        "Published"
  1944. value       TRUE)
  1945.     (object Attribute
  1946. tool        "Delphi"
  1947. name        "Property_Read"
  1948. value       "FDevice")
  1949.     (object Attribute
  1950. tool        "Delphi"
  1951. name        "Property_Write"
  1952. value       "FDevice")
  1953.     (object Attribute
  1954. tool        "Delphi"
  1955. name        "Property_DefaultSpecifier"
  1956. value       ("Property_DefaultSpecifier_Enum" 2))
  1957.     (object Attribute
  1958. tool        "Delphi"
  1959. name        "Property_DefaultValue"
  1960. value       "fdScreen"))
  1961. quid        "36D4AA6E02E9"
  1962. stereotype  "Property"
  1963. result      "TFontDialogDevice"
  1964. concurrency  "Sequential"
  1965. opExportControl  "Public"
  1966. uid         0
  1967. quidu       "36D4AA6D020B")
  1968.     (object Operation "MinFontSize"
  1969. attributes  (list Attribute_Set
  1970.     (object Attribute
  1971. tool        "Delphi"
  1972. name        "Published"
  1973. value       TRUE)
  1974.     (object Attribute
  1975. tool        "Delphi"
  1976. name        "Property_Read"
  1977. value       "FMinFontSize")
  1978.     (object Attribute
  1979. tool        "Delphi"
  1980. name        "Property_Write"
  1981. value       "FMinFontSize"))
  1982. quid        "36D4AA6E02FD"
  1983. stereotype  "Property"
  1984. result      "Integer"
  1985. concurrency  "Sequential"
  1986. opExportControl  "Public"
  1987. uid         0)
  1988.     (object Operation "MaxFontSize"
  1989. attributes  (list Attribute_Set
  1990.     (object Attribute
  1991. tool        "Delphi"
  1992. name        "Published"
  1993. value       TRUE)
  1994.     (object Attribute
  1995. tool        "Delphi"
  1996. name        "Property_Read"
  1997. value       "FMaxFontSize")
  1998.     (object Attribute
  1999. tool        "Delphi"
  2000. name        "Property_Write"
  2001. value       "FMaxFontSize"))
  2002. quid        "36D4AA6E0307"
  2003. stereotype  "Property"
  2004. result      "Integer"
  2005. concurrency  "Sequential"
  2006. opExportControl  "Public"
  2007. uid         0)
  2008.     (object Operation "Options"
  2009. attributes  (list Attribute_Set
  2010.     (object Attribute
  2011. tool        "Delphi"
  2012. name        "Published"
  2013. value       TRUE)
  2014.     (object Attribute
  2015. tool        "Delphi"
  2016. name        "Property_Read"
  2017. value       "FOptions")
  2018.     (object Attribute
  2019. tool        "Delphi"
  2020. name        "Property_Write"
  2021. value       "FOptions")
  2022.     (object Attribute
  2023. tool        "Delphi"
  2024. name        "Property_DefaultSpecifier"
  2025. value       ("Property_DefaultSpecifier_Enum" 2))
  2026.     (object Attribute
  2027. tool        "Delphi"
  2028. name        "Property_DefaultValue"
  2029. value       "[fdEffects]"))
  2030. quid        "36D4AA6E0311"
  2031. stereotype  "Property"
  2032. result      "TFontDialogOptions"
  2033. concurrency  "Sequential"
  2034. opExportControl  "Public"
  2035. uid         0
  2036. quidu       "36D4AA6D00E9")
  2037.     (object Operation "OnApply"
  2038. attributes  (list Attribute_Set
  2039.     (object Attribute
  2040. tool        "Delphi"
  2041. name        "Published"
  2042. value       TRUE)
  2043.     (object Attribute
  2044. tool        "Delphi"
  2045. name        "Property_Read"
  2046. value       "FOnApply")
  2047.     (object Attribute
  2048. tool        "Delphi"
  2049. name        "Property_Write"
  2050. value       "FOnApply"))
  2051. quid        "36D4AA6E0325"
  2052. stereotype  "Property"
  2053. result      "TFDApplyEvent"
  2054. concurrency  "Sequential"
  2055. opExportControl  "Public"
  2056. uid         0
  2057. quidu       "36D4AA6D032E"))
  2058. class_attributes  (list class_attribute_list
  2059.     (object ClassAttribute "FMinFontSize"
  2060. quid        "36D4AA6E0196"
  2061. type        "Integer")
  2062.     (object ClassAttribute "FMaxFontSize"
  2063. quid        "36D4AA6E01A9"
  2064. type        "Integer")
  2065.     (object ClassAttribute "FFontCharsetModified"
  2066. quid        "36D4AA6E01B3"
  2067. type        "Boolean")
  2068.     (object ClassAttribute "FFontColorModified"
  2069. quid        "36D4AA6E01BD"
  2070. type        "Boolean"))
  2071. module      "::Delphi Framework::Vcl::Dialogs"
  2072. quidu       "36D4AA67019F"
  2073. language    "Delphi")
  2074.     (object Class "TPrinterSetupDialog"
  2075. quid        "36D4AA6E032F"
  2076. superclasses  (list inheritance_relationship_list
  2077.     (object Inheritance_Relationship
  2078. quid        "36D4AA6F0074"
  2079. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2080. quidu       "36D4AA670389"))
  2081. operations  (list Operations
  2082.     (object Operation "Execute"
  2083. attributes  (list Attribute_Set
  2084.     (object Attribute
  2085. tool        "Delphi"
  2086. name        "Operation_Kind"
  2087. value       ("Operation_Kind_Enum" 2))
  2088.     (object Attribute
  2089. tool        "Delphi"
  2090. name        "Operation_Binding"
  2091. value       ("Operation_Binding_Enum" 4)))
  2092. quid        "36D4AA6F0075"
  2093. result      "Boolean"
  2094. concurrency  "Sequential"
  2095. opExportControl  "Public"
  2096. uid         0))
  2097. module      "::Delphi Framework::Vcl::Dialogs"
  2098. quidu       "36D4AA67019F"
  2099. language    "Delphi")
  2100.     (object Class "TPrintRange"
  2101. quid        "36D4AA6F0088"
  2102. stereotype  "Enum"
  2103. module      "::Delphi Framework::Vcl::Dialogs"
  2104. quidu       "36D4AA67019F"
  2105. language    "Delphi")
  2106.     (object Class "TPrintDialogOption"
  2107. quid        "36D4AA6F01C8"
  2108. stereotype  "Enum"
  2109. module      "::Delphi Framework::Vcl::Dialogs"
  2110. quidu       "36D4AA67019F"
  2111. language    "Delphi")
  2112.     (object Class "TPrintDialogOptions"
  2113. quid        "36D4AA6F02EB"
  2114. stereotype  "Set"
  2115. module      "::Delphi Framework::Vcl::Dialogs"
  2116. quidu       "36D4AA67019F"
  2117. language    "Delphi")
  2118.     (object Class "TPrintDialog"
  2119. quid        "36D4AA70002F"
  2120. superclasses  (list inheritance_relationship_list
  2121.     (object Inheritance_Relationship
  2122. quid        "36D4AA700151"
  2123. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2124. quidu       "36D4AA670389"))
  2125. operations  (list Operations
  2126.     (object Operation "SetNumCopies"
  2127. quid        "36D4AA7001FC"
  2128. parameters  (list Parameters
  2129.     (object Parameter "Value"
  2130. quid        "3C4ACCCC011B"
  2131. type        "Integer"))
  2132. concurrency  "Sequential"
  2133. opExportControl  "Private"
  2134. uid         0)
  2135.     (object Operation "Execute"
  2136. attributes  (list Attribute_Set
  2137.     (object Attribute
  2138. tool        "Delphi"
  2139. name        "Operation_Kind"
  2140. value       ("Operation_Kind_Enum" 2))
  2141.     (object Attribute
  2142. tool        "Delphi"
  2143. name        "Operation_Binding"
  2144. value       ("Operation_Binding_Enum" 4)))
  2145. quid        "36D4AA700210"
  2146. result      "Boolean"
  2147. concurrency  "Sequential"
  2148. opExportControl  "Public"
  2149. uid         0)
  2150.     (object Operation "Collate"
  2151. attributes  (list Attribute_Set
  2152.     (object Attribute
  2153. tool        "Delphi"
  2154. name        "Published"
  2155. value       TRUE)
  2156.     (object Attribute
  2157. tool        "Delphi"
  2158. name        "Property_Read"
  2159. value       "FCollate")
  2160.     (object Attribute
  2161. tool        "Delphi"
  2162. name        "Property_Write"
  2163. value       "FCollate")
  2164.     (object Attribute
  2165. tool        "Delphi"
  2166. name        "Property_DefaultSpecifier"
  2167. value       ("Property_DefaultSpecifier_Enum" 2))
  2168.     (object Attribute
  2169. tool        "Delphi"
  2170. name        "Property_DefaultValue"
  2171. value       "False"))
  2172. quid        "36D4AA70021A"
  2173. stereotype  "Property"
  2174. result      "Boolean"
  2175. concurrency  "Sequential"
  2176. opExportControl  "Public"
  2177. uid         0)
  2178.     (object Operation "Copies"
  2179. attributes  (list Attribute_Set
  2180.     (object Attribute
  2181. tool        "Delphi"
  2182. name        "Published"
  2183. value       TRUE)
  2184.     (object Attribute
  2185. tool        "Delphi"
  2186. name        "Property_Read"
  2187. value       "FCopies")
  2188.     (object Attribute
  2189. tool        "Delphi"
  2190. name        "Property_Write"
  2191. value       "SetNumCopies")
  2192.     (object Attribute
  2193. tool        "Delphi"
  2194. name        "Property_DefaultSpecifier"
  2195. value       ("Property_DefaultSpecifier_Enum" 2))
  2196.     (object Attribute
  2197. tool        "Delphi"
  2198. name        "Property_DefaultValue"
  2199. value       "0"))
  2200. quid        "36D4AA70022E"
  2201. stereotype  "Property"
  2202. result      "Integer"
  2203. concurrency  "Sequential"
  2204. opExportControl  "Public"
  2205. uid         0)
  2206.     (object Operation "FromPage"
  2207. attributes  (list Attribute_Set
  2208.     (object Attribute
  2209. tool        "Delphi"
  2210. name        "Published"
  2211. value       TRUE)
  2212.     (object Attribute
  2213. tool        "Delphi"
  2214. name        "Property_Read"
  2215. value       "FFromPage")
  2216.     (object Attribute
  2217. tool        "Delphi"
  2218. name        "Property_Write"
  2219. value       "FFromPage")
  2220.     (object Attribute
  2221. tool        "Delphi"
  2222. name        "Property_DefaultSpecifier"
  2223. value       ("Property_DefaultSpecifier_Enum" 2))
  2224.     (object Attribute
  2225. tool        "Delphi"
  2226. name        "Property_DefaultValue"
  2227. value       "0"))
  2228. quid        "36D4AA700238"
  2229. stereotype  "Property"
  2230. result      "Integer"
  2231. concurrency  "Sequential"
  2232. opExportControl  "Public"
  2233. uid         0)
  2234.     (object Operation "MinPage"
  2235. attributes  (list Attribute_Set
  2236.     (object Attribute
  2237. tool        "Delphi"
  2238. name        "Published"
  2239. value       TRUE)
  2240.     (object Attribute
  2241. tool        "Delphi"
  2242. name        "Property_Read"
  2243. value       "FMinPage")
  2244.     (object Attribute
  2245. tool        "Delphi"
  2246. name        "Property_Write"
  2247. value       "FMinPage")
  2248.     (object Attribute
  2249. tool        "Delphi"
  2250. name        "Property_DefaultSpecifier"
  2251. value       ("Property_DefaultSpecifier_Enum" 2))
  2252.     (object Attribute
  2253. tool        "Delphi"
  2254. name        "Property_DefaultValue"
  2255. value       "0"))
  2256. quid        "36D4AA70024C"
  2257. stereotype  "Property"
  2258. result      "Integer"
  2259. concurrency  "Sequential"
  2260. opExportControl  "Public"
  2261. uid         0)
  2262.     (object Operation "MaxPage"
  2263. attributes  (list Attribute_Set
  2264.     (object Attribute
  2265. tool        "Delphi"
  2266. name        "Published"
  2267. value       TRUE)
  2268.     (object Attribute
  2269. tool        "Delphi"
  2270. name        "Property_Read"
  2271. value       "FMaxPage")
  2272.     (object Attribute
  2273. tool        "Delphi"
  2274. name        "Property_Write"
  2275. value       "FMaxPage")
  2276.     (object Attribute
  2277. tool        "Delphi"
  2278. name        "Property_DefaultSpecifier"
  2279. value       ("Property_DefaultSpecifier_Enum" 2))
  2280.     (object Attribute
  2281. tool        "Delphi"
  2282. name        "Property_DefaultValue"
  2283. value       "0"))
  2284. quid        "36D4AA700256"
  2285. stereotype  "Property"
  2286. result      "Integer"
  2287. concurrency  "Sequential"
  2288. opExportControl  "Public"
  2289. uid         0)
  2290.     (object Operation "Options"
  2291. attributes  (list Attribute_Set
  2292.     (object Attribute
  2293. tool        "Delphi"
  2294. name        "Published"
  2295. value       TRUE)
  2296.     (object Attribute
  2297. tool        "Delphi"
  2298. name        "Property_Read"
  2299. value       "FOptions")
  2300.     (object Attribute
  2301. tool        "Delphi"
  2302. name        "Property_Write"
  2303. value       "FOptions")
  2304.     (object Attribute
  2305. tool        "Delphi"
  2306. name        "Property_DefaultSpecifier"
  2307. value       ("Property_DefaultSpecifier_Enum" 2))
  2308.     (object Attribute
  2309. tool        "Delphi"
  2310. name        "Property_DefaultValue"
  2311. value       "[]"))
  2312. quid        "36D4AA700260"
  2313. stereotype  "Property"
  2314. result      "TPrintDialogOptions"
  2315. concurrency  "Sequential"
  2316. opExportControl  "Public"
  2317. uid         0
  2318. quidu       "36D4AA6F02EB")
  2319.     (object Operation "PrintToFile"
  2320. attributes  (list Attribute_Set
  2321.     (object Attribute
  2322. tool        "Delphi"
  2323. name        "Published"
  2324. value       TRUE)
  2325.     (object Attribute
  2326. tool        "Delphi"
  2327. name        "Property_Read"
  2328. value       "FPrintToFile")
  2329.     (object Attribute
  2330. tool        "Delphi"
  2331. name        "Property_Write"
  2332. value       "FPrintToFile")
  2333.     (object Attribute
  2334. tool        "Delphi"
  2335. name        "Property_DefaultSpecifier"
  2336. value       ("Property_DefaultSpecifier_Enum" 2))
  2337.     (object Attribute
  2338. tool        "Delphi"
  2339. name        "Property_DefaultValue"
  2340. value       "False"))
  2341. quid        "36D4AA700274"
  2342. stereotype  "Property"
  2343. result      "Boolean"
  2344. concurrency  "Sequential"
  2345. opExportControl  "Public"
  2346. uid         0)
  2347.     (object Operation "PrintRange"
  2348. attributes  (list Attribute_Set
  2349.     (object Attribute
  2350. tool        "Delphi"
  2351. name        "Published"
  2352. value       TRUE)
  2353.     (object Attribute
  2354. tool        "Delphi"
  2355. name        "Property_Read"
  2356. value       "FPrintRange")
  2357.     (object Attribute
  2358. tool        "Delphi"
  2359. name        "Property_Write"
  2360. value       "FPrintRange")
  2361.     (object Attribute
  2362. tool        "Delphi"
  2363. name        "Property_DefaultSpecifier"
  2364. value       ("Property_DefaultSpecifier_Enum" 2))
  2365.     (object Attribute
  2366. tool        "Delphi"
  2367. name        "Property_DefaultValue"
  2368. value       "prAllPages"))
  2369. quid        "36D4AA70027E"
  2370. stereotype  "Property"
  2371. result      "TPrintRange"
  2372. concurrency  "Sequential"
  2373. opExportControl  "Public"
  2374. uid         0
  2375. quidu       "36D4AA6F0088")
  2376.     (object Operation "ToPage"
  2377. attributes  (list Attribute_Set
  2378.     (object Attribute
  2379. tool        "Delphi"
  2380. name        "Published"
  2381. value       TRUE)
  2382.     (object Attribute
  2383. tool        "Delphi"
  2384. name        "Property_Read"
  2385. value       "FToPage")
  2386.     (object Attribute
  2387. tool        "Delphi"
  2388. name        "Property_Write"
  2389. value       "FToPage")
  2390.     (object Attribute
  2391. tool        "Delphi"
  2392. name        "Property_DefaultSpecifier"
  2393. value       ("Property_DefaultSpecifier_Enum" 2))
  2394.     (object Attribute
  2395. tool        "Delphi"
  2396. name        "Property_DefaultValue"
  2397. value       "0"))
  2398. quid        "36D4AA700292"
  2399. stereotype  "Property"
  2400. result      "Integer"
  2401. concurrency  "Sequential"
  2402. opExportControl  "Public"
  2403. uid         0))
  2404. class_attributes  (list class_attribute_list
  2405.     (object ClassAttribute "FFromPage"
  2406. quid        "36D4AA700152"
  2407. type        "Integer")
  2408.     (object ClassAttribute "FToPage"
  2409. quid        "36D4AA700166"
  2410. type        "Integer")
  2411.     (object ClassAttribute "FCollate"
  2412. quid        "36D4AA700170"
  2413. type        "Boolean")
  2414.     (object ClassAttribute "FPrintToFile"
  2415. quid        "36D4AA70017A"
  2416. type        "Boolean")
  2417.     (object ClassAttribute "FMinPage"
  2418. quid        "36D4AA700184"
  2419. type        "Integer")
  2420.     (object ClassAttribute "FMaxPage"
  2421. quid        "36D4AA700198"
  2422. type        "Integer")
  2423.     (object ClassAttribute "FCopies"
  2424. quid        "36D4AA7001A2"
  2425. type        "Integer"))
  2426. module      "::Delphi Framework::Vcl::Dialogs"
  2427. quidu       "36D4AA67019F"
  2428. language    "Delphi")
  2429.     (object Class "TFindOption"
  2430. quid        "36D4AA7002A6"
  2431. stereotype  "Enum"
  2432. module      "::Delphi Framework::Vcl::Dialogs"
  2433. quidu       "36D4AA67019F"
  2434. language    "Delphi")
  2435.     (object Class "TFindOptions"
  2436. quid        "36D4AA7003C8"
  2437. stereotype  "Set"
  2438. module      "::Delphi Framework::Vcl::Dialogs"
  2439. quidu       "36D4AA67019F"
  2440. language    "Delphi")
  2441.     (object Class "TFindReplaceFunc"
  2442. quid        "36D4AA710103"
  2443. stereotype  "ProcType"
  2444. module      "::Delphi Framework::Vcl::Dialogs"
  2445. quidu       "36D4AA67019F"
  2446. language    "Delphi")
  2447.     (object Class "TFindDialog"
  2448. quid        "36D4AA710239"
  2449. superclasses  (list inheritance_relationship_list
  2450.     (object Inheritance_Relationship
  2451. quid        "36D4AA710366"
  2452. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2453. quidu       "36D4AA670389"))
  2454. operations  (list Operations
  2455.     (object Operation "GetFindText"
  2456. attributes  (list Attribute_Set
  2457.     (object Attribute
  2458. tool        "Delphi"
  2459. name        "Operation_Kind"
  2460. value       ("Operation_Kind_Enum" 2)))
  2461. quid        "36D4AA7200F0"
  2462. result      "string"
  2463. concurrency  "Sequential"
  2464. opExportControl  "Private"
  2465. uid         0)
  2466.     (object Operation "GetLeft"
  2467. attributes  (list Attribute_Set
  2468.     (object Attribute
  2469. tool        "Delphi"
  2470. name        "Operation_Kind"
  2471. value       ("Operation_Kind_Enum" 2)))
  2472. quid        "36D4AA720104"
  2473. result      "Integer"
  2474. concurrency  "Sequential"
  2475. opExportControl  "Private"
  2476. uid         0)
  2477.     (object Operation "GetPosition"
  2478. attributes  (list Attribute_Set
  2479.     (object Attribute
  2480. tool        "Delphi"
  2481. name        "Operation_Kind"
  2482. value       ("Operation_Kind_Enum" 2)))
  2483. quid        "36D4AA720118"
  2484. result      "TPoint"
  2485. concurrency  "Sequential"
  2486. opExportControl  "Private"
  2487. uid         0
  2488. quidu       "36D4A10E01D1")
  2489.     (object Operation "GetReplaceText"
  2490. attributes  (list Attribute_Set
  2491.     (object Attribute
  2492. tool        "Delphi"
  2493. name        "Operation_Kind"
  2494. value       ("Operation_Kind_Enum" 2)))
  2495. quid        "36D4AA720122"
  2496. result      "string"
  2497. concurrency  "Sequential"
  2498. opExportControl  "Private"
  2499. uid         0)
  2500.     (object Operation "GetTop"
  2501. attributes  (list Attribute_Set
  2502.     (object Attribute
  2503. tool        "Delphi"
  2504. name        "Operation_Kind"
  2505. value       ("Operation_Kind_Enum" 2)))
  2506. quid        "36D4AA720136"
  2507. result      "Integer"
  2508. concurrency  "Sequential"
  2509. opExportControl  "Private"
  2510. uid         0)
  2511.     (object Operation "SetFindText"
  2512. quid        "36D4AA720140"
  2513. parameters  (list Parameters
  2514.     (object Parameter "Value"
  2515. attributes  (list Attribute_Set
  2516.     (object Attribute
  2517. tool        "Delphi"
  2518. name        "Mode"
  2519. value       ("Mode_Enum" 2)))
  2520. quid        "3C4ACCCC0149"
  2521. type        "string"))
  2522. concurrency  "Sequential"
  2523. opExportControl  "Private"
  2524. uid         0)
  2525.     (object Operation "SetLeft"
  2526. quid        "36D4AA720154"
  2527. parameters  (list Parameters
  2528.     (object Parameter "Value"
  2529. quid        "3C4ACCCC014B"
  2530. type        "Integer"))
  2531. concurrency  "Sequential"
  2532. opExportControl  "Private"
  2533. uid         0)
  2534.     (object Operation "SetPosition"
  2535. quid        "36D4AA720168"
  2536. parameters  (list Parameters
  2537.     (object Parameter "Value"
  2538. attributes  (list Attribute_Set
  2539.     (object Attribute
  2540. tool        "Delphi"
  2541. name        "Mode"
  2542. value       ("Mode_Enum" 2)))
  2543. quid        "3C4ACCCC014D"
  2544. type        "TPoint"
  2545. quidu       "36D4A10E01D1"))
  2546. concurrency  "Sequential"
  2547. opExportControl  "Private"
  2548. uid         0)
  2549.     (object Operation "SetReplaceText"
  2550. quid        "36D4AA720172"
  2551. parameters  (list Parameters
  2552.     (object Parameter "Value"
  2553. attributes  (list Attribute_Set
  2554.     (object Attribute
  2555. tool        "Delphi"
  2556. name        "Mode"
  2557. value       ("Mode_Enum" 2)))
  2558. quid        "3C4ACCCC014F"
  2559. type        "string"))
  2560. concurrency  "Sequential"
  2561. opExportControl  "Private"
  2562. uid         0)
  2563.     (object Operation "SetTop"
  2564. quid        "36D4AA720186"
  2565. parameters  (list Parameters
  2566.     (object Parameter "Value"
  2567. quid        "3C4ACCCC0151"
  2568. type        "Integer"))
  2569. concurrency  "Sequential"
  2570. opExportControl  "Private"
  2571. uid         0)
  2572.     (object Operation "MessageHook"
  2573. attributes  (list Attribute_Set
  2574.     (object Attribute
  2575. tool        "Delphi"
  2576. name        "Operation_Kind"
  2577. value       ("Operation_Kind_Enum" 2))
  2578.     (object Attribute
  2579. tool        "Delphi"
  2580. name        "Operation_Binding"
  2581. value       ("Operation_Binding_Enum" 4)))
  2582. quid        "36D4AA7201AE"
  2583. parameters  (list Parameters
  2584.     (object Parameter "Msg"
  2585. attributes  (list Attribute_Set
  2586.     (object Attribute
  2587. tool        "Delphi"
  2588. name        "Mode"
  2589. value       ("Mode_Enum" 3)))
  2590. quid        "3C4ACCCC0153"
  2591. type        "TMessage"
  2592. quidu       "36D4A1BD034E"))
  2593. result      "Boolean"
  2594. concurrency  "Sequential"
  2595. opExportControl  "Protected"
  2596. uid         0)
  2597.     (object Operation "Find"
  2598. attributes  (list Attribute_Set
  2599.     (object Attribute
  2600. tool        "Delphi"
  2601. name        "Operation_Binding"
  2602. value       ("Operation_Binding_Enum" 3)))
  2603. quid        "36D4AA7201C3"
  2604. concurrency  "Sequential"
  2605. opExportControl  "Protected"
  2606. uid         0)
  2607.     (object Operation "Replace"
  2608. attributes  (list Attribute_Set
  2609.     (object Attribute
  2610. tool        "Delphi"
  2611. name        "Operation_Binding"
  2612. value       ("Operation_Binding_Enum" 3)))
  2613. quid        "36D4AA7201CD"
  2614. concurrency  "Sequential"
  2615. opExportControl  "Protected"
  2616. uid         0)
  2617.     (object Operation "Create"
  2618. attributes  (list Attribute_Set
  2619.     (object Attribute
  2620. tool        "Delphi"
  2621. name        "Operation_Kind"
  2622. value       ("Operation_Kind_Enum" 3))
  2623.     (object Attribute
  2624. tool        "Delphi"
  2625. name        "Operation_Binding"
  2626. value       ("Operation_Binding_Enum" 4)))
  2627. quid        "36D4AA7201D7"
  2628. parameters  (list Parameters
  2629.     (object Parameter "AOwner"
  2630. quid        "3C4ACCCC0157"
  2631. type        "TComponent"
  2632. quidu       "36D4A8B401A3"))
  2633. concurrency  "Sequential"
  2634. opExportControl  "Public"
  2635. uid         0)
  2636.     (object Operation "Destroy"
  2637. attributes  (list Attribute_Set
  2638.     (object Attribute
  2639. tool        "Delphi"
  2640. name        "Operation_Kind"
  2641. value       ("Operation_Kind_Enum" 4))
  2642.     (object Attribute
  2643. tool        "Delphi"
  2644. name        "Operation_Binding"
  2645. value       ("Operation_Binding_Enum" 4)))
  2646. quid        "36D4AA7201E1"
  2647. concurrency  "Sequential"
  2648. opExportControl  "Public"
  2649. uid         0)
  2650.     (object Operation "CloseDialog"
  2651. quid        "36D4AA7201EB"
  2652. concurrency  "Sequential"
  2653. opExportControl  "Public"
  2654. uid         0)
  2655.     (object Operation "Execute"
  2656. attributes  (list Attribute_Set
  2657.     (object Attribute
  2658. tool        "Delphi"
  2659. name        "Operation_Kind"
  2660. value       ("Operation_Kind_Enum" 2))
  2661.     (object Attribute
  2662. tool        "Delphi"
  2663. name        "Operation_Binding"
  2664. value       ("Operation_Binding_Enum" 4)))
  2665. quid        "36D4AA7201F5"
  2666. result      "Boolean"
  2667. concurrency  "Sequential"
  2668. opExportControl  "Public"
  2669. uid         0)
  2670.     (object Operation "ReplaceText"
  2671. attributes  (list Attribute_Set
  2672.     (object Attribute
  2673. tool        "Delphi"
  2674. name        "Property_Read"
  2675. value       "GetReplaceText")
  2676.     (object Attribute
  2677. tool        "Delphi"
  2678. name        "Property_Write"
  2679. value       "SetReplaceText"))
  2680. quid        "36D4AA720209"
  2681. stereotype  "Property"
  2682. result      "string"
  2683. concurrency  "Sequential"
  2684. opExportControl  "Private"
  2685. uid         0)
  2686.     (object Operation "OnReplace"
  2687. attributes  (list Attribute_Set
  2688.     (object Attribute
  2689. tool        "Delphi"
  2690. name        "Property_Read"
  2691. value       "FOnReplace")
  2692.     (object Attribute
  2693. tool        "Delphi"
  2694. name        "Property_Write"
  2695. value       "FOnReplace"))
  2696. quid        "36D4AA720213"
  2697. stereotype  "Property"
  2698. result      "TNotifyEvent"
  2699. concurrency  "Sequential"
  2700. opExportControl  "Private"
  2701. uid         0
  2702. quidu       "36D4A8B60214")
  2703.     (object Operation "Left"
  2704. attributes  (list Attribute_Set
  2705.     (object Attribute
  2706. tool        "Delphi"
  2707. name        "Property_Read"
  2708. value       "GetLeft")
  2709.     (object Attribute
  2710. tool        "Delphi"
  2711. name        "Property_Write"
  2712. value       "SetLeft"))
  2713. quid        "36D4AA72021D"
  2714. stereotype  "Property"
  2715. result      "Integer"
  2716. concurrency  "Sequential"
  2717. opExportControl  "Public"
  2718. uid         0)
  2719.     (object Operation "Position"
  2720. attributes  (list Attribute_Set
  2721.     (object Attribute
  2722. tool        "Delphi"
  2723. name        "Property_Read"
  2724. value       "GetPosition")
  2725.     (object Attribute
  2726. tool        "Delphi"
  2727. name        "Property_Write"
  2728. value       "SetPosition"))
  2729. quid        "36D4AA720231"
  2730. stereotype  "Property"
  2731. result      "TPoint"
  2732. concurrency  "Sequential"
  2733. opExportControl  "Public"
  2734. uid         0
  2735. quidu       "36D4A10E01D1")
  2736.     (object Operation "Top"
  2737. attributes  (list Attribute_Set
  2738.     (object Attribute
  2739. tool        "Delphi"
  2740. name        "Property_Read"
  2741. value       "GetTop")
  2742.     (object Attribute
  2743. tool        "Delphi"
  2744. name        "Property_Write"
  2745. value       "SetTop"))
  2746. quid        "36D4AA72023B"
  2747. stereotype  "Property"
  2748. result      "Integer"
  2749. concurrency  "Sequential"
  2750. opExportControl  "Public"
  2751. uid         0)
  2752.     (object Operation "FindText"
  2753. attributes  (list Attribute_Set
  2754.     (object Attribute
  2755. tool        "Delphi"
  2756. name        "Published"
  2757. value       TRUE)
  2758.     (object Attribute
  2759. tool        "Delphi"
  2760. name        "Property_Read"
  2761. value       "GetFindText")
  2762.     (object Attribute
  2763. tool        "Delphi"
  2764. name        "Property_Write"
  2765. value       "SetFindText"))
  2766. quid        "36D4AA720245"
  2767. stereotype  "Property"
  2768. result      "string"
  2769. concurrency  "Sequential"
  2770. opExportControl  "Public"
  2771. uid         0)
  2772.     (object Operation "Options"
  2773. attributes  (list Attribute_Set
  2774.     (object Attribute
  2775. tool        "Delphi"
  2776. name        "Published"
  2777. value       TRUE)
  2778.     (object Attribute
  2779. tool        "Delphi"
  2780. name        "Property_Read"
  2781. value       "FOptions")
  2782.     (object Attribute
  2783. tool        "Delphi"
  2784. name        "Property_Write"
  2785. value       "FOptions")
  2786.     (object Attribute
  2787. tool        "Delphi"
  2788. name        "Property_DefaultSpecifier"
  2789. value       ("Property_DefaultSpecifier_Enum" 2))
  2790.     (object Attribute
  2791. tool        "Delphi"
  2792. name        "Property_DefaultValue"
  2793. value       "[frDown]"))
  2794. quid        "36D4AA72024F"
  2795. stereotype  "Property"
  2796. result      "TFindOptions"
  2797. concurrency  "Sequential"
  2798. opExportControl  "Public"
  2799. uid         0
  2800. quidu       "36D4AA7003C8")
  2801.     (object Operation "OnFind"
  2802. attributes  (list Attribute_Set
  2803.     (object Attribute
  2804. tool        "Delphi"
  2805. name        "Published"
  2806. value       TRUE)
  2807.     (object Attribute
  2808. tool        "Delphi"
  2809. name        "Property_Read"
  2810. value       "FOnFind")
  2811.     (object Attribute
  2812. tool        "Delphi"
  2813. name        "Property_Write"
  2814. value       "FOnFind"))
  2815. quid        "36D4AA720263"
  2816. stereotype  "Property"
  2817. result      "TNotifyEvent"
  2818. concurrency  "Sequential"
  2819. opExportControl  "Public"
  2820. uid         0
  2821. quidu       "36D4A8B60214"))
  2822. class_attributes  (list class_attribute_list
  2823.     (object ClassAttribute "FFindText"
  2824. quid        "36D4AA710367"
  2825. type        "array[0..255] of Char")
  2826.     (object ClassAttribute "FReplaceText"
  2827. quid        "36D4AA71037A"
  2828. type        "array[0..255] of Char"))
  2829. module      "::Delphi Framework::Vcl::Dialogs"
  2830. quidu       "36D4AA67019F"
  2831. language    "Delphi")
  2832.     (object Class "TReplaceDialog"
  2833. quid        "36D4AA72026D"
  2834. superclasses  (list inheritance_relationship_list
  2835.     (object Inheritance_Relationship
  2836. quid        "36D4AA7203A3"
  2837. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  2838. quidu       "36D4AA710239"))
  2839. operations  (list Operations
  2840.     (object Operation "Create"
  2841. attributes  (list Attribute_Set
  2842.     (object Attribute
  2843. tool        "Delphi"
  2844. name        "Operation_Kind"
  2845. value       ("Operation_Kind_Enum" 3))
  2846.     (object Attribute
  2847. tool        "Delphi"
  2848. name        "Operation_Binding"
  2849. value       ("Operation_Binding_Enum" 4)))
  2850. quid        "36D4AA7203A4"
  2851. parameters  (list Parameters
  2852.     (object Parameter "AOwner"
  2853. quid        "3C4ACCCC0172"
  2854. type        "TComponent"
  2855. quidu       "36D4A8B401A3"))
  2856. concurrency  "Sequential"
  2857. opExportControl  "Public"
  2858. uid         0)
  2859.     (object Operation "ReplaceText"
  2860. attributes  (list Attribute_Set
  2861.     (object Attribute
  2862. tool        "Delphi"
  2863. name        "Published"
  2864. value       TRUE))
  2865. quid        "36D4AA7203B7"
  2866. stereotype  "Property"
  2867. concurrency  "Sequential"
  2868. opExportControl  "Public"
  2869. uid         0)
  2870.     (object Operation "OnReplace"
  2871. attributes  (list Attribute_Set
  2872.     (object Attribute
  2873. tool        "Delphi"
  2874. name        "Published"
  2875. value       TRUE))
  2876. quid        "36D4AA7203C1"
  2877. stereotype  "Property"
  2878. concurrency  "Sequential"
  2879. opExportControl  "Public"
  2880. uid         0))
  2881. module      "::Delphi Framework::Vcl::Dialogs"
  2882. quidu       "36D4AA67019F"
  2883. language    "Delphi")
  2884.     (object Class "TMsgDlgType"
  2885. quid        "36D4AA7203CB"
  2886. stereotype  "Enum"
  2887. module      "::Delphi Framework::Vcl::Dialogs"
  2888. quidu       "36D4AA67019F"
  2889. language    "Delphi")
  2890.     (object Class "TMsgDlgBtn"
  2891. quid        "36D4AA730110"
  2892. stereotype  "Enum"
  2893. module      "::Delphi Framework::Vcl::Dialogs"
  2894. quidu       "36D4AA67019F"
  2895. language    "Delphi")
  2896.     (object Class "TMsgDlgButtons"
  2897. quid        "36D4AA73023C"
  2898. stereotype  "Set"
  2899. module      "::Delphi Framework::Vcl::Dialogs"
  2900. quidu       "36D4AA67019F"
  2901. language    "Delphi")
  2902.     (object Association "$UNNAMED$11"
  2903. quid        "36D4AA680146"
  2904. roles       (list role_list
  2905.     (object Role "$UNNAMED$12"
  2906. quid        "36D4AA680147"
  2907. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2908. quidu       "36D4AA670389")
  2909.     (object Role "FHelpContext"
  2910. quid        "36D4AA680150"
  2911. label       "FHelpContext"
  2912. supplier    "Logical View::Delphi Framework::Classes::THelpContext"
  2913. quidu       "36D4A8BA021A"
  2914. exportControl  "Private"
  2915. is_navigable  TRUE)))
  2916.     (object Association "$UNNAMED$13"
  2917. quid        "36D4AA680178"
  2918. roles       (list role_list
  2919.     (object Role "$UNNAMED$14"
  2920. quid        "36D4AA680179"
  2921. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2922. quidu       "36D4AA670389")
  2923.     (object Role "FHandle"
  2924. quid        "36D4AA68017A"
  2925. label       "FHandle"
  2926. supplier    "Logical View::Delphi Framework::Windows::HWND"
  2927. quidu       "36D4A10E0299"
  2928. exportControl  "Private"
  2929. is_navigable  TRUE)))
  2930.     (object Association "$UNNAMED$15"
  2931. quid        "36D4AA6801A0"
  2932. roles       (list role_list
  2933.     (object Role "$UNNAMED$16"
  2934. quid        "36D4AA6801A1"
  2935. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2936. quidu       "36D4AA670389")
  2937.     (object Role "FOnClose"
  2938. quid        "36D4AA6801AA"
  2939. label       "FOnClose"
  2940. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  2941. quidu       "36D4A8B60214"
  2942. exportControl  "Private"
  2943. is_navigable  TRUE)))
  2944.     (object Association "$UNNAMED$17"
  2945. quid        "36D4AA6801C8"
  2946. roles       (list role_list
  2947.     (object Role "$UNNAMED$18"
  2948. quid        "36D4AA6801C9"
  2949. supplier    "Logical View::Delphi Framework::Dialogs::TCommonDialog"
  2950. quidu       "36D4AA670389")
  2951.     (object Role "FOnShow"
  2952. quid        "36D4AA6801D2"
  2953. label       "FOnShow"
  2954. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  2955. quidu       "36D4A8B60214"
  2956. exportControl  "Private"
  2957. is_navigable  TRUE)))
  2958.     (object Association "$UNNAMED$19"
  2959. quid        "36D4AA6A004E"
  2960. roles       (list role_list
  2961.     (object Role "$UNNAMED$20"
  2962. quid        "36D4AA6A004F"
  2963. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  2964. quidu       "36D4AA6902BA")
  2965.     (object Role "FHistoryList"
  2966. quid        "36D4AA6A0050"
  2967. label       "FHistoryList"
  2968. supplier    "Logical View::Delphi Framework::Classes::TStrings"
  2969. quidu       "36D4A8C10332"
  2970. exportControl  "Private"
  2971. is_navigable  TRUE)))
  2972.     (object Association "$UNNAMED$21"
  2973. quid        "36D4AA6A0077"
  2974. roles       (list role_list
  2975.     (object Role "$UNNAMED$22"
  2976. quid        "36D4AA6A0078"
  2977. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  2978. quidu       "36D4AA6902BA")
  2979.     (object Role "FOptions"
  2980. quid        "36D4AA6A0079"
  2981. label       "FOptions"
  2982. supplier    "Logical View::Delphi Framework::Dialogs::TOpenOptions"
  2983. quidu       "36D4AA690061"
  2984. exportControl  "Private"
  2985. is_navigable  TRUE)))
  2986.     (object Association "$UNNAMED$23"
  2987. quid        "36D4AA6A009F"
  2988. roles       (list role_list
  2989.     (object Role "$UNNAMED$24"
  2990. quid        "36D4AA6A00A0"
  2991. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  2992. quidu       "36D4AA6902BA")
  2993.     (object Role "FFileName"
  2994. quid        "36D4AA6A00A1"
  2995. label       "FFileName"
  2996. supplier    "Logical View::Delphi Framework::SysUtils::TFileName"
  2997. quidu       "36D4A103038D"
  2998. exportControl  "Private"
  2999. is_navigable  TRUE)))
  3000.     (object Association "$UNNAMED$25"
  3001. quid        "36D4AA6A00C7"
  3002. roles       (list role_list
  3003.     (object Role "$UNNAMED$26"
  3004. quid        "36D4AA6A00C8"
  3005. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  3006. quidu       "36D4AA6902BA")
  3007.     (object Role "FFiles"
  3008. quid        "36D4AA6A00C9"
  3009. label       "FFiles"
  3010. supplier    "Logical View::Delphi Framework::Classes::TStrings"
  3011. quidu       "36D4A8C10332"
  3012. exportControl  "Private"
  3013. is_navigable  TRUE)))
  3014.     (object Association "$UNNAMED$27"
  3015. quid        "36D4AA6A00EF"
  3016. roles       (list role_list
  3017.     (object Role "$UNNAMED$28"
  3018. quid        "36D4AA6A00F0"
  3019. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  3020. quidu       "36D4AA6902BA")
  3021.     (object Role "FFileEditStyle"
  3022. quid        "36D4AA6A00F9"
  3023. label       "FFileEditStyle"
  3024. supplier    "Logical View::Delphi Framework::Dialogs::TFileEditStyle"
  3025. quidu       "36D4AA690198"
  3026. exportControl  "Private"
  3027. is_navigable  TRUE)))
  3028.     (object Association "$UNNAMED$29"
  3029. quid        "36D4AA6A0117"
  3030. roles       (list role_list
  3031.     (object Role "$UNNAMED$30"
  3032. quid        "36D4AA6A0118"
  3033. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  3034. quidu       "36D4AA6902BA")
  3035.     (object Role "FOnSelectionChange"
  3036. quid        "36D4AA6A0121"
  3037. label       "FOnSelectionChange"
  3038. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  3039. quidu       "36D4A8B60214"
  3040. exportControl  "Private"
  3041. is_navigable  TRUE)))
  3042.     (object Association "$UNNAMED$31"
  3043. quid        "36D4AA6A013F"
  3044. roles       (list role_list
  3045.     (object Role "$UNNAMED$32"
  3046. quid        "36D4AA6A0140"
  3047. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  3048. quidu       "36D4AA6902BA")
  3049.     (object Role "FOnFolderChange"
  3050. quid        "36D4AA6A0149"
  3051. label       "FOnFolderChange"
  3052. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  3053. quidu       "36D4A8B60214"
  3054. exportControl  "Private"
  3055. is_navigable  TRUE)))
  3056.     (object Association "$UNNAMED$33"
  3057. quid        "36D4AA6A0171"
  3058. roles       (list role_list
  3059.     (object Role "$UNNAMED$34"
  3060. quid        "36D4AA6A0172"
  3061. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  3062. quidu       "36D4AA6902BA")
  3063.     (object Role "FOnTypeChange"
  3064. quid        "36D4AA6A0173"
  3065. label       "FOnTypeChange"
  3066. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  3067. quidu       "36D4A8B60214"
  3068. exportControl  "Private"
  3069. is_navigable  TRUE)))
  3070.     (object Association "$UNNAMED$35"
  3071. quid        "36D4AA6A02BB"
  3072. roles       (list role_list
  3073.     (object Role "$UNNAMED$36"
  3074. quid        "36D4AA6A02BC"
  3075. supplier    "Logical View::Delphi Framework::Dialogs::TOpenDialog"
  3076. quidu       "36D4AA6902BA")
  3077.     (object Role "FOnCanClose"
  3078. quid        "36D4AA6A02C5"
  3079. label       "FOnCanClose"
  3080. supplier    "Logical View::Delphi Framework::Forms::TCloseQueryEvent"
  3081. quidu       "36D4AA6A0199"
  3082. exportControl  "Private"
  3083. is_navigable  TRUE)))
  3084.     (object Association "$UNNAMED$37"
  3085. quid        "36D4AA6C02BE"
  3086. roles       (list role_list
  3087.     (object Role "$UNNAMED$38"
  3088. quid        "36D4AA6C02BF"
  3089. supplier    "Logical View::Delphi Framework::Dialogs::TColorDialog"
  3090. quidu       "36D4AA6C0188")
  3091.     (object Role "FColor"
  3092. quid        "36D4AA6C02C0"
  3093. label       "FColor"
  3094. supplier    "Logical View::Delphi Framework::Graphics::TColor"
  3095. quidu       "36D4A93701D4"
  3096. exportControl  "Private"
  3097. is_navigable  TRUE)))
  3098.     (object Association "$UNNAMED$39"
  3099. quid        "36D4AA6C02E6"
  3100. roles       (list role_list
  3101.     (object Role "$UNNAMED$40"
  3102. quid        "36D4AA6C02E7"
  3103. supplier    "Logical View::Delphi Framework::Dialogs::TColorDialog"
  3104. quidu       "36D4AA6C0188")
  3105.     (object Role "FOptions"
  3106. quid        "36D4AA6C02E8"
  3107. label       "FOptions"
  3108. supplier    "Logical View::Delphi Framework::Dialogs::TColorDialogOptions"
  3109. quidu       "36D4AA6B0317"
  3110. exportControl  "Private"
  3111. is_navigable  TRUE)))
  3112.     (object Association "$UNNAMED$41"
  3113. quid        "36D4AA6C030E"
  3114. roles       (list role_list
  3115.     (object Role "$UNNAMED$42"
  3116. quid        "36D4AA6C030F"
  3117. supplier    "Logical View::Delphi Framework::Dialogs::TColorDialog"
  3118. quidu       "36D4AA6C0188")
  3119.     (object Role "FCustomColors"
  3120. quid        "36D4AA6C0310"
  3121. label       "FCustomColors"
  3122. supplier    "Logical View::Delphi Framework::Classes::TStrings"
  3123. quidu       "36D4A8C10332"
  3124. exportControl  "Private"
  3125. is_navigable  TRUE)))
  3126.     (object Association "$UNNAMED$43"
  3127. quid        "36D4AA6E01D1"
  3128. roles       (list role_list
  3129.     (object Role "$UNNAMED$44"
  3130. quid        "36D4AA6E01D2"
  3131. supplier    "Logical View::Delphi Framework::Dialogs::TFontDialog"
  3132. quidu       "36D4AA6E0072")
  3133.     (object Role "FFont"
  3134. quid        "36D4AA6E01D3"
  3135. label       "FFont"
  3136. supplier    "Logical View::Delphi Framework::Graphics::TFont"
  3137. quidu       "36D4A8D20265"
  3138. exportControl  "Private"
  3139. is_navigable  TRUE)))
  3140.     (object Association "$UNNAMED$45"
  3141. quid        "36D4AA6E01F9"
  3142. roles       (list role_list
  3143.     (object Role "$UNNAMED$46"
  3144. quid        "36D4AA6E01FA"
  3145. supplier    "Logical View::Delphi Framework::Dialogs::TFontDialog"
  3146. quidu       "36D4AA6E0072")
  3147.     (object Role "FDevice"
  3148. quid        "36D4AA6E01FB"
  3149. label       "FDevice"
  3150. supplier    "Logical View::Delphi Framework::Dialogs::TFontDialogDevice"
  3151. quidu       "36D4AA6D020B"
  3152. exportControl  "Private"
  3153. is_navigable  TRUE)))
  3154.     (object Association "$UNNAMED$47"
  3155. quid        "36D4AA6E0221"
  3156. roles       (list role_list
  3157.     (object Role "$UNNAMED$48"
  3158. quid        "36D4AA6E0222"
  3159. supplier    "Logical View::Delphi Framework::Dialogs::TFontDialog"
  3160. quidu       "36D4AA6E0072")
  3161.     (object Role "FOptions"
  3162. quid        "36D4AA6E0223"
  3163. label       "FOptions"
  3164. supplier    "Logical View::Delphi Framework::Dialogs::TFontDialogOptions"
  3165. quidu       "36D4AA6D00E9"
  3166. exportControl  "Private"
  3167. is_navigable  TRUE)))
  3168.     (object Association "$UNNAMED$49"
  3169. quid        "36D4AA6E023F"
  3170. roles       (list role_list
  3171.     (object Role "$UNNAMED$50"
  3172. quid        "36D4AA6E0240"
  3173. supplier    "Logical View::Delphi Framework::Dialogs::TFontDialog"
  3174. quidu       "36D4AA6E0072")
  3175.     (object Role "FOnApply"
  3176. quid        "36D4AA6E0249"
  3177. label       "FOnApply"
  3178. supplier    "Logical View::Delphi Framework::Dialogs::TFDApplyEvent"
  3179. quidu       "36D4AA6D032E"
  3180. exportControl  "Private"
  3181. is_navigable  TRUE)))
  3182.     (object Association "$UNNAMED$51"
  3183. quid        "36D4AA7001AC"
  3184. roles       (list role_list
  3185.     (object Role "$UNNAMED$52"
  3186. quid        "36D4AA7001AD"
  3187. supplier    "Logical View::Delphi Framework::Dialogs::TPrintDialog"
  3188. quidu       "36D4AA70002F")
  3189.     (object Role "FOptions"
  3190. quid        "36D4AA7001B6"
  3191. label       "FOptions"
  3192. supplier    "Logical View::Delphi Framework::Dialogs::TPrintDialogOptions"
  3193. quidu       "36D4AA6F02EB"
  3194. exportControl  "Private"
  3195. is_navigable  TRUE)))
  3196.     (object Association "$UNNAMED$53"
  3197. quid        "36D4AA7001D4"
  3198. roles       (list role_list
  3199.     (object Role "$UNNAMED$54"
  3200. quid        "36D4AA7001D5"
  3201. supplier    "Logical View::Delphi Framework::Dialogs::TPrintDialog"
  3202. quidu       "36D4AA70002F")
  3203.     (object Role "FPrintRange"
  3204. quid        "36D4AA7001DE"
  3205. label       "FPrintRange"
  3206. supplier    "Logical View::Delphi Framework::Dialogs::TPrintRange"
  3207. quidu       "36D4AA6F0088"
  3208. exportControl  "Private"
  3209. is_navigable  TRUE)))
  3210.     (object Association "$UNNAMED$55"
  3211. quid        "36D4AA710384"
  3212. roles       (list role_list
  3213.     (object Role "$UNNAMED$56"
  3214. quid        "36D4AA710385"
  3215. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3216. quidu       "36D4AA710239")
  3217.     (object Role "FOptions"
  3218. quid        "36D4AA71038E"
  3219. label       "FOptions"
  3220. supplier    "Logical View::Delphi Framework::Dialogs::TFindOptions"
  3221. quidu       "36D4AA7003C8"
  3222. exportControl  "Private"
  3223. is_navigable  TRUE)))
  3224.     (object Association "$UNNAMED$57"
  3225. quid        "36D4AA7103AC"
  3226. roles       (list role_list
  3227.     (object Role "$UNNAMED$58"
  3228. quid        "36D4AA7103AD"
  3229. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3230. quidu       "36D4AA710239")
  3231.     (object Role "FPosition"
  3232. quid        "36D4AA7103B6"
  3233. label       "FPosition"
  3234. supplier    "Logical View::Delphi Framework::Windows::TPoint"
  3235. quidu       "36D4A10E01D1"
  3236. exportControl  "Private"
  3237. is_navigable  TRUE)))
  3238.     (object Association "$UNNAMED$59"
  3239. quid        "36D4AA7103DE"
  3240. roles       (list role_list
  3241.     (object Role "$UNNAMED$60"
  3242. quid        "36D4AA7103DF"
  3243. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3244. quidu       "36D4AA710239")
  3245.     (object Role "FFindReplaceFunc"
  3246. quid        "36D4AA7103E0"
  3247. label       "FFindReplaceFunc"
  3248. supplier    "Logical View::Delphi Framework::Dialogs::TFindReplaceFunc"
  3249. quidu       "36D4AA710103"
  3250. exportControl  "Private"
  3251. is_navigable  TRUE)))
  3252.     (object Association "$UNNAMED$61"
  3253. quid        "36D4AA72001E"
  3254. roles       (list role_list
  3255.     (object Role "$UNNAMED$62"
  3256. quid        "36D4AA72001F"
  3257. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3258. quidu       "36D4AA710239")
  3259.     (object Role "FRedirector"
  3260. quid        "36D4AA720020"
  3261. label       "FRedirector"
  3262. supplier    "Logical View::Delphi Framework::Controls::TWinControl"
  3263. quidu       "36D4A8C4003E"
  3264. exportControl  "Private"
  3265. is_navigable  TRUE)))
  3266.     (object Association "$UNNAMED$63"
  3267. quid        "36D4AA720046"
  3268. roles       (list role_list
  3269.     (object Role "$UNNAMED$64"
  3270. quid        "36D4AA720047"
  3271. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3272. quidu       "36D4AA710239")
  3273.     (object Role "FOnFind"
  3274. quid        "36D4AA720048"
  3275. label       "FOnFind"
  3276. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  3277. quidu       "36D4A8B60214"
  3278. exportControl  "Private"
  3279. is_navigable  TRUE)))
  3280.     (object Association "$UNNAMED$65"
  3281. quid        "36D4AA72006E"
  3282. roles       (list role_list
  3283.     (object Role "$UNNAMED$66"
  3284. quid        "36D4AA72006F"
  3285. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3286. quidu       "36D4AA710239")
  3287.     (object Role "FOnReplace"
  3288. quid        "36D4AA720078"
  3289. label       "FOnReplace"
  3290. supplier    "Logical View::Delphi Framework::Classes::TNotifyEvent"
  3291. quidu       "36D4A8B60214"
  3292. exportControl  "Private"
  3293. is_navigable  TRUE)))
  3294.     (object Association "$UNNAMED$67"
  3295. quid        "36D4AA7200A0"
  3296. roles       (list role_list
  3297.     (object Role "$UNNAMED$68"
  3298. quid        "36D4AA7200A1"
  3299. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3300. quidu       "36D4AA710239")
  3301.     (object Role "FFindHandle"
  3302. quid        "36D4AA7200A2"
  3303. label       "FFindHandle"
  3304. supplier    "Logical View::Delphi Framework::Windows::HWND"
  3305. quidu       "36D4A10E0299"
  3306. exportControl  "Private"
  3307. is_navigable  TRUE)))
  3308.     (object Association "$UNNAMED$69"
  3309. quid        "36D4AA7200C8"
  3310. roles       (list role_list
  3311.     (object Role "$UNNAMED$70"
  3312. quid        "36D4AA7200C9"
  3313. supplier    "Logical View::Delphi Framework::Dialogs::TFindDialog"
  3314. quidu       "36D4AA710239")
  3315.     (object Role "FFindReplace"
  3316. quid        "36D4AA7200D2"
  3317. label       "FFindReplace"
  3318. supplier    "::CommDlg::TFindReplace"
  3319. quidu       "36D4A1A0022A"
  3320. exportControl  "Private"
  3321. is_navigable  TRUE))))
  3322. logical_presentations  (list unit_reference_list))
  3323.     (object Class_Category "Graphics"
  3324. quid        "36D4A8D2002A"
  3325. stereotype  "Unit"
  3326. exportControl  "Public"
  3327. logical_models  (list unit_reference_list
  3328.     (object Class "IChangeNotifier"
  3329. attributes  (list Attribute_Set
  3330.     (object Attribute
  3331. tool        "Delphi"
  3332. name        "Kind"
  3333. value       ("Kind_Enum" 2)))
  3334. quid        "36D4A8D200DE"
  3335. stereotype  "Interface"
  3336. operations  (list Operations
  3337.     (object Operation "Changed"
  3338. quid        "36D4AACA03B4"
  3339. concurrency  "Sequential"
  3340. opExportControl  "Public"
  3341. uid         0))
  3342. module      "::Delphi Framework::Vcl::Graphics"
  3343. quidu       "36D4A8D1032B"
  3344. language    "Delphi")
  3345.     (object Class "TFont"
  3346. quid        "36D4A8D20265"
  3347. superclasses  (list inheritance_relationship_list
  3348.     (object Inheritance_Relationship
  3349. quid        "36D4A8D300B7"
  3350. supplier    "Logical View::Delphi Framework::Graphics::TGraphicsObject"
  3351. quidu       "36D4A8D2039B"))
  3352. operations  (list Operations
  3353.     (object Operation "GetData"
  3354. quid        "36D4AACB0030"
  3355. parameters  (list Parameters
  3356.     (object Parameter "FontData"
  3357. attributes  (list Attribute_Set
  3358.     (object Attribute
  3359. tool        "Delphi"
  3360. name        "Mode"
  3361. value       ("Mode_Enum" 3)))
  3362. quid        "3C4ACCCC0221"
  3363. type        "TFontData"
  3364. quidu       "36D4AAC800FE"))
  3365. concurrency  "Sequential"
  3366. opExportControl  "Private"
  3367. uid         0)
  3368.     (object Operation "SetData"
  3369. quid        "36D4AACB0044"
  3370. parameters  (list Parameters
  3371.     (object Parameter "FontData"
  3372. attributes  (list Attribute_Set
  3373.     (object Attribute
  3374. tool        "Delphi"
  3375. name        "Mode"
  3376. value       ("Mode_Enum" 2)))
  3377. quid        "3C4ACCCC0223"
  3378. type        "TFontData"
  3379. quidu       "36D4AAC800FE"))
  3380. concurrency  "Sequential"
  3381. opExportControl  "Private"
  3382. uid         0)
  3383.     (object Operation "Changed"
  3384. attributes  (list Attribute_Set
  3385.     (object Attribute
  3386. tool        "Delphi"
  3387. name        "Operation_Binding"
  3388. value       ("Operation_Binding_Enum" 4)))
  3389. quid        "36D4AACB004E"
  3390. concurrency  "Sequential"
  3391. opExportControl  "Protected"
  3392. uid         0)
  3393.     (object Operation "GetHandle"
  3394. attributes  (list Attribute_Set
  3395.     (object Attribute
  3396. tool        "Delphi"
  3397. name        "Operation_Kind"
  3398. value       ("Operation_Kind_Enum" 2)))
  3399. quid        "36D4AACB0058"
  3400. result      "HFont"
  3401. concurrency  "Sequential"
  3402. opExportControl  "Protected"
  3403. uid         0)
  3404.     (object Operation "GetHeight"
  3405. attributes  (list Attribute_Set
  3406.     (object Attribute
  3407. tool        "Delphi"
  3408. name        "Operation_Kind"
  3409. value       ("Operation_Kind_Enum" 2)))
  3410. quid        "36D4AACB008A"
  3411. result      "Integer"
  3412. concurrency  "Sequential"
  3413. opExportControl  "Protected"
  3414. uid         0)
  3415.     (object Operation "GetName"
  3416. attributes  (list Attribute_Set
  3417.     (object Attribute
  3418. tool        "Delphi"
  3419. name        "Operation_Kind"
  3420. value       ("Operation_Kind_Enum" 2)))
  3421. quid        "36D4AACB009E"
  3422. result      "TFontName"
  3423. concurrency  "Sequential"
  3424. opExportControl  "Protected"
  3425. uid         0
  3426. quidu       "36D4A9370397")
  3427.     (object Operation "GetPitch"
  3428. attributes  (list Attribute_Set
  3429.     (object Attribute
  3430. tool        "Delphi"
  3431. name        "Operation_Kind"
  3432. value       ("Operation_Kind_Enum" 2)))
  3433. quid        "36D4AACB00A8"
  3434. result      "TFontPitch"
  3435. concurrency  "Sequential"
  3436. opExportControl  "Protected"
  3437. uid         0
  3438. quidu       "36D4A93800D1")
  3439.     (object Operation "GetSize"
  3440. attributes  (list Attribute_Set
  3441.     (object Attribute
  3442. tool        "Delphi"
  3443. name        "Operation_Kind"
  3444. value       ("Operation_Kind_Enum" 2)))
  3445. quid        "36D4AACB00B2"
  3446. result      "Integer"
  3447. concurrency  "Sequential"
  3448. opExportControl  "Protected"
  3449. uid         0)
  3450.     (object Operation "GetStyle"
  3451. attributes  (list Attribute_Set
  3452.     (object Attribute
  3453. tool        "Delphi"
  3454. name        "Operation_Kind"
  3455. value       ("Operation_Kind_Enum" 2)))
  3456. quid        "36D4AACB00BC"
  3457. result      "TFontStyles"
  3458. concurrency  "Sequential"
  3459. opExportControl  "Protected"
  3460. uid         0
  3461. quidu       "36D4A9380208")
  3462.     (object Operation "GetCharset"
  3463. attributes  (list Attribute_Set
  3464.     (object Attribute
  3465. tool        "Delphi"
  3466. name        "Operation_Kind"
  3467. value       ("Operation_Kind_Enum" 2)))
  3468. quid        "36D4AACB00C6"
  3469. result      "TFontCharset"
  3470. concurrency  "Sequential"
  3471. opExportControl  "Protected"
  3472. uid         0
  3473. quidu       "36D4A93700BB")
  3474.     (object Operation "SetColor"
  3475. quid        "36D4AACB00D0"
  3476. parameters  (list Parameters
  3477.     (object Parameter "Value"
  3478. quid        "3C4ACCCC022D"
  3479. type        "TColor"
  3480. quidu       "36D4A93701D4"))
  3481. concurrency  "Sequential"
  3482. opExportControl  "Protected"
  3483. uid         0)
  3484.     (object Operation "SetHandle"
  3485. quid        "36D4AACB00DA"
  3486. parameters  (list Parameters
  3487.     (object Parameter "Value"
  3488. quid        "3C4ACCCC022F"
  3489. type        "HFont"))
  3490. concurrency  "Sequential"
  3491. opExportControl  "Protected"
  3492. uid         0)
  3493.     (object Operation "SetHeight"
  3494. quid        "36D4AACB00E5"
  3495. parameters  (list Parameters
  3496.     (object Parameter "Value"
  3497. quid        "3C4ACCCC0231"
  3498. type        "Integer"))
  3499. concurrency  "Sequential"
  3500. opExportControl  "Protected"
  3501. uid         0)
  3502.     (object Operation "SetName"
  3503. quid        "36D4AACB00F8"
  3504. parameters  (list Parameters
  3505.     (object Parameter "Value"
  3506. attributes  (list Attribute_Set
  3507.     (object Attribute
  3508. tool        "Delphi"
  3509. name        "Mode"
  3510. value       ("Mode_Enum" 2)))
  3511. quid        "3C4ACCCC0233"
  3512. type        "TFontName"
  3513. quidu       "36D4A9370397"))
  3514. concurrency  "Sequential"
  3515. opExportControl  "Protected"
  3516. uid         0)
  3517.     (object Operation "SetPitch"
  3518. quid        "36D4AACB0103"
  3519. parameters  (list Parameters
  3520.     (object Parameter "Value"
  3521. quid        "3C4ACCCC0235"
  3522. type        "TFontPitch"
  3523. quidu       "36D4A93800D1"))
  3524. concurrency  "Sequential"
  3525. opExportControl  "Protected"
  3526. uid         0)
  3527.     (object Operation "SetSize"
  3528. quid        "36D4AACB0116"
  3529. parameters  (list Parameters
  3530.     (object Parameter "Value"
  3531. quid        "3C4ACCCC0237"
  3532. type        "Integer"))
  3533. concurrency  "Sequential"
  3534. opExportControl  "Protected"
  3535. uid         0)
  3536.     (object Operation "SetStyle"
  3537. quid        "36D4AACB0120"
  3538. parameters  (list Parameters
  3539.     (object Parameter "Value"
  3540. quid        "3C4ACCCC0239"
  3541. type        "TFontStyles"
  3542. quidu       "36D4A9380208"))
  3543. concurrency  "Sequential"
  3544. opExportControl  "Protected"
  3545. uid         0)
  3546.     (object Operation "SetCharset"
  3547. quid        "36D4AACB012B"
  3548. parameters  (list Parameters
  3549.     (object Parameter "Value"
  3550. quid        "3C4ACCCC023B"
  3551. type        "TFontCharset"
  3552. quidu       "36D4A93700BB"))
  3553. concurrency  "Sequential"
  3554. opExportControl  "Protected"
  3555. uid         0)
  3556.     (object Operation "Create"
  3557. attributes  (list Attribute_Set
  3558.     (object Attribute
  3559. tool        "Delphi"
  3560. name        "Operation_Kind"
  3561. value       ("Operation_Kind_Enum" 3)))
  3562. quid        "36D4AACB0135"
  3563. concurrency  "Sequential"
  3564. opExportControl  "Public"
  3565. uid         0)
  3566.     (object Operation "Destroy"
  3567. attributes  (list Attribute_Set
  3568.     (object Attribute
  3569. tool        "Delphi"
  3570. name        "Operation_Kind"
  3571. value       ("Operation_Kind_Enum" 4))
  3572.     (object Attribute
  3573. tool        "Delphi"
  3574. name        "Operation_Binding"
  3575. value       ("Operation_Binding_Enum" 4)))
  3576. quid        "36D4AACB013E"
  3577. concurrency  "Sequential"
  3578. opExportControl  "Public"
  3579. uid         0)
  3580.     (object Operation "Assign"
  3581. attributes  (list Attribute_Set
  3582.     (object Attribute
  3583. tool        "Delphi"
  3584. name        "Operation_Binding"
  3585. value       ("Operation_Binding_Enum" 4)))
  3586. quid        "36D4AACB0148"
  3587. parameters  (list Parameters
  3588.     (object Parameter "Source"
  3589. quid        "3C4ACCCC023F"
  3590. type        "TPersistent"
  3591. quidu       "36D4A8B40316"))
  3592. concurrency  "Sequential"
  3593. opExportControl  "Public"
  3594. uid         0)
  3595.     (object Operation "FontAdapter"
  3596. attributes  (list Attribute_Set
  3597.     (object Attribute
  3598. tool        "Delphi"
  3599. name        "Property_Read"
  3600. value       "FNotify")
  3601.     (object Attribute
  3602. tool        "Delphi"
  3603. name        "Property_Write"
  3604. value       "FNotify"))
  3605. quid        "36D4AACB015C"
  3606. stereotype  "Property"
  3607. result      "IChangeNotifier"
  3608. concurrency  "Sequential"
  3609. opExportControl  "Public"
  3610. uid         0
  3611. quidu       "36D4A8D200DE")
  3612.     (object Operation "Handle"
  3613. attributes  (list Attribute_Set
  3614.     (object Attribute
  3615. tool        "Delphi"
  3616. name        "Property_Read"
  3617. value       "GetHandle")
  3618.     (object Attribute
  3619. tool        "Delphi"
  3620. name        "Property_Write"
  3621. value       "SetHandle"))
  3622. quid        "36D4AACB0166"
  3623. stereotype  "Property"
  3624. result      "HFont"
  3625. concurrency  "Sequential"
  3626. opExportControl  "Public"
  3627. uid         0)
  3628.     (object Operation "PixelsPerInch"
  3629. attributes  (list Attribute_Set
  3630.     (object Attribute
  3631. tool        "Delphi"
  3632. name        "Property_Read"
  3633. value       "FPixelsPerInch")
  3634.     (object Attribute
  3635. tool        "Delphi"
  3636. name        "Property_Write"
  3637. value       "FPixelsPerInch"))
  3638. quid        "36D4AACB0170"
  3639. stereotype  "Property"
  3640. result      "Integer"
  3641. concurrency  "Sequential"
  3642. opExportControl  "Public"
  3643. uid         0)
  3644.     (object Operation "Charset"
  3645. attributes  (list Attribute_Set
  3646.     (object Attribute
  3647. tool        "Delphi"
  3648. name        "Published"
  3649. value       TRUE)
  3650.     (object Attribute
  3651. tool        "Delphi"
  3652. name        "Property_Read"
  3653. value       "GetCharset")
  3654.     (object Attribute
  3655. tool        "Delphi"
  3656. name        "Property_Write"
  3657. value       "SetCharset"))
  3658. quid        "36D4AACB0184"
  3659. stereotype  "Property"
  3660. result      "TFontCharset"
  3661. concurrency  "Sequential"
  3662. opExportControl  "Public"
  3663. uid         0
  3664. quidu       "36D4A93700BB")
  3665.     (object Operation "Color"
  3666. attributes  (list Attribute_Set
  3667.     (object Attribute
  3668. tool        "Delphi"
  3669. name        "Published"
  3670. value       TRUE)
  3671.     (object Attribute
  3672. tool        "Delphi"
  3673. name        "Property_Read"
  3674. value       "FColor")
  3675.     (object Attribute
  3676. tool        "Delphi"
  3677. name        "Property_Write"
  3678. value       "SetColor"))
  3679. quid        "36D4AACB018E"
  3680. stereotype  "Property"
  3681. result      "TColor"
  3682. concurrency  "Sequential"
  3683. opExportControl  "Public"
  3684. uid         0
  3685. quidu       "36D4A93701D4")
  3686.     (object Operation "Height"
  3687. attributes  (list Attribute_Set
  3688.     (object Attribute
  3689. tool        "Delphi"
  3690. name        "Published"
  3691. value       TRUE)
  3692.     (object Attribute
  3693. tool        "Delphi"
  3694. name        "Property_Read"
  3695. value       "GetHeight")
  3696.     (object Attribute
  3697. tool        "Delphi"
  3698. name        "Property_Write"
  3699. value       "SetHeight"))
  3700. quid        "36D4AACB0198"
  3701. stereotype  "Property"
  3702. result      "Integer"
  3703. concurrency  "Sequential"
  3704. opExportControl  "Public"
  3705. uid         0)
  3706.     (object Operation "Name"
  3707. attributes  (list Attribute_Set
  3708.     (object Attribute
  3709. tool        "Delphi"
  3710. name        "Published"
  3711. value       TRUE)
  3712.     (object Attribute
  3713. tool        "Delphi"
  3714. name        "Property_Read"
  3715. value       "GetName")
  3716.     (object Attribute
  3717. tool        "Delphi"
  3718. name        "Property_Write"
  3719. value       "SetName"))
  3720. quid        "36D4AACB01A2"
  3721. stereotype  "Property"
  3722. result      "TFontName"
  3723. concurrency  "Sequential"
  3724. opExportControl  "Public"
  3725. uid         0
  3726. quidu       "36D4A9370397")
  3727.     (object Operation "Pitch"
  3728. attributes  (list Attribute_Set
  3729.     (object Attribute
  3730. tool        "Delphi"
  3731. name        "Published"
  3732. value       TRUE)
  3733.     (object Attribute
  3734. tool        "Delphi"
  3735. name        "Property_Read"
  3736. value       "GetPitch")
  3737.     (object Attribute
  3738. tool        "Delphi"
  3739. name        "Property_Write"
  3740. value       "SetPitch")
  3741.     (object Attribute
  3742. tool        "Delphi"
  3743. name        "Property_DefaultSpecifier"
  3744. value       ("Property_DefaultSpecifier_Enum" 2))
  3745.     (object Attribute
  3746. tool        "Delphi"
  3747. name        "Property_DefaultValue"
  3748. value       "fpDefault"))
  3749. quid        "36D4AACB01B6"
  3750. stereotype  "Property"
  3751. result      "TFontPitch"
  3752. concurrency  "Sequential"
  3753. opExportControl  "Public"
  3754. uid         0
  3755. quidu       "36D4A93800D1")
  3756.     (object Operation "Size"
  3757. attributes  (list Attribute_Set
  3758.     (object Attribute
  3759. tool        "Delphi"
  3760. name        "Published"
  3761. value       TRUE)
  3762.     (object Attribute
  3763. tool        "Delphi"
  3764. name        "Property_Read"
  3765. value       "GetSize")
  3766.     (object Attribute
  3767. tool        "Delphi"
  3768. name        "Property_Write"
  3769. value       "SetSize")
  3770.     (object Attribute
  3771. tool        "Delphi"
  3772. name        "Property_Stored"
  3773. value       "False"))
  3774. quid        "36D4AACB01C1"
  3775. stereotype  "Property"
  3776. result      "Integer"
  3777. concurrency  "Sequential"
  3778. opExportControl  "Public"
  3779. uid         0)
  3780.     (object Operation "Style"
  3781. attributes  (list Attribute_Set
  3782.     (object Attribute
  3783. tool        "Delphi"
  3784. name        "Published"
  3785. value       TRUE)
  3786.     (object Attribute
  3787. tool        "Delphi"
  3788. name        "Property_Read"
  3789. value       "GetStyle")
  3790.     (object Attribute
  3791. tool        "Delphi"
  3792. name        "Property_Write"
  3793. value       "SetStyle"))
  3794. quid        "36D4AACB01CB"
  3795. stereotype  "Property"
  3796. result      "TFontStyles"
  3797. concurrency  "Sequential"
  3798. opExportControl  "Public"
  3799. uid         0
  3800. quidu       "36D4A9380208"))
  3801. class_attributes  (list class_attribute_list
  3802.     (object ClassAttribute "FPixelsPerInch"
  3803. quid        "36D4AACA03BE"
  3804. type        "Integer"))
  3805. module      "::Delphi Framework::Vcl::Graphics"
  3806. quidu       "36D4A8D1032B"
  3807. language    "Delphi")
  3808.     (object Class "TGraphicsObject"
  3809. quid        "36D4A8D2039B"
  3810. superclasses  (list inheritance_relationship_list
  3811.     (object Inheritance_Relationship
  3812. quid        "36D4A8D300AD"
  3813. supplier    "Logical View::Delphi Framework::Classes::TPersistent"
  3814. quidu       "36D4A8B40316"))
  3815. operations  (list Operations
  3816.     (object Operation "Changed"
  3817. attributes  (list Attribute_Set
  3818.     (object Attribute
  3819. tool        "Delphi"
  3820. name        "Operation_Binding"
  3821. value       ("Operation_Binding_Enum" 3)))
  3822. quid        "36D4AACA035A"
  3823. concurrency  "Sequential"
  3824. opExportControl  "Protected"
  3825. uid         0)
  3826.     (object Operation "Lock"
  3827. quid        "36D4AACA036E"
  3828. concurrency  "Sequential"
  3829. opExportControl  "Protected"
  3830. uid         0)
  3831.     (object Operation "Unlock"
  3832. quid        "36D4AACA0378"
  3833. concurrency  "Sequential"
  3834. opExportControl  "Protected"
  3835. uid         0)
  3836.     (object Operation "OnChange"
  3837. attributes  (list Attribute_Set
  3838.     (object Attribute
  3839. tool        "Delphi"
  3840. name        "Property_Read"