Presentación de un TLisView

[Angel.Matilla]

Tengo un TListView con la propiedad ViewStyle como vsList y una única columna definida. Siguiendo las inidcaciones de la ayuda le he puesto el ancho de las columnas con el valor -1 por lo que el ancho de columna debería ajustarse al texto de los elementos (Column is resized to fit text of items). Sin embargo se muestra así:

Con la única columna ajustada a un ancho inferior al que debiera. He probado a fijar el ancho de columna en otros valores fijos (150, 200, etc.) pero da lo mismo ¿Alguna sugerencia?

[ecfisa]

Hola.

Intentá con la macro ListView_SetColumnWidth:

Código PHP:

  ListView_SetColumnWidth(ListView1->Handle, 0, LVSCW_AUTOSIZE); // -1 


O enviando el mensaje:

Código PHP:

  SendMessage(ListView1->Handle, LVM_SETCOLUMNWIDTH, 0, LVSCW_AUTOSIZE); 


Saludos

[Angel.Matilla]

Gracias por la respuesta. Otra cosa, aunque me da vergüenza decirlo: ¿Cómo uso ListView_SetColumnWidth? En el uso de la API de Windows estoy bastante pez. Ya sé que es imperdonable...

[ecfisa]

Hola.

En el mensaje anterior, el primer ejemplo usa la macro ListView_SetColumnWidth y el segundo hace lo mismo enviándo el mensaje LVM_SETCOLUMNWIDTH.

Esos códigos los podes ubicar donde gustes, v.gr.:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ListView_SetColumnWidth(ListView1->Handle, 0, 150); // 150 pixeles
} 


Saludos

[Angel.Matilla]

¡Perfecto! Es exactamente lo que me hace falta. Muchas gracias.