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

IDE: do not write properties set by components, bug #13846

Browse Source 
git-svn-id: trunk@23064 -
This commit is contained in:
mattias 2009-12-10 11:35:25 +00:00
parent 4be10ae220
commit f6e06bdcc8
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/customformeditor.pp
View File

@ -1392,14 +1392,19 @@ begin
if (DefMethodValue.Data=MethodValue.Data) if (DefMethodValue.Data=MethodValue.Data)
and (DefMethodValue.Code=MethodValue.Code) then and (DefMethodValue.Code=MethodValue.Code) then
exit; exit;
Writer.Driver.BeginProperty(Writer.PropertyPath + PPropInfo(PropInfo)^.Name);
if IsJITMethod(MethodValue) then if IsJITMethod(MethodValue) then
CurName:=TJITMethod(MethodValue.Data).TheMethodName CurName:=TJITMethod(MethodValue.Data).TheMethodName
else if MethodValue.Code<>nil then else if MethodValue.Code<>nil then begin
CurName:=Writer.LookupRoot.MethodName(MethodValue.Code) CurName:=Writer.LookupRoot.MethodName(MethodValue.Code);
else if CurName='' then begin
// this event was not set by the IDE
// for Delphi compatibility, do not write this property
// see bug 13846
exit;
end;
end else
CurName:=''; CurName:='';
Writer.Driver.BeginProperty(Writer.PropertyPath + PPropInfo(PropInfo)^.Name);
Writer.Driver.WriteMethodName(CurName); Writer.Driver.WriteMethodName(CurName);
Writer.Driver.EndProperty; Writer.Driver.EndProperty;
end; end;