ComboBox-Einträge in verschiedenen Farben

[Christian Seehase]

Moin Eddy,

meinst Du das hier?

Delphi-Quellcode:

  //...
  cb := TComboBox(Control);
  if (odComboBoxEdit in State) and (odFocused in State) then
  begin
    cb.Canvas.Brush.Color := clNavy;
    cb.Canvas.FillRect(Rect);
    cb.Canvas.Font.Color  := clWhite;
    cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Text);
    exit;
  end;
  case Index of
  //...