Fenetre transparente en win98
Publié : lun. 13/nov./2006 13:05
Bonjour a tous
J'ai trouvé ce splendide code
sur le forum us de netmaestro:
http://www.purebasic.fr/english/viewtop ... ransparent
Il marche super sur w2000, j'aimerais savoir si c'est le cas avec W98.
Est ce quelqu'un a encore cet OS et peux l'essayer ??
Merci d'avance, car je voudrais etre sur si je l'utilise que mon appli ne plante pas a cause de ce code sur certaines machines.
Au passage, si quelqu'un a des remarques à faire, quant à la compatibilité, la fiabilité, ou autre, j'aimerais bien connaitre votre avis de connaisseur.
Car je vais baser mon prochain programme sur ce genre de code.
Merci a tous.
Bonne journée
J'ai trouvé ce splendide code

http://www.purebasic.fr/english/viewtop ... ransparent
Code : Tout sélectionner
OpenWindow(0,0,0,320,240,"",#PB_Window_ScreenCentered|#PB_Window_BorderLess)
SetWindowLong_(WindowID(0),#GWL_EXSTYLE,GetWindowLong_(WindowID(0),#GWL_EXSTYLE)|#WS_EX_LAYERED)
SetLayeredWindowAttributes_(WindowID(0),RGB(255,0,255),0,#LWA_COLORKEY)
SetWindowColor(0,RGB(255,0,255))
CreateGadgetList(WindowID(0))
ButtonGadget(0,300,0,20,20,"X")
StickyWindow(0,1)
CreateImage(0,32,32)
StartDrawing(ImageOutput(0))
Box(0,0,32,32,RGB(255,0,255))
Box(12,0,6,32,0)
Box(0,12,32,6,0)
StopDrawing()
ImageGadget(1,0,0,0,0,ImageID(0))
DisableGadget(1,1)
quit = 0
Repeat
ev = WaitWindowEvent()
Select ev
Case #WM_LBUTTONDOWN
SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN,#HTCAPTION,0)
Case #PB_Event_Gadget
If EventGadget()=0
quit = 1
EndIf
EndSelect
Until quit
Est ce quelqu'un a encore cet OS et peux l'essayer ??
Merci d'avance, car je voudrais etre sur si je l'utilise que mon appli ne plante pas a cause de ce code sur certaines machines.
Au passage, si quelqu'un a des remarques à faire, quant à la compatibilité, la fiabilité, ou autre, j'aimerais bien connaitre votre avis de connaisseur.

Car je vais baser mon prochain programme sur ce genre de code.
Merci a tous.
Bonne journée