Einzelnen Beitrag anzeigen

linxxruxx

Registriert seit: 19. Aug 2019
28 Beiträge
 
#1

MapView Zoom in Funktion FormCreate funktioniert nicht

  Alt 28. Aug 2019, 10:16
Hallo,

ich rufe in meiner Delphi App eine Form auf, welche mir eine Google Map anzeigt, welche einen Marker auf eine übergebene Adresse setzt.
Das funktioniert auch einwandfrei in meiner "FormCreate"-Funktion.

Das einzige Problem, welches ich habe ist folgendes:
Mir wird die komplette Landkarte angezeigt, allerdings wäre es super, wenn die MapView direkt auf meinen hinzugefügten Marker zoomt.
Habe es schon mit
Code:
MapView1.Zoom := 10
ausprobiert, allerdings funktioniert das nicht, da danach wieder automatisch "Resize" aufgerufen wird.

Mein Code ist folgender:
Code:
procedure TAdresseAnzeigenForm.FormCreate(Sender: TObject);
Var
  MyLocation: TMapCoordinate;
  MyMarker: TMapMarkerDescriptor;
begin
  AddressString := DashboardUnit.DashboardForm.FSelAuftrag.Auftragsdaten.
    Produkt.Standort.Adresse.VolleAdresse;
  AddressLabel.Text := AddressString;
  FGeocoder := TGeocoder.Current.Create;
  FGeocoder.OnGeocode := OnGeoCodeEvent;
  lAddress := TCivicAddress.Create;
  try
    lAddress.Address := AddressString;
    FGeocoder.Geocode(lAddress);
  finally
    lAddress.Free;
  end;
  MyLocation := TMapCoordinate.Create(FoundLatitude, FoundLongitude);
  MapView1.Location := MyLocation;
  MyMarker := TMapMarkerDescriptor.Create(MyLocation, 'Auftragsort');
  MyMarker.Visible := True;
  MapView1.AddMarker(MyMarker);
  MapView1.Zoom := 13;
end;
Eine momentane Zwischenlösung ist ein Button, den man klicken kann und dann wird gezoomt.. das geht komischerweise


Hoffe, es ist jemand hier, der mir auf schnellem Wege helfen kann

Liebe Grüße
  Mit Zitat antworten Zitat