From 27214b7a039203499b49711474adf411f18ea3ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Tue, 31 Jan 2017 19:21:01 +0000 Subject: [PATCH] [GB.SETTINGS] * 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 --- comp/src/gb.settings/.src/Settings.class | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/comp/src/gb.settings/.src/Settings.class b/comp/src/gb.settings/.src/Settings.class index 695424ff2..82de94fb4 100644 --- a/comp/src/gb.settings/.src/Settings.class +++ b/comp/src/gb.settings/.src/Settings.class @@ -381,14 +381,19 @@ Private Sub WriteWindow(hWindow As Window, sKey As String) 'Dim D As Integer Dim aVal As Integer[] - 'Dim hDesktopWin As DesktopWindow - - S = hWindow.Screen - - X = hWindow.X - Screens[S].AvailableX - Y = hWindow.Y - Screens[S].AvailableY + X = hWindow.X + Y = hWindow.Y W = hWindow.Width 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]