Sujet Précédent Sujet Suivant

GLOBEANIME.EXE

Inekman Messages postés 291 Date d'inscription dimanche 2 février 2003 Statut Membre Dernière intervention 30 juin 2006 - 24 juil. 2004 à 02:17
cs_Michele58 Messages postés 34 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 26 août 2006 - 1 avril 2006 à 23:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/24804-globeanime-exe
cs_Michele58 Messages postés 34 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 26 août 2006
1 avril 2006 à 23:04
Le graphisme et le globe est super !

bonne continuation.

Michèle
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
24 juil. 2004 à 23:33
Petite animation sympathique :o)

Pour plus de fluidité dans l'animation, un petit tuyau :

Dans l'évènement OnCreate du Form, tu ajoutes

DoubleBuffered := True;

A la fin, tu libère l'Image "Globe" avec "Globe.Free;". Même si ça ne peut pas faire de mal, c'est inutile.
Même remarque pour "TimerGlobe.Interval:=0;"

Ces objets seront de toute manière détruits avec la Fiche ;o)
Inekman Messages postés 291 Date d'inscription dimanche 2 février 2003 Statut Membre Dernière intervention 30 juin 2006
24 juil. 2004 à 02:17
En terme d'amélioration, je propose de changer :

#####################

Case Suivant of
0: ImageList1.GetBitmap(0,Globe.Picture.Bitmap);
1: ImageList1.GetBitmap(1,Globe.Picture.Bitmap);
2: ImageList1.GetBitmap(2,Globe.Picture.Bitmap);
3: ImageList1.GetBitmap(3,Globe.Picture.Bitmap);
4: ImageList1.GetBitmap(4,Globe.Picture.Bitmap);
5: ImageList1.GetBitmap(5,Globe.Picture.Bitmap);
6: ImageList1.GetBitmap(6,Globe.Picture.Bitmap);
7: ImageList1.GetBitmap(7,Globe.Picture.Bitmap);
8: ImageList1.GetBitmap(8,Globe.Picture.Bitmap);
9: ImageList1.GetBitmap(9,Globe.Picture.Bitmap);
10: ImageList1.GetBitmap(10,Globe.Picture.Bitmap);
11: ImageList1.GetBitmap(11,Globe.Picture.Bitmap);
12: ImageList1.GetBitmap(12,Globe.Picture.Bitmap);
13: ImageList1.GetBitmap(13,Globe.Picture.Bitmap);
14: ImageList1.GetBitmap(14,Globe.Picture.Bitmap);
15: ImageList1.GetBitmap(15,Globe.Picture.Bitmap);
16: ImageList1.GetBitmap(16,Globe.Picture.Bitmap);
17: ImageList1.GetBitmap(17,Globe.Picture.Bitmap);
18: ImageList1.GetBitmap(18,Globe.Picture.Bitmap);
19: ImageList1.GetBitmap(19,Globe.Picture.Bitmap);
20: ImageList1.GetBitmap(20,Globe.Picture.Bitmap);
end;

############################

par :

############################

ImageList1.GetBitmap(suivant,Globe.Picture.Bitmap);

############################

Dans l'espérance d'avoir apporter une modification intéressante... :-P

Inekman.
Rejoignez-nous