Серый форум — AHK: Пользовательское контекстное меню

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Tue, 17 May 2016 11:16:37 +0000

Да, всё верно, вместо MouseClick, Left можно просто Click.

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Tue, 17 May 2016 07:43:14 +0000

serzh82saratov, забыл часть кода, добавил.

Да, с кликом наверное не получится, он деактивирует меню.

Т.е. деактивирует до момента выбора пункта меню? Значит, использовать версию, где подразумевается только перемещение указателя на исходную позицию и в начале того пункта меню, где это необходимо, добавить MouseClick, Left?

upd.: Насколько мне стало ясным, скрипт начинает некорректно работать, если я указываю пятым параметром значение 2, т.е. кликать мышью перед началом действия выбранного пункта. Т.е. буду использовать предыдущую редакцию, т.к. все равно нет необходимости в клике всегда, а только для некоторых пунктов меню.

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Tue, 17 May 2016 00:07:13 +0000

Да, с кликом наверное не получится, он деактивирует меню.

becauseim пишет:

Может, метод вызова меню, который испоьзуется в моем случае, не полностью соответствует последней редакции сценария?

Тут я даже непонимаю как оно должно появится. Нажимаем RButton и потом ждём когда его отпустят.

While (GetKeyState("RButton", "P")

И далее блок.

		Menu1.Show("Center", 10, "M",, 2) ; 1 - mousemove, 2 - mouseclick
		;~ MouseGetPos, MenuRunX, MenuRunY
		KeyWait, RButton
		Menu1.Hide(1)

Где KeyWait уже не ждёт, соответственно меню сразу исчезает.

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Mon, 16 May 2016 22:08:38 +0000

serzh82saratov, после обновления кода с Class Menu на последнюю редакцию пункты меню срабатывают некорректно, а именно срабатываемое действие не соответсвует выбранному пункту сразу после первого выбранного пункта. Но если я тестирую сценарий из 76 поста целиком, то вроде бы работает корректно. Может, метод вызова меню, который испоьзуется в моем случае, не полностью соответствует последней редакции сценария?



#If WheelDownOn
WheelDown::WheelDownCounter++
#If

$RButton::
	WheelDownOn := RButtonLong := WheelDownCounter := 0
	SetTimer, RButtonTimer, -150
	While (GetKeyState("RButton", "P") && !WheelDownCounter)
		Sleep 10
	SetTimer, RButtonTimer, Off
	WheelDownOn := 0
	If WheelDownCounter
	{
		Send {vk56}^!+{k} ; отправить V+Ctrl+Alt+Shift+K перед вызовом меню
		Menu1.Show("Center", 10, "M",, 2) ; 1 - mousemove, 2 - mouseclick
		;~ MouseGetPos, MenuRunX, MenuRunY
		KeyWait, RButton
		Menu1.Hide(1)
	}
	If !RButtonLong
		Send, {RButton}
	Else If !WheelDownCounter
		SendInput {vk56}
	Return 
	
RButtonTimer:
	RButtonLong := WheelDownOn := 1
   SendInput {vk43}
	Return

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Sun, 15 May 2016 08:21:15 +0000

becauseim пишет:

В предыдущей редакции меню появлялось по центру. Наугад поменял Center на Right, и вроде исправилось.

Любой текст кроме "Center" эквивалентен нулю.

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Sun, 15 May 2016 08:15:41 +0000

Error: Invalid option

Поправил.

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Sat, 14 May 2016 21:52:27 +0000

serzh82saratov пишет:

А что тут значит Right?

В предыдущей редакции меню появлялось по центру. Наугад поменял Center на Right, и вроде исправилось.

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Sat, 14 May 2016 21:48:34 +0000

serzh82saratov,

Error: Invalid option

Gui, %Hwnd%:Show, NA AutoSize x%sx% y%sy%

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Sat, 14 May 2016 21:45:05 +0000

becauseim пишет:

Menu1.Show("Right", 10, "M",, 1)

А что тут значит Right?

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Sat, 14 May 2016 21:43:12 +0000

Это я не то добавил, попробуйте ещё раз.

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Sat, 14 May 2016 20:36:38 +0000

serzh82saratov, после последней редакции заменил код, начиная с Class Menu , но не смотря на то, что у меня
Menu1.Show("Right", 10, "M",, 1), меню появляется в левом нижнем углу экрана. Что я сделал неправильно?

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Sat, 14 May 2016 20:00:03 +0000

serzh82saratov, не знаю, насколько ясно я выразился. В общем, догадался:


...
		Menu1.Show("Right", 10, "M",, 1)
		MouseGetPos, MenuRunX, MenuRunY
...

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Sat, 14 May 2016 19:43:27 +0000

Какие переменные? Там просто вместо 1, 2 пятым параметром.

Re: AHK: Пользовательское контекстное меню

null@example.com (becauseim) — Sat, 14 May 2016 19:40:13 +0000

serzh82saratov пишет:

Это добавил.

Открыл, но не нашел переменные координат.

Re: AHK: Пользовательское контекстное меню

null@example.com (serzh82saratov) — Sat, 14 May 2016 19:33:16 +0000

becauseim пишет:

А как можно совершить клик в эти координаты отдельным действием?

Это добавил.

becauseim пишет:

upd.: a вообще, было бы удобнее, если можно было включать или исключать возвращение курсора к месту вызова в зависимости от выбранного пункта меню. Например, добавить соответсвующий параметр в переменные.

Можно конечно всё что угодно добавить, но можно и самому, указать просто возвращать мышь, а кликать или не кликать уже из подпрограммы выбранного пункта.