Frage zum befehl Image.canvas.pen.Destroy oder FreeInstance?

[Code46]

Hallo

habe mal ne Frage. Undzwar ich habe den Befehl

Delphi-Quellcode:

procedure TForm1.Btn_radiererClick(Sender: TObject);
begin
image1.Canvas.pen.Destroy;
end;

eingegeben jedoch kommt da immer ein Fehler das Programm stürzt immer ab. Könnt ihr mir vielleicht weiter helfen??????

Würde mich sehr freuen . Danke

[Satty67]

Destroy löst das Pen-Objekt im Canvas auf.

Das was Du machen willst (radieren) funktioniert so nicht. Zu Radieren musst Du mit der Hintergrundfarbe uberzeichnen.

[Code46]

ok danke habe ich schon hinbekommen

[Code46]

ein frage noch wie setzte ich das Radiergummi wieder zurück das ich wieder zeichnen kann????

[Satty67]

Bin mir nicht ganz sicher was Du gemacht hast. Wenn Du radiert hast, indem Du Pen.Color = Hintergrundfarbe zugewiesen hast, dann Pen.Color wieder eine andere Farbe zuweisen.

[Code46]

das ist mein code aber ich will danach wieder zeichnen können da die Pen.Color weiß ist zeichent er nur weiß

Delphi-Quellcode:

procedure TForm1.Btn_radiererClick(Sender: TObject);
begin

Image1.Canvas.pen.Color := clwhite
end;

[Satty67]

innerhalb eines Buttons kannst Du das nicht (schwer) behandeln. Also Wechsel der Zeichenfarbe...

Nimm einen zweiten Button (nenn den Stift), dann kannst Du zwischen Stift und Radierer umschalten:

Delphi-Quellcode:

procedure TForm1.Btn_StiftClick(Sender: TObject);
begin
  Image1.Canvas.pen.Color := clBlack; {<- Farbe nach belieben zuweisen }
end;

[Code46]

ok danke das mit einem zweiten button hatte ich das schon aber trotzdem danke