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;
}