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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: In form editor, fix arrangement icons handling in forms whose menu 
  is visible.


git-svn-id: svn://localhost/gambas/trunk@3032 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2010-07-07 22:41:25 +00:00
parent 32f6172c89
commit dcb90ff594
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
app/src/gambas3/.src/Family/CFamily.class
View file

@ -157,11 +157,17 @@ End
Public Sub LeaveControl(hCont As Container, hCCtrl As CControl)
Dim hIcon As Control
Dim X, Y As Integer
'CheckIcon(hCCtrl)
'Return
hIcon = hCont.Find(Mouse.ScreenX - hCont.ScreenX, Mouse.ScreenY - hCont.ScreenY)
X = Mouse.ScreenX - hCont.ScreenX
Y = Mouse.ScreenY - hCont.ScreenY
If hCont.Window.Menus.Visible Then Y -= hCont.Window.ClientY
hIcon = hCont.Find(X, Y)
If hIcon And If $cCtrlFromIcon.Exist(Str(hIcon)) Then Return
DeleteIcon(hCCtrl)