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

IDE: improved i18n, related to issue #39877

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-09-08 01:48:15 +03:00
parent 7e6a705caf
commit 2fb5448dde
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/lazarusidestrconsts.pas
View File

@ -894,6 +894,10 @@ resourcestring
lisBusy = 'Busy';
lisCanNotTestTheCompilerWhileDebuggingOrCompiling = 'Cannot test the '
+'compiler while debugging or compiling.';
lisNothingToDo = 'Nothing to do';
lisTheProjectHasNoCompileCommandSeePr = 'The project '
+'has no compile command.%sSee Project -> Project Options'
+' -> Compiler Options -> Compiler Commands';
lisExecutingCommandBefore = 'Executing command before';
lisProject2 = 'Project: ';
lisExecutingCommandAfter = 'Executing command after';

7
ide/main.pp
View File

@ -6795,10 +6795,9 @@ begin
exit(mrOk);
// reason is not handled
if Quiet then exit(mrCancel);
Result:=IDEMessageDialog('Nothing to do',
'The project''s compiler options has no compile command.'+LineEnding+
'See Project / Project Options / Compiler Options / Compiler Commands',mtInformation,
[mbCancel,mbIgnore]);
Result := IDEMessageDialog(lisNothingToDo,
Format(lisTheProjectHasNoCompileCommandSeePr, [LineEnding])
, mtInformation, [mbCancel,mbIgnore]);
if Result=mrIgnore then
Result:=mrOk;
end;