diff options
| -rw-r--r-- | src/gui/fpg_basegrid.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gui/fpg_basegrid.pas b/src/gui/fpg_basegrid.pas index 9a29e004..051d1adb 100644 --- a/src/gui/fpg_basegrid.pas +++ b/src/gui/fpg_basegrid.pas @@ -931,10 +931,10 @@ begin lCol := FFirstCol; if delta > 0 then // scroll down - inc(FFirstRow, abs(delta)) + inc(FFirstRow, abs(delta)*3) else // scroll up if FFirstRow > 0 then - dec(FFirstRow, abs(delta)); + dec(FFirstRow, abs(delta)*3); // apply limits if FFirstRow > RowCount - VisibleLines then |