diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-27 10:03:06 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-27 10:03:06 +0000 |
| commit | fd6e57484ec8a71e1eb7353ffb1cc27833f6e49d (patch) | |
| tree | af66963351879b2f3427683bb056d67bf8d2f428 | |
| parent | ccd60509825aa85b2f1d06274fa843073b8cf21f (diff) | |
| download | fpGUI-fd6e57484ec8a71e1eb7353ffb1cc27833f6e49d.tar.xz | |
* Fixed the annoying bug in grids where you clicked the last visible row and the grid scrolled for no reason.
| -rw-r--r-- | src/gui/gui_basegrid.pas | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/gui/gui_basegrid.pas b/src/gui/gui_basegrid.pas index 558c0c70..3ff8a6ea 100644 --- a/src/gui/gui_basegrid.pas +++ b/src/gui/gui_basegrid.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Library - Copyright (C) 2006 - 2007 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -19,12 +19,6 @@ unit gui_basegrid; {$mode objfpc}{$H+} -{ - TODO: - * Selecting the last fully visible row, scrolls the grid. Selection - is correct, but because of the scroll it is confusing. -} - {.$Define DEBUG} interface @@ -1062,7 +1056,7 @@ begin else begin if (FFirstRow + VisibleLines - 1) < FFocusRow then - FFirstRow := FFocusRow - VisibleLines + 1; + FFirstRow := FFocusRow - VisibleLines;// + 1; end; { if/else } if FFocusCol < FFirstCol then |