Combobox als Farbauswahl

[Freddy_K]

Moin

Ich habe eine Combobox die ich für eine farbauswahl benutzen will.. wenn ich jetzt aber Combo1.text nehm um das als farbwert zu nutzen sagt der mir das tcolor und tcaption inkompatibel sind..

ich hoffe jmd kann mir sagen wie man das sonst machen kann

mfg
Freddy

[fxbasic]

Ab Delphi 6 gibt es eine Kompo ich glaube TColorComboBox oder so... Mit der sollte das gehen.

Gruß, fxbasic

[fkerber]

Hi!

Bei Delphi 7 PE auf der Registerkarte Zusätzlich gibt es die Komponente "ColorBox". Die müsste eigentlich sein, was du suchst.

Ciao fkerber

[sakura]

Einfach:

Delphi-Quellcode:

Control.Color := TColor(StrToIntDef(ComboBox1.Text, 0));

...:cat:...

[Freddy_K]

ok danke.. funktioniert..

bei sovielen schnellen antworten werdet ich mich so schnell nich mehr los :)

[Sharky]

Hai Freddy_K,

Du kannst Dir auch Farben in der ComboBox anzeigen lassen wenn Du sie selber zeichnest:

Delphi-Quellcode:

var
 farbe : TColor;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style := csOwnerDrawFixed;
  ComboBox1.Clear;
  ComboBox1.Items.Add('Rot');
  ComboBox1.Items.Add('Blau');
  ComboBox1.Items.Add('Grün');
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  case index of
   0 : farbe := clRed;  //Erster Eintrag
   1 : farbe := clBlue; //Zweiter Eintrag
   2 : farbe := clGreen;  //Dritter Eintrag
  end;
  ComboBox1.Canvas.Brush.Color := farbe;
  ComboBox1.Canvas.FillRect(Rect);
  ComboBox1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,ComboBox1.Items[index]);
end;

Wichtig ist das [b]ComboBox.Style := csOwnerDrawFixed[b] ist.

[Freddy_K]

t so gut.. mit der colorcombobox klappt das prima.. das einzige problem das ich noch hab is folgendes..

Ich verwende eine .ini datei als config datei. nun möchte ich abspeichern welche farbe ausgewählt worden is.. finde aber irgendwie nichts passendes das nen rückschluss darüber zulässt.. und wie ich das ganze dann wieder einstellen kann..


mfg
Freddy

[Markus K.]

Hallo Freddy_K;
du könntest die ausgewählte Farbe abspeichern. Dann suchst du beim Starten den Index der gespeicherten Farbe und setzt den ItemIndex entsprechend. Das wäre eine Möglichkeit, wie ich dieses Problem lösen würde. Vielleicht hilft sie dir ein wenig. Man könnte natürlich auch den Index des augewählten Eintrages abspeichern.

Tschüß Markus