Volniy
|
 Posted: Sun Sep 03, 2006 15:32 Post subject: Сообщение сделал, чтобы не постить скрипт в чужую тему |
 |
|
Пишем VBS-файл вот с таким содержимым | Code: | '=========================[ Start of file ]===================
' File: Separators.vbs
' Description: Производит переключение между 3-мя любыми
' позициями разделителя панелей ТС
' Installation: Создайте новую команду в меню Запуск TC
' Команда: "диск:\путь\к\файлу\Separators.vbs"
' Назначьте на нее горячую клавишу
' Copyright: (c) 2006, Volniy
Option Explicit
Dim TCS
Const Pos1=85, Pos2=15, Pos3=50
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
If TCS.Separator < 0 Or TCS.Separator > 100 Then
TCS.SendCommand "cm_50Percent", True
End If
Select Case CInt(TCS.Separator)
Case (Pos2 - 1), Pos2, (Pos2 + 1)
TCS.Separator = Pos3
Case (Pos3 - 1), Pos3, (Pos3 + 1)
TCS.Separator = Pos1
Case (Pos1 - 1), Pos1, (Pos1 + 1)
TCS.Separator = Pos2
Case Else
TCS.Separator = Pos3
End Select
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit()
'=========================[ End of file ]===================
|
ставим на него комбинацию клавиш в меню Запуск и пользуемся ею для быстрого переключения между тремя произвольными позициями разделителя панелей TC (Pos1, Pos2, Pos3) (скрипт можно легко изменить, увеличив число позиций) при наличии установленного в системе Script Helper ActiveX for Total Commander [24 кб].
Из-за взаимодействия нажатой клавиатуры и действий скрипта по перемещению разделителя иногда может понадобиться повторное нажатие (разделитель уходит в 100%). И вообще кнопка на панели будет работать надежнее. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
