Latest post of the previous page:
макросCode: Select all
$If (APanel.Folder) panel.SetPath(1, APanel.Path+"\\"+Apanel.Current) $End
Latest post of the previous page:
макросCode: Select all
$If (APanel.Folder) panel.SetPath(1, APanel.Path+"\\"+Apanel.Current) $End
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
zen wrote:Понял, чего мне сильно не хватает: чтобы в соседней панели показывалась содержимое каталогов, когда я по ним прохожу курсором в списке.
...
А может уже есть такой плагин?
Max Rusov wrote:Re: SameFolder+
Ver 1.0.1
...
+ Добавлена возможность установки в пассивной панели каталога, который
находится под курсором на активной панели. Доступна только через
CallPlugin(SameFolder, 1)
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;
}