Zeichnen auf Canvas und ZOrder bzw. Übermalen

[Popov]

Hast du mal Pen.Mode mal eingestellt?

Delphi-Quellcode:

begin
  with canvas do
  begin
    Pen.Width := 5;
    Pen.Mode := pmMergePenNot; //<<<---

    Brush.Color := clRed;
    Brush.Style := bsSolid;

    MoveTo(0, 0);
    LineTo(200, 200);

    Ellipse(0, 0, 200, 200);
  end;
end;