anchor.diff:    else
     begin
       if (FFirstRow + VisibleLines - 1) < FFocusRow then
  -      FFirstRow := FFocusRow - VisibleLines + 1;
  +      FFirstRow := FFocusRow - VisibleLines;// + 1;
     end;  { if/else }
   
     if FFocusCol < FFirstCol then
  
positive.code: {
      fpGUI  -  Free Pascal GUI Library
  
      Copyright (C) 2006 - 2007 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  
negative.code: unit gui_basegrid;
  
  {$mode objfpc}{$H+}
  
  {.$Define DEBUG}
  
  