anchor.diff:    if InDesigner then
     begin
       Canvas.TextColor := clInactiveWgFrame;
  -    Canvas.DrawString(10, 10, '<Rich text will appear here>');
  +    x := 10;
  +    DesignerPainting('<', clInactiveWgFrame);
  +    DesignerPainting('rich', clBlack, 'Arial-10:bold');
  +    DesignerPainting(' text', clRed, 'Arial-10:italic');
  +    DesignerPainting(' ', clInactiveWgFrame);
  +    DesignerPainting('will', clBlue, 'Arial-10:underline');
  +    DesignerPainting(' appear here>', clInactiveWgFrame);
  +//    Canvas.DrawString(10, 10, '<rich text will appear here>');
       Canvas.ClearClipRect;
       Exit; //==>
     end;
  
positive.code:   CornerRect: TfpgRect;
    DrawRect: TfpgRect;
    TextRect: TfpgRect;
  begin
  writeln('DEBUG:  TRichTextView.HandlePaint >>>');
    Canvas.ClearClipRect;
    DrawBorder;
  
  
negative.code: begin
    inherited Create(AOwner);
    Name := 'RichTextView';
    FWidth := 150;
    FHeight := 70;
    FFocusable := True;
  
    FNeedVScroll := False;
  