Orion9
|
Posted: Sun Apr 14, 2024 19:37 Post subject: |
|
|
Loopback
А как задать тултипу координаты, чтобы он не у курсора мыши всплывал, а файлового курсора активной панели?
Довесил к функции, что была выше, вызов по F1: вроде удобно так - стрелка вниз->F1->ESC, стрелка вниз->F1->ESC и т.д. Только тултип появляется у стрелки мыши, а не у активного файла.
Hidden text Code: | ControlSetMouseAction /L /K:A 3 ShowAltHint 0
ControlSetMouseAction /L /K:A /K:S 3 ShowAltHint 1
SetHotkeyAction /H:F1 ShowAltHint 2
Func ShowAltHint(nMsg)
Local f, p, out, line, hint
Local trid = %COMMANDER_PATH% & "\Plugins\wdx\TrID\TrID\trid.exe"
If Not FileExist(trid) Then
MsgBox("Не найден " & trid)
Return
Endif
If nMsg < 2 Then
f = StrPart(ItemAtCursor('text'), auTAB, 1)
p = SendMessage(RequestInfo(ItemAtCursor('panel') + 8), 13, 500, "" , 2)
Else
f = StrPart(GetCurrentItem(3), auTAB, 1)
p = SendMessage(RequestInfo(RequestInfo(1000) + 8), 13, 500, "" , 2)
EndIf
p = StrLeft(p, StrPos(p, "\", -1))
f = p & f
If Not FileExist(f) Then
MsgBox("Файл не существует " & f)
Return
Endif
ProcessExecGetOutput out %trid% '"%f%"'
i=1
while 1
line=StrPart(out, auLF, i)
If ERROR = 1 Then Break
If StrLen(StrTrim(line)) = 0 Then
i = i + 1
Continue
Endif
hint = hint & line
i = i + 1
Wend
If nMsg=1 Then
MsgBox(hint)
Else
ShowHint(hint)
Endif
EndFunc |
|
|