Martifan Опубликовано 7 апреля, 2015 Поделиться Опубликовано 7 апреля, 2015 Доброго времени сутки кто разобрался как использовать MapView может поделитесь? заранее спасибо Цитата Ссылка на комментарий
0 Администраторы Brovin Yaroslav Опубликовано 8 апреля, 2015 Администраторы Поделиться Опубликовано 8 апреля, 2015 Добрый день, Руководство использования Конфигурация андроид приложения для работы с Google Maps Статья в блоге об использовании TMapView в iOS и Android приложения Kitty и Streletz 2 Цитата Ссылка на комментарий
0 Martifan Опубликовано 8 апреля, 2015 Автор Поделиться Опубликовано 8 апреля, 2015 я все сделал так как на сайте написана но у меня аппликация запускаться все видна но когда нажимаю кнопку GO ничего не грузится, при нажатия кнопок Normal, Satellite, Hybrid фон меняется то белым то серым становится и внизу написана Google а правом угле + и - но когда указываю координаты карта не грузится что не так? unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Layouts, FMX.Edit, FMX.Controls.Presentation, FMX.Maps; type TForm1 = class(TForm) MapView1: TMapView; ToolBar1: TToolBar; ArcDial1: TArcDial; edLat: TEdit; edLong: TEdit; Button1: TButton; ToolBar2: TToolBar; Layout1: TLayout; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure ArcDial1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure MapView1MapClick(const Position: TMapCoordinate); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.ArcDial1Change(Sender: TObject); begin MapView1.Bearing := ArcDial1.Value; end; procedure TForm1.Button1Click(Sender: TObject); var mapCenter: TMapCoordinate; begin mapCenter := TMapCoordinate.Create(StrToFloat(edLat.Text), StrToFloat(edLong.Text)); MapView1.Location := mapCenter; end; procedure TForm1.MapView1MapClick(const Position: TMapCoordinate); var MyMarker: TMapMarkerDescriptor; begin MyMarker := TMapMarkerDescriptor.Create(Position, 'MyMarker'); // Make a marker draggable MyMarker.Draggable := True; // Make a marker visible MyMarker.Visible :=True; MapView1.AddMarker(MyMarker); end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin MapView1.MapType := TMapType.Normal; ArcDial1.Value := 0.0; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin MapView1.MapType := TMapType.Satellite; ArcDial1.Value := 0.0; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin MapView1.MapType := TMapType.Hybrid; ArcDial1.Value := 0.0; end; end. Цитата Ссылка на комментарий
0 Martifan Опубликовано 16 апреля, 2015 Автор Поделиться Опубликовано 16 апреля, 2015 я все сделал так как на сайте написана но у меня аппликация запускаться все видна но когда нажимаю кнопку GO ничего не грузится, при нажатия кнопок Normal, Satellite, Hybrid фон меняется то белым то серым становится и внизу написана Google а правом угле + и - но когда указываю координаты карта не грузится что не так? unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Layouts, FMX.Edit, FMX.Controls.Presentation, FMX.Maps; type TForm1 = class(TForm) MapView1: TMapView; ToolBar1: TToolBar; ArcDial1: TArcDial; edLat: TEdit; edLong: TEdit; Button1: TButton; ToolBar2: TToolBar; Layout1: TLayout; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure ArcDial1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure MapView1MapClick(const Position: TMapCoordinate); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.ArcDial1Change(Sender: TObject); begin MapView1.Bearing := ArcDial1.Value; end; procedure TForm1.Button1Click(Sender: TObject); var mapCenter: TMapCoordinate; begin mapCenter := TMapCoordinate.Create(StrToFloat(edLat.Text), StrToFloat(edLong.Text)); MapView1.Location := mapCenter; end; procedure TForm1.MapView1MapClick(const Position: TMapCoordinate); var MyMarker: TMapMarkerDescriptor; begin MyMarker := TMapMarkerDescriptor.Create(Position, 'MyMarker'); // Make a marker draggable MyMarker.Draggable := True; // Make a marker visible MyMarker.Visible :=True; MapView1.AddMarker(MyMarker); end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin MapView1.MapType := TMapType.Normal; ArcDial1.Value := 0.0; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin MapView1.MapType := TMapType.Satellite; ArcDial1.Value := 0.0; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin MapView1.MapType := TMapType.Hybrid; ArcDial1.Value := 0.0; end; end. может у кого получилась как все сделать? поделитесь пожалуйста заранее спасибо Цитата Ссылка на комментарий
0 Martifan Опубликовано 17 апреля, 2015 Автор Поделиться Опубликовано 17 апреля, 2015 UP Цитата Ссылка на комментарий
0 StrangerMX Опубликовано 21 апреля, 2015 Поделиться Опубликовано 21 апреля, 2015 (изменено) Разобрался. Заработало и причем довольно шустро Изменено 21 апреля, 2015 пользователем StrangerMX Цитата Ссылка на комментарий
0 Martifan Опубликовано 21 апреля, 2015 Автор Поделиться Опубликовано 21 апреля, 2015 тему можно закрыть всем разобрался спасибо Цитата Ссылка на комментарий
0 xenon54 Опубликовано 21 апреля, 2015 Поделиться Опубликовано 21 апреля, 2015 Если разобрался, так напиши в чем дело было, для будущих поколений. Цитата Ссылка на комментарий
0 Martifan Опубликовано 22 апреля, 2015 Автор Поделиться Опубликовано 22 апреля, 2015 там все просто было я не правильно создавал Google Api Key как исправил компонент заработал нормально Цитата Ссылка на комментарий
Вопрос
Martifan
Доброго времени сутки
кто разобрался как использовать MapView может поделитесь?
заранее спасибо
Ссылка на комментарий
8 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.