Total Commander

[ZEV1416]

Давно лелеял идею сделать поведение ТС аналогично Дос Навигатору. Если кто помнит, при включенной опции "различать клавиши КТРЛ", можно было ходить с диска на диск удержением клавиши КТРЛ (правой для правой панели, левой - для левой панели) и нажатием клавиш "вправо" и "влево" для листания дисков. При отпускании КТРЛ выполнялся переход на выбранный диск. Так вот, я сделал нечто подобное на AutoHotKey. Попробовать можно с помощью сл. скрипта:

DNLCtrlPressed=0
DNRCtrlPressed=0
DNDiskChange=0

LControl::
Send, {LControl Down}
IfWinActive, ahk_class TTOTAL_CMD
DNLCtrlPressed=1
return

RControl::
Send, {RControl Down}
IfWinActive, ahk_class TTOTAL_CMD
DNRCtrlPressed=1
return

$*LControl Up::
IfWinActive, ahk_class TTOTAL_CMD
{
DNLCtrlPressed=0
if DNDiskChange=1
Send, {Enter}
; Send, {LControl Up}
DNDiskChange=0
}
;else
Send, {LControl Up}
Return


$*RControl Up::
IfWinActive, ahk_class TTOTAL_CMD
{
DNRCtrlPressed=0
if DNDiskChange=1
Send, {Enter}
; Send, {RControl Up}
DNDiskChange=0
}
;else
Send, {RControl Up}
Return

^Right::
IfWinActive, ahk_class TTOTAL_CMD
{
if DNRCtrlPressed=1
{
if DNDiskChange=0
{
Send, {Alt Down}{F2}{Alt Up}
Send, {Down}
DNDiskChange=1
}
else
Send, {Down}
}
else
{
if DNLCtrlPressed=1
{
if DNDiskChange=0
{
Send, {Alt Down}{F1}{Alt Up}
Send, {Down}
DNDiskChange=1
}
else
Send, {Down}
}
else
Send, {Right}
}
}
else
Send, {Right}
return

^Left::
IfWinActive, ahk_class TTOTAL_CMD
{
if DNRCtrlPressed=1
{
if DNDiskChange=0
{
Send, {Alt Down}{F2}{Alt Up}
Send, {Up}
DNDiskChange=1
}
else
Send, {Up}
}
else
{
if DNLCtrlPressed=1
{
if DNDiskChange=0
{
Send, {Alt Down}{F1}{Alt Up}
Send, {Up}
DNDiskChange=1
}
else
Send, {Up}
}
else
Send, {Left}
}
}
else
Send, {Left}
return

$Enter::
If WinActive("ahk_class TInpComboDlg")
Send, {F2}
else
Send, {Enter}
return

Да вот незадача: он подключивает, что проявляется в "залипании" клавиш КТРЛ... Помогите плз найти ошибку, ИМХО, скрипт должен пригодиться "старикам", чья память о Дос Навигаторе еще свежа

[Belkin]

Привет. Мне было проще написать скрипт заново, чем искать источник глюков. Получилось, как мне кажется, проще а может и надежнее.
Сам я не нахожу такую навигацию удобной, поэтому долго тестировать не стал. Но всё же немного погонял. Вроде не глючило. Надеюсь такой вариант решения задачи тебе подойдет. Удачи.

[funduk]

Неужели вам так важно ctrl различать??? Tab нажали и юзаем команды cm_gotonextdrive и cm_gotopreviousdrive. Потом ещё tab, чтобы в нужную панель перейти.

[ZEV1416]

2Belkin: Благодарю. Испытаю. Затесавшийся кусочек - действительно отношения не имеет, забыл я про него Но все равно спасибо и за его упрощение!
2funduk: Сам об этом думал. Можно CTRLы и не различать. Но дело привычки: в DN так было, и это очень удобно. Там, правда, было еще, что можно, находясь на правой панели, менять диск левой, не переходя туда, но мне это не критично
А по части cm_gotonextdrive - все хорошо, но он выполняет переход сразу (или сразу обламывается), поэтому, если у меня C и E - харды, а D - сидюк без диска, то таким методом на с C на E я не попаду - cm_gotonextdrive не сработает.