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

Delphi-Quellcode:

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

Delphi-Quellcode:

  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:

Zitat von Fritzew (Beitrag 1403455)

Sollte eigentlich alle beantworten

Funktioniert prima, vielleicht ein ticken zu Breit aber besser als anders herum, vielen Dank Fritzew!:thumb:

Delphi-Quellcode:

LVProcess.Columns[1].Width := L+GetSystemMetrics(SM_CXVSCROLL);

Zitat:

Zitat von himitsu (Beitrag 1403457)

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;

[KodeZwerg]

Ich Verstehe nicht wie Du das meinst es umzusetzen?
Also beim Start ist meine Column.Width = 10, nach füllen der List so ca das zehnfache.
Wie rufe ich bei der ListView jetzt welchen Befehl auf der als Ergebnis mir den Längsten String in Pixel wieder gibt, oder halt nur den längsten String den ich wieder übers Canvas ausrechnen lasse wieviel Pixel ich brauche?
Wenn Du da ein Beispiel für hättest das wäre lieb.

edit
Also momentan ist

Delphi-Quellcode:

LVProcess.Columns[1].Width := L+GetSystemMetrics(SM_CXVSCROLL);

das meine methode, was sollte als Ersatz für "L" da stehen?

[DeddyH]

https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx Unter "Parameters" stehen auch die erwähnten Konstanten.

[KodeZwerg]

Ja Danke DeddyH.
Ich vermute

Delphi-Quellcode:

LVSCW_AUTOSIZE_USEHEADER

würde mich ans Ziel bringen um mir das "L" zu ersparen.
Diese Function/Macro kennt mein Delphi noch nicht. Da muss ich erst wieder gucken/suchen/lesen wie ich das nun wieder umsetze :-)