anchor.diff:      RePaint
     else
       inherited;
  -    
  +
     if hasChanged then
       if Assigned(FOnChange) then
         FOnChange(self);
  
positive.code: 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;
  
negative.code: 
    if not Focused then
      fpgCaret.UnSetCaret(Canvas);
  
    // The little square in the bottom right corner
    if FHScrollBar.Visible and FVScrollBar.Visible then
    begin
  