home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trailer Life - RV Campground Finder 2001
/
BIN+CUE.zip
/
TLUSAMAPS.bin
/
MAPPRO40.OC_
/
MAPPRO40.OC
/
0
/
RCDATA
/
TLOCATOR
/
TLOCATOR.txt
Wrap
Text File
|
2000-08-09
|
8KB
|
331 lines
object Locator: TLocator
Left = 52
Top = 97
BorderIcons = []
BorderStyle = bsNone
ClientHeight = 266
ClientWidth = 337
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object tsizer4: tsizer
Left = 0
Top = 0
Width = 337
Height = 266
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Caption = 'Point Locator'
Bw = 8
OnMouseDown = tsizer4MouseDown
OnSpclose = tsizer4Spclose
Anchor = False
object TabControl1: TTabControl
Left = 9
Top = 34
Width = 319
Height = 193
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabIndex = 0
TabOrder = 0
Tabs.Strings = (
' Address'
' Place'
' Zip'
' Phone'
' Lon/Lat')
OnChange = TabControl1Change
object GroupBox1: TGroupBox
Left = 12
Top = 84
Width = 293
Height = 81
Caption = ' Format Examples '
TabOrder = 3
object Label3: TLabel
Left = 12
Top = 24
Width = 114
Height = 13
Caption = '1) -87.66342, 41.99654'
end
object Label4: TLabel
Left = 12
Top = 40
Width = 114
Height = 13
Caption = '2) -87:35.22, 41:59.332'
end
object Label5: TLabel
Left = 12
Top = 56
Width = 108
Height = 13
Caption = '3) -87:35:13, 41:59:18'
end
object Label7: TLabel
Left = 152
Top = 24
Width = 50
Height = 13
Caption = 'DEG.DDD'
end
object Label9: TLabel
Left = 152
Top = 40
Width = 67
Height = 13
Caption = 'DEG:MIN.MM'
end
object Label10: TLabel
Left = 152
Top = 56
Width = 70
Height = 13
Caption = 'DEG:MIN:SEC'
end
end
object nb2: TNotebook
Left = 4
Top = 24
Width = 311
Height = 53
Align = alTop
PageIndex = 1
TabOrder = 0
OnPageChanged = nb2PageChanged
object TPage
Left = 0
Top = 0
Caption = '0'
object lb1: TLabel
Left = 8
Top = 4
Width = 144
Height = 13
Caption = '&Address:(# street,city,state,zip)'
FocusControl = Edit3
end
object Edit3: TEdit
Left = 4
Top = 20
Width = 229
Height = 21
TabOrder = 0
Text = '127th Street,Lemont,IL 60439'
OnKeyPress = Edit3KeyPress
end
end
object TPage
Left = 0
Top = 0
Caption = '1'
object Label6: TLabel
Left = 8
Top = 4
Width = 27
Height = 13
Caption = '&Place'
FocusControl = Edit4
end
object Edit4: TEdit
Left = 8
Top = 20
Width = 197
Height = 21
TabOrder = 0
Text = 'Lemont,IL'
OnKeyPress = Edit4KeyPress
end
end
object TPage
Left = 0
Top = 0
Caption = '2'
object Label8: TLabel
Left = 8
Top = 4
Width = 43
Height = 13
Caption = '&Zip Code'
FocusControl = Edit5
end
object Edit5: TEdit
Left = 8
Top = 20
Width = 73
Height = 21
TabOrder = 0
Text = '60439'
OnKeyPress = Edit5KeyPress
end
end
object TPage
Left = 0
Top = 0
Caption = '3'
object Label1: TLabel
Left = 12
Top = 4
Width = 40
Height = 13
Caption = 'Number:'
end
object MaskEdit1: TMaskEdit
Left = 12
Top = 20
Width = 105
Height = 21
EditMask = '!( 000 ) 999 - 9999;1;_'
MaxLength = 19
TabOrder = 0
Text = '( 630 ) 257 - 7616'
end
end
object TPage
Left = 0
Top = 0
Caption = '4'
object Label32: TLabel
Left = 12
Top = 4
Width = 54
Height = 13
Caption = 'C&oordinate:'
FocusControl = Edit2
end
object Edit2: TEdit
Left = 8
Top = 20
Width = 157
Height = 21
TabOrder = 0
OnKeyPress = Edit2KeyPress
end
end
end
object L2: TListBox
Left = 4
Top = 77
Width = 311
Height = 112
Align = alClient
Ctl3D = True
ItemHeight = 16
ParentCtl3D = False
Style = lbOwnerDrawFixed
TabOrder = 1
OnDblClick = L2DblClick
OnDrawItem = L2DrawItem
OnKeyPress = L2KeyPress
end
object Panel1: TPanel
Left = 240
Top = 24
Width = 73
Height = 45
BevelOuter = bvNone
TabOrder = 2
Visible = False
object Label2: TLabel
Left = 10
Top = 4
Width = 30
Height = 13
Caption = '&Zoom:'
FocusControl = ComboBox1
end
object ComboBox1: TComboBox
Left = 8
Top = 20
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'0.1'
'0.2'
'0.5'
'1'
'2'
'5'
'10'
'50'
'')
TabOrder = 0
end
end
end
object Panel3: TPanel
Left = 9
Top = 227
Width = 319
Height = 30
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object BtOk: TButton
Left = 188
Top = 4
Width = 57
Height = 25
Caption = '&Ok'
TabOrder = 0
OnClick = BtOkClick
end
object BtCn: TButton
Left = 252
Top = 4
Width = 57
Height = 25
Caption = '&Cancel'
TabOrder = 1
OnClick = BtCnClick
end
object bt1: TButton
Left = 4
Top = 4
Width = 57
Height = 25
Caption = '&Find'
TabOrder = 2
OnClick = bt1Click
end
object CheckBox1: TCheckBox
Left = 76
Top = 8
Width = 81
Height = 17
Caption = 'Mark Point'
TabOrder = 3
OnClick = CheckBox1Click
end
end
end
end