ReportManagerFrm.dfm 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656
  1. object ReportManagerForm: TReportManagerForm
  2. Left = 679
  3. Top = 296
  4. BorderStyle = bsDialog
  5. Caption = #25253#34920#27169#26495
  6. ClientHeight = 442
  7. ClientWidth = 809
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -13
  12. Font.Name = #23435#20307
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poScreenCenter
  16. OnCreate = FormCreate
  17. OnDestroy = FormDestroy
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object pcReport: TPageControl
  21. Left = 0
  22. Top = 0
  23. Width = 809
  24. Height = 442
  25. ActivePage = tsLocal
  26. Align = alClient
  27. Font.Charset = DEFAULT_CHARSET
  28. Font.Color = clWindowText
  29. Font.Height = -24
  30. Font.Name = #24494#36719#38597#40657
  31. Font.Style = [fsBold]
  32. ParentFont = False
  33. TabHeight = 50
  34. TabOrder = 0
  35. OnChange = pcReportChange
  36. object tsLocal: TTabSheet
  37. Caption = ' '#26412#22320#25253#34920' '
  38. Font.Charset = DEFAULT_CHARSET
  39. Font.Color = clWindowText
  40. Font.Height = -19
  41. Font.Name = #23435#20307
  42. Font.Style = []
  43. ParentFont = False
  44. object zgLoacl: TZJGrid
  45. Left = 0
  46. Top = 0
  47. Width = 801
  48. Height = 382
  49. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  50. OptionsEx = []
  51. ColCount = 7
  52. RowCount = 1
  53. ShowGridLine = False
  54. DefaultColWidth = 73
  55. DefaultFixedColWidth = 30
  56. DefaultFixedRowHeight = 29
  57. DefaultRowHeight = 30
  58. Selection.AlphaBlend = False
  59. Selection.TransparentColor = False
  60. FrozenCol = 0
  61. FrozenRow = 0
  62. OnCellGetFont = zgLoaclCellGetFont
  63. OnMouseDown = zgLoaclMouseDown
  64. Font.Charset = DEFAULT_CHARSET
  65. Font.Color = clWindowText
  66. Font.Height = -12
  67. Font.Name = #24494#36719#38597#40657
  68. Font.Style = []
  69. ParentFont = False
  70. Align = alClient
  71. end
  72. object pnlHint: TPanel
  73. Left = 0
  74. Top = 0
  75. Width = 801
  76. Height = 382
  77. Align = alClient
  78. BevelOuter = bvNone
  79. Caption = #26412#22320#36824#27809#26377#25253#34920#65292#35831#20351#29992#8220#32447#19978#25253#34920#24211#8221#19979#36733#25253#34920
  80. Font.Charset = DEFAULT_CHARSET
  81. Font.Color = clWindowText
  82. Font.Height = -27
  83. Font.Name = #24494#36719#38597#40657
  84. Font.Style = [fsBold]
  85. ParentFont = False
  86. TabOrder = 1
  87. end
  88. end
  89. object tsOnline: TTabSheet
  90. Caption = ' '#32447#19978#25253#34920#24211' '
  91. ImageIndex = 1
  92. object Panel1: TPanel
  93. Left = 0
  94. Top = 0
  95. Width = 801
  96. Height = 37
  97. Align = alTop
  98. BevelOuter = bvNone
  99. TabOrder = 0
  100. object cbCategory: TComboBox
  101. Left = 0
  102. Top = 4
  103. Width = 273
  104. Height = 27
  105. Style = csDropDownList
  106. Font.Charset = DEFAULT_CHARSET
  107. Font.Color = clWindowText
  108. Font.Height = -13
  109. Font.Name = #24494#36719#38597#40657
  110. Font.Style = []
  111. ItemHeight = 19
  112. ParentFont = False
  113. TabOrder = 0
  114. TabStop = False
  115. OnChange = cbCategoryChange
  116. end
  117. end
  118. object zgOnline: TZJGrid
  119. Left = 0
  120. Top = 36
  121. Width = 801
  122. Height = 346
  123. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  124. OptionsEx = []
  125. ColCount = 7
  126. RowCount = 1
  127. ShowGridLine = False
  128. DefaultColWidth = 73
  129. DefaultFixedColWidth = 30
  130. DefaultFixedRowHeight = 29
  131. DefaultRowHeight = 30
  132. Selection.AlphaBlend = False
  133. Selection.TransparentColor = False
  134. FrozenCol = 0
  135. FrozenRow = 0
  136. OnCellGetFont = zgOnlineCellGetFont
  137. OnMouseDown = zgOnlineMouseDown
  138. Font.Charset = DEFAULT_CHARSET
  139. Font.Color = clWindowText
  140. Font.Height = -12
  141. Font.Name = #24494#36719#38597#40657
  142. Font.Style = []
  143. ParentFont = False
  144. Align = alBottom
  145. end
  146. end
  147. object tsCustom: TTabSheet
  148. Caption = ' '#23450#21046#25253#34920' '
  149. ImageIndex = 2
  150. object pnlCustom: TPanel
  151. Left = 0
  152. Top = 0
  153. Width = 801
  154. Height = 382
  155. Align = alClient
  156. BevelOuter = bvNone
  157. Caption = 'pnlCustom'
  158. TabOrder = 1
  159. object zgCustom: TZJGrid
  160. Left = 0
  161. Top = 0
  162. Width = 801
  163. Height = 382
  164. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  165. OptionsEx = []
  166. ColCount = 7
  167. RowCount = 1
  168. ShowGridLine = False
  169. DefaultColWidth = 73
  170. DefaultFixedColWidth = 30
  171. DefaultFixedRowHeight = 29
  172. DefaultRowHeight = 30
  173. Selection.AlphaBlend = False
  174. Selection.TransparentColor = False
  175. FrozenCol = 0
  176. FrozenRow = 0
  177. OnCellGetFont = zgCustomCellGetFont
  178. OnMouseDown = zgCustomMouseDown
  179. Font.Charset = DEFAULT_CHARSET
  180. Font.Color = clWindowText
  181. Font.Height = -12
  182. Font.Name = #24494#36719#38597#40657
  183. Font.Style = []
  184. ParentFont = False
  185. Align = alClient
  186. end
  187. end
  188. object pnlInputCode: TPanel
  189. Left = 0
  190. Top = 0
  191. Width = 801
  192. Height = 382
  193. Align = alClient
  194. BevelOuter = bvNone
  195. TabOrder = 0
  196. object Label2: TLabel
  197. Left = 176
  198. Top = 170
  199. Width = 455
  200. Height = 19
  201. Caption = #26356#22810#20851#20110#8220#23450#21046#25253#34920#8221#21644#8220#25253#34920#39046#21462#30721#8221#30340#35814#24773#21487#20197#32852#31995#30456#20851#32437#27178#38144#21806#24037#31243#24072#12290
  202. Font.Charset = DEFAULT_CHARSET
  203. Font.Color = clWindowText
  204. Font.Height = -13
  205. Font.Name = #24494#36719#38597#40657
  206. Font.Style = []
  207. ParentFont = False
  208. end
  209. object Label1: TLabel
  210. Left = 176
  211. Top = 93
  212. Width = 195
  213. Height = 19
  214. Caption = #36755#20837#8220#25253#34920#39046#21462#30721#8221#33719#21462#23450#21046#25253#34920
  215. Font.Charset = DEFAULT_CHARSET
  216. Font.Color = clWindowText
  217. Font.Height = -13
  218. Font.Name = #24494#36719#38597#40657
  219. Font.Style = []
  220. ParentFont = False
  221. end
  222. object edtCode: TEdit
  223. Left = 176
  224. Top = 114
  225. Width = 324
  226. Height = 48
  227. Font.Charset = DEFAULT_CHARSET
  228. Font.Color = clBlue
  229. Font.Height = -40
  230. Font.Name = #23435#20307
  231. Font.Style = [fsBold]
  232. ParentFont = False
  233. TabOrder = 0
  234. end
  235. object btnGet: TcxButton
  236. Left = 502
  237. Top = 97
  238. Width = 121
  239. Height = 65
  240. Cursor = crHandPoint
  241. Caption = #39046#21462
  242. Font.Charset = DEFAULT_CHARSET
  243. Font.Color = clWindowText
  244. Font.Height = -27
  245. Font.Name = #24494#36719#38597#40657
  246. Font.Style = [fsBold]
  247. ParentFont = False
  248. TabOrder = 1
  249. OnClick = btnGetClick
  250. Colors.Default = clWindow
  251. Colors.Normal = clWindow
  252. Colors.Pressed = clHotLight
  253. end
  254. end
  255. end
  256. end
  257. object zaLocal: TZjGridDBA
  258. Columns = <
  259. item
  260. Title.Caption = #31867#21035
  261. Title.CaptionAcrossCols = '1'
  262. Title.Font.Charset = GB2312_CHARSET
  263. Title.Font.Color = clWindowText
  264. Title.Font.Height = -12
  265. Title.Font.Name = #23435#20307
  266. Title.Font.Style = []
  267. Alignment = taLeftJustify
  268. Font.Charset = GB2312_CHARSET
  269. Font.Color = clWindowText
  270. Font.Height = -12
  271. Font.Name = #23435#20307
  272. Font.Style = []
  273. FieldName = 'Category'
  274. Width = 120
  275. ReadOnly = True
  276. end
  277. item
  278. Title.Caption = #25253#34920#21517#31216
  279. Title.CaptionAcrossCols = '1'
  280. Title.Font.Charset = GB2312_CHARSET
  281. Title.Font.Color = clWindowText
  282. Title.Font.Height = -12
  283. Title.Font.Name = #23435#20307
  284. Title.Font.Style = []
  285. Alignment = taLeftJustify
  286. Font.Charset = GB2312_CHARSET
  287. Font.Color = clWindowText
  288. Font.Height = -12
  289. Font.Name = #23435#20307
  290. Font.Style = []
  291. FieldName = 'Name'
  292. Width = 290
  293. ReadOnly = True
  294. end
  295. item
  296. Title.Caption = #26412#22320#29256#26412
  297. Title.CaptionAcrossCols = '1'
  298. Title.Font.Charset = GB2312_CHARSET
  299. Title.Font.Color = clWindowText
  300. Title.Font.Height = -12
  301. Title.Font.Name = #23435#20307
  302. Title.Font.Style = []
  303. Alignment = taCenter
  304. Font.Charset = GB2312_CHARSET
  305. Font.Color = clWindowText
  306. Font.Height = -12
  307. Font.Name = #23435#20307
  308. Font.Style = []
  309. FieldName = 'LocalVer'
  310. Width = 93
  311. ReadOnly = True
  312. end
  313. item
  314. Title.Caption = #26368#26032#26356#26032
  315. Title.CaptionAcrossCols = '1'
  316. Title.Font.Charset = GB2312_CHARSET
  317. Title.Font.Color = clWindowText
  318. Title.Font.Height = -12
  319. Title.Font.Name = #23435#20307
  320. Title.Font.Style = []
  321. Alignment = taCenter
  322. Font.Charset = GB2312_CHARSET
  323. Font.Color = clWindowText
  324. Font.Height = -12
  325. Font.Name = #23435#20307
  326. Font.Style = []
  327. FieldName = 'NewestVer'
  328. Width = 93
  329. ReadOnly = True
  330. end
  331. item
  332. Title.Caption = #29366#24577
  333. Title.CaptionAcrossCols = '1'
  334. Title.Font.Charset = GB2312_CHARSET
  335. Title.Font.Color = clWindowText
  336. Title.Font.Height = -12
  337. Title.Font.Name = #23435#20307
  338. Title.Font.Style = []
  339. Alignment = taCenter
  340. Font.Charset = GB2312_CHARSET
  341. Font.Color = clWindowText
  342. Font.Height = -12
  343. Font.Name = #23435#20307
  344. Font.Style = []
  345. FieldName = 'State'
  346. Width = 80
  347. ReadOnly = True
  348. end
  349. item
  350. Title.Caption = #21382#21490#29256#26412
  351. Title.CaptionAcrossCols = '1'
  352. Title.Font.Charset = GB2312_CHARSET
  353. Title.Font.Color = clWindowText
  354. Title.Font.Height = -12
  355. Title.Font.Name = #23435#20307
  356. Title.Font.Style = []
  357. Alignment = taCenter
  358. Font.Charset = GB2312_CHARSET
  359. Font.Color = clWindowText
  360. Font.Height = -12
  361. Font.Name = #23435#20307
  362. Font.Style = []
  363. FieldName = 'History'
  364. Width = 65
  365. ReadOnly = True
  366. end
  367. item
  368. Title.Caption = 'ID'
  369. Title.CaptionAcrossCols = '1'
  370. Title.Font.Charset = GB2312_CHARSET
  371. Title.Font.Color = clWindowText
  372. Title.Font.Height = -12
  373. Title.Font.Name = #23435#20307
  374. Title.Font.Style = []
  375. Alignment = taLeftJustify
  376. Font.Charset = GB2312_CHARSET
  377. Font.Color = clWindowText
  378. Font.Height = -12
  379. Font.Name = #23435#20307
  380. Font.Style = []
  381. FieldName = 'ID'
  382. Visible = False
  383. ReadOnly = False
  384. end>
  385. Grid = zgLoacl
  386. ExtendRowCount = 0
  387. Left = 644
  388. Top = 72
  389. end
  390. object zaOnline: TZjGridDBA
  391. Columns = <
  392. item
  393. Title.Caption = #31867#21035
  394. Title.CaptionAcrossCols = '1'
  395. Title.Font.Charset = GB2312_CHARSET
  396. Title.Font.Color = clWindowText
  397. Title.Font.Height = -12
  398. Title.Font.Name = #23435#20307
  399. Title.Font.Style = []
  400. Alignment = taLeftJustify
  401. Font.Charset = GB2312_CHARSET
  402. Font.Color = clWindowText
  403. Font.Height = -12
  404. Font.Name = #23435#20307
  405. Font.Style = []
  406. FieldName = 'Category'
  407. Width = 120
  408. ReadOnly = True
  409. end
  410. item
  411. Title.Caption = #25253#34920#21517#31216
  412. Title.CaptionAcrossCols = '1'
  413. Title.Font.Charset = GB2312_CHARSET
  414. Title.Font.Color = clWindowText
  415. Title.Font.Height = -12
  416. Title.Font.Name = #23435#20307
  417. Title.Font.Style = []
  418. Alignment = taLeftJustify
  419. Font.Charset = GB2312_CHARSET
  420. Font.Color = clWindowText
  421. Font.Height = -12
  422. Font.Name = #23435#20307
  423. Font.Style = []
  424. FieldName = 'Name'
  425. Width = 290
  426. ReadOnly = True
  427. end
  428. item
  429. Title.Caption = #26412#22320#29256#26412
  430. Title.CaptionAcrossCols = '1'
  431. Title.Font.Charset = GB2312_CHARSET
  432. Title.Font.Color = clWindowText
  433. Title.Font.Height = -12
  434. Title.Font.Name = #23435#20307
  435. Title.Font.Style = []
  436. Alignment = taCenter
  437. Font.Charset = GB2312_CHARSET
  438. Font.Color = clWindowText
  439. Font.Height = -12
  440. Font.Name = #23435#20307
  441. Font.Style = []
  442. FieldName = 'LocalVer'
  443. Width = 93
  444. ReadOnly = True
  445. end
  446. item
  447. Title.Caption = #26368#26032#26356#26032
  448. Title.CaptionAcrossCols = '1'
  449. Title.Font.Charset = GB2312_CHARSET
  450. Title.Font.Color = clWindowText
  451. Title.Font.Height = -12
  452. Title.Font.Name = #23435#20307
  453. Title.Font.Style = []
  454. Alignment = taCenter
  455. Font.Charset = GB2312_CHARSET
  456. Font.Color = clWindowText
  457. Font.Height = -12
  458. Font.Name = #23435#20307
  459. Font.Style = []
  460. FieldName = 'NewestVer'
  461. Width = 93
  462. ReadOnly = True
  463. end
  464. item
  465. Title.Caption = #29366#24577
  466. Title.CaptionAcrossCols = '1'
  467. Title.Font.Charset = GB2312_CHARSET
  468. Title.Font.Color = clWindowText
  469. Title.Font.Height = -12
  470. Title.Font.Name = #23435#20307
  471. Title.Font.Style = []
  472. Alignment = taCenter
  473. Font.Charset = GB2312_CHARSET
  474. Font.Color = clWindowText
  475. Font.Height = -12
  476. Font.Name = #23435#20307
  477. Font.Style = []
  478. FieldName = 'State'
  479. Width = 80
  480. ReadOnly = True
  481. end
  482. item
  483. Title.Caption = #21382#21490#29256#26412
  484. Title.CaptionAcrossCols = '1'
  485. Title.Font.Charset = GB2312_CHARSET
  486. Title.Font.Color = clWindowText
  487. Title.Font.Height = -12
  488. Title.Font.Name = #23435#20307
  489. Title.Font.Style = []
  490. Alignment = taCenter
  491. Font.Charset = GB2312_CHARSET
  492. Font.Color = clWindowText
  493. Font.Height = -12
  494. Font.Name = #23435#20307
  495. Font.Style = []
  496. FieldName = 'History'
  497. Width = 65
  498. ReadOnly = True
  499. end
  500. item
  501. Title.Caption = 'ID'
  502. Title.CaptionAcrossCols = '1'
  503. Title.Font.Charset = GB2312_CHARSET
  504. Title.Font.Color = clWindowText
  505. Title.Font.Height = -12
  506. Title.Font.Name = #23435#20307
  507. Title.Font.Style = []
  508. Alignment = taLeftJustify
  509. Font.Charset = GB2312_CHARSET
  510. Font.Color = clWindowText
  511. Font.Height = -12
  512. Font.Name = #23435#20307
  513. Font.Style = []
  514. FieldName = 'ID'
  515. Visible = False
  516. ReadOnly = False
  517. end>
  518. Grid = zgOnline
  519. ExtendRowCount = 0
  520. Left = 676
  521. Top = 72
  522. end
  523. object zaCustom: TZjGridDBA
  524. Columns = <
  525. item
  526. Title.Caption = #31867#21035
  527. Title.CaptionAcrossCols = '1'
  528. Title.Font.Charset = GB2312_CHARSET
  529. Title.Font.Color = clWindowText
  530. Title.Font.Height = -12
  531. Title.Font.Name = #23435#20307
  532. Title.Font.Style = []
  533. Alignment = taLeftJustify
  534. Font.Charset = GB2312_CHARSET
  535. Font.Color = clWindowText
  536. Font.Height = -12
  537. Font.Name = #23435#20307
  538. Font.Style = []
  539. FieldName = 'Category'
  540. Width = 120
  541. ReadOnly = True
  542. end
  543. item
  544. Title.Caption = #25253#34920#21517#31216
  545. Title.CaptionAcrossCols = '1'
  546. Title.Font.Charset = GB2312_CHARSET
  547. Title.Font.Color = clWindowText
  548. Title.Font.Height = -12
  549. Title.Font.Name = #23435#20307
  550. Title.Font.Style = []
  551. Alignment = taLeftJustify
  552. Font.Charset = GB2312_CHARSET
  553. Font.Color = clWindowText
  554. Font.Height = -12
  555. Font.Name = #23435#20307
  556. Font.Style = []
  557. FieldName = 'Name'
  558. Width = 290
  559. ReadOnly = True
  560. end
  561. item
  562. Title.Caption = #26412#22320#29256#26412
  563. Title.CaptionAcrossCols = '1'
  564. Title.Font.Charset = GB2312_CHARSET
  565. Title.Font.Color = clWindowText
  566. Title.Font.Height = -12
  567. Title.Font.Name = #23435#20307
  568. Title.Font.Style = []
  569. Alignment = taCenter
  570. Font.Charset = GB2312_CHARSET
  571. Font.Color = clWindowText
  572. Font.Height = -12
  573. Font.Name = #23435#20307
  574. Font.Style = []
  575. FieldName = 'LocalVer'
  576. Width = 93
  577. ReadOnly = True
  578. end
  579. item
  580. Title.Caption = #26368#26032#26356#26032
  581. Title.CaptionAcrossCols = '1'
  582. Title.Font.Charset = GB2312_CHARSET
  583. Title.Font.Color = clWindowText
  584. Title.Font.Height = -12
  585. Title.Font.Name = #23435#20307
  586. Title.Font.Style = []
  587. Alignment = taCenter
  588. Font.Charset = GB2312_CHARSET
  589. Font.Color = clWindowText
  590. Font.Height = -12
  591. Font.Name = #23435#20307
  592. Font.Style = []
  593. FieldName = 'NewestVer'
  594. Width = 93
  595. ReadOnly = True
  596. end
  597. item
  598. Title.Caption = #29366#24577
  599. Title.CaptionAcrossCols = '1'
  600. Title.Font.Charset = GB2312_CHARSET
  601. Title.Font.Color = clWindowText
  602. Title.Font.Height = -12
  603. Title.Font.Name = #23435#20307
  604. Title.Font.Style = []
  605. Alignment = taCenter
  606. Font.Charset = GB2312_CHARSET
  607. Font.Color = clWindowText
  608. Font.Height = -12
  609. Font.Name = #23435#20307
  610. Font.Style = []
  611. FieldName = 'State'
  612. Width = 80
  613. ReadOnly = True
  614. end
  615. item
  616. Title.Caption = #21382#21490#29256#26412
  617. Title.CaptionAcrossCols = '1'
  618. Title.Font.Charset = GB2312_CHARSET
  619. Title.Font.Color = clWindowText
  620. Title.Font.Height = -12
  621. Title.Font.Name = #23435#20307
  622. Title.Font.Style = []
  623. Alignment = taCenter
  624. Font.Charset = GB2312_CHARSET
  625. Font.Color = clWindowText
  626. Font.Height = -12
  627. Font.Name = #23435#20307
  628. Font.Style = []
  629. FieldName = 'History'
  630. Width = 65
  631. ReadOnly = True
  632. end
  633. item
  634. Title.Caption = 'ID'
  635. Title.CaptionAcrossCols = '1'
  636. Title.Font.Charset = GB2312_CHARSET
  637. Title.Font.Color = clWindowText
  638. Title.Font.Height = -12
  639. Title.Font.Name = #23435#20307
  640. Title.Font.Style = []
  641. Alignment = taLeftJustify
  642. Font.Charset = GB2312_CHARSET
  643. Font.Color = clWindowText
  644. Font.Height = -12
  645. Font.Name = #23435#20307
  646. Font.Style = []
  647. FieldName = 'ID'
  648. Visible = False
  649. ReadOnly = False
  650. end>
  651. Grid = zgCustom
  652. ExtendRowCount = 0
  653. Left = 732
  654. Top = 72
  655. end
  656. end