Da du ja mit dem Modus pmXOR arbeitest, musst du einfach nur VOR dem ändern der Position noch einmal zeichnen, damit wieder das ursprüngliche Bild zu sehen ist
Erstmal danke fürs schnelle beantworten, meinst du das so?
Delphi-Quellcode:
// in der Klasse KPunkt
procedure KPunkt.zeichnen;
begin
self.image1.canvas.pen.mode:=pmxor;
self.image1.canvas.ellipse(self.x-5,self.y-5,self.x+5,self.y+5);
end;
oder so?
Delphi-Quellcode:
// in der Unit1
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
KPunkt.image1.canvas.pen.mode:=pmxor;
Punkt1.setpos(X,Y);
Punkt1.zeigen;
end;
oder noch anders?
Also:
Die erste Variante bringt garnix und die zweite variante geht nicht weil ich das nicht hinbekomme delphi zu sagen dass das image1 in der Klasse KPunkt schon definiert ist... Delphi findet es zumindest nicht....