anchor.diff:  
   function TMapObject.GetY: integer;
   begin
  -   Result := FPosition.Y;
  +  Result := FPosition.Y;
   end;
   
   function TMapObject.HasOptions: boolean;
  
positive.code: 
    inherited SetCollection(Value);
  
    //notify new collection
    if Assigned(Collection) then
    begin
      UpdateIdentifier;
  
negative.code:     constructor Create(AOwner: TMapObject);
      destructor Destroy; override;
  
      procedure Assign(ASource: TMapObjectTemplate);
      procedure BeforeSerialize(Sender:TObject);
      procedure BeforeDeSerialize(Sender:TObject; AData: TJSONData);
      procedure AfterSerialize(Sender:TObject; AData: TJSONData);
  