Forum: Multimedia
Delphi
by Satty67,
19. Mär 2009
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:
procedure TForm1.Btn_StiftClick(Sender: TObject);
begin
Image1.Canvas.pen.Color := clBlack; {<- Farbe nach belieben zuweisen }
end;
Forum: Multimedia
Delphi
by Satty67,
19. Mär 2009
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.
Forum: Multimedia
Delphi
by Satty67,
19. Mär 2009
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.