Maybe most of you already know how to do it, i put it here in case someones don't.
I think only works in XP (however i dont think anyone continue using w1895 )
Code: Select all
;AlphaBlending test in XP by Ricardo (sunday morning, was bored)
#WS_EX_LAYERED = $80000
#LWA_ALPHA = $2
Procedure AlphaBlendIt()
Alpha.b = GetGadgetState(1)
SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED)
SetLayeredWindowAttributes_(WindowID(0), 0, Alpha, #LWA_ALPHA)
EndProcedure
If OpenWindow(0,100,150,450,200,"Alpha Blending",#PB_Window_SystemMenu)
TrackBarGadget(1,10,10,250,20,0,255,#PB_TrackBar_Ticks )
SetGadgetState(1,200)
ButtonGadget(2,200,70,150,25,"AlphaBlendIt")
ButtonGadget(3,200,120,150,25,"Play a little")
Repeat
EventID=WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
Select EventGadget()
Case 2
AlphaBlendIt()
Case 3
For i = 0 To 250
Delay(20)
WindowEvent()
Alpha.b = 250-i
SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED)
SetLayeredWindowAttributes_(WindowID(0), 0, Alpha, #LWA_ALPHA)
Next
SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED)
SetLayeredWindowAttributes_(WindowID(0), 0, 250, #LWA_ALPHA)
EndSelect
EndSelect
Until EventID=#PB_Event_CloseWindow
EndIf