mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 18:58:17 +02:00
Converter: use an hourglass cursor when waiting for thread.
git-svn-id: trunk@28382 -
This commit is contained in:
parent
05ac0535fa
commit
9944d63b2a
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user