Mr. Anderson
Новичок
- Сообщения
- 122
- Репутация
- 4
Не создается GUICtrlCreatePic
Окно есть, а картинки нет.... :blink:
Код:
Func ViewPic(ByRef $aPics, ByRef $iNumPic)
$sLFile = $sFoled&'\'&$aPics[$iNumPic][0]
$hImage = _GDIPlus_BitmapCreateFromFile($sLFile)
$iLPic_W = _GDIPlus_ImageGetWidth($hImage)
$iLPic_H = _GDIPlus_ImageGetHeight($hImage)
ConsoleWrite($sLFile&', 0, 0, '&$iLPic_W&', '&$iLPic_H&@CRLF)
GUICtrlCreatePic($sLFile, 0, 0, $iLPic_W, $iLPic_H)
_GDIPlus_BitmapDispose($hImage)
EndFunc
$hGUI = GUICreate('Explorer', 900, 900)
GUISetState()
_GDIPlus_Startup()
ViewPic($aPics, 5)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
_GDIPlus_ShutDown ()
GUIDelete()
Окно есть, а картинки нет.... :blink: