mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 20:18:20 +02:00
codetools: TCodeBufXMLConfig: property KeepFileAttributes
git-svn-id: trunk@24504 -
This commit is contained in:
parent
15a620de11
commit
5fa2b18a5f
@ -71,6 +71,7 @@ type
|
|||||||
ASource: string = ''; // init with this source
|
ASource: string = ''; // init with this source
|
||||||
ACache: TCodeCache = nil);
|
ACache: TCodeCache = nil);
|
||||||
property CodeCache: TCodeCache read FCodeCache write FCodeCache;
|
property CodeCache: TCodeCache read FCodeCache write FCodeCache;
|
||||||
|
property KeepFileAttributes: boolean read fKeepFileAttributes write fKeepFileAttributes;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
@ -400,6 +401,7 @@ begin
|
|||||||
Buf.SaveToStream(ms);
|
Buf.SaveToStream(ms);
|
||||||
ms.Position:=0;
|
ms.Position:=0;
|
||||||
Laz_XMLRead.ReadXMLFile(ADoc, ms);
|
Laz_XMLRead.ReadXMLFile(ADoc, ms);
|
||||||
|
exit; // success
|
||||||
finally
|
finally
|
||||||
ms.Free;
|
ms.Free;
|
||||||
end;
|
end;
|
||||||
@ -430,7 +432,7 @@ begin
|
|||||||
Laz_XMLWrite.WriteXMLFile(ADoc, ms);
|
Laz_XMLWrite.WriteXMLFile(ADoc, ms);
|
||||||
ms.Position:=0;
|
ms.Position:=0;
|
||||||
Buf.LoadFromStream(ms);
|
Buf.LoadFromStream(ms);
|
||||||
if Buf.Save then exit;
|
if Buf.Save then exit; // success
|
||||||
finally
|
finally
|
||||||
ms.Free;
|
ms.Free;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user