anchor.diff:  
   procedure TRichTextView.UpdateScrollBarCoords;
   var
  -  HWidth: integer;
  -  VHeight: integer;
  -begin
  -  VHeight := Height - 4;
  -  HWidth  := Width - 4;
  -
  -  if FVScrollBar.Visible then
  -    Dec(HWidth, FScrollbarWidth);
  -  if FHScrollBar.Visible then
  -    Dec(VHeight, FScrollbarWidth);
  -
  -  FHScrollBar.Top     := Height - 2 - FScrollbarWidth;
  -  FHScrollBar.Left    := 2;
  -  FHScrollBar.Width   := HWidth;
  -
  -  FVScrollBar.Top     := 2;
  -  FVScrollBar.Left    := Width - 2 - FScrollbarWidth;
  -  FVScrollBar.Height  := VHeight;
  +  r: TfpgRect;
  +begin
  +  r := GetDrawRect; // this includes borders and scrollbars
  +
  +  FHScrollBar.Top     := r.Bottom+1;
  +  FHScrollBar.Left    := r.Left;
  +  FHScrollBar.Width   := r.Width;
  +
  +  FVScrollBar.Top     := r.Top;
  +  FVScrollBar.Left    := r.Right+1;
  +  FVScrollBar.Height  := r.Height;
   
     FVScrollBar.UpdateWindowPosition;
     FHScrollBar.UpdateWindowPosition;
  
positive.code:   CornerRect: TfpgRect;
    TextRect: TfpgRect;
    DrawRect: TfpgRect;
    x: integer;
  
    // Just for fun! :-)
    procedure DesignerPainting(const AText: string; AColor: TfpgColor; AFontDesc: TfpgString = '');
  
negative.code:   published
      property Align;
      property BackgroundColor default clBoxColor;
      property BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault;
      //property ParentColor;
      //property ParentFont;
      //property ParentPenColor;
  