diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-06-20 12:22:53 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-06-20 12:22:53 +0200 |
| commit | 7848117fa8d118ae64555a40cf0cb178de1a98e9 (patch) | |
| tree | a054055afeefb249a2644285d82d6c42bfa791ae | |
| parent | 1b1260086d2d9831ead84f83239260966e36a7ce (diff) | |
| download | fpGUI-7848117fa8d118ae64555a40cf0cb178de1a98e9.tar.xz | |
bug: fixed grid horizontal scrollbar size when smoothscroll is enabled.
The horizontal scrollbar was always the same size as the width of the
grid, so it couldn't actually scroll columns.
| -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 ae6584b8..6f9de311 100644 --- a/src/gui/fpg_basegrid.pas +++ b/src/gui/fpg_basegrid.pas @@ -624,7 +624,7 @@ begin begin FHScrollBar.Max := cw - vw; FHScrollBar.Position := FXOffset; - FHScrollBar.SliderSize := TotalColumnWidth / Width; + FHScrollBar.SliderSize := Width / TotalColumnWidth; end else begin @@ -1028,7 +1028,7 @@ begin FColResizing := False else begin - cw := ColumnWidth[FResizedCol]+x-FDragPos; + cw := (ColumnWidth[FResizedCol]+x)-FDragPos; if cw < 1 then cw := 1; SetColumnWidth(FResizedCol, cw); |