Page 2 of 2
Открыть каталог в другой панели
Posted: Wed 20 Jan, 2010 11:18
by hyperspeed
Latest post of the previous page:
Всем привет!
Хотелось бы узнать есть ли в FAR такая фукция:
Открыть каталог в другой панели FAR, т.е. я например, нахожусь в папке C:\Program Files\ курсор стоит на папке Far, по горячей клавише у меня открывается в другой панели папка Far. Аналогичная функция есть в Total Commander - там по нажатию ctrl+стрелка вправо или влево. "Такой же каталог" - не подходит...
Re: Открыть каталог в другой панели
Posted: Wed 20 Jan, 2010 12:43
by AlexSM
макрос
Code: Select all
$If (APanel.Folder) panel.SetPath(1, APanel.Path+"\\"+Apanel.Current) $End
Re: Открыть каталог в другой панели
Posted: Wed 20 Jan, 2010 13:06
by NightRoman
Re: Показывать содержимое каталога в соседней панели
Posted: Wed 20 Jan, 2010 19:35
by Maximus5
Мой вариант. AltLeft и AltRight открывает каталог с соседней панели на левой и правой панели соответственно,
независимо от того, какая панель является текущей
Code: Select all
REGEDIT4
[HKEY_CURRENT_USER\Software\Far2\KeyMacros\Shell\AltLeft]
"Sequence"="%OldCount=CmdLine.ItemCount; %OldPos=CmdLine.CurPos; %OldCmd=CmdLine.Value; %IsLeft=APanel.Left; $if (%IsLeft==0) $If (APanel.Current==\"..\") %Item=APanel.Path; $Else %Item=APanel.Path+\"\\\\\"+APanel.Current; %A=fattr(%Item); $If ((%A==-1) || ((%A&0x10)==0)) %Item=APanel.Path; $End $End $else $If (PPanel.Current==\"..\") %Item=PPanel.Path; $Else %Item=PPanel.Path+\"\\\\\"+PPanel.Current; %A=fattr(%Item); $If ((%A==-1) || ((%A&0x10)==0)) %Item=PPanel.Path; $End $End $end Esc $if (%IsLeft==0) Tab $end c d Space $Text %Item Enter $if (%IsLeft==0) Tab $end $If (%OldCount>0) $Text %OldCmd $end"
"DisableOutput"=dword:00000001
[HKEY_CURRENT_USER\Software\Far2\KeyMacros\Shell\AltRight]
"Sequence"="%OldCount=CmdLine.ItemCount; %OldPos=CmdLine.CurPos; %OldCmd=CmdLine.Value; %IsLeft=APanel.Left; $if (%IsLeft==1) $If (APanel.Current==\"..\") %Item=APanel.Path; $Else %Item=APanel.Path+\"\\\\\"+APanel.Current; %A=fattr(%Item); $If ((%A==-1) || ((%A&0x10)==0)) %Item=APanel.Path; $End $End $else $If (PPanel.Current==\"..\") %Item=PPanel.Path; $Else %Item=PPanel.Path+\"\\\\\"+PPanel.Current; %A=fattr(%Item); $If ((%A==-1) || ((%A&0x10)==0)) %Item=PPanel.Path; $End $End $end Esc $if (%IsLeft==1) Tab $end c d Space $Text %Item Enter $if (%IsLeft==1) Tab $end $If (%OldCount>0) $Text %OldCmd $end"
"DisableOutput"=dword:00000001
Открыть на активной панели путь из другой панели
Posted: Fri 20 Aug, 2010 12:50
by zeroed
Собственно вопрос.
Как открыть на активной панели путь второй панели?
Может быть есть какая-то горячая клавиша, но в коммандах я не нашел.
Posted: Fri 20 Aug, 2010 16:25
by John Doe
Code: Select all
macro:post print("cd "+PPanel.Path0) Enter
Re: Показывать содержимое каталога в соседней панели
Posted: Sat 21 Aug, 2010 15:16
by John Doe
zen wrote:Понял, чего мне сильно не хватает: чтобы в соседней панели показывалась содержимое каталогов, когда я по ним прохожу курсором в списке.
...
А может уже есть такой плагин?
Max Rusov wrote:Re: SameFolder+
Ver 1.0.1
...
+ Добавлена возможность установки в пассивной панели каталога, который
находится под курсором на активной панели. Доступна только через
CallPlugin(SameFolder, 1)
Re: Показывать содержимое каталога в соседней панели
Posted: Sat 21 Aug, 2010 19:37
by SUSim
Макросоми сейчас и не такое возможно... даже плагиновую панель открыть если она префиксы поддерживает...
Это только ради того чтобы в активной панели выставилась полностью пассивную панель со всеми колонками-сортировками? или чтоб в меню дисков пункт был?
В противном случае лучше клавиши понажимать... раза 3...
Или я чегото недопонимаю?
P.S. поставьте задачу, и макрос я вам постараюсь сделать! (мне это интересно)
Макрос открывающий папку под курсором на соседней панели
Posted: Fri 06 Jul, 2018 19:13
by Piton812
SUSim интересно было бы горячей клавише получать в пассивной панеле содержимое папки на которой находится курсор в активной панели, при этом если курсор находится на файле, чтобы в пассивной панели активировался быстрый просмотр
Макрос открывающий папку под курсором на соседней панели
Posted: Wed 11 Jul, 2018 10:39
by SUSim
Piton812, я сейчас далеко от цивилизации... напомните , плиз 1 августа в личку или в моей теме Полезные макросы, обсудим...
Макрос открывающий папку под курсором на соседней панели
Posted: Wed 11 Jul, 2018 11:22
by Shmuel
В простейшем варианте можно так (плагиновые папки не обрабатывает):
Code: Select all
Macro {
area="Shell"; key="CtrlShiftQ";
action=function()
if APanel.Folder then Panel.SetPath(1, APanel.Path.."\\"..APanel.Current)
else Keys("CtrlQ")
end
end;
}