Am_wjgls.~dfm
上传用户:szruida
上传日期:2007-06-01
资源大小:6518k
文件大小:19k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Am_wjgl: TAm_wjgl
  2.   Left = 172
  3.   Top = 63
  4.   Width = 617
  5.   Height = 465
  6.   Caption = #25991#20214#31649#29702
  7.   Color = clBtnFace
  8.   Font.Charset = ANSI_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -12
  11.   Font.Name = #23435#20307
  12.   Font.Style = []
  13.   FormStyle = fsMDIChild
  14.   Icon.Data = {
  15.     0000010001001010000001002000680400001600000028000000100000002000
  16.     0000010020000000000040040000000000000000000000000000000000000000
  17.     00000000000000000000666666FF666666FF666666FF666666FF666666FF6666
  18.     66FF666666FF666666FF666666FF666666FF666666FF666666FF000000000000
  19.     000000000000AE7B6EFFD9AD9DFFD6A89AFFD3A698FFD2A497FFCCA199FFC99E
  20.     97FFC69C96FFC49995FFC19693FFB6918BFFB88E8BFF666666FF000000000000
  21.     000000000000B58272FFFCE1CBFFFBE0C8FFFBDEC4FFFBDCC2FFFADABEFFFAD8
  22.     BBFFFBD7B8FFFAD4B4FFF9D2B1FFFAD0AEFFEEBDA5FF666666FF000000000000
  23.     000000000000BB8875FFFCE4CFFFFCE2CCFFFBE0C9FFFBDEC6FFFBDCC3FFFBDA
  24.     BFFFFBD9BCFFFAD6B8FFFAD5B5FFFAD3B1FFEFBFA8FF666666FF000000000000
  25.     000000000000C28F79FFFCE7D4FFFCE4D1FFFCE3CEFFFCE1CAFFFBDFC7FFFBDC
  26.     C4FFFBDBC0FFFADABCFFFBD7B9FFFBD5B6FFF0C1ABFF666666FF000000000000
  27.     000000000000C8957CFFFCE8D8FFFCE6D5FFFCE5D2FFFCE3CEFFFBE1CBFFFBE0
  28.     C8FFFBDEC4FFFADCC1FFFBD9BEFFFAD8BBFFF0C3AFFF666666FF000000000000
  29.     000000000000CF9C80FFFCEBDDFFFDEADAFFFCE7D6FFFCE6D3FFFCE4CFFFFCE2
  30.     CCFFFBE0C9FFFBDEC6FFFBDCC2FFFADBBFFFF1C5B1FF666666FF000000000000
  31.     000000000000D5A283FFFDEEE0FFFDECDDFFFCEADBFFFCE8D7FFFCE6D3FFFCE4
  32.     D1FFFBE2CDFFFBE1CAFFFBDFC6FFFBDDC3FFF2C8B5FF666666FF000000000000
  33.     000000000000DCA987FFFEF0E5FFFDEEE1FFFDECDFFFFDEBDBFFFDE9D8FFFCE6
  34.     D5FFFCE5D1FFFBE3CEFFFCE1CAFFFBDFC7FFF2C9B7FF666666FF000000000000
  35.     000000000000DCA987FFFDF3EAFFFDF1E6FFFDEFE3FFFDEDDFFFFCEBDCFFFDE9
  36.     D9FFFDE7D6FFFCE5D3FFFCE4CFFFFCE1CBFFF3CCBAFF666666FF000000000000
  37.     000000000000DCA987FFFDF5EDFFFEF3EAFFFDF2E7FFFDEFE4FFFDEDE1FFFDEC
  38.     DEFFFCEADAFFFCE8D7FFFCE6D3FFFCE4D0FFF3CDBDFF666666FF000000000000
  39.     000000000000DCA987FFFEF8F2FFFEF5EEFFFDF4ECFFFDF2E8FFFDF0E5FFFDEE
  40.     E2FFFDECDEFFFDEADAFFFCE8D8FFFCE6D4FFF4C9BAFF666666FF000000000000
  41.     000000000000DCA987FFFFFAF7FFFEF8F3FFFEF6F0FFFEF4ECFFFEF2E9FFFDF1
  42.     E6FFFDEFE2FFFFD5CCFFFFD5CCFFF5B3AAFFB3887EFF666666FF000000000000
  43.     000000000000DCA987FFFFFDFBFFFFFBF7FFFEF9F4FFFEF7F1FFFEF5EDFFFDF3
  44.     EBFFFDF1E7FFF7A643FFF7A643FFE09241FF666666FF00000000000000000000
  45.     000000000000DCA987FFFFFFFFFFFFFEFBFFFFFBF8FFFEFAF5FFFEF8F1FFFEF6
  46.     EEFFFDF3ECFFDCA987FFEAB377FF666666FF0000000000000000000000000000
  47.     000000000000DCA987FFDCA987FFDCA987FFDCA987FFDCA987FFDCA987FFDEAB
  48.     88FFD6A384FFDCA987FF666666FF00000000000000000000000000000000E001
  49.     0000C0010000C0010000C0010000C0010000C0010000C0010000C0010000C001
  50.     0000C0010000C0010000C0010000C0010000C0030000C0070000C00F0000}
  51.   OldCreateOrder = False
  52.   Position = poDefault
  53.   Scaled = False
  54.   ShowHint = True
  55.   Visible = True
  56.   PixelsPerInch = 96
  57.   TextHeight = 12
  58.   object CoolBar1: TCoolBar
  59.     Left = 0
  60.     Top = 0
  61.     Width = 609
  62.     Height = 49
  63.     Bands = <
  64.       item
  65.         Control = ToolBar1
  66.         ImageIndex = -1
  67.         MinHeight = 40
  68.         Width = 605
  69.       end>
  70.     FixedSize = True
  71.     object ToolBar1: TToolBar
  72.       Left = 9
  73.       Top = 0
  74.       Width = 592
  75.       Height = 40
  76.       ButtonHeight = 30
  77.       ButtonWidth = 107
  78.       Caption = 'ToolBar1'
  79.       Images = mainfrm.zsg
  80.       List = True
  81.       ShowCaptions = True
  82.       TabOrder = 0
  83.       object ToolButton1: TToolButton
  84.         Left = 0
  85.         Top = 2
  86.         AutoSize = True
  87.         Caption = #32534#20214#26696#21367'(&E)'
  88.         ImageIndex = 2
  89.       end
  90.       object ToolButton5: TToolButton
  91.         Left = 105
  92.         Top = 2
  93.         AutoSize = True
  94.         Caption = #21047#26032'(&R)'
  95.         ImageIndex = 1
  96.       end
  97.       object ToolButton6: TToolButton
  98.         Left = 186
  99.         Top = 2
  100.         AutoSize = True
  101.         Caption = #26696#21367#24402#26723'(&G)'
  102.         ImageIndex = 5
  103.       end
  104.       object ToolButton4: TToolButton
  105.         Left = 291
  106.         Top = 2
  107.         AutoSize = True
  108.         Caption = #25991#20214#25805#20316'(&F)'
  109.         ImageIndex = 0
  110.       end
  111.     end
  112.   end
  113.   object Panel1: TPanel
  114.     Left = 0
  115.     Top = 49
  116.     Width = 609
  117.     Height = 389
  118.     Align = alClient
  119.     BevelOuter = bvNone
  120.     TabOrder = 1
  121.     object Splitter1: TSplitter
  122.       Left = 223
  123.       Top = 0
  124.       Width = 4
  125.       Height = 389
  126.       Cursor = crHSplit
  127.     end
  128.     object Panel2: TPanel
  129.       Left = 0
  130.       Top = 0
  131.       Width = 223
  132.       Height = 389
  133.       Align = alLeft
  134.       BevelOuter = bvNone
  135.       TabOrder = 0
  136.       object TreeView1: TTreeView
  137.         Left = 0
  138.         Top = 0
  139.         Width = 223
  140.         Height = 389
  141.         Align = alClient
  142.         Indent = 19
  143.         ReadOnly = True
  144.         RowSelect = True
  145.         TabOrder = 0
  146.       end
  147.     end
  148.     object Panel3: TPanel
  149.       Left = 227
  150.       Top = 0
  151.       Width = 382
  152.       Height = 389
  153.       Align = alClient
  154.       BevelOuter = bvNone
  155.       TabOrder = 1
  156.       object Splitter2: TSplitter
  157.         Left = 0
  158.         Top = 151
  159.         Width = 382
  160.         Height = 3
  161.         Cursor = crVSplit
  162.         Align = alTop
  163.       end
  164.       object Panel4: TPanel
  165.         Left = 0
  166.         Top = 0
  167.         Width = 382
  168.         Height = 151
  169.         Align = alTop
  170.         BevelInner = bvRaised
  171.         BevelOuter = bvLowered
  172.         TabOrder = 0
  173.         object GroupBox1: TGroupBox
  174.           Left = 2
  175.           Top = 2
  176.           Width = 378
  177.           Height = 147
  178.           Align = alClient
  179.           Caption = #25991#20214#31649#29702
  180.           TabOrder = 0
  181.           object DBGrid1: TDBGrid
  182.             Left = 2
  183.             Top = 14
  184.             Width = 374
  185.             Height = 131
  186.             Align = alClient
  187.             DataSource = WJGL
  188.             ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
  189.             TabOrder = 0
  190.             TitleFont.Charset = ANSI_CHARSET
  191.             TitleFont.Color = clWindowText
  192.             TitleFont.Height = -12
  193.             TitleFont.Name = #23435#20307
  194.             TitleFont.Style = []
  195.             Columns = <
  196.               item
  197.                 Expanded = False
  198.                 FieldName = 'aj_xh'
  199.                 Title.Caption = #39034#24207#21495
  200.                 Visible = True
  201.               end
  202.               item
  203.                 Expanded = False
  204.                 FieldName = 'aj_ndh'
  205.                 Title.Caption = #24180#20195#21495
  206.                 Visible = True
  207.               end
  208.               item
  209.                 Expanded = False
  210.                 FieldName = 'aj_dh'
  211.                 Title.Caption = #26723#21495
  212.                 Visible = True
  213.               end
  214.               item
  215.                 Expanded = False
  216.                 FieldName = 'aj_ys'
  217.                 Title.Caption = #39029#25968
  218.                 Visible = True
  219.               end
  220.               item
  221.                 Expanded = False
  222.                 FieldName = 'aj_tm'
  223.                 Title.Caption = #39064#21517
  224.                 Visible = True
  225.               end
  226.               item
  227.                 Expanded = False
  228.                 FieldName = 'aj_bzqsrq'
  229.                 Title.Caption = #32534#21046#24320#22987#26085#26399
  230.                 Visible = True
  231.               end
  232.               item
  233.                 Expanded = False
  234.                 FieldName = 'aj_bzjsrq'
  235.                 Title.Caption = #32534#21046#32467#26463#26085#26399
  236.                 Visible = True
  237.               end
  238.               item
  239.                 Expanded = False
  240.                 FieldName = 'aj_gdqsrq'
  241.                 Title.Caption = #24402#26723#24320#22987#26085#26399
  242.                 Visible = True
  243.               end
  244.               item
  245.                 Expanded = False
  246.                 FieldName = 'aj_gdjsrq'
  247.                 Title.Caption = #24402#26723#32467#26463#26085#26399
  248.                 Visible = True
  249.               end
  250.               item
  251.                 Expanded = False
  252.                 FieldName = 'bgqx_dm'
  253.                 Title.Caption = #20445#31649#26399#38480
  254.                 Visible = True
  255.               end
  256.               item
  257.                 Expanded = False
  258.                 FieldName = 'mj_dm'
  259.                 Title.Caption = #23494#32423
  260.                 Visible = True
  261.               end
  262.               item
  263.                 Expanded = False
  264.                 FieldName = 'aj_ljr'
  265.                 Title.Caption = #31435#21367#20154
  266.                 Visible = True
  267.               end
  268.               item
  269.                 Expanded = False
  270.                 FieldName = 'aj_zrz'
  271.                 Title.Caption = #36131#20219#20154
  272.                 Visible = True
  273.               end
  274.               item
  275.                 Expanded = False
  276.                 FieldName = 'aj_jcr'
  277.                 Title.Caption = #26816#26597#20154
  278.                 Visible = True
  279.               end
  280.               item
  281.                 Expanded = False
  282.                 FieldName = 'kw_dm'
  283.                 Title.Caption = #24211#20301
  284.                 Visible = True
  285.               end
  286.               item
  287.                 Expanded = False
  288.                 FieldName = 'aj_ztc'
  289.                 Title.Caption = #20027#39064#35789
  290.                 Visible = True
  291.               end
  292.               item
  293.                 Expanded = False
  294.                 FieldName = 'yh_mc'
  295.                 Title.Caption = #25805#20316#21592
  296.                 Visible = True
  297.               end
  298.               item
  299.                 Expanded = False
  300.                 FieldName = 'aj_dm'
  301.                 Title.Caption = #26696#21367#21495
  302.                 Visible = True
  303.               end>
  304.           end
  305.         end
  306.       end
  307.       object Panel5: TPanel
  308.         Left = 0
  309.         Top = 154
  310.         Width = 382
  311.         Height = 235
  312.         Align = alClient
  313.         BevelInner = bvRaised
  314.         BevelOuter = bvLowered
  315.         TabOrder = 1
  316.         object GroupBox2: TGroupBox
  317.           Left = 2
  318.           Top = 2
  319.           Width = 378
  320.           Height = 231
  321.           Align = alClient
  322.           Caption = #38468#20214#31649#29702
  323.           TabOrder = 0
  324.           object DBGrid2: TDBGrid
  325.             Left = 2
  326.             Top = 14
  327.             Width = 374
  328.             Height = 215
  329.             Align = alClient
  330.             DataSource = WJFJ
  331.             ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
  332.             TabOrder = 0
  333.             TitleFont.Charset = ANSI_CHARSET
  334.             TitleFont.Color = clWindowText
  335.             TitleFont.Height = -12
  336.             TitleFont.Name = #23435#20307
  337.             TitleFont.Style = []
  338.           end
  339.         end
  340.       end
  341.     end
  342.   end
  343.   object XPBarMenu1: TXPBarMenu
  344.     BarCaption = #26696#21367#31649#29702
  345.     BarFont.Charset = GB2312_CHARSET
  346.     BarFont.Color = clWhite
  347.     BarFont.Height = -11
  348.     BarFont.Name = 'Tahoma'
  349.     BarFont.Style = []
  350.     Font.Charset = GB2312_CHARSET
  351.     Font.Color = clMenuText
  352.     Font.Height = -11
  353.     Font.Name = 'Tahoma'
  354.     Font.Style = []
  355.     CheckedColor = clHighlight
  356.     IconWidth = 24
  357.     DrawSelect = True
  358.     UseSystemColors = True
  359.     OverrideOwnerDraw = False
  360.     FlatMenu = True
  361.     AutoDetect = True
  362.     Active = True
  363.     Left = 184
  364.     Top = 88
  365.   end
  366.   object WJGL: TDataSource
  367.     DataSet = DM.Am_wjgl
  368.     Left = 248
  369.     Top = 128
  370.   end
  371.   object WJFJ: TDataSource
  372.     DataSet = DM.Am_wjfj
  373.     Left = 240
  374.     Top = 272
  375.   end
  376.   object ImageList1: TImageList
  377.     Left = 152
  378.     Top = 88
  379.     Bitmap = {
  380.       494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
  381.       000000000000360000002800000040000000100000000100180000000000000C
  382.       0000000000000000000000000000000000000000000000000000000000000000
  383.       0000000000000000000000000000000000000000000000000000000000000000
  384.       0000000000000000000000000000000000000000000000000000000000000000
  385.       0000000000000000000000000000000000000000000000000000000000000000
  386.       0000000000000000000000000000000000000000000000000000000000000000
  387.       0000000000000000000000000000000000000000000000000000000000000000
  388.       0000000000000000000000000000000000000000000000006363636363636363
  389.       6363636363636363636363636363636363636363636363636363636363636300
  390.       0000000000000000187B9C187B9C187B9C187B9C187B9C187B9C187B9C187B9C
  391.       187B9C187B9C187B9C187B9C187B9C187B9C0000000000000000000000000000
  392.       0000000000000000000000000000000000000000000000000000000000000000
  393.       0000000000000000000000000000000000000000000000000000000000000000
  394.       0000000000000000000000000000000000000000001884B51884B5107BB5107B
  395.       AD107BAD0873AD0873A50873A5006BA5006B9C006B9C00639C00639C63636363
  396.       63630000001884AD21A5D621A5D621A5D621A5D621A5D621A5D621A5D621A5D6
  397.       21A5D621A5D621A5D621A5D621A5D6187B9C0000000000000000000000000000
  398.       0000000000000000000000000000000000000000000000000000000000000000
  399.       0000000000000000000000000000000000000000000000000000000000000000
  400.       0000000000000000000000000000000000002184BD63CEFF1884BD8CF7FF6BD6
  401.       FF6BD6FF6BD6FF6BD6FF6BD6FF6BD6FF6BD6FF6BD6FF39A5D69CFFFF00639C63
  402.       6363188CB55AC6FF21A5D694FFFF63D6FF63D6FF63D6FF63D6FF3963BD4273CE
  403.       63D6FF63D6FF31ADD694FFFF21A5D6187B9C0000000000000000000000000000
  404.       0000000000000000000000000000000000000000000000000000000000000000
  405.       0000000000000000000000000000000000000000000000000000000000000000
  406.       000000000000000000000000000000000000218CBD63CEFF218CBD8CF7FF7BE7
  407.       FF7BE7FF7BE7FF7BE7FF7BE7FF7BE7FF7BE7FF7BE7FF42ADDE9CFFFF00639C63
  408.       6363188CB563D6FF21A5D69CFFFF7BE7FF7BE7FF7BE7FF7BE7FF1021A508109C
  409.       6BD6FF7BE7FF42B5DE9CFFFF21A5D6187B9C0000000000000000000000000000
  410.       0000000000000000000000000000000000000000000000000000000000000000
  411.       0000000000000000000000000000000000000000000000000000000000000000
  412.       000000000000000000000000000000000000218CC663CEFF2994C68CF7FF84EF
  413.       FF84EFFF84EFFF84EFFF84EFFF84EFFF84EFFF84EFFF4AB5E79CFFFF006B9C63
  414.       6363188CB56BCEFF21A5D69CFFFF84EFFF84EFFF84EFFF3963BD1021A51829AD
  415.       314AB584EFFF42B5DE94FFFF21A5D6187B9C0000000000000000000000000000
  416.       0000000000000000000000000000000000000000000000000000000000000000
  417.       0000000000000000000000000000000000000000000000000000000000000000
  418.       000000000000000000000000000000000000298CC663CEFF319CCE8CF7FF94F7
  419.       FF94F7FF94F7FF94F7FF94F7FF94F7FF94F7FF94F7FF52BDEF9CFFFF006B9C63
  420.       6363188CB563CEFF21A5D69CFFFF94FFFF94FFFF6BADDE08109C52C6F76BBDEF
  421.       08109C52C6F75AC6FF9CFFFF21A5D6187B9C0000000000000000000000000000
  422.       0000000000000000000000000000000000000000000000000000000000000000
  423.       0000000000000000000000000000000000000000000000000000000000000000
  424.       0000000000000000000000000000000000002994C66BD6FF319CCE8CF7FF8CF7
  425.       FF8CF7FF8CF7FF8CF7FF8CF7FF8CF7FF8CF7FF8CF7FF5AC6FF9CFFFF006BA563
  426.       6363188CB56BD6FF21A5D69CFFFF9CFFFF8CE7FF08109C4273CE9CFFFF9CFFFF
  427.       314AB51829AD5AC6FF94FFFF21A5D6187B9C0000000000000000000000000000
  428.       0000000000000000000000000000000000000000000000000000000000000000
  429.       0000000000000000000000000000000000000000000000000000000000000000
  430.       0000000000000000000000000000000000002994C67BE7FF2994C6FFFFFFFFFF
  431.       FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF84E7FFFFFFFF0873A563
  432.       6363188CB57BE7FF21A5D6FFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFF
  433.       F7FFFF08109C5A9CDEFFFFFF21A5D6187B9C0000000000000000000000000000
  434.       0000000000000000000000000000000000000000000000000000000000000000
  435.       0000000000000000000000000000000000000000000000000000000000000000
  436.       0000000000000000000000000000000000003194CE84EFFF84E7FF2994C62994
  437.       C62994C62994C62994C62994C6218CC6218CBD1884BD1884B51884B51884B500
  438.       0000188CB584EFFF8CE7FF21A5D621A5D621A5D621A5D621A5D621A5D621A5D6
  439.       21A5D60839AD08109C21A5D621A5D60000000000000000000000000000000000
  440.       0000000000000000000000000000000000000000000000000000000000000000
  441.       0000000000000000000000000000000000000000000000000000000000000000
  442.       000000000000000000000000000000000000319CCE94F7FF8CF7FF8CF7FF8CF7
  443.       FF8CF7FF8CF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF107BAD63636300000000
  444.       0000188CB584EFFF8CF7FF8CF7FF8CF7FF8CF7FF8CF7FFFFFFFFFFFFFFFFFFFF
  445.       FFFFFFFFFFFF1021A51021A50000000000000000000000000000000000000000
  446.       0000000000000000000000000000000000000000000000000000000000000000
  447.       0000000000000000000000000000000000000000000000000000000000000000
  448.       000000000000000000000000000000000000319CCEFFFFFF9CFFFF9CFFFF9CFF
  449.       FF9CFFFFFFFFFF218CBD2184BD1884B51884B51884B5107BB500000000000000
  450.       0000188CB5FFFFFF9CFFFF9CFFFF9CFFFF9CFFFFFFFFFF188CB5188CB5188CB5
  451.       188CB5188CB50839AD1021A508109C0000000000000000000000000000000000
  452.       0000000000000000000000000000000000000000000000000000000000000000
  453.       0000000000000000000000000000000000000000000000000000000000000000
  454.       000000000000000000000000000000000000000000319CCEFFFFFFFFFFFFFFFF
  455.       FFFFFFFF298CC600000000000000000000000000000000000000000000000000
  456.       0000000000188CB5FFFFFFFFFFFFF7FFFFFFFFFF188CB5000000000000000000
  457.       00000000000000000008109C08109C0000000000000000000000000000000000
  458.       0000000000000000000000000000000000000000000000000000000000000000
  459.       0000000000000000000000000000000000000000000000000000000000000000
  460.       000000000000000000000000000000000000000000000000319CCE319CCE3194
  461.       CE2994C600000000000000000000000000000000000000000000000000000000
  462.       0000000000000000188CB5188CB5188CB5188CB5000000000000000000000000
  463.       0000000000000000000000000000000000000000000000000000000000000000
  464.       0000000000000000000000000000000000000000000000000000000000000000
  465.       0000000000000000000000000000000000000000000000000000000000000000
  466.       0000000000000000000000000000000000000000000000000000000000000000
  467.       0000000000000000000000000000000000000000000000000000000000000000
  468.       0000000000000000000000000000000000000000000000000000000000000000
  469.       0000000000000000000000000000000000000000000000000000000000000000
  470.       0000000000000000000000000000000000000000000000000000000000000000
  471.       0000000000000000000000000000000000000000000000000000000000000000
  472.       0000000000000000000000000000000000000000000000000000000000000000
  473.       0000000000000000000000000000000000000000000000000000000000000000
  474.       0000000000000000000000000000000000000000000000000000000000000000
  475.       0000000000000000000000000000000000000000000000000000000000000000
  476.       0000000000000000000000000000000000000000000000000000000000000000
  477.       0000000000000000000000000000000000000000000000000000000000000000
  478.       000000000000000000000000000000000000424D3E000000000000003E000000
  479.       2800000040000000100000000100010000000000800000000000000000000000
  480.       000000000000000000000000FFFFFF00FFFFFFFF00000000C001C00000000000
  481.       8000800000000000000000000000000000000000000000000000000000000000
  482.       0000000000000000000000000000000000000000000000000001000100000000
  483.       0003000300000000000700010000000081FF81F900000000C3FFC3FF00000000
  484.       FFFFFFFF00000000FFFFFFFF0000000000000000000000000000000000000000
  485.       000000000000}
  486.   end
  487.   object DataSource3: TDataSource
  488.     Left = 104
  489.     Top = 88
  490.   end
  491. end