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

Converter: use an hourglass cursor when waiting for thread.

Browse Source 
git-svn-id: trunk@28382 -
This commit is contained in:
juha 2010-11-22 00:00:18 +00:00
parent 05ac0535fa
commit 9944d63b2a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
converter/convertdelphi.pas
View File

@ -967,7 +967,12 @@ begin
try try
CacheUnitsThread.Resume; CacheUnitsThread.Resume;
Result:=fSettings.RunForm; // Get settings from user. 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 if Result=mrOK then begin
// create/open lazarus project or package file // create/open lazarus project or package file
fLazPFilename:=fSettings.DelphiToLazFilename(fOrigPFilename, fLazPSuffix, false); fLazPFilename:=fSettings.DelphiToLazFilename(fOrigPFilename, fLazPSuffix, false);