home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2000 September
/
PCWorld_2000-09_cd.bin
/
Software
/
TemaCD
/
currconv
/
currconv.exe
/
0
/
RCDATA
/
TPAGESDLG
/
TPAGESDLG.txt
< prev
Wrap
Text File
|
1999-07-12
|
19KB
|
730 lines
object PagesDlg: TPagesDlg
Left = 190
Top = 107
ActiveControl = ComboBox3
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'The Freeware Currency Converter'
ClientHeight = 173
ClientWidth = 548
Color = clBtnFace
ParentFont = True
Icon.Data = {<image000.ico>}
OldCreateOrder = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl2: TPageControl
Left = 0
Top = 0
Width = 548
Height = 173
ActivePage = Settings
Align = alClient
TabOrder = 0
object Euroland: TTabSheet
Caption = 'User'
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 521
Height = 97
Caption = ' Preferred Currency '
TabOrder = 0
object Label1: TLabel
Left = 107
Top = 44
Width = 22
Height = 13
Alignment = taRightJustify
Caption = 'NLG'
end
object Label2: TLabel
Left = 280
Top = 44
Width = 46
Height = 13
Caption = '= EURO:'
end
object Edit2: TEdit
Left = 384
Top = 40
Width = 121
Height = 21
TabOrder = 1
OnChange = Edit2Change
OnEnter = Edit2Enter
end
object Edit1: TEdit
Left = 144
Top = 40
Width = 121
Height = 21
TabOrder = 0
OnChange = Edit1Change
OnEnter = Edit1Enter
end
end
object Button1: TButton
Left = 374
Top = 112
Width = 75
Height = 25
Hint = 'Copy to Clipboard'
Caption = 'C&opy'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button1Click
end
object Button4: TButton
Left = 8
Top = 112
Width = 75
Height = 25
Hint = 'Copy to clipboard'
Caption = '&Copy'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button4Click
end
object Button5: TButton
Left = 88
Top = 112
Width = 75
Height = 25
Hint = 'Past from Clipboard'
Caption = '&Paste'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Button5Click
end
object Button6: TButton
Left = 454
Top = 112
Width = 75
Height = 25
Hint = 'Past from Clipboard'
Caption = 'P&aste'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = Button6Click
end
end
object European: TTabSheet
Caption = 'World'
object GroupBox2: TGroupBox
Left = 8
Top = 8
Width = 521
Height = 97
Caption = ' World Currency '
TabOrder = 0
object Label3: TLabel
Left = 256
Top = 44
Width = 6
Height = 13
Caption = '='
end
object Edit3: TEdit
Left = 16
Top = 40
Width = 89
Height = 21
TabOrder = 0
OnChange = Edit3Change
OnEnter = Edit3Enter
end
object Edit4: TEdit
Left = 272
Top = 40
Width = 89
Height = 21
TabStop = False
AutoSelect = False
Color = clBtnFace
ReadOnly = True
TabOrder = 3
OnEnter = Edit4Enter
end
object ComboBox1: TComboBox
Left = 112
Top = 40
Width = 137
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = ComboBox1Change
end
object ComboBox2: TComboBox
Left = 368
Top = 40
Width = 137
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
OnChange = ComboBox2Change
end
end
object Button2: TButton
Left = 454
Top = 112
Width = 75
Height = 25
Hint = 'Copy to Clipboard'
Caption = '&Copy'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button2Click
end
object Button7: TButton
Left = 8
Top = 112
Width = 75
Height = 25
Hint = 'Past from Clipboard'
Caption = '&Paste'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button7Click
end
object SwitchButton: TButton
Left = 232
Top = 112
Width = 75
Height = 25
Hint = 'Switch Left and Right'
Caption = '&Switch'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = SwitchButtonClick
end
end
object Settings: TTabSheet
Caption = 'Settings'
ImageIndex = 3
object Label11: TLabel
Left = 272
Top = 116
Width = 37
Height = 13
Caption = 'Source:'
end
object CheckBox2: TCheckBox
Left = 272
Top = 88
Width = 89
Height = 17
Hint = 'Automatically save settings at exit'
BiDiMode = bdLeftToRight
Caption = 'Save Settings'
ParentBiDiMode = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object GroupBox4: TGroupBox
Left = 8
Top = 8
Width = 249
Height = 69
Caption = ' User '
TabOrder = 0
object Label6: TLabel
Left = 8
Top = 18
Width = 39
Height = 13
Caption = 'Curr 1st:'
end
object Label7: TLabel
Left = 8
Top = 42
Width = 43
Height = 13
Caption = 'Curr 2nd:'
end
object ComboBox5: TComboBox
Left = 64
Top = 38
Width = 169
Height = 21
Hint = 'Select currency'
Style = csDropDownList
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = ComboBox5Change
end
object ComboBox3: TComboBox
Left = 64
Top = 14
Width = 169
Height = 21
Hint = 'Select currency'
Style = csDropDownList
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = ComboBox3Change
end
end
object CheckBox4: TCheckBox
Left = 360
Top = 88
Width = 81
Height = 17
Hint = 'Automatically save settings at exit'
Caption = 'Save Rates'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object SaveButton: TButton
Left = 450
Top = 112
Width = 79
Height = 25
Hint = 'Save Settings Now'
Caption = 'Save Now'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = SaveButtonClick
end
object GroupBox3: TGroupBox
Left = 264
Top = 8
Width = 265
Height = 69
Caption = ' Internet '
TabOrder = 1
object Label10: TLabel
Left = 188
Top = 24
Width = 22
Height = 13
Caption = 'Port:'
end
object Label9: TLabel
Left = 8
Top = 24
Width = 29
Height = 13
Caption = 'Proxy:'
end
object Edit7: TEdit
Left = 214
Top = 20
Width = 41
Height = 21
Hint = 'Enter Proxyserver port number'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = Edit7Change
end
object Edit6: TEdit
Left = 40
Top = 20
Width = 145
Height = 21
Hint = 'Enter Proxy-address'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = Edit6Change
end
object CheckBox3: TCheckBox
Left = 72
Top = 46
Width = 73
Height = 17
Hint = 'Use http-proxy'
Caption = 'Use Proxy'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = CheckBox3Click
end
object CheckBox5: TCheckBox
Left = 8
Top = 46
Width = 65
Height = 17
Caption = 'Use File'
TabOrder = 2
OnClick = CheckBox5Click
end
object CheckBox1: TCheckBox
Left = 152
Top = 46
Width = 97
Height = 17
Hint = 'Automatically update once a day'
Caption = 'Auto-Update'
TabOrder = 4
end
end
object GroupBox5: TGroupBox
Left = 8
Top = 80
Width = 249
Height = 57
Caption = ' Decimals '
TabOrder = 3
object Label8: TLabel
Left = 8
Top = 24
Width = 46
Height = 13
Caption = 'Decimals:'
end
object ComboBox4: TComboBox
Left = 64
Top = 20
Width = 33
Height = 21
Hint = 'Select number of decimals'
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = ComboBox4Change
end
object ComboBox6: TComboBox
Left = 104
Top = 20
Width = 129
Height = 21
Hint = 'Select the use of number-grouping'
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Decimal '#39'.'#39' '
'Decimal '#39','#39' '
'Grouping '#39','#39' Decimal '#39'.'#39
'Grouping '#39'.'#39' Decimal '#39','#39)
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = ComboBox6Change
end
end
object ComboBox7: TComboBox
Left = 312
Top = 112
Width = 129
Height = 21
Hint = 'Select Currency-source'
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Pacific'
'IMF')
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnChange = ComboBox7Change
end
object CheckBox6: TCheckBox
Left = 440
Top = 88
Width = 97
Height = 17
Caption = 'Save Position'
TabOrder = 7
end
end
object Rates: TTabSheet
Caption = 'Rates'
ImageIndex = 4
OnExit = RatesExit
object Label12: TLabel
Left = 320
Top = 14
Width = 37
Height = 13
Caption = 'Search:'
end
object Button3: TButton
Left = 8
Top = 8
Width = 97
Height = 25
Hint = 'Load update from Internet'
Caption = '&Internet Update'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = Button3Click
end
object ListView1: TListView
Left = 0
Top = 40
Width = 539
Height = 105
AllocBy = 400
Checkboxes = True
Columns = <
item
Caption = 'Currency'
Width = 210
end
item
Caption = 'Units/USD'
Width = 100
end
item
Caption = 'Last Updated'
Width = 200
end>
HotTrackStyles = []
ReadOnly = True
RowSelect = True
PopupMenu = ValutaPop
TabOrder = 6
ViewStyle = vsReport
OnChange = ListView1Change
OnDblClick = ListView1DblClick
end
object Button8: TButton
Left = 112
Top = 8
Width = 57
Height = 25
Hint = 'Save Exchange Rates'
Caption = '&Save'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button8Click
end
object Button9: TButton
Left = 168
Top = 8
Width = 57
Height = 25
Hint = 'Reload Exchange Rates'
Caption = '&Reload'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = Button9Click
end
object Button12: TButton
Left = 232
Top = 8
Width = 75
Height = 25
Hint = 'Add user-currency'
Caption = '&Add'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = Button12Click
end
object Edit9: TEdit
Left = 362
Top = 10
Width = 89
Height = 21
Hint = 'Enter text to search for'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = Edit9Change
end
object Button10: TButton
Left = 456
Top = 8
Width = 75
Height = 25
Hint = 'Find next'
Caption = 'Find next'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Button10Click
end
end
object About: TTabSheet
Caption = 'About'
ImageIndex = 2
object Image1: TImage
Left = 0
Top = 8
Width = 41
Height = 33
Center = True
Picture.Data = {<image001.ico>}
end
object Label4: TLabel
Left = 48
Top = 8
Width = 166
Height = 13
Caption = 'Copyright (c) 1999 Alex Belgraver - '
end
object Label5: TLabel
Left = 48
Top = 28
Width = 51
Height = 13
Caption = 'WebPage:'
end
object Memo1: TMemo
Left = 0
Top = 48
Width = 539
Height = 97
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
WantReturns = False
end
object Edit5: TEdit
Left = 104
Top = 28
Width = 233
Height = 18
Cursor = crHandPoint
Hint = 'Visit the webpage'
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 1
Text = 'http://www.belgraver.demon.nl/currconv/'
OnClick = Edit5Click
end
object Edit8: TEdit
Left = 216
Top = 8
Width = 129
Height = 21
Cursor = crHandPoint
Hint = 'E-mail Alex'
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 2
Text = 'alex@belgraver.demon.nl'
OnClick = Edit8Click
end
end
end
object ClientSocket1: TClientSocket
Active = False
ClientType = ctNonBlocking
Port = 80
OnConnect = ClientSocket1Connect
OnDisconnect = ClientSocket1Disconnect
OnRead = ClientSocket1Read
OnError = ClientSocket1Error
Left = 504
Top = 8
end
object ValutaPop: TPopupMenu
OnPopup = ValutaPopPopup
Left = 472
Top = 8
object VPopUse1: TMenuItem
Caption = 'Use'
OnClick = VPopUse1Click
OnDrawItem = VPopUse1DrawItem
end
object VPopEdit1: TMenuItem
Caption = 'Edit...'
OnClick = VPopEdit1Click
end
object VPopRemove1: TMenuItem
Caption = 'Remove'
OnClick = VPopRemove1Click
end
end
object ImageList1: TImageList
Left = 440
Top = 8
Bitmap = {
3604000002000000424D36040000000000003600000028000000200000001000
0000010010000000000000040000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000EF0100000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000EF01EF010000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EF01EF01EF01EF01EF01EF01EF01000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EF01EF01EF01EF01EF01EF01EF01EF0100000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000EF01EF01EF01EF01EF01EF01EF01000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000EF01EF010000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000EF0100000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000424D
7E000000000000003E0000002800000020000000100000000100010000000000
400000000000000000000000020000000000000000000000FFFFFF00FFFFFFFF
FFFFFFFFFFFFFFFFFFFFFEFFFFFFFE7FFFFFFE3FFFFFE01FFFFFE00FFFFFE007
FFFFE00FFFFFE01FFFFFFE3FFFFFFE7FFFFFFEFFFFFFFFFFFFFFFFFF}
end
object OpenDialog1: TOpenDialog
Filter =
'Currency HTML Files|rates.html;8101.htm|HTML Files|*.html;*.htm|' +
'All Files (*.*)|*.*'
Left = 408
Top = 8
end
end
