Check List Box einfärben

[shmia]

Delphi-Quellcode:

    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
      // Farbe der nicht gecheckten Items 
      cblb_statusinfo.Canvas.Brush.Color := cblb_statusinfo.Color;  // <=====================
      cblb_statusinfo.Canvas.TextOut(Rect.Left, Rect.Top, cblb_statusinfo.Items[Index]); 
    end;