Wie ermittel ich die Breite einer Vertikal Scrollbar in einem ListView?

[KodeZwerg]

Delphi-Version: 2009

Hallo Gemeinde, der Titel besagt ja was ich gerne in Erfahrung bringen möchte.
Wozu?
Ich habe eine ListView mit fester Größe, darin sind 2 Spalten. Die letzte Spalte soll so breit werden das der Längste vorhandene String hineinpasst. Diese Funktion ist bereits erfüllt.
Da ich nicht weiß wie Breit eine Vertikale Scrollbar ist habe ich pro forma einen Wert von "LängsterStringInPixel" + 20 Pixel Lokal bei mir klappt es so aber ich Wette das die Scrollbar woanders auch breiter sein kann, deswegen benötige ich diesen Wert.

Falls das jemand weiß, ich freue mich auf eine Antwort!

Danke fürs Lesen.

  LVProcess.Columns[1].Width := L+20; <- so stell ich die breite momentan ein, L = LängsterStrInPx

[Fritzew]

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
Sollte eigentlich alle beantworten

[himitsu]

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx -> SM_CXVSCROLL and SM_CYVSCROLL

Aber kann man bestimmt auch irgendwie über die Theming-Klassen der VCL erfragen.

[KodeZwerg]

Zitat von Fritzew:

Sollte eigentlich alle beantworten

Funktioniert prima, vielleicht ein ticken zu Breit aber besser als anders herum, vielen Dank Fritzew!
LVProcess.Columns[1].Width := L+GetSystemMetrics(SM_CXVSCROLL);

Zitat von himitsu:

Aber kann man bestimmt auch irgendwie über die Theming-Klassen der VCL erfragen.

Ich weiß es jedenfalls noch nicht

[Redeemer]

Dir ist schon klar, dass es für ListView-Spaltebreiten Konstanten wie Beispielsweise "längster String" gibt?

[KodeZwerg]

Nein, ich ermittle momentan über Canvas wie breit die Spalte sein muss bei Erstellung der Einträge.
Wie lautet denn das ListView Pendant dazu bitte?

[Redeemer]

TListColumn.Width

Die Zahlen haben auch einen Namen:

Delphi-Quellcode:

const
  ColumnHeaderWidth = -2;
  ColumnTextWidth = -1;