AutoHotkey Community

Code: Select all

; ==================================================================================================================================
LVH_Add(HLV, Options := "", Item := "", Subitems*) {
   Static GETITEMCOUNT := 0x1004
   Row := DllCall("SendMessage", "Ptr", HLV, "UInt", GETITEMCOUNT, "Ptr", 0, "Ptr", 0, "Int") + 1
   Return LVH_Insert(HLV, Row, Options, Item, Subitems*)
}
; ==================================================================================================================================
LVH_Insert(HLV, RowNumber, Options := "", Item := "", Subitems*) {
   Static INSERTITEM := A_IsUnicode ? 0x104D : 0x1007
        , SETITEMSTATE := 0x102B
        , SETITEMTEXT := A_IsUnicode ? 0x1074 : 0x102E
        , OffText := 16 + A_PtrSize
        , OffImage := OffText + A_PtrSize + 4
   If Rownumber Is Not Integer
      Return 0
   If (RowNumber < 1)
      Return 0
   Icon := States := 0
   If (Options <> "")
      Options := " " . RegExReplace(Options, "\s+", " ") . " "
      , Icon := RegExMatch(Options, "i) Icon\K\d+", N) ? N - 1 : 0
      , States := (InStr(Options, " Check ") ? 0x2000 : 0)
                | (InStr(Options, " Focus ") ? 0x0001 : 0)
                | (InStr(Options, " Select ") ? 0x0002 : 0)
      , StMask := States | (States & 0x2000 ? 0x1000 : 0)
   VarSetCapacity(LVITEM, 40 + (A_PtrSize * 5), 0)   ; LVITEM structure
   , NumPut(0x03, LVITEM, "UInt")                    ; mask
   , NumPut(RowNumber - 1, LVITEM, 4, "Int")         ; iItem
   , NumPut(0, LVITEM, 8, "Int")                     ; iSubItem
   , NumPut(&Item, LVITEM, OffText, "Ptr")           ; pszText
   , NumPut(Icon, LVITEM, OffImage, "Int")           ; iImage
   , Row := DllCall("SendMessage", "Ptr", HLV, "UInt", INSERTITEM, "Ptr", 0, "Ptr", &LVITEM, "Int")
   If (Row > -1) {
      For Index, Text In Subitems
         NumPut(Row, LVITEM, 4, "Int")
         , NumPut(A_Index, LVITEM, 8, "Int")
         , NumPut(&Text, LVITEM, OffText, "Ptr")
         , DllCall("SendMessage", "Ptr", HLV, "UInt", SETITEMTEXT, "Ptr", Row, "Ptr", &LVITEM)
      If (States)
         NumPut(States, LVITEM, 12, "UInt")     ; state
         , NumPut(StMask, LVITEM, 16, "UInt")   ; stateMask
         , DllCall("SendMessage", "Ptr", HLV, "UInt", SETITEMSTATE, "Ptr", Row, "Ptr", &LVITEM)
   }
   Return (Row + 1)
}
; ==================================================================================================================================

Code: Select all

If Rownumber Is Not Integer

Code: Select all

If (type(RowNumber) != "integer")

Code: Select all

