[fpc-devel] Component.name = "Owner"

[Martin]

I put 2 componets on my Form

A button named "foo2
a label named "Owner"  (case sensitive)

Now I try to set an anchorside of the Button to the Form. But because of 
the Form is the Buttons Owner this is streamed as
 object Button1: TButton
    AnchorSideRight.Control = Owner

And when the form is loaded, the anchorside is set to the Label, and not 
the Form....


Martin

rtl\objpas\classes\writer.inc
procedure TWriter.WriteProperty(Instance: TPersistent; PropInfo: Pointer);
...
  tkClass:
.... (line 1076)
              { Determine the correct name of the component this 
property contains }
              if Component.Owner = LookupRoot then
                Name := Component.Name
              else if Component = LookupRoot then
                Name := 'Owner'