anchor.diff:          Continue;
         end;
   
  -      V := CPFRound(PWeight^ * Consts.ScaleLine);
  +      V := CPFRound(PWeight^ * FActualInfo.Weights.ScaleLine);
         if (V > FTileWeightLimitLine) then V := FTileWeightLimitLine
         else
         if (V < FTileWeightMinimumLine) then V := FTileWeightMinimumLine;
  
positive.code:            , KOL, err
           {$else}
             , SysUtils
             {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}, Classes{$ifend}
           {$endif}
         {$endif};
  
  
negative.code:   begin
      Result := CellInformation(Node.Coordinates.X, Node.Coordinates.Y);
    end;
  end;
  
  function TTileMap.HotPoolInformation: string;
  begin
    {$message 'todo'}
  end;
  
  procedure TTileMap.ClipHotPoolInformation;
  begin
    Clipboard.AsText := HotPoolInformation;
  end;
  {$endif}
  
  