Discussion :

[SergioMaster]

Bonsoir,

Sujet lèger en fin de journée.

Je tente (enfin réussi) de simuler une sorte de diaphragme basique quand on clique sur un bouton.
Pour cela j'ai fait ceci


et avec un code hyper basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm132.BtnPhotoClick(Sender: TObject);
begin
// les animations s'appliquent aux hauteurs des deux parties (StartValue=0 StopValue=200)
FloatAnimation1.Enabled:=False;
FloatAnimation2.Enabled:=False;
FloatAnimation1.Enabled:=True;
FloatAnimation2.Enabled:=True;
end;

Mon animation se lance correctement.
Cependant je n'arrive pas à comprendre pourquoi, au démarrage du programme, les deux parties sont partiellement visibles (Height=50) alors qu'au design c'est bien 0.
Je suis obligé dans le onCreate de retailler les deux Graphics.Tpath à 0 ! pas gênant mais je voudrais comprendre.

Même en mettant les deux SVG dans des Tlayouts j'ai le même résultat, j'en déduis que cela à quelque chose à voir avec l'Animation

[SergioMaster]

Bon, encore un mystère de version !

Je n'avais fait le test qu'avec la version que j'utilise en "production" c'est à dire la 10.3.3 ( désolé d'avoir oublié de l'indiquer)

Ce matin un test avec Delphi 11 et je n'ai pas ce phénomène. Cela a donc été corrigé entre ces deux versions. Il va vraiment falloir que je passe à cette version pour la "prod", c'est au moins le 2éme truc où je constate l'évolution et il y en a certainement d'autres !
Le premier était sur des changements de style (type light/dark) et le rafraichissement niveau TlistView qui ne se faisait pas