paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 04:42:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fixes for property storage classes. Issue #23644, patch from Cyrax

Browse Source 
git-svn-id: trunk@39902 -
This commit is contained in:
juha 2013-01-19 21:57:23 +00:00
parent fb537b160f
commit 3b5868962b
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/inipropstorage.pas
View File

@ -283,9 +283,9 @@ begin
try try
FInifile.ReadSections(Lines); FInifile.ReadSections(Lines);
for I := 0 to Lines.Count - 1 do begin for I := 0 to Lines.Count - 1 do begin
if (Lines[I] = IniSection) or if (Lines[I] = ARootSection) or
(IsWild(Lines[I], IniSection + '.*', False) or (IsWild(Lines[I], ARootSection + '.*', False) or
IsWild(Lines[I], IniSection + '\*', False)) then IsWild(Lines[I], ARootSection + '\*', False)) then
FInifile.EraseSection(Lines[I]); FInifile.EraseSection(Lines[I]);
end; end;
finally finally

1
lcl/propertystorage.pas
View File

@ -581,6 +581,7 @@ begin
try try
Section := RootSection; Section := RootSection;
OnWriteString := @DoWriteString; OnWriteString := @DoWriteString;
OnEraseSection := @DoEraseSections;
try try
StoreObjectsProps(Owner,AStoredList); StoreObjectsProps(Owner,AStoredList);
except except