Wie Spaltenbreite bei virtuellem ListView einstellen?

[himitsu]

Vieles ausprobiert und überall die Tipps halfen nix.

Delphi-Quellcode:

SendMessage(ListView1.Handle, LVM_SETCOLUMNWIDTH, 0, MakeLong(aWidth, 0));

ListView1.Perform(LVM_SETCOLUMNWIDTH, 0, MakeLong(aWidth, 0));

ListView_SetColumnWidth(ListView1.Handle, 0, aWidth);  // Unit CommCtrl

Collumn 0 bis x sind ja eigentlich die Spalten von vsReport. (ob 0 wirklich auch für vsList gilt, weiß ich nicht, schien aber nicht so)

Für vsList half bei mir die Column -1 ( alle Columns? ), aber nicht alleine.
Erst das umschalten des ViewStyles brachte letzendlich erfolg.

Delphi-Quellcode:

ListView_SetColumnWidth(ListView1.Handle, -1, aWidth);
//hier die Liste befüllen
ListView1.ViewStyle := vsReport;
ListView1.ViewStyle := vsList;