PenMode pmCopy klappt nicht

[lkz633]

Hallo,

mit

Delphi-Quellcode:

Canvas.Pen.Mode := pmNot;
  Canvas.Brush.Style := bsClear;

kann ich wunderbar einen Rahmen auf einem Canvas ziehen, mit

Delphi-Quellcode:

Canvas.Pen.Mode := pmCopy;
  Canvas.Brush.Style := bsClear;
   canvas.pen.color:=clgreen;

bekomme ich jedoch beim ziehen mit der Maus nicht nur einen Rahmen, sondern beliebig viele.

Kann ich dies beheben?

Danke und Gruss
lkz633

[SirThornberry]

debug das ganze mal durch, ich vermute durch
canvas.pen.color:=clgreen; wird der "pen.Mode" mit verändert.

[lkz633]

Nein, das hatte ich bereits geprüft

Sonst noch jemand eine Idee?

lkz633

[Khabarakh]

Überschrift

pmCopy

1. Code

pmNot

2. Code

pmNop

Was denn jetzt ?