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

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

2017-04-22T02:30:01Z

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

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

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

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

2017-04-22T02:08:18Z

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

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

2017-04-22T01:53:47Z

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

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

2017-04-22T01:28:15Z

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

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

2017-04-21T22:14:02Z

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: Индикатор на заголовок окна

2017-04-21T13:48:49Z

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

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

2017-04-21T13:19:05Z

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

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

2017-04-21T12:27:07Z

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

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

2017-04-21T11:41:22Z

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

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

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

2017-04-21T04:10:46Z

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

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

2017-04-21T03:44:12Z

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

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

2017-04-20T21:48:24Z

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

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: Индикатор на заголовок окна

2016-12-22T20:21:56Z

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

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

2015-03-10T10:53:57Z

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

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

2015-03-10T01:07:05Z

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