QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00
Code Issues Releases Wiki Activity

Detects __UI_DidClick as soon as a mouse button is first pressed.

Browse source
This commit is contained in:
FellippeHeitor 2018-08-31 12:12:58 -03:00
parent 3e34be42cb
commit 03d5d2e70a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
InForm/InForm.ui
View file

@ -1842,6 +1842,7 @@ SUB __UI_EventDispatcher
'Second mouse button is first pressed 'Second mouse button is first pressed
IF __UI_Mouse2IsDown = False THEN IF __UI_Mouse2IsDown = False THEN
__UI_Mouse2IsDown = True __UI_Mouse2IsDown = True
__UI_DidClick = True
__UI_Mouse2DownOnID = __UI_HoveringID __UI_Mouse2DownOnID = __UI_HoveringID
ELSE ELSE
'Second mouse button is still pressed 'Second mouse button is still pressed
@ -1852,7 +1853,6 @@ SUB __UI_EventDispatcher
__UI_Mouse2IsDown = False __UI_Mouse2IsDown = False
__UI_Mouse2DownOnID = 0 __UI_Mouse2DownOnID = 0
'Click (second mouse button) 'Click (second mouse button)
__UI_DidClick = True
IF __UI_DesignMode THEN IF __UI_DesignMode THEN
DIM RightClickSelect AS _BYTE DIM RightClickSelect AS _BYTE
RightClickSelect = True RightClickSelect = True
@ -2078,6 +2078,7 @@ SUB __UI_EventDispatcher
IF __UI_MouseButton1 THEN IF __UI_MouseButton1 THEN
'Mouse button is first pressed 'Mouse button is first pressed
IF __UI_MouseIsDown = False THEN IF __UI_MouseIsDown = False THEN
__UI_DidClick = True
__UI_MouseDownTop = __UI_MouseTop __UI_MouseDownTop = __UI_MouseTop
__UI_MouseDownLeft = __UI_MouseLeft __UI_MouseDownLeft = __UI_MouseLeft
IF __UI_DesignMode THEN IF __UI_DesignMode THEN
@ -2576,7 +2577,6 @@ SUB __UI_EventDispatcher
END IF END IF
'Click 'Click
__UI_DidClick = True
IF NOT __UI_DesignMode AND __UI_MouseDownOnID = __UI_HoveringID AND __UI_HoveringID > 0 THEN IF NOT __UI_DesignMode AND __UI_MouseDownOnID = __UI_HoveringID AND __UI_HoveringID > 0 THEN
IF NOT Control(__UI_HoveringID).Disabled THEN IF NOT Control(__UI_HoveringID).Disabled THEN
SELECT CASE Control(__UI_HoveringID).Type SELECT CASE Control(__UI_HoveringID).Type