TPopUpMenu en couleurs et enrichissements

Petit programme de test, permettant de modifier les couleurs de fond ainsi que les fontes d'un TpopUpMenu (VCL).

Voici quelques infos complémentaires si vous souhaitez utiliser ces modifications graphiques:
Ce code est réalisé sur RAD Studio XE7 Architect.

Ce petit exemple a été testé sur Win 7 Pro et sur Win 10 Pro 21H2 sans aucune différence de comportement flagrantes.

Pour le bon fonctionnement, j'ai remarqué que les events OnDrawItem et OnMesureItem des TMenuItem sont déclenchés soit
par le TPopUpMenu via la propriété OwnerDraw à True
ou
par le renseignement de la propriété Images d'un TImagesList, même sans graphiques.
Si l'un ou/et l'autre ne sont pas paramétrés comme indiqué, rien de ne passe !

D'autre part, les résultats sur mon poste présentent des défauts lors de l'utilisation de certain style.
Ces défauts étant toujours présents en dehors de cette application. J'en déduit que les Styles ne sont pas
au point sur ma machine et ma version de Delphi.
Des essais sont donc à prévoir sur votre environnement de travail.

N'oubliez pas, que le fait de décocher tous les styles dans les options du projet, ne retire pas les unités nécessaires aux Styles.
Ces unités sont toujours présentent dans le .DPR de votre application. Pensez à le regarder si vous constatez des bizarreries et à
supprimer Vcl.Themes et Vcl.Styles du .DPR.

L'unité UAttrib et UShowFont ne sont là que pour permettre de visualiser simplement les modifs que l'on peut faire sur l'aspect des popups.
Il n'y a qu'en fait que les events OnDrawItem et OnMesureItem qui sont à recopier, ainsi que les variables, Types et Constantes relatives à
ces deux routines.

Pour ceux qui veulent aller plus loin, ils peuvent envisager la dérivation d'un TpopUpMenu pour en sortir un composant incluant ces modifs.
Je leur souhaite bien du plaisir, car c'est une entreprise de longue haleine !

Pour finir, je remercie ANAPURNA qui par un petit exemple qu'il a posté sur ce forum, m'a donné l'envie de faire ce petit programme de test.
Voici le lien de ce qu'avait posté ANAPURNA:
https://www.developpez.net/forums/d110595/environnements-developpement/delphi/reduire-programme-zone-notification-windows/#post1152603