Przeglądaj źródła

FIX: XMLConfig - preserve white space

Alexander Koblov 3 lat temu
rodzic
commit
fe39bff758
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      components/doublecmd/dcxmlconfig.pas

+ 2 - 2
components/doublecmd/dcxmlconfig.pas

@@ -525,7 +525,7 @@ begin
   try
     if FileStream.Size = 0 then
       raise EXmlConfigEmpty.Create('');
-    ReadXMLFile(TmpDoc, FileStream, FilenameToURI(AFilename));
+    ReadXMLFile(TmpDoc, FileStream, FilenameToURI(AFilename), [xrfPreserveWhiteSpace]);
     if TmpDoc.DocumentElement.NodeName <> ApplicationName then
       raise EXMLReadError.Create('Root element is not <' + ApplicationName + '>.');
     FDoc.Free;
@@ -541,7 +541,7 @@ var
 begin
   if AStream.Size = 0 then
     raise EXmlConfigEmpty.Create('');
-  ReadXMLFile(TmpDoc, AStream);
+  ReadXMLFile(TmpDoc, AStream, [xrfPreserveWhiteSpace]);
   FDoc.Free;
   FDoc := TmpDoc;
 end;