Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Func _SendImageToPicControl($iCtrlID, $sImage, $x = 0)
- If $x = 0 Then
- Local $hImage = _GDIPlus_ImageLoadFromFile($sImage)
- Else
- Local $hImage = _GDIPlus_BitmapCreateFromMemory(Binary($sImage))
- EndIf
- $PosPic = ControlGetPos($Gui, "", $iCtrlID)
- If @error Then $PosPic = ControlGetPos($cGui, "", $iCtrlID)
- If @error Then $PosPic = ControlGetPos($mGui, "", $iCtrlID)
- If @error Then $PosPic = ControlGetPos($GuiTT, "", $iCtrlID)
- $hImageR = _GDIPlus_ImageResize($hImage, $PosPic[2], $PosPic[3])
- Local $hHBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImageR)
- ;~ GUICtrlSetImage($iCtrlID, "")
- _WinAPI_DeleteObject(GUICtrlSendMsg($iCtrlID, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBitmap))
- _WinAPI_DeleteObject($hHBitmap)
- _GDIPlus_ImageDispose($hImageR)
- _GDIPlus_ImageDispose($hImage)
- ;~ GUICtrlSetState($iCtrlID, $GUI_HIDE)
- GUICtrlSetState($iCtrlID, $GUI_SHOW)
- EndFunc ;==>_SendImageToPicControl
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement