Кнопка для изменения цветовой схемы TC

Flasher

cojoc
Стоит заметить, что в таком случае придётся создавать в этих секциях кучу дублирующих строк, которых наверняка будет больше, чем требуемых. Допустим, сменных цветов нужно 20, а цветовых шаблонов штук 70. Это получается, что в каждой секции должно быть примерно по 160 строк, всего в двух секциях - 320, из которых реально нужно 20. Ну, и какой вариант предпочтительней?

cojoc · Сообщение **cojoc** » Сб окт 29, 2011 19:13

Flasher

Ну, и какой вариант предпочтительней?

Я использую "Поочерёдное переключение двух цветовых схем.vbs" от Flasher

- он мне сейчас больше подходит, т.к. отличных цветов у меня мало.

Но схемы у людей разные бывают, наверняка у кого-то будет мало совпадений. К тому же не надо будет скрипт редактировать, а переключившись на другую схему можно её при надобности изменить средствами TC.

Flasher

cojoc
Я не думаю, что найдётся много пользователей, у которых несовпадающих значений будет больше хотя бы половины. Ну, а пользоваться средствами ТС можно при любом варианте.

sa · Сообщение sa » Вт ноя 01, 2011 13:43

Вариант ранее предлагавшегося скрипта, но без использования внешней утилиты (TCMC). Для вызова диалога настройки цветов необходимо назначить комбинацию клавиш (в рассматриваемом варианте это Ctrl+9) для команды cm_ColorConfig (делается через меню Конфигурация >Настройка > Разное). Поскольку уже имеется 10 нажатий клавиш из скрипта, то и одиннадцать не намного больше…

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

'  Описание: Переключает цвета в TC, переименовывая друг в друга секции [Colors] и [Colors2]
'Требования: Для вызова внутренней команды cm_ColorConfig назначить комбинацию клавиш Ctrl+9
'-------------------------------------------------------------------------------------------
Option Explicit
Dim FSO, WSH, F, Str1 , Str2, Text
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
F = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings("%COMMANDER_INI%"))
Str1 = vbNewLine & "[Colors]"
Str2 = vbNewLine & "[Colors2]"
Text = FSO.OpenTextFile(F, 1).ReadAll
If InStr(1, Text, vbNewLine & "C+9=cm_ColorConfig", 1) > 0 Then
  Text = Replace(Text, Str1, Str1 & "#", 1, -1, 1)
  Text = Replace(Text, Str2, Str1, 1, -1, 1)
  Text = Replace(Text, Str1 & "#", Str2, 1, -1, 1)
  FSO.OpenTextFile(F, 2).Write Text
  WSH.SendKeys "^9+{TAB 5}  {ENTER}"         ' ^9 - вызов cm_ColorConfig комбинацией Ctrl+9
  If InStr(1, Text, "activeTitle", 1) > 0 Then WSH.SendKeys "{TAB 2}"
Else
  MsgBox "Назначьте на Ctrl+9 команду cm_ColorConfig", vbOKOnly + vbCritical,"Ошибка"
End If
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit

Flasher

sa писал(а):но без использования внешней утилиты (TCMC). Для вызова диалога настройки цветов необходимо назначить комбинацию клавиш (в рассматриваемом варианте это Ctrl+9

Как можно отказываться от утилиты в пользу каких-то, неизвестно на что назначенных горячих клавиш?

sa · Сообщение sa » Ср ноя 02, 2011 20:21

Flasher писал(а):Как можно отказываться от утилиты в пользу каких-то, неизвестно на что назначенных горячих клавиш?

Я и сам удивлён твоей гипотезой.

Flasher

sa, какой гипотезой? Ты о чём?

sa · Сообщение sa » Ср ноя 02, 2011 21:17

Flasher
Будем считать, что это вариант для тех противников внешних утилит, кто ещё не назначил команду для Ctrl+9 или может подправить скрипт (либо поинтересоваться, как подправить) под свою свободную горячую клавишу.

Flasher

sa писал(а):Будем считать, что это вариант для тех противников внешних утилит

Вот я поэтому и спросил, откуда такие странные приоритеты? Ты же для себя в первую очередь делаешь.

sa · Сообщение sa » Ср ноя 02, 2011 23:18

Flasher писал(а):откуда такие странные приоритеты?

Не знаю, по-моему это дело вкуса: использовать внешнюю утилиту или обойтись средствами ТК.

Flasher

sa
Просто если дело сводить к замене на эмуляцию клавиш, то это нужно тогда для всех скриптов с утилитами предлагать по варианту с клавишами. Кому нужны эти лишние заморочки? К тому же в отношении эмуляций у меня мнение схожее с мнением Batya, т.е. против, и применяю их только в крайнем случае, когда нет более приемлемой альтернативы.

sa · Сообщение sa » Ср ноя 02, 2011 23:55

Flasher писал(а):и применяю их только в крайнем случае

Неприятно конечно, что целых 8 из 9 случаев (для диалога настройки цветов в твоих скриптах) у тебя оказались крайними.

Flasher

sa
Каких 8 из 9 случаев? Откуда такое количество? Я всего 3 скрипта тут опубликовал, в 2-ух из которых есть метод SendKeys, необходимый в диалогах.

sa · Сообщение sa » Чт ноя 03, 2011 00:14

Flasher писал(а):Каких 8 из 9 случаев?

У тебя один вызов диалога утилитой и 8 эмуляций в нём: "+{TAB 5} ~". А у меня и того больше (10 эмуляций): "+{TAB 5} {ENTER}{TAB 2}".

Flasher

sa
Мысль состояла в осмысленности применения, а не использовании как таковом.
Нажатия - это случаи? Мда.. Ладно, завязываем...