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

[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 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 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!
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;