paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: Prevent the IDE freezing when cancelling the conversion. A non-started thread was waited for.

Browse Source 
git-svn-id: trunk@53890 -
This commit is contained in:
juha 2017-01-06 14:03:13 +00:00
parent 7f70c71a43
commit 714bd8024f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/convertsettings.pas
View File

@ -31,7 +31,8 @@ interface
uses
Classes, SysUtils, AVL_Tree,
Forms, Controls, Dialogs, StdCtrls, Buttons, ButtonPanel, ComCtrls,
// LCL
Forms, Controls, Dialogs, StdCtrls, Buttons, ButtonPanel, ComCtrls, LCLProc,
// LazUtils
FileUtil, LazFileUtils, DividerBevel, LazConfigStorage,
// CodeTools
@ -979,7 +980,8 @@ end;
procedure TConvertSettingsForm.CancelButtonClick(Sender: TObject);
begin
if Assigned(fCacheUnitsThread) then begin
if Assigned(fCacheUnitsThread) and fThreadStarted then
begin
(fCacheUnitsThread as TCacheUnitsThread).Searcher.Stop;
fCacheUnitsThread.WaitFor;
end;