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

Call Application.ProcessMessages in certain intervals while export runs, and disable most controls so nothing critical can break the export loop. See http://www.heidisql.com/forum.php?t=7174 .

Browse Source
This commit is contained in:
Ansgar Becker
2010-12-06 22:52:41 +00:00
parent 481b472c52
commit e3ce880b69
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/tabletools.pas
View File

@@ -467,6 +467,11 @@ var
begin
Screen.Cursor := crHourGlass;
// Disable critical controls so ProcessMessages is unable to do things while export is in progress
btnExecute.Enabled := False;
btnClose.Enabled := False;
tabsTools.Enabled := False;
treeObjects.Enabled := False;
if tabsTools.ActivePage = tabMaintenance then
FToolMode := tmMaintenance
else if tabsTools.ActivePage = tabFind then
@@ -480,7 +485,6 @@ begin
FFindSeeResultSQL.Clear;
Triggers := TDBObjectList.Create(False); // False, so we can .Free that object afterwards without loosing the contained objects
Views := TDBObjectList.Create(False);
TreeObjects.SetFocus;
FHeaderCreated := False;
ExitLoop := False;
SessionNode := TreeObjects.GetFirstChild(nil);
@@ -538,6 +542,9 @@ begin
Mainform.ActiveConnection.ClearDbObjects(FModifiedDbs[i]);
FModifiedDbs.Clear;
btnClose.Enabled := True;
tabsTools.Enabled := True;
treeObjects.Enabled := True;
ValidateControls(Sender);
Screen.Cursor := crDefault;
end;
@@ -1012,6 +1019,7 @@ const
LogRow[2] := FormatNumber(RowsDone) + ' / ' + FormatNumber(Percent, 0)+'%';
LogRow[3] := FormatTimeNumber((GetTickCount-StartTime) DIV 1000);
UpdateResultGrid;
Application.ProcessMessages;
end;
begin