Check List Box einfärben

[franktron]

Versuch mal

Code:

procedure Tfrm_lagerverwaltung.cblb_statusinfoDrawItem(
  Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
var i : integer;
begin
    if (cblb_statusinfo.Checked[Index]) then
    begin
      cblb_statusinfo.Canvas.Brush.Color := clRed;
      cblb_statusinfo.Canvas.Brush.Style := bsSolid;
      cblb_statusinfo.Canvas.FillRect(Rect);
      cblb_statusinfo.Canvas.TextOut(Rect.Left, Rect.Top, cblb_statusinfo.Items[Index]);
    end
    else
    begin
      cblb_statusinfo.Canvas.TextOut(Rect.Left, Rect.Top, cblb_statusinfo.Items[Index]);
    end;
end;