object MainForm: TMainForm Left = 345 Height = 545 Top = 121 Width = 869 Caption = 'MainForm' ClientHeight = 545 ClientWidth = 869 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow ShowHint = True LCLVersion = '2.1.0.0' object ControlPanel: 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 = ControlPanel AnchorSideRight.Control = ControlPanel 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 = ControlPanel 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 = ControlPanel 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 = ControlPanel 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 object Label1: TLabel Left = 8 Height = 48 Top = 400 Width = 219 AutoSize = False Caption = 'Click with right mouse button to add a GPS point.' ParentColor = False WordWrap = True end object Button1: TButton Left = 8 Height = 25 Top = 368 Width = 92 AutoSize = True Caption = 'GPS points...' OnClick = Button1Click TabOrder = 10 end object GPSPointInfo: TLabel Left = 8 Height = 80 Top = 456 Width = 222 AutoSize = False Caption = 'GPSPointInfo' ParentColor = False WordWrap = True end end object MapView: TMapView Left = 0 Height = 545 Hint = 'Displays the map' Top = 0 Width = 632 Active = False Align = alClient CacheOnDisk = True CachePath = 'cache/' InactiveColor = clWhite MapProvider = 'OpenStreetMap Mapnik' UseThreads = True Zoom = 0 OnZoomChange = MapViewZoomChange OnDrawGpsPoint = MapViewDrawGpsPoint OnMouseMove = MapViewMouseMove OnMouseUp = MapViewMouseUp end object GeoNames: TMVGeoNames OnNameFound = GeoNamesNameFound left = 328 top = 224 end end