ComboBox-Einträge in verschiedenen Farben

[Christian Seehase]

Moin Delphi-Coder,

erst einmal herzlich willkommen.

Meintest Du das so?

Delphi-Quellcode:

procedure TfrmMAIN.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);

var
  cb : TComboBox;
begin
  cb := TComboBox(Control);
  case Index of
    0 :
      begin
        cb.Canvas.Brush.Color := clWhite;
        cb.Canvas.FillRect(Rect);
        cb.Canvas.Font.Color := clBlack;
        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]);
      end;
    1 :
      begin
        cb.Canvas.Brush.Color := clGreen;
        cb.Canvas.FillRect(Rect);
        cb.Canvas.Font.Color := clWhite;
        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]);
      end;
    2 :
      begin
        cb.Canvas.Brush.Color := clRed;
        cb.Canvas.FillRect(Rect);
        cb.Canvas.Font.Color := clWhite;
        cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]);
      end;
  end;
end;

Hierbei setze ich voraus, dass die Items der Combobox bereits Werte enthalten, und das die Eigenschaft Style auf csOwnerDrawFixed eingestellt ist.