ScaledLayout et Scale

Bonjour,

J'ai mis un TScaledLayout dans ma fenêtre principale pour que les contrôles soient redimensionnés automatiquement et cela fonctionne très bien.

Par contre, je n'arrive pas à retrouver l'échelle lorsque cette fenêtre est redimensionné, si je lis la propriété Scale, celle-ci est toujours à 1 !

J'ai besoin de cette valeur pour redimensionner un TLayout qui appartient à une autre fenêtre, celle-ci est parfaitement redimensionnable ( avec tous les contrôles enfants ) si je modifie sa valeur Scale.

C'est étonnant que l'on ne puisse pas retrouver cette échelle, j'ai beau chercher dans toutes les propriétés, je trouve pas... :(

Bon sinon je peux très bien calculer l'échelle avec les propriétés OriginalWidth et OriginalHeight de TScaledLayout, cela donnerait :

Scale.X = Width / OriginalWidth
Scale.Y = Heigth / OriginalHeigth

Mais je pensais ne pas être obligé de calculer ces valeurs, apparemment, elles ne sont pas accessibles directement.