ListView :: Zeile markieren : funktioniert nicht komplett

[TBx]

und bitte niemals Boolsche Vergleiche gegen True oder False machen --> siehe diverse Threads in der DP

#Ich schlage also vor:

Delphi-Quellcode:

procedure TfrmMain.lvCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Checked then
    Sender.Canvas.Brush.Color := clWhite;
  else
    Sender.Canvas.Brush.Color := $00006CEB
end;

Gruß

onlinekater