From 2b83aeafcb74afbf97861fe416a461dcb4046bfa Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 12 Oct 2013 05:20:58 +0000
Subject: [PATCH] Restore vertical and horizontal scroll offset in table list
 after refreshing. Fixes issue #3379.

---
 source/main.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/source/main.pas b/source/main.pas
index e70e56f3..3cfbce8c 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4881,6 +4881,7 @@ var
   Msg: String;
   vt: TVirtualStringTree;
   Conn: TDBConnection;
+  ScrollOffset: TPoint;
 begin
   // DB-Properties
   vt := Sender as TVirtualStringTree;
@@ -4889,6 +4890,7 @@ begin
   LogSQL('ListTablesBeforePaint', lcDebug);
   Screen.Cursor := crHourGlass;
   Conn := ActiveConnection;
+  ScrollOffset := vt.OffsetXY;
   vt.BeginUpdate;
   vt.Clear;
   Msg := '';
@@ -4928,6 +4930,7 @@ begin
       Msg := Msg + ')';
     end;
   end;
+  vt.OffsetXY := ScrollOffset;
   vt.EndUpdate;
   vt.Tag := VTREE_LOADED;
   ShowStatusMsg(Msg, 0);