DÉFORMES TES FENÊTRES COMME SOUS VISTA!
cs_Forman
Messages postés
600
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
6 avril 2010
-
22 août 2006 à 12:17
Domohina Messages postés 1 Date d'inscription lundi 6 février 2012 Statut Membre Dernière intervention 31 mars 2012 - 31 mars 2012 à 11:56
Domohina Messages postés 1 Date d'inscription lundi 6 février 2012 Statut Membre Dernière intervention 31 mars 2012 - 31 mars 2012 à 11:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39215-deformes-tes-fenetres-comme-sous-vista
https://codes-sources.commentcamarche.net/source/39215-deformes-tes-fenetres-comme-sous-vista
31 mars 2012 à 11:56
8 août 2009 à 23:16
8 août 2009 à 23:13
http://www.stardock.com/products/windowfx/
tu peu avoir un aperçu rapide sur google Images
6 août 2009 à 13:48
mais vous connaissez peut ètre un programme pour XP qui permet d'animer les fenètres lors de leur minimisation ou maximisation ect. si vous en connaissez dites moi le nom du ou des logiciels svp après j'avette de vous embeter ^^ merci
6 août 2009 à 09:17
Les animations ne seront présentes que sur les fenêtres que tu vas créer dans tes applications.
J'entends donc que tu vas créér des applications, des programmes, et ça avec Delphi.
Si tu ne programmes pas, delphi ne te servira à rien et ce code source non plus :/
5 août 2009 à 23:46
5 août 2009 à 17:40
5 août 2009 à 17:25
Attention, ceci est un code source, ce code et donc ces animations ne fonctionnent que sur les applications que tu vas créer en delphi, ce n'est une sorte d'addon XP comme un TweakLike qui fera que toutes les fenetres XP seront ainsi animées.
Programmes-tu en delphi ?
a +
5 août 2009 à 16:59
unit Unit1;
Puis, juste en dessous:
uses
SysUtils, Windows, Forms, etc;
C'est cette ligne qui est appelée la clause "uses" en langage Pascal. Si mes souvenirs sont bons, pour que les animations soient activées, il te faut rajouter AnimatorManager à la liste juste avant le point-virgule (et avec une virgule pour la séparer du reste juste avant bien sûr). Donc, ça deviens:
uses
SysUtils, Windows, Forms, etc, AnimatorManager;
Théoriquement, il n'y a que ça à faire. Demande-moi si ça ne fonctionne pas.
5 août 2009 à 16:39
je n'ai peut ètre pas trop ma place sur ce forum mais changer l'animation de mes fenètres m'interraisse beaucoup donc j'aimerais bien (si quelqu'un a le temps) que quelqu'un m'explique comment faire. (par exemple je ne sais pas ce que sont les uses et je n'arrive pas a effectuer une seul des action qui sont expliquées dans le tuto)
en esperant que quelqu'un ai le temps et l'envie de me répondre =) merci d'avance
22 nov. 2008 à 17:27
Qu'entends-tu précisément par "ne fonctionne pas"?
22 nov. 2008 à 17:09
22 nov. 2008 à 16:49
Ce Source ne fonctionne pas sous delphi 7 !!
Y a t'il une explication à apporter.
merci.
16 juil. 2008 à 08:01
16 juil. 2008 à 02:44
17 mars 2008 à 18:55
Avez vous la procédure?
Merci
Niber
19 oct. 2007 à 06:52
Tout simplement, c'est fantastique !!
J'avais déja songé à un programme pareil mais sans succès, je plantais déja dès l'imagination de la technique à prendre !! Et là, tu le réussis en un coup. Ca mérite des applaudissements !!
15 août 2007 à 13:27
Manque plus que tu le programme Forman :P.
15 août 2007 à 00:08
14 août 2007 à 20:10
10 juin 2007 à 21:17
La réponse est: oui c'est possible, mais ça demanderait du boulot. Vraisemblablement, la façon la plus naturelle de faire ça serait de créer un service qui se lance au démarrage. Celui-ci, dès qu'une nouvelle application est lancée, se charge d'y injecter une ch'tite DLL qui elle-même se charge de surcharger les WndProc des fenêtres de l'application de façon à intercepter le message WM_SHOW et d'y intercaller l'animation avant de rendre la main au comportement normal.
Eventuellement, l'injection pourrait se faire par l'intermédiaire d'un hook global (de cette façon, inutile de surveiller en permancence la liste des process et fenêtres). Il reste une autre difficulté technique: les animations qui utilisent OpenGl. En effet, un contexte opengl ne peut pas être partagé entre plusieurs applications. Il faudrait donc garder la partie OpenGl dans un programme serveur (typiquement le service qui se lance au démarrage) et lui envoyer les données pour qu'il trace lui-même l'animation.
Le danger d'un tel programme c'est qu'il peut rendre le système instable (on peut par exemple imaginer un driver opengl buggé qui fait bugger tout le système dès qu'une fenêtre s'ouvre). Il faudrait donc être extrèmement rigoureux dans la gestion des exceptions (et aussi de la mémoire par la même occasion).
Si j'ai le temps je le ferai un jour... si tu te sens tu peux commencer, mais je te préviens ça demande pas mal de boulot!
10 juin 2007 à 19:56
10 juin 2007 à 02:47
10 juin 2007 à 02:37
10 juin 2007 à 02:35
-quelle version de Windows tu as;
-quelle version de Delphi;
-et éventuellement que tu m'envoies le code de ta fiche par MP.
10 juin 2007 à 01:26
10 juin 2007 à 01:21
10 juin 2007 à 00:41
10 juin 2007 à 00:35
9 juin 2007 à 23:57
ps:desoler pour les fautes..
9 juin 2007 à 23:14
@hackeur13: merci pour les explications. On m'a posé la question tellement de fois sur ce source en particulier: "mais comment diable installe/lance-t-on ce programme?" que je commençais à être fatiqué de répondre...
Pour ta question, je ne suis pas sûr de saisir: "quand ton ouvre l'application elle s'ouvre comme les exemples tres bien faite." Tu veux dire comment intégrer le système de déformations dans tes propres programmes? Si c'est bien ça ta question, c'est très simple, il suffit de rajouter "AnimatorManager" dans les uses de n'importe quelle unité de ton programme, par exemple:
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AnimatorManager;
blablabla...
end.
Si tu fais ça, le système d'animations est automatiquement activé. Si tu veux donner à l'utilisateur la possibilité de le configurer (lors du clic sur un bouton par exemple):
procedure TForm1.Button1Click(Sender: TObject);
begin
GAnimatorManager.Customize;
end;
9 juin 2007 à 18:21
et moi je voudrais savoir si c'est possible de faire une application mais que quand ton ouvre l'application elle s'ouvre comme les exemples tres bien faite.
ps:merci d'avance pour vos reponse!!
27 mai 2007 à 17:58
Merci d'avance pour vos réponses.
7 mai 2007 à 19:06
effectivement il devient plus difficile de trouver les versions gratuites... voir ce post:
http://www.thoughtsabout.net/blog/archives/000056.html
On peut donc télécharger la version gratuite de Delphi 7 ici:
http://www.borland.pl/downloads/delphi_7_personal/Delphi7_Personal.zip
7 mai 2007 à 18:30
27 déc. 2006 à 10:54
Ravis de t'avoir inspiré ^^
26 déc. 2006 à 21:51
25 déc. 2006 à 14:10
Ce n'est pas un programme de "customisation" de windows...
25 déc. 2006 à 11:57
11 déc. 2006 à 14:06
D'abord tu dois avoir Delphi. Si c'est le cas tu as juste à compiler le programme fourni dans le zip et ça y est, tu as un EXE ;-)
Il n'y a rien de spécial à installer pour utiliser ce source, il suffit de rajoutter "AnimatorManager" dans la liste après "uses" dans l'une des unités du programme où l'on souhaite l'utiliser.
11 déc. 2006 à 04:17
Voila j'ai trouvé ces sources qui m'interresse grandement... Le probleme c'est que je suis nouveau dans la programmation... Donc je souhaiterai savoir si quelqun pourai m'expliquer par Email, ou ici,comment installer tout cela ou eventuellement savoir si on pouvai en faire un EXE...
Merci de vos réponse.
27 août 2006 à 15:22
FPreview.Parentwindow:=Panel3.Handle;
ne fonctionne pas en mode multi-moniteur: lorsqu'on référence la propriété Handle d'un descendant de TWinControl (comme un TPanel ici) il se peut que bien que l'instance de l'objet Delphi soit créée, la fenêtre "native" (qui est représentée dans le système d'exploitation pas un THandle) ne soit pas encore créée. Si c'est le cas, Delphi force la création de cette fenêtre pour que la fonction GetHandle de la propriété Handle retourne un descripteur de fenêtre valide. Or, si jamais le THandle créé par Windows devient invalide, et si on l'a affecté au ParentHandle d'une fenêtre il se produit l'erreur décrite: "Handle de fenêtre invalide". En utilisant la propriété Parent à la place, si jamais le Handle du panel a changé, Delphi met à jour automatiquement le ParentHandle de la fenêtre native du système d'exploitation. En théorie, un handle de fenêtre n'a pas à être recréé sauf dans plusieurs cas:
-Changement du style des bords de la fenêtre (BorderStyle ou BorderIcons par exemple)
-Affectation d'un moniteur principal dans le cas d'un système multi-écran.
Mais si le Handle d'une fenêtre doit être recréé (pour une raison ou une autre) ce sera aussi le cas de tous ses enfants. Ici, la TForm du dialogue possédant le TPanel a son Handle recréé après l'appel de OnCreate. Donc, le Handle du Panel devient invalide, or il a été utilisé en tant que ParentWindow de la fenêtre d'exemple...
Ceci devrait expliquer l'erreur, si j'ai été assez clair.
27 août 2006 à 01:26
27 août 2006 à 01:11
Je poste les corrections dont on a parlé. Merci pour votre aide à tous, DelphiFr retrouve son dynamisme ;-)
23 août 2006 à 16:40
sous 98 SE : tout fonctionne à part Vista accélération logicielle qui affiche d'un bloc en fin de durée.
sous 2000 Pro : Vista accélération logicielle un peu saccadé. Pour le reste, parfait, impeccable!
23 août 2006 à 12:05
Mais pour ma part si quelqu'un peut m'expliquer la différence entre les deux déclarations je serai curieux de le savoir ?
Par contre Forman tu dis ceci:
"Chacune des classes d'animations possède plusieurs variantes différentes (en gros une douzaine chacunes) sauf celle de Windows (seulement 6) "
Alors oui il y en bien 6 mais de base en les combinant ça en donne 18 :-)
// Les 6 de base
(AW_BLEND),
(AW_CENTER),
(AW_HOR_POSITIVE),
(AW_HOR_NEGATIVE),
(AW_VER_NEGATIVE),
(AW_VER_POSITIVE),
// et le reste
(AW_HOR_POSITIVE or AW_VER_POSITIVE),
(AW_HOR_NEGATIVE or AW_VER_POSITIVE),
(AW_HOR_POSITIVE or AW_VER_NEGATIVE),
(AW_HOR_NEGATIVE or AW_VER_NEGATIVE),
(AW_HOR_POSITIVE or AW_SLIDE),
(AW_HOR_NEGATIVE or AW_SLIDE),
(AW_VER_NEGATIVE or AW_SLIDE),
(AW_VER_POSITIVE or AW_SLIDE),
(AW_HOR_POSITIVE or AW_VER_POSITIVE or AW_SLIDE),
(AW_HOR_NEGATIVE or AW_VER_POSITIVE or AW_SLIDE),
(AW_HOR_POSITIVE or AW_VER_NEGATIVE or AW_SLIDE),
(AW_HOR_NEGATIVE or AW_VER_NEGATIVE or AW_SLIDE);
@+
Cirec
23 août 2006 à 10:09
FPreview.Parentwindow:=Panel3.Handle;
Par :
FPreview.Parent:=Panel3;"
Ca marche sur mon ordi multimoniteurs; donc pour moi c'est ok ^^
22 août 2006 à 17:52
22 août 2006 à 17:49
En tous cas chez moi le problème est résolu sur un sytème à deux écrans
22 août 2006 à 17:48
Chacune des classes d'animations possède plusieurs variantes différentes (en gros une douzaine chacunes) sauf celle de Windows (seulement 6)
22 août 2006 à 17:44
22 août 2006 à 17:42
Je vais modifier le code quand j'aurai le temps pour mieux gérer les erreurs avec qqchose dans le style de qoprek. Une dernière chose: les fenêtres non rectangulaires sont "à moitié" gérées. Dans leur cas, ce qu'il y a derrière la fenêtre sera déformé et affiché de la même façon que ce qu'il y a à l'intérieur. Ceci dit, cela devrait passer à peu près inaperçu si le fond de l'écran est à peu près homogène, ou si la fenêtre n'est pas "trop" différente d'un rectangle. Par exemple, avec les fenêtres XP aux coins arrondis, on ne se rend compte de rien.
Dans tous les cas, prendre la forme de la fenêtre en compte risquerait de doubler le temps de calcul, et la mémoire utilisée, qui sont déjà bien assez grands!
22 août 2006 à 17:38
je posède également un système avec deux moniteurs ...
Erreur Système - Code 1400 - Handle de fenêtre non Valide
(Comme Flo160Fr certainement ?)
Enfin après une petite recherche j'ai trouvé ceci :
en remplacant :
FPreview.Parentwindow:=Panel3.Handle;
Par :
FPreview.Parent:=Panel3;
tout fonctionne parfaitement ...
Génial, très bon travail
10/10 sans hésitation
@+
Cirec
22 août 2006 à 16:49
Bon travail Forman : vraiment bluffant.
Code : nickel
10/10.
22 août 2006 à 15:57
Sous xp : Ca marche très bien (sauf sur mon ordi qui a plusieur moniteur; mais ça marche sur l'autre ^^)
Sous 98 SE et 95(light) : ça marche pas... mes machine ne son pas assez puissantes (16 mo de ram pour le 95 32 pour le 98; 133 MHz pour le 95, 220 pour le 98; les 2 avec des cartes vidéo pouraves....)
aller un petit 10/10 pour la route ^^
22 août 2006 à 15:31
Sinon j'aurais vu une procédure de ce type pour vérifier (j'ai pas du tout testé donc ca ce trouve j'ai écrit des bêtises):
Procedure TAnimatorManager.AnimatorCheck(FenetreDeTest:TCustomForm);
Var AnimatorClassIDCourant,
AnimatorDelayCourant,
Compteur : Integer;
Begin
Assert(Assigned(FenetreDeTest),'Erreur: La fenêtre servant de tests des animations possibles n''est pas assignée !');
AnimatorClassIDCourant := AnimatorClassID;
AnimatorDelayCourant := GetDelay;
SetDelay(10);
For Compteur := 0 To GetRegisteredAnimatorClassCount Do Begin
AnimatorClassID := Compteur;
Try
FenetreDeTest.Hide;
AnimateForm(FenetreDeTest,True);
FenetreDeTest.Show;
Except
On E : Exception Do Begin
If AnimatorClassIDCourant=Compteur Then AnimatorClassIDCourant:=0;
FRegisteredAnimatorClasses.Remove(GetAnimatorClass(Compteur));
End;
End;
End;
SetDelay(AnimatorDelayCourant);
AnimatorClassID := AnimatorClassIDCourant;
End;
22 août 2006 à 14:56
22 août 2006 à 14:54
22 août 2006 à 14:48
Le problème c'est qu'il n'est pas vraiment recommandé de vérifier que tous les animateurs marchent avant de les proposer dans la liste. En effet, par exemple celui qui utilise OpenGl nécessite ce fameux PBuffer de plusieurs MO en mémoire graphique (et il faut l'allouer pour vérifier que ça marche). Or, allouer une telle quantité prend du temps (jusqu'à 1/2 seconde sur ma geforce 7600) et c'est inacceptable pour une animation qui dure 700millisecondes. Donc cette mémoire devrait être allouée une bonne fois pour toute... c'est à dire seulement si l'utilisateur a choisi d'utiliser l'animation OpenGl (sinon on consomme des resources pour rien, seulement pour vérifier que ça marche). Certes on pourrait imaginer un cas où l'on testerait toutes les classes d'animateurs avant d'en faire la liste uniquement quand l'utilisateur affiche le dialogue de sélection. Mais là encore ça ne résoud pas le problème, puisque l'allocation de pbuffer peut quand même échouer si tu lances le programme plus tard après qu'un autre (lancé entre temps) ait déjà consommé les resources disponibles (en effet, la mémoire graphique est distribuée entre les applications dans l'ordre où elle la demandent)...
Pour le mode software, je ne sais pas non plus pourquoi ça ne fonctionne pas. J'utilise l'API PlgBlt qui permet de déformer une image en un parallélogramme. En découpant la surface de la fenêtre et en l'appelant plusieurs fois, je reconstitue la forme "tordue" approchée désirée. Si tu ne vois rien apparaitre, ça peut venir d'un problème de rapidité: seule la première étape (non visible car en dehors de l'écran) a le temps de s'afficher, puis le délai étant dépassé quand le programme arrive à la frame n°2, il s'arrète et donc tu ne vois rien s'afficher.
Dans tous les cas, vérifie si tes drivers graphiques sont à jour.
Merci pour les commentaires en tout cas
22 août 2006 à 13:55
Sur mon poste les animations style Vista logicelles ne font rien (juste la tempo qui dure et hop la fenêtre affichée normalement) et les animations style Vista matérielles provoquent une exception générée par Assert(FPBufferARB<>0,SysErrorMessage(GetLastError));
dans TPBufferCanvas.CreateContextCreateContext.
Pour l'exception je pense que c'est tout simplement que mon sous-système vidéo ne gère pas l'accéleration matérielle mais peut-être remonter une exception trappée en indiquant que cette option n'est pas disponible. Peut être même une fonction de tests des animations disponibles pourraient être intégrées a l'objet et mettrait a jour la liste des animations disponibles.
Quant a l'animation style Vista logicielle, je ne sais pas pourquoi je n'ai rien.
Cdlt.
Benoit
Informations:
Report Date: 08/22/2006
Report Time[hr:mm:ss]: 13:45:49
Driver Version: 6.14.10.4410
Operating System: Windows XP* Professional, Service Pack 2 (5.1.2600)
Default Language: French
DirectX* Version: 9.0
Physical Memory: 1015 MB
Minimum Graphics Memory: 8 MB
Maximum Graphics Memory: 128 MB
Graphics Memory in Use: 16 MB
Processor: x86 family 6 Model 13 Stepping 8
Processor Speed: 1994 MHZ
Vendor ID: 8086
Device ID: 2592
Device Revision: 03
* Accelerator Information *
Accelerator in Use: Mobile Intel(R) 915GM/GMS,910GML Express Chipset Family
Video BIOS: 3412
Current Graphics Mode: 1280 x 1024 True Color (60 Hz)
* Devices Connected to the Graphics Accelerator *
Active Monitors: 1
Active Notebook Displays: 1
* Monitor *
Monitor Name: Dell 1704FPT (Analog)
Display Type: Analog
Gamma Value: 2,20
DDC2 Protocol: Supported
Maximum Image Size: Horizontal: 13,3 inches
Vertical: 10,6 inches
Monitor Supported Modes:
640 x 480 (60 Hz)
640 x 480 (75 Hz)
720 x 400 (70 Hz)
800 x 600 (60 Hz)
800 x 600 (75 Hz)
1024 x 768 (60 Hz)
1024 x 768 (75 Hz)
1152 x 864 (75 Hz)
1280 x 1024 (60 Hz)
1280 x 1024 (75 Hz)
Display Power Management Support:
Standby Mode: Supported
Suspend Mode: Supported
Active Off Mode: Supported
* Notebook *
Monitor Name: Écran Plug-and-Play
Display Type: Digital
Gamma Value: 3,54
DDC2 Protocol: Supported
Maximum Image Size: Horizontal: Not Available
Vertical: Not Available
Monitor Supported Modes:
640 x 480 (60 Hz)
800 x 600 (60 Hz)
1024 x 768 (60 Hz)
1400 x 1050 (50 Hz)
1400 x 1050 (60 Hz)
Display Power Management Support:
Standby Mode: Supported
Suspend Mode: Supported
Active Off Mode: Supported
* SDVO Encoder Report *
** Encoder 1 **
Vendor ID: Silicon Image
Device ID: 170
Device Revision: 2
Major Version: 1
Minor Version: 0
22 août 2006 à 13:14
22 août 2006 à 13:01
Par contre j'ai pas win98, ni 2000 et encore moins 95 lol.
Désolé allez 10/10 :)
22 août 2006 à 12:17