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
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
'selected and the one being clicked, emulating the
'selection rectangle.
@ -2824,8 +2824,8 @@ SUB __UI_EventDispatcher
__UI_DragY = __UI_MouseTop
__UI_DragX = __UI_MouseLeft
END IF
END IF
IF __UI_IsResizing AND __UI_ResizingID > 0 THEN
__UI_ForceRedraw = True
FOR i = 1 TO UBOUND(Control)
@ -2998,6 +2998,7 @@ SUB __UI_EventDispatcher
END IF
END IF
END IF
IF __UI_SelectionRectangle THEN
DoSelectionRectangle:
DIM tsmx AS INTEGER, tmx AS INTEGER