anchor.diff:    end;
     {/@class}
     
  -  
  +function RichTextBounds(const ARichText: String; ARect: TRect; AWordWrap: Boolean): TPoint;
  +procedure RichTextDraw(const ARichText: String; ACanvas: TObject; ARect: TRect; AWordWrap: Boolean);
  +
   {/@unit}
   
   implementation
  
positive.code:   RGBList: TObjectList;
    RGB: TRichRGB;
    TextPos: TPoint;
    LineHeight: Integer;
    TextWidth: Integer;
    TextCut: Integer;
  
negative.code:   //
    TextPos := ARect.TopLeft;
    LineHeight := 0;
    MustResetLineHeight := False;
    Level := 0;
    LevelSets[Level].Alignment := MetaTextAlignmentLeft;
    //
  