anchor.diff:  
     Canvas.SetClipRect(clipr);
     Canvas.SetColor(FBackgroundColor);
  -  
  +
     // clearing after the last column
     if r.Left <= clipr.Right then
     begin
  
positive.code:     procedure   HScrollBarMove(Sender: TObject; position: integer);
      procedure   SetFontDesc(const AValue: string);
      procedure   SetHeaderFontDesc(const AValue: string);
      procedure   SetHeaderStyle(const AValue: TfpgGridHeaderStyle);
      procedure   SetRowSelect(const AValue: boolean);
      procedure   SetScrollBarStyle(const AValue: TfpgScrollStyle);
  
negative.code:         UpdateWindowPosition;
        end;
    end;
  
    procedure getVisWidth;
    begin
      if showV then
  