| |
|
|
Julian Schmidt | weiches final uno Dialogs KompilierenMarcaSeparaciónDef SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"
Proc ExitAnimated
Parameters Hwnd%,time%
var i%=100
while i%>=0
i%=i%-1
External("USER32","SetWindowLongA",Hwnd%, -20, External("USER32","GetWindowLongA",Hwnd%,-20) | $80000)
SetLayeredWindowAttributes(Hwnd%, 0, (255 * i%) / 100, $2)
sleep (time%/100)
Endwhile
destroywindow(Hwnd%)
EndProc
cls
Usermessages 16
while 1
waitinput
case %umessage=16 : break
Endwhile
ExitAnimated(%hwnd,100 > )
|
|
|
| |
|
|
|
RudiB. | Das Ventana blitzt para Schluss una vez más kurz en, por lo tanto tener Yo 2 kleine Los cambios vorgenommen...
Def SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"
Proc ExitAnimated
Parámetros Hwnd%,time%
var i%=100
mientras que i%>=2' Änderung de 0 en 2
i%=i%-1
Externo("USER32","SetWindowLongA",Hwnd%, -20, Externo("USER32","GetWindowLongA",Hwnd%,-20) | $80000)
SetLayeredWindowAttributes(Hwnd%, 0, (255 * i%) / 100, $2)
sleep (time%/100)
Endwhile
showwindow(Hwnd%,0)' Änderung ...hier se el Ventana para Ende hin versteckt. Nun es wirklich una weiches ausblenden..
destroywindow(Hwnd%)
ENDPROC
cls
Usermessages 16
mientras que 1
waitinput
caso %umessage=16 : romper
Endwhile
ExitAnimated(%hwnd,100)
Jetzt es wirklich una weiches ausblenden... |
|
|
| |
|
|