Virtual ListView in AHK

[oldbrother]

I found this from the old forum. I feel it will be very useful.

It would be highly appreciated if someone can make it work in AHK_L.

Here is the link:

http://www.autohotkey.com/board/topic/5 ... ew-in-ahk/

[just me]

This is seemingly working (with the same old issues on column resizing):

Code: Select all

;
; AutoHotkey Version:  1.1 (modified version)
; Language:       English
; Platform:       Win9x/NT
; Author:         Yonken - modified by just me for AHK 1.1
;
; Script Function:
;	To enumerate the files of specified folder(s), filter out specified type(s), list and
; update the result in real time as the search pattern changed.
;	Use at your own risk.
;

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetBatchLines, -1	; Never sleep

WM_NOTIFY				:= 0x004E
LVN_FIRST               := -100

LVN_GETDISPINFOA        := (LVN_FIRST-50)	; For ANSI version
LVN_GETDISPINFOW        := (LVN_FIRST-77)	; For unicode version
LVN_GETDISPINFO			:= LVN_GETDISPINFOW

LVM_FIRST				:= 0x1000
LVM_SETITEMCOUNT		:= (LVM_FIRST + 47)
LVM_REDRAWITEMS			:= (LVM_FIRST + 21)

LVS_OWNERDATA			:= 0x1000

LPSTR_TEXTCALLBACKA		:= -1

sizeofNMHDR				:= A_PtrSize * 3
; sizeofLVITEM			:= 40

LVSICF_NOINVALIDATEALL	:= 0x00000001

LVIF_TEXT				:= 0x0001
LVIF_IMAGE				:= 0x0002
LVIF_STATE				:= 0x0008

CP_ACP 					:= 0           ; default to ANSI code page

; pRtlFillMemory			:= GetProcAddressInModule("RtlFillMemory")
; pWideCharToMultiByte	:= GetProcAddressInModule("WideCharToMultiByte")
; pMultiByteToWideChar	:= GetProcAddressInModule("MultiByteToWideChar")
; pStrCpy					:= GetProcAddressInModule("strcpy", "msvcrt")

g_strAppName			:= "Smart Open File"
g_strVersion			:= "2010.5.10"
g_strTitle				:= g_strAppName A_Space g_strVersion
g_hMainWnd				:= 0

g_nFilesCount			:= 0
g_nMatchCount			:= 0
g_MatchIndices			= -1


; Allow the user to maximize or drag-resize the window:
Gui +Resize

; Create some buttons:
Gui, Add, Button, Default vBtnLoadFolder gButtonLoadFolder, &Load a folder

; Create the ListView with two columns, Name and Size:
; +LV0x014000 : LVS_EX_DOUBLEBUFFER (0x010000) | LVS_EX_LABELTIP (0x004000)
; +0x1140     : LVS_OWNERDATA (0x1000) | LVS_AUTOARRANGE (0x0100) | LVS_SHAREIMAGELISTS (0x0040)
; Gui, Add, ListView, Grid xm r20 w700 vMyListView Hwndg_hMyListView +%LVS_OWNERDATA%, Name|In Folder|Modified|Size (KB)|Type
Gui, Add, ListView, Grid xm r20 w700 vMyListView Hwndg_hMyListView +0x1140 +LV0x014000, Name|In Folder|Modified|Size (KB)|Type

; Create an ImageList so that the ListView can display some icons:
ImageListID1 := IL_Create(10)
ImageListID2 := IL_Create(10, 10, true)  ; A list of large icons to go with the small ones.

; Attach the ImageLists to the ListView so that it can later display the icons:
LV_SetImageList(ImageListID1)
LV_SetImageList(ImageListID2)

ListView_SetItemCount(g_hMyListView, g_nMatchCount)

Gui, Add, Edit, vEditSearchString gOnChangeSearchString,

Gui, Show, , %g_strTitle% [0 of 0]

OnMessage(WM_NOTIFY, "OnNotify")

Gui, +LastFound
WinSet, ReDraw, , ahk_id %g_hMyListView%		; Invalidate the list-view

g_hMainWnd := WinExist()

return

GuiEscape:
	GuiClose:  ; Indicate that the script should exit automatically when the window is closed.
	ExitApp
Return

GuiSize:  ; Expand or shrink the ListView in response to the user's resizing of the window.
	if A_EventInfo = 1  ; The window has been minimized.  No action needed.
		return
	; Otherwise, the window has been resized or maximized. Resize the ListView to match.
	GuiControl, Move, MyListView, % "W" . (A_GuiWidth - 20) . " H" . (A_GuiHeight - 70)
	GuiControl, Move, EditSearchString, % "W" . (A_GuiWidth - 20) . " Y" . (A_GuiHeight - 30)
