Перейти к содержанию
Fire Monkey от А до Я
  • 0

[TMapView] [XE8] Подскажите материалы по использованию компонента карт?


Martifan

Вопрос

Рекомендуемые сообщения

  • 0
  • Администраторы
  • 0

я все сделал так как на сайте написана но у меня аппликация запускаться все видна но когда нажимаю кнопку GO ничего не грузится, при нажатия кнопок 

NormalSatellite, 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

 

я все сделал так как на сайте написана но у меня аппликация запускаться все видна но когда нажимаю кнопку GO ничего не грузится, при нажатия кнопок 

NormalSatellite, 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.

может у кого получилась как все сделать? поделитесь пожалуйста заранее спасибо

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...