ListView Breite der letzten Spalte beim Resize der Form

[Dalai]

Hallo in die Gemeinde .

Gegeben sei ein TListView mit Anchors an allen 4 Kanten auf einem TForm. Die letzte Spalte des ListView soll immer die restliche Breite des ListView einnehmen, wenn das Formular in der Breite verändert wird. Ich will also eine Art TListColumn.AutoSize anhand der Breite statt des enthaltenen Texts. Dafür bietet sich das OnResize-Event des ListView an.

Delphi-Quellcode:

procedure TfmMain.ListViewResize(Sender: TObject);
var
  Llv: TListView;
  Lcolwidth, Ltotalcolwidth, i: integer;
  Lcol: TListColumn;
begin
    Llv:= nil;
    if Sender is TListView then
        Llv:= (Sender as TListView);
    if NOT Assigned(Llv) then
        Exit;
    Ltotalcolwidth:= 0;
    for i:= 0 to Pred(Llv.Columns.Count) do begin
        Inc(Ltotalcolwidth, Llv.Columns[i].Width);
    end;
    Lcol:= Llv.Columns[Llv.Columns.Count-1];
    Lcolwidth:= Llv.ClientWidth - Ltotalcolwidth - Lcol.Width;
    if (Lcolwidth >= Lcol.MinWidth) then
        Lcol.Width:= Lcolwidth;
end;

Probleme:

• Das ListView flackert im unteren Bereich, weil der horizontale Scrollbalken ein- und ausgeblendet wird, wenn die Breite verkleinert wird. Der Scrollbalken verschwindet wieder, wenn man einmal auf den nach rechts zeigenden Pfeil klickt; es wäre also eigentlich gar nicht nötig, dass das ListView den Scrollbalken anzeigt.
  Es scheint so, als wird der Scrollbalken pro Pixel Verkleinerung abwechselnd entweder angezeigt oder ausgeblendet.
  Siehe auch Bild im Anhang (bitte Stil und teilweise fehlende Themes ignorieren).
• Wenn eine der anderen Spalten vergrößert wird, wird die letzte Spalte bei einer Breitenänderung schmaler, unter Umständen sehr viel schmaler.

Erreichen will ich Folgendes:

1. Die letzte Spalte soll beim Verändern der Breite den restlichen Raum einnehmen. Das ist mit obigem Code soweit abgedeckt.
   
   
2. Sobald eine der anderen Spalten vergrößert wird, so dass das ListView einen horizontalen Scrollbalken anzeigt, soll die Breite der letzten Spalte nicht verändert werden, solange der Scrollbalken sichtbar ist. Damit soll vor allem verhindert werden, dass die letzte Spalte bei einer Breitenänderung plötzlich sehr schmal wird.
   Ich weiß, dass man mit GetWindowLong(Llv.Handle, GWL_STYLE); ermitteln kann, ob ein Scrollbalken sichtbar ist, aber die Flackerei macht eine sinnvolle Verwendung unmöglich, siehe nächster Punkt.
   
   
3. Die Flackerei durch das Ein- und Ausblenden des horizontalen Scrollbalkens soll verschwinden oder unterdrückt werden.

Grüße
Dalai

[jaenicke]

Setze doch die Breite der letzten Spalte einfach auf LVSCW_AUTOSIZE.

[Dalai]

Zitat von jaenicke:

Setze doch die Breite der letzten Spalte einfach auf LVSCW_AUTOSIZE.

Das passt die Spaltenbreite an den enthaltenen Text an, macht also dasselbe wie TListColumn.AutoSize:= True; . Ich will aber die gesamte verbleibende Breite des ListView ausnutzen.

Mit ListView_SetColumnWidth(Llv.Handle, Lcol.Index, LVSCW_AUTOSIZE_USEHEADER); spart man sich zwar die Iteration über die Spalten und die Berechnung der verbleibenden Breite, aber es führt zum selben Ergebnis wie der Code oben, mit Flackern und allem .

Grüße
Dalai

[Papaschlumpf73]

Das geht doch mit letzte Spalte.Width := -2 oder nicht?

[Dalai]

Nein, Lcol:= ColumnHeaderWith; erzeugt ebenfalls nicht das gewünschte Verhalten. Die letzte Spalte wird beim Verbreitern nicht auf den verbleibenden Platz vergrößert. Zudem soll die letzte Spalte nicht schmaler werden, wenn die anderen Spalten vergrößert werden.

Grüße
Dalai

[jaenicke]

Zitat von Dalai:

Mit ListView_SetColumnWidth(Llv.Handle, Lcol.Index, LVSCW_AUTOSIZE_USEHEADER); spart man sich zwar die Iteration über die Spalten und die Berechnung der verbleibenden Breite, aber es führt zum selben Ergebnis wie der Code oben, mit Flackern und allem .

Das ist dann ein Bug in deiner Delphiversion. Siehe Anhang... dort habe ich nur in Delphi 11 AutoSize auf True gesetzt.

Ich selbst verwende meistens die Virtual TreeView. Damit kann man viel mehr selbst anpassen. Allerdings läuft die aktuelle Version auch nur mit aktuellen Delphiversionen, d.h. du müsstest eine passende Version nutzen. Die alte Version im Anhang lief ab Delphi 4.

[Dalai]

Ich weiß nicht, wie ich es genauer oder anders beschreiben soll, was ich erreichen will, als ich das im OP bereits getan habe. Setzt man AutoSize der letzten Spalte auf True, nimmt sie den verbleibenden Platz ein. Bei Größenänderung des ListView wird sie mit angepasst. All das ohne Flackern. Soweit so schön.

Vergrößert man eine der anderen Spalten, wird der horizontale Scrollbalken eingeblendet, was auch noch in Ordnung und gewünscht ist. Jetzt kommt das große Aber: Ändert man anschließend die Breite des Formulars (und damit des ListViews), wird die letzte Spalte schmaler und der Scrollbalken verschwindet. Das will ich nicht! Die letzte Spalte soll ihre Breite behalten, solange der Scrollbalken sichtbar ist. Danach darf/soll sie wieder der Breite des ListView folgen.

Vielleicht wird es anhand eines Beispiels deutlicher:
Vier Spalten mit Breiten 100, 40, 40 und 300. Breite der ersten Spalte wird auf 300 erhöht, wodurch der Scrollbalken erscheint (OK). Anschließend wird die Breite des Formulars/ListViews geändert und danach ist die letzte Spalte nur noch 100 breit und der Scrollbalken weg; sie soll aber bei 300 bleiben, bis das ListView so breit gemacht wurde, dass der Scrollbalken ausgeblendet wird.

Grüße
Dalai

[jaenicke]

Das mit dem Beibehalten der Breite hatte ich falsch verstanden.

Also bei mir flackert mit deinem Code gar nichts und die Scrolleiste bleibt auch nicht so sichtbar wie in deinem Screenshot.

Mit der Virtual TreeView fährst du mit solchen speziellen Wünschen aber sicher am besten, denn dort kannst du das Feature direkt in die Breitensteuerung der Spalte einbauen, aber auch von außen sollte das machbar sein.