paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 06:40:36 +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'; lisBusy = 'Busy';
lisCanNotTestTheCompilerWhileDebuggingOrCompiling = 'Cannot test the ' lisCanNotTestTheCompilerWhileDebuggingOrCompiling = 'Cannot test the '
+'compiler while debugging or compiling.'; +'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'; lisExecutingCommandBefore = 'Executing command before';
lisProject2 = 'Project: '; lisProject2 = 'Project: ';
lisExecutingCommandAfter = 'Executing command after'; lisExecutingCommandAfter = 'Executing command after';

7
ide/main.pp
View File

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