anchor.diff:    Y: longint;
     BottomOfLine: longint;
   begin
  -writeln('DEBUG:  DrawRichTextLayout >>>>');
  -writeln('  Layout.FNumLines = ', Layout.FNumLines);
     assert( StartLine >= 0 );
     assert( StartLine <= Layout.FNumLines );
     assert( EndLine >= 0 );
  
positive.code:   end;
  
    DrawTextBlock;
    writeln('DrawRichTextLine <<<');
  end;
  
  Procedure DrawRichTextLayout( var FontManager: TCanvasFontManager;
  
negative.code:     exit;
  
    Y := StartPoint.Y + Layout.FRichTextSettings.Margins.Top;
    LineIndex := 0;
  
    repeat
      Line := Layout.FLines^[ LineIndex ];
      BottomOfLine := Y + Line.Height + 1; // bottom pixel row is top + height + 1
  
      if // the line is in the range to be drawn
  