Вроде все плагины нужные стоят. А не работает Ж(
TC 7.02a
WinXP SP2
PowerPro 4.7.07
Установленные плагины для PPro
Код: Выделить всё
au.dll
AutoItDLL.dll
childwin.dll
class.dll
clip.dll
date.dll
event.dll
file.dll
float.dll
float2.dll
ini.dll
int64.dll
map.dll
math.dll
menu.dll
miscplugin.dll
mousegesture.dll
note.dll
pcre.dll
pcreposix.dll
regex.dll
sample.dll
tc.dll
vec.dll
volume.dll
win.dllОписание Выделяет текущую вкладку цветом или снимает выделение
Параметры "1" - выделить текущую вкладку
"0" - убрать выделение
Код: Выделить всё
local hwnd = win.handle("c=TTOTAL_CMD")
local Panel = ifelse(tc.active(hwnd) == "left", 2, 3)
local TMP = childwin.handle(hwnd, "TMyPanel", Panel)
local TMTC = childwin.handle(TMP, "TMyTabControl")
local CurTab = win.sendmessage(TMTC, 4875, 0, 0)
win.sendmessage(TMTC, 4915, CurTab, arg(1))TabTools
Выдает список всех вкладок на обеих панелях с названиями, путями и обозначением статуса. Содержит подменю операций со вкладками.
Код: Выделить всё
TabTools.powerpro
TabTools.ini
TabTools.iclКод: Выделить всё
Sub_TreatCL.powerpro
Sub_ReadTabs.powerpro
Sub_PathVal.powerpro
Sub_MultiFind.powerpro
Sub_HighLight.powerpro
Sub_CloseDups.powerpro
Sub_CloseAllTabs.powerpro
Sub_Alias.powerproТакая же ошибка вылетает при запуске Sub_ReadTabs.powerpro
Код: Выделить всё
if(ini.check_exists(Config, Single, "path") != 3) do
Temp = "Key 'path' does not exist in section '" ++ Single ++ "'"
messagebox("ok error", Temp, "INI plugin error #1")
quit all
endifF2 и localBar от Gregory
Открывает локальное меню, если оно есть, в противном случае повторно считывает путь. Желательно повесить скрипт на клавишу F2. Скрипт для тех, кто ностальгирует по Нортону
Вызываемые модули Утилиты TCMenu или TCToolbar (установлены обе и работают)
F2
Код: Выделить всё
local hwnd = win.handle("c=TTOTAL_CMD")
local Panel = ifelse(tc.active(hwnd) == "left", 2, 3)
local TMP = childwin.handle(hwnd,"TMyPanel", Panel)
local TMTC = childwin.handle(TMP,"TMyTabControl")
local Path = childwin.gettext(ifelse(TMTC, TMTC, TMP), "TMyPanel", 2)
Path = file.folder(Path)
for (length(Path) > 1)
Panel = Path ++ "\_local.bar"
if (validpath(Panel)) do
do("c:\totalcmd\programs\TCmenu.exe", Panel)
quit
else
Path = file.folder(Path)
endif
endfor
win.sendmessage(hwnd, 0x400+51, 540, 0)Код: Выделить всё
local path barpath hh
;получим дескриптор окна TC
hh=win.handle("c=TTOTAL_CMD")
;сохраним буфер обмена в переменную
local tmp=clip.get
;скопируем в буфер активную директорию
win.sendmessage(hwnd,0x400+51,2029,0)
;получим активную директорию
path=clip.get
;если в ней или в родительских находится файл _local.bar
;запускаем его с помощью TCMenu
for (length(path)>1)
barpath=path++"\_local.bar"
if (validpath(barpath)) do
barpath="'""++barpath ++"'" -$"
do("c:\totalcmd\programs\TCmenu.exe",barpath)
break
else
path=file.folder(path)
endif
endfor
;восстановим буфер обмена
clip.set(tmp)Ни один из двух скриптов не работает. При запуске бар не выскакивает.
С панели ТС и через командную строку работает…..
