paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpdoceditor: preserve space of other elements, current element needs special

Browse Source 
git-svn-id: trunk@35253 -
This commit is contained in:
mattias 2012-02-08 23:49:00 +00:00
parent 9a1c0d2141
commit 431bef0ffe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codehelp.pas
View File

@ -1304,7 +1304,7 @@ begin
PackageNode.AppendChild(ModuleNode);
// write the XML to a string
ms:=TMemoryStream.Create;
WriteXMLFile(Doc,ms);
WriteXMLFile(Doc,ms,[xwfPreserveWhiteSpace]);
ms.Position:=0;
SetLength(s,ms.Size);
if s<>'' then
@ -1416,7 +1416,7 @@ begin
MemStream.Position:=0;
Result:=chprFailed;
try
ReadXMLFile(ADocFile.Doc,MemStream,CurFilename);
ReadXMLFile(ADocFile.Doc,MemStream,CurFilename,[xrfPreserveWhiteSpace]);
ADocFile.DocErrorMsg:='';
Result:=chprSuccess;
except
@ -1469,7 +1469,7 @@ begin
// write Doc to xml stream
try
ms:=TMemoryStream.Create;
WriteXMLFile(ADocFile.Doc, ms);
WriteXMLFile(ADocFile.Doc,ms,[xwfPreserveWhiteSpace]);
ms.Position:=0;
SetLength(s,ms.Size);
if s<>'' then