anchor.diff:    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}
   
  
positive.code:            , KOL, err
           {$else}
             , SysUtils
             {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}, Classes{$ifend}
           {$endif}
         {$endif};
  
  
negative.code:   published
      function CellInformation(const X, Y: Word): string;
      function NodeInformation(const Node: PCPFNode): string;
      function HotPoolInformation: string;
      procedure ClipHotPoolInformation;
    {$endif}
    public
      {$ifdef CPFLIB}procedure{$else}constructor{$endif}
  