Code: Select all
GUID = {
cPluginID: "742910F1-02ED-4542-851F-DEE37C2E13B2"
}
Macro
area:"Shell"
key:"F1"
action:->
Plugin.Call GUID.cPluginID, 0
Code: Select all
-------------------------------------------------------------------------------
-- Пеереход по вкладкам плагина PanelTabs от Максима Русова v.0.0.2.0
-------------------------------------------------------------------------------
-- Рещение проблемы с CTRL + SHIFT + 0
-- http://forum.farmanager.com/viewtopic.php?f=4&t=7896&p=134402#p134402
-------------------------------------------------------------------------------
-- [R]Ctrl[1-9]
-- быстрый переход по вкладкам, при нажатии на несуществующюю вкладку:
-- отображается меню выбора вкладок для редктирования.
--
-- [R]CtrlShift[1-9]
-- Add Temp Tab
--
-- [R]Ctrl[0]
-- [R]AltShift[0]
-- [R]CtrlShift[0]
-- Вход в меню плагина.
--
-- [R]AltShift[1-9]
-- Прикрипить постоянную вкладку.
--
-------------------------------------------------------------------------------
-- Команды Plugin.Call:
-- 0 - MainMenu MenuID
-- 1 - Add tab
-- 2 - Edit Tabs Work no GUID
-- 3 - Select tab !!!
-- 4 - General Options Config cConfigID
-------------------------------------------------------------------------------
GUID = {
cPluginID: "8E6FEAE8-9078-4FB9-81E8-1A58F4746037"
}
PanelTabsExist=->
Plugin.Exist GUID.cPluginID
Plugin_PanelTabs=(command)->
if ( akey(1)\sub -1 ) ~= "0"
Plugin.Call(GUID.cPluginID, command)
else
Plugin.Call(GUID.cPluginID, 0)
Macro
area:"Shell Tree Info QView"
key:"/[R]Ctrl[0-9]/"
condition:PanelTabsExist
action:->
Plugin_PanelTabs 2
Keys akey(1)\sub -1
Macro
area:"Shell Tree Info QView"
key:"/[R]AltShift[0-9]/"
condition:PanelTabsExist
action:->
Plugin_PanelTabs 1
Plugin_PanelTabs 2
Keys "F4 Tab Tab Space Tab Enter Enter"
Macro
area:"Shell Tree Info QView"
key:"/[R]CtrlShift[0-9]/"
condition:PanelTabsExist
action:->
Plugin_PanelTabs 1
На Moon Script более лаконичный код получается.
А как быть с
akey(1):sub(-1)
в moon script?