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 

Single Post  Topic: Автоматическое нажатие F3-F4 
Author Message
mf-zl



PostPosted: 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
}
View user's profile Send private message Visit poster's website


Powered by phpBB © 2001, 2005 phpBB Group