luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Toolbar: Drag & drop should not crash anymore because of the previous change in the Parent property.

Browse source 
[GB.FORM.MDI]
* BUG: Toolbar: Drag & drop should not crash anymore because of the previous change in the Parent property.
This commit is contained in:
gambas 2018-11-20 12:14:18 +01:00
parent 44a3f5f664
commit 83c39796eb
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class
View file

@ -899,8 +899,8 @@ Public Sub Form_DragMove()
Return
Endif
While hCtrl.Parent <> panToolBar
hCtrl = hCtrl.Parent
While hCtrl._Parent <> panToolBar
hCtrl = hCtrl._Parent
Wend
If hCtrl = panWhere Then Return
@ -966,8 +966,8 @@ Private Sub OnMouseDrag(hCtrl As Control)
Dim sAction As String
While hCtrl.Parent <> panToolBar
hCtrl = hCtrl.Parent
While hCtrl._Parent <> panToolBar
hCtrl = hCtrl._Parent
'Debug "-> "; hCtrl
Wend