include "%FARHOME%\fmlMacros\Consts.fmi"
--[=[ё]=]
Macro Area="Menu" Key="`"
Description="Запускает ВЕРХНЮЮ позицию в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
-- for k=1,10 do Keys"Down" end
Keys("Home Enter")
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[Num*]=]
Macro Area="Menu" Key="Multiply"
Description="Запускает ВЕРХНЮЮ позицию в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
-- for k=1,10 do Keys"Down" end
Keys("Home Enter")
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[Num+]=]
Macro Area="Menu" Key="Add"
Description="Запускает ВЕРХНЮЮ позицию в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
-- for k=1,10 do Keys"Down" end
Keys("Home Enter")
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[Num-]=]
Macro Area="Menu" Key="Subtract"
Description="Запускает ВЕРХНЮЮ позицию в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
-- for k=1,10 do Keys"Down" end
Keys("Home Enter")
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[Num/]=]
Macro Area="Menu" Key="Divide"
Description="Запускает ВЕРХНЮЮ позицию в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
-- for k=1,10 do Keys"Down" end
Keys("Home Enter")
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[001]=]
Macro Area="Menu" Key="1"
Description="Запускает позицию [1] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- menu.select("[1]",3)
Keys("Home Down")
if (mf.substr(Menu.Value,0,3)=="[1]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[002]=]
Macro Area="Menu" Key="2"
Description="Запускает позицию [2] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home Down Down")
if (mf.substr(Menu.Value,0,3)=="[2]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[003]=]
Macro Area="Menu" Key="3"
Description="Запускает позицию [3] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,3 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[3]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[004]=]
Macro Area="Menu" Key="4"
Description="Запускает позицию [4] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,4 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[4]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[005]=]
Macro Area="Menu" Key="5"
Description="Запускает позицию [5] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,5 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[5]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[006]=]
Macro Area="Menu" Key="6"
Description="Запускает позицию [6] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,6 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[6]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[007]=]
Macro Area="Menu" Key="7"
Description="Запускает позицию [7] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,7 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[7]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[008]=]
Macro Area="Menu" Key="8"
Description="Запускает позицию [8] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,8 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[8]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[009]=]
Macro Area="Menu" Key="9"
Description="Нажатие 9 в контекстных меню = File Menu = и = Folder Menu = вызывает на исполнение заданную там команду, запускает позицию [9] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
Keys("Home") for k=1,9 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[9]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0010]=]
Macro Area="Menu" Key="0"
Description="Запускает позицию [0] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,10 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[0]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0011]=]
Macro Area="Menu" Key="a"
Description="Запускает позицию [a] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,11 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[a]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0012]=]
Macro Area="Menu" Key="b"
Description="Запускает позицию [в] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,12 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[в]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0013]=]
Macro Area="Menu" Key="c"
Description="Запускает позицию [с] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,13 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[с]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0014]=]
Macro Area="Menu" Key="d"
Description="Запускает позицию [d] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,14 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[d]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0015]=]
Macro Area="Menu" Key="e"
Description="Запускает позицию [e] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,15 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[e]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0016]=]
Macro Area="Menu" Key="f"
Description="Запускает позицию [f] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,16 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[f]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0017]=]
Macro Area="Menu" Key="g"
Description="Запускает позицию [g] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,17 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[g]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[0018]=]
Macro Area="Menu" Key="h"
Description="Запускает позицию [h] в меню выбора ассоциаций или макросов - (= Исполнить макрос = или = Execute a macro =)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
Keys("Home") for k=1,18 do Keys"Down" end
if (mf.substr(Menu.Value,0,3)=="[h]") then
Keys("Enter")
end
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}}
--[=[BS]=]
Macro Area="Menu" Key="BS Alt8"
Description="Запускает НИЖНЮЮ позицию в меню выбора ассоциаций или макросов 'Исполнить макрос' (Execute a macro)"
{{
mf.mmode(3,1)
if (mf.substr(Object.Title,0,16)=="Исполнить макрос") or (mf.substr(Object.Title,0,15)=="Execute a macro") or (mf.substr(Object.Title,0,19)=="Выберите ассоциацию") or (mf.substr(Object.Title,0,18)=="Select association") then
-- Shmuel Sun 03 Nov, 2013 22:50 http://forum.farmanager.com/viewtopic.php?p=114058#p114058
-- for k=1,10 do Keys"Down" end
Keys("End Enter")
else
Keys("AKey") -- eval(mf.key(#AKey)) -- Key(#AKey)
end
}} |
