Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Автоматическое нажатие F3-F4
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
sergeich



Joined: 25 Apr 2006
Posts: 185
Location: Москва

Post (Separately) Posted: Tue Aug 21, 2007 18:38    Post subject: Reply with quote

Новая версия 1.4
Добавлено: переключение режимов средней кнопкой мыши, автозагрузка программы...
Back to top
View user's profile Send private message
funduk



Joined: 16 Aug 2005
Posts: 1513
Location: Санкт-Петербург

Post (Separately) Posted: Tue Aug 21, 2007 22:36    Post subject: Reply with quote

Кстати, ты бы завёл себе профиль в вике, чтобы народ знал, кто из аддонописателей сам в список свои аддоны добавляет.
Back to top
View user's profile Send private message
sergeich



Joined: 25 Apr 2006
Posts: 185
Location: Москва

Post (Separately) Posted: Tue Aug 21, 2007 22:47    Post subject: Reply with quote

funduk wrote:
Кстати, ты бы завёл себе профиль в вике, чтобы народ знал, кто из аддонописателей сам в список свои аддоны добавляет.


завел. надеюсь, народ теперь все знает Smile
Back to top
View user's profile Send private message
JKT



Joined: 22 Sep 2009
Posts: 116
Location: Харьков

Post (Separately) Posted: Mon Apr 26, 2010 13:34    Post subject: Reply with quote

Киньте плиз куданить на обменку - ссылка умерла
Back to top
View user's profile Send private message
Bomm



Joined: 15 Jan 2005
Posts: 245
Location: Москва

Post (Separately) Posted: Mon Apr 26, 2010 14:07    Post subject: Reply with quote

JKT
http://slil.ru/29034628
_________________
Юрий Бомштейн
Back to top
View user's profile Send private message
JKT



Joined: 22 Sep 2009
Posts: 116
Location: Харьков

Post (Separately) Posted: Mon Apr 26, 2010 17:45    Post subject: Reply with quote

Спасибо
Эх, жаль, что там ненастраивается время этого удержания кнопки, частенько ложно срабатывает при перетаскивании, видать надо попривыкнуть, но всеравно удобно (любителям мышей)
Back to top
View user's profile Send private message
Mailk



Joined: 16 Jan 2010
Posts: 251

Post (Separately) Posted: Mon Jul 01, 2013 22:45    Post subject: Reply with quote

Где сама прога ? все ссылки битые .
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jul 05, 2013 18:02    Post subject: Reply with quote

Добавил в лист.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
mf-zl



Joined: 21 Aug 2005
Posts: 71
Location: BLR

Post (Separately) Posted: Fri Aug 02, 2013 15:05    Post subject: Reply with quote

TotalMouseEX v0.1a by zL
AutoHotkey_L v1.1.1.00 Unicode

Зажатие левой кнопки - F3
Клик средней - F4

Code:
#SingleInstance force

#If WinActive("ahk_class TTOTAL_CMD") and MouseUnder("TMyListBox[12]")

~LButton::
  If LPress {
    LPress += 1
    Return
  } LPress = 1
  SetTimer, LPress, On
Return

MButton::
  Click
  Send, {F4}
Return

LPress:
  SetTimer, LPress, Off
  If (LPress = 1)
   { KeyWait, LButton, T0.4
    If (ErrorLevel && WinActive("ahk_class TTOTAL_CMD"))
    { Click
      Send, {F3}
    }
   } LPress = 0
Return

MouseUnder(Controls) {
  MouseGetPos,,,, Control
  If RegExMatch(Control, Controls)
    Return, True
}
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов

Post (Separately) Posted: Sat Aug 03, 2013 10:31    Post subject: Reply with quote

mf-zl
Интересное решение. Кстати, более удобно работает со средней кнопкой, чем утилита: там использование для других целей средней кнопки блокировалось в окне TC везде, здесь — только в файловых панелях.
А можно ли сделать вариант, где для средней кнопки — не клик, а зажатие, причём только при статичном положении мыши, без перетаскивания? Это позволило бы, например, также включать в файловых панелях TC функционал автоскроллинга или использовать прямоугольное выделение в стиле TWinKey.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
mf-zl



Joined: 21 Aug 2005
Posts: 71
Location: BLR

Post (Separately) Posted: Sun Aug 04, 2013 00:46    Post subject: Reply with quote

Avada, можно Wink

Прилепил статику и на левую кнопку.
Также добавил пример двойного клика средней кнопкой - выделяет расширения под курсором

Code:
; TotalMouseEX v0.3 by zL
; AutoHotkey_L v1.1.1.00 Unicode

#SingleInstance force

#If WinActive("ahk_class TTOTAL_CMD") and MouseUnder("TMyListBox[12]")

~LButton::
  If LPress {
    LPress += 1
    Return
  } LPress = 1
  SetTimer, LPress, On
Return

~MButton::
  If MPress {
    MPress += 1
    Return
  } MPress = 1
  SetTimer, MPress, On
Return

LPress:
  SetTimer, LPress, Off
  MouseGetPos, x0, y0
  If (LPress = 1)
  { KeyWait, LButton, T0.4
    MouseGetPos, x1, y1
    If (ErrorLevel && WinActive("ahk_class TTOTAL_CMD") && (x0 = x1 && y0 = y1))
    { Click
      Send, {F3}
    }
  } LPress = 0
Return

