|
|
| Название | MoveTab |
| Имя файла (*.txt) | MoveTab.txt |
| Описание | Перемещает текущую вкладку в противоположную панель |
| Автор | Вахмурка |
| Параметры | - |
| Вызываемые плагины | win, childwin, tc |
| Иконка |
|
| Версия | 4.0 |
| Дата обновления | 16.06.2014 |
local hwnd = win.handle("c=TTOTAL_CMD")
local TMTC, Target, Lock, SemiLock
if(tc.active(hwnd) == "left") do
;Sub_TMTC - имя скрипта TMTC
TMTC = runfile.Subs\Sub_TMTC(hwnd, 1)
Target = runfile.Subs\Sub_TMTC(hwnd, 2)
else
Target = runfile.Subs\Sub_TMTC(hwnd, 1)
TMTC = runfile.Subs\Sub_TMTC(hwnd, 2)
endif
if(not TMTC)
quit
local Counter = win.sendmessage(Target, 4868, 0, 0)
win.postmessage(hwnd, 0x400+51, 3009, 0)
*keys {down 5}{enter}
wait.for(200, win.sendmessage(Target, 4868, 0, 0) != Counter)
win.postmessage(hwnd, 0x400+51, 3009, 0)
*keys {down 2}{enter}
wait.for(activewindow("c=TCheckEditBox"))
local Hand = win.getfocus()
local Parent = childwin.parent(Hand)
Hand = win.childhandlelist(Parent, "c=TMyCheckBox")
if(word(Hand, 0) != 2) do
messagebox("ok error", "Wrong number of checkboxes", "MoveTab script")
quit
endif
local v = vec.createfromwords(Hand)
if(not v) do
messagebox("ok error", "Vector not created", "VEC plugin error")
quit
endif
if(win.top(v[0]) > win.top(v[1]))
v.swap(0, 1)
Lock = v[0]
SemiLock = v[1]
Hand = win.sendmessage(Lock, 240, 0, 0)
Parent = win.sendmessage(SemiLock, 240, 0, 0)
keys {esc}
if(Hand)
win.sendmessage(hwnd, 0x400+51, 3010, 0)
if(Parent)
win.sendmessage(hwnd, 0x400+51, 3012, 0)
win.sendmessage(hwnd, 0x400+51, 3007, 0)
Внимание! Скрипт не работает в Total Commander 7.5 pb1 и pb2!
Версия данного скрипта для Total Commander 7.0 и старше.
В контекстном меню вкладок (cm_DirTabsShowMenu) есть команда "Copy tab to other panel". Ее можно выполнить, как известно, простым перетаскиванием. Логика подсказывает, что если есть команда "Copy...", то рядом должна быть ее младшая сестра - "Move...". Уместен был бы и крысиный аналог - скажем, перетаскивание с нажатым Ctrl-ом. Но логика нас подводит - нет такой команды. А жаль. Редко когда нужно иметь две одинаковые вкладки на разных панелях.
Я повесил скрипт на клавишу [Alt+F6], чего и всем желаю.
|
На главную |
|
Все о Total Commander |
|
PowerPro |
|
PowerPro & Total Commander |