PC World Komputer 1999 January/pcwk_01_1999.iso/Top100sh/Edukacja/BKPERLIB/PERLIB32.EXE/0/RCDATA/TFRMELEMENTINFO/TFRMELEMENTINFO.txt

Text File | 1997-10-19 | 16KB | 789 lines

object frmElementInfo: TfrmElementInfo
  Left = 283
  Top = 242
  HelpContext = 3
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  ActiveControl = butClose
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'Hydrogen - Element Information'
  ClientHeight = 397
  ClientWidth = 359
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnHide = FormHide
  OnPaint = FormPaint
  OnShow = UpdateInfo
  PixelsPerInch = 120
  TextHeight = 16
  object WinBevel1: TWinBevel
    Left = 5
    Top = 5
    Width = 349
    Height = 37
    WinBevel = True
  end
  object ElementName: TLabel
    Left = 1
    Top = 8
    Width = 359
    Height = 29
    Alignment = taCenter
    AutoSize = False
    Caption = 'Hydrogen'
    Font.Color = clWindowText
    Font.Height = -23
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Symbol: TLabel
    Left = 12
    Top = 8
    Width = 49
    Height = 29
    AutoSize = False
    Caption = 'H'
    Font.Color = clRed
    Font.Height = -23
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Number: TLabel
    Left = 297
    Top = 8
    Width = 50
    Height = 29
    Alignment = taRightJustify
    AutoSize = False
    Caption = '1'
    Font.Color = clBlue
    Font.Height = -23
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Tag = 2
    Left = 2
    Top = 48
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Atomic Weight:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Tag = 3
    Left = 2
    Top = 64
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Oxidation States:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Tag = 2
    Left = 2
    Top = 80
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Boiling Point:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Tag = 3
    Left = 2
    Top = 96
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Melting Point:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Tag = 2
    Left = 2
    Top = 112
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Density:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label6: TLabel
    Tag = 3
    Left = 2
    Top = 128
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Electron Configuration:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label7: TLabel
    Tag = 2
    Left = 2
    Top = 144
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Acid/Base Properties:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label8: TLabel
    Tag = 3
    Left = 2
    Top = 160
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Crystal Structure:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label9: TLabel
    Tag = 2
    Left = 2
    Top = 176
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Electronegativity:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label10: TLabel
    Tag = 3
    Left = 2
    Top = 192
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Heat of Vaporization:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label11: TLabel
    Tag = 2
    Left = 2
    Top = 208
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Heat of Fusion:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label12: TLabel
    Tag = 3
    Left = 2
    Top = 224
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Electrical Conductivity:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label13: TLabel
    Tag = 2
    Left = 2
    Top = 240
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Thermal Conductivity:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label14: TLabel
    Tag = 3
    Left = 2
    Top = 256
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Specific Heat Capacity:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label15: TLabel
    Tag = 2
    Left = 2
    Top = 272
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'First Ionization Potential:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label16: TLabel
    Tag = 3
    Left = 2
    Top = 288
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Atomic Volume:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label17: TLabel
    Tag = 2
    Left = 2
    Top = 304
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Atomic Radius:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label18: TLabel
    Tag = 3
    Left = 2
    Top = 320
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Covalent Radius:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label19: TLabel
    Tag = 2
    Left = 2
    Top = 336
    Width = 170
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Synthetic:'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Weight: TEdit
    Tag = 4
    Left = 177
    Top = 48
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    Text = '1.00794 g/mol'
  end
  object OxidationStates: TEdit
    Tag = 5
    Left = 177
    Top = 64
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    Text = '1'
  end
  object BoilingPoint: TEdit
    Tag = 4
    Left = 177
    Top = 80
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    Text = '20.28 K'
  end
  object MeltingPoint: TEdit
    Tag = 5
    Left = 177
    Top = 96
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
    Text = '13.81 K'
  end
  object Density: TEdit
    Tag = 4
    Left = 177
    Top = 112
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
    Text = '0.0899 (Gas 273K) g/l'
  end
  object ElectronConfig: TEdit
    Tag = 5
    Left = 177
    Top = 128
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    Text = '1s1'
  end
  object AcidBaseProp: TEdit
    Tag = 4
    Left = 177
    Top = 144
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 6
    Text = 'Amphoteric'
  end
  object CrystalStruct: TEdit
    Tag = 5
    Left = 177
    Top = 160
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
    Text = 'Hexagonal'
  end
  object ElectroNeg: TEdit
    Tag = 4
    Left = 177
    Top = 176
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 8
    Text = '2.10'
  end
  object HeatVapor: TEdit
    Tag = 5
    Left = 177
    Top = 192
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
    Text = '0.4581 kj/mol'
  end
  object HeatFusion: TEdit
    Tag = 4
    Left = 177
    Top = 208
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
    Text = '0.0585 kj/mol'
  end
  object ElectroConduct: TEdit
    Tag = 5
    Left = 177
    Top = 224
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
    Text = '--'
  end
  object ThermalConduct: TEdit
    Tag = 4
    Left = 177
    Top = 240
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 12
    Text = '0.1815 Wm-�K-�'
  end
  object SpecificHeat: TEdit
    Tag = 5
    Left = 177
    Top = 256
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
    Text = '14.304 Jg-�K-�'
  end
  object FstIonPoten: TEdit
    Tag = 4
    Left = 177
    Top = 272
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
    Text = '13.598 V'
  end
  object Volume: TEdit
    Tag = 5
    Left = 177
    Top = 288
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 15
    Text = '14.10 cm�/mol'
  end
  object AtomicRadius: TEdit
    Tag = 4
    Left = 177
    Top = 304
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 16
    Text = '2.08 �'
  end
  object CovalentRadius: TEdit
    Tag = 5
    Left = 177
    Top = 320
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 17
    Text = '0.32 �'
  end
  object Synthetic: TEdit
    Tag = 4
    Left = 177
    Top = 336
    Width = 180
    Height = 17
    AutoSize = False
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = True
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 18
    Text = 'False'
  end
  object butClose: TButton
    Left = 261
    Top = 364
    Width = 93
    Height = 29
    Cancel = True
    Caption = '&Close'
    Default = True
    TabOrder = 21
    OnClick = butClick
  end
  object butHelp: TButton
    Left = 161
    Top = 364
    Width = 93
    Height = 29
    Caption = '&Help'
    TabOrder = 20
    OnClick = butClick
  end
  object butCopy: TButton
    Left = 4
    Top = 364
    Width = 110
    Height = 29
    Caption = 'Copy &All Info'
    TabOrder = 19
    OnClick = butClick
  end
end