tfloatanimation rotation impossible

bonjour
j'ai mis sur la form1 un Ttext2
et je voudrais animer en rotation
donc j'ai creer animation

Code:

---

1 2 3 4 5 6 7 8

Anim := TFloatAnimation.Create(Self); Anim.Parent := text2; Anim.Duration := 5; Anim.StartValue := 0; Anim.StopValue := 360; Anim.Loop:=true; Anim.PropertyName := 'Text2.RotationAngle';

---

avec un Button1 je lance

Code:

---

1 2 3 4 5

Anim.Enabled := False; text2.RotationAngle := 0; Anim.Enabled := True; Anim.Loop:=true;

---

si je met pas anim.enabed :=false
et
anim.enabled:=true ma rotation marche pas
pourquoi ??

merci

Bonsoir,
un petit Anim.Start à la place de ces 4 lignes c'est plus simple

Code:

---

1 2 3 4

Anim.Enabled := False; text2.RotationAngle := 0; Anim.Enabled := True; Anim.Loop:=true;

---

pas besoin de remettre Loop, rotationAngle à zéro (si startfromcurrent n'est pas coché)
tout est déjà indiqué dans la création de l'animation

autre exemple

Code:

---

1 2 3 4 5

procedure TForm1.Text2Click(Sender: TObject); begin if Anim.Running then anim.Stop else Anim.Start; end;

---

bonjour
comme je suis négligent penser bien avoir mis le start
mais je m'avais tromper d'animation
merci encore
par contre j'ai encore un problème comment éviter que animation sort de ma form
je joint le code
merci
par contre n'hésiter pas de me critiquer car avec vous je progresse
plus rapidement

Bonjour,

Citation:

---

Envoyé par tintin62

j'ai encore un problème comment éviter que l'animation ne sorte de ma forme

---

Pas la moindre idée, et AMHA pour une animation de rotation cela ne devrait pas avoir d'importance

Citation:

---

Envoyé par tintin62

par contre, n'hésitez pas à me critiquer car, avec vous, je progresse plus rapidement

---

Même si c'est le cas, j'ai du mal à m'investir dans votre projet dont je ne comprends pas la finalité.
Ceci sans parler du fait que je sois toujours en activité et que, moi aussi, j'ai pas mal de projets extras.

pour en revenir à la question je reprends le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject); var I, C, R,t,a: Integer; begin { Anim.Enabled := False; } text2.RotationAngle := 0; // inutile { Anim.Enabled := True; } Anim.Loop:=true; // inutile anim.Start; // ... le reste n'a rien à voir avec la question end;

---

Ensuite, il y a certainement mieux : pour montrer que le process en cours car, si j'ai bien compris. S'il s'agit de ça un TAniIndicator me semble bien plus indiqué.
Pièce jointe 620758 Pièce jointe 620759...

De plus, plusieurs animations en même temps je tique, il me semblait que cela n'était pas possible, les animations démarrant les unes à la suite des autres



Mais je commencerai par dire que je créerai un type d'objet TBoule ainsi qu'un TObjectList<TBoule> pour gérer ça. Cela aurait au moins l'avantage de classer les diverses fonctions et procédures au sein de l'objet

Code:

---

1 2	{pathanimation1.Path.Data :=   'M 0,0 l 100,50 l 200,200 l 0,10 l0,400 '+'l '+ floattostr(xpo)+','+ floattostr(ypo); }

---

pas mal ça, ç'aurait pu fonctionner si la virgule décimale n'était pas prise en compte, Quelque chose comme ça :

Code:

---

1 2	FomatSettingsUS:=TFormatSettings.Create('EN-US'); pathanimation1.Path.Data:=Format('M 0,0 l 100,50 l 200,200 l 0,10 l0,400 l %3.4,%3.4f',[xpo,ypo],FormatSettingsUS);

---

De même, je vois pas mal d'instructions animation.stop inutiles s'il n'y a pas de boucle (loop) l'animation s'arrête seule, et donc, pas besoin de faire de test

Et là, je ne me suis pas "investi" :ptdr:

bonjour
merci pour les remarques
cette application me sert seulement a me donner sur 70 numéros
2 a 10 numéros au hasard pour faire un keno fdj
merci

Ah, la même chose que mon programme bingo/loto avec quelques variantes pour le tirage (nombre de boules et grille). Seule l'animation serait différente