anchor.diff:             , KOL, err
            {$else}
              , SysUtils
  -           {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}, Classes{$ifend}
  +           {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}
  +           , Classes, Clipbrd
  +           {$ifend}
            {$endif}
          {$endif};
   
  
positive.code:   i: NativeUInt;
    PWeight: PSingle;
  
    Consts: record
      ScaleLine: Double;
      ScaleDiagonal: Double;
      DefaultWeightLine: Cardinal;
      DefaultWeightDiagonal: Cardinal;
    end;
  begin
    LastCount := FActualInfo.Weights.Count;
  
negative.code:       begin
          FActualInfo.Weights.SinglesDiagonal[i] := SQRT2 * PWeight^;
  
          V := CPFRound(PWeight^ * FActualInfo.Weights.ScaleDiagonal);
          if (V < FTileWeightMinimumDiagonal) then V := FTileWeightMinimumDiagonal;
          FActualInfo.Weights.CardinalsDiagonal[i] := V;
        end;
      end;
  
      // heuristics
      V := CPFRound(PSingle(@Weights.Minimum)^ * FActualInfo.Weights.ScaleLine);
      if (V > FTileWeightLimitLine) then FInfo.HeuristicsLine := FTileWeightLimitLine
      else
      if (V < FTileWeightMinimumLine) then FInfo.HeuristicsLine := FTileWeightMinimumLine
      else
      FInfo.HeuristicsLine := V;
  
      V := CPFRound(PSingle(@Weights.Minimum)^ * FActualInfo.Weights.ScaleDiagonal);
      if (V < FTileWeightMinimumDiagonal) then FInfo.HeuristicsDiagonal := FTileWeightMinimumDiagonal
      else
      FInfo.HeuristicsDiagonal := V;
    end else
    begin
      // default heuristics
      FInfo.HeuristicsLine := DefaultWeight.Line;
      FInfo.HeuristicsDiagonal := DefaultWeight.Diagonal;
    end;
  
    // simple map heuristics correction
  