Помощь по AHK Gui Picture

loossklxm

Известный
Автор темы
51
2
Помогите сделать так, чтобы при передвижении мышкой картинки во 2-ой раз, картинка не возвращалась на начальное положение (0;0).
Картинку прикрепил.

Код:
AutoHotKey:
fileinstall, pictr.png, %a_temp%\pictr.png
Gui Add, Picture, x0 y0 w2000 h3000 vlal, %a_temp%\pictr.png
Gui Add, Text, x1 y0 w150 h30 +0x200 vas1
Gui Add, Text, x2 y73 w150 h30 +0x200 vas2
Gui Show, w540 h241
return

LButton::
MouseGetPos, X1, Y1
Loop
{
GetKeyState, LButtonState,LButton, P
If LButtonState = U
break
MouseGetPos, X2, Y2
X2:=X2-X1
Y2:=Y2-Y1
GuiControl,,as1, %X1% aga %Y1%
GuiControl,,as2, %X2% as %Y2%
GuiControl,Move,lal, x%X2% y%Y2%
}
return

Ответ был такой:
Код:
X4:=0
Y4:=0
fileinstall, pictr.png, %a_temp%\pictr.png
Gui Add, Picture, x0 y0 w2000 h3000 vlal, %a_temp%\pictr.png
Gui Add, Text, x1 y0 w150 h30 +0x200 vas1
Gui Add, Text, x2 y73 w150 h30 +0x200 vas2
Gui Show, w540 h241
return

LButton::
MouseGetPos, X1, Y1
Loop
{
GetKeyState, LButtonState,LButton, P
If LButtonState = U
{
X4:=X2
Y4:=Y2
break
}
MouseGetPos, X2, Y2
X2:=X2-X1+X4
Y2:=Y2-Y1+Y4
GuiControl,,as1, %X1% aga %Y1%
GuiControl,,as2, %X2% as %Y2%
GuiControl,Move,lal, x%X2% y%Y2%
}
return
 

Вложения

  • pictr.png
    pictr.png
    33.7 KB · Просмотры: 187
  • Не работает.exe
    845.5 KB · Просмотры: 9
Последнее редактирование: