_GUIImageList_DestroyIcon
Удаляет иконку и освобождает любую часть памяти занятую иконкой
#include <GuiImageList.au3>
_GUIImageList_DestroyIcon($hIcon)
Параметры
$hIcon | Дескриптор иконки |
Возвращаемое значение
Успех: | Возвращает True |
Ошибка: | Возвращает False |
Пример
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WinAPI.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
$Debug_SB = False ; Проверяет ClassName передаваемый в функции. Установите True и используйте дескриптор от другого элемента, чтобы увидеть как это работает
Global $hStatus, $iMemo
_Main()
Func _Main()
Local $hGUI, $hIcons[2], $hImage
Local $aParts[4] = [75, 150, 300, 400]
; Создаёт GUI
$hGUI = GUICreate("ImageList - Удаление иконки", 400, 300)
$hStatus = _GUICtrlStatusBar_Create($hGUI)
; Создаёт элемент для заметок
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 274, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
; Set parts
_GUICtrlStatusBar_SetParts($hStatus, $aParts)
_GUICtrlStatusBar_SetText($hStatus, "Часть 1")
_GUICtrlStatusBar_SetText($hStatus, "Часть 2", 1)
; Загружает изображения
$hImage = _GUIImageList_Create(11, 11)
_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hStatus, 0xFF0000, 11, 11))
_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hStatus, 0x00FF00, 11, 11))
_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hStatus, 0x0000FF, 11, 11))
; Set icons
$hIcons[0] = _GUIImageList_GetIcon($hImage, 1)
$hIcons[1] = _GUIImageList_GetIcon($hImage, 2)
_GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons[0])
_GUICtrlStatusBar_SetIcon($hStatus, 1, $hIcons[1])
; Show icon handles
MemoWrite("Дескриптор иконки, части 1 .: 0x" & Hex($hIcons[0]))
MemoWrite("Дескриптор иконки, части 2 .: 0x" & Hex($hIcons[1]))
; Цикл выполняется, пока окно не будет закрыто
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Free icons
MsgBox(4096, "Информация", "Иконка 1 удалена? " & _GUIImageList_DestroyIcon($hIcons[0]))
MsgBox(4096, "Информация", "Иконка 2 удалена? " & _GUIImageList_DestroyIcon($hIcons[1]))
GUIDelete()
EndFunc ;==>_Main
; Записывает строку в элемент для заметок
Func MemoWrite($sMessage = "")
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Local $tinfo
Switch $hWndFrom
Case $hStatus
Switch $iCode
Case $NM_CLICK ; Пользователь кликает левую кнопку мыши на элементе
$tinfo = DllStructCreate($tagNMMOUSE, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tinfo, "hWndFrom"))
$iIDFrom = DllStructGetData($tinfo, "IDFrom")
$iCode = DllStructGetData($tinfo, "Code")
_DebugPrint("$NM_CLICK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->ItemSpec:" & @tab & DllStructGetData($tinfo, "ItemSpec") & @LF & _
"-->ItemData:" & @tab & DllStructGetData($tinfo, "ItemData") & @LF & _
"-->X:" & @tab & DllStructGetData($tinfo, "X") & @LF & _
"-->Y:" & @tab & DllStructGetData($tinfo, "Y") & @LF & _
"-->HitInfo:" & @tab & DllStructGetData($tinfo, "HitInfo"))
Return True ; указывает, что клик мыши был обработан и по умолчанию обработка в системе подавлена
;~ Return FALSE ; разрешает заданную по умолчанию обработку клика.
Case $NM_DBLCLK ; Пользователь сделал двойной клик левой кнопкой мыши на элементе
$tinfo = DllStructCreate($tagNMMOUSE, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tinfo, "hWndFrom"))
$iIDFrom = DllStructGetData($tinfo, "IDFrom")
$iCode = DllStructGetData($tinfo, "Code")
_DebugPrint("$NM_DBLCLK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->ItemSpec:" & @tab & DllStructGetData($tinfo, "ItemSpec") & @LF & _
"-->ItemData:" & @tab & DllStructGetData($tinfo, "ItemData") & @LF & _
"-->X:" & @tab & DllStructGetData($tinfo, "X") & @LF & _
"-->Y:" & @tab & DllStructGetData($tinfo, "Y") & @LF & _
"-->HitInfo:" & @tab & DllStructGetData($tinfo, "HitInfo"))
Return True ; указывает, что клик мыши был обработан и по умолчанию обработка в системе подавлена
;~ Return FALSE ; разрешает заданную по умолчанию обработку клика.
Case $NM_RCLICK ; Пользователь кликает правую кнопку мыши на элементе
$tinfo = DllStructCreate($tagNMMOUSE, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tinfo, "hWndFrom"))
$iIDFrom = DllStructGetData($tinfo, "IDFrom")
$iCode = DllStructGetData($tinfo, "Code")
_DebugPrint("$NM_RCLICK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->ItemSpec:" & @tab & DllStructGetData($tinfo, "ItemSpec") & @LF & _
"-->ItemData:" & @tab & DllStructGetData($tinfo, "ItemData") & @LF & _
"-->X:" & @tab & DllStructGetData($tinfo, "X") & @LF & _
"-->Y:" & @tab & DllStructGetData($tinfo, "Y") & @LF & _
"-->HitInfo:" & @tab & DllStructGetData($tinfo, "HitInfo"))
Return True ; указывает, что клик мыши был обработан и по умолчанию обработка в системе подавлена
;~ Return FALSE ; разрешает заданную по умолчанию обработку клика.
Case $NM_RDBLCLK ; Пользователь сделал двойной клик правой кнопкой мыши на элементе
$tinfo = DllStructCreate($tagNMMOUSE, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tinfo, "hWndFrom"))
$iIDFrom = DllStructGetData($tinfo, "IDFrom")
$iCode = DllStructGetData($tinfo, "Code")
_DebugPrint("$NM_RDBLCLK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode & @LF & _
"-->ItemSpec:" & @tab & DllStructGetData($tinfo, "ItemSpec") & @LF & _
"-->ItemData:" & @tab & DllStructGetData($tinfo, "ItemData") & @LF & _
"-->X:" & @tab & DllStructGetData($tinfo, "X") & @LF & _
"-->Y:" & @tab & DllStructGetData($tinfo, "Y") & @LF & _
"-->HitInfo:" & @tab & DllStructGetData($tinfo, "HitInfo"))
Return True ; указывает, что клик мыши был обработан и по умолчанию обработка в системе подавлена
;~ Return FALSE ; разрешает заданную по умолчанию обработку клика.
Case $SBN_SIMPLEMODECHANGE ; Simple mode changes
_DebugPrint("$SBN_SIMPLEMODECHANGE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; Нет возвращаемых значений
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _DebugPrint($s_text, $line = @ScriptLineNumber)
ConsoleWrite( _
"!===========================================================" & @LF & _
"+======================================================" & @LF & _
"-->Строка(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
"+======================================================" & @LF)
EndFunc ;==>_DebugPrint