Login Register
Frontpage Code library Pastebin

MouseDoubleClick()

Author: djfilbe
Added: 20.6.2011 16:50
Edited: 20.6.2011 16:50
Category: Syötteet

Description

Kertoo, onko hiiren nappulaa tuplaklikattu.

Code

Select all
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Repeat
	
	If MouseDoubleClick(1) Then AddText "Tuplaklikki"
	If MouseDown(1) Then 
		ClsColor 255,0,0
	Else
		ClsColor 0,0,0
	EndIf
	DrawScreen
Forever


Global aaika
aaika=-1
Function MouseDoubleClick(mk, timeout=300)
	If MouseUp(mk) Then
		If aaika = -1 Then
			aaika=Timer()
		ElseIf Timer()-aaika > timeout Then 
			aaika=-1
		Else
			aaika=-1
			Return 1
		EndIf
	EndIf
EndFunction

Comments

#11 Sent by: Latexi95, 21.6.2011 14:26

Sinun kannataisi tehdä tästä versio, jota voisi käyttää monella hiiren napilla saman aikaisesti. Nyt tuo menee sekaisin jos käyttää funktiota kahdelle eri näppäimelle saman aikaisesti. Laita vaan tuo "aaika" taulukkoon ja valitse taulukon solu hiiren näppäimen mukaan...
Eli vaihda "Global aaika" vaikka "Dim aaika(3) as Integer":ksi.
Ja funktiosta "aaika" "aaika(mk)":ksi, niin pitäisi toimia.

#15 Sent by: Jare, 21.8.2011 9:23

Pieni looginen virhe: Global aaika ja aaika=-1 tulisi sijoittaa ennen Repeat-lenkin alkamista. Muuten tuo muuttuja ei alussa saa muuta arvoa kuin nollan.

Leave a comment

You must be logged in to comment.