PopupMenu Anomalie Delphi 10.4

Bonjour,

voila c'est assez simple. Un popupmenu avec des images provenant d'un ImageList se comporte correctement (affichage) si je l'affecte à un composant (TPaintBox ), mais s'affiche différemment au niveau des arrières plan des icônes si je l'ouvre via MonPopUp.Popup( X, Y ) dans un évènement Onclick sur le même TPaintBox et ceci depuis mon passage sous Delphi 10.4 (précédemment XE5 cela ne posait pas de problème).

Pièce jointe 602416

Pièce jointe 602417

A noter qu'après l'affichage de anormale suite appel à MonPopup.Popup(X, Y ), le même menu s'affiche alors aussi de manière anormale via un click droit sur le composant.

J'ai essayé toutes les configurations des propriétés du composant ImageList, rien n'y fait ...
Quelqu'un a-t-il une idée ? Merci.

Bon j'ai résolu mon problème ... en fait c'est TImageList qui est en cause particulièrement lorsque l'item du menu est en Enabled := False.
Il faut cocher la l'option 'Activer les thèmes d'exécution' dans les options Application > Manifeste du projet ...

Cet effet liés au "Thèmes" ne se manifestait pas sous Delphi Xe5. .... j'utilise pas vraiment les thèmes ..