Check List Box einfärben

[saschab]

Hallo zusammen,

habe Probleme mit dem Einfärben einer checkListBox

Folgender Code Soll die Zeilen Rot einfärben wenn ein Haken gesetzt ist.

Delphi-Quellcode:

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.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;

Das Ergebnis ist nit so dolle, er setzt nur einmal die Hintergrungfarbe und zwar beim ersten Haken, wenn ich dann mit der Maus auf ne anderen Text Klicke wo ein Haken ist färbt er ihn auch rot ein.

Vielleicht habt ihr ja ne Lösung dafür.