forms transparent ou couleur invisible

'
' test : rendre un 'form' transparent ou une couleur invisible
'

dim a$,null%,tmp%,gwl%,transparent%,colorkey%,colorkey_ou_alpha%
dim r,v,b,a
label build

left 0,350:top 0,100

' on peut imaginer rendre un objet transparent en le collant temporairement
' dans un form transparent, mais il faut le laisser en avant-plan
' voir ici:
' http://panoramic.1fr1.net/t4455-probleme-du-programme-en-cours-devant-derriere-autre-progr
form 1 : border_small 1
grid 2 : parent 2,1
width 1,330 : height 1,146
top 1,300 : left 1,500


dll_on "user32"
   ' transparence
   tmp%=handle(1)
   transparent%=255*0.7  :' 70% d'opacité
   colorkey_ou_alpha%=2  :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
   gosub build

   ' couleur invisible, ici du mauve
   r=128 : v=0 : b=128
   tmp%=handle(0)
   colorkey%=r+(256*v)+(65536*b)   :' couleur transparente si colorkey_ou_alpha%=1
   colorkey_ou_alpha%=1  :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
   gosub build
dll_off

scene2d 10 : delete 10  :' necessaire pour voir s'afficher les rectangles; initialisation ??

' un rectangle mauve
2d_pen_color r,v,b
2d_fill_color r,v,b
2d_rectangle 10,20,210,220

' un rectangle un peu plus mauve
r=r+1 : if r>255 then r=255
v=v+1 : if v>255 then v=255
b=b+1 : if b>255 then b=255
2d_pen_color r,v,b
2d_fill_color r,v,b
2d_rectangle 210,220,410,420

end
build:
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633584%28v=vs.85%29.aspx
 gwl%=bin_or(dll_call2("GetWindowLongW",tmp%,0-20),524288)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633591%28v=vs.85%29.aspx
 null%=dll_call3("SetWindowLongW",tmp%,0-20,gwl%)
' https://msdn.microsoft.com/en-us/library/windows/desktop/ms633540%28v=vs.85%29.aspx
 null%=dll_call4("SetLayeredWindowAttributes",tmp%,colorkey%,transparent%,colorkey_ou_alpha%)
return

' test : capture d'écran, résultat dans le clipboard, transparence d'après silverman
DIM r,v,b,gwl%,null%,tmp%,transparent%,colorkey%,colorkey_ou_alpha%
LABEL Capture,Quit

HIDE 0
FORM 1: BORDER_SMALL 1: WIDTH 1,300 : HEIGHT 1,150: TOP 1,100: LEFT 1,100
ON_CLOSE 1,Quit: ON_CLICK 1,Capture
FORM 2: TOP 2,0: LEFT 2,0: WIDTH 2,SCREEN_X: HEIGHT 2,SCREEN_Y
  BORDER_HIDE 2: HIDE 2: 2D_TARGET_IS 2: WAIT 100: ' Tout l'écran
IMAGE 3

DLL_ON "user32"
   ' *** transparence
   tmp%=HANDLE(1)
   transparent%=255*0.7  :' 70% d'opacité
   colorkey_ou_alpha%=2  :' 1 ou 2; la transparence agit soit sur une couleur particulière(1), soit sur la fenêtre(2)
   gwl%=BIN_OR(DLL_CALL2("GetWindowLongW",tmp%,0-20),524288)
   null%=DLL_CALL3("SetWindowLongW",tmp%,0-20,gwl%)
   null%=DLL_CALL4("SetLayeredWindowAttributes",tmp%,colorkey%,transparent%,colorkey_ou_alpha%)
DLL_OFF
END
' =====
Capture:
2D_IMAGE_COPY 3,LEFT(1),TOP(1),LEFT(1)+WIDTH(1),TOP(1)+HEIGHT(1)
CLIPBOARD_COPY 3
Quit:
TERMINATE

res% = DLL_call2("WindowTranparency",hnd%,trans%)