anchor.diff:  begin
     VHeight := Height - 4;
     HWidth  := Width - 4;
  -  
  +
     if FVScrollBar.Visible then
       Dec(HWidth, FVScrollBar.Width);
     if FHScrollBar.Visible then
       Dec(VHeight, FHScrollBar.Height);
  -  
  +
     FHScrollBar.Top     := Height -FHScrollBar.Height - 2;
     FHScrollBar.Left    := 2;
     FHScrollBar.Width   := HWidth;
  
positive.code: 
    if not Focused then
      fpgCaret.UnSetCaret(Canvas);
      
    // The little square in the bottom right corner
    if FHScrollBar.Visible and FVScrollBar.Visible then
    begin
  
negative.code:     RePaint
    else
      inherited;
  
    if hasChanged then
      if Assigned(FOnChange) then
        FOnChange(self);
  