MouseButtonRelease(#PB_MouseButton_Left)

[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.
Thanks for read this comment.

[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

[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

[minimy]

Thanks mk-soft and stargate, yes logic!