DetectColorFilter

Название DetectColorFilter
Имя файла (*.txt) DetectColorFilter.txt
Описание Определяет, какие цветовые фильтры используются для текущего файла/директории
Автор Вахмурка
Параметры ("%P", "%N")
Вызываемые плагины win, childwin, ini, tc, osd, vec, clip, file
Иконка
Версия 2.0
Дата обновления 08.06.2009
args Path, Obj
local hwnd = win.handle("c=TTOTAL_CMD")
local Config = "путь\wincmd.ini"
local ColorKeys = ini.enum_keys(Config, "Colors")
local Counter = line(ColorKeys, 0)
local Panel = ifelse(tc.active(hwnd) == "left", 8, 7)
local TMLB = childwin.handle(hwnd, "TMyListBox", Panel)
local i, j, OneKey, Str

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

for(i = 1; i <= Counter; i++)
	OneKey = line(ColorKeys, i)
	if(index(OneKey, "ColorFilter") != 0 && revindex(OneKey, "Color") == 1) do
		OneKey = ini.get(Config, "Colors", OneKey)
		vec.insert(v, vec.length(v), OneKey)
	endif
endfor

Counter = vec.length(v)
if(not Counter) do
	Str = "No color filter is specified in configuration"
	messagebox("ok warning", Str, "DetectColorFilter Script")
	vec.destroy(v)
	quit
endif

w = vec.create(0, 1)
if(not w) do
	messagebox("ok error", "Vector not created", "VEC plugin error #2")
	quit
endif 

win.sendmessage(hwnd, 0x400+51, 524, 0)
ColorKeys = clip.get

if(file.isfolder(Path ++ Obj)) do
	Obj ++= "\"
	flag set 1
else
	flag clear 1
endif

for(i = 0; i < Counter; i++)
	osd.show(i + 1 ++ " / " ++ Counter, "INFINITE", "30", "Arial", "-1", "255 000 000") 
	for(win.class(win.getfocus()) != "TMyListBox")
	endfor
	win.postmessage(hwnd, 0x400+51, 521, 0)
	for(win.class(win.getfocus()) == "TMyListBox")
	endfor
	OneKey = win.getfocus()
	for(win.class(OneKey) != "Edit")
		OneKey = win.getfocus()
	endfor
	win.settext(OneKey, v[i])
	keys {enter}
	for(win.class(OneKey) == "Edit")
		OneKey = win.getfocus()
	endfor
	OneKey = win.getfocus()
	win.sendmessage(OneKey, 245, 0, 0)
	for(win.class(win.getfocus()) == "Button")
		win.sendmessage(win.getfocus(), 245, 0, 0)
	endfor
	OneKey = win.sendmessage(TMLB, 0x0190, 0, 0)
	if(OneKey) do
		clip.clear
		win.postmessage(hwnd, 0x400+51, 2017, 0)
		wait.for(clip.get)
		Str = clip.get
		for(j = 1; j <= OneKey; j++)
			if(line(Str, j) == Obj) do
				Panel = ini.get(Config, "Colors", "ColorFilter" ++ i + 1)
				vec.insert(w, 0, Panel)
			endif
		endfor
		win.postmessage(hwnd, 0x400+51, 524, 0)
	endif
endfor

osd.hide()
clip.set(ColorKeys)

Panel = vec.length(w)
if(not Panel) do
	Str = "Are you really sure the file/directory " ++ Obj ++ " is colored?"
	messagebox("ok warning", Str, "No appropriate color filter found")
	vec.destroy(v)
	vec.destroy(w)
	quit
endif

OneKey = Panel ++ " color filters found for "
OneKey = OneKey ++ ifelse(pproflag(1), "directory ", "file ") ++ Obj
Str = ""

for(i = Panel - 1; i >= 0; i--)
	for(j = 1; j <= Counter; j++)
		if(v[j - 1] == w[i]) do
			Str = Str ++ "Color filter #" ++ j ++ ": "
			Str = Str ++ remove(w[i], 1) ++ esc(?+\n+, ?+\+)
		endif
	endfor
endfor

messagebox("ok information", Str, OneKey)
vec.destroy(v)
vec.destroy(w)

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

Внимание! Скрипт не работает в Total Commander 7.5 pb1 и pb2!

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

Так называемые цветовые фильтры - очень удобное средство зрительного различения файлов и директорий. К сожалению, при большом количестве фильтров они начинают вступать в сложные взаимоотношения: каждый файл может оказаться удовлетворяющим критериям сразу нескольких фильтров. Тогда используется тот, который имеет наибольший приоритет (стоит выше в списке фильтров). Иногда бывает необходимо выяснить, какие именно фильтры используются для конкретного файла, и какой из них имеет приоритет. К сожалению, никаких средств ответить на этот вопрос Total Commander не предоставляет.

Установите курсор на интересующий файл или директорию и запустите скрипт. Если в текущей вкладке была выделена группа, выделение снимется. В течение работы скрипта не рекомендуется переключаться в другие окна. Закончив работу, скрипт выдаст диалоговое окно. В нем в приоритетном порядке будут перечислены все цветовые фильтры, подходящие для данного файла.


На главную Все о Total Commander PowerPro PowerPro & Total Commander