- More adjustements to frmLogin

- Added property storage to several frmMain options

Client/UfrmLogin.lfm

@@ -1,13 +1,14 @@
 object frmLogin: TfrmLogin
   Left = 290
-  Height = 246
+  Height = 266
   Top = 171
   Width = 481
   ActiveControl = btnOK
+  AutoSize = True
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
   Caption = 'UO CentrED'
-  ClientHeight = 246
+  ClientHeight = 266
   ClientWidth = 481
   Font.Height = -11
   OnClose = FormClose
@@ -17,16 +18,19 @@ object frmLogin: TfrmLogin
   LCLVersion = '0.9.29'
   object lblCopyright: TLabel
     AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = gbData
+    AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 16
-    Top = 230
+    Height = 17
+    Top = 239
     Width = 481
     Alignment = taCenter
-    Anchors = [akLeft, akRight, akBottom]
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 8
     ParentColor = False
   end
   object gbConnection: TGroupBox

Client/UfrmMain.lfm

@@ -16,6 +16,7 @@ object frmMain: TfrmMain
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   Position = poScreenCenter
+  SessionProperties = 'Height;Left;Top;Width;WindowState;acFlat.Checked;acNoDraw.Checked;tbStatics.Down;tbTerrain.Down;mnuFlatShowHeight.Checked'
   ShowInTaskBar = stAlways
   LCLVersion = '0.9.29'
   WindowState = wsMaximized
@@ -2622,4 +2623,11 @@ object frmMain: TfrmMain
       OnClick = mnuFlatShowHeightClick
     end
   end
+  object XMLPropStorage1: TXMLPropStorage
+    StoredValues = <>
+    RootNodePath = 'Forms/frmMain'
+    Active = False
+    left = 368
+    top = 208
+  end
 end

Client/UfrmMain.pas

@@ -33,8 +33,9 @@ uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
   ComCtrls, OpenGLContext, GL, GLu, UGameResources, ULandscape, ExtCtrls,
   StdCtrls, Spin, UEnums, VirtualTrees, Buttons, UMulBlock, UWorldItem, math,
-  LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList, fgl,
-  ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket, UGLFont;
+  LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList,
+  XMLPropStorage, fgl, ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket,
+  UGLFont;
 
 type
   TAccessChangedListener = procedure(AAccessLevel: TAccessLevel) of object;
@@ -160,6 +161,7 @@ type
     vdtRandom: TVirtualDrawTree;
     vstChat: TVirtualStringTree;
     vstLocations: TVirtualStringTree;
+    XMLPropStorage1: TXMLPropStorage;
     procedure acBoundariesExecute(Sender: TObject);
     procedure acDeleteExecute(Sender: TObject);
     procedure acDrawExecute(Sender: TObject);
@@ -826,6 +828,9 @@ begin
   FConfigDir := GetAppConfigDir(False);
   ForceDirectories(FConfigDir);
 
+  XMLPropStorage1.FileName := FConfigDir + 'CentrED.xml';
+  XMLPropStorage1.Active := True;
+
   FLandscape := ResMan.Landscape;
   FLandscape.OnChange := @OnLandscapeChanged;
   FLandscape.OnMapChanged := @OnMapChanged;