From f1760e1ed2fa5e16adb3d70a886d4d23e128b55b Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 30 Mar 2006 12:38:01 +0000
Subject: [PATCH] combined use of FRootNode and FRootNodePath (fixes #1947)

git-svn-id: trunk@9053 -
---
 lcl/xmlpropstorage.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lcl/xmlpropstorage.pas b/lcl/xmlpropstorage.pas
index 96e8b06a24..ec5d4d38b8 100644
--- a/lcl/xmlpropstorage.pas
+++ b/lcl/xmlpropstorage.pas
@@ -36,7 +36,6 @@ type
     FCount: Integer;
     FFileName: String;
     FXML: TPropStorageXMLConfig;
-    FRootNode: String;
     FRootNodePath: String;
   protected
     Function GetXMLFileName: string; virtual;
@@ -51,7 +50,7 @@ type
     Procedure DoEraseSections(const ARootSection: String);override;
   public
     property FileName: String Read FFileName Write FFileName;
-    property RootNodePath: String Read FRootNode Write FRootNodePath;
+    property RootNodePath: String Read FRootNodePath Write FRootNodePath;
   end;
   
   TXMLPropStorage = class(TCustomXMLPropStorage)
@@ -122,8 +121,8 @@ end;
 
 function TCustomXMLPropStorage.RootSection: String;
 begin
-  If (FRootNode<>'') then
-    Result:=FRootNode
+  If (FRootNodePath<>'') then
+    Result:=FRootNodePath
   else
     Result:=inherited RootSection;
   Result:=FixPath(Result);