[GB.GUI.BASE]

* BUG: GridView: Stop the scrolling timer when focus is lost, as if you open a modal dialog during a MouseDown event, you don't get the MouseUp event! Maybe I should systematically raise a fake MouseUp event when focus is lost, and QT didn't send it.


git-svn-id: svn://localhost/gambas/trunk@7930 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.gui.base/.info

@@ -868,6 +868,10 @@ ScrollArea_MouseUp
 m
 
 
+ScrollArea_LostFocus
+m
+
+
 ScrollArea_DragLeave
 m
 

comp/src/gb.gui.base/.src/GridView/GridView.class

@@ -1264,7 +1264,7 @@ End
 ' End
 
 Private Sub AfterMouseUp()
-  
+
   If Me.Design Then Return
   If _NoMouse Then Return
   
@@ -1285,12 +1285,11 @@ End
 
 Public Sub ScrollArea_MouseUp()
   
-  'If $iMode = Select.Multiple And $bInRow And If $iRow = $iMoveSelectRow Then
-  '  If Mouse.Normal Then
-  '    $hRows._GetSel().UnSelectAll
-  '    $hRows.Select($iRow, 1)
-  '  Endif
-  'Endif
+  AfterMouseUp
+  
+End
+
+Public Sub ScrollArea_LostFocus()
   
   AfterMouseUp
   

comp/src/gb.gui.base/.startup

@@ -2,7 +2,7 @@ FGridView
 gb.gui.base
 0
 0
-3.8.90
+3.9.90
 
 gb.image
 gb.gui