lazMapViewer: some additions to demo program

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6310 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazmapviewer/example/main.lfm

@@ -1,12 +1,13 @@
-object Form1: TForm1
+object MainForm: TMainForm
   Left = 258
   Height = 545
   Top = 127
   Width = 869
-  Caption = 'Form1'
+  Caption = 'MainForm'
   ClientHeight = 545
   ClientWidth = 869
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnShow = FormShow
   LCLVersion = '1.9.0.0'
   object Panel1: TPanel
@@ -15,10 +16,289 @@ object Form1: TForm1
     Top = 0
     Width = 237
     Align = alRight
-    Caption = 'Panel1'
+    ClientHeight = 545
+    ClientWidth = 237
     TabOrder = 0
+    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
   end
-  object MapView1: TMapView
+  object MapView: TMapView
     Left = 0
     Height = 545
     Top = 0
@@ -31,9 +311,11 @@ object Form1: TForm1
     MapProvider = 'OpenStreetMap Mapnik'
     UseThreads = True
     Zoom = 0
+    OnZoomChange = MapViewZoomChange
+    OnMouseMove = MapViewMouseMove
   end
   object GeoNames: TMVGeoNames
-    left = 481
-    top = 256
+    left = 520
+    top = 288
   end
 end