anchor.diff:    // BG, 31.12.2011: 
     TMapAreaList = class(TObjectList)
     private
  -    function getArea(Index: Integer): TMapArea;
  +    function GetArea(Index: Integer): TMapArea;
     public
  -    property Items[Index: Integer]: TMapArea read getArea; default;
  +    property Items[Index: Integer]: TMapArea read GetArea; default;
     end;
   
     TMapItem = class(TObject) {holds a client map info}
  
positive.code: {
  Version   11.5
  Copyright (c) 1995-2008 by L. David Baldwin
  Copyright (c) 2008-2013 by HtmlViewer Team
  
  Permission is hereby granted, free of charge, to any person obtaining a copy of
  this software and associated documentation files (the "Software"), to deal in
  
negative.code: { TMapAreaList }
  
  //-- BG ---------------------------------------------------------- 31.12.2011 --
  function TMapAreaList.GetArea(Index: Integer): TMapArea;
  begin
    Result := Get(Index);
  end;
  
  { TMapItem }
  