| 1 | ;~ #Include <GuiListView.au3>
|
|---|
| 2 | #include <WindowsConstants.au3>
|
|---|
| 3 | #Include <GUIConstantsEx.au3>
|
|---|
| 4 | #Include <WinAPI.au3>
|
|---|
| 5 | #Include <ListViewConstants.au3>
|
|---|
| 6 | #Include <GuiImageList.au3>
|
|---|
| 7 | #Include <string.au3>
|
|---|
| 8 |
|
|---|
| 9 | Opt("GUIOnEventMode", 1)
|
|---|
| 10 | $Debug_LV = 0
|
|---|
| 11 |
|
|---|
| 12 | $Gui = GUICreate("Test Alpha", 750, 590, 191, 113, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION))
|
|---|
| 13 |
|
|---|
| 14 | $hImage = _GUIImageList_Create(16, 16, 5, 3)
|
|---|
| 15 | _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
|
|---|
| 16 | _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 131)
|
|---|
| 17 | _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 165)
|
|---|
| 18 | _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 168)
|
|---|
| 19 | _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 137)
|
|---|
| 20 | _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 146)
|
|---|
| 21 |
|
|---|
| 22 |
|
|---|
| 23 | $ListView = GUICtrlCreateListView("text0 |text1|text2|text3", 8, 120, 121*3, 431, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS), BitOR($LVS_EX_HEADERDRAGDROP, $LVS_EX_FULLROWSELECT,$LVS_EX_GRIDLINES,$LVS_EX_DOUBLEBUFFER,$LVS_EX_SUBITEMIMAGES))
|
|---|
| 24 |
|
|---|
| 25 | _GUICtrlListView_InsertItem($ListView, "TestText", 1)
|
|---|
| 26 |
|
|---|
| 27 | _GUICtrlListView_SetImageList($listview, $hImage, 1)
|
|---|
| 28 |
|
|---|
| 29 | GUISetState(@SW_SHOW,$GUI)
|
|---|
| 30 |
|
|---|
| 31 | GUISetOnEvent($GUI_EVENT_CLOSE, "Close",$GUI)
|
|---|
| 32 |
|
|---|
| 33 | GUICtrlSetState($listview, $GUI_FOCUS)
|
|---|
| 34 | Func Close()
|
|---|
| 35 | Exit
|
|---|
| 36 | EndFunc
|
|---|
| 37 |
|
|---|
| 38 | ConsoleWrite("-Start--Original UDF's ----" & @CRLF)
|
|---|
| 39 | Sleep(2000)
|
|---|
| 40 | _GUICtrlListView_SetItemCut($ListView, 0, True)
|
|---|
| 41 | ConsoleWrite("SetItemCut: True, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_CUT) & @CRLF)
|
|---|
| 42 | Sleep(2000)
|
|---|
| 43 | _GUICtrlListView_SetItemCut($ListView, 0, False)
|
|---|
| 44 | ConsoleWrite("SetItemCut: False, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_CUT) & @CRLF)
|
|---|
| 45 | Sleep(2000)
|
|---|
| 46 | _GUICtrlListView_SetItemDropHilited($ListView, 0, True)
|
|---|
| 47 | ConsoleWrite("SetItemDropHilited: True, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_DROPHILITED) & @CRLF)
|
|---|
| 48 | Sleep(2000)
|
|---|
| 49 | _GUICtrlListView_SetItemDropHilited($ListView, 0, False)
|
|---|
| 50 | ConsoleWrite("SetItemDropHilited: False, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_DROPHILITED) & @CRLF)
|
|---|
| 51 | Sleep(2000)
|
|---|
| 52 | _GUICtrlListView_SetItemFocused($ListView, 0, True)
|
|---|
| 53 | ConsoleWrite("SetItemFocused: True, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_FOCUSED) & @CRLF)
|
|---|
| 54 | Sleep(2000)
|
|---|
| 55 | _GUICtrlListView_SetItemFocused($ListView, 0, False)
|
|---|
| 56 | ConsoleWrite("SetItemFocused: False, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_FOCUSED) & @CRLF)
|
|---|
| 57 | Sleep(2000)
|
|---|
| 58 | ConsoleWrite("-End------------------------" & @CRLF)
|
|---|
| 59 | _SendMessage(GUICtrlGetHandle($ListView), $LVM_DELETEALLITEMS)
|
|---|
| 60 | Sleep(2000)
|
|---|
| 61 |
|
|---|
| 62 | ConsoleWrite("-Start--Fixed UDF's ----" & @CRLF)
|
|---|
| 63 | _GUICtrlListView_InsertItem($ListView, "TestText", 1)
|
|---|
| 64 | Sleep(2000)
|
|---|
| 65 | __GUICtrlListView_SetItemCut($ListView, 0, True)
|
|---|
| 66 | ConsoleWrite("SetItemCut: True, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_CUT) & @CRLF)
|
|---|
| 67 | Sleep(2000)
|
|---|
| 68 | __GUICtrlListView_SetItemCut($ListView, 0, False)
|
|---|
| 69 | ConsoleWrite("SetItemCut: False, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_CUT) & @CRLF)
|
|---|
| 70 | Sleep(2000)
|
|---|
| 71 | __GUICtrlListView_SetItemDropHilited($ListView, 0, True)
|
|---|
| 72 | ConsoleWrite("SetItemDropHilited: True, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_DROPHILITED) & @CRLF)
|
|---|
| 73 | Sleep(2000)
|
|---|
| 74 | __GUICtrlListView_SetItemDropHilited($ListView, 0, False)
|
|---|
| 75 | ConsoleWrite("SetItemDropHilited: False, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_DROPHILITED) & @CRLF)
|
|---|
| 76 | Sleep(2000)
|
|---|
| 77 | __GUICtrlListView_SetItemFocused($ListView, 0, True)
|
|---|
| 78 | ConsoleWrite("SetItemFocused: True, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_FOCUSED) & @CRLF)
|
|---|
| 79 | Sleep(2000)
|
|---|
| 80 | __GUICtrlListView_SetItemFocused($ListView, 0, False)
|
|---|
| 81 | ConsoleWrite("SetItemFocused: False, Result: "&_GUICtrlListView_GetItemState($ListView, 0, $LVIS_FOCUSED) & @CRLF)
|
|---|
| 82 | Sleep(2000)
|
|---|
| 83 | ConsoleWrite("-End------------------------" & @CRLF)
|
|---|
| 84 |
|
|---|
| 85 |
|
|---|
| 86 |
|
|---|
| 87 |
|
|---|
| 88 | While 1
|
|---|
| 89 | Sleep(10)
|
|---|
| 90 | WEnd
|
|---|
| 91 |
|
|---|
| 92 |
|
|---|
| 93 |
|
|---|
| 94 |
|
|---|
| 95 |
|
|---|
| 96 | ; #########################################################################
|
|---|
| 97 | ; #### Fixed UDF's using _GUICtrlListView_SetItemState in the right way ###
|
|---|
| 98 | ; #########################################################################
|
|---|
| 99 |
|
|---|
| 100 | Func __GUICtrlListView_SetItemCut($hWnd, $iIndex, $fEnabled = True)
|
|---|
| 101 | Local $iState = 0
|
|---|
| 102 |
|
|---|
| 103 | If $fEnabled Then $iState = $LVIS_CUT
|
|---|
| 104 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, $iState, $LVIS_CUT)
|
|---|
| 105 | EndFunc ;==>_GUICtrlListView_SetItemCut
|
|---|
| 106 |
|
|---|
| 107 |
|
|---|
| 108 | Func __GUICtrlListView_SetItemFocused($hWnd, $iIndex, $fEnabled = True)
|
|---|
| 109 | Local $iState = 0
|
|---|
| 110 |
|
|---|
| 111 | If $fEnabled Then $iState = $LVIS_FOCUSED
|
|---|
| 112 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, $iState, $LVIS_FOCUSED)
|
|---|
| 113 | EndFunc ;==>_GUICtrlListView_SetItemFocused
|
|---|
| 114 |
|
|---|
| 115 |
|
|---|
| 116 | Func __GUICtrlListView_SetItemDropHilited($hWnd, $iIndex, $fEnabled = True)
|
|---|
| 117 | Local $iState = 0
|
|---|
| 118 |
|
|---|
| 119 | If $fEnabled Then $iState = $LVIS_DROPHILITED
|
|---|
| 120 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, $iState, $LVIS_DROPHILITED)
|
|---|
| 121 | EndFunc ;==>_GUICtrlListView_SetItemDropHilited
|
|---|
| 122 |
|
|---|
| 123 |
|
|---|
| 124 | ; ############################################################################
|
|---|
| 125 | ; #### Original UDF's using _GUICtrlListView_SetItemState in the wrong way ###
|
|---|
| 126 | ; ############################################################################
|
|---|
| 127 |
|
|---|
| 128 | Func _GUICtrlListView_SetItemCut($hWnd, $iIndex, $fEnabled = True)
|
|---|
| 129 | Local $iStateMask = 0
|
|---|
| 130 |
|
|---|
| 131 | If $fEnabled Then $iStateMask = $LVIS_CUT
|
|---|
| 132 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, $LVIS_CUT, $iStateMask)
|
|---|
| 133 | EndFunc ;==>_GUICtrlListView_SetItemCut
|
|---|
| 134 |
|
|---|
| 135 |
|
|---|
| 136 | Func _GUICtrlListView_SetItemFocused($hWnd, $iIndex, $fEnabled = True)
|
|---|
| 137 | Local $iStateMask = 0
|
|---|
| 138 |
|
|---|
| 139 | If $fEnabled Then $iStateMask = $LVIS_FOCUSED
|
|---|
| 140 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, $LVIS_FOCUSED, $iStateMask)
|
|---|
| 141 | EndFunc ;==>_GUICtrlListView_SetItemFocused
|
|---|
| 142 |
|
|---|
| 143 |
|
|---|
| 144 | Func _GUICtrlListView_SetItemDropHilited($hWnd, $iIndex, $fEnabled = True)
|
|---|
| 145 | Local $iStateMask = 0
|
|---|
| 146 |
|
|---|
| 147 | If $fEnabled Then $iStateMask = $LVIS_DROPHILITED
|
|---|
| 148 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, $LVIS_DROPHILITED, $iStateMask)
|
|---|
| 149 | EndFunc ;==>_GUICtrlListView_SetItemDropHilited
|
|---|
| 150 |
|
|---|
| 151 |
|
|---|
| 152 |
|
|---|
| 153 | ; #################################################################################
|
|---|
| 154 | ; ### Other original UDF's using _GUICtrlListView_SetItemState in the right way ###
|
|---|
| 155 | ; #################################################################################
|
|---|
| 156 |
|
|---|
| 157 | Func _GUICtrlListView_SetItemOverlayImage($hWnd, $iIndex, $iImage)
|
|---|
| 158 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, _GUICtrlListView_IndexToOverlayImageMask($iImage), $LVIS_OVERLAYMASK)
|
|---|
| 159 | EndFunc ;==>_GUICtrlListView_SetItemOverlayImage
|
|---|
| 160 |
|
|---|
| 161 |
|
|---|
| 162 | Func _GUICtrlListView_SetItemStateImage($hWnd, $iIndex, $iImage)
|
|---|
| 163 | Return _GUICtrlListView_SetItemState($hWnd, $iIndex, BitShift($iImage, -12), $LVIS_STATEIMAGEMASK)
|
|---|
| 164 | EndFunc ;==>_GUICtrlListView_SetItemStateImage
|
|---|
| 165 |
|
|---|
| 166 |
|
|---|
| 167 |
|
|---|
| 168 |
|
|---|
| 169 |
|
|---|
| 170 |
|
|---|
| 171 |
|
|---|
| 172 |
|
|---|
| 173 |
|
|---|
| 174 |
|
|---|
| 175 |
|
|---|
| 176 | ; #################################################################################
|
|---|
| 177 | ; ### Other original UDF's for making this example run ###
|
|---|
| 178 | ; #################################################################################
|
|---|
| 179 |
|
|---|
| 180 | Func _GUICtrlListView_SetItemState($hWnd, $iIndex, $iState, $iStateMask)
|
|---|
| 181 | Local $tItem
|
|---|
| 182 |
|
|---|
| 183 | $tItem = DllStructCreate($tagLVITEM)
|
|---|
| 184 | DllStructSetData($tItem, "Mask", $LVIF_STATE)
|
|---|
| 185 | DllStructSetData($tItem, "Item", $iIndex)
|
|---|
| 186 | DllStructSetData($tItem, "State", $iState)
|
|---|
| 187 | DllStructSetData($tItem, "StateMask", $iStateMask)
|
|---|
| 188 | Return _GUICtrlListView_SetItemEx($hWnd, $tItem) <> 0
|
|---|
| 189 | EndFunc ;==>_GUICtrlListView_SetItemState
|
|---|
| 190 |
|
|---|
| 191 |
|
|---|
| 192 | Func _GUICtrlListView_SetItemEx($hWnd, ByRef $tItem)
|
|---|
| 193 | If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd)
|
|---|
| 194 | Local $iItem, $pItem, $iBuffer, $pBuffer, $pMemory, $tMemMap, $pText, $iResult
|
|---|
| 195 | Local $fUnicode = _GUICtrlListView_GetUnicodeFormat($hWnd)
|
|---|
| 196 |
|
|---|
| 197 | $pItem = DllStructGetPtr($tItem)
|
|---|
| 198 | If IsHWnd($hWnd) Then
|
|---|
| 199 | $iItem = DllStructGetSize($tItem)
|
|---|
| 200 | $iBuffer = DllStructGetData($tItem, "TextMax")
|
|---|
| 201 | If $fUnicode Then $iBuffer *= 2
|
|---|
| 202 | $pBuffer = DllStructGetData($tItem, "Text")
|
|---|
| 203 | $pMemory = _MemInit($hWnd, $iItem + $iBuffer, $tMemMap)
|
|---|
| 204 | $pText = $pMemory + $iItem
|
|---|
| 205 | DllStructSetData($tItem, "Text", $pText)
|
|---|
| 206 | _MemWrite($tMemMap, $pItem, $pMemory, $iItem)
|
|---|
| 207 | If $pBuffer <> 0 Then _MemWrite($tMemMap, $pBuffer, $pText, $iBuffer)
|
|---|
| 208 | If $fUnicode Then
|
|---|
| 209 | $iResult = _SendMessage($hWnd, $LVM_SETITEMW, 0, $pMemory, 0, "wparam", "ptr")
|
|---|
| 210 | Else
|
|---|
| 211 | $iResult = _SendMessage($hWnd, $LVM_SETITEMA, 0, $pMemory, 0, "wparam", "ptr")
|
|---|
| 212 | EndIf
|
|---|
| 213 | _MemFree($tMemMap)
|
|---|
| 214 | Else
|
|---|
| 215 | If $fUnicode Then
|
|---|
| 216 | $iResult = GUICtrlSendMsg($hWnd, $LVM_SETITEMW, 0, $pItem)
|
|---|
| 217 | Else
|
|---|
| 218 | $iResult = GUICtrlSendMsg($hWnd, $LVM_SETITEMA, 0, $pItem)
|
|---|
| 219 | EndIf
|
|---|
| 220 | EndIf
|
|---|
| 221 | Return $iResult <> 0
|
|---|
| 222 | EndFunc ;==>_GUICtrlListView_SetItemEx
|
|---|
| 223 |
|
|---|
| 224 |
|
|---|
| 225 | Func _GUICtrlListView_GetUnicodeFormat($hWnd)
|
|---|
| 226 | If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd)
|
|---|
| 227 | If IsHWnd($hWnd) Then
|
|---|
| 228 | Return _SendMessage($hWnd, $LVM_GETUNICODEFORMAT) <> 0
|
|---|
| 229 | Else
|
|---|
| 230 | Return GUICtrlSendMsg($hWnd, $LVM_GETUNICODEFORMAT, 0, 0) <> 0
|
|---|
| 231 | EndIf
|
|---|
| 232 | EndFunc ;==>_GUICtrlListView_GetUnicodeFormat
|
|---|
| 233 |
|
|---|
| 234 |
|
|---|
| 235 | Func _GUICtrlListView_InsertItem($hWnd, $sText, $iIndex = -1, $iImage = -1, $iParam = 0)
|
|---|
| 236 | If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd)
|
|---|
| 237 | Local $iBuffer, $pBuffer, $tBuffer, $iItem, $pItem, $tItem, $pMemory, $tMemMap, $pText, $iMask, $iResult
|
|---|
| 238 | If $iIndex = -1 Then $iIndex = 999999999
|
|---|
| 239 | Local $fUnicode = _GUICtrlListView_GetUnicodeFormat($hWnd)
|
|---|
| 240 |
|
|---|
| 241 | $tItem = DllStructCreate($tagLVITEM)
|
|---|
| 242 | $pItem = DllStructGetPtr($tItem)
|
|---|
| 243 | DllStructSetData($tItem, "Param", $iParam)
|
|---|
| 244 | If $sText <> -1 Then
|
|---|
| 245 | $iBuffer = StringLen($sText) + 1
|
|---|
| 246 | If $fUnicode Then
|
|---|
| 247 | $iBuffer *= 2
|
|---|
| 248 | $tBuffer = DllStructCreate("wchar Text[" & $iBuffer & "]")
|
|---|
| 249 | Else
|
|---|
| 250 | $tBuffer = DllStructCreate("char Text[" & $iBuffer & "]")
|
|---|
| 251 | EndIf
|
|---|
| 252 | $pBuffer = DllStructGetPtr($tBuffer)
|
|---|
| 253 | DllStructSetData($tBuffer, "Text", $sText)
|
|---|
| 254 | DllStructSetData($tItem, "Text", $pBuffer)
|
|---|
| 255 | DllStructSetData($tItem, "TextMax", $iBuffer)
|
|---|
| 256 | Else
|
|---|
| 257 | DllStructSetData($tItem, "Text", -1)
|
|---|
| 258 | EndIf
|
|---|
| 259 | $iMask = BitOR($LVIF_TEXT, $LVIF_PARAM)
|
|---|
| 260 | If $iImage >= 0 Then $iMask = BitOR($iMask, $LVIF_IMAGE)
|
|---|
| 261 | DllStructSetData($tItem, "Mask", $iMask)
|
|---|
| 262 | DllStructSetData($tItem, "Item", $iIndex)
|
|---|
| 263 | DllStructSetData($tItem, "Image", $iImage)
|
|---|
| 264 | If IsHWnd($hWnd) Then
|
|---|
| 265 | If _WinAPI_InProcess($hWnd, $_lv_ghLastWnd) Or ($sText = -1) Then
|
|---|
| 266 | If $fUnicode Then
|
|---|
| 267 | $iResult = _SendMessage($hWnd, $LVM_INSERTITEMW, 0, $pItem, 0, "wparam", "ptr")
|
|---|
| 268 | Else
|
|---|
| 269 | $iResult = _SendMessage($hWnd, $LVM_INSERTITEMA, 0, $pItem, 0, "wparam", "ptr")
|
|---|
| 270 | EndIf
|
|---|
| 271 | Else
|
|---|
| 272 | $iItem = DllStructGetSize($tItem)
|
|---|
| 273 | $pMemory = _MemInit($hWnd, $iItem + $iBuffer, $tMemMap)
|
|---|
| 274 | $pText = $pMemory + $iItem
|
|---|
| 275 | DllStructSetData($tItem, "Text", $pText)
|
|---|
| 276 | _MemWrite($tMemMap, $pItem, $pMemory, $iItem)
|
|---|
| 277 | _MemWrite($tMemMap, $pBuffer, $pText, $iBuffer)
|
|---|
| 278 | If $fUnicode Then
|
|---|
| 279 | $iResult = _SendMessage($hWnd, $LVM_INSERTITEMW, 0, $pMemory, 0, "wparam", "ptr")
|
|---|
| 280 | Else
|
|---|
| 281 | $iResult = _SendMessage($hWnd, $LVM_INSERTITEMA, 0, $pMemory, 0, "wparam", "ptr")
|
|---|
| 282 | EndIf
|
|---|
| 283 | _MemFree($tMemMap)
|
|---|
| 284 | EndIf
|
|---|
| 285 | Else
|
|---|
| 286 | If $fUnicode Then
|
|---|
| 287 | $iResult = GUICtrlSendMsg($hWnd, $LVM_INSERTITEMW, 0, $pItem)
|
|---|
| 288 | Else
|
|---|
| 289 | $iResult = GUICtrlSendMsg($hWnd, $LVM_INSERTITEMA, 0, $pItem)
|
|---|
| 290 | EndIf
|
|---|
| 291 | EndIf
|
|---|
| 292 | Return $iResult
|
|---|
| 293 | EndFunc ;==>_GUICtrlListView_InsertItem
|
|---|
| 294 |
|
|---|
| 295 |
|
|---|
| 296 |
|
|---|
| 297 | Func _GUICtrlListView_SetImageList($hWnd, $hHandle, $iType = 0)
|
|---|
| 298 | If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd)
|
|---|
| 299 | Local $aType[3] = [$LVSIL_NORMAL, $LVSIL_SMALL, $LVSIL_STATE]
|
|---|
| 300 |
|
|---|
| 301 | If IsHWnd($hWnd) Then
|
|---|
| 302 | Return _SendMessage($hWnd, $LVM_SETIMAGELIST, $aType[$iType], $hHandle, 0, "wparam", "hwnd", "hwnd")
|
|---|
| 303 | Else
|
|---|
| 304 | Return GUICtrlSendMsg($hWnd, $LVM_SETIMAGELIST, $aType[$iType], $hHandle)
|
|---|
| 305 | EndIf
|
|---|
| 306 | EndFunc ;==>_GUICtrlListView_SetImageList
|
|---|
| 307 |
|
|---|
| 308 |
|
|---|
| 309 | Func _GUICtrlListView_GetItemState($hWnd, $iIndex, $iMask)
|
|---|
| 310 | If $Debug_LV Then _GUICtrlListView_ValidateClassName($hWnd)
|
|---|
| 311 | If IsHWnd($hWnd) Then
|
|---|
| 312 | Return _SendMessage($hWnd, $LVM_GETITEMSTATE, $iIndex, $iMask)
|
|---|
| 313 | Else
|
|---|
| 314 | Return GUICtrlSendMsg($hWnd, $LVM_GETITEMSTATE, $iIndex, $iMask)
|
|---|
| 315 | EndIf
|
|---|
| 316 | EndFunc ;==>_GUICtrlListView_GetItemState
|
|---|
