paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 19:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

designer: don't lose component event handlers when copy component to the buffer (bug #0012505)

Browse Source 
git-svn-id: trunk@18080 -
This commit is contained in:
paul 2009-01-03 18:09:52 +00:00
parent 3657fbfe4f
commit 49277ad3f4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designer.pp
View File

@ -626,10 +626,13 @@ begin
DestroyDriver:=false;
Writer := CreateLRSWriter(BinCompStream,DestroyDriver);
Try
try
{$IFNDEF DisableFakeMethods}
Writer.OnWriteMethodProperty:=@BaseFormEditor1.WriteMethodPropertyEvent;
{$ENDIF}
Writer.Root:=FLookupRoot;
Writer.WriteComponent(CurComponent);
Finally
finally
if DestroyDriver then Writer.Driver.Free;
Writer.Destroy;
end;