AVATARS IN MADNESS
Utilisateur anonyme
-
1 avril 2009 à 13:00
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 7 avril 2009 à 09:18
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 7 avril 2009 à 09:18
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/49700-avatars-in-madness
https://codes-sources.commentcamarche.net/source/49700-avatars-in-madness
7 avril 2009 à 09:18
mauvais codage, prendre en compte un delta du temps, pour adapter la vitesse du jeu en fonction de l'occupation processeur.
6 avril 2009 à 23:23
voilà, j' ai testé et regardé la source.
Pour info, je suis sur delphi2009 et je regrette mon PentiumII: c' est TROP rapide!
Même si cette source ne sert pas à grand chose, elle a le mérite d' être instructive pour la création de class.
A+
3 avril 2009 à 17:06
Cordialement, Bacterius !
2 avril 2009 à 21:56
@Nicolas___: oui, mais ce n'était pas pour faire un poisson d'avril, mais quelque chose de plus sérieux dont on reparlera (peut-être à plusieurs..)
Bacterius: faire le mouvement d'une abeille ?
ouais heu bon ok mais moi je fais la reine !
2 avril 2009 à 18:17
Cordialement, Bacterius !
2 avril 2009 à 17:36
je suis rassuré ^^
Désolé les gars de pas être plus présent mais je me suis résigné: je dois passer sur delphifr le soir car la journée c' est pratiquement impossible depuis quelques mois. Je dois avoir environ 200 sources à voir ...
A+
2 avril 2009 à 17:33
Petit bug passager de CS ...
Cordialement, Bacterius !
2 avril 2009 à 17:20
je testerai se soir ^^
Par contre, j' ai essayé de poster une source et celle-ci fut tout de suite désactivée et j' en profite pour faire appel aux Admins qui passerait par ici ...
A+
2 avril 2009 à 17:03
J'ai donc supprimé la ImageList, j'en ai créé une nouvelle, j'ai changé la taille à 80x80 et j'ai mis dedans tous les bitmaps des avatars. Ensuite, ça a marché sans problème avec la transparence (j'ai laissé clWhite comme couleur de transparence dans l'ajout des bitmaps d'avatars).
Cordialement, Bacterius !
1 avril 2009 à 22:24
mais je te dirai honnêtement que je n'ai pas réfléchi à l'ordre des avatars..
Mais ne dit on pas que le hasard...
et en plus ce n'est pas du tout ce que je voulais faire au départ mais vla ti pas le 1er avril !
A propos de chimi, peut-tu faire un test avec la solution GetBitmap(que je préfèrerai bien sûr) à la place du LoadFromFile(que j'ai conservée pour le moment) et voir si tu n'aurais pas un souci avec la transparence des avatars (je sais que tu es sous D6 et moi sous D7)
mais ça fera toujours un test
merci par avance
cantador
1 avril 2009 à 21:17
L'effet est effectivement hypnotique, ça va tellement vite que j'en ai la tête qui tourne ...
Cordialement, Bacterius !
PS : pourquoi tu m'as pas mis dans le bitmap 7 ? ^^ mais le 1 est bien aussi ça signifie plein de choses ... et puis je suis né le 1er aout après tout :p
1 avril 2009 à 17:01
pour les fuites, ça ne fonctionne que >= D2006
pour la transparence ya un truc..
1 avril 2009 à 16:36
j'ai pas fond blanc derrière !!
et pour tester les fuites je l'ai compilé sous Delphi 2009
en ajoutant cette ligne:
ReportMemoryLeaksOnShutdown := True;
disponible depuis TurboDelphi !!!
1 avril 2009 à 16:24
1 avril 2009 à 15:50
quelle version utilises-tu ?
1 avril 2009 à 15:27
mais la transparence quedal, je ne vois plus le fond mais du blanc derrière les avatars.
vite un hypnotique !!
1 avril 2009 à 14:33
Et non tous les objets ne sont pas libérés !!!
Les TAvatar ne sont jamais libérés .... il y a bien un destructeur d'implémenté mais il n'est appelé par personne.
d'ou la dernière modification pour faire appel au destructeur.
Si tu veux automatiser la chose il faut passer un TObjectList ou Dériver TAvatar de TComponent et lui donner un Owner qui se chargera de tout libérer à la fin.
Voici le détail des fuites avec le code d'origine.
---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:
21 - 28 bytes: TBrush x 14
29 - 36 bytes: TPen x 14, Unknown x 2
37 - 44 bytes: TFont x 14
61 - 68 bytes: TAvatar x 14, TBitmap x 28
101 - 108 bytes: TBitmapCanvas x 14
117 - 124 bytes: TBitmapImage x 28
149 - 156 bytes: Unknown x 1
et pour les images j'ai exactement le même résultat avec l'ImageList qu'avec les Bitmaps chargés depuis le disque ... la seule différence se trouve dans la taille des images .... celles de l'ImageList sont plus petites mais aucune différence dans l'affichage ou la transparence !!!
Testé sous D7 et D2009
1 avril 2009 à 14:13
Je n'ai pas vu de fuites..tous les objets sont libérés et le programme semble fluide.
En revanche, tu as trouvé le truc pour charger les images à partir du TImageList (quel z..., il fallait mettre la propriété de l'objet..)
J'avais également déclaré deux fois le tableau (ouf)
Mais, la première version donne un meilleur rendu à l'écran que la modification (qui ne gère pas les masques des bmp..)
Je ferai la correction une fois ce souci réglé.
Les hypnotiques, à consommer avec modération !
cantador
1 avril 2009 à 13:00
il y a de grosses fuites de mémoire !!
voici la correction des fuites et du problème de chargement des Avatars depuis l'ImageList :
procedure TFMadness.InitAvatar;
var
i: integer;
begin
Randomize;
DoubleBuffered := true;
SetLength(Avatar, AvatarList.count);
for i := 0 to AvatarList.count - 1 do
begin
Avatar[i] := TAvatar.Create(PBScreen.Canvas, PBScreen.ClientRect); {on crée les objets }
with Avatar[i] do
begin
Avatarlist.GetBitmap(i, AvatarBitmap); // ne marche pas à la place du load dommage...???
width := AvatarBitmap.width;
height := AvatarBitmap.height;
end;
end;
end;
procedure TFMadness.FormCreate(Sender: TObject);
begin
//////////////////// MODIFICATION /////////////////////////////////////////////////
InitAvatar;
end;
// ******** Ajouter l'évènement OnDestroy ************
procedure TFMadness.FormDestroy(Sender: TObject);
var I: Integer;
begin
for I := low(Avatar) to High(Avatar) do
Avatar[I].Free;
end;
les déplacements sont hypnotiques ^^