Странности активации макросов при удерживании Ctrl/Alt/Shift

Здесь обсуждается всё, что касается макросов.
User avatar
HaRT
Moderator
Posts: 8017
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 67 times
Been thanked: 99 times

LuaMacro — Lua как язык макросов

Post by HaRT » Wed 29 Oct, 2014 15:55

Latest post of the previous page:

Maximus5 wrote: При быстрых нажатиях эти "отпущенные" клавиши будут постоянно меняться... А потом кто-то будет ругаться что не тот макрос срабатывает.
Вариантов не так много, т.ч. когда без разницы, несложно назначить все.
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
John Doe
Бюрократ
Posts: 11095
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 12 times
Been thanked: 66 times

LuaMacro — Lua как язык макросов

Post by John Doe » Thu 30 Oct, 2014 16:11

HaRT, можете развёрнуто объяснить свою позицию?

User avatar
HaRT
Moderator
Posts: 8017
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 67 times
Been thanked: 99 times

LuaMacro — Lua как язык макросов

Post by HaRT » Thu 30 Oct, 2014 16:21

John Doe wrote: можете развёрнуто объяснить свою позицию?
По какому вопросу?
Я могу попытаться ответить на несколько. Притом не факт, что сейчас для меня важно то же, что было важно когда-то.
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
John Doe
Бюрократ
Posts: 11095
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 12 times
Been thanked: 66 times

LuaMacro — Lua как язык макросов

Post by John Doe » Thu 30 Oct, 2014 17:29

HaRT wrote: По какому вопросу?
Стоит ли придавать значение порядку нажатия/отпускания отдельных клавиш комбинации?

User avatar
John Doe
Бюрократ
Posts: 11095
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 12 times
Been thanked: 66 times

MacroEx — запуск макросов нетрадиционными способами

Post by John Doe » Thu 28 Jul, 2016 20:19

sToLp wrote: Поэтому весьма желательно, чтобы макросы и на двойное нажатие на CtrlAlt, CtrlShift и AltShift тоже появились бы.
Предлагаю быстрый и грязный proof of concept
  1. local F = far.Flags
  2.  
  3. local mods = {}
  4.  
  5. for i,v in ipairs{"Ctrl","Alt"} do
  6.  
  7.   local r = far.NameToInputRecord(v)
  8.  
  9.   mods[r.VirtualKeyCode] = true
  10.  
  11. end
  12.  
  13. local mask = bor(F.LEFT_ALT_PRESSED,F.RIGHT_ALT_PRESSED,F.LEFT_CTRL_PRESSED,F.RIGHT_CTRL_PRESSED,F.SHIFT_PRESSED)
  14.  
  15. local CtrlAlt = bor(F.LEFT_ALT_PRESSED,F.LEFT_CTRL_PRESSED)
  16.  
  17. local wait
  18.  
  19. Event{
  20.  
  21.   group="ConsoleInput";
  22.  
  23.   description="CtrlAlt";
  24.  
  25.   id="2EEE56E1-228B-4087-B583-6E0612E6DF0B";
  26.  
  27.   action=function(r)
  28.  
  29.     if r.EventType~=F.KEY_EVENT then
  30.  
  31.       return
  32.  
  33.     elseif wait then
  34.  
  35.       if mods[r.VirtualKeyCode] then
  36.  
  37.         if not r.KeyDown then
  38.  
  39.           wait = false
  40.  
  41.           mf.postmacro(mf.eval,"CtrlAlt",2)
  42.  
  43.         end
  44.  
  45.       else
  46.  
  47.         wait = false
  48.  
  49.       end
  50.  
  51.     elseif mods[r.VirtualKeyCode] then
  52.  
  53.       if r.KeyDown and band(mask,r.ControlKeyState)==CtrlAlt then wait = true end
  54.  
  55.     end
  56.  
  57.   end;
  58.  
  59. }
  60.  
  61.  
  62.  
  63. Macro { description="CtrlAlt sample";
  64.  
  65.   area="Common"; key="CtrlAlt";
  66.  
  67.   id="D1A40884-785D-4996-A71B-4FB05296A571";
  68.  
  69.   action=function()
  70.  
  71.     far.Message(mf.akey(1,1),Area.Current)
  72.  
  73.   end;
  74.  
  75. }
(с двойным нажатием скомбинируйте самостоятельно, я не проверял)

