object frmOptions: TfrmOptions Left = 278 Top = 179 HelpContext = 2 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Options' ClientHeight = 517 ClientWidth = 441 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poDefaultPosOnly OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object butOK: TButton Left = 336 Top = 480 Width = 97 Height = 29 Caption = '&OK' Default = True TabOrder = 3 OnClick = ButtonClick end object butCancel: TButton Left = 232 Top = 480 Width = 97 Height = 29 Cancel = True Caption = '&Cancel' TabOrder = 2 OnClick = ButtonClick end object butHelp: TButton Left = 128 Top = 480 Width = 97 Height = 29 Cancel = True Caption = '&Help' TabOrder = 1 OnClick = ButtonClick end object PageControl: TPageControl Left = 8 Top = 8 Width = 425 Height = 465 ActivePage = TabMain TabOrder = 0 TabStop = False OnChanging = PageControlChanging object TabMain: TTabSheet Caption = 'Main Window' object grpBackColor: TRadioGroup Left = 8 Top = 8 Width = 241 Height = 89 Caption = '&Background Colour' ItemIndex = 0 Items.Strings = ( 'Use the current &Windows setting' 'Use the &silver (grey) colour') TabOrder = 0 OnClick = grpBackColorClick end object grpPreview: TGroupBox Left = 256 Top = 8 Width = 153 Height = 89 Caption = 'Preview' TabOrder = 1 object lblMetals: TLabel Left = 11 Top = 14 Width = 40 Height = 16 AutoSize = False Caption = 'Metals' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblNonMetals: TLabel Left = 11 Top = 30 Width = 65 Height = 16 AutoSize = False Caption = 'Nonmetals' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblSemimetals: TLabel Left = 11 Top = 46 Width = 71 Height = 16 AutoSize = False Caption = 'Semimetals' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblGases: TLabel Left = 97 Top = 46 Width = 40 Height = 16 AutoSize = False Caption = 'Gases' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblLiquids: TLabel Left = 97 Top = 30 Width = 43 Height = 16 AutoSize = False Caption = 'Liquids' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblSolids: TLabel Left = 97 Top = 14 Width = 38 Height = 16 AutoSize = False Caption = 'Solids' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblUndefined: TLabel Left = 43 Top = 61 Width = 62 Height = 16 AutoSize = False Caption = 'Undefined' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end end object grpForeColor: TGroupBox Left = 8 Top = 104 Width = 401 Height = 137 Caption = '&Click on one of the below to choose its colour' TabOrder = 2 object butMetals: TButton Left = 12 Top = 28 Width = 117 Height = 29 Caption = '&Metals' TabOrder = 0 OnClick = ButtonClick end object butNonmetals: TButton Left = 12 Top = 60 Width = 117 Height = 29 Caption = '&Nonmetals' TabOrder = 1 OnClick = ButtonClick end object butSemimetals: TButton Left = 12 Top = 92 Width = 117 Height = 29 Caption = 'S&emimetals' TabOrder = 2 OnClick = ButtonClick end object butSolids: TButton Left = 140 Top = 28 Width = 117 Height = 29 Caption = 'Sol&ids' TabOrder = 3 OnClick = ButtonClick end object butLiquids: TButton Left = 140 Top = 60 Width = 117 Height = 29 Caption = '&Liquids' TabOrder = 4 OnClick = ButtonClick end object butGases: TButton Left = 140 Top = 92 Width = 117 Height = 29 Caption = '&Gases' TabOrder = 5 OnClick = ButtonClick end object butUndefined: TButton Left = 268 Top = 60 Width = 117 Height = 29 Caption = '&Undefined' TabOrder = 6 OnClick = ButtonClick end end object GroupBox1: TGroupBox Left = 8 Top = 248 Width = 401 Height = 177 Caption = 'Background Image' TabOrder = 3 object Button1: TButton Left = 16 Top = 128 Width = 81 Height = 28 Caption = '&Browse...' TabOrder = 0 OnClick = Button1Click end object panImage: TPanel Left = 112 Top = 24 Width = 273 Height = 137 BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 1 object imgBackground: TImage Left = 0 Top = 0 Width = 269 Height = 133 Align = alClient Center = True end end end end object TabInfo: TTabSheet Caption = 'Element Info' object WinBevel1: TWinBevel Left = 29 Top = 109 Width = 349 Height = 37 WinBevel = True end object ElementName: TLabel Left = 25 Top = 112 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 OnClick = ElementClick end object Symbol: TLabel Left = 36 Top = 112 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 OnClick = ElementClick end object Number: TLabel Left = 321 Top = 112 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 OnClick = ElementClick end object Property1: TLabel Left = 26 Top = 152 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 OnClick = ElementClick end object Property2: TLabel Left = 26 Top = 168 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 OnClick = ElementClick end object Label3: TLabel Left = 8 Top = 8 Width = 401 Height = 65 AutoSize = False Caption = 'Click on the desired section below (symbol, name, number, proper' + 'ty, value) to change its display colour in the Element Informati' + 'on window:' OnClick = ElementClick end object Value1: TLabel Left = 200 Top = 152 Width = 177 Height = 16 AutoSize = False Caption = '1.00794 g/mol' OnClick = ElementClick end object Value2: TLabel Left = 200 Top = 168 Width = 177 Height = 16 AutoSize = False Caption = '1' OnClick = ElementClick end object chkUseDefault: TCheckBox Left = 24 Top = 240 Width = 353 Height = 17 Caption = '&Use default colours' State = cbChecked TabOrder = 0 OnClick = chkUseDefaultClick end end object TabGraph: TTabSheet Caption = 'Graph Trends' object Label1: TLabel Left = 8 Top = 8 Width = 401 Height = 65 AutoSize = False Caption = 'Click on the desired section below (value, axis, plot, element p' + 'osition) to change its display colour in the Trends Graph window' + ':' end object Background: TPanel Left = 24 Top = 80 Width = 369 Height = 225 BevelOuter = bvNone BorderStyle = bsSingle Color = clWindow TabOrder = 0 OnMouseUp = GraphClick object Axis1: TShape Left = 33 Top = 16 Width = 5 Height = 177 Pen.Color = clBlue Pen.Width = 5 OnMouseUp = GraphClick end object Axis2: TShape Left = 33 Top = 192 Width = 312 Height = 5 Pen.Color = clBlue Pen.Width = 5 OnMouseUp = GraphClick end object AxVal2: TLabel Left = 24 Top = 195 Width = 7 Height = 16 Caption = '0' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnMouseUp = GraphClick end object AxVal3: TLabel Left = 336 Top = 200 Width = 21 Height = 16 Caption = '109' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnMouseUp = GraphClick end object AxVal1: TLabel Left = 16 Top = 13 Width = 14 Height = 16 Caption = '42' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnMouseUp = GraphClick end object Plot: TShape Left = 96 Top = 80 Width = 169 Height = 5 Pen.Color = clWindowText Pen.Width = 5 OnMouseUp = GraphClick end object Element1: TShape Left = 104 Top = 78 Width = 9 Height = 9 Brush.Color = clGreen Pen.Color = clGreen Pen.Width = 2 Shape = stCircle OnMouseUp = GraphClick end object Element2: TShape Left = 152 Top = 78 Width = 9 Height = 9 Brush.Color = clGreen Pen.Color = clGreen Pen.Width = 2 Shape = stCircle OnMouseUp = GraphClick end object Element3: TShape Left = 216 Top = 78 Width = 9 Height = 9 Brush.Color = clGreen Pen.Color = clGreen Pen.Width = 2 Shape = stCircle OnMouseUp = GraphClick end end object chkUseDefaultGraph: TCheckBox Left = 24 Top = 344 Width = 353 Height = 17 Caption = '&Use default colours' State = cbChecked TabOrder = 1 OnClick = chkUseDefaultGraphClick end end end object sysColour: TColorDialog Ctl3D = True Left = 44 Top = 480 end object sysOpen: TOpenDialog DefaultExt = 'bmp' FileEditStyle = fsEdit Filter = 'Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*' Left = 16 Top = 480 end end