ColorDialog --> Farbänderung ohne Beenden des Dialogs

[eddy]

Hallo DPler,

ich möchte die Hintergrund- und -Schriftfarbe eines Panels ändern. Das funktioniert mit:

Delphi-Quellcode:

  ColorDialog1.Color := Panel2.Color;   //00 Blau Grün Rot
  if ColorDialog1.Execute then Panel2.Color := ColorDialog1.Color;

auch problemlos.

Allerdings möchte ich die Farbe des Panels nicht erst nach der Ausführung von ColorDialog ändern (das ist der schon funktionierende Teil), sondern während ich in ColorDialog an den Farben herumspiele soll sich die Farbe von meinem Panel gleich mit ändern.

Kann jemand etwas dazu sagen?

mfg
eddy

[Blackmix]

J'ai une idée:

Du könntest alle Mausereingnisse versuchen mit einem zweiten Thread, der mit ColorDialog1.Execute gestartet wird, abzufangen. Bei Jeden Mausklick prüfst du ob, sich die Farbe geändert hat, wenn ja, dann änderst du auch die Farbe des Panels. ok?

noch mal in Code Form:

Code:

procedure Zweiten_Thread_starten;
begin;
  if Mausklick and (Panel1.Color <> ColorDialog1.Color)
  then Panel1.Color := ColorDialog1.Color;
end;

procedure Form1.ColorDialog1ShowOn(sender: TObject);
begin;
  Zweiten_Thread_starten;
end;

procedure Form1.Button1(sender: TObject);
begin;
  if ColorDialog1.Execute  then 
    begin
 // ... das Folgende wird dann auch nicht mehr gebraucht.
 //   Panel1.Color := ColorDialog1.Color;
     end;  
end;

[eddy]

Hallo Blackmix,

danke für den Tip, habe es aber leider nicht hinbekommen.

Gebe mich mit der funktionierenden Standardversion zufrieden, da es nicht so bedeutungsvoll ist, um großen Aufwand zu betreiben.

mfg
eddy