View previous topic :: View next topic |
Author |
Message |
prog_san
Joined: 29 Sep 2007 Posts: 282 Location: Пенза
|
(Separately) Posted: Fri May 29, 2009 10:13 Post subject: Отключение "Define colors by type" с кнопки |
|
|
Хотелось бы реализовать такую вещь как - Отключение "Define colors by type" с кнопки на панели приборов или с помощью клавиатурных сочетаний. Такой команды в списке команд TotalCommander не нашел . Подскажите, как с минимальными затратами реализовать это без перезагрузки
! | Моторокер: | Нарушение п.9 правил форума.
Тема перенесена в Автоматизацию.
Форум Советы - для советов, а не для вопросов. | |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Fri May 29, 2009 12:12 Post subject: |
|
|
Насколько я понимаю, такое только макросом, который откроет диалог, нажмёт нужную галочку и сохранит изменения. _________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
Worros
Joined: 19 Jan 2007 Posts: 1123
|
(Separately) Posted: Fri May 29, 2009 16:17 Post subject: |
|
|
Кстати мне бы тоже очень понравился встроенный функционал. Если будете реквестить, охотно поддержу. _________________ педофилия, каннибализм, бетономешалка !!! |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10263 Location: Россия, Саратов
|
(Separately) Posted: Fri May 29, 2009 18:20 Post subject: |
|
|
Вполне разумное предложение, я тоже поддерживаю. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
D1P
Joined: 20 Dec 2004 Posts: 2973 Location: Тбилиси
|
(Separately) Posted: Fri May 29, 2009 19:39 Post subject: |
|
|
Поддерживаю. С двумя сотнями шаблонов на подсветку тотал работает ощутимо медленнее, а нужны они не всегда. _________________ База знаний о Total Commander
Блог |
|
Back to top |
|
|
prog_san
Joined: 29 Sep 2007 Posts: 282 Location: Пенза
|
(Separately) Posted: Fri Jul 24, 2009 09:49 Post subject: |
|
|
Написал script. Для работы необходим TCScript.Helper
Code: |
' Отключение\включение ракраски файлов в зависимоти от типа
' prog_san 2009
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
' Перейти на вкладку управления настройками цветов
TCS.SendCommand(494)
' Перейти к галочке отключения раскраски файлов, изменить ее значение
TCS.SendKeystroke "{TAB 14} {SPACE}"
' Закрыть диалоговое окно
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
Wscript.Quit() |
_________________ Errare humanum est |
|
Back to top |
|
|
tigb
Joined: 26 Nov 2006 Posts: 4 Location: Тверь
|
(Separately) Posted: Sat Oct 31, 2009 10:50 Post subject: включение/отключение раскраски |
|
|
Доброго времени суток!
Можно ли на кнопку навесить включение/отключение раскраски строк?
Причина: раскраска помогает в работе (и уже привычна), но порой глаза устают и, если нет необходимости, хотелось бы её отключать.
Раньше менял цвет 2-го фона через ini-файл, затем создал 2 схемы в
IMPOMEZIA TC Color Presets (с раскраской и без), но хотелось бы переходить одной кнопкой.
! | Avada: | Перемещено в уже существующую тему. | |
|
Back to top |
|
|
prog_san
Joined: 29 Sep 2007 Posts: 282 Location: Пенза
|
(Separately) Posted: Sat Oct 31, 2009 12:06 Post subject: |
|
|
Я также задавался этим вопросом. Написал решение в виде скрипта, который реализуют вход в окно свойств TotalCommander и отжатие(нажатие) галочки включения(отключения) расскраски - решение на данный момент наиболее приемлимое. Скрипт можно повесить как на нопку, так и на сочетание клавиш.
http://forum.wincmd.ru/viewtopic.php?t=12346 _________________ Errare humanum est |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10263 Location: Россия, Саратов
|
(Separately) Posted: Sat Oct 31, 2009 13:43 Post subject: |
|
|
prog_san
Скриптом пользуюсь с момента опубликования. На обоих домашних компах работает безукоризненно. На рабочем при идентичных (вроде бы) настройках TC под той же Windows XP по тому же самому скрипту мелькает окошко со страничкой настроек "Цвета", но переключения опции не происходит. Прочие vbs-скрипты работают там нормально. В чём может быть дело? _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Oct 31, 2009 15:03 Post subject: |
|
|
Avada wrote: | мелькает окошко со страничкой настроек "Цвета", но переключения опции не происходит | Попробуй добавить строку
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause = 100 |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10263 Location: Россия, Саратов
|
(Separately) Posted: Sat Oct 31, 2009 15:45 Post subject: |
|
|
Tol!k
Спасибо, в понедельник попробую. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sat Oct 31, 2009 16:02 Post subject: |
|
|
Скрипт будет неправильно работать если используется инверсный курсор или инверсное выделение.
Универсальный вариант будет выглядеть так:
' Перейти к галочке отключения раскраски файлов, изменить ее значение
TCS.SendKeystroke "+{TAB 5} {SPACE}" |
|
Back to top |
|
|
prog_san
Joined: 29 Sep 2007 Posts: 282 Location: Пенза
|
(Separately) Posted: Mon Nov 02, 2009 10:30 Post subject: |
|
|
Tol!k wrote: | Скрипт будет неправильно работать если используется инверсный курсор или инверсное выделение. |
Точно. Важный момент. Учту. Спасибо за доработку _________________ Errare humanum est |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2571
|
(Separately) Posted: Mon Nov 02, 2009 13:34 Post subject: |
|
|
Tol!k wrote: | Универсальный вариант будет выглядеть так:
' Перейти к галочке отключения раскраски файлов, изменить ее значение
TCS.SendKeystroke "+{TAB 5} {SPACE}" |
Можно ещё короче:
TCS.SendKeystroke "+{TAB 5} " |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10263 Location: Россия, Саратов
|
(Separately) Posted: Tue Nov 03, 2009 19:29 Post subject: |
|
|
Tol!k wrote: | TCS.SendKeystroke "+{TAB 5} {SPACE}" |
Работает. На двух домашних компах.
А на рабочем компе ни один из предложенных советов так к успеху и не привёл.
sa wrote: | Можно ещё короче:
TCS.SendKeystroke "+{TAB 5} " |
Не работает нигде. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
|