Cambiar tamaño de un TlistBoxitem en FMX

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.

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

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

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);