Gianlu-thebest |
|
| UDF Creata da me, che, se necessario usa le gdi. Funziona molto bene, e supporta le GIFGIFAnimation.au3 sarebbe Udf lettura gif Avevo fatto la funzione, per il mio ultimo gioco: Football Passion.. Funzioni: CITAZIONE _SplashScreen_Loading()
_SplashScreen_Close() Ecco il source: CODICE #cs
---------------------------------------------------------------------------------
File: SplashScreen.au3
Description: SplashScreen for loading and other...
By: Gianlu-thebest - Gianluigi Tozzolino
---------------------------------------------------------------------------------
#ce
#include <GIFAnimation.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GDIPlus.au3>
#
Func _SplashScreen_Loading($Title = "Caricamento...",$Pic = False,$Text_Pic = "Caricamento...",$IsGif = False,$Border = True)
Local $Splash_GUI
Local $Style = $WS_BORDER
Local $__Dimensioni[2]
_GDIPlus_Startup()
If $Border = False Then $Style = $WS_POPUP
If $IsGif = True Then
$__Dimensioni = _GIFGetDimension($Text_Pic)
If @error <> 0 Then
$__Image = _GDIPlus_ImageLoadFromFile($Text_Pic)
$__Dimensioni[0] = _GDIPlus_ImageGetWidth($__Image)
$__Dimensioni[1] = _GDIPlus_ImageGetHeight($__Image)
EndIf
Else
$__Dimensioni[0] = 500
$__Dimensioni[1] = 300
EndIf
$Splash_GUI = GUICreate($Title,$__Dimensioni[0],$__Dimensioni[1],-1,-1,$Style)
If $IsGif = False Then
GUICtrlCreatePic($Text_Pic,0,0,500,300)
ElseIf $IsGif = True Then
Dim $__Ar1,$__Ar2,$__Ar3,$__Ar4;
_GUICTrlCreateGif($Text_Pic,0,0,$__Ar1, $__Ar2, $__Ar3, $__Ar4)
EndIf
GUISetState(@SW_SHOW,$Splash_GUI)
Return $Splash_GUI
EndFunc
Func _SplashScreen_Close($Hwnd)
If IsHWnd($Hwnd) Then
_GDIPlus_Shutdown()
Return GUIDelete($Hwnd)
EndIf
EndFunc |
| | |
