AutoHotkey Community

• Call TV_Drag() from the TreeView's G-Label when A_GuiEvent contains "D" or "d". A line will show across the TreeView while holding the button to indicate the destination where the selected node will be dropped with its children.
• If you point the mouse cursor to the half bottom part of the node text it will be dropped as a child of the pointed node. If you point it to the upper part it will drop it as sibling right below the pointed node.
• TV_Drag() returns the target node id (if valid) which you can use to call TV_Drop() and effectively move the selection. Alternatively you can set AutoDrop option on as a shorthand.
• Separating the Drag and Drop calls allows to check if the returned destination is a valid node to drop in as well as setting GuiControl, -Redraw to avoid flickering.
• TV_Drop() may be called directly to move or copy nodes programmatically. You may pass the TreeView control's hwnd to keep icons and set Copy parameter to true if you want to copy nodes instead of moving.

• Updated TV_Drop() to return the ID of the created top node.

guest3456 wrote: ↑

21 Oct 2020, 02:17

outstanding

• Fixed children being moved in reverse order.
• Fixed items being dropped as first child instead of last.

• Added DragButton parameter to TV_Drag().
• Added Hwnd and Copy parameters to TV_Drop().

• Added FirstChild parameter in TV_Drop() to allow drop as first/top sibling.

If you point it to the upper part it will drop it as sibling right below the pointed node.

burque505 wrote: ↑

30 Oct 2020, 18:10

@hasantr, take a look at the "TreeView Browser.ahk" file in the Examples folder. You will find a "CreateTreeView(TreeViewDefinitionString)" function by @Learning one in the script. Using your "Paths" variable described above as an argument to the function, you should be able to create your treeview.
Regards,
burque505

Pulover wrote: ↑

30 Oct 2020, 18:21

@hasantr, you should try the Save File button and check the format of the saved file. You might want to modify the LoadFile label to convert your format to the one expected by CreateTreeView(). The purpose of TreeView Browser was exactly to browse my files from another computer back when I wrote it.

Paths :=
(
"C:\Users\hasan\Desktop\
C:\Users\hasan\Desktop\WhatsApp
C:\Users\hasan\Desktop\WhatsApp\Media\WhatsApp Documents\
C:\Users\hasan\Desktop\test\
D:\TestIndex
D:\_AppData_\Desktop
D:\_AppData_\Desktop\AHK TEST\UDFS 7ZDLL İLE
D:\_AppData_\Desktop\AHK TEST\UDFS 7ZDLL İLE\BüyükUdfLer1
D:\_AppData_\Desktop\AHK TEST\UDFS 7ZDLL İLE\UDFLER"
)

Clipboard := PathListToTree(Paths)
PathListToTree(Paths){
	Paths := StrSplit(Paths,"`n")
	TO := {}
	For, K,Dir in Paths
	{	
		if(Dir == "")
			Continue
		Dir := SubStr(Dir,StrLen(Dir),1) = "\" ? SubStr(Dir,1,StrLen(Dir) - 1) : Dir ;Remove last character if "\"
		PATH := Dir
		PathBack  :=
		Loop 125 ; NO MORE "\"
		{
			SplitPath,PATH,,PATH
			if(TO.HasKey(PATH) == true){ ; this has a parent directory
				TO[Dir] := TO[PATH] + 1
				break
			}
			if(PathBack == PATH){ ; the loop should end as there are no new subdirectories left. This is the root directory
				TO[Dir] :=  1
				Break
			}
			PathBack := PATH
		}
		Loop, % TO[Dir]
			Stack .= "`t"
		Stack .= Dir . (A_Index != Paths.MaxIndex() ? "`n" : "")
	}
	return Stack
}

hasantr wrote: ↑

01 Nov 2020, 12:02

@Pulover I wanted to use the GetIcon() function, but is there a problem? It takes an infinite number of icons. For example, if I call 5 PDF extensions, it returns 5 separate icon numbers. I couldn't figure out where the problem was caused.

GetIcon(FileName, ImageListID)
{
	static IconArray := []

	sfi_size := A_PtrSize + 8 + (A_IsUnicode ? 680 : 340)
	VarSetCapacity(sfi, sfi_size)
	SplitPath, FileName,,, FileExt
	if FileExt in EXE,ICO,ANI,CUR
	{
		ExtID := FileExt
		IconNumber = 0
	}
	else
	{
		ExtID = 0
		Loop 7
		{
			StringMid, ExtChar, FileExt, A_Index, 1
			If not ExtChar
				break
			ExtID := ExtID | (Asc(ExtChar) << (8 * (A_Index - 1)))
		}
		IconNumber := IconArray[ExtID]
	}
	If not IconNumber
	{
		if not DllCall("Shell32\SHGetFileInfo" . (A_IsUnicode ? "W":"A"), "str",  "." FileExt
			, "uint", (FileExt ? 0x80 : 0), "ptr", &sfi, "uint", sfi_size, "uint", (FileExt ? 0x111 : 0x101))
			IconNumber = 9999999
		else
		{
			hIcon := NumGet(sfi, 0)
			IconNumber := DllCall("ImageList_ReplaceIcon", "ptr", ImageListID, "int", -1, "ptr", hIcon) + 1
			DllCall("DestroyIcon", "ptr", hIcon)
			IconArray[ExtID] := IconNumber
		}
	}
	return IconNumber
}

Pulover wrote: ↑

01 Nov 2020, 16:46

hasantr wrote: ↑

01 Nov 2020, 12:02

@Pulover I wanted to use the GetIcon() function, but is there a problem? It takes an infinite number of icons. For example, if I call 5 PDF extensions, it returns 5 separate icon numbers. I couldn't figure out where the problem was caused.

I don't remember writing that function... probably copied it from somewhere in the forum. But you're right, there is problem with it. Must have been my mistake when I modified it. Here's a fixed version:

Code: Select all

GetIcon(FileName, ImageListID)
{
	static IconArray := []

	sfi_size := A_PtrSize + 8 + (A_IsUnicode ? 680 : 340)
	VarSetCapacity(sfi, sfi_size)
	SplitPath, FileName,,, FileExt
	if FileExt in EXE,ICO,ANI,CUR
	{
		ExtID := FileExt
		IconNumber = 0
	}
	else
	{
		ExtID = 0
		Loop 7
		{
			StringMid, ExtChar, FileExt, A_Index, 1
			If not ExtChar
				break
			ExtID := ExtID | (Asc(ExtChar) << (8 * (A_Index - 1)))
		}
		IconNumber := IconArray[ExtID]
	}
	If not IconNumber
	{
		if not DllCall("Shell32\SHGetFileInfo" . (A_IsUnicode ? "W":"A"), "str",  "." FileExt
			, "uint", (FileExt ? 0x80 : 0), "ptr", &sfi, "uint", sfi_size, "uint", (FileExt ? 0x111 : 0x101))
			IconNumber = 9999999
		else
		{
			hIcon := NumGet(sfi, 0)
			IconNumber := DllCall("ImageList_ReplaceIcon", "ptr", ImageListID, "int", -1, "ptr", hIcon) + 1
			DllCall("DestroyIcon", "ptr", hIcon)
			IconArray[ExtID] := IconNumber
		}
	}
	return IconNumber
}