Converter: use an hourglass cursor when waiting for thread.

git-svn-id: trunk@28382 -
This commit is contained in:
juha 2010-11-22 00:00:18 +00:00
parent 05ac0535fa
commit 9944d63b2a

View File

@ -967,7 +967,12 @@ begin
try
CacheUnitsThread.Resume;
Result:=fSettings.RunForm; // Get settings from user.
CacheUnitsThread.WaitFor; // Make sure the thread has finished.
Screen.Cursor:=crHourGlass;
try
CacheUnitsThread.WaitFor; // Make sure the thread has finished.
finally
Screen.Cursor:=crDefault;
end;
if Result=mrOK then begin
// create/open lazarus project or package file
fLazPFilename:=fSettings.DelphiToLazFilename(fOrigPFilename, fLazPSuffix, false);