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

Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge

Delphi 10.2 Tokyo Starter

Re: ListView :: Zeile markieren : funktioniert nicht komplet

8. Jun 2006, 15:46

Also:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfrmMain.lvCustomDrawItem(Sender: TCustomListView; 

  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 

var i: integer; 

begin 

  if Item.Checked = False then 

  begin 

    Sender.Canvas.Brush.Color := $00006CEB 

  end 

    else 

  Sender.Canvas.Brush.Color := clWhite; 

end;

Florian