diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-04 17:12:45 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-04 17:12:45 +0200 |
| commit | 363c7a1b5559b1108460ac997589169feaa2689e (patch) | |
| tree | f3204418c554e0f603e766612c33237cd1d8a659 /src | |
| parent | 67333e74574e11dded859fed169cbd27b1943c0b (diff) | |
| download | fpGUI-363c7a1b5559b1108460ac997589169feaa2689e.tar.xz | |
Speed up grid scrolling with mouse wheel x3
Diffstat (limited to 'src')
| -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 |