home *** CD-ROM | disk | FTP | other *** search
- object EInfo: TEInfo
- Left = 192
- Top = 107
- BorderStyle = bsDialog
- Caption = 'Information about the element'
- ClientHeight = 405
- ClientWidth = 566
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 233
- Height = 153
- Caption = 'General information:'
- TabOrder = 0
- object Label2: TLabel
- Left = 8
- Top = 60
- Width = 37
- Height = 13
- Caption = 'Symbol:'
- end
- object Label3: TLabel
- Left = 8
- Top = 92
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Label4: TLabel
- Left = 8
- Top = 124
- Width = 80
- Height = 13
- Caption = 'Av. atomic mass:'
- end
- object Label1: TLabel
- Left = 8
- Top = 28
- Width = 73
- Height = 13
- Caption = 'Atomic number:'
- end
- object AnumEdit: TEdit
- Left = 96
- Top = 24
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 0
- end
- object SymbolEdit: TEdit
- Left = 96
- Top = 56
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 1
- end
- object NameEdit: TEdit
- Left = 96
- Top = 88
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 2
- end
- object MassEdit: TEdit
- Left = 96
- Top = 120
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 3
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 176
- Width = 233
- Height = 177
- Caption = 'Physical properties:'
- TabOrder = 1
- object Label5: TLabel
- Left = 8
- Top = 20
- Width = 60
- Height = 13
- Caption = 'Boiling point:'
- end
- object Label6: TLabel
- Left = 8
- Top = 52
- Width = 63
- Height = 13
- Caption = 'Melting point:'
- end
- object Label7: TLabel
- Left = 8
- Top = 84
- Width = 38
- Height = 13
- Caption = 'Density:'
- end
- object Label8: TLabel
- Left = 8
- Top = 116
- Width = 81
- Height = 13
- Caption = 'Electronegativity:'
- end
- object Label9: TLabel
- Left = 8
- Top = 148
- Width = 83
- Height = 13
- Caption = 'Ionization energy:'
- end
- object BoilingEdit: TEdit
- Left = 96
- Top = 16
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 0
- end
- object MeltingEdit: TEdit
- Left = 96
- Top = 48
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 1
- end
- object DensityEdit: TEdit
- Left = 96
- Top = 80
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 2
- end
- object ElectronegativityEdit: TEdit
- Left = 96
- Top = 112
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 3
- end
- object EnergyEdit: TEdit
- Left = 96
- Top = 144
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 4
- end
- end
- object GroupBox3: TGroupBox
- Left = 256
- Top = 8
- Width = 289
- Height = 153
- Caption = 'Isotopes:'
- TabOrder = 2
- object Label10: TLabel
- Left = 8
- Top = 28
- Width = 105
- Height = 13
- Caption = 'No. of stable isotopes:'
- end
- object Label11: TLabel
- Left = 8
- Top = 60
- Width = 74
- Height = 13
- Caption = 'No. of isotopes:'
- end
- object Label12: TLabel
- Left = 8
- Top = 92
- Width = 133
- Height = 13
- Caption = 'Mass of most stable isotope:'
- end
- object Label13: TLabel
- Left = 8
- Top = 124
- Width = 125
- Height = 13
- Caption = 'Half-life of most stable iso.:'
- end
- object SIsoNoEdit: TEdit
- Left = 152
- Top = 24
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 0
- end
- object IsoNoEdit: TEdit
- Left = 152
- Top = 56
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 1
- end
- object IsoMassEdit: TEdit
- Left = 152
- Top = 88
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 2
- end
- object IsoLifeEdit: TEdit
- Left = 152
- Top = 120
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 3
- end
- end
- object GroupBox4: TGroupBox
- Left = 256
- Top = 176
- Width = 289
- Height = 177
- Caption = 'Discovery:'
- TabOrder = 3
- object Label14: TLabel
- Left = 8
- Top = 20
- Width = 85
- Height = 13
- Caption = 'Year of discovery:'
- end
- object Label15: TLabel
- Left = 8
- Top = 80
- Width = 54
- Height = 13
- Caption = 'Discoverer:'
- end
- object Label16: TLabel
- Left = 8
- Top = 52
- Width = 93
- Height = 13
- Caption = 'Earth crust content:'
- end
- object YearEdit: TEdit
- Left = 152
- Top = 16
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 0
- end
- object DiscovererMemo: TMemo
- Left = 8
- Top = 96
- Width = 273
- Height = 73
- TabOrder = 1
- end
- object CrustEdit: TEdit
- Left = 152
- Top = 48
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 2
- end
- end
- object OKButton: TButton
- Left = 246
- Top = 368
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 4
- end
- end
-