Total Commander (Часть 7) - [175] :: Программы :: Компьютерный форум Ru.Board

SetFont10.vbs

Код:

' Установка размера шрифта (10 пт) в файловых панелях
' Требуется "Script Helper ActiveX for Total Commander" (c) Volniy
' http://forum.wincmd.ru/viewtopic.php?p=61539#61539
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")

' Перейти на вкладку управления настройками шрифтов
TCS.SendCommand(492)
' Перейти к кнопке "Изменить шрифт" для файловых панелей
TCS.SendKeystroke "{TAB}{ENTER}"
' Перейти к окну ввода размера шрифта, ввести "10" и закрыть диалог
TCS.SendKeystroke "{TAB 2}10{ENTER}"
' Закрыть диалоговое окно настроек
TCS.SendKeystroke "{TAB 3}{ENTER}"

Set TCS = Nothing
Wscript.Quit()

Для изменения размера шрифта заменить "{TAB 2}10{ENTER}" на {TAB 2}нужный_размер{ENTER}

Модерирует : gyra, Maz
articlebot (19-12-2012 23:27): переезжаем в новую тему, Часть 8	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению