[TListView] Spalten immer so breit machen wie erforderlich

[xZise]

Zitat von Andreas L.:

Zitat von xZise:

Naja 4 Spalten mit ... Vielleicht bis zu 10k Einträgen (wobei das EXTREMS unrealistisch ist)...

Und das heißt wie läuft die Berechnung jetzt ab?

MfG
xZise

Haben die Columns nicht eine Eigenschaft "AutoSize"?

Nein haben sie leider nicht. Jedenfalls nicht direkt* Über "-1" und "-2" gehts ja teilweise. Aber man sollte auch den "Header" lesen können.

Zitat von jottkaerr:

Aus meiner Grabbelkiste

Delphi-Quellcode:

procedure OptimizeColumns(const ListView: TListView);
var
  Column: TListColumn;
  ColumnWidthsHeader: Integer;
  ColumnWidthsText: Integer;
  i: Integer;
begin
  for i := 0 to ListView.Columns.Count - 1 do
  begin
    Column := ListView.Column[i];

    Column.Width := ColumnHeaderWidth;
    ColumnWidthsHeader := ListView_GetColumnWidth(ListView.Handle, i);

    Column.Width := ColumnTextWidth;
    ColumnWidthsText := ListView_GetColumnWidth(ListView.Handle, i);

    if ColumnWidthsHeader > ColumnWidthsText then
      Column.Width := ColumnWidthsHeader
    else
      Column.Width := ColumnWidthsText;
  end;
end;

jkr

Ich schaue es mir mal an!

MfG
xZise