paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 20:56:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: writing method names to stream of inline components

Browse Source 
git-svn-id: trunk@15698 -
This commit is contained in:
mattias 2008-07-07 15:54:50 +00:00
parent 3246e67e23
commit 9cf5b70a7d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/customformeditor.pp
View File

@ -1376,6 +1376,9 @@ begin
try try
BinCompStream.Position:=0; BinCompStream.Position:=0;
Writer:=CreateLRSWriter(BinCompStream,DestroyDriver); Writer:=CreateLRSWriter(BinCompStream,DestroyDriver);
{$IFNDEF DisableFakeMethods}
Writer.OnWriteMethodProperty:=@WriteMethodPropertyEvent;
{$ENDIF}
Writer.OnFindAncestor:=@WriterFindAncestor; Writer.OnFindAncestor:=@WriterFindAncestor;
AncestorUnit:=AnUnitInfo.FindAncestorUnit; AncestorUnit:=AnUnitInfo.FindAncestorUnit;
Ancestor:=nil; Ancestor:=nil;

1
ide/main.pp
View File

@ -4727,7 +4727,6 @@ begin
if AncestorUnit<>nil then if AncestorUnit<>nil then
Ancestor:=AncestorUnit.Component; Ancestor:=AncestorUnit.Component;
Writer.WriteDescendent(AnUnitInfo.Component,Ancestor); Writer.WriteDescendent(AnUnitInfo.Component,Ancestor);
Writer.WriteDescendent(AnUnitInfo.Component,nil);
if DestroyDriver then Writer.Driver.Free; if DestroyDriver then Writer.Driver.Free;
FreeAndNil(Writer); FreeAndNil(Writer);
AnUnitInfo.ComponentLastBinStreamSize:=BinCompStream.Size; AnUnitInfo.ComponentLastBinStreamSize:=BinCompStream.Size;