Здравствуйте! я хочу сделать градиент как вот здесь!
но почему-то не получилось. Помогите разобраться что не так!
но почему-то не получилось. Помогите разобраться что не так!
Код:
#Include <WinAPIEx.au3>
Global Const $STM_SETIMAGE = 0x0172
Dim $aVertex[5][3] = [[0, 0, 0xFFFFFF], [0, 250, 0x000000], [250, 0, 0xFF0000], [250, 250, 0x000000], [0, 0, 0xFFFFFF]]
$Window = GUICreate("Окно", 250, 250, -1, -1)
$Pic = GUICtrlCreatePic('', 0, 0, 250, 250)
$hPic = GUICtrlGetHandle($Pic)
$hDC = _WinAPI_GetDC($hPic)
$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, 250, 250)
$hMemSv = _WinAPI_SelectObject($hMemDC, $hBitmap)
_WinAPI_GradientFill($hMemDC, $aVertex, 0, 3)
_WinAPI_GradientFill($hMemDC, $aVertex, 1, 4)
_WinAPI_ReleaseDC($hPic, $hDC)
_WinAPI_SelectObject($hMemDC, $hMemSv)
_WinAPI_DeleteDC($hMemDC)
_SendMessage($hPic, $STM_SETIMAGE, 0, $hBitmap)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd