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

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

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

Maz (15-01-2020 17:38): FAR Manager (часть 6)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Victor_VG



Tracker Mod
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
-------------------------------------------------------------------------------
-- Подсказки к файлам (FarHints.dll © Максим Русов). © SimSU, ©VictorVG
--
-- После консультации с shmuel устранён конфликт хоткеев в управлении размером
-- хинта с клавиатуры путём замены Num+/Num- на RAltUp/RAltDown. Иначе выделение
-- файлов и каталогов работает только после гашения хинта - конфликт.
-- Рефакторинг с добавлением функций управления размером подсказки колесом мыши
-- v1.1, Sun Sep 20 18:09:34 +0300 2015 /VictorVG/
-- v1.2, 20.02.2019 07:59:56 +0300 запретим хинт в контекстном меню шелла
-------------------------------------------------------------------------------
local FHID = "CDF48DA0-0334-4169-8453-69048DD3B51C"
 
if not Plugin.Exist(FHID) then return end
 
---- Настройки
local function Settings()
-- Начало файла Profile\SimSU\Plugin_FarHint.cfg
return{
  KeyShow="Alt"; PriorShow=51;
  KeyHide="Alt Esc Apps MsRClick"; PriorHide=51;
  KeyIncrese="RAltUp"; PriorIncrese=51;
  KeyDecrese="RAltDown"; PriorDecrese=51;
  KeyMsIncrese="MsWheelUp"; PriorMsIncrese=51;
  KeyMsDecrese="MsWheelDown"; PriorMsDecrese=51;
}
-- Конец файла Profile\SimSU\Plugin_FarHint.cfg
end
 
---- Локализация
_G.far.lang=far.lang or win.GetEnv("farlang")
-- Встроенные языки / Buildin laguages
local function Messages()
if far.lang=="Russian" then
-- Начало файла Profile\SimSU\Plugin_FarHintRussian.lng
return{
  DescrShow="FarHints: показать подсказку (клавиатура)";
  DescrHide="FarHints: скрыть подсказку (клавиатура)";
  DescrIncrese="FarHints: увеличить эскиз (клавиатура)";
  DescrDecrese="FarHints: уменьшить эскиз (клавиатура)";
  DescrMsIncrese="FarHints: увеличить эскиз (колесо мыши)";
  DescrMsDecrese="FarHints: уменьшить эскиз (колесо мыши)";
 
}
-- Конец файла Profile\SimSU\Plugin_FarHintRussian.lng
else--if far.lang=="English" then
-- Begin of file Profile\SimSU\Plugin_FarHintEnglish.lng
return{
   DescrShow = "FarHints: show hint (keyboard)";
   DescrHide = "FarHints: hide hint (keyboard)";
   DescrIncrese = "FarHints: increase thumbnail (keyboard)";
   DescrDecrese = "FarHints: decrees thumbnail (keyboard)";
   DescrMsIncrese = "FarHints: increase thumbnail (mouse wheel)";
   DescrMsDecrese = "FarHints: decrees thumbnail (mouse wheel)";
 
}
-- End of file Profile\SimSU\Plugin_FarHintEnglish.lng
end end
 
local M=(loadfile(win.GetEnv("FARPROFILE").."\\SimSU\\Plugin_FarHint"..far.lang..".lng") or Messages)()
local S=(loadfile(win.GetEnv("FARLOCALPROFILE").."\\SimSU\\Plugin_FarHint.cfg") or loadfile(win.GetEnv("FARPROFILE").."\\SimSU\\Plugin_FarHint.cfg") or Settings)()
 
local SimSU=SimSU or {}
SimSU.Plugin_FarHint={}
-------------------------------------------------------------------------------
function SimSU.Plugin_FarHint.Show()
  Plugin.Call(FHID,"Show",2)
end
 
function SimSU.Plugin_FarHint.Hide()
  Plugin.Call(FHID,"Hide")
end
 
function SimSU.Plugin_FarHint.Increse()
  Plugin.Call(FHID,"Size",1)
end
 
function SimSU.Plugin_FarHint.Decrese()
  Plugin.Call(FHID,"Size",-1)
end
 
function SimSU.Plugin_FarHint.Text(Text,X,Y,Time,Font)
  local Text= Text or ""
  local X= X or -1
  local Y= Y or -1
  local Time= Time and Time*1000 or 3000
  if Font then
    Plugin.Call(FHID,"Info","")
    Plugin.Call(FHID,"FontSize", Font)
  end
  Plugin.Call(FHID,"Info",Text,X,Y,Time)
end
 
-------------------------------------------------------------------------------
if not Macro then return {Plugin_FarHint=SimSU.Plugin_FarHint} end
 
local ok, mod = pcall(require,"SimSU.Plugin_FarHint"); if ok then SimSU=mod else _G.SimSU=SimSU end
-------------------------------------------------------------------------------
 
Macro {area="Shell Tree"; key=S.KeyShow; priority=S.PriorShow; description=M.DescrShow;
--  condition=function() return Plugin.Exist(FHID) end;
  action=SimSU.Plugin_FarHint.Show;
}
 
Macro {area="Shell Tree"; key=S.KeyHide; priority=S.PriorHide; description=M.DescrHide;
  condition=function() return win.GetEnv("FarHint")=="1" end;
  action=SimSU.Plugin_FarHint.Hide;
}
 
Macro {area="Shell Tree"; key=S.KeyIncrese; priority=S.PriorIncrese; description=M.DescrIncrese;
  condition=function() return win.GetEnv("FarHint")=="1" end;
  action=SimSU.Plugin_FarHint.Increse;
}
Macro {area="Shell Tree"; key=S.KeyDecrese; priority=S.PriorDecrese; description=M.DescrDecrese;
  condition=function() return win.GetEnv("FarHint")=="1"  end;
  action=SimSU.Plugin_FarHint.Decrese;
}
 
-- добавим управление размера подсказки колесом мыши
 
Macro {area="Shell Tree"; key=S.KeyMsIncrese; priority=S.PriorMsIncrese; description=M.DescrMsIncrese;
  condition=function() return win.GetEnv("FarHint")=="1" end;
  action=SimSU.Plugin_FarHint.Increse;
}
 
Macro {area="Shell Tree"; key=S.KeyMsDecrese; priority=S.PriorMsDecrese; description=M.DescrMsDecrese;
  condition=function() return win.GetEnv("FarHint")=="1" end;
  action=SimSU.Plugin_FarHint.Decrese;

Всего записей: 33205 | Зарегистр. 31-07-2002 | Отправлено: 09:00 20-02-2019
   

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

Компьютерный форум Ru.Board » Компьютеры » Программы » FAR Manager (часть 5)
Maz (15-01-2020 17:38): FAR Manager (часть 6)


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru