anchor.diff:  begin
     inherited Create(AOwner);
     Name := 'RichTextView';
  -  FWidth := 100;
  -  FHeight := 100;
  +  FWidth := 150;
  +  FHeight := 70;
     FFocusable := True;
   
     FNeedVScroll := False;
  
positive.code:   CornerRect: TfpgRect;
    DrawRect: TfpgRect;
    TextRect: TfpgRect;
  begin
  writeln('DEBUG:  TRichTextView.HandlePaint >>>');
    Canvas.ClearClipRect;
    DrawBorder;
  
  
negative.code:     Canvas.Color := clButtonFace;
      Canvas.FillRectangle(CornerRect);
    end;
  //writeln('DEBUG:  TRichTextView.HandlePaint <<<');
  end;
  
  procedure TRichTextView.HandleHide;
  