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 

Активация окна Total Commander движением мыши
Goto page Previous  1, 2, 3, 4
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



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

Post (Separately) Posted: Tue Jun 01, 2010 17:52    Post subject: Reply with quote

Loopback
А, ну вот теперь ясно почему знаки не совпадают. Только смыла держать панель с правого края я не нахожу по элементарной причине: в той области находится ScrollBar, и при цеплянии ползунка ненароком можно вызвать что-то из QuickLaunch-a. Поэтому ещё с первой половины девяностых держу панель БЗ слева. Ну попробовал так:
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
Wend
- не вышло.

Есть ещё один нюанс: у меня в таком режиме несколько приложений, если сначала запустить только одно после активности TaskBar, то скрипт (в предложенном виде с панелью справа) QuickLaunch скрывает, как только я начинаю с Alt+T переключаться между ними, то без активации TaskBar-а П.Б.З. не появляется. С Alt+Esc, кстати, почему-то работает. Решаемо?

Добавлено:
Loopback wrote:
У себя ничего с полноэкранными окнами без заголовка не нашел
Ну тогда FullScreen в браузерах и, допустим, в редакторах(AkelPad, напр.).
Back to top
View user's profile Send private message
Loopback



Joined: 07 Sep 2009
Posts: 1291

Post (Separately) Posted: Tue Jun 01, 2010 18:56    Post subject: Reply with quote

Flasher wrote:
Ну тогда FullScreen в браузерах и, допустим, в редакторах(AkelPad, напр.).

А, точно, туплю. Ну вот еще записал, на EditPlus и Opera.

Так что причина по-прежнему непонятна.

Quote:
Есть ещё один нюанс

Попробовал попереключаться - вроде тоже все без проблем (в видео не попало, пробовал после).
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: 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-х секундная задержка несколько напрягает.(
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Wed Jun 02, 2010 21:23    Post subject: Reply with quote

Loopback
Так или иначе, но проблема всё-таки осталась. В некоторых случаях в описанных режимах появление панели не наблюдается. Но если с этим уже толком сделать ничего не получается, то возникает другой неприятный нюанс в работе законченного скрипта: чаще в обычных режимах не удаётся нормально работать с меню Пуск, выпадающие пункты которого, да и нижестоящие так и наровят исчезнуть/скрыться, из-за чего меню практически теряет свой функционал, т.е. успеть добраться до нужного пункта не получается. Это каким-то образом можно в коде скрипта вылечить?
Back to top
View user's profile Send private message
Loopback



Joined: 07 Sep 2009
Posts: 1291

Post (Separately) Posted: Fri Jun 04, 2010 23:28    Post subject: Reply with quote

Flasher wrote:
выпадающие пункты которого, да и нижестоящие так и наровят исчезнуть/скрыться, из-за чего меню практически теряет свой функционал, т.е. успеть добраться до нужного пункта не получается. Это каким-то образом можно в коде скрипта вылечить?

Проверить сейчас не могу, но суть проблемы ясна. По-идее, надо не прятать таскбар, пока открыто меню. Почти наверняка это можно отследить, но я не очень представляю как.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jun 21, 2010 14:12    Post subject: Reply with quote

Loopback wrote:
Почти наверняка это можно отследить, но я не очень представляю как.
Ничего ещё не придумалось по этому поводу? Smile
Back to top
View user's profile Send private message
Loopback



Joined: 07 Sep 2009
Posts: 1291

Post (Separately) Posted: Tue Jun 22, 2010 00:55    Post subject: Reply with quote

Flasher
Я гуглил, что-то ничего не вырисовывается.
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, 4
Page 4 of 4

 
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