From bc9ea113b69bf11ff77fb76511ef2b45ce5105d1 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Fri, 10 Mar 2017 12:52:32 +0000
Subject: [PATCH] lcl: grid: fix repainting issues when changing bounds on
 Gtk2. Issue #31518

git-svn-id: trunk@54381 -
---
 lcl/grids.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 9495e599e7..095a9047ba 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -961,6 +961,7 @@ type
     function  DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
     procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
       const AXProportion, AYProportion: Double); override;
+    procedure DoOnChangeBounds; override;
     procedure DoOPDeleteColRow(IsColumn: Boolean; index: Integer);
     procedure DoOPExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);
     procedure DoOPInsertColRow(IsColumn: boolean; index: integer);
@@ -6927,6 +6928,13 @@ begin
   {$ifdef dbgScroll}DebugLn('doMouseWheelUP END');{$endif}
 end;
 
+procedure TCustomGrid.DoOnChangeBounds;
+begin
+  inherited DoOnChangeBounds;
+
+  VisualChange;
+end;
+
 procedure TCustomGrid.KeyDown(var Key: Word; Shift: TShiftState);
 var
   Sh, PreserveRowAutoInserted: Boolean;