home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 January
/
pcwk_01_1999.iso
/
Top100sh
/
Edukacja
/
BKPERLIB
/
PERLIB32.EXE
/
0
/
RCDATA
/
TFRMOPTIONS
/
TFRMOPTIONS.txt
Wrap
Text File
|
1997-10-19
|
14KB
|
565 lines
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
