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

IDE: show HourGlass cursor while checking compiler options.

Browse Source 
git-svn-id: trunk@42051 -
This commit is contained in:
juha 2013-07-10 10:24:47 +00:00
parent 77a5f2b03c
commit 2d08d52520
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/checkcompileropts.pas
View File

@ -141,8 +141,7 @@ implementation
{$R *.lfm} {$R *.lfm}
procedure FindSpecialCharsInPath(const Path: string; out procedure FindSpecialCharsInPath(const Path: string; out HasChars: TCCOSpecialChars);
HasChars: TCCOSpecialChars);
var var
i: Integer; i: Integer;
begin begin
@ -182,8 +181,7 @@ end;
{ TCheckCompilerOptsDlg } { TCheckCompilerOptsDlg }
procedure TCheckCompilerOptsDlg.ApplicationOnIdle(Sender: TObject; procedure TCheckCompilerOptsDlg.ApplicationOnIdle(Sender: TObject; var Done: Boolean);
var Done: Boolean);
begin begin
IdleConnected:=false; IdleConnected:=false;
DoTestAll; DoTestAll;
@ -856,6 +854,7 @@ begin
CompilerFiles:=nil; CompilerFiles:=nil;
Target_PPUs:=nil; Target_PPUs:=nil;
FPC_PPUs:=nil; FPC_PPUs:=nil;
Screen.Cursor:=crHourGlass;
try try
// do not confuse the user with cached data // do not confuse the user with cached data
InvalidateFileStateCache(); InvalidateFileStateCache();
@ -953,6 +952,7 @@ begin
AddMsg(lisCCOTestsSuccess,'',-1); AddMsg(lisCCOTestsSuccess,'',-1);
finally finally
Screen.Cursor:=crDefault;
CompilerFiles.Free; CompilerFiles.Free;
CompileTool.Free; CompileTool.Free;
FTest:=cotNone; FTest:=cotNone;