Hallo Bernd,
Ich hab Deine Version getestet, finde es gut.
Einig Fragen dazu:
- welchen Sinn haben die 2 und 3 waagrecht angeordneten Punkte ?
Es sind einige Sachen zu ergänzen:
- die Linienparameter müssen ergänzt werden , wegen dem Speichern, mit
- LineType, 1, 2 oder 3 polig
- LineEnd, gerade oder versetzt
- die PunktParameter auch
- PointType 1, 2 oder 3 polig und versetzt
Die DrawLine und DrawPoint Routinen müssen dem entsprechend geändert werden.
In der allerletzten Version habe Ich die Zeichnungsfunktion geändert.
Wenn man eine Linie zeichnen will, klickt man auf den Anfangspunkt verschiebt den Stylus, während dem wird die Linie angezeigt, wenn man den Stylu abhebt ist die Line definitif gezeichnet.
Muss das aber esrst noch auf dem PPC testen.
Soll Ich die neuen Zeichnungsfunktionen in die letzte Version einbinden oder willst Du es machen.
Einen Programmierrat:
Code:
If Verschiebpoint=true Then
pointver=8
Pointver1=8
.
End If
If Verschiebpoint=false Then
pointver=1
Pointver1=8
.
End If
durch
Code:
If Verschiebpoint=true Then
pointver=8
Pointver1=8
.
Else
pointver=1
Pointver1=8
.
End If
ersetzen.
Und
Code:
If pointpol3=false AND pointpol2=false Then
.
End If
If pointpol3=true AND pointpol2=false Then
.
End If
If pointpol3=false AND pointpol2=true Then
.
End If
anstatt den Variablen pointpol2 und pointpol3
mit einer Variable pointpol deren Wert 1, 2 oder 3 sein, je nach Polanzahl, kann.
und
Code:
Select pointpol
Case 1
.
Case 2
.
Case 3
.
End Select
Beste Grüsse.