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 /src | |
| 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.
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 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); |