Free Tools CodeS-SourceS.com
Programmez!
PCInfo Web


Sélection logiciels

Yo Frankie! v1.1

VLC MediaPlayer v1.0.2

Access To MySQL v3.0.0.117

VMware Workstation v6.5.2

FireFox 3 Bêta 3 v3 Bêta 3


En bref

06 Fév 2010 Une semaine d'actu : retour sur l'actualité de la semaine

28 Déc 2009 2000-2010 : Les révolutions qui ont changé le monde

31 Oct 2009 Google Maps Navigation : nouvelle bombe atomique parmi les GPS

24 Juil 2009 HADOPI 2 : Ce qu'on en pense à l'étranger

30 Juin 2009 Firefox 3.5 : la finale en téléchargement aujourd'hui !


Les derniers dossiers


Les ressources Delphi et C/C++

TRichEdit : scroll par la molette de la souris

TThResCollection

Récupérateur de mots de passe WLM

Music Pro Package Version 2

Gestion de fichiers (opérations de base)


Membres en ligne

+7 visiteurs en ligne


Nos partenaires

Espacerezo

KilaSoft



Vous êtes ici : AccueilDelphiSources › Effet de Fondu

Effet de Fondu

Informations sur la source :

Auteur : Flo

Catégorie : Manipulation d'images

Niveau : Débutant

Déposé le : 25 Février 2008 à 15h11

0 commentaire sur cette source


Description

Pour faire joli, on peut avoir besoin d'effectuer un fondu lorsque :
1- Une fiche se ferme (ou s'ouvre)
2- On change de page d'un TPageControl ou TTabControl
3- On modifie les propriétés Visible de certains composants, ce qui modifie l'aspect de la fenêtre.

Pour le cas 1, on sait faire (AlphaBlendValue et compagnie) mais pour les deux autres, c'est pas pareil.

Voici donc un code tout simple qui permet de le faire !
Utilisation :
- Créer un TFrmBlend avec "nil" comme propriétaire.
- Appeler la méthode SetBlendControl() ou SetBlendRect() pour définir la zone qui va nécessiter un fondu.
- Changer les propriétés de vos contrôles (Visible, Parent, etc... suivant les besoins).
- Appeler Blend(durée_du_fondu).
- Admirer !

Pour le code et un exemple ----> zip.


Code Source

1
23
45
67
89
1011
procedure TFrmDemo.PageControlChanging(Sender: TObject;
  var AllowChange: Boolean);begin
  BlendFrm := TFrmBlend.Create(nil);  BlendFrm.SetBlendControl(PageControl);
end; 
procedure TFrmDemo.PageControlChange(Sender: TObject);begin
  BlendFrm.Blend(400);end;

Conclusion

Limitations: faut pas déplacer la fiche active pendant le fondu sinon ça fait très moche ! Donc ne pas mettre un temps de fondu trop important (400 ms semble un bon compromis).


Fichier Source

6 fichiers 24,88 Ko

Blending.dfm664 Octets
Blending.pas2,37 Ko
BlendingDemo.dpr214 Octets
Directives.inc2,16 Ko
UFrmBlendDemo.dfm44,33 Ko
UFrmBlendDemo.pas919 Octets

Télécharger la source


Autres contributions de Flo


Commentaires sur la source

Soyez le premier à commenter cette ressource !


Ajoutez votre commentaire & avis sur la ressource :

Vous n'êtes pas connecté !

Rejoignez dès maintenant la communauté en 3 clics et exprimez votre avis !

J'ai déjà un compte