invertierend zeichnen

[choose]

Hallo goddi,

herzlich willkommen bei der Delphi-PRAXiS!

Wenn ich Deinen Code richtig interpretiere, liegt das Problem daran, dass Du die Eigenschaften von Pen und Brush in der Methode FormCreate für die Zeichenfläche des Formulars, nicht aber für die des Bildes, auf dem Du später in zeichnen arbeitest, setzt.
Der Aufruf

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Mode := pmNotXor;

ist gleichbeteutend mit

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Canvas.Pen.Mode := pmNotXor;

und sollte stattdessen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image.Canvas.Pen.Mode := pmNotXor;

lautet?

Folgender Test funktioniert bei mir wie von Dir (annähernd) beschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Canvas do
  begin
    Pen.Mode:= pmNotXor;
    Pen.Color:= clBlack;
    Pen.Width:= 2;

    MoveTo(10, 10);
    LineTo(100, 100);
  end;
end;