Помогите сделать так, чтобы при передвижении мышкой картинки во 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
Вложения
Последнее редактирование: