Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Far Manager (часть 3)

Модерирует : gyra, Maz

articlebot (06-10-2016 09:08): Far Manager  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Alexyz21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
Macro {
area="Shell"; key="Left"; flags="EmptyCommandLine EnableOutput "; description="LYNX-style motion";
condition = function() return APanel.Visible and APanel.ColumnCount==1 end;
action = function()
  Keys('CtrlPgUp')
end;
}
 
Macro {
area="Shell"; key="Right"; flags="EmptyCommandLine EnableOutput"; description="LYNX-style motion";
condition = function() return APanel.Visible and APanel.ColumnCount==1 end;
action = function()
  Keys('CtrlPgDn')
  if Area.Current=="Shell" and APanel.Current==".." and panel.GetPanelInfo(nil,1).ItemsNumber>1 then Panel.SetPosIdx(0,2) end
end;
}
 
Macro {
area="Shell"; key="Enter"; flags="EmptyCommandLine EnableOutput"; description="LYNX-style motion";
condition = function() return APanel.Visible end;
action = function()
  if APanel.Current==".." then
    Keys('CtrlPgUp')
    while Area.Current=="Shell" and panel.GetPanelItem(nil,1,1).FileName==".." do
      if panel.GetPanelInfo(nil,1).ItemsNumber<=2 then Keys('CtrlPgUp') else break end
    end
    if APanel.Current==".." and panel.GetPanelInfo(nil,1).ItemsNumber>1 then Panel.SetPosIdx(0,2) end
  elseif panel.GetCurrentPanelItem(nil,1).FileAttributes:match("d") then
    Keys('CtrlPgDn')
    while Area.Current=="Shell" do
      if APanel.Current==".." and panel.GetPanelInfo(nil,1).ItemsNumber>1 then Panel.SetPosIdx(0,2) end
      if panel.GetPanelInfo(nil,1).ItemsNumber<=2 and APanel.Current~=".." and panel.GetCurrentPanelItem(nil,1).FileAttributes:match("d") then Keys('CtrlPgDn') else break end
    end
  else
    Keys('Enter')
  end
end;
}
 
Macro {
area="Disks"; key="Right"; flags="EmptyCommandLine EnableOutput"; description="LYNX-style motion";
condition = function() return APanel.Visible end;
action = function() Keys('Enter') end;
}
 
Macro {
area="Disks"; key="Left"; flags="EmptyCommandLine EnableOutput"; description="LYNX-style motion";
condition = function() return APanel.Visible end;
action = function() end;
}
 
 

Всего записей: 3485 | Зарегистр. 16-06-2007 | Отправлено: 18:10 09-01-2015 | Исправлено: Alexyz21, 20:48 09-02-2015
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Far Manager (часть 3)
articlebot (06-10-2016 09:08): Far Manager


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru