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

Здесь обсуждается всё, что касается макросов.
AlexSM
Posts: 32
Joined: Mon 21 Mar, 2005 09:50

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

Post by AlexSM » Wed 20 Jan, 2010 12:43

Latest post of the previous page:

макрос

Code: Select all

$If (APanel.Folder) panel.SetPath(1, APanel.Path+"\\"+Apanel.Current) $End

User avatar
NightRoman
Posts: 5904
Joined: Fri 18 Aug, 2006 13:52
Location: Cambridge, UK
Has thanked: 10 times
Been thanked: 11 times
Contact:

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

Post by NightRoman » Wed 20 Jan, 2010 13:06


Maximus5
Posts: 3292
Joined: Sun 11 Nov, 2007 02:03
Been thanked: 4 times
Contact:

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

Post by Maximus5 » Wed 20 Jan, 2010 19:35

Мой вариант. 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 » Fri 20 Aug, 2010 12:50

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

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

Может быть есть какая-то горячая клавиша, но в коммандах я не нашел.

User avatar
John Doe
Бюрократ
Posts: 11848
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 26 times
Been thanked: 130 times

Post by John Doe » Fri 20 Aug, 2010 16:25

Code: Select all

macro:post print("cd "+PPanel.Path0) Enter

User avatar
John Doe
Бюрократ
Posts: 11848
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 26 times
Been thanked: 130 times

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

Post by John Doe » Sat 21 Aug, 2010 15:16

zen wrote:Понял, чего мне сильно не хватает: чтобы в соседней панели показывалась содержимое каталогов, когда я по ним прохожу курсором в списке.
...
А может уже есть такой плагин?
Max Rusov wrote:Re: SameFolder+
Ver 1.0.1
...
+ Добавлена возможность установки в пассивной панели каталога, который
находится под курсором на активной панели. Доступна только через
CallPlugin(SameFolder, 1)

User avatar
SUSim
Posts: 1502
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 7 times

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

Post by SUSim » Sat 21 Aug, 2010 19:37

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

Это только ради того чтобы в активной панели выставилась полностью пассивную панель со всеми колонками-сортировками? или чтоб в меню дисков пункт был?
В противном случае лучше клавиши понажимать... раза 3...
Или я чегото недопонимаю?
P.S. поставьте задачу, и макрос я вам постараюсь сделать! (мне это интересно)
SimSU ··· ·· -- ··· ··-

Piton812
Posts: 28
Joined: Sat 02 Jun, 2018 23:04
Has thanked: 10 times
Been thanked: 1 time

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

Post by Piton812 » Fri 06 Jul, 2018 19:13

SUSim интересно было бы горячей клавише получать в пассивной панеле содержимое папки на которой находится курсор в активной панели, при этом если курсор находится на файле, чтобы в пассивной панели активировался быстрый просмотр

User avatar
SUSim
Posts: 1502
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 7 times

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

Post by SUSim » Wed 11 Jul, 2018 10:39

Piton812, я сейчас далеко от цивилизации... напомните , плиз 1 августа в личку или в моей теме Полезные макросы, обсудим...
SimSU ··· ·· -- ··· ··-

Shmuel
Posts: 5523
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 21 times
Been thanked: 179 times

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

Post by Shmuel » Wed 11 Jul, 2018 11:22

В простейшем варианте можно так (плагиновые папки не обрабатывает):

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 “Обсуждение макросов”