User avatar
John Doe
Бюрократ
Posts: 11095
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 12 times
Been thanked: 66 times

MacroEx — запуск макросов нетрадиционными способами

Post by John Doe » Thu 28 Jul, 2016 23:09

Усовершенствованная версия.
  1. local F = far.Flags
  2.  
  3. local mods = {[0x11]="Ctrl",[0x12]="Alt",[0x10]="Shift"}
  4.  
  5. local A,rA,C,rC,S = F.LEFT_ALT_PRESSED,F.RIGHT_ALT_PRESSED,F.LEFT_CTRL_PRESSED,F.RIGHT_CTRL_PRESSED,F.SHIFT_PRESSED
  6.  
  7. local mask = bor(A,rA,C,rC,S)
  8.  
  9.  
  10.  
  11. local keys = {
  12.  
  13.  
  14.  
  15.   --[[
  16.  
  17.   [c]="Ctrl",
  18.  
  19.   [rC]   ="RCtrl",
  20.  
  21.   [A]    ="Alt",
  22.  
  23.   [rA]   ="RAlt",
  24.  
  25.   [S]    ="Shift",
  26.  
  27.   --]]
  28.  
  29.  
  30.  
  31.   [C+A]  ="CtrlAlt",
  32.  
  33.   [C+rA] ="CtrlRAlt",
  34.  
  35.   [rC+A] ="RCtrlAlt",
  36.  
  37.   [rC+rA]="RCtrlRAlt",
  38.  
  39.   [A+rA] ="LRAlt",
  40.  
  41.   [C+rC] ="LRCtrl",
  42.  
  43.  
  44.  
  45.   [C+S]  ="CtrlShift",
  46.  
  47.   [rC+S] ="RCtrlShift",
  48.  
  49.   [A+S]  ="AltShift",
  50.  
  51.   [rA+S] ="RAltShift",
  52.  
  53.  
  54.  
  55.   [C+A+S]  ="CtrlAltShift",
  56.  
  57.   [C+rA+S] ="CtrlRAltShift",
  58.  
  59.   [rC+A+S] ="RCtrlAltShift",
  60.  
  61.   [rC+rA+S]="RCtrlRAltShift",
  62.  
  63.   [A+rA+S] ="LRAltShift",
  64.  
  65.   [C+rC+S] ="LRCtrlShift",
  66.  
  67. }
  68.  
  69.  
  70.  
  71. local wait
  72.  
  73. Event{
  74.  
  75.   group="ConsoleInput";
  76.  
  77.   description="CtrlAlt";
  78.  
  79.   id="2EEE56E1-228B-4087-B583-6E0612E6DF0B";
  80.  
  81.   action=function(r)
  82.  
  83.     if r.EventType~=F.KEY_EVENT then
  84.  
  85.       return
  86.  
  87.     elseif mods[r.VirtualKeyCode] then
  88.  
  89.       if r.KeyDown then
  90.  
  91.         wait = band(mask,r.ControlKeyState)
  92.  
  93.         if not keys[wait] then wait = false end --to filter single mods
  94.  
  95.       elseif wait then
  96.  
  97.         mf.postmacro(mf.eval,keys[wait],2)
  98.  
  99.         wait = false
  100.  
  101.       end
  102.  
  103.     else
  104.  
  105.       wait = false
  106.  
  107.     end
  108.  
  109.   end;
  110.  
  111. }
  112.  
  113.  
  114.  
  115. Macro { description="CtrlAlt sample";
  116.  
  117.   area="Common"; key="CtrlAlt LRCtrl LRAlt CtrlShift AltShift CtrlAltShift LRCtrlShift LRAltShift";
  118.  
  119.   id="D1A40884-785D-4996-A71B-4FB05296A571";
  120.  
  121.   action=function()
  122.  
  123.     far.Message(mf.akey(1,1),Area.Current)
  124.  
  125.   end;
  126.  
  127. }
Теперь различаются все комбинации правых и левых Ctrl/Alt, включая LRCtrl (LCtrl+RCtrl) и LRAlt (LAlt+RAlt)

P.S.
Аналогичным образом и Shift можно добавить, но.. полноценной реализации в фаре данный скрипт не заменит.
Например по waitkey получить всё ещё ничего невозможно..

Update
Добавлена обработка всех комбинаций с Shift.

Post Reply

Return to “Обсуждение макросов”