Gui, Add, ListView, HwndHwnd_LV, Index|Name
a := "a,b,c,d,e"
Loop, Parse, % a, `,
	LVH_Add(Hwnd_LV, , A_Index, A_LoopField)

Gui, Show
return

GuiClose:
	ExitApp
return

LVH_Add(...)
LVH_Insert(...)

Code: Select all

; ======================================================================================================================
; LV_GroupGetCount - Get group item count (requires Win Vista+).
; ======================================================================================================================
LV_GroupGetCount(HLV, GroupID, ByRef FirstItem := "") {
   ; LVM_GETGROUPINFO = 0x1095 -> msdn.microsoft.com/en-us/library/bb774932(v=vs.85).aspx
   Static LVGF := 0x4000 ; LVGF_ITEMS
   Static SizeOfLVGROUP := (4 * 10) + (A_PtrSize * 14)
   Static OffFirstItem := (4 * 9) + (A_PtrSize * 11)
   FirstItem := 0
   VarSetCapacity(LVGROUP, SizeOfLVGROUP, 0)
   NumPut(SizeOfLVGROUP, LVGROUP, 0, "UInt")
   NumPut(LVGF, LVGROUP, 4, "UInt")
   If (DllCall("SendMessage", "Ptr", HLV, "UInt", 0x1095, "Ptr", GroupID, "Ptr", &LVGROUP, "Ptr") = GroupID) {
      FirstItem := NumGet(LVGroup, OffFirstItem, "Int") + 1
      Return NumGet(LVGroup, OffFirstItem + 4, "UInt")
   }
   Return False
}

Code: Select all

groupLength := LV_GroupGetCount(hwnd, gID, firstItem)
Loop, % groupLength
	LV_GetText(ticketSessionID, firstItem + (A_Index - 1), 3)

Code: Select all

#Include LV_EX.ahk

Gui, +hwndhGui
Gui, Add, ListView, w200 h400 -Multi -E0x200 +Tile -Hdr AltSubmit BackgroundSilver hwndhlistview, A|B|C|D
Loop 10
	LV_Add("", "Row " A_Index " Col A", "Row " A_Index " Col B", "Row " A_Index " Col C", "Row " A_Index " Col D")
LV_EX_SetTileViewLines(hlistview, 1)
LV_EX_SetTileInfo(hlistview, 0, 2)
Gui, Show
LV_EX_RedrawRows(hlistview)
return

GuiClose:
Exit

Code: Select all

#NoEnv
#Include LV_EX.ahk
Gui, Add, Listview, xm w500 r10 Grid hwndHLV vVLV, Col 1|Col 2|Col 3
Loop, 10 {
   Zeroes := SubStr("000", 1, 3 - StrLen(A_Index))
   LV_Add("", "A" . Zeroes . A_Index, "B" . Zeroes . A_Index, "C" . Zeroes . A_Index)
}
Loop, % LV_GetCount("Column")
   LV_ModifyCol(A_Index, "AutoHdr")
LV_EX_GroupInsert(HLV, 10, "Group 1")
; MsgBox, 0, LV_EX_GroupInsert, % LV_EX_GroupInsert(HLV, 40, "Group 1") ; , , 12)
LV_EX_GroupInsert(HLV, 20, "Group 2", 2, 9999)
; MsgBox, 0, LV_EX_GroupInsert, % LV_EX_GroupInsert(HLV, 10, "Group 2", 2, 9999)
Loop, 5
   LV_EX_SetGroup(HLV, A_Index, 10)
Loop, 5
   LV_EX_SetGroup(HLV, A_Index + 5, 20)
LV_EX_GroupSetState(HLV, 10, "Collapsible")
LV_EX_GroupSetState(HLV, 20, "Collapsible")
; LV_EX_EnableGroupView(HLV)
; MsgBox, 0, LV_EX_EnableGroupView, % LV_EX_EnableGroupView(HLV)
Gui, Add, CheckBox, vCBGV gGroupView, GroupView
Gui, Add, CheckBox, vCBTV gTileView, TileView
Gui, Show, , LV_EX Groups Sample
MsgBox, 0, HasGroup, % "GoupID 10 = " . LV_EX_HasGroup(HLV, 10)
; MsgBox, 0, GetGroup, % "Row 2 = " . LV_EX_GetGroup(HLV, 2)
Return
; ----------------------------------------------------------------------------------------------------------------------
GuiClose:
ExitApp
; ----------------------------------------------------------------------------------------------------------------------
GroupView:
GuiControlGet, CBGV
LV_EX_EnableGroupView(HLV, CBGV)
Return

TileView:
	GuiControlGet, CBTV
	IF (CBTV)
		GuiControl, +Tile, %HLV%
	Else
		GuiControl, +Report, %HLV%
	LV_EX_SetTileViewLines(HLV, 2)
	LV_EX_SetTileInfo(HLV, 0, 2, 3, 4)
return

Code: Select all

#NoEnv
#Include LV_EX.ahk
Gui, +hwndhGui
Gui, Add, ListView, w200 h400 -Multi -E0x200 -Hdr AltSubmit BackgroundSilver hwndhlistview, A|B|C|D ; <<<<< removed +Tile
Loop 10
	LV_Add("", "Row " A_Index " Col A", "Row " A_Index " Col B", "Row " A_Index " Col C", "Row " A_Index " Col D")
LV_EX_SetTileViewLines(hlistview, 1)
LV_EX_SetTileInfo(hlistview, 0, 2)
GuiControl, +Tile, %hlistview% ; <<<<< added
Gui, Show
Return

GuiClose:
ExitApp