anchor.diff:  
     inherited SetCollection(Value);
   
  -  //notify new collection
     if Assigned(Collection) then
     begin
       UpdateIdentifier;
  
positive.code: begin
    FreeAndNil(FOptions);
  
    if (FType <>'') and (FSubtype<>'') then
    begin
      FOptions := TObjectOptions.CreateByID(FType, FSubtype,Self);
    end;
  
negative.code:   inherited Destroy;
  end;
  
  procedure TMapObjectAppearance.Assign(ASource: TMapObjectTemplate);
  begin
    FAnimation := ASource.Animation;
    FEditorAnimation := ASource.EditorAnimation;
    FVisitableFrom.Assign(ASource.VisitableFrom);
    FMask.Assign(ASource.Mask);
    SetDef(ASource.Def);
    FZIndex := ASource.ZIndex;
  end;
  
  procedure TMapObjectAppearance.BeforeSerialize(Sender: TObject);
  