anchor.diff:    tcDrawTop := 990000;
     tcDrawBot := 0;
   
  -  if CalcDisplayExtern = pdBlock then
  -    CellHeight := DoBlockLogic
  +//TODO -oBG, 15.03.2014: support display:inline
  +{$ifdef DO_PD_INLINE}
  +  if CalcDisplayExtern = pdInline then
  +    CellHeight := DoInlineLogic
     else
  -    CellHeight := DoInlineLogic;
  +{$endif}
  +    CellHeight := DoBlockLogic;
   
     Len := Curs - StartCurs;
     Result := CellHeight;
  
positive.code:     Min := Math.Max(MinCell, MargArray[piWidth]) + LeftSide + RightSide;
      Max := Math.Max(MaxCell, MargArray[piWidth]) + LeftSide + RightSide;
    end;
     {$IFDEF JPM_DEBUGGING}
     CodeSite.SendFmtMsg('Min = [%d]',[Min]);
     CodeSite.SendFmtMsg('Max = [%d]',[Max]);
  
    CodeSite.ExitMethod(Self,'TBlock.MinMaxWidth');
     {$ENDIF}
  end;
  
  {----------------TBlock.GetURL}
  
negative.code: 
    procedure DrawLogicInline;
    begin
      //TODO -oBG, 15.03.2014: draw logic inline
      DrawLogicAsBlock;
      //DrawRect.Right := DrawRect.Left + MyCell.TextWidth;
    end;
  
  begin {TBlock.DrawLogic}
  