Latest post of the previous page:
Это вполне документированная функция. И авторам плагинов рекомендуется её использовать.Max Rusov wrote:Химичить с путями - не хочется. Есть решение с "\\?\" - и ладно.
Latest post of the previous page:
Это вполне документированная функция. И авторам плагинов рекомендуется её использовать.Max Rusov wrote:Химичить с путями - не хочется. Есть решение с "\\?\" - и ладно.
Code: Select all
macro:post F11 $While (!!Menu) F11 $End $If (Menu.Select("Visual Compare",2)<1) MsgBox("FAR","«Visual Compare» not found in the plugin menu") $Exit $End Enter $If (APanel.Left) print(APanel.Path) $Else print(PPanel.Path) $End Tab $If (PPanel.Left) print(APanel.Path) $Else print(PPanel.Path) $End Tab Tab Add Tab Add Tab Subtract Tab Add AltF
Code: Select all
$If (PPanel.Left)
CtrlAlt;
CtrlAltF
$Else
и убивает ком строку...fibre wrote:зато не нужно никаких условий в юзер меню, как в макросе от SimSU.
Code: Select all
F2 ShiftF2 R %comment="В пользовательском меню должна быть команда !??! с горячей клавишей R. Чтобы не портить командную строку и не засорять историю, если вам всеравно, то эту строку можно удалить.";
Code: Select all
%comment="Макрос визуального сравнения двух файлов. (с) SimSU";
%comment="Используется плагин VisualCompare Максима Русова.";
%comment="Назначается например на CtrlS в панелях.";
$IF (APanel.SelCount==2)
F2 ShiftF2 R %comment="В пользовательском меню должна быть команда !??! с горячей клавишей R. Чтобы не портить командную строку и не засорять историю, если вам всеравно, то эту строку можно удалить.";
CtrlY print("vc: !&") Enter
$ELSE
F2 ShiftF2 R %comment="В пользовательском меню должна быть команда !??! с горячей клавишей R. Чтобы не портить командную строку и не засорять историю, если вам всеравно, то эту строку можно удалить.";
CtrlY $IF (APanel.Left) print("vc: \"!/!.!\" \"!#!/!.!\"") $ELSE print("vc: \"!#!/!.!\" \"!/!.!\"") $END Enter
$END