Макрос открывающий папку под курсором на соседней панели

Здесь обсуждается всё, что касается макросов.
hyperspeed
Posts: 1
Joined: Wed 20 Jan, 2010 11:09

Открыть каталог в другой панели

Post by hyperspeed »

Latest post of the previous page:

Всем привет!
Хотелось бы узнать есть ли в FAR такая фукция:
Открыть каталог в другой панели FAR, т.е. я например, нахожусь в папке C:\Program Files\ курсор стоит на папке Far, по горячей клавише у меня открывается в другой панели папка Far. Аналогичная функция есть в Total Commander - там по нажатию ctrl+стрелка вправо или влево. "Такой же каталог" - не подходит...
AlexSM
Posts: 32
Joined: Mon 21 Mar, 2005 09:50

Re: Открыть каталог в другой панели

Post by AlexSM »

макрос

Code: Select all

$If (APanel.Folder) panel.SetPath(1, APanel.Path+"\\"+Apanel.Current) $End
User avatar
NightRoman
Posts: 6184
Joined: Fri 18 Aug, 2006 13:52
Location: Cambridge, UK
Has thanked: 32 times
Been thanked: 62 times
Contact:

Re: Открыть каталог в другой панели

Post by NightRoman »

Maximus5
Posts: 3295
Joined: Sun 11 Nov, 2007 02:03
Been thanked: 10 times
Contact:

Re: Показывать содержимое каталога в соседней панели

Post 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
zeroed
Posts: 16
Joined: Wed 24 Sep, 2008 18:06

Открыть на активной панели путь из другой панели

Post by zeroed »

Собственно вопрос.

Как открыть на активной панели путь второй панели?

Может быть есть какая-то горячая клавиша, но в коммандах я не нашел.
User avatar
John Doe
Бюрократ
Posts: 13807
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 426 times
Contact:

Post by John Doe »

Code: Select all

macro:post print("cd "+PPanel.Path0) Enter
User avatar
John Doe
Бюрократ
Posts: 13807
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 426 times
Contact:

Re: Показывать содержимое каталога в соседней панели

Post by John Doe »

zen wrote:Понял, чего мне сильно не хватает: чтобы в соседней панели показывалась содержимое каталогов, когда я по ним прохожу курсором в списке.
...
А может уже есть такой плагин?
Max Rusov wrote:Re: SameFolder+
Ver 1.0.1
...
+ Добавлена возможность установки в пассивной панели каталога, который
находится под курсором на активной панели. Доступна только через
CallPlugin(SameFolder, 1)
User avatar
SUSim
Posts: 1636
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 9 times
Been thanked: 26 times

Re: Показывать содержимое каталога в соседней панели

Post by SUSim »

Макросоми сейчас и не такое возможно... даже плагиновую панель открыть если она префиксы поддерживает...

Это только ради того чтобы в активной панели выставилась полностью пассивную панель со всеми колонками-сортировками? или чтоб в меню дисков пункт был?
В противном случае лучше клавиши понажимать... раза 3...
Или я чегото недопонимаю?
P.S. поставьте задачу, и макрос я вам постараюсь сделать! (мне это интересно)
SimSU ··· ·· -- ··· ··-
Piton812
Posts: 47
Joined: Sat 02 Jun, 2018 23:04
Has thanked: 16 times
Been thanked: 1 time

Макрос открывающий папку под курсором на соседней панели

Post by Piton812 »

SUSim интересно было бы горячей клавише получать в пассивной панеле содержимое папки на которой находится курсор в активной панели, при этом если курсор находится на файле, чтобы в пассивной панели активировался быстрый просмотр
User avatar
SUSim
Posts: 1636
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 9 times
Been thanked: 26 times

Макрос открывающий папку под курсором на соседней панели

Post by SUSim »

Piton812, я сейчас далеко от цивилизации... напомните , плиз 1 августа в личку или в моей теме Полезные макросы, обсудим...
SimSU ··· ·· -- ··· ··-
Shmuel
Posts: 6819
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 528 times

Макрос открывающий папку под курсором на соседней панели

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

Return to “Обсуждение макросов”