Files
yapetavi/frmtable.lfm
2022-10-24 22:07:20 +02:00

3460 lines
85 KiB
Plaintext

object TableForm: TTableForm
Left = 2560
Height = 620
Hint = 'Calcul de masse molaire (c) 1997-2000 Geoffray BRANDIN.'
Top = 566
Width = 1029
ActiveControl = PageControl1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'YaPeTaVi - Yet another Periodic Table Viewer'
ClientHeight = 588
ClientWidth = 1029
Constraints.MaxHeight = 620
Constraints.MaxWidth = 1029
Constraints.MinHeight = 620
Constraints.MinWidth = 1029
DesignTimePPI = 108
Menu = MainMenu
OnCreate = FormCreate
OnShow = FormShow
Position = poDefault
ShowInTaskBar = stAlways
LCLVersion = '1.9.0.0'
Visible = True
object PageControl1: TPageControl
Left = 8
Height = 568
Top = 8
Width = 1012
ActivePage = tsTable
Anchors = [akTop, akLeft, akRight, akBottom]
ParentFont = False
TabIndex = 0
TabOrder = 0
object tsTable: TTabSheet
Caption = ' Mendeleev Table'
ClientHeight = 536
ClientWidth = 1008
OnMouseMove = tsTableMouseMove
ParentFont = False
object lbContextInfo: TLabel
Left = 304
Height = 20
Top = 45
Width = 91
Caption = 'lbContextInfo'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object pnH: TPanel
Tag = 1
Left = 14
Height = 45
Top = 37
Width = 36
Caption = 'H'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 0
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnLi: TPanel
Left = 14
Height = 45
Top = 82
Width = 36
Caption = 'Li'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 1
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnBe: TPanel
Left = 50
Height = 45
Top = 82
Width = 36
Caption = 'Be'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 2
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNa: TPanel
Left = 14
Height = 45
Top = 127
Width = 36
Caption = 'Na'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 3
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnMg: TPanel
Left = 50
Height = 45
Top = 127
Width = 36
Caption = 'Mg'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 4
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnK: TPanel
Left = 14
Height = 45
Top = 172
Width = 36
Caption = 'K'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 5
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCs: TPanel
Left = 14
Height = 45
Top = 262
Width = 36
Caption = 'Cs'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 6
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnFr: TPanel
Left = 14
Height = 45
Top = 307
Width = 36
Caption = 'Fr'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 7
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRb: TPanel
Left = 14
Height = 45
Top = 217
Width = 36
Caption = 'Rb'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 8
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCa: TPanel
Left = 50
Height = 45
Top = 172
Width = 36
Caption = 'Ca'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 9
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSr: TPanel
Left = 50
Height = 45
Top = 217
Width = 36
Caption = 'Sr'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 10
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnBa: TPanel
Left = 50
Height = 45
Top = 262
Width = 36
Caption = 'Ba'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 11
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRa: TPanel
Left = 50
Height = 45
Top = 307
Width = 36
Caption = 'Ra'
Color = clNavy
ParentColor = False
ParentFont = False
TabOrder = 12
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSc: TPanel
Left = 86
Height = 45
Top = 172
Width = 36
Caption = 'Sc'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 13
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTi: TPanel
Left = 122
Height = 45
Top = 172
Width = 36
Caption = 'Ti'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 14
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnY: TPanel
Left = 86
Height = 45
Top = 217
Width = 36
Caption = 'Y'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 15
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnZr: TPanel
Left = 122
Height = 45
Top = 217
Width = 36
Caption = 'Zr'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 16
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnV: TPanel
Left = 158
Height = 45
Top = 172
Width = 36
Caption = 'V'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 17
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNb: TPanel
Left = 158
Height = 45
Top = 217
Width = 36
Caption = 'Nb'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 18
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnHf: TPanel
Left = 122
Height = 45
Top = 262
Width = 36
Caption = 'Hf'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 19
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRf: TPanel
Left = 122
Height = 45
Top = 307
Width = 36
Caption = 'Rf'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 20
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCr: TPanel
Left = 194
Height = 45
Top = 172
Width = 36
Caption = 'Cr'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 21
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnMo: TPanel
Left = 194
Height = 45
Top = 217
Width = 36
Caption = 'Mo'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 22
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTa: TPanel
Left = 158
Height = 45
Top = 262
Width = 36
Caption = 'Ta'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 23
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnDb: TPanel
Left = 158
Height = 45
Top = 307
Width = 36
Caption = 'Db'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 24
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnW: TPanel
Left = 194
Height = 45
Top = 262
Width = 36
Caption = 'W'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 25
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSg: TPanel
Left = 194
Height = 45
Top = 307
Width = 36
Caption = 'Sg'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 26
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnMn: TPanel
Left = 230
Height = 45
Top = 172
Width = 36
Caption = 'Mn'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 27
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTc: TPanel
Left = 230
Height = 45
Top = 217
Width = 36
Caption = 'Tc'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 28
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRe: TPanel
Left = 230
Height = 45
Top = 262
Width = 36
Caption = 'Re'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 29
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnBh: TPanel
Left = 230
Height = 45
Top = 307
Width = 36
Caption = 'Bh'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 30
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnFe: TPanel
Left = 266
Height = 45
Top = 172
Width = 36
Caption = 'Fe'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 31
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCo: TPanel
Left = 302
Height = 45
Top = 172
Width = 36
Caption = 'Co'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 32
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNi: TPanel
Left = 338
Height = 45
Top = 172
Width = 36
Caption = 'Ni'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 33
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCu: TPanel
Left = 374
Height = 45
Top = 172
Width = 36
Caption = 'Cu'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 34
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnZn: TPanel
Left = 410
Height = 45
Top = 172
Width = 36
Caption = 'Zn'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 35
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCd: TPanel
Left = 410
Height = 45
Top = 217
Width = 36
Caption = 'Cd'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 36
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAg: TPanel
Left = 374
Height = 45
Top = 217
Width = 36
Caption = 'Ag'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 37
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPd: TPanel
Left = 338
Height = 45
Top = 217
Width = 36
Caption = 'Pd'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 38
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRh: TPanel
Left = 302
Height = 45
Top = 217
Width = 36
Caption = 'Rh'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 39
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRu: TPanel
Left = 266
Height = 45
Top = 217
Width = 36
Caption = 'Ru'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 40
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnIr: TPanel
Left = 302
Height = 45
Top = 262
Width = 36
Caption = 'Ir'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 41
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPt: TPanel
Left = 338
Height = 45
Top = 262
Width = 36
Caption = 'Pt'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 42
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAu: TPanel
Left = 374
Height = 45
Top = 262
Width = 36
Caption = 'Au'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 43
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnHg: TPanel
Left = 410
Height = 45
Top = 262
Width = 36
Caption = 'Hg'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 44
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRg: TPanel
Left = 374
Height = 45
Top = 307
Width = 36
Caption = 'Rg'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 45
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnDs: TPanel
Left = 338
Height = 45
Top = 307
Width = 36
Caption = 'Ds'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 46
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnMt: TPanel
Left = 302
Height = 45
Top = 307
Width = 36
Caption = 'Mt'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 47
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnOs: TPanel
Left = 266
Height = 45
Top = 262
Width = 36
Caption = 'Os'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 48
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnHs: TPanel
Left = 266
Height = 45
Top = 307
Width = 36
Caption = 'Hs'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 49
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnGa: TPanel
Left = 446
Height = 45
Top = 172
Width = 36
Caption = 'Ga'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 50
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnGe: TPanel
Left = 482
Height = 45
Top = 172
Width = 36
Caption = 'Ge'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 51
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAs: TPanel
Left = 518
Height = 45
Top = 172
Width = 36
Caption = 'As'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 52
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSe: TPanel
Left = 554
Height = 45
Top = 172
Width = 36
Caption = 'Se'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 53
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnBr: TPanel
Left = 590
Height = 45
Top = 172
Width = 36
Caption = 'Br'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 54
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnKr: TPanel
Left = 626
Height = 45
Top = 172
Width = 36
Caption = 'Kr'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 55
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnIn: TPanel
Left = 446
Height = 45
Top = 217
Width = 36
Caption = 'In'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 56
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSn: TPanel
Left = 482
Height = 45
Top = 217
Width = 36
Caption = 'Sn'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 57
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSb: TPanel
Left = 518
Height = 45
Top = 217
Width = 36
Caption = 'Sb'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 58
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTe: TPanel
Left = 554
Height = 45
Top = 217
Width = 36
Caption = 'Te'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 59
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnI: TPanel
Left = 590
Height = 45
Top = 217
Width = 36
Caption = 'I'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 60
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnXe: TPanel
Left = 626
Height = 45
Top = 217
Width = 36
Caption = 'Xe'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 61
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAl: TPanel
Left = 446
Height = 45
Top = 127
Width = 36
Caption = 'Al'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 62
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSi: TPanel
Left = 482
Height = 45
Top = 127
Width = 36
Caption = 'Si'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 63
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnP: TPanel
Left = 518
Height = 45
Top = 127
Width = 36
Caption = 'P'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 64
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnS: TPanel
Left = 554
Height = 45
Top = 127
Width = 36
Caption = 'S'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 65
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCl: TPanel
Left = 590
Height = 45
Top = 127
Width = 36
Caption = 'Cl'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 66
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAr: TPanel
Left = 626
Height = 45
Top = 127
Width = 36
Caption = 'Ar'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 67
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnB: TPanel
Left = 446
Height = 45
Top = 82
Width = 36
Caption = 'B'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 68
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnC: TPanel
Left = 482
Height = 45
Top = 82
Width = 36
Caption = 'C'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 69
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnN: TPanel
Left = 518
Height = 45
Top = 82
Width = 36
Caption = 'N'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 70
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnO: TPanel
Left = 554
Height = 45
Top = 82
Width = 36
Caption = 'O'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 71
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnF: TPanel
Left = 590
Height = 45
Top = 82
Width = 36
Caption = 'F'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 72
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNe: TPanel
Left = 626
Height = 45
Top = 82
Width = 36
Caption = 'Ne'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 73
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnHe: TPanel
Left = 626
Height = 45
Top = 37
Width = 36
Caption = 'He'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 74
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnBi: TPanel
Left = 518
Height = 45
Top = 262
Width = 36
Caption = 'Bi'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 75
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPo: TPanel
Left = 554
Height = 45
Top = 262
Width = 36
Caption = 'Po'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 76
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPb: TPanel
Left = 482
Height = 45
Top = 262
Width = 36
Caption = 'Pb'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 77
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTl: TPanel
Left = 446
Height = 45
Top = 262
Width = 36
Caption = 'Tl'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 78
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAt: TPanel
Left = 590
Height = 45
Top = 262
Width = 36
Caption = 'At'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 79
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnRn: TPanel
Left = 626
Height = 45
Top = 262
Width = 36
Caption = 'Rn'
Color = clGreen
ParentColor = False
ParentFont = False
TabOrder = 80
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnLa: TPanel
Left = 86
Height = 45
Top = 262
Width = 36
Caption = 'La'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 81
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAc: TPanel
Left = 86
Height = 45
Top = 307
Width = 36
Caption = 'Ac'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 82
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnLa2: TPanel
Left = 590
Height = 45
Top = 363
Width = 36
Caption = 'Lu'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 83
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPr: TPanel
Left = 158
Height = 45
Top = 363
Width = 36
Caption = 'Pr'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 84
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNd: TPanel
Left = 194
Height = 45
Top = 363
Width = 36
Caption = 'Nd'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 85
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPm: TPanel
Left = 230
Height = 45
Top = 363
Width = 36
Caption = 'Pm'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 86
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnYb: TPanel
Left = 554
Height = 45
Top = 363
Width = 36
Caption = 'Yb'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 87
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTm: TPanel
Left = 518
Height = 45
Top = 363
Width = 36
Caption = 'Tm'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 88
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnEr: TPanel
Left = 482
Height = 45
Top = 363
Width = 36
Caption = 'Er'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 89
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnHo: TPanel
Left = 446
Height = 45
Top = 363
Width = 36
Caption = 'Ho'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 90
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnDy: TPanel
Left = 410
Height = 45
Top = 363
Width = 36
Caption = 'Dy'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 91
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTb: TPanel
Left = 374
Height = 45
Top = 363
Width = 36
Caption = 'Tb'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 92
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnGd: TPanel
Left = 338
Height = 45
Top = 363
Width = 36
Caption = 'Gd'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 93
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnEu: TPanel
Left = 302
Height = 45
Top = 363
Width = 36
Caption = 'Eu'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 94
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnSm: TPanel
Left = 266
Height = 45
Top = 363
Width = 36
Caption = 'Sm'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 95
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCe: TPanel
Left = 122
Height = 45
Top = 363
Width = 36
Caption = 'Ce'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 96
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnTh: TPanel
Left = 122
Height = 45
Top = 408
Width = 36
Caption = 'Th'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 97
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPa: TPanel
Left = 158
Height = 45
Top = 408
Width = 36
Caption = 'Pa'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 98
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnU: TPanel
Left = 194
Height = 45
Top = 408
Width = 36
Caption = 'U'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 99
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNp: TPanel
Left = 230
Height = 45
Top = 408
Width = 36
Caption = 'Np'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 100
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnPu: TPanel
Left = 266
Height = 45
Top = 408
Width = 36
Caption = 'Pu'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 101
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnAm: TPanel
Left = 302
Height = 45
Top = 408
Width = 36
Caption = 'Am'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 102
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCm: TPanel
Left = 338
Height = 45
Top = 408
Width = 36
Caption = 'Cm'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 103
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnBk: TPanel
Left = 374
Height = 45
Top = 408
Width = 36
Caption = 'Bk'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 104
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnCf: TPanel
Left = 410
Height = 45
Top = 408
Width = 36
Caption = 'Cf'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 105
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnEs: TPanel
Left = 446
Height = 45
Top = 408
Width = 36
Caption = 'Es'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 106
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnFm: TPanel
Left = 482
Height = 45
Top = 408
Width = 36
Caption = 'Fm'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 107
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnMd: TPanel
Left = 518
Height = 45
Top = 408
Width = 36
Caption = 'Md'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 108
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnNo: TPanel
Left = 554
Height = 45
Top = 408
Width = 36
Caption = 'No'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 109
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnLr: TPanel
Left = 590
Height = 45
Top = 408
Width = 36
Caption = 'Lr'
Color = clMaroon
ParentColor = False
ParentFont = False
TabOrder = 110
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object pnHighlight: TPanel
Left = 151
Height = 120
Top = 43
Width = 130
Caption = 'XX'
ClientHeight = 120
ClientWidth = 130
Font.Height = -18
Font.Style = [fsBold]
ParentFont = False
TabOrder = 111
object lbPName: TLabel
Left = 7
Height = 20
Top = 7
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbPAtNum: TLabel
Left = 44
Height = 20
Top = 66
Width = 8
Alignment = taRightJustify
Caption = '0'
ParentColor = False
ParentFont = False
end
object lbPMass: TLabel
Left = 101
Height = 20
Top = 99
Width = 21
Alignment = taRightJustify
Caption = '0 U'
ParentColor = False
ParentFont = False
end
end
object GroupBox6: TGroupBox
Left = 682
Height = 115
Top = 9
Width = 316
Anchors = [akTop, akRight, akBottom]
Caption = 'Table options'
ClientHeight = 83
ClientWidth = 312
ParentFont = False
TabOrder = 112
object Label20: TLabel
Left = 11
Height = 27
Top = 8
Width = 47
AutoSize = False
Caption = 'Layout:'
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object cbxLayout: TComboBox
Left = 76
Height = 34
Top = 8
Width = 216
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Standard (electronic blocs)'
'Family'
'Mass'
'Discovery year'
'Melting point'
'Boiling point'
'Electronic affinity'
'Covalent radius'
'Van Der Waals radius'
'First ionization energy'
'Second ionization energy'
'Third ionization energy'
'Electronegativity'
)
OnChange = cbxLayoutChange
OnClick = cbxLayoutChange
ParentFont = False
Style = csDropDownList
TabOrder = 0
Text = 'Standard (electronic blocs)'
end
object cbTableApplyFilters: TCheckBox
Left = 11
Height = 24
Top = 44
Width = 112
Caption = 'Apply filter(s)'
OnChange = cbTableApplyFiltersChange
ParentFont = False
TabOrder = 1
end
end
object gbLegend: TGroupBox
Left = 682
Height = 146
Top = 152
Width = 316
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Legend'
ParentFont = False
TabOrder = 113
end
object pnNum1: TPanel
Left = 14
Height = 18
Top = 17
Width = 36
Caption = '1'
ParentFont = False
TabOrder = 114
OnClick = pnElmClick
end
object pnNum2: TPanel
Left = 50
Height = 18
Top = 17
Width = 36
Caption = '2'
ParentFont = False
TabOrder = 115
OnClick = pnElmClick
end
object pnNum3: TPanel
Left = 86
Height = 18
Top = 17
Width = 36
Caption = '3'
ParentFont = False
TabOrder = 116
OnClick = pnElmClick
end
object pnNum4: TPanel
Left = 122
Height = 18
Top = 17
Width = 36
Caption = '4'
ParentFont = False
TabOrder = 117
OnClick = pnElmClick
end
object pnNum5: TPanel
Left = 158
Height = 18
Top = 17
Width = 36
Caption = '5'
ParentFont = False
TabOrder = 118
OnClick = pnElmClick
end
object pnNum6: TPanel
Left = 194
Height = 18
Top = 17
Width = 36
Caption = '6'
ParentFont = False
TabOrder = 119
OnClick = pnElmClick
end
object pnNum7: TPanel
Left = 230
Height = 18
Top = 17
Width = 36
Caption = '7'
ParentFont = False
TabOrder = 120
OnClick = pnElmClick
end
object pnNum8: TPanel
Left = 266
Height = 18
Top = 17
Width = 36
Caption = '8'
ParentFont = False
TabOrder = 121
OnClick = pnElmClick
end
object pnNum9: TPanel
Left = 302
Height = 18
Top = 17
Width = 36
Caption = '9'
ParentFont = False
TabOrder = 122
OnClick = pnElmClick
end
object pnNum10: TPanel
Left = 338
Height = 18
Top = 17
Width = 36
Caption = '10'
ParentFont = False
TabOrder = 123
OnClick = pnElmClick
end
object pnNum11: TPanel
Left = 374
Height = 18
Top = 17
Width = 36
Caption = '11'
ParentFont = False
TabOrder = 124
OnClick = pnElmClick
end
object pnNum12: TPanel
Left = 410
Height = 18
Top = 17
Width = 36
Caption = '12'
ParentFont = False
TabOrder = 125
OnClick = pnElmClick
end
object pnNum13: TPanel
Left = 446
Height = 18
Top = 17
Width = 36
Caption = '13'
ParentFont = False
TabOrder = 126
OnClick = pnElmClick
end
object pnNum14: TPanel
Left = 482
Height = 18
Top = 17
Width = 36
Caption = '14'
ParentFont = False
TabOrder = 127
OnClick = pnElmClick
end
object pnNum15: TPanel
Left = 518
Height = 18
Top = 17
Width = 36
Caption = '15'
ParentFont = False
TabOrder = 128
OnClick = pnElmClick
end
object pnNum16: TPanel
Left = 554
Height = 18
Top = 17
Width = 36
Caption = '16'
ParentFont = False
TabOrder = 129
OnClick = pnElmClick
end
object pnNum17: TPanel
Left = 590
Height = 18
Top = 17
Width = 36
Caption = '17'
ParentFont = False
TabOrder = 130
OnClick = pnElmClick
end
object pnNum18: TPanel
Left = 626
Height = 18
Top = 17
Width = 36
Caption = '18'
ParentFont = False
TabOrder = 131
OnClick = pnElmClick
end
object pnCn: TPanel
Left = 410
Height = 45
Top = 307
Width = 36
Caption = 'Cn'
Color = clPurple
ParentColor = False
ParentFont = False
TabOrder = 132
OnClick = pnElmClick
OnMouseMove = pnElmMouseMove
end
object imgAtom1: TImage
Left = 682
Height = 179
Top = 320
Width = 316
Proportional = True
Stretch = True
end
object Label17: TLabel
Left = 682
Height = 20
Top = 504
Width = 317
Caption = 'Image courtesy of the Wikipedia free encyclopedia.'
ParentColor = False
ParentFont = False
end
end
object tsList: TTabSheet
Caption = 'List'
ClientHeight = 536
ClientWidth = 1008
ParentFont = False
object Panel1: TPanel
Left = 0
Height = 536
Top = 0
Width = 291
Align = alLeft
BevelOuter = bvNone
ClientHeight = 536
ClientWidth = 291
ParentFont = False
TabOrder = 0
object lvList: TListView
Left = 14
Height = 477
Top = 16
Width = 271
Anchors = [akTop, akLeft, akRight, akBottom]
Columns = <
item
Caption = 'Number'
Width = 62
end
item
Caption = 'Symbol'
Width = 62
end
item
Caption = 'Name'
Width = 135
end>
ColumnClick = False
HideSelection = False
ParentFont = False
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnClick = lbListClick
OnDblClick = lbListDblClick
OnKeyPress = lvListKeyPress
OnKeyUp = lvListKeyUp
end
object btnAdd: TButton
Left = 16
Height = 28
Top = 500
Width = 81
Anchors = [akLeft, akBottom]
Caption = 'Add...'
OnClick = btnAddClick
ParentFont = False
TabOrder = 1
end
end
object Splitter1: TSplitter
Left = 291
Height = 536
Top = 0
Width = 6
end
object Panel2: TPanel
Left = 297
Height = 536
Top = 0
Width = 711
Align = alClient
BevelOuter = bvNone
ClientHeight = 536
ClientWidth = 711
ParentFont = False
TabOrder = 2
object GroupBox5: TGroupBox
Left = 0
Height = 110
Top = 408
Width = 558
Anchors = [akTop, akLeft, akRight]
Caption = 'List options'
ClientHeight = 78
ClientWidth = 554
ParentFont = False
TabOrder = 0
object lbUnknownSort: TLabel
Left = 353
Height = 16
Top = 9
Width = 154
AutoSize = False
Caption = 'Unknown values comes:'
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object Label15: TLabel
Left = 12
Height = 15
Top = 9
Width = 277
Caption = 'Short by (change the second column display):'
ParentColor = False
ParentFont = False
end
object cbxSort: TComboBox
Left = 12
Height = 29
Top = 26
Width = 311
Anchors = [akTop, akLeft, akRight]
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Atomic number'
'Alphabetically (Name)'
'Alphabetically (Symbol)'
'Discovery year'
'Mass'
'Melting point'
'Boiling point'
'Electronic affinity'
'Covalent radius'
'Van Der Waals radius'
'First ionisation energy'
'Second ionisation energy'
'Third ionisation energy'
'Electronegativity'
)
OnChange = cbxSortChange
ParentFont = False
Style = csDropDownList
TabOrder = 0
Text = 'Atomic number'
end
object cbListApplyFilter: TCheckBox
Left = 190
Height = 20
Top = 60
Width = 110
Caption = 'Apply filter(s)'
OnChange = cbListApplyFilterChange
ParentFont = False
TabOrder = 1
end
object rbSortFirst: TRadioButton
Left = 353
Height = 20
Top = 24
Width = 54
Caption = 'First'
OnChange = rbSortFirstChange
ParentFont = False
TabOrder = 2
end
object rbSortLast: TRadioButton
Left = 353
Height = 20
Top = 47
Width = 53
Caption = 'Last'
Checked = True
OnChange = rbSortFirstChange
ParentFont = False
TabOrder = 3
TabStop = True
end
object cbxInvertSortOrder: TCheckBox
Left = 12
Height = 20
Top = 60
Width = 126
Caption = 'Invert sort order'
OnChange = cbxInvertSortOrderChange
ParentFont = False
TabOrder = 4
end
end
object PageControl2: TPageControl
Left = 0
Height = 384
Top = 16
Width = 558
ActivePage = tsGlobalInfo
Anchors = [akTop, akLeft, akRight, akBottom]
ParentFont = False
TabIndex = 0
TabOrder = 1
object tsGlobalInfo: TTabSheet
Caption = 'Scientific informations'
ClientHeight = 352
ClientWidth = 554
ParentFont = False
object GroupBox1: TGroupBox
Left = 9
Height = 332
Top = 9
Width = 537
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Scientific informations'
ClientHeight = 300
ClientWidth = 533
ParentFont = False
TabOrder = 0
object Label2: TLabel
Left = 15
Height = 15
Hint = 'Nom de l''atome sélectionné'
Top = 15
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Name:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbName: TLabel
Left = 195
Height = 15
Hint = 'Nom de l''atome sélectionné'
Top = 15
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 15
Height = 15
Hint = 'Masse molaire de l''atome selectionné'
Top = 82
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Mass:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 15
Height = 15
Hint = 'Indique si l''atome selectionné est radioactif ou artificiel'
Top = 267
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Naturally radioactive:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbMass: TLabel
Left = 195
Height = 15
Hint = 'Masse molaire de l''atome selectionné'
Top = 82
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbNatRadio: TLabel
Left = 195
Height = 15
Hint = 'Indique si l''atome selectionné est radioactif ou artificiel'
Top = 267
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label9: TLabel
Left = 15
Height = 15
Hint = 'Numéro atomique de l''atome selectionné'
Top = 65
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Atomic Number:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbAtNumber: TLabel
Left = 195
Height = 15
Hint = 'Numéro atomique de l''atome selectionné'
Top = 65
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label11: TLabel
Left = 15
Height = 15
Hint = 'Durée d''existance des 80% de la radioactivité'
Top = 284
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Half-life:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbRadioHalfLife: TLabel
Left = 195
Height = 15
Hint = 'Durée d''existance des 80% de la radioactivité'
Top = 284
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label1: TLabel
Left = 15
Height = 15
Top = 99
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Melting point:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 15
Height = 15
Top = 116
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Boiling point:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbMeltingPt: TLabel
Left = 195
Height = 15
Top = 99
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbBoilingPt: TLabel
Left = 195
Height = 15
Top = 116
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label6: TLabel
Left = 15
Height = 15
Top = 150
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Electronic configuration:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 15
Height = 15
Top = 133
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Electronic affinity:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label8: TLabel
Left = 15
Height = 15
Top = 166
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Covalent radius:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label10: TLabel
Left = 15
Height = 15
Top = 183
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Van der Waals radius:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label12: TLabel
Left = 15
Height = 15
Top = 200
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Ionisation energy:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label13: TLabel
Left = 15
Height = 15
Top = 250
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Electronegativity:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbElecAff: TLabel
Left = 195
Height = 15
Top = 133
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbVanDerWalsRd: TLabel
Left = 195
Height = 15
Top = 183
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbCovalentRd: TLabel
Left = 195
Height = 15
Top = 166
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbElecConf: TLabel
Left = 195
Height = 15
Top = 150
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbElectroneg: TLabel
Left = 195
Height = 15
Top = 250
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbFirsIonisationEnergy: TLabel
Left = 195
Height = 15
Top = 200
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label19: TLabel
Left = 15
Height = 15
Hint = 'Nom de l''atome sélectionné'
Top = 48
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'Family:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbFamily: TLabel
Left = 195
Height = 15
Hint = 'Nom de l''atome sélectionné'
Top = 48
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object Label16: TLabel
Left = 15
Height = 15
Top = 32
Width = 174
Alignment = taRightJustify
AutoSize = False
Caption = 'CAS Number:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lbCASNumber: TLabel
Left = 195
Height = 15
Top = 32
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbSecondIonisationEnergy: TLabel
Left = 195
Height = 15
Top = 218
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbThirdIonisationEnergy: TLabel
Left = 195
Height = 15
Top = 234
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
end
end
object tsElecConf: TTabSheet
Caption = 'Electronic Configuration'
ClientHeight = 352
ClientWidth = 554
ParentFont = False
object lbExpandedElecConf: TLabel
Left = 9
Height = 15
Top = 7
Width = 209
Caption = 'Unknow electronic distribution'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
end
object Isotopes: TTabSheet
Caption = 'Isotopes'
ParentFont = False
end
object tsHistory: TTabSheet
Caption = 'History'
ClientHeight = 352
ClientWidth = 554
ParentFont = False
object GroupBox2: TGroupBox
Left = 4
Height = 126
Top = 7
Width = 546
Anchors = [akTop, akLeft, akRight]
Caption = 'Discovery'
ClientHeight = 94
ClientWidth = 542
ParentFont = False
TabOrder = 0
object lbDiscovery: TLabel
Left = 11
Height = 88
Top = 11
Width = 510
Anchors = [akTop, akLeft, akRight]
AutoSize = False
ParentColor = False
ParentFont = False
WordWrap = True
end
end
object GroupBox4: TGroupBox
Left = 4
Height = 136
Top = 151
Width = 546
Anchors = [akTop, akLeft, akRight]
Caption = 'Etymology'
ClientHeight = 104
ClientWidth = 542
ParentFont = False
TabOrder = 1
object lbEtimology: TLabel
Left = 11
Height = 90
Top = 11
Width = 510
Anchors = [akTop, akLeft, akRight]
AutoSize = False
ParentColor = False
ParentFont = False
WordWrap = True
end
end
end
object tsAspectUse: TTabSheet
Caption = 'Aspect && Use'
ClientHeight = 352
ClientWidth = 554
ParentFont = False
object imgAtom: TImage
Left = 360
Height = 135
Top = 16
Width = 171
Proportional = True
Stretch = True
end
object GroupBox10: TGroupBox
Left = 9
Height = 135
Top = 16
Width = 342
Caption = 'Aspect'
ClientHeight = 103
ClientWidth = 338
ParentFont = False
TabOrder = 0
object mmAspect: TMemo
Left = 16
Height = 92
Top = 9
Width = 306
BorderStyle = bsNone
Color = clForm
ParentFont = False
ScrollBars = ssAutoVertical
TabOrder = 0
end
end
object GroupBox11: TGroupBox
Left = 9
Height = 199
Top = 160
Width = 523
Caption = 'Use'
ClientHeight = 167
ClientWidth = 519
ParentFont = False
TabOrder = 1
object mmUse: TMemo
Left = 16
Height = 155
Top = 9
Width = 486
BorderStyle = bsNone
Color = clForm
ParentFont = False
ScrollBars = ssAutoVertical
TabOrder = 0
end
end
object lbNoPic: TLabel
Left = 387
Height = 15
Top = 74
Width = 136
Caption = 'No picture available... '
ParentColor = False
ParentFont = False
end
end
end
object pnSelected: TPanel
Left = 567
Height = 120
Top = 26
Width = 130
Caption = 'XX'
ClientHeight = 120
ClientWidth = 130
Font.Height = -18
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object lbPName1: TLabel
Left = 7
Height = 15
Top = 7
Width = 21
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbPAtNum1: TLabel
Left = 44
Height = 15
Top = 66
Width = 8
Alignment = taRightJustify
Caption = '0'
ParentColor = False
ParentFont = False
end
object lbPMass1: TLabel
Left = 101
Height = 15
Top = 99
Width = 21
Alignment = taRightJustify
Caption = '0 U'
ParentColor = False
ParentFont = False
end
end
object btnWikipedia: TBitBtn
Tag = 35
Left = 567
Height = 43
Top = 475
Width = 130
Caption = 'Wikipedia'
OnClick = btnWikipediaClick
ParentFont = False
TabOrder = 3
end
end
end
object tsElemDB: TTabSheet
Caption = 'Elements database'
ParentFont = False
end
object TabSheet1: TTabSheet
Caption = 'Charts'
ClientHeight = 536
ClientWidth = 1008
ParentFont = False
object Label14: TLabel
Left = 16
Height = 15
Top = 440
Width = 76
Anchors = [akLeft, akBottom]
Caption = 'Show labels:'
ParentColor = False
ParentFont = False
end
object Chart: TChart
Left = 4
Height = 368
Top = 7
Width = 756
AxisList = <
item
Grid.Color = clGray
TickColor = clWindowText
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Color = clGreen
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clGray
TickColor = clWindowText
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Color = clNavy
Title.LabelBrush.Style = bsClear
end>
BackColor = clBlack
Foot.Brush.Color = clBlack
Foot.Font.Color = clYellow
Foot.Frame.Color = clWhite
Frame.Color = clWhite
Legend.Font.Color = clWhite
Legend.Frame.Color = clWhite
ReticuleMode = rmCross
Title.Brush.Color = clBlack
Title.Font.Color = clLime
Title.Frame.Color = clYellow
Title.Text.Strings = (
'TAChart'
)
Toolset = ChartToolset
Anchors = [akTop, akLeft, akRight, akBottom]
PopupMenu = pmChart
end
object GroupBox7: TGroupBox
Left = 331
Height = 142
Top = 384
Width = 331
Anchors = [akLeft, akBottom]
Caption = 'X-Axis'
ClientHeight = 110
ClientWidth = 327
ParentFont = False
TabOrder = 1
object lbMaxX: TLabel
Left = 282
Height = 15
Top = 42
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbMinX: TLabel
Left = 282
Height = 15
Top = 60
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbAverageX: TLabel
Left = 282
Height = 15
Top = 78
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbUnitX: TLabel
Left = 282
Height = 15
Top = 96
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbMaxX1: TLabel
Left = 12
Height = 15
Top = 42
Width = 66
Caption = 'Max value:'
ParentColor = False
ParentFont = False
end
object lbMinX1: TLabel
Left = 12
Height = 15
Top = 60
Width = 62
Caption = 'Min value:'
ParentColor = False
ParentFont = False
end
object lbAverageX1: TLabel
Left = 12
Height = 15
Top = 78
Width = 90
Caption = 'Average value:'
ParentColor = False
ParentFont = False
end
object lbUnitX1: TLabel
Left = 12
Height = 15
Top = 96
Width = 29
Caption = 'Unit:'
ParentColor = False
ParentFont = False
end
object cbxXAxis: TComboBox
Left = 12
Height = 29
Top = 8
Width = 294
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Atomic number'
'Mass'
'Melting point'
'Boiling point'
'Electronic affinity'
'Covalent radius'
'Van Der Waals radius'
'First ionisation energy'
)
OnChange = cbxXAxisChange
ParentFont = False
Style = csDropDownList
TabOrder = 0
Text = 'Atomic number'
end
end
object GroupBox9: TGroupBox
Left = 772
Height = 371
Top = 4
Width = 227
Anchors = [akTop, akRight, akBottom]
Caption = 'Range'
ClientHeight = 339
ClientWidth = 223
ParentFont = False
TabOrder = 3
object edRange: TEdit
Left = 9
Height = 29
Top = 8
Width = 130
Anchors = [akTop, akLeft, akRight]
OnChange = edRangeChange
ParentFont = False
TabOrder = 0
Text = '1-111'
end
object btnFullRange: TButton
Left = 146
Height = 28
Top = 9
Width = 57
Anchors = [akTop, akRight]
Caption = 'Full'
OnClick = btnFullRangeClick
ParentFont = False
TabOrder = 1
end
object clbRange: TCheckListBox
Left = 9
Height = 265
Top = 39
Width = 194
Anchors = [akTop, akLeft, akRight, akBottom]
Items.Strings = (
's bloc'
'p bloc'
'd bloc'
'f bloc'
'Alkalines'
'Alkalie metals'
'Transition metals'
'Other metals'
'Metalloids'
'Non-metals'
'Halogens'
'Noble gas'
'Rare earths'
)
ItemHeight = 26
OnClick = clbRangeClick
OnClickCheck = clbRangeClick
ParentFont = False
TabOrder = 2
Data = {
0D00000000000000000000000000000000
}
end
object cbChartApplyFilters: TCheckBox
Left = 9
Height = 20
Top = 312
Width = 100
Anchors = [akLeft, akBottom]
Caption = 'Apply filters'
OnChange = cbChartApplyFiltersChange
ParentFont = False
TabOrder = 3
end
end
object cbDrawLines: TCheckBox
Left = 16
Height = 20
Top = 384
Width = 91
Anchors = [akLeft, akBottom]
Caption = 'Draw lines'
OnChange = cbxChartLabelsChange
ParentFont = False
TabOrder = 4
end
object cbChartUnknowVal: TCheckBox
Left = 16
Height = 20
Top = 408
Width = 226
Anchors = [akLeft, akBottom]
Caption = 'Show atoms with unknown value'
OnChange = cbxChartLabelsChange
ParentFont = False
TabOrder = 5
end
object cbxChartLabels: TComboBox
Left = 104
Height = 29
Top = 436
Width = 212
Anchors = [akLeft, akBottom]
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'None'
'Atom names'
'Atom symbols'
'X values'
'Y values'
)
OnChange = cbxChartLabelsChange
ParentFont = False
Style = csDropDownList
TabOrder = 6
Text = 'None'
end
object GroupBox8: TGroupBox
Left = 667
Height = 142
Top = 384
Width = 332
Anchors = [akLeft, akBottom]
Caption = 'Y-Axis'
ClientHeight = 110
ClientWidth = 328
ParentFont = False
TabOrder = 2
object lbMaxY: TLabel
Left = 287
Height = 15
Top = 42
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbMinY: TLabel
Left = 287
Height = 15
Top = 60
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbAverageY: TLabel
Left = 287
Height = 15
Top = 78
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbUnitY: TLabel
Left = 287
Height = 15
Top = 96
Width = 21
Alignment = taRightJustify
Caption = '(...)'
ParentColor = False
ParentFont = False
end
object lbMaxY1: TLabel
Left = 12
Height = 15
Top = 42
Width = 66
Caption = 'Max value:'
ParentColor = False
ParentFont = False
end
object lbMinY1: TLabel
Left = 12
Height = 15
Top = 60
Width = 62
Caption = 'Min value:'
ParentColor = False
ParentFont = False
end
object lbAverageY1: TLabel
Left = 12
Height = 15
Top = 78
Width = 90
Caption = 'Average value:'
ParentColor = False
ParentFont = False
end
object lbUnitY1: TLabel
Left = 12
Height = 15
Top = 96
Width = 29
Caption = 'Unit:'
ParentColor = False
ParentFont = False
end
object cbxYAxis: TComboBox
Left = 12
Height = 29
Top = 8
Width = 298
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Atomic number'
'Mass'
'Melting point'
'Boiling point'
'Electronic affinity'
'Covalent radius'
'Van Der Waals radius'
'First ionisation energy'
)
OnChange = cbxYAxisChange
ParentFont = False
Style = csDropDownList
TabOrder = 0
Text = 'Atomic number'
end
end
object Label38: TLabel
Left = 16
Height = 15
Top = 482
Width = 44
Caption = 'X start:'
ParentColor = False
ParentFont = False
end
object Label39: TLabel
Left = 16
Height = 15
Top = 511
Width = 44
Caption = 'Y start:'
ParentColor = False
ParentFont = False
end
object Label40: TLabel
Left = 176
Height = 15
Top = 482
Width = 39
Caption = 'X end:'
ParentColor = False
ParentFont = False
end
object Label41: TLabel
Left = 177
Height = 15
Top = 511
Width = 38
Caption = 'Y end:'
ParentColor = False
ParentFont = False
end
object sedXStart: TFloatSpinEdit
Left = 68
Height = 29
Top = 472
Width = 94
MaxValue = 10000
MinValue = -10000
OnChange = sedXStartChange
ParentFont = False
TabOrder = 7
Value = 0
end
object sedYStart: TFloatSpinEdit
Left = 68
Height = 29
Top = 504
Width = 94
MaxValue = 10000
MinValue = -10000
OnChange = sedYStartChange
ParentFont = False
TabOrder = 8
Value = 0
end
object sedXEnd: TFloatSpinEdit
Left = 224
Height = 29
Top = 472
Width = 94
MaxValue = 10000
MinValue = -10000
OnChange = sedXEndChange
ParentFont = False
TabOrder = 9
Value = 0
end
object sedYEnd: TFloatSpinEdit
Left = 224
Height = 29
Top = 504
Width = 94
MaxValue = 10000
MinValue = -10000
OnChange = sedYEndChange
ParentFont = False
TabOrder = 10
Value = 0
end
end
object TabSheet2: TTabSheet
Caption = 'Filters'
ClientHeight = 536
ClientWidth = 1008
ParentFont = False
object lvFilters: TListView
Left = 14
Height = 261
Top = 17
Width = 972
Columns = <
item
Caption = 'Kind'
Width = 338
end
item
Alignment = taRightJustify
Caption = 'Minimum'
Width = 79
end
item
Alignment = taRightJustify
Caption = 'Maximum'
Width = 79
end
item
Caption = 'Display unknown'
Width = 105
end>
HideSelection = False
ParentFont = False
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnChange = lvFiltersChange
OnClick = lvFiltersClick
OnSelectItem = lvFiltersSelectItem
end
object gbState: TGroupBox
Left = 428
Height = 230
Top = 287
Width = 387
Caption = 'By state of matter'
ClientHeight = 198
ClientWidth = 383
ParentFont = False
TabOrder = 1
object Label32: TLabel
Left = 12
Height = 15
Top = 24
Width = 36
Caption = 'State:'
ParentColor = False
ParentFont = False
end
object cbxState: TComboBox
Left = 125
Height = 29
Top = 15
Width = 245
ItemHeight = 26
Items.Strings = (
'Gas'
'Liquid'
'Solid'
'Not Gas'
'Not Liquid'
'Not Solid'
)
ParentFont = False
Style = csDropDownList
TabOrder = 0
end
object Label33: TLabel
Left = 12
Height = 15
Top = 55
Width = 96
Caption = 'At temperature:'
ParentColor = False
ParentFont = False
end
object rbStateKelvin: TRadioButton
Left = 125
Height = 20
Top = 84
Width = 64
Caption = 'Kelvin'
Checked = True
OnChange = rbStateKelvinChange
ParentFont = False
TabOrder = 1
TabStop = True
end
object rbStateCelcius: TRadioButton
Left = 242
Height = 20
Top = 84
Width = 71
Caption = 'Celcius'
OnChange = rbStateCelciusChange
ParentFont = False
TabOrder = 3
end
object cbStateShowUnknown: TCheckBox
Left = 12
Height = 20
Top = 109
Width = 217
Caption = 'Display when value is unknown'
Checked = True
ParentFont = False
State = cbChecked
TabOrder = 2
end
object sedStateTemp: TFloatSpinEdit
Left = 125
Height = 29
Top = 48
Width = 245
MaxValue = 5870
MinValue = -273.16
ParentFont = False
TabOrder = 4
Value = 0
end
object btnAddState: TBitBtn
Tag = 36
Left = 245
Height = 34
Top = 160
Width = 125
Caption = 'Add state'
OnClick = btnAddStateClick
ParentFont = False
TabOrder = 5
end
end
object GroupBox3: TGroupBox
Left = 14
Height = 230
Top = 287
Width = 405
Caption = 'Filter'
ClientHeight = 198
ClientWidth = 401
ParentFont = False
TabOrder = 2
object cbFilterKind: TComboBox
Left = 120
Height = 29
Top = 10
Width = 261
ItemHeight = 26
ItemIndex = 0
Items.Strings = (
'Discovery date'
'Mass'
'Electronic affinity'
'Melting point'
'Boiling point'
'Covalent radius'
'Van der Waals radius'
'First ionisation energy'
'Second ionisation energy'
'Third ionisation energy'
'Electronegativity'
)
OnChange = cbFilterKindChange
ParentFont = False
Style = csDropDownList
TabOrder = 0
Text = 'Discovery date'
end
object Label42: TLabel
Left = 12
Height = 15
Top = 15
Width = 31
Caption = 'Kind:'
ParentColor = False
ParentFont = False
end
object Label22: TLabel
Left = 12
Height = 15
Top = 52
Width = 97
Caption = 'Minimum value:'
ParentColor = False
ParentFont = False
end
object Label23: TLabel
Left = 12
Height = 15
Top = 82
Width = 100
Caption = 'Maximum value:'
ParentColor = False
ParentFont = False
end
object sedFilterMin: TFloatSpinEdit
Left = 120
Height = 29
Top = 44
Width = 261
DecimalPlaces = 5
MinValue = 0
ParentFont = False
TabOrder = 1
Value = 0
end
object sedFilterMax: TFloatSpinEdit
Left = 120
Height = 29
Top = 76
Width = 267
DecimalPlaces = 5
MaxValue = 3800
MinValue = 0
ParentFont = False
TabOrder = 2
Value = 0
end
object cbShowUnknown: TCheckBox
Left = 12
Height = 20
Top = 119
Width = 277
Caption = 'Display elements when value is unknown'
Checked = True
OnChange = cbShowUnknownChange
ParentFont = False
State = cbChecked
TabOrder = 3
end
object btnChangeFilter: TBitBtn
Tag = 38
Left = 270
Height = 34
Top = 160
Width = 117
Caption = 'Change'
OnClick = btnChangeFilterClick
ParentFont = False
TabOrder = 4
end
object btnAddFilter: TBitBtn
Tag = 36
Left = 144
Height = 34
Top = 160
Width = 117
Caption = 'Add'
OnClick = btnAddFilterClick
ParentFont = False
TabOrder = 5
end
end
object btnSaveFilterSet: TBitBtn
Tag = 4
Left = 824
Height = 34
Top = 287
Width = 162
Caption = 'Save filter set...'
OnClick = btnSaveFilterSetClick
ParentFont = False
TabOrder = 3
end
object btnOpenFilterSet: TBitBtn
Tag = 2
Left = 824
Height = 34
Top = 344
Width = 162
Caption = 'Open filter set...'
OnClick = btnOpenFilterSetClick
ParentFont = False
TabOrder = 4
end
object btnAddFilterSet: TBitBtn
Tag = 36
Left = 824
Height = 34
Top = 384
Width = 162
Caption = 'Add filter set...'
OnClick = btnAddFilterSetClick
ParentFont = False
TabOrder = 5
end
object btnClearFilterSet: TBitBtn
Tag = 32
Left = 824
Height = 34
Top = 480
Width = 162
Caption = 'Clear filter set'
OnClick = btnClearFilterSetClick
ParentFont = False
TabOrder = 6
end
object btnRemoveFilter: TBitBtn
Tag = 37
Left = 824
Height = 34
Top = 439
Width = 162
Caption = 'Remove'
OnClick = btnRemoveFilterClick
ParentFont = False
TabOrder = 7
end
end
end
object MainMenu: TMainMenu
left = 603
object mnuFile: TMenuItem
Caption = '&File'
object MenuItem4: TMenuItem
Caption = 'Debug'
object mnuHeapStatus: TMenuItem
Caption = 'Heap Status...'
OnClick = mnuHeapStatusClick
end
object mnuShowFilterList: TMenuItem
Caption = 'Show filter list...'
OnClick = mnuShowFilterListClick
end
object MenuItem5: TMenuItem
Caption = 'New Item17'
OnClick = MenuItem5Click
end
end
object mnuOpenConsole: TMenuItem
Caption = 'Open &console'
OnClick = mnuOpenConsoleClick
end
object MenuItem3: TMenuItem
Caption = '-'
end
object mnuExit: TMenuItem
Caption = 'E&xit'
ImageIndex = 9
ShortCut = 16384
OnClick = btnExitClick
end
end
object mnuTools: TMenuItem
Caption = '&Tools'
object mnuDiscoverer: TMenuItem
Caption = '&Discoverer list'
OnClick = mnuDiscovererClick
end
object mnuMassCalc: TMenuItem
Caption = '&Mass calculator'
OnClick = btnMassCalcClick
end
object MenuItem2: TMenuItem
Caption = '-'
end
object mnuConfigure: TMenuItem
Caption = '&Configure YaPeTaVi...'
ImageIndex = 34
OnClick = mnuConfigureClick
end
end
object mnuHelp: TMenuItem
Caption = '&Help'
object mnuManual: TMenuItem
Caption = 'Online manual'
ImageIndex = 31
end
object MenuItem1: TMenuItem
Caption = '-'
end
object mnuAbout: TMenuItem
Caption = '&About...'
ImageIndex = 26
OnClick = mnuAboutClick
end
end
end
object pmChart: TPopupMenu
left = 665
object mnuFullZoom: TMenuItem
Caption = 'Zoom full'
OnClick = mnuFullZoomClick
end
end
object ChartToolset: TChartToolset
left = 729
end
object dlgSave: TSaveDialog
left = 807
end
object dlgOpen: TOpenDialog
left = 873
end
object IniPropStorage: TIniPropStorage
StoredValues = <>
left = 531
end
end