[D10.4.2][Android] Des TListbox qui n'affichent plus rien
Bonjour,
La rétrocompatibilité est vraiment un gros mot chez Embarcadero!!!!!!!!!!!!!!
Une app Android avec des TListBox développée sous Delphi10.3.3 qu'il faut compiler sous Delphi10.4.2
Résultat?
La compilation se passe bien mais...
La totalité des TListBox de l'app reste "vide", plus rien ne s'affiche! :mur:
Même résultat avec une compilation sous Delphi 11.2! :mur:
J'ajoute des lignes à ma liste à l'aide de la proc suivante:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| procedure TForm1.AddListBoxItem(myListBox:TListBox;Definition, Qty1, Qty2:string;BackColor:integer);
var
ListBoxItem : TListBoxItem;
ItemText : TText;
begin
myListBox.BeginUpdate;
try
ListBoxItem:= TListBoxItem.Create(myListBox);
ListBoxItem.Parent:= myListBox;
ListBoxItem.Height:=30;
if BackColor=0 then
begin
if Odd(myListBox.Items.count) then ListBoxItem.StyleLookup:='ListBoxMapStyle'
else
ListBoxItem.StyleLookup:='ListBoxMapStyleKhaki';
end
else
if BackColor=1 then ListBoxItem.StyleLookup := 'ListBoxMapStyleTitle';
ListBoxItem.ApplyStyleLookup;
ListBoxItem.StylesData['Reference.text']:=Definition;
ListBoxItem.StylesData['Qty1.text']:=Qty1;
ListBoxItem.StylesData['Qty2.text']:=Qty2;
finally
ListBoxitem.Free;
myListBox.EndUpdate;
end; |
Est-ce que quelqu'un a déjà été confronté à ce problème?
Est-ce que quelqu'un à une solution à proposer?
Merci d'avance