Серый форум — AHK: Индикатор на заголовок окна

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Sat, 22 Apr 2017 02:30:01 +0000

Спасибо Вам огромное Malcev , всё рассказали и всё расписали.

+ открыть спойлер

Рабочий код в "15" посту. Я там подправил.

Re: AHK: Индикатор на заголовок окна

null@example.com (Malcev) — Sat, 22 Apr 2017 02:08:18 +0000

Тут исчезают не кнопки, а гуи.
А гуи обычно исчезает после команды Submit.
В справке об этом всё написано.

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Sat, 22 Apr 2017 01:53:47 +0000

Malcev , нет не понимаю алгоритм скрипта. А как сделать чтобы кнопки не исчезали после нажатия. Помогите пожалуйста.

Re: AHK: Индикатор на заголовок окна

null@example.com (Malcev) — Sat, 22 Apr 2017 01:28:15 +0000

А вы алгоритм скрипта понимаете?
У вас таймером проверяется активно заданное окно или неактивно, если неактивно, то гуи исчезает (непонятно правда зачем).
У вас при нажатии на кнопку в гуи деактивируется заданное окно, гуи исчезает и соответственно клик не обрабатывется.
Чтобы этого избежать можно гуи задать стиль +E0x08000000 ; WS_EX_NOACTIVATE.

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Fri, 21 Apr 2017 22:14:02 +0000

Malcev , я убрал директиву "#If " и всё равно не работает.

+ открыть спойлер

#Persistent
#NoEnv

settimer tool_bar, 10
Gui, tool_bar:Color, 000111
Gui,  tool_bar:+AlwaysOnTop -Caption +ToolWindow +LastFound +HwndGuiHwnd_toolbar +E0x08000000

Gui, tool_bar:Add, Button, x10 y1 w25 h25 gButton1, 1
Gui, tool_bar:Add, Button, x40 y1 w25 h25 gButton2, 2
Gui, tool_bar:Add, Button, x70 y1 w25 h25 gButton3, 3
Gui, tool_bar:Add, Button, x100 y1 w25 h25 gButton4, 4
Gui, tool_bar:Add, Button, x130 y1 w25 h25 gButton5, 5
return

Button1:
SendInput, {vk31}
Return

Button2:
SendInput, {vk32}
Return

Button3:
SendInput, {vk33}
Return

Button4:
SendInput, {vk34}
Return

Button5:
SendInput, {vk35}
Return

tool_bar:
MouseGetPos,,,Hwnd_ctrl_cursor,control_ctrl_cursor
IfWinActive ahk_class AkelPad4

{
WinGetPos X_win,Y_Win,W_Win,,ahk_class AkelPad4
if (!X_win ? "" : (X_win = X_win_old)) and (!Y_win ? "" : (Y_win = Y_win_old)) and (!W_win ? "" : (W_win = W_win_old)) 
return
X_win_old := X_win
Y_win_old := Y_win
W_win_old := W_win
H_win_old := H_win
X_bar := X_win + W_win -850 
Y_bar := Y_win  
Gui, tool_bar:show, x%X_bar% y%Y_bar% NA, tool_bar_custom

}
else
{
Gui, tool_bar:Hide
X_win_old := ""
Y_win_old := ""
W_win_old := ""

}

WinSet, Transcolor, 000111, tool_bar_custom

Return

Re: AHK: Индикатор на заголовок окна

null@example.com (Malcev) — Fri, 21 Apr 2017 13:48:49 +0000

Не должно, так как вы вставили директиву #If.

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Fri, 21 Apr 2017 13:19:05 +0000

Уважаемый Malcev , у кнопок есть метка "gButton1"(к примеру), после "Button1:"(в строке ниже) должно выполнятся действие но этого не происходит .

Re: AHK: Индикатор на заголовок окна

null@example.com (Malcev) — Fri, 21 Apr 2017 12:27:07 +0000

#If создает контекстно-чувствительные горячие клавиши [hotkeys] и строки автозамены [hotstrings].
У вас в коде нет ни одного ни второго.

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Fri, 21 Apr 2017 11:41:22 +0000

