Ich bin gerade ein wenig verwundert ueber LineTo / Polyline. Diese zeichnen die Linie nicht bis zum angegeben Punkt sondern hoeren einen Pixel vorher auf. War das schon immer so, oder liegt das an einstellungen (Windows7 / canvas.Pen / Grafikkarte etc.) ?
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
x: Integer;
begin
x := 2;
// Fadenkreuz zu kurz
Canvas.MoveTo(100 - x, 100);
Canvas.LineTo(100 + x, 100);
Canvas.MoveTo(100, 100 - x);
Canvas.LineTo(100, 100 + x);
// vollständiges Fadenkreuz
Canvas.MoveTo(150 - x, 150);
Canvas.LineTo(150 + x, 150);
Canvas.LineTo(150 - x, 150);
Canvas.MoveTo(150, 150 - x);
Canvas.LineTo(150, 150 + x);
Canvas.LineTo(150, 150 - x);
end;