From 0d4e0fc5bec96e7b0e5e4ded0c7357998ff694eb Mon Sep 17 00:00:00 2001 From: Maxim Ganetsky Date: Sun, 11 Aug 2024 16:21:37 +0300 Subject: [PATCH] FPCUnit: improved i18n --- components/fpcunit/ide/frmconsoleopts.pas | 7 +++++++ components/fpcunit/ide/strtestcaseopts.pas | 7 +++++++ 2 files changed, 14 insertions(+) diff --git a/components/fpcunit/ide/frmconsoleopts.pas b/components/fpcunit/ide/frmconsoleopts.pas index eb3fefd4d8..0f666f189d 100644 --- a/components/fpcunit/ide/frmconsoleopts.pas +++ b/components/fpcunit/ide/frmconsoleopts.pas @@ -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; diff --git a/components/fpcunit/ide/strtestcaseopts.pas b/components/fpcunit/ide/strtestcaseopts.pas index e7ff76e81e..2f6355762f 100644 --- a/components/fpcunit/ide/strtestcaseopts.pas +++ b/components/fpcunit/ide/strtestcaseopts.pas @@ -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';