Discussion :

[tintin62]

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

Code :

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

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 :

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

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

[SergioMaster]

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

Code :

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

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 :

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

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

[tintin62]

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

[SergioMaster]

Bonjour,

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

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 :

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

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é.
...

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 :

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

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 :

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

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"

[tintin62]

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

[SergioMaster]

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