Edit:
Man kann den vorletzten Punkt nochmal zeichnen (als letzten) dann geht das denke ich auch mit dickeren Linien.
Ich bekomm es aber z.B. nicht hin einen symmetrischen 2-Pixel breiten Kreis zu zeichnen:
Delphi-Quellcode:
Canvas.Pen.Width := 1;
x := 2;
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);
x := 5;
Canvas.Pen.Width := 2;
Canvas.Brush.Style := bsClear;
Canvas.Ellipse(150 - x, 150 - x, 150 + x + 1, 150 + x + 1);