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

Fix statusbar text updates while refreshing ListTables. Ensure "ready" message is displayed in the end.

Browse Source
This commit is contained in:
Ansgar Becker
2008-04-15 20:46:37 +00:00
parent 1c52b14e11
commit 2be6d491ac
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/childwin.pas
View File

@@ -1903,7 +1903,7 @@ begin
// Not in cache, load table list.
OldCursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
MainForm.ShowStatus('Displaying tables from ' + db + '...', 2);
MainForm.ShowStatus('Fetching tables from "' + db + '" ...', 2);
if (mysql_version >= 32300) and (not prefPreferShowTables) then begin
ds := GetResults('SHOW TABLE STATUS FROM ' + mask(db), false, false);
end else begin
@@ -1914,6 +1914,7 @@ begin
// SELECT COUNT(*), but that would potentially be rather slow.
end;
CachedTableLists.AddObject(db, ds);
MainForm.ShowStatus(STATUS_MSG_READY, 2);
Screen.Cursor := OldCursor;
end;
Result := TDataSet(CachedTableLists.Objects[CachedTableLists.IndexOf(db)]);
@@ -2063,7 +2064,6 @@ var
begin
// DB-Properties
Screen.Cursor := crHourGlass;
MainForm.ShowStatus( 'Reading from database ' + db + '...', 2 );
Mainform.ButtonDropDatabase.Hint := 'Drop Database...|Drop Database ' + db + '...';
// Remember selected nodes
@@ -2071,6 +2071,7 @@ begin
try
ds := FetchDbTableList(db);
MainForm.ShowStatus( 'Displaying tables from "' + db + '" ...', 2 );
ListTables.BeginUpdate;
ListTables.Clear;
@@ -2196,6 +2197,7 @@ begin
ListTables.EndUpdate;
SetVTSelection(ListTables, SelectedCaptions);
Mainform.showstatus(db + ': ' + IntToStr(ListTables.RootNodeCount) +' table(s)');
MainForm.ShowStatus(STATUS_MSG_READY, 2);
Screen.Cursor := crDefault;
end;
end;