anchor.diff:  
   
   begin
  -writeln('DrawRichTextLine >>>');
     P := Line.Text;
     EndP := Line.Text + Line.Length;
   
  
positive.code:   Y: longint;
    BottomOfLine: longint;
  begin
  writeln('DEBUG:  DrawRichTextLayout >>>>');
  writeln('  Layout.FNumLines = ', Layout.FNumLines);
    assert( StartLine >= 0 );
    assert( StartLine <= Layout.FNumLines );
    assert( EndLine >= 0 );
  
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
  