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

Form editor: Correctly detect stacking order changes caused by automatic arrangement.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Form editor: Correctly detect stacking order changes caused by automatic arrangement.
This commit is contained in:
gambas 2021-02-09 02:51:20 +01:00
parent 95572fb040
commit 377c34d9a5
2 changed files with 27 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/src/gambas3/.src/Editor/Form/FForm.class
View file

@ -2114,7 +2114,7 @@ Private Sub ArrangeContainer(hParent As Container, sArr As String, Optional bInv
sKey = GetSortKey(hCtrl, sArr, bInvert) sKey = GetSortKey(hCtrl, sArr, bInvert)
cSortKey[hCtrl.Name] = sKey cSortKey[hCtrl.Name] = sKey
aPos.Add(sKey) aPos.Add(sKey)
If sLastKey And If sKey >= sLastKey Then If sLastKey And If sKey < sLastKey Then
bModify = True bModify = True
Endif Endif
sLastKey = sKey sLastKey = sKey

52
app/src/gambas3/.src/Editor/Form/FForm.form
View file

@ -608,27 +608,6 @@
MoveScaled(5,11,58,39) MoveScaled(5,11,58,39)
Expand = True Expand = True
Border = False Border = False
{ panRight Panel Handle
Name = "panRight"
MoveScaled(8,16,1,1)
Background = Color.TextBackground
Mouse = Mouse.SizeE
Border = Border.Plain
}
{ panDown Panel Handle
Name = "panDown"
MoveScaled(6,18,1,1)
Background = Color.TextBackground
Mouse = Mouse.SizeS
Border = Border.Plain
}
{ panRightDown Panel Handle
Name = "panRightDown"
MoveScaled(8,18,1,1)
Background = Color.TextBackground
Mouse = Mouse.SizeNWSE
Border = Border.Plain
}
{ panTitle Panel { panTitle Panel
MoveScaled(0,0,49,5) MoveScaled(0,0,49,5)
Background = Color.SelectedBackground Background = Color.SelectedBackground
@ -663,6 +642,32 @@
} }
} }
} }
{ panMenuBar DrawingArea
MoveScaled(27,8,25,3)
Visible = False
Background = Color.Background
}
{ panRight Panel Handle
Name = "panRight"
MoveScaled(8,16,1,1)
Background = Color.TextBackground
Mouse = Mouse.SizeE
Border = Border.Plain
}
{ panDown Panel Handle
Name = "panDown"
MoveScaled(6,18,1,1)
Background = Color.TextBackground
Mouse = Mouse.SizeS
Border = Border.Plain
}
{ panRightDown Panel Handle
Name = "panRightDown"
MoveScaled(8,18,1,1)
Background = Color.TextBackground
Mouse = Mouse.SizeNWSE
Border = Border.Plain
}
{ panBorder DrawingArea { panBorder DrawingArea
MoveScaled(29,13,24,24) MoveScaled(29,13,24,24)
Background = Color.Background Background = Color.Background
@ -703,11 +708,6 @@
NoBackground = True NoBackground = True
} }
} }
{ panMenuBar DrawingArea
MoveScaled(27,8,25,3)
Visible = False
Background = Color.Background
}
} }
{ dwgBackground DrawingArea { dwgBackground DrawingArea
MoveScaled(76,26,12,9) MoveScaled(76,26,12,9)