Hi!
Und nochmal als Code:
Delphi-Quellcode:
punkt0x:=abs(fromx*einheitx);
punkt0y:=abs(toy*einheity);
Paintbox1.Canvas.Moveto(punkt0x+(-3*einheitx),punkt0y+abs((-2*einheity)));
Paintbox1.Canvas.Lineto(10+punkt0x+(-3*einheitx),10+punkt0y+abs((-2*einheity)));
Bei allen Codes gilt, du musst immer auf die Vorzeichen achten, um es allgemeingültig zu halten.
Ciao fkerber