anchor.diff:  { TMapAreaList }
   
   //-- BG ---------------------------------------------------------- 31.12.2011 --
  -function TMapAreaList.getArea(Index: Integer): TMapArea;
  -begin
  -  Result := get(Index);
  +function TMapAreaList.GetArea(Index: Integer): TMapArea;
  +begin
  +  Result := Get(Index);
   end;
   
   { TMapItem }
  
positive.code: 
  { TMapArea }
  
  //-- BG ---------------------------------------------------------- 31.12.2011 --
  function TMapArea.PtInArea(X, Y: Integer): Boolean;
  begin
  
negative.code:     FTarget: ThtString;
      FTitle: ThtString;
    public
      destructor Destroy; override;
      function PtInArea(X, Y: Integer): Boolean;
      property HRef: ThtString read FHRef;
      property Target: ThtString read FTarget;
  