Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.112 Beiträge
 
Delphi 12 Athens
 
#1

MS MapPoint 2004, ein Pfeil auf eine Position zeichnen

  Alt 1. Sep 2004, 16:06
Hallo Zusammen,

hat jemand von Euch erfahrung mit Delphi und MapPoint 2004?
Ich möchte einen Pfeil auf der karte Zeichnen mit Position und Winkel.

Im Beispiel wird in PushPin anlegen und auch angezeigt.
Das Rechteckshape wird jedoch nicht angezeigt.


procedure TForm2.BitBtn4Click(Sender: TObject);
var Mylocation : Location;
MyPoint:TPoint;
begin
GKMapPoint1.Map.ActiveMap.GoToLatLong(48.26683,11. 474956,1);
Mylocation := GKMapPoint1.Map.ActiveMap.GetLocation(48.26683, 11.474956,1);
GKMapPoint1.Map.ActiveMap.AddPushpin(MyLocation,'e rster Pin');
GKMapPoint1.Map.ActiveMap.Shapes.AddShape(geoShape Rectangle, Mylocation, 50, 30);

Mylocation.GoTo_;
GKMapPoint1.Map.ActiveMap.Altitude := GKMapPoint1.Map.ActiveMap.Altitude * 1.5;
end;

GKMapPoint1 sind VCL-Komponenten für Delphi für MapPoint.

Gruß Kostas
  Mit Zitat antworten Zitat