Farbe des selektierten Textes ändern

[Hobby-Programmierer]

Nabend ...
so in etwa funktionopelt es

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var farbe: TColor;
begin
  farbe:= clInfoBk; // HintergrundFarbe (GrundFarbe)
  case index of // Farbe zum zeichnen festlegen
    1 : farbe:= TColor($00CF9030);
    2 : farbe:= TColor($0093CAB1);
    3 : farbe:= TColor($00B3F8FF);
    4 : farbe:= TColor($00829AA2);
  end;
  with ComboBox1, ComboBox1.Canvas do begin
    Font.Color:= clblack; // SchriftFarbe
    Brush.Color:= farbe;  // HintergrundFarbe
    FillRect(Rect);       // Hintergrund zeichnen
    TextOut(Rect.Left+5, Rect.Top+1, Items[index]); // Textausgabe
  end;
end;

LG