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

IDE: fixed crash on copying components with new methods, bug #13204

Browse Source 
git-svn-id: trunk@20266 -
This commit is contained in:
mattias 2009-05-27 13:59:22 +00:00
parent 092056f390
commit dcf8452b15
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/jitforms.pp
View File

@ -1701,11 +1701,15 @@ begin
// search in JIT method of stream class (e.g. ancestor)
JITMethod:=JITMethods.Find(FCurReadStreamClass,TheMethodName);
end;
if JITMethod=nil then begin
if (JITMethod=nil) and (Reader.LookupRoot<>nil) then begin
// create a fake TJITMethod
//DebugLn(['TJITComponentList.ReaderSetMethodProperty ',DbgSName(reader.LookupRoot),' TheMethodName=',TheMethodName]);
JITMethod:=JITMethods.Add(Reader.LookupRoot.ClassType,TheMethodName);
end;
Method:=JITMethod.Method;
if JITMethod<>nil then
Method:=JITMethod.Method
else
Method.Data:=nil;
end;
SetMethodProp(Instance, PropInfo, Method);