Verschiedene Farben einzelner Items in ComboBox

[sebastian1979]

Hallo Zusammen,

Zitat von fkerber:

Hallo Sebastian,

könntest du bitte in deinem ersten Beitrag auch noch die Delphi-Tags um den Quellcode herum setzen?
Dann sieht es hübscher aus

Danke!

Grüße, Frederic

...ich arbeite dran...bei meiner letzten Antwort habe ich es ja gemacht.

Hier nun der aktuelle Code und Datenbankbasiert, die Combobox wird im vorfeld mit bestimmten Einträgen gefüttert:

Delphi-Quellcode:

procedure TMHauptmaske.ComboBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var  holdColor: TColor;
begin
  holdColor := ((FindComponent(CB)) as TCombobox).Canvas.Brush.Color;
  DB.TSTSTATUS.Locate('BEZ',((FindComponent(CB)) as TCombobox).Items[index],[]);
  ((FindComponent(CB)) as TCombobox).canvas.Brush.Color := stringtocolor(DB.TSTSTATUSFARBE.asstring);
  ((FindComponent(CB)) as TCombobox).canvas.Font.Color := clblack;
  ((FindComponent(CB)) as TCombobox).Canvas.FillRect(rect);
  ((FindComponent(CB)) as TCombobox).Canvas.TextOut(Rect.left, Rect.top, ((FindComponent(CB)) as TCombobox).Items[index]);
  ((FindComponent(CB)) as TCombobox).canvas.brush.Color := holdColor;
end;

Vielen Dank für Eure Hilfe!