Olf.FMX.TextImageFrame / ajouter fonction permettant de récupérer le premier TImageList d'un TDataModule

[DeveloppeurPascal]

Provenant de Folder2FMXImageList, on ne connaît pas forcément le nom du TImageList des modules de données d'un projet mais on sait qu'il n'y en a qu'un seul dans les unités générées, ça permet d'automatiser un affichage en fonction des modules de données référencés dans un projet

cf VideoTitlePageGenerator

function TfrmMain.getImageList(DMFont: TDataModule): TImageList; begin if (DMFont.ComponentCount = 1) and (DMFont.Components[0] is TImageList) then result := DMFont.Components[0] as TImageList else result := nil; end;