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

[GB.SETTINGS]

Browse source 
* BUG: Saving the settings of a window now takes the window desktop into account only for toplevel windows.


git-svn-id: svn://localhost/gambas/trunk@8074 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2017-01-31 19:21:01 +00:00
parent 78ea41222f
commit 27214b7a03
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
comp/src/gb.settings/.src/Settings.class
View file

@ -381,14 +381,19 @@ Private Sub WriteWindow(hWindow As Window, sKey As String)
'Dim D As Integer 'Dim D As Integer
Dim aVal As Integer[] Dim aVal As Integer[]
'Dim hDesktopWin As DesktopWindow X = hWindow.X
Y = hWindow.Y
S = hWindow.Screen
X = hWindow.X - Screens[S].AvailableX
Y = hWindow.Y - Screens[S].AvailableY
W = hWindow.Width W = hWindow.Width
H = hWindow.Height H = hWindow.Height
If hWindow.TopLevel Then
S = hWindow.Screen
X -= Screens[S].AvailableX
Y -= Screens[S].AvailableY
Endif
aVal = [X, Y, W, H, S] aVal = [X, Y, W, H, S]