paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 03:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

project groups: mark loaded xml as unmodified

Browse Source 
git-svn-id: branches/fixes_2_0@62123 -
This commit is contained in:
mattias 2019-10-26 11:41:22 +00:00
parent 5fdb58f915
commit 9719246c80
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/projectgroups/projectgroup.pp
View File

@ -283,6 +283,7 @@ begin
end; end;
try try
Result:=TXMLConfig.CreateWithSource(aFilename,Code.Source); Result:=TXMLConfig.CreateWithSource(aFilename,Code.Source);
Result.Modified:=false;
except except
on E: Exception do begin on E: Exception do begin
debugln(['Error: (lazarus) [TIDECompileTarget.LoadXML] xml syntax error in "',aFilename,'": '+E.Message]); debugln(['Error: (lazarus) [TIDECompileTarget.LoadXML] xml syntax error in "',aFilename,'": '+E.Message]);