[bb] MouseHover() by asdfasdf [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:40

Previous topic - Next topic

BlitzBot

Title : MouseHover()
Author : asdfasdf
Posted : 1+ years ago

Description : Commands for checking to see if the mouse is over an image

Code :
Code (blitzbasic) Select
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 :


wizzlefish(Posted 1+ years ago)

 Those are some useful functions, although very simple...it is amazing what simple If statements can do.


Yo! Wazzup?(Posted 1+ years ago)

 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



cYB0rG(Posted 1+ years ago)

 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_TBL(Posted 1+ years ago)

 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 Studios(Posted 1+ years ago)

 Just what I needed thanks.. [/i]