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:

markieren

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:

markieren

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.

Versuch es mal mit

markieren

Delphi-Quellcode:

procedure TForm1.btColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Canvas.Pen.Color := ColorDialog1.Color;
end;

Zitat von DeddyH:

Versuch es mal mit

markieren

Delphi-Quellcode:

procedure TForm1.btColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Canvas.Pen.Color := ColorDialog1.Color;
end;

Klappt, Dankeschön.