yes, I did. The actual code is:
TMSFMXTileList1.BeginUpdate;
try
TMSFMXTileList1.Tiles.Clear;
while not MainDM.Typology.Eof do
begin
tl := TMSFMXTileList1.Tiles.Add;
tl.Caption := MainDM.TypologyCLASSID.Value;
tl.Notes := MainDM.TypologyCAPTION.Value;
tl.DataString := MainDM.TypologyTILETYPE.Value + ';' + MainDM.TypologyCLASSID.Value;
if MainDM.TypologyTILETYPE.Value = '1' then
begin
tl.StyleLookup := 'TypologyTile';
end
else
begin
tl.StyleLookup := 'ObjectTile';
if not MainDM.TypologyIMAGE.IsNull then
begin
str := TMemoryStream.Create;
try
MainDM.TypologyIMAGE.SaveToStream(str);
tl.Bitmap.LoadFromStream(str);
finally
str.Free;
end;
end;
end;
MainDM.Typology.Next;
end;
finally
TMSFMXTileList1.EndUpdate;
end;