anchor.diff:              if CellObj.FSpecHt.Value < SpecRowHeight.Value then
                 CellObj.FSpecHt.Value := SpecRowHeight.Value;
   
  +          wtNone,
             wtRelative: // percentage is stronger
               CellObj.FSpecHt := SpecRowHeight;
  +
           else
             // keep specified absolute value
           end;
  
positive.code:           // keep specified absolute value
          end;
  
      else
        case CellObj.FSpecHt.VType of
          wtAbsolute:
            if CellObj.FSpecHt.Value < SpecRowHeight.Value then
              CellObj.FSpecHt.Value := SpecRowHeight.Value;
        else
          // absolute value is stronger
          CellObj.FSpecHt := SpecRowHeight;
        end;
      end;
    end;
  end;
  
negative.code:         Inc(Cnt, J);
        until Cnt >= NN;
  
      {if there are images or line-height, then maybe they add extra space}
      SB := 0; // vertical space before DHt / Text
      SA := 0; // vertical space after DHt / Text
      if LineHeight > DHt then
      begin
        // BG, 28.08.2011: too much space below an image: SA and SB depend on Align:
        case Align of
          aTop:
            SA := LineHeight - DHt;
  
          aMiddle:
            begin
              SB := (LineHeight - DHt) div 2;
              SA := (LineHeight - DHt) - SB;
            end;
        else
  //        aNone:
  //        aBaseline,
  //        aBottom:
            SB := LineHeight - DHt;
        end;
      end
      else if LineHeight >= 0 then
      begin
        SB := (LineHeight - DHt) div 2;
        SA := (LineHeight - DHt) - SB;
      end;
  
      Cnt := 0;
      repeat
        Cnt := Cnt + Images.GetImageCountAt(PStart - Buff + Cnt);
  