3 replies to this topic

[genriquez]

Hola, buenas tardes.

 

He estado intentando cambiar el tamaño de los tlistboxitem de manera programatica,  dependiendo del contenido, sin embargo siempre regresa al tamaño que tiene por defecto el Tlistbox.

 

he cambiado propiedades como el StyledSettings := [TStyledSetting.ssFamily] + [TStyledSetting.ssStyle] + [TStyledSetting.ssFontColor];

 

he intentado en diferentes eventos como el ListBoxItemApplyStyleLookup o el OnPaint, sin embargo tampoco funciona bien.

 

encontré algunos ejemplos en internet como https://stackoverflo...emonkey-android

 

pero ninguno de ellos me ha funcionado.

 

Alguien tiene alguna idea?

 

Gracias.

[egostar]

Hola Gustavo.

 

No tengo Delphi a la mano, he tenido que desinstalarlo y no lo he podido reinstalar....

 

Tal vez en el evento OnDraw podrías hacer algo al respecto. Espero poder instalar mi Delphi nuevamente para poder hacer la prueba.

 

Saludos

[look]

Hola, buenas tardes.

 

He estado intentando cambiar el tamaño de los tlistboxitem de manera programatica,  dependiendo del contenido, sin embargo siempre regresa al tamaño que tiene por defecto el Tlistbox.

 

he cambiado propiedades como el StyledSettings := [TStyledSetting.ssFamily] + [TStyledSetting.ssStyle] + [TStyledSetting.ssFontColor];

 

he intentado en diferentes eventos como el ListBoxItemApplyStyleLookup o el OnPaint, sin embargo tampoco funciona bien.

 

encontré algunos ejemplos en internet como https://stackoverflo...emonkey-android

 

pero ninguno de ellos me ha funcionado.

 

Alguien tiene alguna idea?

 

Gracias.

revisa el itemHeight del listbox, este tiene que estar en zero , ya luego cuando tu ingresas uno por uno los items les pones el valor que quieres.

 

saludos!

[genriquez]

Hola,  efectivamente es necesario dejar la propiedad itemheight del listbox en cero, de lo contrario siempre las crea del mismo tamaño.

 

php

Var
   Item : TListBoxItem;
begin
   Item := TListBoxItem.Create(ListBox1);
   Item.Text := 'item '+Random(1000).ToString;
   Item.Height := 80;
   ListBox1.AddObject(Item);
 
 
   Item := TListBoxItem.Create(ListBox1);
   Item.Text := 'item '+Random(1000).ToString;
   Item.Height := 120;
   ListBox1.AddObject(Item);
 
 
   Item := TListBoxItem.Create(ListBox1);
   Item.Text := 'item '+Random(1000).ToString;
   Item.Height := 40;
   ListBox1.AddObject(Item);

Muchas gracias por la ayuda.