DIAPORAMA « AVEC DES EFFETS PROFESSIONNELS »
lord948
Messages postés
34
Date d'inscription
jeudi 17 janvier 2008
Statut
Membre
Dernière intervention
19 mai 2009
-
31 déc. 2008 à 00:09
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 - 2 janv. 2009 à 09:57
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 - 2 janv. 2009 à 09:57
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/48834-diaporama-avec-des-effets-professionnels
https://codes-sources.commentcamarche.net/source/48834-diaporama-avec-des-effets-professionnels
2 janv. 2009 à 09:57
@+,
Cincap
2 janv. 2009 à 09:55
BONNE ABBEE.
@ OFFLAKE, Quoi c'est à dire ???, concernant ta source, persévère en tenant compte des conseils à ce propos et pour le reste cela concerne la source de Cirec dont il a donné le lien.
@+,
Cincap
1 janv. 2009 à 21:08
BY OFFLAKE
1 janv. 2009 à 12:49
Meilleurs voeux à toute l'équipe.
Cincap
1 janv. 2009 à 12:20
je vérifierai ça plus tard ;)
1 janv. 2009 à 11:34
@ Offlake, persévère avec ces conseils.
@ Cirec, apparemment, tu n'as pas tenu compte de ma remarque concernant le bug à un point précis au sujet de ta source ou je m'étais mal expliqué !
1) 1er dossier photos choisis, Start puis Stop c'est OK
2) Si on décide de changer de directory mais qu'après avoir ouvert la boite de dialogue on décide d'accepter le new dossier photos c'est OK
3) Par contre si on décide d'annuler, sur D6, il y a un sérieux bug
"Violation d'accès à l'adresse 00473F02 dans le module 'SlideShow.exe' lecture de l'adresse FFFFFFFF"
@+,
Cincap
31 déc. 2008 à 22:52
Bonne année !!
BY OFFLAKE
31 déc. 2008 à 11:59
Un grand Sens de la modestie « On peut dire que c'est la vérité »
Je vais publier beaucoup de sources prochainement !! " des JEUX, Pédagogique...etc "
et MULTIMEDIA Votre domaine préféré alors...
en attendant Bonne Année NICOLAS_____________
BY OFFLAKE
31 déc. 2008 à 10:28
Mais tu progresses , encore 2 fichiers inutiles about.~pas et main.~pas
Et les descriptions ... un grand sens de la modestie :)
Nico
31 déc. 2008 à 09:08
Cari ben Sila
BY OFFLAKE
31 déc. 2008 à 00:22
Pour être positif :
- Tes ateliers ne risquent pas le holp-up.
31 déc. 2008 à 00:20
merci d'avance LORD948!!!
BY OFFLAKE
31 déc. 2008 à 00:14
suivant
case LastPicId of
1:SmallPicsClick(imgPic2);
2:SmallPicsClick(imgPic3);
3:SmallPicsClick(imgPic4);
4:SmallPicsClick(imgPic5);
5:SmallPicsClick(imgPic1)
end;
precedent
case LastPicId of
1:SmallPicsClick(imgPic5);
2:SmallPicsClick(imgPic1);
3:SmallPicsClick(imgPic2);
4:SmallPicsClick(imgPic3);
5:SmallPicsClick(imgPic4)
end;
31 déc. 2008 à 00:13
bonne remarque!!
BY OFFLAKE
31 déc. 2008 à 00:09
fallé enlever les fichiers Pic *_Small, il sont déja en ressource,
pour les procedures des compos TForm1.imgPic*MouseEnter
procedure TMainForm.ImageMouseEnter(Sender: TObject);
begin
with TImage(Sender).Picture.Bitmap do
begin
...
et tu l'attribue de l'onglet de l'evenement OnMouseEntre de chaqu'un des t'es imgPic, pareil pour OnMouseLeave,
if Sender = imgPic1 then
PicId := 1
else if Sender = imgPic2 then
PicId := 2
else if Sender = imgPic3 then
PicId := 3
else if Sender = imgPic4 then
PicId := 4
else
PicId := 5;
un petit truc : PicId := StrToInt(TImage(Sender).Name[7]);
en une seul ligne sans test if, c tt.