From 7848117fa8d118ae64555a40cf0cb178de1a98e9 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 20 Jun 2011 12:22:53 +0200
Subject: 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.
---
 src/gui/fpg_basegrid.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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);
-- 
cgit v1.2.3-70-g09d2