Ich habe Mittagspause und nix anderes zu tun wie es schein
ListView.ViewStyle := vsReport;
Delphi-Quellcode:
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
var
R: TRect;
begin
If Stage = cdPostPaint then With Sender as TListView do
begin
R := Item.DisplayRect(drBounds);
Canvas.MoveTo(R.Left, R.Bottom - 1);
Canvas.LineTo(R.Right, R.Bottom - 1);
end;
end;
Funktioniert bei mir wunderbar
...