Что нового

Не создается GUICtrlCreatePic

Mr. Anderson

Новичок
Сообщения
122
Репутация
4
Не создается GUICtrlCreatePic

Код:
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:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Mr. Anderson [?]
Окно есть, а картинки нет....
Какое расширение у Вашей картинки?У меня так работает:
Код:
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>

$sFile = @MyDocumentsDir & '\Скриншоты\sshot-1.jpg'

$hGUI = GUICreate('Explorer', 500, 500)

GUISetState()
ViewPic($sFile)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()

Func ViewPic($sLFile)
	_GDIPlus_Startup()
	$hImage = _GDIPlus_BitmapCreateFromFile($sLFile)
	$iLPic_W = _GDIPlus_ImageGetWidth($hImage)
	$iLPic_H = _GDIPlus_ImageGetHeight($hImage)
	_GDIPlus_BitmapDispose($hImage)
	ConsoleWrite($sLFile & ', 0, 0, ' & $iLPic_W & ', ' & $iLPic_H & @CRLF)
	$iCtrlPic = GUICtrlCreatePic('', 0, 0, $iLPic_W, $iLPic_H)
	GUICtrlSetImage($iCtrlPic, $sLFile)
	_GDIPlus_Shutdown()
EndFunc   ;==>ViewPic
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
219
Массива нет. Картинок нет. Бубна тоже нет.

Может так прокатит:
Код:
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)
	_GDIPlus_BitmapDispose($hImage)
	ConsoleWrite($sLFile&', 0, 0, '&$iLPic_W&', '&$iLPic_H&@CRLF)
	$iCtrlPic = GUICtrlCreatePic('', 0, 0, $iLPic_W, $iLPic_H)
	GUICtrlSetImage($iCtrlPic, $sLFile)
EndFunc

$hGUI = GUICreate('Explorer', 900, 900)
GUISetState()
_GDIPlus_Startup()

	ViewPic($aPics, 5)

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

_GDIPlus_ShutDown ()
GUIDelete()
 
Верх