home *** CD-ROM | disk | FTP | other *** search
- object EInfo2: TEInfo2
- Left = 195
- Top = 111
- BorderIcons = [biMinimize]
- BorderStyle = bsDialog
- Caption =
- 'Information about the element (if you can'#39't see something, click' +
- ' on it)'
- ClientHeight = 371
- ClientWidth = 565
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object OKButton: TButton
- Left = 480
- Top = 16
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 329
- Height = 273
- Caption = 'List of properties:'
- TabOrder = 1
- object StringGrid1: TStringGrid
- Left = 8
- Top = 16
- Width = 313
- Height = 249
- ColCount = 2
- DefaultRowHeight = 14
- FixedCols = 0
- RowCount = 16
- FixedRows = 0
- ScrollBars = ssNone
- TabOrder = 0
- OnSelectCell = StringGrid1SelectCell
- ColWidths = (
- 150
- 156)
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 296
- Width = 545
- Height = 57
- Caption = 'Electron configuration:'
- TabOrder = 2
- object Memo1: TMemo
- Left = 8
- Top = 16
- Width = 529
- Height = 33
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Courier'
- Font.Style = []
- Lines.Strings = (
- ' '
- ' ')
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- end
- object GroupBox3: TGroupBox
- Left = 352
- Top = 48
- Width = 201
- Height = 65
- Caption = 'Valence electrons:'
- TabOrder = 3
- object VELev: TLabel
- Left = 130
- Top = 16
- Width = 6
- Height = 13
- Caption = '0'
- end
- object Label2: TLabel
- Left = 8
- Top = 16
- Width = 102
- Height = 13
- Caption = 'Valence energy level:'
- end
- object Label3: TLabel
- Left = 8
- Top = 32
- Width = 73
- Height = 13
- Caption = 'Valence orbital:'
- end
- object Label4: TLabel
- Left = 8
- Top = 48
- Width = 119
- Height = 13
- Caption = 'No. of valence electrons:'
- end
- object VOrb: TLabel
- Left = 130
- Top = 32
- Width = 11
- Height = 13
- Caption = '1s'
- end
- object VENo: TLabel
- Left = 130
- Top = 48
- Width = 6
- Height = 13
- Caption = '0'
- end
- end
- object GroupBox4: TGroupBox
- Left = 352
- Top = 128
- Width = 137
- Height = 57
- Caption = 'Orbital box diagram:'
- TabOrder = 4
- object LOrb1: TLabel
- Left = 14
- Top = 40
- Width = 11
- Height = 13
- Alignment = taCenter
- Caption = '3s'
- end
- object LOrb2: TLabel
- Left = 80
- Top = 40
- Width = 12
- Height = 13
- Alignment = taCenter
- Caption = '3p'
- end
- object Edit2: TEdit
- Left = 53
- Top = 16
- Width = 20
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- Text = '��'
- end
- object Edit3: TEdit
- Left = 77
- Top = 16
- Width = 20
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- Text = '��'
- end
- object Edit4: TEdit
- Left = 101
- Top = 16
- Width = 20
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 2
- Text = '��'
- end
- object Edit1: TEdit
- Left = 13
- Top = 16
- Width = 20
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 3
- Text = '��'
- end
- end
- object GroupBox5: TGroupBox
- Left = 352
- Top = 200
- Width = 201
- Height = 81
- Caption = 'Electron dot diagram:'
- TabOrder = 5
- object LSymbol: TLabel
- Left = 72
- Top = 32
- Width = 16
- Height = 31
- Alignment = taCenter
- Caption = 'F'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -27
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Dot6: TLabel
- Left = 104
- Top = 35
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot2: TLabel
- Left = 104
- Top = 44
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot1: TLabel
- Left = 92
- Top = 24
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot5: TLabel
- Left = 84
- Top = 24
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot4: TLabel
- Left = 64
- Top = 35
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot3: TLabel
- Left = 84
- Top = 56
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot7: TLabel
- Left = 92
- Top = 56
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object Dot8: TLabel
- Left = 64
- Top = 44
- Width = 5
- Height = 13
- Caption = '�'
- Font.Charset = SYMBOL_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Symbol'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- end
- end
-