MapView Zoom in Funktion FormCreate funktioniert nicht

[linxxruxx]

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 :evil:


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

Liebe Grüße

[Jasocul]

Ich kenne mich damit zwar nicht aus, aber Google-Ergebnisse sagen, dass du latitudeDelta und longitudeDelta setzen musst, um richtig zu zoomen.
Soweit ich das sehen konnte, sollten die Werte zwischen 0,01 und 0,09 brauchbar sein.

Klingt auf jeden Fall interessant. Wenn ich mal Zeit habe, werde ich mich intensiver damit beschäftigen.

[linxxruxx]

Danke für den Tipp, aber das hilft mir leider nicht wirklich weiter..
Finde keine Delphi Beispiele. In denen wo ich was gefunden habe, benötigt man MRCoordinateRegion, was ich irgendwie nicht implementieren kann