return

ButtonLoadFolder:
	Gui +OwnDialogs  ; Forces user to dismiss the following dialog before using main window.
	FileSelectFolder, Folder,, 3, Select a folder to read:
	if not Folder  ; The user canceled the dialog.
		return

	g_nMatchCount := 0
	WinSetTitle, , , %g_strTitle% [%g_nMatchCount% of %g_nFilesCount%]

	GuiControl, Disable, BtnLoadFolder
	SetTimer, FileLoadProgressTimer, 100

	g_arrResult := ; Free the memory
	g_nFilesCount := LoadFolder(Folder, "g_arrResult")

	Gosub, OnChangeSearchString

	Gui +LastFound
	GuiControl, Enable, BtnLoadFolder
	SetTimer, FileLoadProgressTimer, Off
return

OnChangeSearchString:
	GuiControl, -Redraw, MyListView  ; Improve performance by disabling redrawing during load.
	nMatchCount := g_nFilesCount
	bNeedSetFocus := false
	If (g_nFilesCount > 0)
	{
		GuiControlGet, strSearchPattern, , EditSearchString

		strSearchPattern := RegExReplace(strSearchPattern, "S)[\s]+", "|")	; Replace multiple whitespaces with a single character
		if(strSearchPattern = "" || strSearchPattern = "|")
		{
			; Nothing is entered, select the first one
			g_MatchIndices = -1
			bNeedSetFocus := true
		}
		Else
		{
			If ( SubStr(strSearchPattern, StrLen(strSearchPattern)) == "|")
				strSearchPattern := SubStr(strSearchPattern, 1, StrLen(strSearchPattern)-1)
			StringSplit, arrSearchPatterns, strSearchPattern, |

			g_MatchIndices =
			VarSetCapacity(g_MatchIndices, g_nFilesCount * 4)

			nMatchCount := 0

			Loop, %g_nFilesCount%
			{
				strName := g_arrResult%A_Index%_NameAnsi
				strFolder := g_arrResult%A_Index%_FolderAnsi
				bMatch := true
				Loop %arrSearchPatterns0%
				{
					if ( !IsMatch(strName, strFolder, arrSearchPatterns%A_Index%) )
					{
						bMatch := false
						Break
					}
				}
				if (bMatch)
				{
					NumPut(A_Index, g_MatchIndices, nMatchCount * 4, "UInt")
					++nMatchCount
				}
			}
		}
	}
	Else
	{
		g_MatchIndices = -1
	}
	g_nMatchCount := nMatchCount
	ListView_SetItemCount(g_hMyListView, g_nMatchCount)
	ListView_RedrawItems(g_hMyListView, 0, -1)
	;ToolTip, Done searching %strSearchPattern%

	LV_ModifyCol()  ; Auto-size each column to fit its contents.
	GuiControl, +Redraw, MyListView  ; Re-enable redrawing (it was disabled above).

	If (bNeedSetFocus)
	{
		GuiControl, Focus, SysListView321,
		Send, {Home}
		GuiControl, Focus, EditSearchString,
	}
	WinSet, Redraw, , ahk_id %g_hMyListView%
	WinSetTitle, , , %g_strTitle% [%g_nMatchCount% of %g_nFilesCount%]
Return

IsMatch(ByRef strFileName, ByRef strFolder, strSubPattern)
{
	chChar1			:= SubStr(strSubPattern, 1, 1)
	chChar2			:= SubStr(strSubPattern, 2, 1)
	bIsExclude		:= chChar1 == "-" || chChar2 == "-"
	bIsInFolder		:= chChar1 == "\" || chChar2 == "\"

	strSubPattern := RegExReplace(strSubPattern, "S)^[-\\]+")
	If (strSubPattern = "")
		return true
	/*
	StringReplace, strSubPattern, strSubPattern, -
	StringReplace, strSubPattern, strSubPattern, \
	*/
	strSearchText	:= bIsInFolder ? strFolder : strFileName
	bMatch			:= InStr(strSearchText, strSubPattern)
	if (bIsExclude)
		bMatch := !bMatch

	return bMatch
}

FileLoadProgressTimer:
	Gui +LastFound
	WinSetTitle, , , %g_strTitle% [%g_nMatchCount% of %g_nFilesCount%]
Return

