paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: Add optional ReaderRoot parameter to ReadComponentFromBinaryStream function by Alexander S. Klenin (feature #0018678)

Browse Source 
git-svn-id: trunk@29370 -
This commit is contained in:
paul 2011-02-04 06:33:07 +00:00
parent 10a078069c
commit e1704e541d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lresources.pp
View File

@ -487,7 +487,8 @@ procedure ReadComponentFromBinaryStream(AStream: TStream;
var RootComponent: TComponent;
OnFindComponentClass: TFindComponentClassEvent;
TheOwner: TComponent = nil;
Parent: TComponent = nil);
Parent: TComponent = nil;
ReaderRoot: TComponent = nil);
procedure WriteComponentAsTextToStream(AStream: TStream;
AComponent: TComponent);
procedure ReadComponentFromTextStream(AStream: TStream;
@ -913,7 +914,7 @@ end;
procedure ReadComponentFromBinaryStream(AStream: TStream;
var RootComponent: TComponent;
OnFindComponentClass: TFindComponentClassEvent; TheOwner: TComponent;
Parent: TComponent);
Parent: TComponent; ReaderRoot: TComponent);
var
DestroyDriver: Boolean;
Reader: TReader;
@ -956,7 +957,10 @@ begin
try
UniqueNamer:=TReaderUniqueNamer.Create;
Reader:=CreateLRSReader(AStream,DestroyDriver);
Reader.Root:=RootComponent;
if ReaderRoot = nil then
Reader.Root:=RootComponent
else
Reader.Root:=ReaderRoot;
Reader.Owner:=TheOwner;
Reader.Parent:=Parent;
Reader.OnFindComponentClass:=OnFindComponentClass;