From 3bd5add656438f673c1095b79bf806b43c32bed5 Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Wed, 9 Dec 2009 19:10:07 +0100
Subject: [PATCH] - More adjustements to frmLogin - Added property storage to
 several frmMain options

---
 Client/UfrmLogin.lfm | 14 +++++++++-----
 Client/UfrmMain.lfm  |  8 ++++++++
 Client/UfrmMain.pas  |  9 +++++++--
 3 files changed, 24 insertions(+), 7 deletions(-)

diff --git a/Client/UfrmLogin.lfm b/Client/UfrmLogin.lfm
index 05039fb..580a057 100644
--- a/Client/UfrmLogin.lfm
+++ b/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
diff --git a/Client/UfrmMain.lfm b/Client/UfrmMain.lfm
index 775ffca..215281a 100644
--- a/Client/UfrmMain.lfm
+++ b/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
diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas
index 95407b6..eb7a274 100644
--- a/Client/UfrmMain.pas
+++ b/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;