Verschiedene Farben einzelner Items in ComboBox

[toms]

Es genügt einmal (FindComponent(CB)) as TCombobox) aufzurufen anstatt 8 Mal (Wegen Übersicht, Geschwindigkeit, Redundanz etc.)

[DeddyH]

Und wegen Fehlertoleranz. Wenn FindComponent nichts findet, gibt das sonst einen dicken Crash.

Delphi-Quellcode:

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