Huhu,
in der Schule schreiben wir im Moment ein kleines Mini-Paint, klappt auch eigentlich.
Eigentlich funktioniert auch der TColorDialog, ich benutze ihn wie folgt:
In der Klickprozedur von einem Button, nennen wir ihn mal btFarbe, rufe ich den ColorDialog auf:
Delphi-Quellcode:
procedure TForm1.btColorClick(Sender: TObject);
begin
ColorDialog1.Execute;
end;
In der OnClose-Prozedur des ColorDialogs weise ich meinem Pen die Farbe zu, das sieht dann wie folgt aus:
Delphi-Quellcode:
procedure TForm1.ColorDialog1Close(Sender: TObject);
begin
Canvas.Pen.Color := ColorDialog1.Color;
end;
Folgendes Beispiel soll mein Problem verdeutlichen:
Die Standartfarbe ist schwarz, ich male ein paar Linien in schwarz. Ich wähle im ColorDialog die Farbe rot aus, ich male wieder eine paar Linien, die Farbe der Linie ist wieder schwarz. Nun öffne ich erneut den ColorDialog und wähle blau aus. Die Linien die ich jetzt ziehe, haben die Farbe rot.
Das Problem ist also, dass es immer versetzt ist, ich weiß nur nicht, woran das liegt.
Eine einfache Wiederholung der Zuweisung (Canvas.Pen.Color := ColorDialog1.Color) hat da auch nicht geholfen.
Vielleicht wisst ihr ja, woran das liegt.
Liebe Grüße.