Серый форум — AHK: "Затемнение" Рабочего Стола

Re: AHK: "Затемнение" Рабочего Стола

2012-04-19T21:56:09Z

Итак, возвращаясь к вопросу темы.

В результате совместных "мучений" получился скрипт

Gui Gray:New, +LastFound +AlwaysOnTop -Caption +ToolWindow +HwndMyGuiHwnd
Gui, Gray:Default
Gui , Color, 0
WinSet, Transparent, 200
Gui, Show, x0 y0 NoActivate W%A_ScreenWidth% H%A_ScreenHeight%
Gui, Default
vWinName := "Windows 7"
Gui, New , +OwnDialogs -caption +AlwaysOnTop +HwndMyFocus , %vWinName%
Gui, Margin , 0, 0 ; без caption
Gui, Add, Picture, x0 y0 w750 h563 , C:\AHK\IMG\Fon_s_knopkami.png ;C:\AHK\IMG\Fon_s_dyrkami.png
;Gui, Color, EEAA99 ;  background color Example values: Silver, FFFFAA, 0xFFFFAA, Default
Gui, Show, xCenter yCenter
SetTimer lbTopWinLogo,10, on
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *!Tab, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *LButton, LBpressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *XButton1, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *XButton2, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *MButton, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *RButton, TabPressed
return
GuiClose:
GuiEscape:
SetTimer lbTopWinLogo,, off
ExitApp

LBpressed:
   MouseGetPos,,,OutputVarWin
   if (MyFocus = OutputVarWin)
   Click
return

TabPressed:
return

lbTopWinLogo:
if (!WinActive(vWinName))
     WinActivate, %vWinName%
