Google Maps über COM (Component Object Model)

[Thom]

Nö - das Framework unterdrückt keinerlei Klicks. Ganz im Gegenteil: Zu jedem Objekt, das Ereignisse unterstützt, werden unzählige Onxxx Handler bereitgestellt - so auch TMap.OnRightClick. Und diese Handler sind ab Delphi 2009 sogar mit anonymen Methoden nutzbar.
Zu den Ereignishandlern gibt es eine ganze Reihe von Demos - sowohl in der Version 1.x als auch in 2.x.

[StefanM]

... vielleicht falsch ausgedrückt.
Lad ich in den Browser(TEmbeddedWB) zb. "www.google.at" komme ich mit einem Rechtsklick in das standard Explorermenue, wo ich unter anderem auch ausdrucken kann. Wenn ich aber mit dem FrameWork eine Karte generiere, komm ich mit dem Rechtsklick in die Map.OnClick Methode

Mir fehlt irgendwie eine Idee wie ich das umgehen kann...

[Thom]

Das Browser-Kontextmenü wird von den Karten generell unterdrückt. Diesen Effekt kann man auch auf der Google Maps Seite überprüfen. Dort wird das Kontextmenü des IE's durch ein eigenes ersetzt.

Das Programm muß sich also selbst darum kümmern, die Karte auszudrucken. Dafür gibt es mehrere Möglichkeiten.
Die einfachste - aber auch schlechteste - Methode ist folgender Aufruf:

Delphi-Quellcode:

var
  pvaIn, pvaOut: OleVariant;
begin
  [...]
  WebBrowser1.ExecWB(OLECMDID_PRINT,
                     OLECMDEXECOPT_PROMPTUSER, //mit Druckerdialog
                     {OLECMDEXECOPT_DONTPROMPTUSER,} //ohne Druckerdialog
                     pvaIn,pvaOut);
  [...]
end;

Der IE versucht dann, die Karte formatfüllend (in der Regel A4) zu Papier zu bringen - das Ergebnis ist nicht zu gebrauchen.

Besser ist es, einen Screenshot der Karte als Bitmap anzufertigen und diesen anschließend mit dem eigenen Programm auszudrucken.
Druckerkomponenten gibt es reichlich - denkbar ist auch eine Report-Tool.
Wie ein Screenshot angefertigt werden kann, zeigt die Demo 5 - Async Callbacks aus der Beispielsammlung zur Version 1.x des Frameworks. Siehe dazu auch den Beitrag zum Beispiel 5.

[movnet]

Hi Thom.
Tell me please how the software can determine whether the marker in the middle of range or beyond.
Thank you.

[Thom]

Do you mean in the center of the displayed map? Or you just want to determine whether the marker is visible?
You can instead use the TLatLngBounds object:

• TLatLngBounds.Center returns the center of the rectangle
• TLatLngBounds.Contains(LatLng: TLatLng) returns true if the given value is in this bounds.

With the map can be do it like this:

Delphi-Quellcode:

  if Map.Bounds.Contains(Marker.Position) then
  begin
    //-> Marker is visible
  end;