Est-ce possible de concevoir des fenêtres avec fonds semi-transparents de
façon qu'on perçoive vaguement les objets sous cette fenêtre et sans avoir à
créer des fonds spéciaux sur mesure .gif ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre BOUSQUET
PROCEDURE Transparence(Fen,n)
// Applique un effet de transparence à la fenêtre // n peut aller de 0 à 255
SI (n<0 OU n>255) ALORS SI EnModeTest() Erreur("Le taux de remplissage doit être compris entre 0 et 255.") FIN RETOUR FIN
GWL_EXSTYLE est un entier = -20 WS_EX_LAYERED est un entier = 0x80000 LWA_ALPHA est un entier = 2
// Récupération du style actuel de la fenêtre nStyleActuel est un entier AppelDLL32("USER32.DLL","GetWindowLongA",Handle(Fen),n) // Application du taux de remplissage AppelDLL32("USER32.DLL","SetWindowLongA", Handle(Fen), GWL_EXSTYLE, nStyleActuel+WS_EX_LAYERED) // Effet de transparence AppelDLL32("USER32.DLL", "SetLayeredWindowAttributes", Handle(Fen),0, n, LWA_ALPHA)
"Phil" a écrit dans le message de news:myk2d.4268$
Bonjour,
Est-ce possible de concevoir des fenêtres avec fonds semi-transparents de façon qu'on perçoive vaguement les objets sous cette fenêtre et sans avoir
à
créer des fonds spéciaux sur mesure .gif ?
Cordialement,
Réal Phil
PROCEDURE Transparence(Fen,n)
// Applique un effet de transparence à la fenêtre
// n peut aller de 0 à 255
SI (n<0 OU n>255) ALORS
SI EnModeTest()
Erreur("Le taux de remplissage doit être compris entre 0 et 255.")
FIN
RETOUR
FIN
GWL_EXSTYLE est un entier = -20
WS_EX_LAYERED est un entier = 0x80000
LWA_ALPHA est un entier = 2
// Récupération du style actuel de la fenêtre
nStyleActuel est un entier AppelDLL32("USER32.DLL","GetWindowLongA",Handle(Fen),n)
// Application du taux de remplissage
AppelDLL32("USER32.DLL","SetWindowLongA", Handle(Fen), GWL_EXSTYLE,
nStyleActuel+WS_EX_LAYERED)
// Effet de transparence
AppelDLL32("USER32.DLL", "SetLayeredWindowAttributes", Handle(Fen),0, n,
LWA_ALPHA)
"Phil" <pasdespam_info@ultra.ca> a écrit dans le message de
news:myk2d.4268$5F4.192226@weber.videotron.net...
Bonjour,
Est-ce possible de concevoir des fenêtres avec fonds semi-transparents de
façon qu'on perçoive vaguement les objets sous cette fenêtre et sans avoir
// Applique un effet de transparence à la fenêtre // n peut aller de 0 à 255
SI (n<0 OU n>255) ALORS SI EnModeTest() Erreur("Le taux de remplissage doit être compris entre 0 et 255.") FIN RETOUR FIN
GWL_EXSTYLE est un entier = -20 WS_EX_LAYERED est un entier = 0x80000 LWA_ALPHA est un entier = 2
// Récupération du style actuel de la fenêtre nStyleActuel est un entier AppelDLL32("USER32.DLL","GetWindowLongA",Handle(Fen),n) // Application du taux de remplissage AppelDLL32("USER32.DLL","SetWindowLongA", Handle(Fen), GWL_EXSTYLE, nStyleActuel+WS_EX_LAYERED) // Effet de transparence AppelDLL32("USER32.DLL", "SetLayeredWindowAttributes", Handle(Fen),0, n, LWA_ALPHA)
"Phil" a écrit dans le message de news:myk2d.4268$
Bonjour,
Est-ce possible de concevoir des fenêtres avec fonds semi-transparents de façon qu'on perçoive vaguement les objets sous cette fenêtre et sans avoir
à
créer des fonds spéciaux sur mesure .gif ?
Cordialement,
Réal Phil
Romain PETIT
Le 17/09/2004, Pierre BOUSQUET a supposé :
PROCEDURE Transparence(Fen,n)
En un peu plus détaillée : http://rompetit.free.fr/Pub/WD7/fg_TransparenceFenetre.txt
A+
-- Romain PETIT http://cerbermail.com/?IJmancZl88 (cliquez sur le lien ci-dessus pour me contacter en privé)
Le 17/09/2004, Pierre BOUSQUET a supposé :
PROCEDURE Transparence(Fen,n)
En un peu plus détaillée :
http://rompetit.free.fr/Pub/WD7/fg_TransparenceFenetre.txt
A+
--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)
