[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Andrey_A, ХарВик, chip642  
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » 16Or32Button.vbs - Переключение размеров значков в ТС (Total Commander Image)
16Or32Button.vbs - Переключение размеров значков в ТС
Andrey_AДата: Суббота, 03.03.2012, 15:16 | Сообщение № 1
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Переключение 16/32 размеров значков в файловых панелях в Total Commander
Используется TCIMG.exe - файл можете скачать в теме: утилита TCIMG

Доступно только для пользователей


 
Andrey_AДата: Пятница, 23.03.2012, 02:33 | Сообщение № 2
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Переключение 16\32 размеров значков в файловых панелях в Total Commander
Используется TCMCWindow.exe (версия от 1.5) - файл можете скачать в шапке темы утилиты

Code
' 16Or32Button.vbs
'========================   Описание   =====================================
' Переключение 16\32 размеров значков в файловых панелях в Total Commander
' Автор:             Аверин Андрей
' Версия:          1.1 (17.01.2012 - 22.03.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru
'====================   Изменяемые пути   ===================================
TCMSW = "%COMMANDER_PATH%\Utilities\TotalCom\TCMC\TCMCWindow.exe" ' утилита версии от 1.5
'========================================================================
B1 = "16x16" : B2 = "32x32" : S1 = "[" & B1 & "]" : S2 = "[" & B2 & "]"
ScriptFile = WScript.ScriptFullName
Txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(ScriptFile).ReadAll
If InStr(Txt, S1) > 0 Then
     Txt = Replace(Txt, S1, S2) : Button = B2
Else
     Txt = Replace(Txt, S2, S1) : Button = B1
End If
CreateObject("WScript.Shell").Exec(TCMSW & " ttcmc=CM477 pause=50 " & Chr(34) & "keybd={TAB 7}" & Chr(34) & " pause=50 " & Chr(34) & "keybd=" & Button & Chr(34) & " keybd={ENTER}")
'RunTCMS() '& keybd={ENTER}")
CreateObject("Scripting.FileSystemObject").OpenTextFile(ScriptFile, 2).Write Txt
WScript.Quit
[32x32]


 
simupДата: Пятница, 23.03.2012, 14:22 | Сообщение № 3
Генерал-лейтенант

На сайте с: 26.01.2012
Город: Уфа
Сообщений: 535
Награды: 6
Репутация: 7
А зачем два поста?

Пишите, звоните.
 
Andrey_AДата: Пятница, 23.03.2012, 17:54 | Сообщение № 4
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Quote (simup)
А зачем два поста?

Скрипты связанные с обновлением утилиты TCMCWindow версии 1.5., пока будут двумя постами
1. Для сравнения
2. Для тестирования
Когда утилита, скрипт пройдут проверку, ненужный скрипт будет удалён


 
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » 16Or32Button.vbs - Переключение размеров значков в ТС (Total Commander Image)
  • Страница 1 из 1
  • 1
Поиск:

Интеллектуальные права и отказ от ответственности