Что нового

Изменения положения изображения, относительно положения курсора

nu3dell

Осваивающий
Сообщения
139
Репутация
24
Нужно что бы $Pic двигался за курсором...
Вот сам $Pic
cursor.png

Код:
#include <GUIConstantsEx.au3>
#Include <Icons.au3>
Opt("MouseCoordMode", 0)
$Png = @ScriptDir & "\cursor.png"
GUICreate("", 400, 200)
GUISetState()
  $aCur = MouseGetPos()
$Pic = GUICtrlCreatePic('', $aCur[0], $aCur[1], 100, 51,$GUI_DISABLE)
_SetImage($Pic, $Png)
While 1
		Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
                EndSwitch
WEnd
 
Автор
nu3dell

nu3dell

Осваивающий
Сообщения
139
Репутация
24
madmasles
Я хочу через MouseGetPos() и картинка у меня будет png, с размером 100*100
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
nu3dell,
Код:
#include <GUIConstantsEx.au3>
#include <Icons.au3>

$sPng = @ScriptDir & '\cursor.png'
GUICreate('', 400, 400)
GUISetState()

$nPic = GUICtrlCreatePic('', 10, 10, 36, 36, $GUI_DISABLE)
_SetImage($nPic, $sPng)
While 1
	$aCur = GUIGetCursorInfo()
	If Not @error Then
		GUICtrlSetPos($nPic, $aCur[0] - 20, $aCur[1] - 20)
	EndIf
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
 
Верх