Google Maps über COM (Component Object Model)

[Thom]

[HJay]

Ganz kurze Frage: Unterstützt das Framework nicht TPolyline.Visible? Laut der API-Referenz sollte es die Variable eigentlich geben.

Zweite Frage: Ich muss leider noch mal auf den hübschen rahmenlosen WebBroswer zurückkommen. Leider zeigt er auch keine vertikale Scrollbars mehr an, wenn der Inhalt nicht vollständig zu sehen ist. Gibt es eine Möglichkeit, auch ohne Rahmen einen Scrollbar zu bekommen?

[Thom]

Das kommt in der Version 3 - die 2 unterstützt das noch nicht, da die Eigenschaft Visible erst relativ neu ist.
Das Polyline-Objekt selbst unterstützt die Sichbarkeit nur über Getter- und Setter-Methoden. Du kannst das Objekt aber jetzt schon selbst erweitern (Unit gmOverlaysPolylinePolygon):

Delphi-Quellcode:

  TPolyline = class(...)
    [...]
  public
    procedure SetVisible(Value: Boolean);
    function GetVisible: Boolean;  
    [...]
  end;

procedure TPolyline.SetVisible(Value: Boolean);
begin
  Exec('setVisible',[Value]);
end;

function TPolyline.GetVisible: Boolean;  
begin
  Result:=VarAsBoolean(Exec('getVisible'));
end;

Das Problem mit den Scrollbars kann ich bei mir nicht reproduzieren. Ich hatte das mit zwei TWebBrowser-Komponenten nebeneinander getestet - der eine mit einer Karte, der andere mit der Google-Suchseite. Die Google-Suchseite wird korrekt mit einer horizontalen und einer vertikalen Leiste angezeigt:

Das müßte bei Dir also andere Ursachen haben. Welche IE-Version verwendest Du?

[HJay]

Zitat von Thom:

Das müßte bei Dir also andere Ursachen haben. Welche IE-Version verwendest Du?

Interessant! Es hängt scheinbar von der Website ab, ob Scrollbars angezeigt werden oder nicht. Was es nicht alles gibt.

Wenn ich google.de verwenden, dann habe auch ich Scrollbars, wenn ich zum Beispiel geocaching.com verwende, dann bleibt das Feld ohne Scrollbars, obwohl es bei weitem nicht passt.

Meine eigenen Inhalte schiebe ich eigentlich als HTML-Rohtext direkt ins WebBrowser.Document und da entstehen nie Scrollbars.

[HJay]

Zu Visible: Der Compiler verweigert "Exec('setVisible',Value);" als "es gibt keine überladene Version, die mit diesen Argumenten aufgerufen werden kann.

Ich nehme aber eigentlich auch an, dass man Visible in PolylineOptions genau analog und parallel zur Option "Editable" ergänzen müsste.

[Thom]

Sorry - da fehlten die eckigen Klammern um den Parameter.

Bei den PolylineOptions hast Du Recht: Das sind aber Properties (Ansprechbar mit GetPropAs...() und SetProp()), Methoden werden mit Exec() aufgerufen.

[HJay]

Klappt jetzt mit TPolyline.visibility. Sehr praktisch so!

Vielen Dank! Was für ein klasse Support!