Solución a bug ListBox + ShowCheckBoxes

[DarkDudae]

Recientemente me he encontrado un problema con el componente LixBox a la hora de programar con Firemonkey.

Os comento el caso, si agregáis items a un ListBox y luego, en runtime, activais la propiedad ShowCheckBoxes:=true, os encontraréis con que el evento que controla cuando un checkbox se activa nunca se lanza. Asímismo, la propiedad IsChecked de cada ListBoxItem tampoco queda marcada.

Tras darle muchas vueltas, he encontrado la solución modificando el fichero FMX.ListBox.pas (os recomendaría que en vez de modificar el original simplemente lo copieis al directorio de vuestro proyecto y lo agregueis al mismo.

La solución es muy simple, en el procedumiento procedure TListBoxItem.ApplyStyle;, tenéis que cambiar la línea:

Código Delphi [-]
if Assigned(LListBox) and LListBox.ShowCheckboxes then

por

Código Delphi [-]
if Assigned(LListBox) then

Espero que a alguien le sea de utilidad.

Un saludo