/*
typedef struct tagNMHDR
{
    HWND  hwndFrom;
    UINT  idFrom;       // UINT_PTR !!!
    UINT  code;         // NM_ code
}   NMHDR;

 NMHDR *pnm
*/
OnNotify(idCtrl, pnmh)
{
	global g_hMyListView, LVN_GETDISPINFO
   Critical, 300
	; hwndFrom := DecodeInteger( "uint4", pnmh, 0 )
	hwndFrom := NumGet(pnmh + 0, "UPtr")
	if ( hwndFrom == g_hMyListView )
	{
		; idFrom := DecodeInteger( "uint4", pnmh, 4)
		idFrom := NumGet(pnmh + A_PtrSize, "UPtr" )
		; code := DecodeInteger( "uint4", pnmh, 8)
		; nCode := code > 0x7FFFFFFF ? -(~code) - 1 : code
		ncode := NumGet(pnmh + A_PtrSize, A_PtrSize, "Int")
		if ( nCode == LVN_GETDISPINFO )
		{
			OnGetDispInfo(pnmh)
		}
    }
}

/*
NMLVDISPINFO* pnmv

typedef struct tagNMLVDISPINFO {
    NMHDR hdr;
    LVITEM item;
} NMLVDISPINFO;

typedef struct _LVITEM {
    UINT mask;     0
    int iItem;     4
    int iSubItem;  8
    UINT state;    12
    UINT stateMask; 16
    LPTSTR pszText; 20
    int cchTextMax; 24
    int iImage;     28
    LPARAM lParam;
#if (_WIN32_IE >= 0x0300)
    int iIndent;
#endif
#if (_WIN32_WINNT >= 0x560)
    int iGroupId;
    UINT cColumns; // tile view columns
    PUINT puColumns;
#endif
#if (_WIN32_WINNT >= 0x0600)
    int* piColFmt;
    int iGroup;
#endif
} LVITEM, *LPLVITEM;

*/
OnGetDispInfo(pnmv)
{
	global
	iItemOffset		:= sizeofNMHDR + 4
	; iItem			:= DecodeInteger( "uint4", pnmv, iItemOffset)
	iItem			:= NumGet(pnmv + 0, iItemOffset, "UInt")

	if (iItem < 0 || iItem > g_nMatchCount)
		return	; requesting invalid item

	maskOffset		:= sizeofNMHDR + 0
	; mask			:= DecodeInteger( "uint4", pnmv, maskOffset)
	mask			:= NumGet(pnmv + maskOffset, "UInt")

	if (mask & LVIF_TEXT)
	{
		iSubItemOffset	:= sizeofNMHDR + 8
		; iSubItem		:= DecodeInteger( "uint4", pnmv, iSubItemOffset)
		iSubItem		:= NumGet(pnmv + iSubItemOffset, "UInt")

		pszTextOffset	:= sizeofNMHDR + 20 + A_PtrSize - 4
		; pszText			:= DecodeInteger( "uint4", pnmv, pszTextOffset)
		pszText			:= NumGet(pnmv + pszTextOffset, "UInt")

		If (g_MatchIndices = -1)
			nIndex := iItem + 1
		else
			nIndex := NumGet(g_MatchIndices, iItem * 4, "UInt")

		;ToolTip, Row %iItem% Index in list %nIndex%

		pstrText := 0
		if (0 == iSubItem)
			pstrText := &g_arrResult%nIndex%_Name
		Else if (1 == iSubItem)
			pstrText := &g_arrResult%nIndex%_Folder
		Else if (2 == iSubItem)
			pstrText := &g_arrResult%nIndex%_Modified
		Else if (3 == iSubItem)
			pstrText := &g_arrResult%nIndex%_SizeKB
		Else if (4 == iSubItem)
			pstrText := &g_arrResult%nIndex%_Ext
		; EncodeInteger( pstrText, 4, pnmv, pszTextOffset )
		NumPut(pstrText, pnmv + pszTextOffset, "Ptr")
	}
	if (mask & LVIF_STATE)
	{
		stateOffset := sizeofNMHDR + 12
		; EncodeInteger( 0, 4, pnmv, stateOffset )
		NumPut(0, pnmv + stateOffset, "UInt")
	}
	if (mask & LVIF_IMAGE)
	{
		iImageOffset := sizeofNMHDR + 24 + A_PtrSize + A_PtrSize - 4
		; EncodeInteger( -1, 4, pnmv, iImageOffset )
		NumPut(-1, pnmv + iImageOffset, "Int")
	}
}

