object MainForm: TMainForm Left = 345 Height = 581 Top = 121 Width = 869 Caption = 'MainForm' ClientHeight = 581 ClientWidth = 869 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow ShowHint = True LCLVersion = '2.1.0.0' object ControlPanel: TPanel Left = 592 Height = 581 Top = 0 Width = 277 Align = alRight ClientHeight = 581 ClientWidth = 277 TabOrder = 1 object CbProviders: TComboBox AnchorSideLeft.Control = LblProviders AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ControlPanel AnchorSideRight.Control = BtnLoadMapProviders Left = 69 Height = 23 Top = 9 Width = 145 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 4 DropDownCount = 24 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 = 207 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 = BtnSaveMapProviders AnchorSideRight.Side = asrBottom Left = 9 Height = 66 Top = 107 Width = 259 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 8 Caption = 'Mouse position' ClientHeight = 46 ClientWidth = 255 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 = 43 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 = 205 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 = 205 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 = CbMouseCoords AnchorSideRight.Side = asrBottom Left = 9 Height = 66 Top = 181 Width = 259 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 8 Caption = 'Center' ClientHeight = 46 ClientWidth = 255 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 = 43 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 = 205 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 = 205 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 = 334 Width = 190 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 = GbScreenSize AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GbCenterCoords AnchorSideRight.Side = asrBottom Left = 207 Height = 25 Top = 333 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 = 388 Width = 196 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 = 369 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 = 213 Height = 25 Top = 386 Width = 55 Anchors = [akTop, akRight] AutoSize = True Caption = 'Go to' OnClick = BtnGoToClick TabOrder = 9 end object InfoBtnGPSPoints: TLabel AnchorSideLeft.Control = BtnGPSPoints AnchorSideTop.Control = BtnGPSPoints AnchorSideTop.Side = asrBottom AnchorSideRight.Control = BtnGoTo AnchorSideRight.Side = asrBottom Left = 8 Height = 52 Top = 450 Width = 260 Anchors = [akTop, akLeft, akRight] AutoSize = False BorderSpacing.Top = 8 Caption = 'Click with right mouse button to add a GPS point.' ParentColor = False WordWrap = True end object BtnGPSPoints: TButton AnchorSideTop.Control = CbFoundLocations AnchorSideTop.Side = asrBottom Left = 8 Height = 25 Top = 417 Width = 92 AutoSize = True BorderSpacing.Top = 8 Caption = 'GPS points...' OnClick = BtnGPSPointsClick TabOrder = 10 end object GPSPointInfo: TLabel AnchorSideLeft.Control = InfoBtnGPSPoints AnchorSideTop.Control = InfoBtnGPSPoints AnchorSideTop.Side = asrBottom AnchorSideRight.Control = InfoBtnGPSPoints AnchorSideRight.Side = asrBottom Left = 8 Height = 64 Top = 502 Width = 260 Anchors = [akTop, akLeft, akRight] AutoSize = False Caption = 'GPSPointInfo' ParentColor = False WordWrap = True end object BtnLoadMapProviders: TSpeedButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CbProviders AnchorSideTop.Side = asrCenter AnchorSideRight.Control = BtnSaveMapProviders Left = 218 Height = 22 Top = 9 Width = 23 Anchors = [akTop, akRight] BorderSpacing.Right = 4 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000003591 DBFA439FDDFA439FDDFA429FDDFA429EDDFA419EDCFA419EDCFA419EDCFA419E DCFA419EDCFA419EDCFA419EDCFA3792DAFB3080DF100000000000000000429C DEF76EC7EBFF6DC7EAFF6BC6EAFF6AC5E9FF68C4E9FF67C3E8FF65C2E8FF64C1 E7FF63C0E7FF61BFE6FF60BEE5FF51AFE3FE308CD6450000000000000000409A DDF47CD0F1FF7BD0F0FF7ACFEFFF79CEEFFF77CDEEFF76CCEEFF74CBEDFF73CA EDFF71C9ECFF70C8ECFF6EC7EBFF6AC3E9FF3993DB8E00000000000000003E99 DCEC7ECEF1FF8AD9F6FF89D8F5FF87D7F4FF86D6F4FF84D5F3FF83D5F3FF81D4 F2FF80D3F2FF7ED2F1FF7DD1F1FF7BD0F0FF439ADEB40000000000000000409B DDE470C1EDFF99E2FBFF97E2FBFF96E1FAFF94E0F9FF93DFF9FF91DEF8FF90DD F8FF8EDCF7FF8DDBF7FF8CDAF6FF8AD9F6FF4EA4E2CD00000000000000004AA5 E0DF61B3E8FFA3E9FFFFA3E9FFFFA3E9FFFFA3E9FFFFA2E8FEFFA0E7FEFF9FE6 FDFF9DE5FDFF9CE4FCFF9AE3FCFF99E2FBFF5FB3E9E33080DF100000000051A8 E2DF5EB2E8FFA3E9FFFFA3E9FFFFA3E9FFFFA3E9FFFFA3E9FFFFA3E9FFFFA3E9 FFFFA3E9FFFFA3E9FFFFA3E9FFFFA3E9FFFF84CFF5FB348CDA450000000058AD E5DF60B3E8FF61B3E9FF61B3E9FF60B2E9FF60B2E8FF60B2E8FF5FB1E8FF5FB1 E8FF5EB1E8FF5EB1E8FF5EB1E7FF59ADE7FB55A9E5E33B94DC85000000005FB0 E8DF9DE4FBFF9AE3FAFF97E1F9FF94DFF8FF91DDF7FF8EDBF5FF8BD9F4FF88D8 F3FF85D6F2FF82D4F1FF7FD2F0FF4FA7E1DF00000000000000000000000061B1 E8DFA6EAFFFFA6EAFFFFA6EAFFFFA3E8FEFF7AC6F1ED59ACE6DF58AAE5DF57AA E5DF56AAE5DF53A9E4DF53A8E4DF3C94DCE20000000000000000000000004096 DEE25DAEE7DF5DAEE7DF5DAEE7DF57A9E6DF4399DF6E00000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000 } OnClick = BtnLoadMapProvidersClick end object BtnSaveMapProviders: TSpeedButton AnchorSideLeft.Control = BtnLoadMapProviders AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CbProviders AnchorSideTop.Side = asrCenter AnchorSideRight.Control = ControlPanel AnchorSideRight.Side = asrBottom Left = 245 Height = 22 Top = 9 Width = 23 Anchors = [akTop, akRight] BorderSpacing.Right = 8 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000A4653455A465 34FFA46534FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BD BAFFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFB6BDBAFFA46534FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BD BAFFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFB6BDBAFFA46534FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BD BAFFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFB6BDBAFFA46534FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BD BAFFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFB6BDBAFFA46534FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BD BAFFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BDBAFFB6BD BAFFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465 34FFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFA465 34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465 34FFA46534FFA46534FFA46534FFA46534FFA46534FF00000000A46534FFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFA46534FF00000000A46534FFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFA46534FF00000000A46534FFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFA46534FF00000000A46534FFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFA46534FF00000000A46534FFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFA46534FF00000000A46534FFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFECEE EEFFECEEEEFFECEEEEFFECEEEEFFECEEEEFFA46534FF00000000A46534FF5959 F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959 F3FF5959F3FF5959F3FF5959F3FF5959F3FFA46534FF00000000A46534FF5959 F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959F3FF5959 F3FF5959F3FF5959F3FF5959F3FF5959F3FFA46534FF00000000 } OnClick = BtnSaveMapProvidersClick end object BtnSaveToFile: TButton AnchorSideLeft.Control = BtnGPSPoints AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = BtnGPSPoints Left = 108 Height = 25 Top = 417 Width = 110 AutoSize = True BorderSpacing.Left = 8 Caption = 'Save map to file' OnClick = BtnSaveToFileClick TabOrder = 11 end object GbScreenSize: TGroupBox AnchorSideLeft.Control = GbCenterCoords AnchorSideTop.Control = GbCenterCoords AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GbCenterCoords AnchorSideRight.Side = asrBottom Left = 9 Height = 66 Top = 255 Width = 259 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 8 Caption = 'Viewport size' ClientHeight = 46 ClientWidth = 255 TabOrder = 12 object LblViewportWidth: TLabel AnchorSideLeft.Control = GbScreenSize AnchorSideTop.Control = GbScreenSize Left = 16 Height = 15 Top = 4 Width = 32 BorderSpacing.Left = 16 BorderSpacing.Top = 4 Caption = 'Width' ParentColor = False end object LblViewportHeight: TLabel AnchorSideLeft.Control = GbScreenSize AnchorSideTop.Control = LblViewportWidth AnchorSideTop.Side = asrBottom Left = 16 Height = 15 Top = 23 Width = 36 BorderSpacing.Left = 16 BorderSpacing.Top = 4 BorderSpacing.Bottom = 8 Caption = 'Height' ParentColor = False end object InfoViewportWidth: TLabel AnchorSideTop.Control = GbScreenSize AnchorSideRight.Control = GbScreenSize AnchorSideRight.Side = asrBottom Left = 205 Height = 15 Top = 4 Width = 34 Alignment = taRightJustify Anchors = [akTop, akRight] BorderSpacing.Top = 4 BorderSpacing.Right = 16 Caption = 'Label2' ParentColor = False end object InfoViewportHeight: TLabel AnchorSideTop.Control = InfoViewportWidth AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GbScreenSize AnchorSideRight.Side = asrBottom Left = 205 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 CbDistanceUnits: TComboBox AnchorSideTop.Control = GbCenterCoords AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GbCenterCoords AnchorSideRight.Side = asrBottom Left = 176 Height = 23 Top = 253 Width = 76 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 BorderSpacing.Right = 16 ItemHeight = 15 ItemIndex = 1 Items.Strings = ( 'm' 'km' 'miles' ) OnChange = CbDistanceUnitsChange Style = csDropDownList TabOrder = 13 Text = 'km' end end object MapView: TMapView Left = 0 Height = 581 Hint = 'Displays the map' Top = 0 Width = 592 Active = False Align = alClient CacheOnDisk = True CachePath = 'cache/' DownloadEngine = MapView.BuiltIn InactiveColor = clWhite MapProvider = 'OpenStreetMap Mapnik' UseThreads = True Zoom = 0 OnZoomChange = MapViewZoomChange OnChange = MapViewChange OnDrawGpsPoint = MapViewDrawGpsPoint OnMouseLeave = MapViewMouseLeave OnMouseMove = MapViewMouseMove OnMouseUp = MapViewMouseUp end object GeoNames: TMVGeoNames OnNameFound = GeoNamesNameFound left = 328 top = 224 end end