Free Tools

Votre publicité ici ?


Pourquoi donner ?


Top des logiciels

1. HxD Hex Editor 1.6.1 (289 fois)

2. Open Office 2.2.1 (253 fois)

3. Delphi 6 (207 fois)

4. Windows Live Messenger (160 fois)

5. FireFox 2.0.0.12 (122 fois)


En bref

21 Juil 2008 TransfertJet : la nouvelle génération de transfert sans fil haut débit

15 Juil 2008 iPhone 3G : déjà 1 millions d'exemplaires vendus - Rétrospective du lancement mondial

11 Juil 2008 L'iPhone 3G déjà cracké !

07 Juil 2008 « Where the hell is Matt ? » la nouvelle star du Web !

02 Juil 2008 Windows XP est retiré de la vente - Tour des autres Systèmes d'Exploitation

Consulter les archives


Les derniers dossiers


Les ressources Delphi et C/C++

Music Pro Package

Afficher la date et heure du jour

Fonction affine

Alignement de séquences d'ADN

TatNum : gestion des images avec Qt


Membres en ligne :

kilaam

Malgon


Nos partenaires

Keypi

Espacerezo

KilaSoft


À votre tour, devenez partenaire de mx-dev.net.



Logo mx-dev.net

Le 1er du Web - Voter pour mx-dev.net


Vous êtes ici : AccueilDelphiSources › Effet de Fondu


Effet de Fondu


Informations sur la source :

Auteur : florenth
Catégorie : Manipulation d'images
Niveau : Débutant
Posté le : 25 Février 2008 à 15h11


Description de la source :

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


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