//Rendre une fenêtre WinDev transparente nommé MaFenêtre.
//Affectation d`une valeur exemple
n est un entier = 150
SI n<0 OU n>255 ALORS
Erreur("Le taux de remplissage doit être compris entre 0 et 255.")
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(MaFenêtre), n)
// Application du taux de remplissage
AppelDLL32("USER32.DLL", "SetWindowLongA", Handle(MaFenêtre), GWL_EXSTYLE, nStyleActuel + WS_EX_LAYERED)
//Effet de transparence
AppelDLL32("USER32.DLL", "SetLayeredWindowAttributes", Handle(MaFenêtre),0, n, LWA_ALPHA)
Note : Depuis Windev 10, il existe une option permettant de regler l`opacitee d`une fenetre directement dans sa description. |