Foros Club Delphi - Presentación de un TLisView

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Presentación de un TLisView (https://www.clubdelphi.com/foros/showthread.php?t=93716)

Angel.Matilla

28-01-2019 13:07:23

Presentación de un TLisView

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

28-01-2019 21:11:13

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

29-01-2019 10:08:03

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

29-01-2019 17:55:31

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

29-01-2019 18:56:58

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

La franja horaria es GMT +2. Ahora son las 12:07:33.