MPress:
  SetTimer, MPress, Off
  MouseGetPos, x0, y0
  If (MPress = 1)
  { KeyWait, MButton, T0.4
    MouseGetPos, x1, y1
    If (ErrorLevel && WinActive("ahk_class TTOTAL_CMD") && (x0 = x1 && y0 = y1))
    { Click
      Send, {F4}
    }
  } Else, If (MPress = 2)
  { Click
    Send, !{NumpadAdd}
  } MPress = 0
Return

MouseUnder(Controls) {
  MouseGetPos,,,, Control
  If RegExMatch(Control, Controls)
    Return, True
}
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов

Post (Separately) Posted: Sun Aug 04, 2013 11:07    Post subject: Reply with quote

mf-zl
Спасибо. Сообщаю результаты тестирования.
С левой кнопкой всё OK, изменение со статикой подтверждаю.
Со средней — хуже. В чистом TC работа скрипта зависит от возможности автоскроллинга в текущей файловой панели (то есть есть ли куда крутить). Если прокрутка невозможна — срабатывают и одинарный, и двойной клик. Если возможна — средний клик сразу же включает режим автоскроллинга (появляется маркер), далее скрипт не срабатывает.
Одиночный длинный клик средней кнопкой в настроенном TC с включённым TWinKey (это мой штатный режим) в новой версии скрипта F4 не обрабатывает, только выделяется файл под курсором. Двойной щелчок (выделение по расширению) срабатывает, но почему-то со второго раза. Проверил настройки TWinKey, при отключении там опции, позволяющей средней кнопкой выставлять рамочное выделение, F4 начинает обрабатываться.
С отключённым (выгруженным по cm_UnloadPlugins) — TWinKey средняя кнопка работает ровно по тем же правилам, что в чистом TC.
То есть автоскроллинг работу скрипта явно блокирует. И "рамочная" фича TWinKey, похоже, тоже. Но её на крайний случай отключить можно, а автоскроллинг — нет. Такие дела.
P.S. И не надо было весь мой пост цитировать.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
mf-zl



Joined: 21 Aug 2005
Posts: 71
Location: BLR

Post (Separately) Posted: Sun Aug 04, 2013 13:12    Post subject: Reply with quote

Code:
#Persistent
#SingleInstance force

Prj = TotalMouseEX v0.5 by zL

Tray:
  Menu Tray, Tip, % Prj
  Menu Tray, Icon, main.cpl
  Menu Tray, NoStandard
  Menu Tray, Add, &About, About
  Menu Tray, Add
  Menu Tray, Add, E&xit, Quit
  Menu Tray, Default, &About
Return

About:
  MsgBox 8256, % Prj,
  (LTrim
    Long press left mouse button to view file in lister
    Long press middle mouse button to edit file
    Double click middle mouse button to select files with same extension
  )
Return

Quit:
ExitApp

#If WinActive("ahk_class TTOTAL_CMD") and MouseUnder("TMyListBox[12]")

~LButton::
  If LPress {
    LPress += 1
    Return
  } LPress = 1
  SetTimer, LPress, On
Return

MButton::
  If MPress {
    MPress += 1
    Return
  } MPress = 1
  SetTimer, MPress, On
Return

LPress:
  SetTimer, LPress, Off
  MouseGetPos, x0, y0
  If (LPress = 1)
  { KeyWait, LButton, T0.4
    MouseGetPos, x1, y1
    If (ErrorLevel && WinActive("ahk_class TTOTAL_CMD") && (x0 = x1 && y0 = y1))
    { Click
      Send, {F3}
    }
  } LPress = 0
Return

MPress:
  SetTimer, MPress, Off
  MouseGetPos, x0, y0
  If (MPress = 1)
  { KeyWait, MButton, T0.4
    MouseGetPos, x1, y1
    If (ErrorLevel && WinActive("ahk_class TTOTAL_CMD") && (x0 = x1 && y0 = y1))
    { Click
      Send, {F4}
    } Else, Send, {MButton}
  } Else, If (MPress = 2)
  { Click
    Send, !{NumpadAdd}
  } MPress = 0
Return

MouseUnder(Controls) {
  MouseGetPos,,,, Control
  If RegExMatch(Control, Controls)
    Return, True
}
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов

Post (Separately) Posted: Sun Aug 04, 2013 15:56    Post subject: Reply with quote

mf-zl
Прогресс есть. В TC, где не включено рамочное выделение TWinKey, длинный средний щелчок срабатывает нормально, автоскроллинг по короткому щелчку тоже работает. Конфликта нет. Двойной средний клик срабатывает почему-то со второго либо третьего раза (первый раз включается автосроллинг).
При включённом рамочном выделении теперь работает только скрипт. Он блокирует создание рамочного выделения (средняя кнопка при перетаскивании), а включённая — пусть и неработающая — фича TWinKey блокирует автоскроллинг (но последнее — отдельный вопрос не для этой темы). Двойной средний щелчок срабатывает всегда по второму разу.
Добавление мини-справки — это тоже хорошо. Smile
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
mf-zl



Joined: 21 Aug 2005
Posts: 71
Location: BLR

Post (Separately) Posted: Sun Aug 04, 2013 16:39    Post subject: Reply with quote

Avada
странно! у меня всё срабатывает с первого раза, на чистом и не очень тк! Shocked
давай разбираться с TWinKey - скинь свой конфиг...

Обновления будут тут:
http://ghisler.ch/board/viewtopic.php?p=267739#267739
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group