BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Doubleclick and other mouseinput detection", by eelco

this function detects mousestates, such as doubleclicks and releasing for both buttons, in addition to mousehit and mousedown. simply put the mouse() function in your mainloop and the included globals will be updated.

Code

Const clicktime=300                    ;max time between doubleclick in ms. tweak as you like.
     Global leftclick,rightclick          ;=mousehit(x)
     Global leftdown,rightdown          ;=mousedown(x)
     Global leftdouble,rightdouble     ;true when double clicked
     Global lefthold,righthold          ;sort of mousedown. not true when click=true.
     Global leftrelease,rightrelease     ;true when hold is released
     Global lefttime,righttime          ;internal

;example proggy
Graphics 640,480
SetBuffer BackBuffer()
Repeat

mouse()
     Text 10,00,"Left Button"
     Text 10,10,"Click   "+leftclick
     Text 10,20,"Down    "+leftdown
     Text 10,30,"Hold    "+lefthold
     Text 10,40,"Release "+leftrelease
     Text 10,50,"Double  "+leftdouble

Text 10,100,"Right Button"
     Text 10,110,"Click   "+rightclick
     Text 10,120,"Down    "+rightdown
     Text 10,130,"Hold    "+righthold
     Text 10,140,"Release "+rightrelease
     Text 10,150,"Double  "+rightdouble
     
     Flip
     Cls

Until KeyHit(1)

Function mouse()

leftclick=False
     leftdouble=False     
     If MouseDown(1) Then
          If leftdown=True Then 
               lefthold=True 
          Else 
               leftclick=True
               If lefttime+clicktime>MilliSecs() Then leftdouble=True
               If leftdouble=False Then lefttime=MilliSecs()
          End If
          leftdown=True
     Else
          leftrelease=False
          If lefthold=True Then leftrelease=True
          leftdown=False
          lefthold=False
     End If

rightclick=False
     rightdouble=False
     If MouseDown(2) Then
          If rightdown=True Then 
               righthold=True 
          Else 
               rightclick=True
               If righttime+clicktime>MilliSecs() Then rightdouble=True
               If rightdouble=False Then righttime=MilliSecs()
          End If
          rightdown=True
     Else
          rightrelease=False
          If righthold=True Then rightrelease=True
          rightdown=False
          righthold=False
     End If
     
End Function

Code software created by Krylar's Kreations