effectselector.lfm 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649
  1. object EffectSelectorForm: TEffectSelectorForm
  2. Left = 306
  3. Height = 331
  4. Top = 178
  5. Width = 393
  6. Caption = 'Effect'
  7. ClientHeight = 331
  8. ClientWidth = 393
  9. OnCreate = FormCreate
  10. OnHide = FormHide
  11. LCLVersion = '2.0.0.4'
  12. object EffectPageControl: TPageControl
  13. Left = 0
  14. Height = 281
  15. Top = 0
  16. Width = 393
  17. ActivePage = HpMpTpTabSheet
  18. Align = alClient
  19. TabIndex = 0
  20. TabOrder = 0
  21. object HpMpTpTabSheet: TTabSheet
  22. Caption = 'HP/MP/TP'
  23. ClientHeight = 249
  24. ClientWidth = 389
  25. object RecoverHpRadioButton: TRadioButton
  26. AnchorSideTop.Control = RecoverHpPercentageSpinEdit
  27. AnchorSideTop.Side = asrCenter
  28. Left = 8
  29. Height = 22
  30. Top = 11
  31. Width = 104
  32. Caption = 'Recover HP'
  33. OnChange = RecoverHpRadioButtonChange
  34. TabOrder = 0
  35. end
  36. object RecoverHpPercentageSpinEdit: TSpinEdit
  37. AnchorSideRight.Control = RecoverHpPercentLabel
  38. Left = 224
  39. Height = 28
  40. Top = 8
  41. Width = 140
  42. Anchors = [akTop, akLeft, akRight]
  43. BorderSpacing.Right = 2
  44. Enabled = False
  45. MinValue = -100
  46. TabOrder = 1
  47. Value = 100
  48. end
  49. object RecoverHpPercentLabel: TLabel
  50. AnchorSideTop.Control = RecoverHpPercentageSpinEdit
  51. AnchorSideTop.Side = asrCenter
  52. Left = 366
  53. Height = 18
  54. Top = 13
  55. Width = 13
  56. Anchors = [akTop, akRight]
  57. Caption = '%'
  58. ParentColor = False
  59. end
  60. object RecoverHpConstSpinEdit: TSpinEdit
  61. AnchorSideLeft.Control = RecoverHpPercentageSpinEdit
  62. AnchorSideTop.Control = RecoverHpPercentageSpinEdit
  63. AnchorSideTop.Side = asrBottom
  64. AnchorSideRight.Control = RecoverHpPercentLabel
  65. AnchorSideRight.Side = asrBottom
  66. Left = 224
  67. Height = 28
  68. Top = 40
  69. Width = 155
  70. Anchors = [akTop, akLeft, akRight]
  71. BorderSpacing.Top = 4
  72. Enabled = False
  73. MaxValue = 9999
  74. MinValue = -9999
  75. TabOrder = 2
  76. end
  77. object RecoverMpPercentageSpinEdit: TSpinEdit
  78. AnchorSideLeft.Control = RecoverHpPercentageSpinEdit
  79. AnchorSideTop.Control = RecoverHpConstSpinEdit
  80. AnchorSideTop.Side = asrBottom
  81. AnchorSideRight.Control = RecoverHpPercentLabel
  82. Left = 224
  83. Height = 28
  84. Top = 84
  85. Width = 140
  86. Anchors = [akTop, akLeft, akRight]
  87. BorderSpacing.Top = 16
  88. BorderSpacing.Right = 2
  89. Enabled = False
  90. MinValue = -100
  91. TabOrder = 4
  92. Value = 100
  93. end
  94. object RecoverMpPercentLabel: TLabel
  95. AnchorSideTop.Control = RecoverMpPercentageSpinEdit
  96. AnchorSideTop.Side = asrCenter
  97. AnchorSideRight.Control = RecoverHpPercentLabel
  98. AnchorSideRight.Side = asrBottom
  99. Left = 366
  100. Height = 18
  101. Top = 89
  102. Width = 13
  103. Anchors = [akTop, akRight]
  104. Caption = '%'
  105. ParentColor = False
  106. end
  107. object RecoverMpRadioButton: TRadioButton
  108. AnchorSideLeft.Control = RecoverHpRadioButton
  109. AnchorSideTop.Control = RecoverMpPercentageSpinEdit
  110. AnchorSideTop.Side = asrCenter
  111. Left = 8
  112. Height = 22
  113. Top = 87
  114. Width = 105
  115. Caption = 'Recover MP'
  116. OnChange = RecoverMpRadioButtonChange
  117. TabOrder = 3
  118. end
  119. object RecoverMpConstSpinEdit: TSpinEdit
  120. AnchorSideLeft.Control = RecoverMpPercentageSpinEdit
  121. AnchorSideTop.Control = RecoverMpPercentageSpinEdit
  122. AnchorSideTop.Side = asrBottom
  123. AnchorSideRight.Control = RecoverMpPercentLabel
  124. AnchorSideRight.Side = asrBottom
  125. Left = 224
  126. Height = 28
  127. Top = 116
  128. Width = 155
  129. Anchors = [akTop, akLeft, akRight]
  130. BorderSpacing.Top = 4
  131. Enabled = False
  132. MaxValue = 9999
  133. MinValue = -9999
  134. TabOrder = 5
  135. end
  136. object RecoverHpPlusLabel: TLabel
  137. AnchorSideTop.Control = RecoverHpConstSpinEdit
  138. AnchorSideTop.Side = asrCenter
  139. AnchorSideRight.Control = RecoverHpConstSpinEdit
  140. Left = 213
  141. Height = 18
  142. Top = 45
  143. Width = 9
  144. Anchors = [akTop, akRight]
  145. BorderSpacing.Right = 2
  146. Caption = '+'
  147. ParentColor = False
  148. end
  149. object RecoverMpPlusLabel: TLabel
  150. AnchorSideTop.Control = RecoverMpConstSpinEdit
  151. AnchorSideTop.Side = asrCenter
  152. AnchorSideRight.Control = RecoverMpConstSpinEdit
  153. Left = 213
  154. Height = 18
  155. Top = 121
  156. Width = 9
  157. Anchors = [akTop, akRight]
  158. BorderSpacing.Right = 2
  159. Caption = '+'
  160. ParentColor = False
  161. end
  162. object GainTpSpinEdit: TSpinEdit
  163. AnchorSideLeft.Control = RecoverMpConstSpinEdit
  164. AnchorSideTop.Control = RecoverMpConstSpinEdit
  165. AnchorSideTop.Side = asrBottom
  166. AnchorSideRight.Control = RecoverMpConstSpinEdit
  167. AnchorSideRight.Side = asrBottom
  168. Left = 224
  169. Height = 28
  170. Top = 160
  171. Width = 155
  172. Anchors = [akTop, akLeft, akRight]
  173. BorderSpacing.Top = 16
  174. Enabled = False
  175. TabOrder = 7
  176. end
  177. object GainTpRadioButton: TRadioButton
  178. AnchorSideLeft.Control = RecoverMpRadioButton
  179. AnchorSideTop.Control = GainTpSpinEdit
  180. AnchorSideTop.Side = asrCenter
  181. Left = 8
  182. Height = 22
  183. Top = 163
  184. Width = 78
  185. Caption = 'Gain TP'
  186. OnChange = GainTpRadioButtonChange
  187. TabOrder = 6
  188. end
  189. object DummyHpMpTpRadioButton: TRadioButton
  190. Left = 43
  191. Height = 22
  192. Top = 51
  193. Width = 22
  194. Checked = True
  195. TabOrder = 8
  196. TabStop = True
  197. end
  198. end
  199. object StateTabSheet: TTabSheet
  200. Caption = 'State'
  201. ClientHeight = 249
  202. ClientWidth = 389
  203. object AddStateComboBox: TComboBox
  204. Left = 200
  205. Height = 23
  206. Top = 8
  207. Width = 176
  208. Anchors = [akTop, akLeft, akRight]
  209. Enabled = False
  210. ItemHeight = 0
  211. Style = csDropDownList
  212. TabOrder = 1
  213. end
  214. object AddStateRadioButton: TRadioButton
  215. AnchorSideTop.Control = AddStateComboBox
  216. AnchorSideTop.Side = asrCenter
  217. Left = 8
  218. Height = 19
  219. Top = 10
  220. Width = 70
  221. Caption = 'Add state'
  222. OnChange = AddStateRadioButtonChange
  223. TabOrder = 0
  224. end
  225. object AddStatePercentLabel: TLabel
  226. AnchorSideTop.Control = AddStateRateSpinEdit
  227. AnchorSideTop.Side = asrCenter
  228. AnchorSideRight.Control = AddStateComboBox
  229. AnchorSideRight.Side = asrBottom
  230. Left = 366
  231. Height = 15
  232. Top = 39
  233. Width = 10
  234. Anchors = [akTop, akRight]
  235. Caption = '%'
  236. ParentColor = False
  237. end
  238. object AddStateRateSpinEdit: TSpinEdit
  239. AnchorSideLeft.Control = AddStateComboBox
  240. AnchorSideTop.Control = AddStateComboBox
  241. AnchorSideTop.Side = asrBottom
  242. AnchorSideRight.Control = AddStatePercentLabel
  243. Left = 200
  244. Height = 23
  245. Top = 35
  246. Width = 164
  247. Anchors = [akTop, akLeft, akRight]
  248. BorderSpacing.Top = 4
  249. BorderSpacing.Right = 2
  250. Enabled = False
  251. TabOrder = 2
  252. Value = 100
  253. end
  254. object RemoveStateComboBox: TComboBox
  255. AnchorSideLeft.Control = AddStateRateSpinEdit
  256. AnchorSideTop.Control = AddStateRateSpinEdit
  257. AnchorSideTop.Side = asrBottom
  258. AnchorSideRight.Control = AddStatePercentLabel
  259. AnchorSideRight.Side = asrBottom
  260. Left = 200
  261. Height = 23
  262. Top = 74
  263. Width = 176
  264. Anchors = [akTop, akLeft, akRight]
  265. BorderSpacing.Top = 16
  266. Enabled = False
  267. ItemHeight = 0
  268. Style = csDropDownList
  269. TabOrder = 4
  270. end
  271. object RemoveStateRadioButton: TRadioButton
  272. AnchorSideLeft.Control = AddStateRadioButton
  273. AnchorSideTop.Control = RemoveStateComboBox
  274. AnchorSideTop.Side = asrCenter
  275. Left = 8
  276. Height = 19
  277. Top = 76
  278. Width = 91
  279. Caption = 'Remove state'
  280. OnChange = RemoveStateRadioButtonChange
  281. TabOrder = 3
  282. end
  283. object RemoveStatePercentLabel: TLabel
  284. AnchorSideTop.Control = RemoveStateRateSpinEdit
  285. AnchorSideTop.Side = asrCenter
  286. AnchorSideRight.Control = RemoveStateComboBox
  287. AnchorSideRight.Side = asrBottom
  288. Left = 366
  289. Height = 15
  290. Top = 105
  291. Width = 10
  292. Anchors = [akTop, akRight]
  293. Caption = '%'
  294. ParentColor = False
  295. end
  296. object RemoveStateRateSpinEdit: TSpinEdit
  297. AnchorSideLeft.Control = RemoveStateComboBox
  298. AnchorSideTop.Control = RemoveStateComboBox
  299. AnchorSideTop.Side = asrBottom
  300. AnchorSideRight.Control = RemoveStatePercentLabel
  301. Left = 200
  302. Height = 23
  303. Top = 101
  304. Width = 164
  305. Anchors = [akTop, akLeft, akRight]
  306. BorderSpacing.Top = 4
  307. BorderSpacing.Right = 2
  308. Enabled = False
  309. TabOrder = 5
  310. Value = 100
  311. end
  312. object DummyStateRadioButton: TRadioButton
  313. Left = 42
  314. Height = 19
  315. Top = 56
  316. Width = 20
  317. Checked = True
  318. TabOrder = 6
  319. TabStop = True
  320. end
  321. end
  322. object ParamTabSheet: TTabSheet
  323. Caption = 'Buffs/debuffs'
  324. ClientHeight = 249
  325. ClientWidth = 389
  326. object AddBuffComboBox: TComboBox
  327. Left = 200
  328. Height = 23
  329. Top = 8
  330. Width = 176
  331. Anchors = [akTop, akLeft, akRight]
  332. Enabled = False
  333. ItemHeight = 0
  334. Style = csDropDownList
  335. TabOrder = 1
  336. end
  337. object AddBuffRadioButton: TRadioButton
  338. AnchorSideTop.Control = AddBuffComboBox
  339. AnchorSideTop.Side = asrCenter
  340. Left = 8
  341. Height = 19
  342. Top = 10
  343. Width = 67
  344. Caption = 'Add buff'
  345. OnChange = AddBuffRadioButtonChange
  346. TabOrder = 0
  347. end
  348. object AddBuffTurnsLabel: TLabel
  349. AnchorSideRight.Control = AddBuffComboBox
  350. AnchorSideRight.Side = asrBottom
  351. Left = 346
  352. Height = 15
  353. Top = 48
  354. Width = 30
  355. Anchors = [akTop, akRight]
  356. BorderSpacing.Left = 2
  357. Caption = ' turns'
  358. ParentColor = False
  359. end
  360. object AddBuffTurnsSpinEdit: TSpinEdit
  361. AnchorSideLeft.Control = AddBuffComboBox
  362. AnchorSideTop.Control = AddBuffComboBox
  363. AnchorSideTop.Side = asrBottom
  364. AnchorSideRight.Control = AddBuffTurnsLabel
  365. Left = 200
  366. Height = 23
  367. Top = 35
  368. Width = 144
  369. Anchors = [akTop, akLeft, akRight]
  370. BorderSpacing.Top = 4
  371. BorderSpacing.Right = 2
  372. Enabled = False
  373. MaxValue = 1000
  374. TabOrder = 2
  375. Value = 5
  376. end
  377. object AddDebuffComboBox: TComboBox
  378. AnchorSideLeft.Control = AddBuffComboBox
  379. AnchorSideTop.Control = AddBuffTurnsSpinEdit
  380. AnchorSideTop.Side = asrBottom
  381. AnchorSideRight.Control = AddBuffComboBox
  382. AnchorSideRight.Side = asrBottom
  383. Left = 200
  384. Height = 23
  385. Top = 74
  386. Width = 176
  387. Anchors = [akTop, akLeft, akRight]
  388. BorderSpacing.Top = 16
  389. Enabled = False
  390. ItemHeight = 0
  391. Style = csDropDownList
  392. TabOrder = 4
  393. end
  394. object AddDebuffRadioButton: TRadioButton
  395. AnchorSideLeft.Control = AddBuffRadioButton
  396. AnchorSideTop.Control = AddDebuffComboBox
  397. AnchorSideTop.Side = asrCenter
  398. Left = 8
  399. Height = 19
  400. Top = 76
  401. Width = 80
  402. Caption = 'Add debuff'
  403. OnChange = AddDebuffRadioButtonChange
  404. TabOrder = 3
  405. end
  406. object AddDebuffTurnsLabel: TLabel
  407. AnchorSideTop.Control = AddDebuffTurnsSpinEdit
  408. AnchorSideTop.Side = asrCenter
  409. AnchorSideRight.Control = AddDebuffComboBox
  410. AnchorSideRight.Side = asrBottom
  411. Left = 346
  412. Height = 15
  413. Top = 105
  414. Width = 30
  415. Anchors = [akTop, akRight]
  416. BorderSpacing.Left = 2
  417. Caption = ' turns'
  418. ParentColor = False
  419. end
  420. object AddDebuffTurnsSpinEdit: TSpinEdit
  421. AnchorSideLeft.Control = AddDebuffComboBox
  422. AnchorSideTop.Control = AddDebuffComboBox
  423. AnchorSideTop.Side = asrBottom
  424. AnchorSideRight.Control = AddDebuffTurnsLabel
  425. Left = 200
  426. Height = 23
  427. Top = 101
  428. Width = 144
  429. Anchors = [akTop, akLeft, akRight]
  430. BorderSpacing.Top = 4
  431. Enabled = False
  432. MaxValue = 1000
  433. TabOrder = 5
  434. Value = 5
  435. end
  436. object RemoveBuffComboBox: TComboBox
  437. AnchorSideLeft.Control = AddDebuffComboBox
  438. AnchorSideTop.Control = AddDebuffTurnsSpinEdit
  439. AnchorSideTop.Side = asrBottom
  440. AnchorSideRight.Control = AddDebuffComboBox
  441. AnchorSideRight.Side = asrBottom
  442. Left = 200
  443. Height = 23
  444. Top = 140
  445. Width = 176
  446. Anchors = [akTop, akLeft, akRight]
  447. BorderSpacing.Top = 16
  448. Enabled = False
  449. ItemHeight = 0
  450. Style = csDropDownList
  451. TabOrder = 7
  452. end
  453. object RemoveBuffRadioButton: TRadioButton
  454. AnchorSideLeft.Control = AddDebuffRadioButton
  455. AnchorSideTop.Control = RemoveBuffComboBox
  456. AnchorSideTop.Side = asrCenter
  457. Left = 8
  458. Height = 19
  459. Top = 142
  460. Width = 88
  461. Caption = 'Remove buff'
  462. OnChange = RemoveBuffRadioButtonChange
  463. TabOrder = 6
  464. end
  465. object RemoveDebuffRadioButton: TRadioButton
  466. AnchorSideLeft.Control = RemoveBuffRadioButton
  467. AnchorSideTop.Control = RemoveDebuffComboBox
  468. AnchorSideTop.Side = asrCenter
  469. Left = 8
  470. Height = 19
  471. Top = 181
  472. Width = 101
  473. Caption = 'Remove debuff'
  474. OnChange = RemoveDebuffRadioButtonChange
  475. TabOrder = 8
  476. end
  477. object RemoveDebuffComboBox: TComboBox
  478. AnchorSideLeft.Control = RemoveBuffComboBox
  479. AnchorSideTop.Control = RemoveBuffComboBox
  480. AnchorSideTop.Side = asrBottom
  481. AnchorSideRight.Control = RemoveBuffComboBox
  482. AnchorSideRight.Side = asrBottom
  483. Left = 200
  484. Height = 23
  485. Top = 179
  486. Width = 176
  487. Anchors = [akTop, akLeft, akRight]
  488. BorderSpacing.Top = 16
  489. Enabled = False
  490. ItemHeight = 0
  491. Style = csDropDownList
  492. TabOrder = 9
  493. end
  494. object DummyBuffsDebuffsRadioButton: TRadioButton
  495. Left = 36
  496. Height = 19
  497. Top = 62
  498. Width = 20
  499. Checked = True
  500. TabOrder = 10
  501. TabStop = True
  502. end
  503. end
  504. object OtherTabSheet: TTabSheet
  505. Caption = 'Other'
  506. ClientHeight = 249
  507. ClientWidth = 389
  508. object SpecialEscapeRadioButton: TRadioButton
  509. Left = 8
  510. Height = 22
  511. Top = 8
  512. Width = 234
  513. Caption = 'Escape from battle (for enemies)'
  514. OnChange = SpecialEscapeRadioButtonChange
  515. TabOrder = 0
  516. end
  517. object IncreaseParameterRadioButton: TRadioButton
  518. AnchorSideLeft.Control = SpecialEscapeRadioButton
  519. AnchorSideTop.Control = IncreaseParamComboBox
  520. AnchorSideTop.Side = asrCenter
  521. Left = 8
  522. Height = 22
  523. Top = 50
  524. Width = 150
  525. Caption = 'Increase parameter'
  526. OnChange = IncreaseParameterRadioButtonChange
  527. TabOrder = 1
  528. end
  529. object IncreaseParamComboBox: TComboBox
  530. AnchorSideTop.Control = SpecialEscapeRadioButton
  531. AnchorSideTop.Side = asrBottom
  532. Left = 208
  533. Height = 30
  534. Top = 46
  535. Width = 172
  536. Anchors = [akTop, akLeft, akRight]
  537. BorderSpacing.Top = 16
  538. Enabled = False
  539. ItemHeight = 0
  540. Style = csDropDownList
  541. TabOrder = 2
  542. end
  543. object IncreaseParamSpinEdit: TSpinEdit
  544. AnchorSideLeft.Control = IncreaseParamComboBox
  545. AnchorSideTop.Control = IncreaseParamComboBox
  546. AnchorSideTop.Side = asrBottom
  547. AnchorSideRight.Control = IncreaseParamComboBox
  548. AnchorSideRight.Side = asrBottom
  549. Left = 208
  550. Height = 28
  551. Top = 80
  552. Width = 172
  553. Anchors = [akTop, akLeft, akRight]
  554. BorderSpacing.Top = 4
  555. Enabled = False
  556. MaxValue = 1000
  557. MinValue = 1
  558. TabOrder = 3
  559. Value = 1
  560. end
  561. object LearnSkillComboBox: TComboBox
  562. AnchorSideLeft.Control = IncreaseParamSpinEdit
  563. AnchorSideTop.Control = IncreaseParamSpinEdit
  564. AnchorSideTop.Side = asrBottom
  565. AnchorSideRight.Control = IncreaseParamSpinEdit
  566. AnchorSideRight.Side = asrBottom
  567. Left = 208
  568. Height = 30
  569. Top = 124
  570. Width = 172
  571. Anchors = [akTop, akLeft, akRight]
  572. BorderSpacing.Top = 16
  573. Enabled = False
  574. ItemHeight = 0
  575. Style = csDropDownList
  576. TabOrder = 5
  577. end
  578. object CommonEventComboBox: TComboBox
  579. AnchorSideLeft.Control = LearnSkillComboBox
  580. AnchorSideTop.Control = LearnSkillComboBox
  581. AnchorSideTop.Side = asrBottom
  582. AnchorSideRight.Control = LearnSkillComboBox
  583. AnchorSideRight.Side = asrBottom
  584. Left = 208
  585. Height = 30
  586. Top = 170
  587. Width = 172
  588. Anchors = [akTop, akLeft, akRight]
  589. BorderSpacing.Top = 16
  590. Enabled = False
  591. ItemHeight = 0
  592. Style = csDropDownList
  593. TabOrder = 7
  594. end
  595. object LearnSkillRadioButton: TRadioButton
  596. AnchorSideLeft.Control = IncreaseParameterRadioButton
  597. AnchorSideTop.Control = LearnSkillComboBox
  598. AnchorSideTop.Side = asrCenter
  599. Left = 8
  600. Height = 22
  601. Top = 128
  602. Width = 89
  603. Caption = 'Learn skill'
  604. OnChange = LearnSkillRadioButtonChange
  605. TabOrder = 4
  606. end
  607. object CommonEventRadioButton: TRadioButton
  608. AnchorSideLeft.Control = LearnSkillRadioButton
  609. AnchorSideTop.Control = CommonEventComboBox
  610. AnchorSideTop.Side = asrCenter
  611. Left = 8
  612. Height = 22
  613. Top = 174
  614. Width = 123
  615. Caption = 'Common event'
  616. OnChange = CommonEventRadioButtonChange
  617. TabOrder = 6
  618. end
  619. object DummyOtherRadioButton: TRadioButton
  620. Left = 42
  621. Height = 22
  622. Top = 92
  623. Width = 22
  624. Checked = True
  625. TabOrder = 8
  626. TabStop = True
  627. end
  628. end
  629. end
  630. object ResultButtonPanel: TButtonPanel
  631. Left = 6
  632. Height = 38
  633. Top = 287
  634. Width = 381
  635. OKButton.Name = 'OKButton'
  636. OKButton.DefaultCaption = True
  637. OKButton.OnClick = OKButtonClick
  638. HelpButton.Name = 'HelpButton'
  639. HelpButton.DefaultCaption = True
  640. CloseButton.Name = 'CloseButton'
  641. CloseButton.DefaultCaption = True
  642. CancelButton.Name = 'CancelButton'
  643. CancelButton.DefaultCaption = True
  644. CancelButton.OnClick = CancelButtonClick
  645. TabOrder = 1
  646. ShowButtons = [pbOK, pbCancel]
  647. end
  648. end