Tatsächliche Breite einer ListView mit ViewStyle vsReport?

[bitsetter]

Kannst du dann hiermit was anfangen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  vaScrollInfo: TScrollInfo;
begin
  FillChar(vaScrollInfo, SizeOf(vaScrollInfo), 0);
  vaScrollInfo.cbsize := SizeOf(vaScrollInfo);
  vaScrollInfo.fMask := SIF_ALL;
  GetScrollInfo(ListView1.Handle, SB_HORZ, vaScrollInfo);

  Caption:=  inttostr(vaScrollInfo.nTrackPos);
end;