TabTools

Название TabTools
Имя файла (*.txt) TabTools.txt
Описание Выдает список всех вкладок на обеих панелях с названиями, путями и обозначением статуса. Содержит подменю операций со вкладками.
Автор Вахмурка
Параметры -
Вызываемые плагины win, ini, tc, childwin, miscplugin, file, vec
Иконка
Версия 5.4
Дата обновления 26.02.2011
Вызываемые модули ReadTabs, ParsePath, TMTC, CloseAllTabs
static hwnd = win.handle("c=TTOTAL_CMD")
global Config = "путь/wincmd.ini"
global TT = cl.Create("Tabs", 1)
;директория "TabTools" папки "scripts" создается пользователем.
;В эту директорию копируются файлы TabTools.txt, TT.icl и TabTools.ini
global TW = pprofolder ++ "scripts/TabTools/TabTools.ini"
static Icons = pprofolder ++ "scripts/TabTools/TT.icl"
static Quote = esc(?+\"+, ?+\+)
static OpQuote = esc(?+\d171+, ?+\+)
static ClQuote = esc(?+\d187+, ?+\+)
static CR = esc(?+\n+, ?+\+)
static Slash = esc(?+\\+, ?+\+)
static NoMess

local LTabs, RTabs, Temp, Number, Stat, Comm, FS, BS, MaxText, i

win.sendmessage(hwnd, 0x400+51, 580, 0)

if(ini.check_exists(TW, "Configuration", "NoMessage") == 3) do
	Temp = ini.get(TW, "Configuration", "NoMessage")
	NoMess = case("lower", Temp)
endif

if(ini.check_exists(TW, "FontColor", "Source") == 3)
	FS = ini.get(TW, "FontColor", "Source")

if(ini.check_exists(TW, "BackColor", "Source") == 3)
	BS = ini.get(TW, "BackColor", "Source")

Comm = ini.get(TW, "Configuration", "Labels")

;Sub_ReadTabs - имя скрипта ReadTabs 
LTabs = runfile.Subs\Sub_ReadTabs("left")
RTabs = runfile.Subs\Sub_ReadTabs("right")

if(max(Ltabs, RTabs) > ini.get(TW, "Configuration", "MaxTabs"))
	TT.AddProperties("Format=IconSize: 16")

Number = TT.Length
MaxText = ini.get(TW, "Configuration", "MaxText")

for(i = 0; i < Number; i++)
	Temp = TT.GetMiddleCmd(i)
	if(Temp == 1 && tc.active(hwnd) == "left" && TT.GetLeftOnTop(i)) do
		TT.SetTextColor(i, FS)
		TT.SetBackColor(i, BS)
	endif

	if(Temp == 2 && tc.active(hwnd) == "right" && TT.GetLeftOnTop(i)) do
		TT.SetTextColor(i, FS)
		TT.SetBackColor(i, BS)
	endif

	Stat = TT.GetLeftCmd(i)
	TT.ClearRight(i)
;TabTools - имя скрипта TabTools (рекурсивный вызов)	
	TT.AddRight(i, cb("TabTools/TabTools@CloseTab", Stat))
	TT.SetHeight(i, Stat)
	Stat = ifelse(Temp == 1, 5201 + Stat, 5301 + Stat)
	TT.ClearLeft(i)
	TT.AddLeft(i, "win.sendmessage(hwnd, 0x400+51, " ++ Stat ++ ", 0)")

	if(Comm == 0) do
		Temp = TT.GetToolTip(i)
	elseif(Comm == 1)
		Temp = TT.GetId(i)
	elseif(Comm == 2)
		Temp = TT.GetId(i)
		Stat = TT.GetToolTip(i)
		if(Stat)
			Stat = " = " ++ OpQuote ++ Stat ++ ClQuote

		Temp = Temp ++ Stat
	endif
	if(length(Temp) > MaxText)
		Temp = select(Temp, MaxText) ++ "..."

	TT.SetLabel(i, Temp)
	Temp = "Path: " ++ OpQuote ++ TT.GetId(i) ++ ClQuote
	if(TT.GetToolTip(i))
		Temp = Temp ++ "/Caption: " ++ OpQuote ++ TT.GetToolTip(i) ++ ClQuote

	TT.SetTooltip(i, Temp)
endfor

TT.Insert(LTabs)
TT.AddLeft(LTabs, "Format NewColumnLine")
TT.SetId(LTabs, "Vertical Separator")
TT.AddRight(LTabs, RTabs)
TT.AddMiddle(LTabs, LTabs)

if(not ini.get(TW, "Configuration", "IncludeCommands")) do
	*menu show Tabs
	quit all
endif

if(LTabs < RTabs) do
	Temp = LTabs
	Number = RTabs - LTabs
elseif(LTabs > RTabs)
	Temp = LTabs + RTabs + 1
	Number = LTabs - RTabs
elseif(LTabs == RTabs)
	Number = 0
endif

for(i = 0; i < Number; i++)
	TT.Insert(Temp + i)
	TT.SetIconVisible(Temp + i, 0)
	TT.SetEnabled(Temp + i, 0)
	TT.SetTooltip(Temp + i, "TabTools 5.3/(C) Vochomurka/2005-2009")
endfor

Temp = TT.GetIdIndex("Vertical Separator")
TT.Insert(Temp)
TT.AddLeft(Temp, "Format Separator")

Number = TT.Length
TT.Insert(Number)
TT.AddLeft(Number, "Format Separator")

Comm = 6

Temp++
TT.Insert(Temp)
TT.AddLeft(Temp, "Format EndSubMenu")

TT.Insert(Temp)
TT.AddLeft(Temp, "Format StartSubMenu")
TT.SetLabel(Temp, "Left Panel Tabs")

Number = TT.Length
TT.Insert(Number)
TT.AddLeft(Number, "Format EndSubMenu")

TT.Insert(Number)
TT.AddLeft(Number, "Format StartSubMenu")
TT.SetLabel(Number, "Right Panel Tabs")

for(i = 1; i <= 2; i++)
	Stat = i*(Temp + i) + (i - 1)*Comm

	TT.Insert(Stat)
;TabTools - имя скрипта TabTools (рекурсивный вызов)
	TT.AddLeft(Stat, cb("TabTools/TabTools@PathVal", i, 1))
	TT.AddRight(Stat, cb("TabTools/TabTools@PathVal", i, 0))
	TT.SetLabel(Stat, "Check Path &Validity")
	TT.SetIcon(Stat, Icons, 3)
	TT.SetTooltip(Stat, "Left - Check & ask to close/Right - Close silently")

	TT.Insert(Stat)
	TT.AddLeft(Stat, cb("TabTools/TabTools@CloseDups", i))
	TT.SetLabel(Stat, "Close Opposite &Dups")
	TT.SetIcon(Stat, Icons, 4)
	TT.SetTooltip(Stat, "Close duplicate tabs in opposite panel")

	TT.Insert(Stat)
	TT.AddLeft(Stat, cb("TabTools/TabTools@Alias", i))
	TT.SetLabel(Stat, "&Alias")
	TT.SetIcon(Stat, Icons, 5)
	FS = "Change tab captions according to settings in TabTools.ini, sections [Caption] & [Alias]"
	TT.SetTooltip(Stat, FS)

	TT.Insert(Stat)
	TT.AddLeft(Stat, cb("TabTools/TabTools@Highlight", i, 1))
	TT.AddRight(Stat, cb("TabTools/TabTools@Highlight", i, 0))
	TT.SetLabel(Stat, "&Highlight Tab(s)")
	TT.SetIcon(Stat, Icons, 6)
	TT.SetTooltip(Stat, "Left - highlight tab(s)/Right - clear highlighting")

	TT.Insert(Stat)
	TT.AddLeft(Stat, cb("TabTools/TabTools@CloseAllTabs", i))
	TT.SetLabel(Stat, "&Close All Tabs")
	TT.SetIcon(Stat, Icons, 7)
	TT.SetTooltip(Stat, "Close all tabs, independent of lock status")

	TT.Insert(Stat)
	TT.AddLeft(Stat, cb("TabTools/TabTools@MultiFind", i))
	TT.SetLabel(Stat, "&Find in All Tabs")
	TT.SetIcon(Stat, Icons, 8)
	TT.SetTooltip(Stat, "Open 'Find File' dialog box with 'Search in' field filled with paths of all tabs")
endfor

if(ini.get(TW, "Configuration", "SmallIcons")) do
	TT.AddProperties("Format=IconSize: 16")
 else
	TT.AddProperties("Format=IconSize: 32")
endif

TT.AddProperties("Format=tooltips")

if(ini.check_exists(TW, "Configuration", "AnyProps") == 3)
	TT.AddProperties(ini.get(TW, "Configuration", "AnyProps"))

TT.showmenu()
quit all
//******************************************************************
Function Alias(Panel)

;Sub_TMTC - имя скрипта TMTC
local Temp = runfile.Subs\Sub_TMTC(hwnd, Panel)
if(not Temp) do
	messagebox("ok stop", "No tabs to rename", "TabTools script")
	quit all
endif

local i, j, Comm, Hand, Str, Caption
local Delim = ", "
static RH = "RightHistory"
static LH = "LeftHistory"
static C = "Caption"
static DM = "DirMenu"
static SI = "SearchIn"
static PD = "ParentDir"
flag clear 1 6

if(ini.check_exists(TW, C, "Alias") == 3) do
	if(ini.get(TW, C, "Alias"))
		flag set 1
endif

if(ini.check_exists(TW, C, SI) == 3) do
	if(ini.get(TW, C, SI))
		flag set 2
endif

if(ini.check_exists(TW, C, DM) == 3) do
	if(ini.get(TW, C, DM))
		flag set 3
endif

if(ini.check_exists(TW, C, PD) == 3)
	flag set 4

if(ini.check_exists(TW, C, LH) == 3)
	flag set 5

if(ini.check_exists(TW, C, RH) == 3)
	flag set 6

if(ini.check_exists(TW, C, "Delimiter") == 3)
	Delim = ini.get(TW, C, "Delimiter") ++ " "

if(not pproflag(1) && not pproflag(2) && not pproflag(3) && not pproflag(4) && not pproflag(5) && not pproflag(6)) do
	messagebox("ok warning", "No alias source specified", "TabTools script")
	quit all
endif

for(i = 0; i < TT.Length; i++)
	Temp = TT.GetMiddleCmd(i)
	if(Temp == Panel) do
		Temp = TT.GetId(i)
		Caption = Temp

		if(pproflag(4))
			Comm = ini.get(TW, C, PD)

;Sub_ParsePath - имя скрипта ParsePath 
		if(pproflag(4) && miscplugin.is_int(Comm) && Comm > 0)
			Caption = runfile.Subs\Sub_ParsePath(Temp, Comm)

		if(pproflag(1) && ini.check_exists(TW, "Alias", Temp) == 3)
			Caption = ini.get(TW, "Alias", Temp)

		if(pproflag(2)) do
			Comm = ini.enum_keys(Config, SI)
			Hand = line(Comm, 0)
			for(j = 0; j < Hand; j++)
				Str = line(Comm, j)
				Str = ini.get(Config, SI, j)
				if(Str ++ Slash == Temp) do
					Caption = Caption ++ Delim ++ ini.get(TW, C, SI)
					break
				endif
			endfor
		endif

		if(pproflag(3)) do
			for(j = 1; j < 200; j++)
				Str = "menu" ++ j
				if(ini.check_exists(Config, DM, Str) != 3)
					break

				Str = "cmd" ++ j
				if(ini.check_exists(Config, DM, Str) == 3) do
					Hand = ini.get(Config, DM, Str)
					if(index(Hand, "cd ") == 1) do
						Hand = remove(Hand, 3)
						if(Hand ++ Slash == Temp) do
							Temp = ini.get(TW, C, DM)
							Caption = Caption ++ Delim ++ Temp
						endif
					endif
				endif
			endfor
		endif

		if(pproflag(5)) do
			Comm = ini.enum_keys(Config, LH)
			Hand = line(Comm, 0)
			for(j = 0; j < Hand; j++)
				if(ini.get(Config, LH, j) == Temp) do
					Caption = Caption ++ Delim ++ ini.get(TW, C, LH)
					break
				endif
			endfor
		endif

		if(pproflag(6)) do
			Comm = ini.enum_keys(Config, RH)
			Hand = line(Comm, 0)
			for(j = 0; j < Hand; j++)
				if(ini.get(Config, RH, j) == Temp) do
					Caption = Caption ++ Delim ++ ini.get(TW, C, RH)
					break
				endif
			endfor
		endif
		TT.RunLeft(i)
		win.postmessage(hwnd, 0x400+51, 3009, 0)
		*keys {down 2}{enter}
		wait.for(activewindow("c=TCheckEditBox"))
		Hand = win.getfocus()
		win.settext(Hand, Caption)
		*keys {enter}
	endif
endfor

if(not index(NoMess, "a"))
	messagebox("ok information", "Aliasing complete", "TabTools script")

quit	//'Alias' function
//******************************************************************
Function CloseAllTabs(Panel)
local Cur = ifelse(tc.active(hwnd) == "left", 4001, 4002)
local Focus = 4000 + Panel
win.sendmessage(hwnd, 0x400+51, Focus, 0)
;CloseAllTabs - имя скрипта CloseAllTabs 
runfile.CloseAllTabs
quit						//'CloseAllTabs' function
//******************************************************************
Function CloseDups(Panel)
local i, j, k, Side, Path, Temp, Opp, Comm, Number

local Counter = 0
local Mess
local Cap = "Duplicating tabs in " ++ ifelse(Panel == 2, "left", "right") ++ " panel: "

@Start

flag clear 1
Temp = TT.GetIdIndex("Vertical Separator")
Opp = ifelse(Panel == 1, TT.GetRightCmd(Temp, 1), TT.GetMiddleCmd(Temp, 1))
				
if(Opp == 1) do
	messagebox("ok stop", "There is only one tab", "Bad user command")
	quit all
endif

Number = TT.Length

for(i = 0; i < Number; i++)
	Side = TT.GetMiddleCmd(i)
	if(Panel == Side) do
		Path = TT.GetId(i)
		for(j = 0; j < Number; j++)
			Side = 	TT.GetMiddleCmd(j)
			if(Panel != Side && Side != "") do
				Temp = TT.GetId(j)
				if(Path == Temp) do
					Counter++
					if(Counter != 1)
						Mess = Mess ++ CR ++ CR

					Mess = Mess ++ "Tab #" ++ Counter ++ ":"
					Mess = Mess ++ CR ++ "Path: '" ++ Temp ++ "'"
;TabTools - имя скрипта TabTools (рекурсивный вызов)
					Mess = Mess ++ .TabTools\TabTools@CloseTab(TT.GetMiddleCmd(j), j)
					flag set 1
					break
				endif
			endif
		endfor
		if(pproflag(1))
			break

	endif
endfor

if(pproflag(1))
	jump Start

Cap = Cap ++ Counter

if(index(NoMess, "c"))
	quit

if(Mess) do
	messagebox("ok warning", Mess, Cap)
else
	messagebox("ok information", "No duplicates found", Cap)
endif

quit						//'CloseDups' function
//******************************************************************
Function Highlight(Panel, Action)

;Sub_TMTC - имя скрипта TMTC 
local TMTC = runfile.Subs\Sub_TMTC(hwnd, Panel)
if(not TMTC) do
	messagebox("ok stop", "No tabs to highlight", "TabTools script")
	quit all
endif

local i, List, Label, Side
local Number = TT.Length
local NewLine = esc(?+\r+, ?+\+)

for(i = 0; i < Number; i++)
	if(TT.GetMiddleCmd(i) == Panel) do
		Label = TT.GetLabel(i)
		List = List ++ Label ++ NewLine
	endif
endfor

NewLine = "Pick tab(s) to " ++ ifelse(Action, "highlight", "clear highlighting")
pickstring(List, NewLine, 3)
Side = word(_pickedline_, 0)

for(i = 1; i <= Side; i++)
	Number = word(_pickedline_, i)
	win.sendmessage(TMTC, 4915, Number - 1, Action)
endfor

quit						//'HighLight' function
//******************************************************************
Function MultiFind(Num)

local i, Target, Str, Panel

for(i = 0; i < TT.Length; i++)
	Target = TT.GetId(i)
	Panel = TT.GetMiddleCmd(i)
	if(validpath(Target) && Num == Panel)
		Str = Str ++ Target ++ ";"
endfor

Str = remove(Str, -1)
win.postmessage(hwnd, 0x400+51, 501, 0)
wait.for(activewindow("c=TFindFile"))
Panel = win.handle("c=TFindFile")
Target = childwin.handle(Panel, 22)
win.settext(Target, Str)

quit						//'MultiFind' function
//******************************************************************
Function PathVal(Panel, Ask)

;Sub_TMTC - имя скрипта TMTC
local Number = runfile.Subs\Sub_TMTC(hwnd, Panel)
if(not Number) do
	messagebox("ok stop", "No tabs to check", "TabTools script")
	quit all
endif

Number = TT.Length
local i, j, Side, Path, Beg, Mess, Counter, Section, Status
local Cap = "Invalid tabs in "
local Comm = "/Caption: "

if(Panel == 1) do
	Section = "lefttabs"
	Cap = Cap ++ "left"
else
	Section = "righttabs"
	Cap = Cap ++ "right"
endif

Cap = Cap ++ " panel"
local Active = ini.get(Config, Section, "activetab")
local Temp = (Number - 1)*3

flag clear 2 3

if(ini.check_exists(TW, "ValidPaths", "Archives") == 3 && ini.get(TW, "ValidPaths", "Archives"))
	flag set 2

if(ini.check_exists(TW, "ValidPaths") == 2)
	flag set 3

v = vec.create(Temp)
if(v <= 0) do
	messagebox("ok error", "Vector not created", "VEC plugin error")
	quit
endif

for(i = 0; i < Number; i++)
	flag clear 1
	Side = TT.GetMiddleCmd(i)
	Status = TT.GetIconNumber(i)
	if(Panel == Side) do
		Path = TT.GetId(i)

		if(not validpath(Path)) do
			if(pproflag(3)) do
				Temp = ini.enum_keys(TW, "ValidPaths")
				Side = line(Temp, 0)
				for(j = 1; j <= Side; j++)
					Beg = line(Temp, j)
					if(index(Path, Beg) == 1) do
						flag set 1
						break
					endif
				endfor
			endif

			if(pproflag(2)) do
				Temp = remove(Path, -1)
				if(not file.isfolder(Temp) && length(Temp) > 2)
					flag set 1

			endif

			if(pproflag(1))
				jump NextPath



			Temp = TT.GetHeight(i)
			if(Mess)
				Mess = Mess ++ CR ++ CR

			Mess = Mess ++ "Invalid path is '" ++ Path ++ "'" ++ CR ++ "Tab #" ++ Temp
			if(Active > Temp)
				Active--

			Side = ""
			if(Status == 1 || Status == 4)
				Side = Side ++ "locked "
			if(Status == 2 || Status == 5)
				Side = Side ++ "locked, but directory changes allowed "
			if(Side != "")
				Mess = Mess ++ CR ++ "Status: " ++ Side

		else
@NextPath
			v[Counter*3] = Path
			v[Counter*3 + 1] = TT.GetToolTip(i)
			Side = TT.GetHeight(i)
			if(Side > Active)
				Side--

			Temp = ini.get(Config, Section, Side ++ "_options")
			v[Counter*3 + 2] = Temp
			Counter++
		endif
	endif
endfor

if(not Mess) do
	if(not index(NoMess, "p"))
		messagebox("ok information", "All paths are valid", "TabTools script")

	vec.destroy(v)
	vec.unload
	quit all
endif

if(Ask) do
	Mess = Mess ++ CR ++ CR ++ "Close invalid tabs?"
	if(messagebox("yesno question", Mess, Cap) == 7) do
		vec.destroy(v)
		vec.unload
		quit all
	endif
endif

Cap = "2.tab"
Path = ini.get(Config, "Configuration", "TabDir") ++ Cap
Beg = file.open(Path, "w")
if(Beg <= 0) do
	messagebox("ok error", "File not opened", "FILE plugin error")
	quit
endif
file.writeline(Beg, "[activetabs]")

for(i = 0; i < Counter; i++)
	file.writeline(Beg, i ++ "_path=" ++ v[i*3])
	Temp = v[i*3 + 1]
	if(index(Temp, Comm)) do
		Status = index(Temp, Comm)
		Section = slice(Temp, Status + 10, length(Temp) - 2)
		file.writeline(Beg, i ++ "_caption=" ++ Section)
	endif

	file.writeline(Beg, i ++ "_options=" ++ v[i*3 + 2])
endfor

vec.destroy(v)
vec.unload

file.writeline(Beg, "activetab=" ++ Active)

file.close(Beg)
win.sendmessage(hwnd, 0x400+51, 4000 + Panel, 0)
win.postmessage(hwnd, 0x400+51, 3009, 0)
*keys {slow}{up 4}{enter}
wait.for(1500, activewindow("c=#32770"))

Side = win.handle("c=#32770")

for(not win.childhandlelist(Side, "c=Edit"))
endfor

local List = win.childhandlelist(Side, "c=Edit")
local Edit = word(List, 1)

if(not Edit || word(List, 0) > 1) do
	messagebox("ok error", "No Edit Class Window")
	quit
endif

wait.for(100)
win.settext(Edit, Path)
wait.for(100)

for(childwin.gettext(Edit) != Path)
endfor

*keys ^{enter}
quit						//'PathVal' function
//******************************************************************
Function CloseTab(Number, Item)
flag clear 1

if(not miscplugin.is_int(Item)) do
	flag set 1
	Item = cl.GetLastMenuSel()
endif

local Mess, k
local Temp = TT.GetIconNumber(Item)
local Panel = TT.GetMiddleCmd(Item)
TT.RunLeft(Item)

if(Temp == 1) do
	win.sendmessage(hwnd, 0x400+51, 3010, 0)
	Mess = CR ++ "Status: locked"
elseif(Temp == 2) do
	win.sendmessage(hwnd, 0x400+51, 3012, 0)
	Mess = CR ++ "Status: locked, but directory changes allowed"
endif

win.sendmessage(hwnd, 0x400+51, 3007, 0)

TT.Remove(Item)
local Result = TT.GetIdIndex("Vertical Separator")
local Right = TT.GetRightCmd(Result, 1)
local Left = TT.GetMiddleCmd(Result, 1)

if(Panel == 2) do
	TT.ClearRight(Result)
	Right--
	TT.AddRight(Result, Right)
else
	TT.ClearMiddle(Result)
	Left--
	TT.AddMiddle(Result, Left)
endif

local What = TT.GetLabelIndex("Left Panel Tabs")

if(What) do
	Result = TT.GetLabelIndex("Right Panel Tabs")
	if(Right > Left) do
		if(Panel == 1) do
			TT.Insert(What - 1)
			TT.SetIconVisible(What - 1, 0)
		else
			TT.Remove(What - 2)
		endif
	elseif(Left > Right) do
		if(Panel == 1) do
			TT.Remove(Result - 2)
		else
			TT.Insert(Result - 1)
			TT.SetIconVisible(Result - 1, 0)
		endif
	elseif(Left == Right) do
		if(Panel == 1) do
			TT.Remove(Result - 2)
		else
			TT.Remove(What - 2)
		endif
	endif
endif

for(k = Item; k < TT.Length(); k++)
	What = TT.GetLeftCmd(k, 1)
	Code = select(What, 33, 36)
	if(miscplugin.is_int(Code)) do
		Temp = ifelse(Code < 5300, 1, 2)
		if(Panel == Temp && k >= Number) do
			What = TT.GetHeight(k)
			TT.ClearRight(k)
;TabTools - имя скрипта TabTools (рекурсивный вызов)
			TT.AddRight(k, cb("TabTools/TabTools@CloseTab", What))
			What--
			TT.SetHeight(k, What)
			Code--
			What = "win.sendmessage(hwnd, 0x400+51, " ++ Code ++ ", 0)"
			TT.ClearLeft(k)
			TT.AddLeft(k, What)
		endif
	endif
endfor

if(pproflag(1))
	TT.showmenu()

quit(Mess)

Комментарии:

Версия данного скрипта для Total Commander 7.0 и старше.

С тех пор как в шестой версии Total Commander появились вкладки, я понял, что не зря в стародавние времена избрал для управления своими файлами именно Total Commander! До появления вкладок мне приходилось открывать по две-три копии Total Commander и занудно перетаскивать файлы из одной в другую. Вкладки позволили сделать работу не только быстрой и удобной, но и приятной.

Время шло (к хорошему быстро привыкаешь), и я в который раз осознал истину "Нет в мире совершенства". Сколь бы удобным и приятным ни было любое нововведение, мы привыкаем к нему и начинаем ныть: то не так, это не эдак, пятого не хватает, десятого не предусмотрели...

Обычно приходится мириться и ждать, когда же производители додумаются до столь очевидных вещей и снабдят свой продукт столь необходимыми мне свойствами. К счастью, иногда пустого ожидания удается избежать. Речь я веду, разумеется, о "сладкой парочке": Total Commander + PowerPro. Если в первом мне чего-то не хватает, я беру второе и дополняю первое столь нужными мне функциями.

Когда мне приходится одновременно работать над тремя-четырьмя разными проектами, на каждой панели оказывается открытыми по 10-15 вкладок. И тогда удобство постепенно превращается в свою противоположность.

- У меня была открыта директория Plugins, я это точно помню! Вот передо мной четыре вкладки с именем Plugins. Пока я буду наводить крысу на каждую и читать путь, мне проще открыть новую вкладку и тупым путешествием по дереву найти нужную директорию...

- Теперь у меня на обеих панелях восемь вкладок с именем Plugins, из которых уникальны только три, остальные их дублируют. Когда же они перестанут плодиться как кролики?!

- А вот это слово "Temp" - это имя директории или название вкладки, которое я ей присвоил?

- Звездочку я вижу, вкладка заперта. Но если я на ней щелкну крысой, она откроет новую и если да, то где - рядом с этой или в конце?

- Я вставил сидюк, открыл вкладку, чтбы его прочесть. Потом вынул сидюк, но вкладка осталась. Закрыв соседнюю, я тупо жду, пока Total Commander обратится к сидюку, долго будет пытаться его раскрутить, поймет, что раскручивать-то и нечего, захрипит и скажет мне о том, что я и так знаю - что сидюка-то и нетути! Нельзя ли сразу выяснить, какие вкладки содержат несуществующие пути?

Короче, однажды я решил, что хватит ждать выхода очередной версии. Не имеет никакого смысла плакаться на форумах в теме с жалостливым названием "Чего мне не хватает в Total Commander". Если я голоден, я не буду сидеть и ждать, пока меня накормят - так и с голоду можно окочуриться. Я просто пойду и поем.

Результатом этих банальных размышлений стал скрипт, высокопарно названный мною "TabTools", или "Чего мне не хватает в работе со вкладками". Мне, по большому счету, не хватает многого, но прежде всего я снабдил свое детище самыми необходимыми свойствами. Итак, текущая версия скрипта:

Для дальнейших пояснений будет полезно взглянуть на скриншот:

Специально для скрипта создан набор иконок ТТ.icl. Положите его в поддиректорию "TabTools" директории "PowerPro\scripts". Если иконки не видны, попробуйте библиотеку TabTools64.icl (для Windows Se7en 64 бит и, возможно, других 64-битных систем).

Для настройки скрипта используется ini-файл со следующими ключами:

[Configuration]
SmallIcons=0
;(0|1)=(нет|да) иконки всегда имеют размер 16х16

IncludeCommands=1
;(0|1)=(нет|да) включать подменю команд

Labels=2
;(0|1|2) Надписи: 0 - только название, 1 - только путь, 2 - оба

MaxTabs=20
;число вкладок, при превышении которого происходит переключение на мелкий шрифт и иконки 16х16

MaxText=50
;если текст на вкладке длиннее указанного числа символов, от усекается и заменяется многоточием

NoMessage=pca
;не выводить сообщений функций: "p" (PathVal), "c" (CloseDups), "a" (Alias)
;На первых порах рекомендуется сделать значение ключа пустым и добавлять буквы, если
;сообщения покажутся надоедливыми

AnyProps=
;Сюда пользователь может вписать любую строку, по синтаксису подходящую в качестве свойств меню PowerPro.
;За подробностями обращайтесь к руководству по PowerPro.
;Например, строка AnyProps=Backbmp=* установит обои рабочего стола в качестве фона меню

Подменю функций содержит некоторые операции со вкладками, которые мне приходится использовать. Подведя курсор к команде, можно увидеть ее краткое описание. Чуть более подробные пояснения к каждой функции приводятся ниже.

Сам скрипт (TabTools.txt), его иконостас (TT.icl), и файл конфигурации (TabTools.ini) копируются в поддиректорию "TabTools" директории "scripts". Если программа PowerPro установлена в c:\Program Files\PowerPro, то путь этих трех файлов имеет вид c:\Program Files\PowerPro\scripts\TabTools\.


PathVal ("Check Path Validity")

Допустим, мы вставили сидюк и открыли соответствующую вкладку. После извлечения сидюка вкладка остается, хотя указывает на уже несуществующий путь. При переходе к ней она пытается найти сидюк, мотор рычит, вылезают сообщения об ошибке...

Команда "Check Path Validity" находит подобные вкладки и, если для выполнения команды использовалась левая кнопка мыши, запрашивает у пользователя разрешение на закрытие вкладок. Щелкнув по команде правой кнопкой, мы закроем вкладки тихо, без лишних вопросов.

Раздел [ValidPaths] с двумя ключами "оправдывает" системные папки типа Control Panel и подпапки сетевого окружения, а заодно FS-плагины. Вообще говоря, в раздел [ValidPaths] можно добавить любые пути, но смысла в этом я не вижу.

А вот в чем явно есть смысл - задать, что пути внутри архивов должны считаться действительными. Если вы в этом заинтересованы, задайте Archives=1.


CloseDups ("Close Duplicates in Opposite Panel")

В Total Commander v6.50 появилась замечательная команда "Close duplicate tabs", но она относится только к вкладкам на текущей панели. Команда "Close Opposite Dups" позволяет закрыть вкладки на противоположной панели, дублирующие вкладки на текущей.


Highlight ("Highlight Tabs")

Скрипт HighlightCurrentTab закрашивает всего одну вкладку (или снимает закраску, но опять же с одной вкладки). Команда "Highlight Tabs" позволяет проделать это с несколькими вкладками одновременно. Левая кнопка мыши вызывает закраску, правая - ее отмену.


Alias ("Alias")

Команда "Alias" требует чуть больше пояснений. Выдавать ее следует в случае, когда не только открыто слишком много вкладок, но, кроме того, они имеют одинаковые имена, хотя указывают на разные директории. Речь идет о таких "популярных" именах директорий, как Doc, Help, Plugins, Language, Templates, и подобных. А уж при работе с различными пользовательскими профилями от этих одноименных вкладок просто в глазах рябит.

[Caption]
Alias=1
ParentDir=2
SearchIn=<s>
DirMenu=<d>
LeftHistory=<lh>
RightHistory=<rh>
Delimiter=

[Alias]
c:\user\Batches\=Батнички
d:\Documents and Settings\Administrator\Start Menu\Programs\Startup\=Типа такой длинный запуск

Раздел [Caption] содержит ключи, каждый из которых задает режим переименования. Чтобы выключить режим, задайте ключ равным "" или просто закомментируйте ключ.

Любое значение ключа Alias, отличное от "", включает режим псевдонимов.

Ключ ParentDir задает глубину вложенности директорий, отображаемых в качестве заголовка вкладки. Задавать это значение разумнее всего равным 2 - тогда, помимо имени текущей директории, что принято по умолчанию (поэтому задавать 1 бессмысленно), в название будет включено и имя родительской.

Ключ SearchIn определяет строку на вкладке той директории, которая включена в "историю поиска", то есть в которой недавно проводился поиск. Аналогично, ключ DirMenu относится к тем директориям, которые включены в Directory hotlist.

То же относится к ключам LeftHistory и RightHistory, то они соответствуют директориям, недавно открытым в левой и правой панелях. Чтобы увидеть их, нажмите Alt+Down или кнопочку с треугольником справа от заголовка панели.

Все описанные режимы независимы.

Ключ Delimiter определяет символ(ы), отделяющие одно имя вкладки от другого. Если ключ пуст (как в примере), то разделитель получит значение "запятая+пробел". Кстати, пробел будет добавлен после любого заданного пользователем разделителя.

Наконец, раздел [Alias] может содержать произвольное число ключей типа

директория\=псевдоним

Обратите внимание на "\" в конце ключа.

Вкладка, указывающая на директорию, получит соответствующий псевдоним, разумеется, если включен режим псевдонимов.


CloseAllTabs ("Close All Tabs")

Команда закрывает все вкладки, вне зависимости от того, заперты ли они, и если заперты, то как именно.


MultiFind ("Find in All Tabs")

Открывает окно поиска с полем "Search in", заполненным всеми путями вкладок. Подробности в описании скрипта MultiFind.


На главную Все о Total Commander PowerPro Все скрипты