PNG картинка в окне

[_Lexa98_]

Как сделать PNG картинку в окне?

 

[Zaramot]

Легко :

#include <Constants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>

Global Const $STM_SETIMAGE = 0x172

$PngFile = @ScriptDir & '\Russia.png'

$hGUI = GUICreate("Test")
$Pic = GUICtrlCreatePic("", 80, 80, 128, 128)
_SetPNGIntoPicControl($Pic, $PngFile)
GUISetState()

While True
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            Exit
    EndSwitch
WEnd

Func _SetPNGIntoPicControl($iPic, $sPNGFile)
    _GDIPlus_Startup()
    Local $hImage = _GDIPlus_ImageLoadFromFile($sPNGFile)
    Local $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    _WinAPI_DeleteObject(GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hBitmap))
    _WinAPI_DeleteObject($hBitmap)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
EndFunc

PNG:

 

[_Lexa98_]

Спасибо
А как сделать окно прозрачным?
А то получается так:



Добавлено:

Сообщение автоматически объединено: 28 Ноя 2011

А не всё не надо! ;D
Надо так:

GUICreate("PET", $w, $h, 0, 0, $WS_POPUP, BitOr($WS_EX_LAYERED,$WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor ( 0x000000 )