Créez votre propre slideshow (diaporama) facilement

Soyez le premier à donner votre avis sur cette source.

Vue 14 021 fois - Téléchargée 1 356 fois

Description

Voici une petite source qui vous montre comment faire un SlideShow où Diaporama avec très peut de code

L'idée m'est venue après avoir vu une source ici sur AnimateWindow, incomplète et qui à été supprimé ....
Je me suis dit que ça pouvait être une bonne utilisation (le Diaporama) pour AnimateWindow

Le projet utilise l'unité UPath (Fournie dans le zip)
pour plus de renseignement sur cette unité suivre ce lien :
http://www.delphifr.com/codes/UTILITAIRE-ACCEDEZ-FACILEMENT-REPERTOIRES-SYSTEME-PEUT-IMPORTE-LEURS_39080.aspx

il n'y a aucun composant à installer
j'ai fait attention à ce que le code soit facilement réutilisable
et il a ét testé sous D4 et D2005

Je connais quelqu'un qui l'attend depuis longtemps :-)

Utilisation:
le programme pointe dès le départ sur le répertoire "Mes Images" de Windows (même si vous avez changer son emplacement dans la BDR)
Sinon vous pouvez changer le répertoire en cliquant sur le bouton "Change Dir"
où sélectionner une série d'images (2 minimum) en cliquant sur "Select Image"
Appuyez sur "Start" pour démarrer le diaporama
" " " "F6" pour passer en plein écran et pour revenir
" " " "Échap" pour quitter l'application

Le reste se passe de commentaires :-)

@+

Conclusion :


Deux problèmes connues :

Quand on change le mode d'affichage (Mosaïc, Stretch...) où quand on passe du mode normal au mode plein écran (F6)
l'actualisation de l'image ne se fait pas de suite

Et le Type AW_BLEND de AnimateWindow ne fonctionne pas avec les Panel (où j'ai pas trouvé comment) l'image s'affiche en instantané
C'est pourquoi cette possibilité est en commentaire dans le code.

Si quelqu'un à une idée pour l'un où l'autre problème (voir les deux) qu'il n'hésite pas :-)

Le fait d'avoir dérivé TcrSlideShow de TObject n'est peut être pas la bonne méthode ?
Dites moi ce que vous en pensez ...
Merci à Matt pour les Testes éffectués

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
14 mars 2015

salut
SVP comment faire dans votre exemple pour mettre le chemain des photos non changeable par exemple dans la partie formCreate sans utiliser opendialog
merci d'avance
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16 >
Messages postés
1
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
14 mars 2015

Dans l'évènement OnCreate du Form, après la création du SlideShow, tu ajoutes cette ligne qui contient le répertoire des images que tu veux afficher :

SlideShow.Directory := 'C:\Mon_répertoire_images';

Tu pourras ensuite décortiquer cet excellent code pour apprendre la programmation en Delphi.

Bonne chance !
Messages postés
16359
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
26 octobre 2021
568 >
Messages postés
1
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
14 mars 2015

Bonsoir, je ne connais pas Delphi, mais dans les langages que je connais un chemin est contenu dans une chaine de caractères, et en général c'est ce que retourne un OpenDialog.
Tu devrais mettre un point d'arrêt au moment ou le programme enregistre le retour de cette boite de dialog, regarder le format de la chaine, en espionnant le contenu de la variable en question, et mettre ton chemin à la place au bon format.
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour à toutes et à tous,

@ Cirec, bravo pour ce logiciel qui pourra être personnalisé.

Au démarrage de l'application, je pense que ce serait une idée de ne pas avoir accès aux boutons 'Start, Stop et reset) avant d'avoir choisis les photos.

Par contre, après un 1er diaporama et si on veut changer de directory mais qu'après avoir ouvert le dialogue on décide d'annuler, il y a un sérieux bug.

@ Florent, décidément tu maitrises sérieusement le bitmap.

@+,

Cincap
Messages postés
25
Date d'inscription
mardi 16 mars 2004
Statut
Membre
Dernière intervention
21 octobre 2012

Superbe source

Bravo et merci

Tout comme Francky23012301, je mets un 10 / 10
Afficher les 24 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.