Einzelnen Beitrag anzeigen

HJay

Registriert seit: 7. Dez 2009
172 Beiträge
 
Delphi XE7 Enterprise
 
#362

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

  Alt 20. Dez 2012, 15:07
Wenn ich mit dem folgenden Code ein Overlay-Rechteck erzeuge, dann hat dieses Rechtecke ein weißes Karomuster drübergelegt (feine weiße Linien senkrecht und waagerecht im Abstand von 5 cm oder so), das optisch immer gleich breit ist, egal welche Zoomstufe man wählt. Ist das ein Bug von GoogleMaps oder mache ich noch was falsch mit den Parametern?

Code:
procedure TGoogleMap.CreateTile;
  var Rectangle : TRectangle;
      RectOptions: TRectangleOptions;
begin
  with Script(WebBrowser) do begin
    Rectangle := New(Google.Maps.Rectangle);

    RectOptions:=TRectangleOptions.Create;
    with RectOptions do begin
      StrokeColor  := clBlack;
      StrokeOpacity := 0.8;
      StrokeWeight := 1;
      FillColor    := clRed;
      FillOpacity  := 0.35;
      Map          := Maps[0];
      Bounds       := Maps[0].GetBounds;
    end;

    Rectangle.SetOptions(RectOptions);
  end;
end;
Noch eine Ergänzungsfrage: Sollte ich RectOptions mit Free wieder freigeben oder ist das egal?
  Mit Zitat antworten Zitat