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

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

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

Maz (23-11-2017 18:57): FAR Manager (часть 5)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Alexyz21



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

Код:
local F = far.Flags
local ffi = require'ffi'
local C = ffi.C
 
Macro {
description="* Select Duplicates FileName in Branch panel"; name="SDFN"; area="Shell";
action=function()
  local ptr=ffi.cast("BOOL*",1)
  local pc=ffi.cast("struct PluginStartupInfo*",far.CPluginStartupInfo()).PanelControl
  local pin=panel.GetPanelInfo(nil,1)
  if bit.band(pin.Flags,F.PFLAGS_SELECTEDFIRST)>0 then Keys("ShiftF12") end
  if pin.SortMode~=F.SM_NAME then panel.SetSortMode(nil,1,F.SM_NAME) end
  local pt,fn0,fn1,t0 = nil,"","",far.FarClock()
  for i=1,pin.ItemsNumber do
    --fn0,fn1 = fn1,string.match(panel.GetPanelItem(nil,1,i).FileName,"[^\\\\]+$")
    fn0,fn1 = fn1,string.gsub(panel.GetPanelItem(nil,1,i).FileName,"^.+\\","")
    --if fn1==fn0 then panel.SetSelection(nil,1,{i-1,i},true) end
    if fn1==fn0 then
      if pt then pc(PANEL_ACTIVE,"FCTL_SETSELECTION",i-2,ptr) pt=false end
      pc(PANEL_ACTIVE,"FCTL_SETSELECTION",i-1,ptr)
    else pt=true
    end
  end
  pc(PANEL_ACTIVE,"FCTL_REDRAWPANEL",0,nil)
  Keys("ShiftF12")
  msgbox("SDFN","mcs: "..far.FarClock()-t0.."\n\nUse ShiftF12 for sort")
end;
}
 

Всего записей: 3471 | Зарегистр. 16-06-2007 | Отправлено: 12:38 03-05-2016
   

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

Компьютерный форум Ru.Board » Компьютеры » Программы » FAR Manager (часть 4)
Maz (23-11-2017 18:57): FAR Manager (часть 5)


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru