opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Keep selection in host subtabs on refresh

Browse Source
This commit is contained in:
Ansgar Becker
2009-01-16 00:18:23 +00:00
parent e13de2cb5f
commit 34c0cf73f8
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@ -8522,11 +8522,13 @@ var
i : Integer; i : Integer;
vt: TVirtualStringTree; vt: TVirtualStringTree;
ds: TDataSet; ds: TDataSet;
Sel: TWideStringList;
begin begin
// Display server variables // Display server variables
vt := Sender as TVirtualStringTree; vt := Sender as TVirtualStringTree;
if vt.Tag <> VTREE_NOTLOADED then if vt.Tag <> VTREE_NOTLOADED then
Exit; Exit;
Sel := GetVTCaptions(vt, True);
ResetVTNodes(vt); ResetVTNodes(vt);
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
ds := GetResults('SHOW VARIABLES'); ds := GetResults('SHOW VARIABLES');
@ -8543,6 +8545,7 @@ begin
vt.RootNodeCount := Length(VTRowDataListVariables); vt.RootNodeCount := Length(VTRowDataListVariables);
vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection); vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection);
vt.Tag := VTREE_LOADED; vt.Tag := VTREE_LOADED;
SetVTSelection(vt, Sel);
// Apply or reset filter // Apply or reset filter
editFilterVTChange(Sender); editFilterVTChange(Sender);
// Display number of listed values on tab // Display number of listed values on tab
@ -8560,11 +8563,13 @@ var
val, avg_perhour, avg_persec: WideString; val, avg_perhour, avg_persec: WideString;
valIsBytes, valIsNumber: Boolean; valIsBytes, valIsNumber: Boolean;
vt: TVirtualStringTree; vt: TVirtualStringTree;
Sel: TWideStringList;
begin begin
// Display server status key/value pairs // Display server status key/value pairs
vt := Sender as TVirtualStringTree; vt := Sender as TVirtualStringTree;
if vt.Tag <> VTREE_NOTLOADED then if vt.Tag <> VTREE_NOTLOADED then
Exit; Exit;
Sel := GetVTCaptions(vt, True);
ResetVTNodes(vt); ResetVTNodes(vt);
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
ds := GetResults( 'SHOW /*!50002 GLOBAL */ STATUS' ); ds := GetResults( 'SHOW /*!50002 GLOBAL */ STATUS' );
@ -8611,6 +8616,7 @@ begin
vt.RootNodeCount := Length(VTRowDataListStatus); vt.RootNodeCount := Length(VTRowDataListStatus);
vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection); vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection);
vt.Tag := VTREE_LOADED; vt.Tag := VTREE_LOADED;
SetVTSelection(vt, Sel);
// Apply or reset filter // Apply or reset filter
editFilterVTChange(Sender); editFilterVTChange(Sender);
// Display number of listed values on tab // Display number of listed values on tab
@ -8624,11 +8630,13 @@ var
i, j: Integer; i, j: Integer;
ds: TDataSet; ds: TDataSet;
vt: TVirtualStringTree; vt: TVirtualStringTree;
Sel: TWideStringList;
begin begin
// Display client threads // Display client threads
vt := Sender as TVirtualStringTree; vt := Sender as TVirtualStringTree;
if vt.Tag <> VTREE_NOTLOADED then if vt.Tag <> VTREE_NOTLOADED then
Exit; Exit;
Sel := GetVTCaptions(vt, True);
ResetVTNodes(vt); ResetVTNodes(vt);
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
try try
@ -8654,6 +8662,7 @@ begin
vt.RootNodeCount := Length(VTRowDataListProcesses); vt.RootNodeCount := Length(VTRowDataListProcesses);
vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection); vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection);
vt.Tag := VTREE_LOADED; vt.Tag := VTREE_LOADED;
SetVTSelection(vt, Sel);
// Apply or reset filter // Apply or reset filter
editFilterVTChange(Sender); editFilterVTChange(Sender);
// Display number of listed values on tab // Display number of listed values on tab
@ -8700,12 +8709,14 @@ var
questions: Int64; questions: Int64;
ds: TDataSet; ds: TDataSet;
vt: TVirtualStringTree; vt: TVirtualStringTree;
Sel: TWideStringList;
begin begin
// Display command statistics // Display command statistics
vt := Sender as TVirtualStringTree; vt := Sender as TVirtualStringTree;
if vt.Tag <> VTREE_NOTLOADED then if vt.Tag <> VTREE_NOTLOADED then
Exit; Exit;
Sel := GetVTCaptions(vt, True);
ResetVTNodes(vt); ResetVTNodes(vt);
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
ds := GetResults('SHOW /*!50002 GLOBAL */ STATUS LIKE ''Com\_%''' ); ds := GetResults('SHOW /*!50002 GLOBAL */ STATUS LIKE ''Com\_%''' );
@ -8724,6 +8735,7 @@ begin
vt.RootNodeCount := Length(VTRowDataListCommandStats); vt.RootNodeCount := Length(VTRowDataListCommandStats);
vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection); vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection);
vt.Tag := VTREE_LOADED; vt.Tag := VTREE_LOADED;
SetVTSelection(vt, Sel);
// Apply or reset filter // Apply or reset filter
editFilterVTChange(Sender); editFilterVTChange(Sender);
// Display number of listed values on tab // Display number of listed values on tab