opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Restore vertical and horizontal scroll offset in table list after refreshing. Fixes issue #3379.

Browse Source
This commit is contained in:
Ansgar Becker
2013-10-12 05:20:58 +00:00
parent 6976f5a4e6
commit 2b83aeafcb
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/main.pas
View File

@@ -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);