LoadFolder(ByRef strFolder, arrResultName, ByRef strExtInclude = "", ByRef strExtExclude = "", bRecursive = true)
{
	global	; This is important for creating/accessing array
	nTotalFiles := 0
	nIndex := g_nFilesCount+1

	; Check if the last character of the folder name is a backslash, which happens for root
	; directories such as C:\. If it is, remove it to prevent a double-backslash later on.
	StringRight, LastChar, strFolder, 1
	if LastChar = \
		StringTrimRight, strFolder, strFolder, 1  ; Remove the trailing backslash.

	; Ensure the variable has enough capacity to hold the longest file path. This is done
	; because ExtractAssociatedIconA() needs to be able to store a new filename in it.
	VarSetCapacity(Filename, 260)
	sfi_size = 352
	VarSetCapacity(sfi, sfi_size)

	; Gather a list of file names from the folder
	Loop %strFolder%\*.*, 0, %bRecursive%
	{
		;MsgBox %A_LoopFileName%

		; filter out
		If (strExtExclude != "")
		{
			if A_LoopFileExt in %strExtExclude%
			{
				Continue
			}
		}
		If (strExtInclude != "")
		{
			if A_LoopFileExt not in %strExtInclude%
			{
				Continue
			}
		}

		; Name|In Folder|Modified|Size (KB)|Type
		FormatTime, FileTimeModified, %A_LoopFileTimeModified% LSys R D1	;, MM/dd/yyyy HH:mm

		; ToWideChar(A_LoopFileName, %arrResultName%%nIndex%_Name)
		; ToWideChar(A_LoopFileExt, %arrResultName%%nIndex%_Ext)
		; ToWideChar(A_LoopFileDir, %arrResultName%%nIndex%_Folder)
		; ToWideChar(FileTimeModified, %arrResultName%%nIndex%_Modified)
		; ToWideChar(A_LoopFileSizeKB, %arrResultName%%nIndex%_SizeKB)
		StrPutVar(A_LoopFileName, %arrResultName%%nIndex%_Name, "UTF-16")
		StrPutVar(A_LoopFileExt, %arrResultName%%nIndex%_Ext, "UTF-16")
		StrPutVar(A_LoopFileDir, %arrResultName%%nIndex%_Folder, "UTF-16")
		StrPutVar(FileTimeModified, %arrResultName%%nIndex%_Modified, "UTF-16")
		StrPutVar(A_LoopFileSizeKB, %arrResultName%%nIndex%_SizeKB, "UTF-16")

		; We need this for pattern matching
		%arrResultName%%nIndex%_NameAnsi := A_LoopFileName
		%arrResultName%%nIndex%_FolderAnsi := A_LoopFileDir

		++nIndex
		++nTotalFiles
		++g_nFilesCount
	}
	return nTotalFiles
}

#IfWinActive ahk_class AutoHotkeyGUI
~Up::
~+Up::
	IfWinNotActive, ahk_id %g_hMainWnd%,
	{
		Send, {Up}
		Return
	}

	GuiControl, Focus, SysListView321,
	;ControlSend, SysListView321, {Up}, %g_hMainWnd%
Return

~Down::
~+Down::
	IfWinNotActive, ahk_id %g_hMainWnd%,
	{
		Send, {Down}
		Return
	}

	GuiControl, Focus, SysListView321,
	;ControlSend, SysListView321, {Down}, %g_hMainWnd%
Return
#IfWinActive

;;;;;;;;;;;;;;;;;;; Helper Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ListView_RedrawItems(hwndLV, iFirst, iLast)
{
	global LVM_REDRAWITEMS
	SendMessage, LVM_REDRAWITEMS, iFirst, iLast, , ahk_id %hwndLV%
	return %ErrorLevel%
}

ListView_SetItemCount(hwndLV, cItems)
{
	global LVM_SETITEMCOUNT, LVSICF_NOINVALIDATEALL
   SendMessage, LVM_SETITEMCOUNT, cItems, LVSICF_NOINVALIDATEALL, , ahk_id %hwndLV%
	return %ErrorLevel%
}

StrPutVar(string, ByRef var, encoding)
{
    ; Ensure capacity.
    VarSetCapacity( var, StrPut(string, encoding)
        ; StrPut returns char count, but VarSetCapacity needs bytes.
        * ((encoding="utf-16"||encoding="cp1200") ? 2 : 1) )
    ; Copy or convert the string.
    return StrPut(string, &var, encoding)
}

[oldbrother]

Thanks a lot Just me!