Page 1 of 1

MouseButtonRelease(#PB_MouseButton_Left)

Posted: Wed Mar 05, 2025 2:10 am
by minimy
I think will be very usefull have a command to detect when the button is released in screenmode.
Some thing like this: MouseButtonRelease(#PB_MouseButton_Left)
With only MouseButton(#PB_MouseButton_Left) is very hard to control repeats without API commands. :mrgreen:
Thanks for read this comment.

Re: MouseButtonRelease(#PB_MouseButton_Left)

Posted: Wed Mar 05, 2025 12:46 pm
by mk-soft
You don't need API. Only simple logic ...

Code: Select all

    If MouseButton(#PB_MouseButton_Left)
      If Not leftDown
        leftDown = #True
        leftUp = #False
        Debug "Left Button Down"
      EndIf
    ElseIf leftDown
      leftDown = #False
      leftUp = #True
      Debug "Left Button Up"
    EndIf

Re: MouseButtonRelease(#PB_MouseButton_Left)

Posted: Wed Mar 05, 2025 11:57 pm
by STARGĂ…TE

Code: Select all

Procedure MouseButtonRelease(Button.i)
	Static Dim Button.i(3) 
	If Button <= 3
		If MouseButton(Button)
			Button(Button) = #True
			ProcedureReturn #False
		ElseIf Button <= 3 And Button(Button)
			Button(Button) = #False
			ProcedureReturn #True
		EndIf
	EndIf
EndProcedure

Re: MouseButtonRelease(#PB_MouseButton_Left)

Posted: Tue Apr 08, 2025 12:54 am
by minimy
Thanks mk-soft and stargate, yes logic! :mrgreen: