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

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

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

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

Как удалить все вкладки, в том числе запертые, и получить "чистую" панель, в стиле Тotal Сommander версии ниже 6.0?

Кажется, решения два. Первое - выдать команду 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 Все скрипты