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: Активация окна Total Commander движением мыши 
Author Message
Flasher



PostPosted: Tue Jun 01, 2010 21:17    Post subject: Reply with quote

Loopback
В общем там целая история. Из-за того, что у меня в автозапуске стоял другой скрипт из этой же оперы, возникли глюки с исчезновением панели, и мне приходилось по несколько раз добавлять её. После перезагрузки накапливалось порядка штук семи. Потом выскакивал при подведении к краю курсора пустой квадрат в правом верхнем углу. Время потратил ПРУД.. К тому же, чтобы появление происходило в любых режимах, нужно снять флаг с "Поверх остальных окон". Окончательный вид скрипт приобрёл такой (и вроде, тьфу-тьфу-тьфу, работает) >>>
Code:
While 1
    GUIGetMsg() ; разгрузка процессора
    $mpos = MouseGetPos()
    If ($mpos[0] < 2) Then
       WinSetState("[CLASS:BaseBar]", "", @SW_SHOW)
       WinSetOnTop("[CLASS:BaseBar]", "", 1)
    ElseIf ($mpos[0] > 27) Then
       WinSetOnTop("[CLASS:BaseBar]", "", 0)
       WinSetState("[CLASS:BaseBar]", "", @SW_HIDE)
    EndIf
   If ($mpos[0] < 2) And ($mpos[1] < 8) Then
        $list = WinList("[CLASS:TTOTAL_CMD]")
        If $list[0][0] > 0 Then WinActivate ($list[1][1])
    EndIf
        If ($mpos[0] <= @DesktopWidth - 0) And ($mpos[1] < @DesktopHeight - 28) Then
        WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    EndIf
    If ($mpos[0] <= @DesktopWidth - 0) And ($mpos[1] > @DesktopHeight - 2) Then
   WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
        $list = WinList("[CLASS:Shell_TrayWnd]")
        If $list[0][0] > 0 Then WinActivate ($list[1][1])
    EndIf
Wend
Но вот 1,5-3-х секундная задержка несколько напрягает.(
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group