NewsForumsCodeLogsGallerySpecsSearch

Code archives/User Input/MouseHover()

This code has been declared by its author to be Public Domain code.

Download source code

MouseHover() by asdfasdf2004
Commands for checking to see if the mouse is over an image 
Function MouseHover(image,x,y)

If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) Then
	Return True
Else
	Return False
EndIf

End Function

Function MouseClick(image,x,y,button=1)

If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) And MouseHit(button) Then
	Return True
Else
	Return False
EndIf

End Function

Comments

wizzlefish2005
Those are some useful functions, although very simple...

it is amazing what simple If statements can do.


Yo! Wazzup?2007
Cool. I changed the MouseHit() to MouseDown(), and made a demo for it.
Graphics 1280,1024,32,1
image=CreateImage(100,100)
image2=CreateImage(10,10)
SetBuffer ImageBuffer(image)
Oval 1,1,100,100,1
SetBuffer ImageBuffer(image2)
Color 255,0,0
Rect MouseX(),MouseY(),10,10,1
SetBuffer BackBuffer()
While Not KeyDown(1)
	Cls
	DrawImage image, 1,1
	DrawImage image2,MouseX(),MouseY()
	Color 255,255,255
	ishovering=MouseHover(image,1,1)
	isclicked=MouseClick(image,1,1)
	If ishovering=True Then
		Text 100,100, "Hovering!"
	EndIf
	If isclicked=True Then
		Text 100,112, "Clicked!"
	EndIf
	Flip
Wend
Function MouseHover(image,x,y)
	
	If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) Then
		Return True
	Else
		Return False
	EndIf
	
End Function

Function MouseClick(image,x,y,button=1)
	
	If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) And MouseDown(button) Then
		Return True
	Else
		Return False
	EndIf
	
End Function



cYB0rG2007
RectsOverlap already return true/false.
So, "If" is used for nothing.

Function MouseHover(image,x,y)
	
	Return RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) 
	
End Function

Function MouseClick(image,x,y,button=1)
	
	Return RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) And MouseHit(button)
	
End Function



CS_TBL2007
wazzup: a function that returns a value can be seen as some kinda variable, e.g. you can directly return it, do math with it, etc.


System4 Studios2008
Just what I needed thanks..


Code Archives Forum