CloseAllTabs

Название	CloseAllTabs
Имя файла (*.txt)	CloseAllTabs.txt
Описание	Закрывает все вкладки (в том числе запертые) на текущей панели
Автор	Вахмурка
Параметры	-
Вызываемые плагины	win, tc, childwin, ini
Иконка
Версия	2.0
Дата обновления	08.06.2009


local hwnd = win.handle("c=TTOTAL_CMD")
win.sendmessage(hwnd, 0x400+51, 3008, 0)
;Sub_TMTC - имя скрипта TMTC 
if(not runfile.Subs\Sub_TMTC(hwnd))
	quit

;OpenTabs - имя скрипта OpenTabs 
runfile.OpenTabs("No.tab", 0)
win.sendmessage(hwnd, 0x400+51, 3008, 0)
if(not runfile.Subs\Sub_TMTC(hwnd))
	quit

Кажется, решения два. Первое - выдать команду cm_CloseAllTabs. Но она не закрывает запертые вкладки. По моему мнению, неудачное свойство, и раньше я жалел о том, что реакцию на команду cm_CloseAllTabs нельзя настроить в конфигурации (например, "Закрыть все", "Только незапертые", "Запрос на каждую запертую"). Так или иначе, это факт, и данная команда проблему решает лишь отчасти - остаются вкладки, которые для предполагаемой работы не нужны и только мешают. Закрывать их приходится вручную.

Второе решение лучше первого и до недавнего времени было для меня основным. Заранее создается файл No.tab следующего содержания:


[activetabs]
0_path=
0_options=
activetab=0

и для закрытия всех вкладок следует выдать команду opentabs No.tab. Здесь недостатка два. Первый - данная команда не имеет номера и поэтому не работает с очень удобными программами TCmenu и TCToolbar.zip. По той же причине ее нельзя просто вызвать из PowerPro или TCscript. Во-вторых, даже если в конфигурации снят флаг "Show tab header also when there is only one tab" (как у меня, например), то вид панели после выдачи этой команды ужасающий, а после cm_RereadSource - хоть и приемлемый, но не соответствующий настройке. Но основная беда в том, что впустую расходуется ценное экранное пространство.

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

На главную

Все о Total Commander

PowerPro

PowerPro & Total Commander

CloseAllTabs

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