anchor.diff:                              begin
                                 Inc(TextPos.Y, LineHeight);
                                 TextPos.X := ARect.Left;
  -                              LineHeight := 0;
  +                              MustResetLineHeight := True;
                               end;
                             end;
                           end;
  
positive.code:   RGBList: TObjectList;
    RGB: TRichRGB;
    TextPos: TPoint;
    LineHeight: Integer;
    TextWidth: Integer;
    TextCut: Integer;
  
negative.code:                             TextOut(TextPos.X, TextPos.Y, Copy(TokenText, 1, TextCut));
                              Inc(TextPos.X, TextWidth);
                              ASize.X := Max(ASize.X, TextPos.X);
                              if MustResetLineHeight then
                              begin
                                LineHeight := 0;
                                MustResetLineHeight := False;
                              end;
                              LineHeight := Max(LineHeight, GetTextHeight(TokenText));
                              while (TextCut < Length(TokenText)) and CharInSet(TokenText[TextCut + 1], SPACESET) do
                                Inc(TextCut);
  