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.