Tabelle und Rahmen

[Deep-Sea]

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 ...