ComboBox-Einträge in verschiedenen Farben

[eddy]

Hallo Delphi-Coder,

hier ein Stückchen Programm. Es löst zwar nicht zu 100% Dein Problem, aber vielleicht ist es ja ein Anfang

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TComboBox do begin
    Canvas.FillRect(Rect);
    Canvas.Font.Color := TColor(Items.Objects[Index]);
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ComboBox1.Items.AddObject('Red Item', Pointer(clRed));
  ComboBox1.Items.AddObject('Green Item', Pointer(clGreen));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // kann auch im ObjektInspektor (OI) eingestellt werden
  ComboBox1.Style := csOwnerDrawFixed;
end;

mfg
eddy