Уважаемый ypppu , у вас не работает мой код из за этой строчки.

IfWinActive ahk_class AkelPad4 ; в моём коде
IfWinActive ahk_class Notepad ; в коде от yalanne

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Fri, 21 Apr 2017 04:10:46 +0000

ypppu , у меня код работает и кнопки появляются, только кнопки не реагируют на клик.

Re: AHK: Индикатор на заголовок окна

null@example.com (ypppu) — Fri, 21 Apr 2017 03:44:12 +0000

Ядрён, при запуске Вашего кода даже окно не появляется. Пример yalanne рабочий.

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Thu, 20 Apr 2017 21:48:24 +0000

Доброго времени суток. Вот решил добавить в скрипт кнопочки , но они почему то не реагируют на клик.

SetBatchLines, -1
#SingleInstance force
#Persistent
#NoEnv
SendMode Input
SetBatchLines, -1
#MaxHotkeysPerInterval
#HotkeyInterval, -1

settimer tool_bar, 10
Gui, tool_bar:Color, 000111
Gui,  tool_bar:+AlwaysOnTop -Caption +ToolWindow +LastFound +HwndGuiHwnd_toolbar
Gui, tool_bar:Add, Button, x10 y1 w25 h25 gButton1, 1
Gui, tool_bar:Add, Button, x40 y1 w25 h25 gButton2, 2
Gui, tool_bar:Add, Button, x70 y1 w25 h25 gButton3, 3
Gui, tool_bar:Add, Button, x100 y1 w25 h25 gButton4, 4
Gui, tool_bar:Add, Button, x130 y1 w25 h25 gButton5, 5
return

#if (GuiHwnd_toolbar=Hwnd_ctrl_cursor) 
Button1:
SendInput, {vk31}
#If
Return

#if (GuiHwnd_toolbar=Hwnd_ctrl_cursor) 
Button2:
 SendInput, {vk32}
#If
Return

#if (GuiHwnd_toolbar=Hwnd_ctrl_cursor) 
Button3:
SendInput, {vk33}
#If
Return

#if (GuiHwnd_toolbar=Hwnd_ctrl_cursor) 
Button4:
SendInput, {vk34}
#If
Return

#if (GuiHwnd_toolbar=Hwnd_ctrl_cursor) 
Button5:
SendInput, {vk35}
#If
Return

tool_bar:
MouseGetPos,,,Hwnd_ctrl_cursor,control_ctrl_cursor
IfWinActive ahk_class AkelPad4
{
WinGetPos X_win,Y_Win,W_Win,,ahk_class AkelPad4
if (!X_win ? "" : (X_win = X_win_old)) and (!Y_win ? "" : (Y_win = Y_win_old)) and (!W_win ? "" : (W_win = W_win_old)) 
return
X_win_old := X_win
Y_win_old := Y_win
W_win_old := W_win
H_win_old := H_win
X_bar := X_win + W_win -850 
Y_bar := Y_win  
Gui, tool_bar:show, x%X_bar% y%Y_bar% NA, tool_bar_custom
}
else
{
Gui, tool_bar:Hide
X_win_old := ""
Y_win_old := ""
W_win_old := ""

}
WinSet, Transcolor, 000111, tool_bar_custom
return

Re: AHK: Индикатор на заголовок окна

null@example.com (becauseim) — Thu, 22 Dec 2016 20:21:56 +0000

yalanne, кнопки мерцают только на Win10 или этого не избежать?

Re: AHK: Индикатор на заголовок окна

null@example.com (yalanne) — Tue, 10 Mar 2015 10:53:57 +0000

Пожалуйста. Только там надо поменять ahk_exe notepad.exe на ahk_class Notepad. Что бы только на главном окне ставились кнопки.

Re: AHK: Индикатор на заголовок окна

null@example.com (Ядрён) — Tue, 10 Mar 2015 01:07:05 +0000

Спасибо огромное вам yalanne то что нужно.