paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
119046bcbc
lazarus-ccr/components/lazmapviewer/example/main.lfm
wp_xxyyzz 119046bcbc lazMapViewer: Cosmetic changes 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6313 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2018-04-16 21:06:30 +00:00

371 lines
9.8 KiB
Plaintext
Raw Blame History

object MainForm: TMainForm
Left = 258
Height = 545
Top = 127
Width = 869
Caption = 'MainForm'
ClientHeight = 545
ClientWidth = 869
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '1.9.0.0'
object Panel1: TPanel
Left = 632
Height = 545
Top = 0
Width = 237
Align = alRight
ClientHeight = 545
ClientWidth = 237
TabOrder = 1
object CbProviders: TComboBox
AnchorSideLeft.Control = LblProviders
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 69
Height = 23
Top = 9
Width = 159
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
ItemHeight = 15
OnChange = CbProvidersChange
Style = csDropDownList
TabOrder = 0
end
object LblProviders: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = CbProviders
AnchorSideTop.Side = asrCenter
Left = 9
Height = 15
Top = 13
Width = 52
BorderSpacing.Left = 8
Caption = 'Providers:'
FocusControl = CbProviders
ParentColor = False
end
object CbUseThreads: TCheckBox
AnchorSideLeft.Control = LblProviders
Left = 9
Height = 19
Top = 40
Width = 62
Caption = 'Threads'
Checked = True
OnChange = CbUseThreadsChange
State = cbChecked
TabOrder = 1
end
object CbDoubleBuffer: TCheckBox
AnchorSideLeft.Control = CbUseThreads
AnchorSideLeft.Side = asrBottom
Left = 95
Height = 19
Top = 40
Width = 87
BorderSpacing.Left = 24
BorderSpacing.Right = 9
Caption = 'DblBuffering'
Checked = True
OnChange = CbDoubleBufferChange
State = cbChecked
TabOrder = 2
end
object ZoomTrackBar: TTrackBar
AnchorSideLeft.Control = CbProviders
AnchorSideTop.Control = CbDoubleBuffer
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 69
Height = 40
Top = 59
Width = 167
Max = 17
Min = 1
OnChange = ZoomTrackBarChange
Position = 1
TickMarks = tmBoth
Anchors = [akTop, akLeft, akRight]
TabOrder = 3
end
object LblZoom: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = ZoomTrackBar
AnchorSideTop.Side = asrCenter
Left = 9
Height = 15
Top = 72
Width = 35
BorderSpacing.Left = 8
Caption = 'Zoom:'
ParentColor = False
end
object CbMouseCoords: TGroupBox
AnchorSideLeft.Control = LblProviders
AnchorSideTop.Control = ZoomTrackBar
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbProviders
AnchorSideRight.Side = asrBottom
Left = 9
Height = 66
Top = 107
Width = 219
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Mouse position'
ClientHeight = 46
ClientWidth = 215
TabOrder = 4
object LblPositionLongitude: TLabel
AnchorSideLeft.Control = CbMouseCoords
AnchorSideTop.Control = CbMouseCoords
Left = 16
Height = 15
Top = 4
Width = 54
BorderSpacing.Left = 16
BorderSpacing.Top = 4
Caption = 'Longitude'
ParentColor = False
end
object LblPositionLatitude: TLabel
AnchorSideLeft.Control = CbMouseCoords
AnchorSideTop.Control = LblPositionLongitude
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 23
Width = 46
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
Caption = 'Latitude:'
ParentColor = False
end
object InfoPositionLongitude: TLabel
AnchorSideLeft.Control = CbMouseCoords
AnchorSideTop.Control = CbMouseCoords
AnchorSideRight.Control = CbMouseCoords
AnchorSideRight.Side = asrBottom
Left = 165
Height = 15
Top = 4
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
Caption = 'Label2'
ParentColor = False
end
object InfoPositionLatitude: TLabel
AnchorSideLeft.Control = CbMouseCoords
AnchorSideTop.Control = InfoPositionLongitude
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbMouseCoords
AnchorSideRight.Side = asrBottom
Left = 165
Height = 15
Top = 23
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
BorderSpacing.Bottom = 8
Caption = 'Label2'
ParentColor = False
end
end
object GbCenterCoords: TGroupBox
AnchorSideLeft.Control = LblProviders
AnchorSideTop.Control = CbMouseCoords
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbProviders
AnchorSideRight.Side = asrBottom
Left = 9
Height = 66
Top = 185
Width = 219
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 12
Caption = 'Center'
ClientHeight = 46
ClientWidth = 215
TabOrder = 5
object LblCenterLongitude: TLabel
AnchorSideLeft.Control = GbCenterCoords
AnchorSideTop.Control = GbCenterCoords
Left = 16
Height = 15
Top = 4
Width = 54
BorderSpacing.Left = 16
BorderSpacing.Top = 4
Caption = 'Longitude'
ParentColor = False
end
object LblCenterLatitude: TLabel
AnchorSideLeft.Control = GbCenterCoords
AnchorSideTop.Control = LblCenterLongitude
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 23
Width = 46
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
Caption = 'Latitude:'
ParentColor = False
end
object InfoCenterLongitude: TLabel
AnchorSideLeft.Control = GbCenterCoords
AnchorSideTop.Control = GbCenterCoords
AnchorSideRight.Control = GbCenterCoords
AnchorSideRight.Side = asrBottom
Left = 165
Height = 15
Top = 4
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
Caption = 'Label2'
ParentColor = False
end
object InfoCenterLatitude: TLabel
AnchorSideLeft.Control = GbCenterCoords
AnchorSideTop.Control = InfoCenterLongitude
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GbCenterCoords
AnchorSideRight.Side = asrBottom
Left = 165
Height = 15
Top = 23
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
BorderSpacing.Bottom = 8
Caption = 'Label2'
ParentColor = False
end
end
object CbLocations: TComboBox
AnchorSideLeft.Control = LblProviders
AnchorSideTop.Control = BtnSearch
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BtnSearch
Left = 9
Height = 23
Top = 264
Width = 150
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8
BorderSpacing.Bottom = 4
DropDownCount = 24
ItemHeight = 15
TabOrder = 6
Text = 'New York'
end
object BtnSearch: TButton
AnchorSideTop.Control = GbCenterCoords
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbProviders
AnchorSideRight.Side = asrBottom
Left = 167
Height = 25
Top = 263
Width = 61
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 12
Caption = 'Search'
OnClick = BtnSearchClick
TabOrder = 7
end
object CbFoundLocations: TComboBox
AnchorSideLeft.Control = CbLocations
AnchorSideTop.Control = Label8
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnGoTo
Left = 9
Height = 21
Top = 318
Width = 156
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
DropDownCount = 24
ItemHeight = 15
ItemWidth = -2
OnDrawItem = CbFoundLocationsDrawItem
ParentShowHint = False
ShowHint = True
Style = csOwnerDrawFixed
TabOrder = 8
end
object Label8: TLabel
AnchorSideLeft.Control = LblProviders
AnchorSideTop.Control = CbLocations
AnchorSideTop.Side = asrBottom
Left = 9
Height = 15
Top = 299
Width = 177
BorderSpacing.Top = 12
Caption = 'Select one of the found locations:'
ParentColor = False
end
object BtnGoTo: TButton
AnchorSideTop.Control = CbFoundLocations
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BtnSearch
AnchorSideRight.Side = asrBottom
Left = 173
Height = 25
Top = 316
Width = 55
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Go to'
OnClick = BtnGoToClick
TabOrder = 9
end
end
object MapView: TMapView
Left = 0
Height = 545
Top = 0
Width = 632
Active = False
Align = alClient
CacheOnDisk = True
CachePath = 'cache/'
InactiveColor = clWhite
MapProvider = 'OpenStreetMap Mapnik'
UseThreads = True
Zoom = 0
OnZoomChange = MapViewZoomChange
OnMouseMove = MapViewMouseMove
end
object GeoNames: TMVGeoNames
OnNameFound = GeoNamesNameFound
left = 520
top = 288
end
end
Reference in New Issue View Git Blame Copy Permalink