mouse wheel click open folder in a new tab

[KozakMak]

Code: Select all

LoadLibrary Plugins\Autorun_Runtime.dll
LoadLibrary Plugins\Autorun_Tweaks.dll

ControlSetMouseAction /M 1 OpenDirInNewTabElseEnter
ControlSetMouseAction /M 2 OpenDirInNewTabElseEnter

Func OpenDirInNewTabElseEnter
   I = ItemAtCursor('index')
   If I >= 0 Then
      F = RequestInfo(1010 + ItemAtCursor('panel'))
      If ItemAtCursor('panel') <> RequestInfo(1000) Or Not ItemAtCursor('focused') Then MouseClick
      If ItemAtCursor('focused') Then
         If F > I Or F = -1 Then
            SendCommand 3003
         Else
            Switch StrLower(StrRight(ItemAtCursor('text'), 4))
               Case '.exe'
                  ShowPopupMenu /I:16 '%commander_path%\Buttonbar\CLICK.BAR'
               Case '.jpg', '.png'
                  ShowPopupMenu /I:16 '%commander_path%\Buttonbar\IRFAN.BAR'
            EndSwitch
         EndIf
      EndIf
   EndIf
EndFunc

dir - work, file - show nothing
Win10 x64, TC 10.52 x64
Autorun 2.2.10 beta (dll)

[Fla$her]

Have the limitations from below been taken into account?
I advise to check with MsgBox instead of ShowPopupMenu /I:16.

[KozakMak]

Have the limitations from below been taken into account?

I know about limitations. My simple ShowPopupMenu /I:16 CLICK.BAR work fine.
Something wrong with Switch..Case code

I advise to check with MsgBox instead of ShowPopupMenu /I:16.

same here - without Switch..Case it works correct
and with Switch..Case do nothing

[Fla$her]

2KozakMak
Doesn't work in brief mode either?

[KozakMak]

Doesn't work in brief mode either?

omg, it works on brief mode

[Fla$her]

Add the highlighted:

Switch StrLower(StrRight(StrPart(ItemAtCursor('text'), auTAB, 1), 4))

P. S.:
Now it makes no sense to write Enter in OpenDirInNewTabElseEnter.
Better like this: OpenDirInNewTabElseShowMenu

[KozakMak]

Jesus Christ!

Spoiler

that what she said

[Fla$her]

And how should I take this reaction?

[KozakMak]

https://ibb.co/ZLPYggy

[KozakMak]

ha! new (and you say "It's stupid." (c)) idea!
how about showing dir menu (with my custom .bar) when clicking wheel on EMPTY space?

[Fla$her]

Replace the bottom two lines of code with:

Code: Select all

   Else
      SendCommand 526
   EndIf
EndFunc

dir menu (with my custom .bar)

DirMenu is a section in the ini, it has nothing to do with bar files.

https://ibb.co/ZLPYggy

Click