[TListView] Spalten immer so breit machen wie erforderlich

[xZise]

Hallo ihr,
wie kann ich die Spalten einer ListView so breit machen, das sie alles (inklusive der Columnheader) anzeigen können? Die Breite auf "-1" zu setzen garantiert nicht das die Columnheader vollständig angezeigt werden, während es "-2" genau andersherum macht

MfG
xZise

[s.h.a.r.k]

ich würde es selbst berechnen, eben über die längen (in pixel) des string in der entsprechenden spalten. problem ist halt nur, dass es eine extreme laufzeit haben kann

[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

[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"?

[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

[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

[Alter Mann]

Hi,

schon mal mit LVM_SETCOLUMNWIDTH versucht?

Gruß

[Andreas L.]

Zitat von 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.

Bei mir schon, siehe Anhang.

[xZise]

Oh nein Total übersehen...

MfG
xZise

[deadcantdance]

Funktioniert das auch mit virtuellen Listviews?