paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 05:39:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazConfig, fix path pre-fixing

Browse Source 
git-svn-id: trunk@32782 -
This commit is contained in:
martin 2011-10-09 15:42:50 +00:00
parent 011643ec2a
commit 8518eb661d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lazconfigstorage.pas
View File

@ -672,7 +672,8 @@ var
PropCount,i : integer; PropCount,i : integer;
PropList : PPropList; PropList : PPropList;
begin begin
Path := ExtendPath(Path); // Do Not extebd the path, individual SetValue will be called, and Extend it
//Path := ExtendPath(Path);
PropCount:=GetPropList(Obj,PropList); PropCount:=GetPropList(Obj,PropList);
if PropCount>0 then begin if PropCount>0 then begin
try try
@ -690,7 +691,8 @@ var
PropCount,i : integer; PropCount,i : integer;
PropList : PPropList; PropList : PPropList;
begin begin
Path := ExtendPath(Path); // Do Not extebd the path, individual SetValue will be called, and Extend it
//Path := ExtendPath(Path);
PropCount:=GetPropList(Obj,PropList); PropCount:=GetPropList(Obj,PropList);
if PropCount>0 then begin if PropCount>0 then begin
try try