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