Две панели инструментов

[Batya]

проблема оказывается создать кнопку фильтрации. Как на кнопку назначить команду cm_SrcUserSpec с параметрами фильтрации:
*.doc:*.txt или другие типы файлов????

А вот это уже совсем другой вопрос
Это можно только скриптами.
Скрипт *.vbs:

Код: Выделить всё

Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke "*.doc;*.txt"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing

Скрипт использует Script Helper.

[argo]

это уже дебри
сын будет заниматься. Ежели что вопросы принимаешь, Батя??

[Batya]

это уже дебри
сын будет заниматься. Ежели что вопросы принимаешь, Батя??

Почему же дебри?
1. Скачай утилиту по ссылке.
2. Запусти ее - регистрация объекта в системе.
3. Сохрани указанный в прошлом посте код в файл с расширением vbs, предварительно указав вместо "*.doc;*.txt" свой фильтр.
4. Повесь это файл на кнопку, как обычный exe-шник.
5. Нажимай кнопку и радуйся жизни

Конечно я вопросы принимаю.

[argo]

Пошло!
Не так страшен черт! когда знаешь........

[argo]

Дальше поехали...
У скриптов есть параметры типа "выполнение в скрытом режиме"
Без показа окна выполнения?

[StrangeRRor]

argo
А чем тебя не устраивает cm_SrcUserDef?

[Maximus]

А чем тебя не устраивает cm_SrcUserDef?

Я так думаю, что таким способом можно наделать кучу кнопок для различных фильтров и не париться каждый раз с его выбором, как в случае с cm_SrcUserDef.

[argo]

argo
А чем тебя не устраивает cm_SrcUserDef?

Это команда выбора фильтра причем однго, потом опять выбирай другой фильтр.
А я говорил про применение этого фильтра (причем оперативного применения)

[Batya]

Дальше поехали...
У скриптов есть параметры типа "выполнение в скрытом режиме"
Без показа окна выполнения?

К сожалению, этого пока нет
Volniy, автор Script Helper, обещал попробовать что-нибудь придумать, чтобы не показывать дочерние окна, но пока, видимо, не пошло

Как вариант, можно попробовать поиграться со временем задержки между действиями:

Код: Выделить всё

Dim TCS 
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.Pause = 0
TCS.SendCommand "cm_SrcUserDef" 
TCS.SendKeystroke "*.doc;*.txt" 
TCS.SendKeystroke "{ENTER}" 
Set TCS = Nothing

[argo]

Спасибо мужики!"
В принципе, мне и этого с головой хватает!

[Artee]

По прошествии 5 лет возможность включить одновременно 2 и более панели инструментов так и не появилась?
Так неудобно переключать их...

[Avada]

Artee
Даже с появлением у кнопок функциональности выпадающих меню и поддержки многострочных панелей с переносом в произвольном месте?
Что конкретно в существующем функционале не так и что конкретно необходимо?

[Artee]

Даже с появлением у кнопок функциональности выпадающих меню и поддержки многострочных панелей с переносом в произвольном месте?

Даже не имел представления о таких возможностях, прийдётся обновлять свой древний Тотал. Всё описаное нашёл поиском, спасибо за наводящий вопрос.

Что конкретно в существующем функционале не так и что конкретно необходимо?

Теперь всё отлично!

[MVV]

Avada

Читаю название темы, думаю, в тотале испокон веков 2 панели... Открываю - про панели инструментов. Странно, что тему за столько лет не переименовали в "Две панели инструментов"...

[Avada]

MVV
Так тема всплыла только в результате поднятия, про неё с 2006 года уже забыть успели... Исправил, конечно.