tstr wrote:zg: после Вашего вопроса я практически уверен что никому ничего не мешает.
я подправил чуть-чуть, чтобы на современных gcc собиралось без шаманств.
продолжаем ждать бинарники под актуальное АПИ.
тут всё сложнее. я конечно могу в лоб портировать под апи3, но мне кажется это не очень хорошим решением, так как проблемы с длинными и нестандартными именами останутся. чтобы их решить, плагин надо «немножечко» переписать. пока на это нет времени.
Завёл ANSI версию.
Вот правленые макросы, может кому пригодится
С заменой стандартных F5, F6, F8 и Del
Macro {
area="Shell"; description="Background copy: Standard copy"; key="CtrlShiftF5"; action=function()
Keys("F5")
end
}
Macro {
area="Shell"; description="Background copy: Standard move"; key="CtrlShiftF6"; action=function()
Keys("F6")
end
}
Macro {
area="Shell"; description="Background copy: Standard delete"; key="CtrlShiftF8 CtrlShiftDel"; action=function()
Keys("F8")
end
}
Macro {
area="Shell"; description="Background copy: Info"; key="CtrlShiftF10"; action=function()
Keys("F11")
if Menu.Select("Background copy",2) or Menu.Select("Фоновое копирование",3) then
Keys("Enter z")
else
Keys("Esc")
msgbox("Warning","Background copy plugin is not installed!",1)
end
end
}
Macro {
area="Shell Search"; description="Background copy: Copy to same name"; key="ShiftF5"; action=function()
mf.clip(5)
Keys("CtrlShiftIns")
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 1")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("ShiftIns")
else
Keys("ShiftF5")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Copy"; key="F5"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 1")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("F5")
end
end
}
Macro {
area="Dialog.'Copy' Dialog.'Копирование'"; description="Background copy: Copy (overwrite)"; key="F5"; action=function()
Keys("Esc")
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 1")
else
Keys("Esc")
end
if Dlg.ItemType ~= 0 then
Keys("Down Space ShiftTab")
else
Keys("F5 Tab Tab CtrlDown Down Enter ShiftTab ShiftTab")
end
end
}
Macro {
area="Dialog.'Move' Dialog.'Rename/Move' Dialog.'Переименование/Перенос'"; description="Background copy: Move (overwrite)"; key="F6"; action=function()
Keys("Esc")
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 2")
else
Keys("Esc")
end
if Dlg.ItemType ~= 0 then
Keys("Down Space ShiftTab")
else
Keys("F6 Tab Tab CtrlDown Down Enter ShiftTab ShiftTab")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Move"; key="F6"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 2")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("F6")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Delete"; key="Del F8"; condition="CmdLine:0"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 3")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("F8")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Wipe"; key="AltDel"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 5")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("AltDel")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Attributes"; key="CtrlShiftQ"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 4")
else
Keys("Esc")
end
end
}
Macro {
area="Shell Editor Viewer"; description="Background copy: Info"; key="CtrlShiftI"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter Z")
else
Keys("Esc")
end
end
}
И с Ctrl+Shift
Macro {
area="Shell"; description="Background copy: Info"; key="CtrlShiftF10"; action=function()
Keys("F11")
if Menu.Select("Background copy",2) or Menu.Select("Фоновое копирование",3) then
Keys("Enter z")
else
Keys("Esc")
msgbox("Warning","Background copy plugin is not installed!",1)
end
end
}
Macro {
area="Shell Search"; description="Background copy: Copy to same name"; key="ShiftF5"; action=function()
mf.clip(5)
Keys("CtrlShiftIns")
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 1")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("ShiftIns")
else
Keys("ShiftF5")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Copy"; key="CtrlShiftF5"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 1")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("F5")
end
end
}
Macro {
area="Dialog.'Copy' Dialog.'Копирование'"; description="Background copy: Copy (overwrite)"; key="CtrlShiftF5"; action=function()
Keys("Esc")
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 1")
else
Keys("Esc")
end
if Dlg.ItemType ~= 0 then
Keys("Down Space ShiftTab")
else
Keys("F5 Tab Tab CtrlDown Down Enter ShiftTab ShiftTab")
end
end
}
Macro {
area="Dialog.'Move' Dialog.'Rename/Move' Dialog.'Переименование/Перенос'"; description="Background copy: Move (overwrite)"; key="CtrlShiftF6"; action=function()
Keys("Esc")
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 2")
else
Keys("Esc")
end
if Dlg.ItemType ~= 0 then
Keys("Down Space ShiftTab")
else
Keys("F6 Tab Tab CtrlDown Down Enter ShiftTab ShiftTab")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Move"; key="CtrlShiftF6"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 2")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("F6")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Delete"; key="CtrlShiftDel CtrlShiftF8"; condition="CmdLine:0"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 3")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("F8")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Wipe"; key="AltDel"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 5")
else
Keys("Esc")
end
if Dlg.ItemType == 0 then
Keys("AltDel")
end
end
}
Macro {
area="Shell Search"; description="Background copy: Attributes"; key="CtrlShiftQ"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter 4")
else
Keys("Esc")
end
end
}
Macro {
area="Shell Editor Viewer"; description="Background copy: Info"; key="CtrlShiftI"; action=function()
Keys("F11")
if Menu.Select("Background copy",3) or Menu.Select("Фоновое копирование",3) then
Keys("Enter Z")
else
Keys("Esc")
end
end
}