columnas de tamaño automático para TListView

Question

Quiero automática el tamaño de todas las columnas de la TListView. Estoy utilizando el código de abajo, pero no es hacer cualquier cosa.

ListView1.Columns.Add.Caption := 'Field Name';
ListView1.Columns.Items[0].Autosize := True;

¿Cómo puedo ajustar automáticamente el tamaño de las columnas de TListView en Delphi.

Me puse mi ViewStyle to vsReport.

Gracias de antemano

Answer 1

Tengo la respuesta. Ajuste de la anchura de la columna a -1 o -2 resuelto el problema.

Uso -1 configuración para establecer el encabezado de columna para el tamaño de la más grande texto del elemento secundario en la columna,

y una -2 configuración para establecer el encabezado de columna para el tamaño del texto en el encabezado de la columna.

ListView1.Columns[0].Width := -1 or -2;

Answer 2

Prueba esto:

// Assign vsReport;    
ListView1.ViewStyle := vsReport; 

  { // Add your items  }

// Assign vsList again;
ListView1.ViewStyle := vsList;