Is it possible to have icons of 32px and their name BELOW?

Anixx said:

This in AHK removes align left and adds the scrollbar:

Code:

Control, Style, -0x2800, FolderView, ahk_id %lParam%
Control, Style, -0x2800, SysListView321, ahk_id %lParam%

...It seems in desktop mode groupping does not work...

Thank you, Anixx!
I copy/pasted your code and then compiled the file with AutoHotkey 1.1.22.09. However it doesn't seems to run / work. Any ideas?

This is the complete script that I am using, it also removes the address bar and adds the client edge. It includes the lines above:

Code:

#NoTrayIcon
#NoEnv
Gui +LastFound
hWnd := WinExist()
SetControlDelay, -1
SetBatchLines -1

DllCall( "RegisterShellHookWindow", UInt,hWnd )
MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
OnMessage( MsgNum, "ShellMessage" )
Return
 
ShellMessage(wParam,lParam) {
   If (wParam = 1  or wParam = 6) ;  HSHELL_WINDOWCREATED := 1
   {

WinGetClass, WinClass, ahk_id %lParam%
if (WinClass = "CabinetWClass") {

;ControlGetPos,x,,w,,DirectUIHWND2, ahk_id %lParam%
;ControlMove, ShellTabWindowClass1,x-1,,w+1,, ahk_id %lParam%

Control, ExStyle, +0x200, FolderView, ahk_id %lParam%
Control, ExStyle, +0x200, SysListView321, ahk_id %lParam%
Control, ExStyle, +0x200, SysTreeView321, ahk_id %lParam%

Control, Style, -0x2800, FolderView, ahk_id %lParam%
Control, Style, -0x2800, SysListView321, ahk_id %lParam%

If (wParam = 6){
ControlGetPos,,,,h, ShellTabWindowClass1, ahk_id %lParam%
ControlMove, ShellTabWindowClass1,,,,h+1, ahk_id %lParam%
ControlMove, ShellTabWindowClass1,,,,h, ahk_id %lParam%
}

;If (wParam = 1){
ControlGetPos, ,y1,,ha,ReBarWindow321, ahk_id %lParam%

SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam%

Control, Hide,, WorkerW1, ahk_id %lParam%
Control, Hide,, ReBarWindow321, ahk_id %lParam%

ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam%
ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam%
ControlMove, ReBarWindow321,,,,0, ahk_id %lParam%

WinSet, Redraw,, ahk_id %lParam%

Sleep, 100

SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam%

Control, Hide,, WorkerW1, ahk_id %lParam%
Control, Hide,, ReBarWindow321, ahk_id %lParam%

ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam%
ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam%
ControlMove, ReBarWindow321,,,,0, ahk_id %lParam%

WinSet, Redraw,, ahk_id %lParam%

Sleep, 100

SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam%

Control, Hide,, WorkerW1, ahk_id %lParam%
Control, Hide,, ReBarWindow321, ahk_id %lParam%

ControlGetPos,,y2,,h1,ShellTabWindowClass1, ahk_id %lParam%
ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam%
ControlMove, ReBarWindow321,,,,0, ahk_id %lParam%

WinSet, Redraw,, ahk_id %lParam%

Sleep, 100

SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam%

Control, Hide,, WorkerW1, ahk_id %lParam%
Control, Hide,, ReBarWindow321, ahk_id %lParam%

ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam%
ControlMove, ReBarWindow321,,,,0, ahk_id %lParam%

WinSet, Redraw,, ahk_id %lParam%

Sleep, 100

SendMessage, 0x0082,,,ReBarWindow321, ahk_id %lParam%

Control, Hide,, WorkerW1, ahk_id %lParam%
Control, Hide,, ReBarWindow321, ahk_id %lParam%

ControlMove, ShellTabWindowClass1,, y1,,y2-y1+h1, ahk_id %lParam%
ControlMove, ReBarWindow321,,,,0, ahk_id %lParam%

;}
}

if (WinClass = "NotebookFrame") {
Control, ExStyle, +0x200, NotebookContent1, ahk_id %lParam%
WinGetPos, , , , h, ahk_id %lParam%
WinMove, ahk_id %lParam%,,,,,h-1
;WinMove, ahk_id %lParam%,,,,,h

}

}

}

w7pro said:

Windows Explorer >> Tools >> Folder Options >> View >> Apply to Folders doesn't seem to work.

It should work, at least it works for me.

Here it is, sharp icons finally:





But there are issues remaining.

1. Registry hack does not work as reliably and universally as Folder Options X. We have to modify Folder Options X so to set the desktop mode. I know how to do that but I do not know how to build Folder Options X. I tried various combinations of MSVS and WinSDK but nothing worked.

2. We do not have the shortcut for 32px icons in the View menu.

3. We need all the same but in open/save dialogs.

4. The groupping does not work and manual sorting is not remembered in the Desktop mode.

Thanks, Anixx!

I edited your script and removed some of the code. The result is this:

Code:

#NoTrayIcon
#NoEnv
Gui +LastFound
hWnd := WinExist()
SetControlDelay, -1
SetBatchLines -1

DllCall( "RegisterShellHookWindow", UInt,hWnd )
MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
OnMessage( MsgNum, "ShellMessage" )
Return
 
ShellMessage(wParam,lParam) {
   If (wParam = 1 or wParam = 6) ; HSHELL_WINDOWCREATED := 1
   {

WinGetClass, WinClass, ahk_id %lParam%
if (WinClass = "CabinetWClass") {

Control, Style, -0x2800, FolderView, ahk_id %lParam%
Control, Style, -0x2800, SysListView321, ahk_id %lParam%
}

}

}

Alignment and scrollbar are working great now!
Anything else I should remove from the code to speed it up?

Unfortunately Windows Explorer >> Tools >> Folder Options >> View >> Apply to Folders still doesn't work for me

Unfortunately Windows Explorer >> Tools >> Folder Options >> View >> Apply to Folders still doesn't work for me

Try to delete the Bags entry in the registry. Also this works only for the same type of folders as the one u are using.

I thought this would work for me but it didn't. I tried with 32px icon size. Even below 32px it still won't work.

Code:

#NoTrayIcon
#NoEnv
Gui +LastFound
hWnd := WinExist()
SetControlDelay, -1
SetBatchLines -1

DllCall( "RegisterShellHookWindow", UInt,hWnd )
MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
OnMessage( MsgNum, "ShellMessage" )
Return
 
ShellMessage(wParam,lParam) {
   If (wParam = 1  or wParam = 6) ;  HSHELL_WINDOWCREATED := 1
   {

WinGetClass, WinClass, ahk_id %lParam%
if (WinClass = "CabinetWClass") {

Control, Style, +0x2, FolderView, ahk_id %lParam%
Control, Style, +0x2, SysListView321, ahk_id %lParam%
Control, Style, -0x2, FolderView, ahk_id %lParam%
Control, Style, -0x2, SysListView321, ahk_id %lParam%

}

}

}

Any help is much appreciated!