Hallo to everybody,
I have a simple question:
I draw a circle with this code. The circle is drawn but if I scroll
outside the window the circle destroy.
perhaps there is a solution...
Sub ZeichneKreis(rechts As Double, hoch As Double, radius As Int)
Dim m As GeoPoint
Dim Kreispunkt As GeoPoint
m.Initialize(rechts, hoch)
Zeichnen.ClearPath
Zeichnen.Color=Colors.blue
Zeichnen.PathStyle=Zeichnen.FILL
Zeichnen.Alpha=32
For i = 0 To 359
Kreispunkt = m.GetDestinationPoint(radius,i)
Zeichnen.AddPoint3(Kreispunkt)
Next
merkzoom = MapView1.Zoom + 1
MapView1.FitMapToBoundingBox(Zeichnen.GetBoundingBox)
End Sub
kind regards
Volker
I have a simple question:
I draw a circle with this code. The circle is drawn but if I scroll
outside the window the circle destroy.
perhaps there is a solution...
Sub ZeichneKreis(rechts As Double, hoch As Double, radius As Int)
Dim m As GeoPoint
Dim Kreispunkt As GeoPoint
m.Initialize(rechts, hoch)
Zeichnen.ClearPath
Zeichnen.Color=Colors.blue
Zeichnen.PathStyle=Zeichnen.FILL
Zeichnen.Alpha=32
For i = 0 To 359
Kreispunkt = m.GetDestinationPoint(radius,i)
Zeichnen.AddPoint3(Kreispunkt)
Next
merkzoom = MapView1.Zoom + 1
MapView1.FitMapToBoundingBox(Zeichnen.GetBoundingBox)
End Sub
kind regards
Volker