Einzelnen Beitrag anzeigen

Thom

Registriert seit: 19. Mai 2006
570 Beiträge
 
Delphi XE3 Professional
 
#4

AW: Google Maps über COM (Component Object Model)

  Alt 28. Dez 2010, 03:41
Beispiel 3
Ein- und Ausschalten der Steuerelemente.
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
  Options: TMapOptions;
begin
  WebBrowser1.Navigate('about:blank');
  Script:=TScript.Create(WebBrowser1); //Skript-Objekt erstellen
  with Script do
  begin
    LoadBrowserFromSource(WebBrowser1, //leere Seite:
                          HTMLPage(true, //- MIT Google Maps API
                                   false, //- OHNE GPS-Sensor
                                   'div_map'), //- MIT Div-Container für die Karte
                          true); //warten, bis die Seite komplett geladen wurde
    Options:=TMapOptions.Create; //Options-Objekt anlegen
    with Options do
    begin
      Center:=Google.Maps.LatLng(-28.643387,153.612224); //Kartenzentrum
      MapTypeControl:=true; //Kartentyp-Kontrolle sichtbar
      with MapTypeControlOptions do
      begin
        Style:=Google.Maps.MapTypeControlStyle.Dropdown_Menu; //Kartentyp-Kontrolle als aufklappbares Menü
        Position:=Google.Maps.ControlPosition.Top_Left; //Kartentyp-Kontrolle links oben
      end;
      NavigationControl:=true; //Navigationskontrolle sichtbar
      with NavigationControlOptions do
      begin
        Style:=Google.Maps.NavigationControlStyle.Android; //Navigationskontrolle im Android-Design
        Position:=Google.Maps.ControlPosition.Bottom; //Navigationskontrolle unten in der Mitte
      end;
      ScaleControl:=true; //Maßstab sichtbar
      with ScaleControlOptions do
        Position:=Google.Maps.ControlPosition.Top_Right; //Maßstab rechts oben
      StreetViewControl:=true; //StreetView-Kontrolle sichtbar
      MapTypeID:=Google.Maps.MapTypeId.Roadmap; //Kartentyp Straße
      Zoom:=12; //Zoom
    end;
    Google.Maps.Map(Document.GetElementById('div_map'),Options); //Karten-Objekt anlegen
  end;
end;
demo_3.jpg

Compilierte Demo:
Angehängte Dateien
Dateityp: zip MapControls.zip (198,3 KB, 458x aufgerufen)
Thomas Nitzschke
  Mit Zitat antworten Zitat