On Thursday 03 April 2008 10.58:26 Michael Van Canneyt wrote: > On Thu, 3 Apr 2008, Martin Schreiber wrote: > > You used my copyrighted code, the sources look exactly the same. ;-) > > A strong case against all these copyright suits... :-) > And we made the same error, see attachment. It is a little bit more complicated. I hope I got the coding style right. ;-)
Martin
--- home/mse/packs/standard/svn/fp/trunk/rtl/objpas/classes/.svn/text-base/writer.inc.svn-base 2008-04-03 11:06:35.000000000 +0200 +++ tmp/svndiff.tmp 2008-04-04 11:51:29.000000000 +0200 @@ -595,10 +595,15 @@ begin Dummy:=0; Flags := []; - If Assigned(FAncestor) then - Flags:=[ffInherited]; - if csInline in Instance.ComponentState then - Flags:=Flags+[ffInline]; + If (FAncestor <> nil) and + //has ancestor + (not (csInline in Instance.ComponentState) or + //no inline component + (csAncestor in Instance.Componentstate) and (FAncestors <> nil)) then + //the inline component is inherited + Flags:=[ffInherited] + else If csInline in Instance.ComponentState then + Flags:=[ffInline]; FDriver.BeginComponent(Instance,Flags, Dummy); WriteProperties(Instance); WriteListEnd;
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
