mx-dev.net - Delphi - Effet de Fondu

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

Cet été, bronzez... Geek !

Google : le maître des noms de domaines

La nouvelle version de GMail en images !

Barème de rémunération pour les disques durs multimédias

Windows Vista

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 : Accueil › Delphi › Sources › 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

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).