forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)
-   -   Действие курсора на изображение (http://forum.boolean.name/showthread.php?t=15643)

Clip 12.10.2011 20:47

Действие курсора на изображение
 
Вообщем интересует вопрос!

Не знаю как реализовать, чтобы курсор действовал на изображение)

Halk-DS 12.10.2011 21:26

Ответ: Действие курсора на изображение
 
Можно побольше деталей?
Изображение прямоугольное, или с маской? Как курсор должен действовать? При наведении? При клике?

Nex 12.10.2011 21:43

Ответ: Действие курсора на изображение
 
Код:

If MouseX() >x And MouseX() <x+ImageWidth (img) And MouseY() >y And MouseY() <y+ImageHeight(img) Then RuntimeError "тадам!"

Nerd 12.10.2011 22:15

Ответ: Действие курсора на изображение
 
LMD! RTFM! Lurk more!

Clip 12.10.2011 22:20

Ответ: Действие курсора на изображение
 
Цитата:

Сообщение от Halk-DS (Сообщение 205642)
Можно побольше деталей?
Изображение прямоугольное, или с маской? Как курсор должен действовать? При наведении? При клике?

при клике.

Nerd 12.10.2011 22:44

Ответ: Действие курсора на изображение
 
Код:

Global mCl
...
mCl = MouseHit(1)
...

Function IsClick(img,x,y)
If mCl
 If MouseX() >= x
  If MouseX() <= x+ImageWidth(img)
  If MouseY() >= y
    If MouseY() <= y+ImageHeight(img)
    Return 1
    EndIf
  EndIf
  EndIf
 EndIf
EndIf
EndFunction

(сей метод отличается от #3 большей скоростью)

RBK 12.10.2011 23:08

Ответ: Действие курсора на изображение
 
Код:

Global mCl
...
mCl = MouseHit(1)
...

Function IsClick(img,x,y)

If mCl
 If RectsOverlap(x, y, ImageWidth(img), ImageHeight(img), MouseX(), MouseY(), 1, 1)
  Return 1
 EndIf
EndIf

Return 0

EndFunction


Clip 12.10.2011 23:26

Ответ: Действие курсора на изображение
 
Всем спасибо

Alex__Noc 22.06.2012 02:08

Ответ: Действие курсора на изображение
 
чрезжопный метод!!! у меня все проще ГОРАЗДО!


Часовой пояс GMT +4, время: 17:13.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot