Store and restore the maximized state of windows.

[GB.SETTINGS]
* NEW: Store and restore the maximized state of windows.

comp/src/gb.settings/.component

 [Component]
 Key=gb.settings
-Version=3.16.90
+Version=3.17.90
 Authors=Benoît Minisini

comp/src/gb.settings/.project

 # Gambas Project File 3.0
 Title=Gambas settings management
 Startup=Main
-Version=3.16.90
+Version=3.17.90
 VersionFile=1
 Authors="Benoît Minisini"
 TabSize=2

comp/src/gb.settings/.src/Settings.class

@@ -357,41 +357,25 @@ Private Sub ReadWindow(hWindow As Window, sKey As String)
 
   aPos = Me[sKey &/ "Geometry"]
 
-  If Not aPos Or If aPos.Count < 2 Then 
-    Return
-  Else
-    X = aPos[0]
-    Y = aPos[1]
-    If aPos.Count > 2 Then
-      W = aPos[2]
-      H = aPos[3]
-      If aPos.Count > 4 Then
-        S = aPos[4]
-        If S >= Screens.Count Then S = 0
-      Endif
-    Else
-      W = hWindow.W
-      H = hWindow.H
+  If Not aPos Or If aPos.Count < 2 Then Return
+  
+  X = aPos[0]
+  Y = aPos[1]
+  If aPos.Count > 2 Then
+    W = aPos[2]
+    H = aPos[3]
+    If aPos.Count > 4 Then
+      S = aPos[4]
+      If S >= Screens.Count Then S = 0
     Endif
+  Else
+    W = hWindow.W
+    H = hWindow.H
   Endif
 
   X += Screens[S].AvailableX
   Y += Screens[S].AvailableY
 
-  ' If Not hWindow.Parent And If Component.IsLoaded("gb.desktop") Then
-  '   D = -1
-  '   Try D = aPos[5]
-  '   If D >= 0 Then 
-  '     hObserver = New Observer(hWindow, True) As "Window"
-  '     hObserver.Tag = D
-  '     $cObserver[hWindow.Id] = hObserver
-  '   Endif
-  ' Endif
-
-  ' If Object.Type(hWindow) = "FHelpBrowser" Then
-  '   Print "ReadWindow: "; X;; Y; " / "; S;; Screens[S].AvailableX;; Screens[S].AvailableY
-  ' Endif
-  
   If hWindow.Resizable Then
     W = Max(32, W)
     H = Max(32, H)
@@ -404,6 +388,8 @@ Private Sub ReadWindow(hWindow As Window, sKey As String)
   Else
     If Not hWindow.Modal Then hWindow.Move(X, Y)
   Endif
+  
+  If aPos.Count > 5 And If aPos[5] Then hWindow.Maximized = True
 
 End
 
@@ -431,7 +417,7 @@ Private Sub WriteWindow(hWindow As Window, sKey As String)
     
   Endif
   
-  aVal = [X, Y, W, H, S]
+  aVal = [X, Y, W, H, S, If(hWindow.Maximized, 1, 0)]
   
   ' If Not hWindow.Parent And If Component.IsLoaded("gb.desktop") Then
   '   hDesktopWin = New DesktopWindow(hWindow.Id)