Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement WinDev [WD7.5] Tips

[WD7.5] Tips

3 réponses
Avatar
Philippe
Un truc rigolo à appliquer sur vos fenêtres !

PROCEDURE zSetTransparent(xHandle, xLevel=128)

API("user32.dll", "SetWindowLongA", xHandle, -20,
OUBinaire(API("user32.dll", "GetWindowLongA", xHandle, -20), 0x00080000))
API("user32.dll", "SetLayeredWindowAttributes", xHandle, 0, xLevel,
0x00000002)

A+
Philippe
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Marcel.berman
salut !

On 11-Aug-2003, "Philippe" wrote:

Un truc rigolo à appliquer sur vos fenêtres !

PROCEDURE zSetTransparent(xHandle, xLevel8)

API("user32.dll", "SetWindowLongA", xHandle, -20,
OUBinaire(API("user32.dll", "GetWindowLongA", xHandle, -20), 0x00080000))
API("user32.dll", "SetLayeredWindowAttributes", xHandle, 0, xLevel,
0x00000002)

A+
Philippe



C'est vrai que c'est chouette ...
Je me suis amusé à mettre les codes suivants dans une fenêtre dont la
propriété visible est à faux dans l'éditeur :

1) En prise de focus
local
nBoucle est un entier
zSetTransparent(sysFenhandle(moimeme..titre),0)
moimeme..visible = vrai
pour nBoucle = 0 a 255 step 5
zSetTransparent(sysFenhandle(moimeme..titre),nBoucle)
fin

2) en perte de focus
local
nBoucle est un entier
zSetTransparent(sysFenhandle(moimeme..titre),0)
pour nBoucle = 255 a 0 step 5
zSetTransparent(sysFenhandle(moimeme..titre),nBoucle)
fin


Résultat : une fenêtre qui apparait comme par magie quand elle prend le
focus et qui "fond" quand elle le perd !

Rigolo !

--
Marcel Berman
c/o Managing Business SPRL
Allée du Petit Paris, 11
B - 1410 - Waterloo
Tel : +32 2 351.60.64
Fax : +32 2 351.45.78
Gsm : +32 475.799.477
Avatar
Fabrice Burghgraeve
salut !

a écrit dans le message de
news:bha4ef$vq1e1$

salut !

On 11-Aug-2003, "Philippe" wrote:

> Un truc rigolo à appliquer sur vos fenêtres !
>
> PROCEDURE zSetTransparent(xHandle, xLevel8)


(...)
Résultat : une fenêtre qui apparait comme par magie quand elle prend le
focus et qui "fond" quand elle le perd !

Rigolo !



hi hi :)

ca ne marche pas que sous XP ?

et il me semble qu'il y a qqch qui fait ca directement en W-langage, mais je
retrouve plus quoi...



--
Marcel Berman


(...)


--
Fabrice Burghgraeve
Computer & Services

(enlevez le _pas_de_spam_ pour me répondre en privé)
Avatar
Philippe
> A utiliser avec parcimonie donc...



Oui, d'autant que pour rétablir la fenêtre dans son état initial faut pas
oublier de rappeler la même fonction en supprimant attribut :) sinon dans
certains cas cela perturbe un peu l'affichage.

A+


"Romain PETIT" a écrit dans le message de
news:3f38a66f$0$251$
Philippe a écrit :

> Un truc rigolo à appliquer sur vos fenêtres !

Précise toutefois que :
- cela ne marque qu'avec w2000/Xp
- cela rame beaucoup avec des PC pas très puissants.

A utiliser avec parcimonie donc...

A+

--
Romain PETIT
(mailto:rompetit_chez_ifrance.com)