CRÉEZ VOTRE PROPRE SLIDESHOW (DIAPORAMA) FACILEMENT

Commentaire de Matt 261 le 13/08/2006 10:02:35

Tout simplement excellent ! Les effets sont super bien fait... Bravo !

Commentaire de cirec le 13/08/2006 16:24:05 administrateur CS

Merci pour vos messages
ça fait plisir ;-)

"Pourquoi dériver TcrImgPanel de TCustomPanel alors que TcustomControl me parait mieux. Je n'ai pas testé mais peut être quel AW_BLEND fonctionne avec TCustomControl."

En fait je ne me suis pas posé la question.
L'idée m'est venue d'essayer avec un panel, ça à fonctionner, j'ai ajouté l'image et voilà TcrImgPanel est né :-)

Mais je vais explorer cette piste

"Disons que tu aurais pu le faire dériver de TComponent ce qui aurant permi un mode design-time "
Ben disons que comme beaucoup de membres n'aiment pas forcément devoir installer un composant de plus sur leur palette (qui est déjà bien remplie)...

Et comme la mise en oeuvre est facile :
SlideShow := TcrSlideShow.Create(Panel1);
SlideShow.Start;
Dans la majorité des cas ça suffit !
Bien sur il ne faut pas oublier de faire :
SlideShow.Free;

Donc voilà pourquoi j'ai fait le choix de TObject

"- ParentBackground n'existe pas sous D6"
Je ne le savais pas ... je corrigerais donc ceci
"- Je n'ai pas la constante BIF_NEWDIALOGSTYLE (en l'enlevant, ça fonctionne parfaitement)"
Donc si j'ai bien compris tu as D6 et BIF_NEWDIALOGSTYLE n'y est pas déclaré ?
Par contre il ne faut pas le retirer ... ici ça ne pose pas de problème regarde l'autre source que j'ai déposé ici (je corrigerais également ceci):
http://www.delphifr.com/codes/UTILITAIRE-ACCEDEZ-FACILEMENT-REPERTOIRES-SYSTEME-PEUT-IMPORTE-LEURS_39080.aspx

"- StretchDraw, c'est bof. StretchBlt, c'est mieux (un peu plus lent par contre). Le best étant les méthodes de la librairie GraphicEx."
Oui c'est vrai c'est bof (quoi que chez moi avec mes images ça le fait :-))

Mais je corrigerais ceci :-)
Bon ça fait déjà du boulot

Merci encore
@+
Cirec

Commentaire de cirec le 13/08/2006 21:35:27 administrateur CS

argh!!!
j'avais pas pensé à aller voir la MSDN ...
Dommage pour AW_BLEND mais bon il faudra bien faire avec ...

Sinon as-tu essayé depuis ?

Commentaire de cirec le 14/08/2006 16:04:27 administrateur CS

Voilà j'ai presque tout fait sauf "aOwner as TWinControl"
D'ailleurs l'aide de Delphi dit ceci :

Description
Les contrôles fenêtrés sont des contrôles qui :
Peuvent recevoir la focalisation pendant l'exécution de l'application.
Les autres contrôles peuvent afficher des données, mais l'utilisateur ne peut interagir avec un contrôle que
s'il s'agit d'un contrôle fenêtré.
Peuvent contenir d'autres contrôles.
Un contrôle contenant d'autres contrôles est un parent. Seul un contrôle fenêtré peut être le parent d'un ou
de plusieurs contrôles enfant.
Disposent d'un handle de fenêtre.
Un handle de fenêtre est l'identificateur fourni pour une fenêtre par Windows. Les contrôles fenêtrés peuvent
représenter des fenêtres contrôle standard fournies par l'environnement Windows ou des fenêtres personnalisées
définies par l'application.

Donc je me dit à partir du moment ou tu peux poser le composant celui qui l'accèpte est forcément un TWinControl ou enfant ?

Et de plus la méthode que tu proposes limite l'utilisation à un Panel alors que la je peut le mettre ailleurs (Form par Ex.)
Je vais donc encore réfléchir à ce problème ...

Pour la création avec Nil c'est une habitude que j'ai pris ce que je crée manuellement  je le libère manuellement (bon c'était pas faux mais inutile)

En ce qui concerne TPath :
Comme le constructeur et le Destructeur ne sont pas surchargés et qu'ils sont vide au départ
je n'ai rien mis...
Et dans les sources de Delphi j'ai vu des utilisations identiques donc ...

Sinon pour le bug d'affichage que tu as avec les Slides ... ce doit être chez toi, moi j'ai pas ce phénomène ... jette ton jouet et achète toi un vrai PC ... lol
Non ... un peut de sérieux ... m'enfin !!!

Ah oui j'oubliais ...
J'ai déclarer une Fonction externe AlphaBlend
qui existe depuis D4 dans Windows.pas mais comme MS à fait des changement dans les Dll système (entre les versions) aujourd'hui cette fonction n'est plus accessible depuis D4 et peut être d'autres versions
Avant AlphaBlend se trouvait dans "gdi32.dll" et maintenant elle se trouve dans "msimg32.dll" ?
Ceci explique pourquoi avoir re-déclarer cette fonction

ps : Merci beaucoup à Florenth pour l'intérêt que tu portes à cette source.

Voilà amusez-vous bien
@+
Cirec

Commentaire de mcapp le 15/08/2006 02:23:56

Encore un projet qui est très intéressant à étudier.

Et d'excellente qualité !

Une suggestion : dans la capture, il faudrait présenter une véritable photo (paysage par exemple) sinon elle n'incite pas trop à s'y intéresser avec la capture que tu présentes actuellement.

Je mets 10 bien sûr !

Commentaire de Francky23012301 le 22/08/2006 16:58:04

Salut Cirec,

Bien Bien tout ca : une visionneuse avec des chtit effets visuels bien sympathique.

Code : Propre et fluide.

Allez un petit 10/10.