-- RClick выделяет файл/ длинный RClick вызывает контекстное меню (c) IgorZ
-- Версия 2.0
local EMenu = "742910F1-02ED-4542-851F-DEE37C2E13B2"
-- Минимальная задержка отпускания кнопки в миллисекундах, после которой вызывается меню
local MinDelay = 500
local MouseClickOn = ""
local timer
local function OnTimer()
timer:Close() timer = nil
if Mouse.Button==2 and (MouseClickOn==APanel.Path.."\\"..APanel.Current) then
Panel.Select(0,2,1)
far.MacroPost('Plugin.Command("'..EMenu..'","rclk_gui:")')
end
MouseClickOn = ""
end
Macro{
area="Shell"; key="MsRClick";
description="EMenu: mouse activation";
condition=function() return not timer end;
action=function()
Keys("MSRClick")
MouseClickOn = APanel.Path.."\\"..APanel.Current
timer = far.Timer(MinDelay,OnTimer)
end;
} |
