anchor.diff:  
     procedure DrawLogicInline;
     begin
  +    //TODO -oBG, 15.03.2014: draw logic inline
       DrawLogicAsBlock;
  -    DrawRect.Right := DrawRect.Left + MyCell.TextWidth;
  +    //DrawRect.Right := DrawRect.Left + MyCell.TextWidth;
     end;
   
   begin {TBlock.DrawLogic}
  
positive.code: //      FRenderList.Add(Items[I]);
  //    end;
  //  end;
  
    StartCurs := Curs;
    H := 0;
  
negative.code: 
  {-$define DO_BLOCK_INLINE}
  {$ifdef DO_BLOCK_INLINE}
  {$endif}
  
  //TODO -oBG, 15.03.2014: support display:inline
  {-$define DO_PD_INLINE}
  //TODO -oBG, 15.03.2014: support display:inline
  {$ifdef DO_PD_INLINE}
  {$endif}
  
  interface
  