From 8518eb661d2770c91d1cdc513aeba32bb7fbb162 Mon Sep 17 00:00:00 2001 From: martin Date: Sun, 9 Oct 2011 15:42:50 +0000 Subject: [PATCH] LazConfig, fix path pre-fixing git-svn-id: trunk@32782 - --- lcl/lazconfigstorage.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lcl/lazconfigstorage.pas b/lcl/lazconfigstorage.pas index fb2382c966..9a852030a5 100644 --- a/lcl/lazconfigstorage.pas +++ b/lcl/lazconfigstorage.pas @@ -672,7 +672,8 @@ var PropCount,i : integer; PropList : PPropList; begin - Path := ExtendPath(Path); + // Do Not extebd the path, individual SetValue will be called, and Extend it + //Path := ExtendPath(Path); PropCount:=GetPropList(Obj,PropList); if PropCount>0 then begin try @@ -690,7 +691,8 @@ var PropCount,i : integer; PropList : PPropList; begin - Path := ExtendPath(Path); + // Do Not extebd the path, individual SetValue will be called, and Extend it + //Path := ExtendPath(Path); PropCount:=GetPropList(Obj,PropList); if PropCount>0 then begin try