Orion9
|
 Posted: Tue Dec 30, 2025 23:54 Post subject: |
 |
|
FallenAngel
Если требуется сохранить старый код, т.е. обойтись минимальным вмешательством, то можно "перевесить" ControlSetMouseAction на Shift, добавив ключ /K:S, а просто СКМ оставить под новую ControlSetMouseAction с командой быстрого просмотра:
| Code: | ControlSetMouseAction /M 1 SendCommand cm_SrcQuickView
ControlSetMouseAction /M 2 SendCommand cm_SrcQuickView
ControlSetMouseAction /K:S /M 1 OpenDirInNewTabElseEnter
ControlSetMouseAction /K:S /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(StrPart(ItemAtCursor('text'), auTAB, 1), 4))
Case '.exe', '.bat', '.cmd', '.lnk'
CommandExec em_startelevated
Case '.ps1'
ShowPopupMenu /I:16 '%commander_path%\PS.BAR'
Else
SendCommand cm_SrcQuickView
EndSwitch
EndIf
EndIf
Else
SendCommand cm_SrcHideQuickView
EndIf
EndFunc |
Подойдет вам такой вариант? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
