Combobox als Farbauswahl

[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.