ListView Spaltenbreite bei Form onResize neu berechnen?

[Uwe Raabe]

Wie gehst du denn damit um, wenn der User eine Spaltenbreite ändert? Damit würde ja die Summe aller Spaltenbreiten nicht mehr den Listview komplett ausfüllen und deine Prozente passen nicht mehr.

[a.def]

Genau daran arbeite ich gerade aber es geht alles schief.

Meine Idee ist aktuell WMEnterSizeMove-Event die aktuellen, prozentualen Breiten aller Spalten in ein extra Array zu schreiben
und dann im FormResize-Event wieder umzurechnen. Klappt aber nicht ganz.

Delphi-Quellcode:

procedure TForm1.WMEnterSizeMove(var msg: TMessage);
var
 i: Byte;
begin
 iAllColWidth := 0;
 for i := 0 to ListView1.Columns.Count - 1 do
  Inc(iAllColWidth, ListView1.Columns[i].Width);

 SetLength(lvDefaultWidthInPercent, Length(aDefaultSettings.lvDefaultWidthInPercent));
 for i := 0 to ListView1.Columns.Count - 1 do
  lvDefaultWidthInPercent[i] := getPercent(iAllColWidth, ListView1.Column[i].Width);

 inherited;
end;

// OnResize (Form)
for i := 0 to ListView1.Columns.Count - 1 do
 ListView1.Columns[i].Width := getPercentageValue(ListView1.Width, lvDefaultWidthInPercent[i]) - 2;

VirtualTreeView ist wirklich eine tolle Sache. Nur beherrscht die auch die verschiedenen Ansichten wie die ListView? Konnte ich auf deren Webseite noch nicht ausfindig machen.

Edit:
im Prinzip funktioniert alles mit obigen Code nun wie gewüscht. Einziges Problem ist, dass ich getPercentageValue als Base ListView1.Width übergebe und somit alle Spalten insgesamt immer maximal so breit sein können wie die ListView. iAllColWidth kann ich zwar übergeben, aber dann werden die Spalten kleiner statt größer

[Aviator]

Zitat von a.def:

VirtualTreeView ist wirklich eine tolle Sache. Nur beherrscht die auch die verschiedenen Ansichten wie die ListView? Konnte ich auf deren Webseite noch nicht ausfindig machen.

Also der VST ist ja darauf ausgelegt einen Tree anzuzeigen. Man kann ihn auch dazu "missbrauchen" eine Tabelle anzuzeigen was ja im Prinzip nichts anderes ist als Nodes nur auf der Root Ebene zu erzeugen welche eine bestimmte Anzahl an Spalten haben.

Die Kachel Ansicht funktioniert damit nicht direkt von Haus aus. Möglich wäre es schon indem man sehr viel selbst zeichnet (evtl. wäre hier der VirtualDrawTree der bessere Kandidat). Dann muss eben pro Node und pro Column unterschieden werden was man zeichnet und angeklickt hat. Ist etwas mehr Arbeit weil es nicht direkt die eigentliche Funktion abbildet, aber möglich ist es schon. Hatte mal so etwas ähnliches gemacht bei dem es darauf ankam, dass jede "Zelle" etwas spezielles machen sollte.

Durch die Abstraktion und das Virtuelle und die vielen Events die man zur Verfügung hat kann man sehr vieles mit der Komponente machen.

Aber man muss dazu sagen, dass man im Grunde alles selbst programmieren muss. Bei der ListView Komponente stellt man ja nur den Style um und schon hat man das gewünschte Ergebnis.

Das musst du also schlussendlich für dich selbst entscheiden ob sich der Aufwand für dich lohnt. Also ich will die Komponente nicht mehr missen und verwende sie fast überall für alles mögliche.

[Uwe Raabe]

Folgender Code im Listview-Resize könnte ein Ansatz sein. Dabei werden die Prozente nicht global abgelegt, sondern aus der aktuellen Aufteilung ermittelt. Ausnahme ist die initiale Anzeige.

Delphi-Quellcode:

procedure TForm154.ListView1Resize(Sender: TObject);
var
  I: Integer;
  widthArr: TArray<Double>;
  cnt: Integer;
  totalWidth: Integer;
begin
  cnt := ListView1.Columns.Count;
  SetLength(widthArr, cnt);
  totalWidth := 0;
  for I := 0 to cnt - 1 do begin
    totalWidth := totalWidth + ListView1.Columns[I].Width;
  end;
  if totalWidth = 0 then begin
    { initiale Aufteilung festlegen }
    widthArr[0] := 0.16;
    widthArr[1] := 0.16;
    widthArr[2] := 0.20;
    widthArr[3] := 0.20;
    widthArr[4] := 1 - Sum(Copy(WidthArr, 0, 4));
  end
  else begin
    for I := 0 to cnt - 1 do begin
      widthArr[I] := ListView1.Columns[I].Width/totalWidth;
    end;
  end;
  totalWidth := 0;
  for I := 0 to cnt - 2 do begin
    ListView1.Columns[I].Width := Round(ListView1.ClientWidth*widthArr[I]);
    totalWidth := totalWidth + ListView1.Columns[I].WidthType;
  end;
  { wegen Rundungsfehlern bekommt die letzte Spalte einfach den Rest }
  ListView1.Columns[cnt - 1].Width := ListView1.ClientWidth - totalWidth;
end;