Google Maps über COM (Component Object Model)

[BlueLiquidCell]

Hey Thom

Hätte noch ne kleine Frage zu den Overlays

Ist es möglich ein Overlay wieder zu löschen oder zu verschieben?
Hab darüber leider nichts gefunden

Schöne Grüße
Christoph

[Thom]

Hallo Christoph,

Ja, das geht - wenn auch wieder nur über die Trickkiste.
Leider bietet (T)OverlayView keine Methode oder Eigenschaft, um die Größe oder Position des Overlays zu beeinflussen.

Schaut man sich allerdings TUSGSOverlay aus der Demo SimpleOverlay an, kann man feststellen, daß in der Methode OnAdd ein DIV-Container erstellt wird, der das Overlay-Bild aufnimmt und dessen Größe und Position in der Methode Draw an die gewünschten Koordinaten angepaßt wird.

Die erste Möglichkeit besteht also darin, den DIV-Container einfach auf der Karte an die gewünschte Stelle zu verschieben.
Bei der zweiten Möglichkeit wird das Overlay mit

Delphi-Quellcode:

Overlay.SetMap(TMap(nil));
//...

von der Karte entfernt, worauf die Methode OnRemove aufgerufen wird. Anschließend wird das Overlay einfach wieder der Karte zugeordnet

Delphi-Quellcode:

Overlay.SetMap(Map);
//...

, worauf wieder OnAdd und Draw durchlaufen werden und damit die Möglichkeit besteht, das Overlay an einer anderen Stelle zu positionieren.

[BlueLiquidCell]

Hey Thom

Super deine Trickkiste!!!!
Habs aber irgendwie nicht hinbekommen.

Overlay.SetMap(Map); geht gar nicht weil er das nicht kennt

Overlay.SetMap(Map); bringt folgenden error:
[Error] Unit1.pas(366): This form of method call only allowed for class methods

Könntest du vielleicht nen kurzes beispiel schreiben auch mit dem DIV-Container? Nur wenns nicht zuviel aufwand ist

Vielen Dank
Christoph

[Thom]

Ich staune auch immer wieder, was da alles drin ist...

Noch ein kleiner Tip: Wenn Du das Overlay öfters aus- und wieder einblendest, wäre es eventuell sinnvoll, das Abräumen der Delphi-Wrapper für die DIV-Elemente von der Destroy- in die OnRemove-Methode zu verlegen:

Delphi-Quellcode:

destructor TUSGSOverlay.Destroy;
begin
  //FDivNode.Free; <- hier und
  //FImageNode.Free; <- hier weg
  inherited;
end;

procedure TUSGSOverlay.OnRemove;
begin
  Variant(DivNode.ParentNode).RemoveChild(DivNode.Disp);
  FDivNode.Free; //<- und dafür hier 
  FImageNode.Free; //<- und hier hin
end;

Machst Du das nicht, produzierst Du zwar dank der Aufräum-Automatik des Frameworks keine Speicherlecks - dafür packst Du Dir aber den Hauptspeicher unnötig voll.

OK. Veränderte Demo SimpleOverlay:

Delphi-Quellcode:

  TForm1 = class(TForm)
    //...
  private
    FMap: TMap;  //<- neu
    FOverlay: TOverlayView; //<- neu
    //...
  public
    //...
    property Map: TMap read FMap write FMap; //<- neu
    property Overlay: TOverlayView read FOverlay write FOverlay; //<- neu
  end;

procedure TForm1.FormShow(Sender: TObject);
var
  //Map: TMap; <- hier entfernen
  //...
begin
  //...
  Overlay:=TUSGSOverlay.Create(Bounds,SrcImage,Map); //<-Overlay in Variable speichern
end;

procedure TForm1.Button1Click(...)
begin
  Overlay.SetMap(TMap(nil)); //<- Overlay von der Karte entfernen -> OnRemove wird aufgerufen
  Overlay.SetMap(Map); //<- Overlay wieder einblenden -> OnAdd und Draw werden aufgerufen
end;

[BlueLiquidCell]

Hey Thom

Vielen dank aber es gibt immernoch Fehler aber ich suche morgen nochmal

Christoph

[Thom]

Wenn's morgen nicht klappt: Ich kann auch noch mal meine veränderte Demo SimpleOverlay posten, wenn es Dir hilft. An der hatte ich das Ein- und Ausblenden des Overlays gerade getestet.

[BlueLiquidCell]

Das wär super, hab wahrscheinlich irgendwas vergessen

Danke
Christoph