EnvironmentOptions: When saving data, don't destroy any existing xml. (if data on disk changed)

This commit is contained in:
Martin 2022-12-28 03:25:05 +01:00
parent 49c2c20c36
commit 774b11bf18

View File

@ -2652,7 +2652,13 @@ var
xActiveDesktopName: string;
begin
try
InitXMLCfg(true);
// Don't discard any loaded XML
// It is not consistent to normally keep it,
// yet discard it if the file changed on disk (especially since the changed file will be overwritten anyway)
if (FXMLCfg=nil) then
InitXMLCfg(true)
else
FXMLCfg.Filename := FFilename;
// ToDo: Get rid of EnvironmentOptions/ path. The whole file is about
// environment options. Many section are not under it any more.
Path:='EnvironmentOptions/';