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

FPCUnit: improved i18n

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-08-11 16:21:37 +03:00
parent 27ae911ab9
commit 0d4e0fc5be
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpcunit/ide/frmconsoleopts.pas
View File

@ -72,10 +72,17 @@ end;
procedure TConsoleTestRunnerOptionsForm.TranslateForm;
begin
Caption:=sNewFPCUnitProgramToR;
cbRunAllTests.Caption:=sRunAllTests;
cbTestInsight.Caption:=sUseTextInsight;
cbCreateTestCase.Caption:=sCreateFirstTestCase;
lblFormat.caption:=sDefaultOutputFormat;
cbFormat.Items[0]:=sDefault;
cbFormat.Items[1]:=sXML;
cbFormat.Items[2]:=sPlainText;
cbFormat.Items[3]:=sPlainTextWithoutTimi;
cbFormat.Items[4]:=sLaTeX;
end;
procedure TConsoleTestRunnerOptionsForm.LoadForm;

7
components/fpcunit/ide/strtestcaseopts.pas
View File

@ -18,6 +18,8 @@ resourcestring
schkTear = 'Create TearDown method';
sbtnCreate = 'Create unit';
sNewFPCUnitProgramToR = 'New FPCUnit console testrunner program';
sFPCUnTestApp = 'FPCUnit Test Application';
sFPCUnTestAppDesc = 'An application to run FPCUnit test cases.';
sFPCUnTestCase = 'FPCUnit Test Case';
@ -30,6 +32,11 @@ resourcestring
sUseTextInsight = 'Use &Test Insight to communicate results to the IDE';
sCreateFirstTestCase = '&Create first test case';
sDefaultOutputFormat = 'Default output &format';
sDefault = 'Default';
sXML = 'XML';
sPlainText = 'Plain text';
sPlainTextWithoutTimi = 'Plain text without timings';
sLaTeX = 'LaTeX';
rsTestInsightTitle = 'Test Insight';
rsServerPort = 'Server port';