To be honest, I don't like this window and signals anyway, so I decided to get rid of everything unnecessary (clipboard and all commands except panel activation):
Code: Select all
#βββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββ
# Purpose: place the cursor on the item in the target panel with
# the same item name under the cursor in the active panel
# Parameter: 0 β the target panel will become active.
#βββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββββ
RegisterCommand 76549 PlaceCursorOnTheSameNameItemInTargetPanel
RegisterCommand 76550 PlaceCursorOnTheSameNameItemInTargetPanel 0
Func PlaceCursorOnTheSameNameItemInTargetPanel(lParam, SrcFocus=1)
Local Check = 0, Name = GetCurrentItem(3)
If Name = GetCurrentItem(4) Then
If Not SrcFocus Then Check = 2
Else
Local i = 0, TPanel = RequestInfo(4)
If Name = '..' Then
If RequestInfo(11010) Then Check = 1
Else
For i = 1 To RequestInfo(11002) - 1
If Name = StrPart(SendMessage(TPanel, 0x0189, i, 0, 2), auTAB, 1) Then
Check = 1
Break
EndIf
Next
EndIf
If Check Then
SendMessage(TPanel, 0x19E, i, 1)
SendCommand(4006, 0, 1)
EndIf
EndIf
If Check + SrcFocus = 2 Then SendCommand(4006)
EndFunc
If there is a match, only the cursor will be set, otherwise nothing happens.