home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trailer Life - RV Campground Finder 2001
/
BIN+CUE.zip
/
TLUSAMAPS.bin
/
MAPPRO40.OC_
/
MAPPRO40.OC
/
0
/
RCDATA
/
TQPLACE
/
TQPLACE.txt
Wrap
Text File
|
2000-08-09
|
6KB
|
250 lines
object Qplace: TQplace
Left = 198
Top = 66
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Find City or County'
ClientHeight = 295
ClientWidth = 240
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
PixelsPerInch = 96
TextHeight = 13
object Panel3: TPanel
Left = 0
Top = 262
Width = 240
Height = 33
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object FindBt: TButton
Left = 12
Top = 4
Width = 53
Height = 24
Caption = '&Find'
Default = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = FindBtClick
end
object GotoBt: TButton
Left = 68
Top = 4
Width = 49
Height = 24
Caption = '&Goto'
TabOrder = 1
OnClick = GotoBtClick
end
object CancelBt: TButton
Left = 180
Top = 4
Width = 56
Height = 24
Hint = 'Exit Dialog'
Caption = '&Cancel'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = CancelBtClick
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 240
Height = 262
Align = alClient
BevelOuter = bvNone
BorderWidth = 4
TabOrder = 1
object Bevel2: TBevel
Left = 4
Top = 4
Width = 232
Height = 49
Align = alTop
Style = bsRaised
end
object Label1: TLabel
Left = 14
Top = 8
Width = 30
Height = 13
Caption = '&Place:'
FocusControl = Edit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 167
Top = 8
Width = 30
Height = 13
Caption = '&Zoom:'
FocusControl = cb1
end
object Edit1: TEdit
Left = 12
Top = 24
Width = 141
Height = 21
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnKeyPress = Edit1KeyPress
end
object cb1: TComboBox
Left = 164
Top = 24
Width = 49
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'0.1'
'0.5'
'1'
'2'
'5'
'10'
'20'
'50')
TabOrder = 1
end
object Panel1: TPanel
Left = 4
Top = 53
Width = 232
Height = 205
Align = alClient
BorderWidth = 4
TabOrder = 2
object Panel8: TPanel
Left = 5
Top = 5
Width = 222
Height = 195
Align = alClient
BevelOuter = bvNone
Caption = 'Panel8'
TabOrder = 0
object Header1: THeader
Left = 0
Top = 4
Width = 204
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Sections.Sections = (
#0'41'#0'Name'
#0'39'#0'State')
TabOrder = 0
OnSizing = Header1Sizing
end
object lb1: TListBox
Left = 0
Top = 25
Width = 221
Height = 152
Ctl3D = False
ItemHeight = 16
ParentCtl3D = False
Style = lbOwnerDrawFixed
TabOrder = 1
OnClick = lb1Click
OnDblClick = lb1DblClick
OnDrawItem = lb1DrawItem
OnKeyPress = lb1KeyPress
end
object Panel2: TPanel
Left = 0
Top = 177
Width = 203
Height = 18
Alignment = taLeftJustify
BevelInner = bvLowered
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object spdbtn1: Tspdbtn
Left = 204
Top = 5
Width = 17
Height = 20
Parentwindow = 0
Flat = True
Glyph.Data = {
D6000000424DD60000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
0000770000000007000077000000000700007777777777770000777777777777
0000770000000007000077700000007700007777000007770000777770007777
0000777777077777000077777777777700007777777777770000}
OnClick = spdbtn1Click
Rep = False
Caption = '+'
Mode = None
end
object spdbtn2: Tspdbtn
Left = 204
Top = 177
Width = 17
Height = 18
Parentwindow = 0
Flat = True
Glyph.Data = {
D6000000424DD60000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
0000777777777777000077777707777700007777700077770000777700000777
0000777000000077000077000000000700007777777777770000777777777777
0000770000000007000077000000000700007777777777770000}
OnClick = spdbtn2Click
Rep = False
Caption = '-'
Mode = None
end
end
end
end
end