MouseGetPos, OutputVarX, OutputVarY, OutputVarWin
   if (MyFocus = OutputVarWin)
    ToolTip X= %OutputVarX% `n Y= %OutputVarY%    
return

;Lbutton::
;   MouseGetPos,,,OutputVarWin
;   if (MyFocus = OutputVarWin)
;   Click
;return

Но если посмотреть мой пост #3, то там остались три кнопки.

Вот моя основная идея.
1. Если курсор над кнопкой, то кнопка перерисовывается в статус "Курсор над кнопкой".
2. Если курсор не над кнопкой, то кнопка перерисовывается в статус "По умолчанию".
3. Если курсор над кнопкой и произведен выбор (ЛКМ или Enter), то кнопка перерисовывается в статус "Нажатие на кнопку".

Как это лучше реализовать.
То есть через Gui, Add, Picture,..... с перерисовкой по Hwnd(картинки кнопки) или иначе?

Вот три вида кнопок для LogOff

По умолчанию -> Курсор над кнопкой -> Нажатие на кнопку ->

Re: AHK: "Затемнение" Рабочего Стола

2012-04-19T21:45:36Z

Я посмотрел на весь скрипт в целом и оказалось, что подобные флаги я использую неоднократно, а это вносит путаницу.
И посему была написана функция отключения/включения для HotKey.

OFF: Содержимое скопировал в тему про массивы

fnHotKeyOnOff(a,b)
A - логическое значение True/False - включить/выключить HotKey из моего описанного массива.
B - массив меток которые не включаются/не выключаются соответственно.

fnHotKeyOnOff(,"sasa1","sasa2")
;или
vTmpArr := ["tata1","tata2","tata3"]
fnHotKeyOnOff(false,vTmpArr*)
return
;---------------------------------------
fnHotKeyOnOff(fSw = true, vIsArr*)
{
  msgbox %fSw%
  vLoop := vIsArr.MaxIndex()
  i := 1
  loop %vLoop%
  {
  a := vIsArr[i]
  msgbox %a%
  i++
  }
return
}

Re: AHK: "Затемнение" Рабочего Стола

2012-04-19T09:50:06Z

ShortCircuit
Если «настроиться» на правильный лад, неочевидность отсутствует

Re: AHK: "Затемнение" Рабочего Стола

2012-04-19T07:01:08Z

Не самая лучшая идея - совместить проверку флага и вызов функции в одной строке, потому что конструкция
if (МояФункция() and Флаг ) then return
будет иметь сторонние эффекты, связанные с вызовом МояФункция, так как она вызывается в любом случае.
В языке программирования С, если не ошибаюсь, есть возможность оптимизации, то есть if (a and someFunc()) - тут someFunc() может и не вызываться, если a = 0
В АНК есть ли такая возможность, не знаю, даже если и была бы, лучше избегать таких неочевидных решений.

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T20:14:27Z

Нет конечно, они имеют все стандартную проверку, вот например:

FireFox:
if (fnWinClose(arrayKey[fnRetIndexOfHotkey(A_ThisHotkey),cAhkC_WinT]))
  return
Run, %ProgSysPath32%Mozilla Firefox\firefox.exe
return

один if стоит, ну а где один там и второй будет... скоро придётся функцию писать (для обощения)

Или просто дополнить этот IF

FireFox:
if (fnWinClose(arrayKey[fnRetIndexOfHotkey(A_ThisHotkey),cAhkC_WinT]) and NoKeys )
  return
Run, %ProgSysPath32%Mozilla Firefox\firefox.exe
return

Irbis пишет:

(за сим откланиваюсь на сегодня )

аналогично

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T20:09:37Z

Флаг включается однократо и блокирует те хоткеи, в которые внесено
if NoKeys
return
Ты написал, что они у тебя одним блоком идут, наверно накопипастить пару строк это нетрудно
(за сим откланиваюсь на сегодня )

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T20:06:03Z

может всё же после Gui, Show, xCenter yCenter, а?

На мой взгляд, без разницы - окно уже создано и имеет id, только невидимо. Конечно, если между New и Show есть большой (по времени) кусок кода,
предполагающий работу с блокированными клавишами, то лучше после Show

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T20:02:44Z

Irbis пишет:

Так он и включается в одном месте - перед показом затемненного окна

ты про флаг или про пост #23?

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:58:48Z

Так он и включается в одном месте - перед показом затемненного окна

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:57:07Z

Да, флаг это хорошо, но вот не позабыть бы везде проставить Проще выключать-включать в одном месте, а то потом концов не найдёшь. IMHO

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:54:01Z

Насчет своих хоткеев... Не знаю, единственное, что приходит на ум - завести флаг при показе Gui, например
NoKeys := 1, а первой строкой в своих хоткеях прописать

if NoKeys
return

Естесственно, после того как Gui отработает, пишем
NoKeys := 0

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:49:11Z

Спасибо за скрипт, а я то голову ломал

Кстати

Irbis пишет:

А можно и... обратить. После Gui, New , +OwnDialogs -caption +AlwaysOnTop +HwndMyFocus , %vWinName% вставить

может всё же после Gui, Show, xCenter yCenter, а?

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:46:59Z

Чтоб не мигало, можно таким же способом "укротить" все клавиши мыши:

Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *!Tab, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *LButton, LBpressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *XButton1, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *XButton2, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *MButton, TabPressed
Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *RButton, TabPressed
...
...
LBpressed:
   MouseGetPos,,,OutputVarWin
   if (MyFocus = OutputVarWin)
   Click
return

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:08:40Z

Спасибо, я так уже сделал, просто не стал писать - "нет предела совершенству"
Жаль что моргание осталось при выполнении WinActivate, %vWinName% , но это увы это "издержки производства"

Кстати не только Alt-Tab, но и срабатывают остальные хоткеи самого скрипта их можно сразу все выключить, а потом включить одной командой?
Я конечно могу их повыключать/повключать... но уж больно лениво писать ещё одну функцию, хотя и не сложно т.к. они у меня все в массиве хранятся.

Re: AHK: "Затемнение" Рабочего Стола

2012-04-18T19:00:28Z

Как вариант, пойдет. Разве что при зажатии Alt+Tab проскакивает-таки выбор окон. Но на это и внимания можно не обращать.
А можно и... обратить. После Gui, New , +OwnDialogs -caption +AlwaysOnTop +HwndMyFocus , %vWinName% вставить

Hotkey, IfWinExist, ahk_id %MyFocus%
Hotkey, *!Tab, TabPressed

а в конце скрипта

TabPressed:
return

(Хотя эту метку можно поставить перед любым return)