anchor.diff:      Canvas.Color := clButtonFace;
       Canvas.FillRectangle(CornerRect);
     end;
  -writeln('DEBUG:  TRichTextView.HandlePaint <<<<');
  +//writeln('DEBUG:  TRichTextView.HandlePaint <<<');
   end;
   
   procedure TRichTextView.HandleHide;
  
positive.code:   if InDesigner then
    begin
      Canvas.TextColor := clInactiveWgFrame;
      Canvas.DrawString(10, 10, '<Rich text will appear here>');
      Canvas.ClearClipRect;
      Exit; //==>
    end;
  
negative.code:   CornerRect: TfpgRect;
    DrawRect: TfpgRect;
    TextRect: TfpgRect;
    x: integer;
  
    // Just for fun! :-)
    procedure DesignerPainting(const AText: string; AColor: TfpgColor; AFontDesc: TfpgString = '');
    var
      oldf: TfpgString;
    begin
      oldf := '';
      if AFontDesc <> '' then
      begin
        oldf := Canvas.Font.FontDesc; // save original font
        Canvas.Font := fpgGetFont(AFontDesc); // set new font
      end;
      Canvas.TextColor := AColor; // set new color
      Canvas.DrawString(x, 10, AText);
      x := x + Canvas.Font.TextWidth(AText);  // calc x offset for next text
      if oldf <> '' then
        Canvas.Font := fpgGetFont(oldf);  // restore original font
    end;
  
  begin
    ProfileEvent('TRichTextView.HandlePaint >>>');
    Canvas.ClearClipRect;
    DrawBorder;
  
  