Delphi ListView :: Zeile markieren : funktioniert nicht komplett

Thema durchsuchen

Ansicht

Themen-Optionen

ListView :: Zeile markieren : funktioniert nicht komplett

Ein Thema von Nils_13 · begonnen am 8. Jun 2006 · letzter Beitrag vom 8. Jun 2006

Vorheriger Beitrag

Nächster Beitrag

TBx

(Administrator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.903 Beiträge

Delphi 12 Athens

Re: ListView :: Zeile markieren : funktioniert nicht komplet

8. Jun 2006, 16:00

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

#Ich schlage also vor:

markieren

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;