|
Название | 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 |