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

Fixes not being able to shift+resize.

Browse source 
Regression had been introduced with 3a591f0011
This commit is contained in:
FellippeHeitor 2018-06-13 11:30:22 -03:00
parent b753dff066
commit 38919c59e3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
InForm/InForm.ui
View file

@ -1884,7 +1884,7 @@ SUB __UI_EventDispatcher
END IF END IF
END IF END IF
ELSEIF _KEYDOWN(100303) OR _KEYDOWN(100304) THEN ELSEIF _KEYDOWN(100303) OR _KEYDOWN(100304) THEN
IF Control(__UI_HoveringID).Type <> __UI_Type_Frame AND Control(__UI_HoveringID).Type <> __UI_Type_Form AND Control(__UI_HoveringID).Type <> __UI_Type_Font AND Control(__UI_HoveringID).Type <> __UI_Type_MenuItem AND Control(__UI_HoveringID).Type <> __UI_Type_MenuPanel AND Control(__UI_HoveringID).Type <> __UI_Type_ContextMenu AND Control(__UI_HoveringID).Type <> __UI_Type_MenuBar THEN IF __UI_FirstSelectedID <> __UI_HoveringID AND Control(__UI_HoveringID).Type <> __UI_Type_Frame AND Control(__UI_HoveringID).Type <> __UI_Type_Form AND Control(__UI_HoveringID).Type <> __UI_Type_Font AND Control(__UI_HoveringID).Type <> __UI_Type_MenuItem AND Control(__UI_HoveringID).Type <> __UI_Type_MenuPanel AND Control(__UI_HoveringID).Type <> __UI_Type_ContextMenu AND Control(__UI_HoveringID).Type <> __UI_Type_MenuBar THEN
'Select all controls in the range between the first 'Select all controls in the range between the first
'selected and the one being clicked, emulating the 'selected and the one being clicked, emulating the
'selection rectangle. 'selection rectangle.
@ -2824,8 +2824,8 @@ SUB __UI_EventDispatcher
__UI_DragY = __UI_MouseTop __UI_DragY = __UI_MouseTop
__UI_DragX = __UI_MouseLeft __UI_DragX = __UI_MouseLeft
END IF
END IF
IF __UI_IsResizing AND __UI_ResizingID > 0 THEN IF __UI_IsResizing AND __UI_ResizingID > 0 THEN
__UI_ForceRedraw = True __UI_ForceRedraw = True
FOR i = 1 TO UBOUND(Control) FOR i = 1 TO UBOUND(Control)
@ -2998,6 +2998,7 @@ SUB __UI_EventDispatcher
END IF END IF
END IF END IF
END IF END IF
IF __UI_SelectionRectangle THEN IF __UI_SelectionRectangle THEN
DoSelectionRectangle: DoSelectionRectangle:
DIM tsmx AS INTEGER, tmx AS INTEGER DIM tsmx AS INTEGER, tmx AS INTEGER