home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Top100sh / Edukacja / BKPERLIB / PERLIB32.EXE / 0 / RCDATA / TFRMPERIODICLIBRARY / TFRMPERIODICLIBRARY.txt < prev   
Text File  |  1997-10-19  |  19KB  |  673 lines
  1. object frmPeriodicLibrary: TfrmPeriodicLibrary
  2.   Left = 235
  3.   Top = 116
  4.   HelpContext = 1
  5.   HorzScrollBar.Visible = False
  6.   VertScrollBar.Visible = False
  7.   AutoScroll = False
  8.   Caption = 'BK Periodic Library'
  9.   ClientHeight = 339
  10.   ClientWidth = 538
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   KeyPreview = True
  17.   Menu = MainMenu
  18.   Position = poDefault
  19.   Visible = True
  20.   OnClose = FormClose
  21.   OnCreate = FormCreate
  22.   OnKeyDown = FormKeyDown
  23.   OnResize = FormResize
  24.   OnShow = FormShow
  25.   PixelsPerInch = 120
  26.   TextHeight = 16
  27.   object pntBackGround: TPaintBox
  28.     Left = 0
  29.     Top = 36
  30.     Width = 538
  31.     Height = 280
  32.     Align = alClient
  33.     OnMouseMove = ClearStatus
  34.     OnPaint = BackgroundPaint
  35.   end
  36.   object imgWallpaper: TImage
  37.     Left = 420
  38.     Top = 134
  39.     Width = 110
  40.     Height = 106
  41.     Visible = False
  42.   end
  43.   object PeriodicTable: TPanel
  44.     Left = 21
  45.     Top = 61
  46.     Width = 450
  47.     Height = 214
  48.     BevelInner = bvLowered
  49.     BorderWidth = 1
  50.     BorderStyle = bsSingle
  51.     Ctl3D = False
  52.     Font.Color = clWindowText
  53.     Font.Height = -13
  54.     Font.Name = 'MS Sans Serif'
  55.     Font.Style = []
  56.     ParentColor = True
  57.     ParentCtl3D = False
  58.     ParentFont = False
  59.     TabOrder = 2
  60.     Visible = False
  61.     OnMouseDown = TableMouseDown
  62.     OnMouseMove = ClearStatus
  63.     OnResize = PeriodicTableResize
  64.     object pntGroupLines: TPaintBox
  65.       Left = 281
  66.       Top = 83
  67.       Width = 157
  68.       Height = 57
  69.       OnMouseDown = TableMouseDown
  70.       OnMouseMove = ClearStatus
  71.       OnPaint = LinesPaint
  72.     end
  73.     object pntElementLines: TPaintBox
  74.       Left = 195
  75.       Top = 145
  76.       Width = 157
  77.       Height = 57
  78.       Color = clBtnFace
  79.       ParentColor = False
  80.       OnMouseDown = TableMouseDown
  81.       OnMouseMove = ClearStatus
  82.       OnPaint = LinesPaint
  83.     end
  84.     object panLegend: TPanel
  85.       Left = 16
  86.       Top = 10
  87.       Width = 138
  88.       Height = 70
  89.       BevelOuter = bvNone
  90.       BorderStyle = bsSingle
  91.       Ctl3D = True
  92.       ParentColor = True
  93.       ParentCtl3D = False
  94.       TabOrder = 0
  95.       OnDblClick = LegendDblClick
  96.       OnMouseDown = TableMouseDown
  97.       OnMouseMove = Status
  98.       object lblMetals: TLabel
  99.         Left = 3
  100.         Top = 2
  101.         Width = 40
  102.         Height = 16
  103.         AutoSize = False
  104.         Caption = 'Metals'
  105.         Font.Color = clRed
  106.         Font.Height = -13
  107.         Font.Name = 'MS Sans Serif'
  108.         Font.Style = []
  109.         ParentFont = False
  110.         Transparent = True
  111.         OnDblClick = LegendDblClick
  112.         OnMouseDown = TableMouseDown
  113.         OnMouseMove = Status
  114.       end
  115.       object lblNonMetals: TLabel
  116.         Left = 3
  117.         Top = 18
  118.         Width = 65
  119.         Height = 16
  120.         AutoSize = False
  121.         Caption = 'Nonmetals'
  122.         Font.Color = clBlue
  123.         Font.Height = -13
  124.         Font.Name = 'MS Sans Serif'
  125.         Font.Style = []
  126.         ParentFont = False
  127.         Transparent = True
  128.         OnDblClick = LegendDblClick
  129.         OnMouseDown = TableMouseDown
  130.         OnMouseMove = Status
  131.       end
  132.       object lblSemimetals: TLabel
  133.         Left = 3
  134.         Top = 34
  135.         Width = 71
  136.         Height = 16
  137.         AutoSize = False
  138.         Caption = 'Semimetals'
  139.         Font.Color = clPurple
  140.         Font.Height = -13
  141.         Font.Name = 'MS Sans Serif'
  142.         Font.Style = []
  143.         ParentFont = False
  144.         Transparent = True
  145.         OnDblClick = LegendDblClick
  146.         OnMouseDown = TableMouseDown
  147.         OnMouseMove = Status
  148.       end
  149.       object lblGases: TLabel
  150.         Left = 89
  151.         Top = 34
  152.         Width = 40
  153.         Height = 16
  154.         AutoSize = False
  155.         Caption = 'Gases'
  156.         Font.Color = clYellow
  157.         Font.Height = -13
  158.         Font.Name = 'MS Sans Serif'
  159.         Font.Style = []
  160.         ParentFont = False
  161.         Transparent = True
  162.         OnDblClick = LegendDblClick
  163.         OnMouseDown = TableMouseDown
  164.         OnMouseMove = Status
  165.       end
  166.       object lblLiquids: TLabel
  167.         Left = 89
  168.         Top = 18
  169.         Width = 43
  170.         Height = 16
  171.         AutoSize = False
  172.         Caption = 'Liquids'
  173.         Font.Color = clGreen
  174.         Font.Height = -13
  175.         Font.Name = 'MS Sans Serif'
  176.         Font.Style = []
  177.         ParentFont = False
  178.         Transparent = True
  179.         OnDblClick = LegendDblClick
  180.         OnMouseDown = TableMouseDown
  181.         OnMouseMove = Status
  182.       end
  183.       object lblSolids: TLabel
  184.         Left = 89
  185.         Top = 2
  186.         Width = 38
  187.         Height = 16
  188.         AutoSize = False
  189.         Caption = 'Solids'
  190.         Font.Color = clBlack
  191.         Font.Height = -13
  192.         Font.Name = 'MS Sans Serif'
  193.         Font.Style = []
  194.         ParentFont = False
  195.         Transparent = True
  196.         OnDblClick = LegendDblClick
  197.         OnMouseDown = TableMouseDown
  198.         OnMouseMove = Status
  199.       end
  200.       object lblUndefined: TLabel
  201.         Left = 3
  202.         Top = 49
  203.         Width = 62
  204.         Height = 16
  205.         AutoSize = False
  206.         Caption = 'Undefined'
  207.         Font.Color = clGray
  208.         Font.Height = -13
  209.         Font.Name = 'MS Sans Serif'
  210.         Font.Style = []
  211.         ParentFont = False
  212.         Transparent = True
  213.         OnDblClick = LegendDblClick
  214.         OnMouseDown = TableMouseDown
  215.         OnMouseMove = Status
  216.       end
  217.     end
  218.   end
  219.   object ToolBar: TPanel
  220.     Left = 0
  221.     Top = 0
  222.     Width = 538
  223.     Height = 36
  224.     Align = alTop
  225.     BevelOuter = bvNone
  226.     TabOrder = 0
  227.     OnMouseMove = ClearStatus
  228.     OnResize = ToolsResize
  229.     object ToolBarBevel: TBevel
  230.       Left = 0
  231.       Top = 0
  232.       Width = 538
  233.       Height = 3
  234.       Align = alTop
  235.       Shape = bsTopLine
  236.     end
  237.     object butElementInfo: TSpeedButton
  238.       Left = 41
  239.       Top = 4
  240.       Width = 28
  241.       Height = 28
  242.       Hint = 'Element Info'
  243.       Glyph.Data = {
  244.         F6000000424DF600000000000000760000002800000010000000100000000100
  245.         04000000000080000000CE0E0000D80E00000000000000000000000000000000
  246.         80000080000000808000800000008000800080800000C0C0C000808080000000
  247.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  248.         777777777777777777777777777777777777777777FFFF7777777777772222F7
  249.         7777777777722F777777777777722F777777777777722F777777777777F22F77
  250.         7777777777222777777777777777FF777777777777722F777777777777722777
  251.         7777777777777777777777777777777777777777777777777777}
  252.       ParentShowHint = False
  253.       ShowHint = True
  254.       OnClick = MenuClick
  255.       OnMouseMove = Status
  256.     end
  257.     object butHelp: TSpeedButton
  258.       Left = 163
  259.       Top = 4
  260.       Width = 28
  261.       Height = 28
  262.       Hint = 'Help'
  263.       Glyph.Data = {
  264.         F6000000424DF600000000000000760000002800000010000000100000000100
  265.         04000000000080000000CE0E0000D80E00000000000000000000000000000000
  266.         80000080000000808000800000008000800080800000C0C0C000808080000000
  267.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  268.         7777777777777777777777777777777777777777777FF777777777777733F777
  269.         777777777733777777777777777FF777777777777733F777777777777733F777
  270.         7777777777733F77777777777F7733F77777777733FF33F77777777773333F77
  271.         7777777777777777777777777777777777777777777777777777}
  272.       ParentShowHint = False
  273.       ShowHint = True
  274.       OnClick = MenuClick
  275.       OnMouseMove = Status
  276.     end
  277.     object butAbout: TSpeedButton
  278.       Left = 191
  279.       Top = 4
  280.       Width = 28
  281.       Height = 28
  282.       Hint = 'About'
  283.       Glyph.Data = {
  284.         F6000000424DF600000000000000760000002800000010000000100000000100
  285.         04000000000080000000CE0E0000D80E00000000000000000000000000000000
  286.         80000080000000808000800000008000800080800000C0C0C000808080000000
  287.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  288.         7777777777777777777777777777777777777FFFFFF7777777770000000F70F7
  289.         77700F777770F0F7770F0F777770F0F770F70F7777F0F0F70F770F7FFF00F0F0
  290.         F7770F700077700F77770F770F7770F0F7770FFF077770F70F770000777770F7
  291.         70F7777777777777777777777777777777777777777777777777}
  292.       ParentShowHint = False
  293.       ShowHint = True
  294.       OnClick = MenuClick
  295.       OnMouseMove = Status
  296.     end
  297.     object butColor: TSpeedButton
  298.       Left = 8
  299.       Top = 4
  300.       Width = 28
  301.       Height = 28
  302.       Hint = 'Options'
  303.       Glyph.Data = {
  304.         F6000000424DF600000000000000760000002800000010000000100000000100
  305.         0400000000008000000000000000000000001000000010000000000000000000
  306.         80000080000000808000800000008000800080800000C0C0C000808080000000
  307.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  308.         77777117227447997CC77117227447997CC77117227447997CC7711722744799
  309.         7CC77117227447997CC77117227447997CC77117227447997CC7711722744799
  310.         7CC77117227447997CC77117227447997CC77117227447997CC7711722744799
  311.         7CC77117227447997CC77117227447997CC77777777777777777}
  312.       ParentShowHint = False
  313.       ShowHint = True
  314.       OnClick = MenuClick
  315.       OnMouseMove = Status
  316.     end
  317.     object butFind: TSpeedButton
  318.       Left = 69
  319.       Top = 4
  320.       Width = 28
  321.       Height = 28
  322.       Hint = 'Find Element'
  323.       Glyph.Data = {
  324.         F6000000424DF600000000000000760000002800000010000000100000000100
  325.         0400000000008000000084120000841200000000000000000000000000000000
  326.         80000080000000808000800000008000800080800000C0C0C000808080000000
  327.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  328.         1711777777777771711177777777771711177777777771711177777700001711
  329.         17777700777F8111777770877777F8087777707777777F077777077777777770
  330.         7777077777777770777707F777777770777707F777777770777770FF77777707
  331.         7777708FFF777807777777007777007777777777000077777777}
  332.       ParentShowHint = False
  333.       ShowHint = True
  334.       OnClick = MenuClick
  335.       OnMouseMove = Status
  336.     end
  337.     object butTemperature: TSpeedButton
  338.       Left = 97
  339.       Top = 4
  340.       Width = 28
  341.       Height = 28
  342.       Hint = 'Set Temperature'
  343.       Glyph.Data = {
  344.         F6000000424DF600000000000000760000002800000010000000100000000100
  345.         0400000000008000000084120000841200000000000000000000000000000000
  346.         80000080000000808000800000008000800080800000C0C0C000808080000000
  347.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777000777
  348.         7777777770888077777777770888880777777777088888077777777708888807
  349.         7777777770888077777777777708077777777777770807777777777777060777
  350.         77777777770807777777777777080777777777777706077777777777770F0777
  351.         77777777770F0777777777777706077777777777770F07777777}
  352.       ParentShowHint = False
  353.       ShowHint = True
  354.       OnClick = MenuClick
  355.       OnMouseMove = Status
  356.     end
  357.     object butGraph: TSpeedButton
  358.       Left = 130
  359.       Top = 4
  360.       Width = 28
  361.       Height = 28
  362.       Hint = 'Graph Trends'
  363.       Glyph.Data = {
  364.         F6000000424DF600000000000000760000002800000010000000100000000100
  365.         0400000000008000000000000000000000001000000010000000000000000000
  366.         80000080000000808000800000008000800080800000C0C0C000808080000000
  367.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000007
  368.         7777777777700777777777777770077777777777770000777777777777700777
  369.         7777077777700777777007707770077707700000000000000000000000000000
  370.         0000077077700777077007777770077777707777777007777777777777000077
  371.         7777777777700777777777777770077777777777700000077777}
  372.       ParentShowHint = False
  373.       ShowHint = True
  374.       OnClick = MenuClick
  375.       OnMouseMove = Status
  376.     end
  377.     object TempSlider: TScrollBar
  378.       Left = 228
  379.       Top = 7
  380.       Width = 303
  381.       Height = 20
  382.       Hint = 'Temperature Slider'
  383.       Ctl3D = True
  384.       LargeChange = 100
  385.       Max = 6000
  386.       ParentCtl3D = False
  387.       ParentShowHint = False
  388.       ShowHint = True
  389.       TabOrder = 0
  390.       TabStop = False
  391.       OnChange = UpdateTempStatus
  392.     end
  393.   end
  394.   object StatusBar: TStatusBar
  395.     Left = 0
  396.     Top = 316
  397.     Width = 538
  398.     Height = 23
  399.     Panels = <
  400.       item
  401.         Width = 50
  402.       end
  403.       item
  404.         Width = 50
  405.       end>
  406.     SimplePanel = False
  407.     OnResize = ToolsResize
  408.   end
  409.   object MainMenu: TMainMenu
  410.     Left = 480
  411.     Top = 52
  412.     object FileMenu: TMenuItem
  413.       Caption = '&File'
  414.       ShortCut = 0
  415.       OnClick = MenuClick
  416.       object mnuSaveConfigNow: TMenuItem
  417.         Caption = '&Save Config &Now'
  418.         ShortCut = 0
  419.         OnClick = MenuClick
  420.       end
  421.       object mnuSaveConfigOnExit: TMenuItem
  422.         Caption = 'Save Config On &Exit'
  423.         Checked = True
  424.         ShortCut = 0
  425.         OnClick = MenuClick
  426.       end
  427.       object N2: TMenuItem
  428.         Caption = '-'
  429.         ShortCut = 0
  430.       end
  431.       object mnuExit: TMenuItem
  432.         Caption = 'E&xit'
  433.         ShortCut = 0
  434.         OnClick = MenuClick
  435.       end
  436.     end
  437.     object ViewMenu: TMenuItem
  438.       Caption = '&View'
  439.       ShortCut = 0
  440.       object mnuToolbar: TMenuItem
  441.         Caption = '&Toolbar'
  442.         Checked = True
  443.         ShortCut = 0
  444.         OnClick = MenuClick
  445.       end
  446.       object mnuStatusBar: TMenuItem
  447.         Caption = 'Status &Bar'
  448.         Checked = True
  449.         ShortCut = 0
  450.         OnClick = MenuClick
  451.       end
  452.       object N8: TMenuItem
  453.         Caption = '-'
  454.         ShortCut = 0
  455.       end
  456.       object mnuElementOnTop: TMenuItem
  457.         Caption = '&Element Info On Top'
  458.         ShortCut = 0
  459.         OnClick = MenuClick
  460.       end
  461.       object mnuTrendsOnTop: TMenuItem
  462.         Caption = '&Trends Graph On Top'
  463.         ShortCut = 0
  464.         OnClick = MenuClick
  465.       end
  466.       object N1: TMenuItem
  467.         Caption = '-'
  468.         ShortCut = 0
  469.       end
  470.       object mnuNamingScheme: TMenuItem
  471.         Caption = '&Naming Scheme'
  472.         ShortCut = 0
  473.         object mnuIUPACProvisional: TMenuItem
  474.           Caption = 'IUPAC - &Provisional'
  475.           RadioItem = True
  476.           ShortCut = 0
  477.           OnClick = MenuClick
  478.         end
  479.         object mnuIUPACRecommended: TMenuItem
  480.           Caption = 'IUPAC - &Recommended'
  481.           RadioItem = True
  482.           ShortCut = 0
  483.           OnClick = MenuClick
  484.         end
  485.         object mnuACSRecommended: TMenuItem
  486.           Caption = '&ACS - Recommended'
  487.           RadioItem = True
  488.           ShortCut = 0
  489.           OnClick = MenuClick
  490.         end
  491.       end
  492.       object N7: TMenuItem
  493.         Caption = '-'
  494.         ShortCut = 0
  495.       end
  496.       object mnuOptions: TMenuItem
  497.         Caption = '&Options...'
  498.         ShortCut = 0
  499.         OnClick = MenuClick
  500.       end
  501.     end
  502.     object ElementMenu: TMenuItem
  503.       Caption = '&Element'
  504.       ShortCut = 0
  505.       object mnuFindElement: TMenuItem
  506.         Caption = '&Find Element...'
  507.         ShortCut = 16454
  508.         OnClick = MenuClick
  509.       end
  510.       object mnuSetTemperature: TMenuItem
  511.         Caption = 'Set &Temperature...'
  512.         ShortCut = 16468
  513.         OnClick = MenuClick
  514.       end
  515.       object N3: TMenuItem
  516.         Caption = '-'
  517.         ShortCut = 0
  518.       end
  519.       object mnuElementInfo: TMenuItem
  520.         Caption = 'Element &Information'
  521.         ShortCut = 16457
  522.         OnClick = MenuClick
  523.       end
  524.     end
  525.     object TrendsMenu: TMenuItem
  526.       Caption = '&Trends'
  527.       ShortCut = 0
  528.       object mnuNone: TMenuItem
  529.         Caption = '&None'
  530.         Checked = True
  531.         RadioItem = True
  532.         ShortCut = 0
  533.         OnClick = MenuTrendsClick
  534.       end
  535.       object mnuAtomicRadius: TMenuItem
  536.         Caption = 'Atomic &Radius'
  537.         RadioItem = True
  538.         ShortCut = 0
  539.         OnClick = MenuTrendsClick
  540.       end
  541.       object mnuAtomicVolume: TMenuItem
  542.         Caption = 'Atomic &Volume'
  543.         RadioItem = True
  544.         ShortCut = 0
  545.         OnClick = MenuTrendsClick
  546.       end
  547.       object mnuAtomicWeight: TMenuItem
  548.         Caption = 'Atomic &Weight'
  549.         RadioItem = True
  550.         ShortCut = 0
  551.         OnClick = MenuTrendsClick
  552.       end
  553.       object mnuBoilingPoint: TMenuItem
  554.         Caption = '&Boiling Point'
  555.         RadioItem = True
  556.         ShortCut = 0
  557.         OnClick = MenuTrendsClick
  558.       end
  559.       object mnuCovalentRadius: TMenuItem
  560.         Caption = '&Covalent Radius'
  561.         RadioItem = True
  562.         ShortCut = 0
  563.         OnClick = MenuTrendsClick
  564.       end
  565.       object mnuDensity: TMenuItem
  566.         Caption = '&Density'
  567.         RadioItem = True
  568.         ShortCut = 0
  569.         OnClick = MenuTrendsClick
  570.       end
  571.       object mnuElectroConduct: TMenuItem
  572.         Caption = '&Electrical Conductivity'
  573.         RadioItem = True
  574.         ShortCut = 0
  575.         OnClick = MenuTrendsClick
  576.       end
  577.       object mnuElectroneg: TMenuItem
  578.         Caption = 'Electro&negativity'
  579.         RadioItem = True
  580.         ShortCut = 0
  581.         OnClick = MenuTrendsClick
  582.       end
  583.       object mnuFirstIonPoten: TMenuItem
  584.         Caption = '&First Ionization Potential'
  585.         RadioItem = True
  586.         ShortCut = 0
  587.         OnClick = MenuTrendsClick
  588.       end
  589.       object mnuHeatFusion: TMenuItem
  590.         Caption = '&Heat of Fusion'
  591.         RadioItem = True
  592.         ShortCut = 0
  593.         OnClick = MenuTrendsClick
  594.       end
  595.       object mnuHeatVapor: TMenuItem
  596.         Caption = 'Heat of &Vaporization'
  597.         RadioItem = True
  598.         ShortCut = 0
  599.         OnClick = MenuTrendsClick
  600.       end
  601.       object mnuMeltingPoint: TMenuItem
  602.         Caption = '&Melting Point'
  603.         RadioItem = True
  604.         ShortCut = 0
  605.         OnClick = MenuTrendsClick
  606.       end
  607.       object mnuSpecificHeat: TMenuItem
  608.         Caption = '&Specific Heat'
  609.         RadioItem = True
  610.         ShortCut = 0
  611.         OnClick = MenuTrendsClick
  612.       end
  613.       object mnuThermalConduct: TMenuItem
  614.         Caption = '&Thermal Conductivity'
  615.         RadioItem = True
  616.         ShortCut = 0
  617.         OnClick = MenuTrendsClick
  618.       end
  619.       object N4: TMenuItem
  620.         Caption = '-'
  621.         ShortCut = 0
  622.       end
  623.       object mnuGraph: TMenuItem
  624.         Caption = '&Graph Trends'
  625.         ShortCut = 0
  626.         OnClick = MenuClick
  627.       end
  628.     end
  629.     object HelpMenu: TMenuItem
  630.       Caption = '&Help'
  631.       ShortCut = 0
  632.       object mnuHelpContents: TMenuItem
  633.         Caption = 'Help &Contents'
  634.         ShortCut = 112
  635.         OnClick = MenuClick
  636.       end
  637.       object mnuAbout: TMenuItem
  638.         Caption = '&About BK Periodic Library...'
  639.         ShortCut = 0
  640.         OnClick = MenuClick
  641.       end
  642.     end
  643.   end
  644.   object PopupMenu: TPopupMenu
  645.     Left = 488
  646.     Top = 92
  647.     object mnuElementInfoPop: TMenuItem
  648.       Caption = '&Element Information'
  649.       ShortCut = 0
  650.       OnClick = MenuClick
  651.     end
  652.     object N6: TMenuItem
  653.       Caption = '-'
  654.       ShortCut = 0
  655.     end
  656.     object mnuFindPop: TMenuItem
  657.       Caption = '&Find Element...'
  658.       ShortCut = 0
  659.       OnClick = MenuClick
  660.     end
  661.     object mnuTempPop: TMenuItem
  662.       Caption = 'Change &Temperature...'
  663.       ShortCut = 0
  664.       OnClick = MenuClick
  665.     end
  666.     object mnuColorPop: TMenuItem
  667.       Caption = 'Setup &Colours...'
  668.       ShortCut = 0
  669.       OnClick = MenuClick
  670.     end
  671.   end
  672. end
  673.