local DlgScaleId="D37E1039-B69B-4C63-B750-CBA4B3A7727C" -- гуид диалога масштаба
local LFSPlug="8E11EA75-0303-4374-AC60-D1E38F865449" -- гуид активации плагина LuaFAR Search
local LFSMenu="3D5E7985-3B5D-4777-A572-BA7C621B3731" -- гуид меню плагина LuaFAR Search
Macro {
description="активировать диалог масштаба и перевызвать трансформируемый диалог";
-- это временное вспомогательное дополнение к диалогу масштаба макроса Dialog_Maximize.moon
area="Dialog"; key="Enter MsLClick"; priority=100; id="DD117A83-3D00-4EF6-B83E-9983C230758D";
condition=function() return Dlg.Id==DlgScaleId end;
action=function()
Keys("Enter") local dgVal=Dlg.Id; -- dgVal (dialogue guide value - гуид трансформируемого диалога)
if dgVal=="8BCCDFFD-3B34-49F8-87CD-F4D885B75873" then shrtct="CtrlF7" -- замена в редакторе
Dlg.SetFocus(5) Keys("End ShiftHome CtrlIns F10") Keys(shrtct) Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
-- LFSearch/Shell:
if dgVal=="3CD8A0BB-8583-4769-BBBC-5B6667D13EF9" -- Shell/Поиск
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("1") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
if dgVal=="F7118D4A-FBC3-482E-A462-0167DF7CC346" -- Shell/Замена
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("2") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
if dgVal=="74D7F486-487D-40D0-9B25-B2BB06171D86" -- Shell/Греп
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("3") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
if dgVal=="AF8D7072-FF17-4407-9AF4-7323273BA899" -- Shell/Переименование
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("4") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
-- LFSearch/Editor:
if dgVal=="0B81C198-3E20-4339-A762-FFCBBC0C549C" -- Editor/Поиск
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("1") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
if dgVal=="FE62AEB9-E0A1-4ED3-8614-D146356F86FF" -- Editor/Замена
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("2") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
if dgVal=="87ED8B17-E2B2-47D0-896D-E2956F396F1A" -- Editor/Многострочная замена
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Plugin.Menu(LFSPlug,LFSMenu)
Keys("7") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
-- калькулятор:
if dgVal=="E45555AE-6499-443C-AA04-12A1AADAB989"
then Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10")
Plugin.Menu("894EAABB-C57F-4549-95FC-4AC6F3102A36","DCEFBFC8-9C43-49E5-ABE6-875FED184652")
Keys("Home Enter") Keys("CtrlY ShiftIns Home ShiftEnd") exit() end
-- отдельные нативные команды:
if dgVal=="FCEF11C4-5490-451D-8B4A-62FA03F52759" then shrtct="F5" end -- копировать/клонировать
if dgVal=="431A2F37-AC01-4ECD-BB6F-8CDE584E5A03" then shrtct="F6" end -- переместить/переименовать
if dgVal=="FAD00DBE-3FFF-4095-9232-E1CC70C67737" then shrtct="F7" end -- cоздание папки
if dgVal=="5EB266F4-980D-46AF-B3D2-2C50E64BCA81" then shrtct="AltF6" end -- ссылка
if dgVal=="1D07CEE2-8F4F-480A-BE93-069B4FF59A2B" then shrtct="ShiftF4" end -- открыть/создать файл
if dgVal=="8C9EAD29-910F-4B24-A669-EDAFBA6ED964" then shrtct="AltF7" end -- поиск файла
if dgVal=="5D3CBA90-F32D-433C-B016-9BB4AF96FACC" then shrtct="F7" end -- поиск в редакторе
if dgVal=="9162F965-78B8-4476-98AC-D699E5B6AFE7" then shrtct="ShiftF2" end -- сохранить в редакторе файл как ...
if dgVal=="D8AF7A38-8357-44A5-A44B-A595CF707549" then shrtct="CtrlZ" end -- описание файла
if dgVal=="044EF83E-8146-41B2-97F0-404C2F4C7B69" then shrtct="CtrlG" end -- применить команду
if dgVal=="502D00DF-EE31-41CF-9028-442D2E352990" then shrtct="ShiftF5" end -- [Shift] копировать/клонировать
if dgVal=="89664EF4-BB8C-4932-A8C0-59CAFD937ABA" then shrtct="ShiftF6" end -- [Shift] переместить/переименовать
Dlg.SetFocus(3) Keys("End ShiftHome CtrlIns F10") Keys(shrtct) Keys("CtrlY ShiftIns Home ShiftEnd") --exit()
end;
} |
