AutoIt Français

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

_GDIPlus_Startup()

$pngSrc = @ScriptDir & "\LaunchySkin.png"
    $GUI = _GUICreate_Alpha("Title", $pngSrc)
GUISetState()


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

_GDIPlus_Shutdown()


Func _GUICreate_Alpha($sTitle, $sPath, $iX=-1, $iY=-1, $iOpacity=255)
    Local $hGUI, $hImage, $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
    
    $hImage = _GDIPlus_ImageLoadFromFile($sPath)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage) ;+
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height = _GDIPlus_ImageGetHeight($hImage)
    
    $hFamily  = _GDIPlus_FontFamilyCreate("Arial") ;+
    $hFont    = _GDIPlus_FontCreate($hFamily, 16, 1) ;+
    $tLayout  = _GDIPlus_RectFCreate($width/2, $height/2) ;+
    $hFormat  = _GDIPlus_StringFormatCreate() ;+
    $hBrush1  = _GDIPlus_BrushCreateSolid(0xC4FF0000) ;+
    $aInfo    = _GDIPlus_GraphicsMeasureString($hGraphic, "Autoit c'est balèze", $hFont, $tLayout, $hFormat) ;+
    
    _GDIPlus_GraphicsDrawStringEx($hGraphic, "Autoit c'est balèze", $hFont, $aInfo[0], $hFormat, $hBrush1) ;+

    $hGUI = GUICreate($sTitle, $width, $height, $iX, $iY, $WS_POPUP, $WS_EX_LAYERED)
    $hScrDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", $width)
    DllStructSetData($tSize, "Y", $height)
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", 1)
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, 2)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteObject($hImage)
    _WinAPI_DeleteDC($hMemDC)

    _GDIPlus_BrushDispose($hBrush1) ;+
    _GDIPlus_StringFormatDispose($hFormat) ;+
    _GDIPlus_FontDispose($hFont) ;+
    _GDIPlus_FontFamilyDispose($hFamily) ;+
    _GDIPlus_GraphicsDispose($hGraphic) ;+
    _GDIPlus_ImageDispose($hImage) ;+
    
EndFunc ;==>SetBitmap