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 :-)

[DeddyH]

Da ist ein Link oben im Artikel, der führt hierhin: https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx.
Alternativ kann man die Width je Column auch einfach zuweisen, wenn man da dann -1 oder -2 nimmt...

[KodeZwerg]

Jetzt habe ich es herausgefunden, die Unit CommCtrl fehlte mir in Uses.
Falls jemand auch auf der Suche nach automatisch maximum Breiten Spalten ist, hier der Code mit dem es bei mir funktioniert oder lest die MSDN Artikel für andere Möglichkeiten.
Danke DeddyH!:thumb:

Delphi-Quellcode:

CommCtrl.ListView_SetColumnWidth(LVProcess.Handle,1,LVSCW_AUTOSIZE_USEHEADER);

.
Parameter 1 = Das ListView Handle
Parameter 2 = Die Spalte (Column)
Parameter 3 = Es wird so breit wie der Längste String

auch Danke an Redeemer, Du meintest auf jeden Fall das Richtige, nur hab ichs nicht so ganz verstanden gehabt, jetzt schon.


hier seht ihr den Vorher Nacher effekt

Delphi-Quellcode:

procedure TfrmKnips.FillListView;
var
  i1, i2 : Integer; // <- hier verschwindet gleich was :)
begin
  frmKnips.LVProcess.Clear;
  SLHandles.Clear;
  SLNames.Clear;
  if EnumWindows(@MyEnumProcess, i2) = False then
    MessageBox(0, 'EnumWindows wird nicht Unterstützt! ','Fehler!',0);
  LVProcess.Items.BeginUpdate;
  i2 := 0;
  for i1 := 0 to SLHandles.Count - 1 do
  begin
    with LVProcess.Items.Add do
    begin
//      if Canvas.TextWidth(SLNames[i1]) > i2 then i2 := Canvas.Textwidth(SLNames[i1]);
      Caption := SLHandles[i1];
      SubItems.Add(SLNames[i1]);
    end;
  end;
  LVProcess.Items.EndUpdate;
  CommCtrl.ListView_SetColumnWidth(LVProcess.Handle, 1, LVSCW_AUTOSIZE_USEHEADER);
//  LVProcess.Columns[1].Width := i2+GetSystemMetrics(SM_CXVSCROLL);
end;