Einzelnen Beitrag anzeigen

Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Frage zum befehl Image.canvas.pen.Destroy oder FreeInsta

  Alt 19. Mär 2009, 23:17
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;
  Mit Zitat antworten Zitat