Einzelnen Beitrag anzeigen

DelphiFan2008

Registriert seit: 4. Dez 2008
81 Beiträge
 
Delphi XE2 Starter
 
#310

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

  Alt 11. Nov 2012, 11:38
Hallo GPRSNerd,

mit folgendem Code habe ich die Marker direkt im Programm erzeugt
Delphi-Quellcode:
        PNG := TPNGImage.Create;

        CreateMarkerDistancePoint( PNG,<Parameter> );

        MarkerOptions := TMarkerOptions.Create;
        with MarkerOptions do
        begin
          IconImage:=New( Google.Maps.MarkerImage( Encode64(PNG),
                          New(Google.Maps.Size(PNG.Width,PNG.Height)),
                          New(Google.Maps.Point(0,0)),
                          New(Google.Maps.Point(PNG.Width/2,PNG.Height/2)) ));
          Position := Script.Google.Maps.LatLng( x,y );
        end;
        Marker := New( Google.Maps.Marker( MarkerOptions ));

        Marker.SetMap( Maps[0] );

        PNG.Free;
wobei in CreateMarkerDistancePoint( ) das eigentliche Bild mit Direct2D erzeugt wird

Gruss DelphiFan2008

Geändert von DelphiFan2008 (11. Nov 2012 um 12:09 Uhr)
  Mit Zitat antworten Zitat