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

IDE: test compiler settings: show message when busy

Browse Source 
git-svn-id: trunk@40577 -
This commit is contained in:
mattias 2013-03-17 20:06:28 +00:00
parent 1cfb2f38d8
commit 734b5a522e
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/lazarusidestrconsts.pas
View File

@ -722,6 +722,9 @@ resourcestring
+'be saved before building%sIf you set the Test Directory in the ' +'be saved before building%sIf you set the Test Directory in the '
+'IDE options,%syou can create new projects and build them at ' +'IDE options,%syou can create new projects and build them at '
+'once.%sSave project?'; +'once.%sSave project?';
lisBusy = 'Busy';
lisCanNotTestTheCompilerWhileDebuggingOrCompiling = 'Can not test the '
+'compiler while debugging or compiling.';
lisProjectSuccessfullyBuilt = 'Project %s%s%s successfully built'; lisProjectSuccessfullyBuilt = 'Project %s%s%s successfully built';
lisExecutingCommandBefore = 'Executing command before'; lisExecutingCommandBefore = 'Executing command before';
lisExecutingCommandAfter = 'Executing command after'; lisExecutingCommandAfter = 'Executing command after';

6
ide/main.pp
View File

@ -6954,7 +6954,11 @@ function TMainIDE.DoTestCompilerSettings(
TheCompilerOptions: TCompilerOptions): TModalResult; TheCompilerOptions: TCompilerOptions): TModalResult;
begin begin
Result:=mrCancel; Result:=mrCancel;
if (Project1=nil) or (ToolStatus<>itNone) then exit; if (Project1=nil) or (ToolStatus<>itNone) then begin
IDEMessageDialog(lisBusy,
lisCanNotTestTheCompilerWhileDebuggingOrCompiling, mtInformation, [mbOk]);
exit;
end;
// change tool status // change tool status
CheckCompilerOptsDlg:=TCheckCompilerOptsDlg.Create(nil); CheckCompilerOptsDlg:=TCheckCompilerOptsDlg.Create(nil);