Exemple d'ajout de clips vidéo silencieux

De RAD Studio
Aller à : navigation, rechercher

Remonter à Ajout de clips vidéo silencieux à une application


Vous pouvez, par exemple, afficher un logo animé dans le premier écran apparaissant au démarrage de votre application. Une fois l'affichage du logo terminé, l'écran disparaît.

Pour exécuter cet exemple, créez un nouveau projet et enregistrez le fichier Unit1.pas sous le nom Frmlogo.pas et le fichier Project1.dpr sous le nom Logo.dpr. Ensuite :

  1. Double-cliquez sur l'icône animation dans la catégorie Win32 de la palette d'outils.
  2. En utilisant l'inspecteur d'objets, affectez à sa propriété Name la valeur Logo1.
  3. Sélectionnez sa propriété FileName, cliquez sur le bouton points de suspension (...), localisez et choisissez un fichier AVI. Cliquez ensuite sur le bouton Ouvrir dans la boîte de dialogue Ouvrir AVI.Cela charge le fichier AVI en mémoire.
  4. Positionnez le contrôle animation dans la fiche en cliquant dessus et en le faisant glisser sur le coin supérieur droit de la fiche.
  5. Affectez la valeur 5 à sa propriété Repetitions.
  6. Cliquez sur la fiche pour lui attribuer la focalisation et affectez à sa propriété Name la valeur LogoForm1 et à sa propriété Caption la valeur Fenêtre Logo. Diminuez la hauteur de la fiche pour y centrer à droite le contrôle animation.
  7. Double-cliquez sur l'événement OnActivate et entrez le code suivant qui exécute la séquence AVI quand la fiche obtient la focalisation à l'exécution
    Logo1.Active := True;
    
    Logo1->Active = true;
    
  8. Double-cliquez sur l'icône libellé dans la catégorie Standard de la palette d'outils. Sélectionnez la propriété Caption du composant et entrez Bienvenue à Cool Images 4.0. Sélectionnez ensuite sa propriété Font, cliquez sur le bouton points de suspension (...) et choisissez dans la boîte de dialogue Fonte, Style : gras, Taille : 18, Couleur : Navy, puis choisissez OK. Cliquez sur le contrôle libellé et faites-le glisser pour le centrer dans la fiche.
  9. Cliquez sur le contrôle animation pour lui donner la focalisation. Double-cliquez sur son événement OnStop et écrivez le code suivant pour fermer la fiche à l'arrêt du fichier AVI
    LogoForm1.Close;
    
    LogoForm1->Close();
    
  10. Sélectionnez Exécuter > Exécuter pour exécuter la fenêtre au logo animé.

Remarque : Si vous utilisez Windows 7, vous devez ajouter ShellAnimations à votre clause uses (Delphi) ou #include ShellAnimations (C++) afin que les CommonAVI (telles que Vcl.ComCtrls.TAnimateParams.CommonAVI) fonctionnent correctement. Cet ajout lie les ressources AVI similaires à celles de Windows XP.


Voir aussi