FPCUnit:

1) improved localization of FPCUnitIDE. Patch from Marcelo B Paula. Part of bug #16484. 2) Added FPCUnitIDE translations: Portuguese (from Marcelo B Paula) and Russian. git-svn-id: trunk@25468 -
2025-09-14 14:19:08 +02:00 · 2010-05-16 16:45:06 +00:00 · 2010-05-16 16:45:06 +00:00 · 8f220d96bc
commit 8f220d96bc
parent 01193ff9e0
10 changed files with 232 additions and 62 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -784,7 +784,11 @@ components/fpcunit/ide/fpcunitproject1.pas svneol=native#text/plain
 components/fpcunit/ide/languages/fpcunitlazideintf.pb.po svneol=native#text/plain
 components/fpcunit/ide/languages/fpcunitlazideintf.po svneol=native#text/plain
 components/fpcunit/ide/languages/fpcunitlazideintf.ru.po svneol=native#text/plain
+components/fpcunit/ide/languages/strtestcaseopts.pb.po svneol=native#text/plain
+components/fpcunit/ide/languages/strtestcaseopts.po svneol=native#text/plain
+components/fpcunit/ide/languages/strtestcaseopts.ru.po svneol=native#text/plain
 components/fpcunit/ide/lib/README.txt svneol=native#text/plain
+components/fpcunit/ide/strtestcaseopts.pas svneol=native#text/pascal
 components/fpcunit/ide/testcaseopts.lfm svneol=native#text/plain
 components/fpcunit/ide/testcaseopts.pas svneol=native#text/pascal
 components/fpcunit/languages/guitestrunner.pb.po svneol=native#text/plain
--- a/components/fpcunit/ide/fpcunitide.lpk
+++ b/components/fpcunit/ide/fpcunitide.lpk
@ -16,7 +16,7 @@
      </Other>
    </CompilerOptions>
    <Version Minor="1"/>
-    <Files Count="2">
+    <Files Count="3">
      <Item1>
        <Filename Value="fpcunitlazideintf.pas"/>
        <HasRegisterProc Value="True"/>
@ -26,6 +26,10 @@
        <Filename Value="fpcunitproject1.inc"/>
        <Type Value="Include"/>
      </Item2>
+      <Item3>
+        <Filename Value="strtestcaseopts.pas"/>
+        <UnitName Value="strtestcaseopts"/>
+      </Item3>
    </Files>
    <i18n>
      <EnableI18N Value="True"/>
--- a/components/fpcunit/ide/fpcunitide.pas
+++ b/components/fpcunit/ide/fpcunitide.pas
@ -1,21 +1,21 @@
-{ This file was automatically created by Lazarus. Do not edit!
-This source is only used to compile and install the package.
+{ Este arquivo foi automaticamente criado pelo Lazarus. Não edite!
+  Este fonte é usado apenas para compilar e instalar o pacote.
 }

-unit fpcunitide;
+unit fpcunitide; 

 interface

 uses
-  FPCUnitLazIDEIntf, LazarusPackageIntf;
+  FPCUnitLazIDEIntf, strtestcaseopts, LazarusPackageIntf;

 implementation

-procedure Register;
+procedure Register; 
 begin
-  RegisterUnit('FPCUnitLazIDEIntf',@FPCUnitLazIDEIntf.Register);
-end;
+  RegisterUnit('FPCUnitLazIDEIntf', @FPCUnitLazIDEIntf.Register); 
+end; 

 initialization
-  RegisterPackage('fpcunitide',@Register);
+  RegisterPackage('fpcunitide', @Register); 
 end.
--- a/components/fpcunit/ide/fpcunitlazideintf.pas
+++ b/components/fpcunit/ide/fpcunitlazideintf.pas
@ -32,7 +32,7 @@ unit FPCUnitLazIDEIntf;
 interface

 uses
-  Classes, SysUtils, LazIDEIntf, ProjectIntf, Controls, Forms,testcaseopts;
+  Classes, SysUtils, LazIDEIntf, ProjectIntf, Controls, Forms, testcaseopts;

 type
  { TFPCUnitApplicationDescriptor }
@ -298,7 +298,7 @@ begin
                   +'end;'+le;
  Result:='procedure '+TestCaseName+'.TestHookUp;'+le
    +'begin'+le
-    +'  Fail('+sWriteYourOwnTest+');'+le
+    +'  Fail('+QuotedStr(sWriteYourOwnTest)+');'+le
    +'end;'+le
    +le
    +setupMethod
--- a/components/fpcunit/ide/languages/strtestcaseopts.pb.po
+++ b/components/fpcunit/ide/languages/strtestcaseopts.pb.po
@ -0,0 +1,41 @@
+msgid ""
+msgstr ""
+"Content-Type: text/plain; charset=UTF-8\n"
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: \n"
+"Last-Translator: Marcelo Borges de Paula\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: strtestcaseopts.sbtncreate
+msgid "Create unit"
+msgstr "Criar unidade"
+
+#: strtestcaseopts.schksetup
+#, fuzzy
+#| msgid "Create Setup Menthod"
+msgid "Create Setup Method"
+msgstr "Criar Método Configuração"
+
+#: strtestcaseopts.schktear
+msgid "Create TearDown method"
+msgstr "Criar Método \"TearDown\""
+
+#: strtestcaseopts.sfrmtest
+msgid "TestCase Options"
+msgstr "Opções Testes Unitários"
+
+#: strtestcaseopts.sgrpfixture
+msgid "Fixture"
+msgstr "Combinações"
+
+#: strtestcaseopts.sgrpnames
+msgid "Names"
+msgstr "Nomes"
+
+#: strtestcaseopts.slbldefault
+msgid "Default Test Name"
+msgstr "Nome Padrão do Teste"
+
--- a/components/fpcunit/ide/languages/strtestcaseopts.po
+++ b/components/fpcunit/ide/languages/strtestcaseopts.po
@ -0,0 +1,31 @@
+msgid ""
+msgstr "Content-Type: text/plain; charset=UTF-8"
+
+#: strtestcaseopts.sbtncreate
+msgid "Create unit"
+msgstr ""
+
+#: strtestcaseopts.schksetup
+msgid "Create Setup Method"
+msgstr ""
+
+#: strtestcaseopts.schktear
+msgid "Create TearDown method"
+msgstr ""
+
+#: strtestcaseopts.sfrmtest
+msgid "TestCase Options"
+msgstr ""
+
+#: strtestcaseopts.sgrpfixture
+msgid "Fixture"
+msgstr ""
+
+#: strtestcaseopts.sgrpnames
+msgid "Names"
+msgstr ""
+
+#: strtestcaseopts.slbldefault
+msgid "Default Test Name"
+msgstr ""
+
--- a/components/fpcunit/ide/languages/strtestcaseopts.ru.po
+++ b/components/fpcunit/ide/languages/strtestcaseopts.ru.po
@ -0,0 +1,39 @@
+msgid ""
+msgstr ""
+"Content-Type: text/plain; charset=UTF-8\n"
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: \n"
+"Last-Translator: Maxim Ganetsky <maxkill@mail.ru>\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: strtestcaseopts.sbtncreate
+msgid "Create unit"
+msgstr "Создать модуль"
+
+#: strtestcaseopts.schksetup
+msgid "Create Setup Method"
+msgstr "Создать настраивающий метод"
+
+#: strtestcaseopts.schktear
+msgid "Create TearDown method"
+msgstr "Создать завершающий метод"
+
+#: strtestcaseopts.sfrmtest
+msgid "TestCase Options"
+msgstr "Параметры теста"
+
+#: strtestcaseopts.sgrpfixture
+msgid "Fixture"
+msgstr "Общие методы"
+
+#: strtestcaseopts.sgrpnames
+msgid "Names"
+msgstr "Имена"
+
+#: strtestcaseopts.slbldefault
+msgid "Default Test Name"
+msgstr "Имя теста по умолчанию"
+
--- a/components/fpcunit/ide/strtestcaseopts.pas
+++ b/components/fpcunit/ide/strtestcaseopts.pas
@ -0,0 +1,39 @@
+{ TestCase Opions Resource Strings
+
+  Copyright (C) 2010 Marcelo Borges de Paula
+
+  Estes fontes são software livre; você pode redistribuir e/ou modificá-los
+  sob os termos da GNU Library General Public License como publicada pela Free
+  Software Foundation; ou a versão 2 da Licença, ou (a sua escolha) qualquer
+  versão posterior.
+
+  Este código é distribuído na esperança de que seja útil, mas SEM
+  QUALQUER GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE ou
+  ADEQUAÇÃO A UMA FINALIDADE PARTICULAR. Veja a licença GNU General Public
+  License para maiores detalhes.
+
+  Você deve ter recebido uma cópia da licença GNU Library General Public
+  License juntamente com esta biblioteca; senão, escreva a Free Software
+  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+}
+unit strtestcaseopts;
+
+{$mode objfpc}{$H+}
+
+interface
+
+resourcestring
+  //visual components captions
+  sfrmTest = 'TestCase Options';
+  sgrpNames = 'Names';
+  slblDefault = 'Default Test Name';
+  sgrpFixture = 'Fixture';
+  schkSetup = 'Create Setup Method';
+  schkTear = 'Create TearDown method';
+  sbtnCreate = 'Create unit';
+
+
+implementation
+
+end.
+
--- a/components/fpcunit/ide/testcaseopts.lfm
+++ b/components/fpcunit/ide/testcaseopts.lfm
@ -1,93 +1,92 @@
 object TestCaseOptionsForm: TTestCaseOptionsForm
-  BorderStyle = bsDialog
-  Caption = 'TestCase Options'
-  ClientHeight = 248
-  ClientWidth = 266
-  PixelsPerInch = 95
-  Position = poScreenCenter
+  Left = 1218
+  Height = 243
+  Top = 523
+  Width = 266
  HorzScrollBar.Page = 265
  VertScrollBar.Page = 247
-  Left = 464
-  Height = 248
-  Top = 464
-  Width = 266
+  BorderStyle = bsDialog
+  Caption = 'TestCase Options'
+  ClientHeight = 243
+  ClientWidth = 266
+  OnCreate = FormCreate
+  Position = poScreenCenter
+  LCLVersion = '0.9.29'
  object gbNames: TGroupBox
-    Align = alTop
-    BorderSpacing.OnChange = nil
-    Caption = 'Names'
-    ClientHeight = 72
-    ClientWidth = 262
-    ParentColor = True
-    TabOrder = 0
+    Left = 0
    Height = 89
+    Top = 0
    Width = 266
+    Align = alTop
+    Caption = 'Names'
+    ClientHeight = 67
+    ClientWidth = 262
+    TabOrder = 0
    object Label1: TLabel
-      BorderSpacing.OnChange = nil
-      Caption = 'Default Test Name'
-      Color = clNone
-      FocusControl = edDefaultName
      Left = 16
-      Height = 12
+      Height = 18
      Top = 9
-      Width = 102
+      Width = 113
+      Caption = 'Default Test Name'
+      FocusControl = edDefaultName
+      ParentColor = False
    end
    object edDefaultName: TEdit
-      BorderSpacing.OnChange = nil
+      Left = 16
+      Height = 25
+      Top = 25
+      Width = 232
      MaxLength = 30
      TabOrder = 0
      Text = 'TTestCase1'
-      Left = 16
-      Height = 23
-      Top = 25
-      Width = 232
    end
  end
  object Panel1: TPanel
+    Left = 0
+    Height = 42
+    Top = 201
+    Width = 266
    Align = alBottom
-    BorderSpacing.OnChange = nil
    BevelOuter = bvNone
    ClientHeight = 42
    ClientWidth = 266
    FullRepaint = False
    TabOrder = 1
-    Height = 42
-    Top = 206
-    Width = 266
    object btnAccept: TButton
-      Caption = 'Create unit'
-      OnClick = btnAcceptClick
-      TabOrder = 0
      Left = 64
      Height = 25
      Top = 10
      Width = 120
+      Caption = 'Create unit'
+      OnClick = btnAcceptClick
+      TabOrder = 0
    end
  end
  object gbFixture: TGroupBox
-    Align = alClient
-    Caption = 'Fixture'
-    ClientHeight = 100
-    ClientWidth = 262
-    ParentColor = True
-    TabOrder = 2
-    Height = 117
+    Left = 0
+    Height = 112
    Top = 89
    Width = 266
+    Align = alClient
+    Caption = 'Fixture'
+    ClientHeight = 90
+    ClientWidth = 262
+    TabOrder = 2
    object cbSetup: TCheckBox
+      Left = 22
+      Height = 21
+      Top = 11
+      Width = 152
      Caption = 'Create Setup Method'
      TabOrder = 0
-      Left = 22
-      Height = 23
-      Top = 11
-      Width = 216
    end
    object cbTeardown: TCheckBox
+      Left = 22
+      Height = 21
+      Top = 59
+      Width = 181
      Caption = 'Create TearDown method'
      TabOrder = 1
-      Left = 22
-      Height = 23
-      Top = 59
-      Width = 216
    end
  end
 end
--- a/components/fpcunit/ide/testcaseopts.pas
+++ b/components/fpcunit/ide/testcaseopts.pas
@ -6,7 +6,7 @@ interface

 uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Buttons;
+  ExtCtrls, Buttons, strtestcaseopts;

 type

@ -22,6 +22,7 @@ type
    Label1: TLabel;
    Panel1: TPanel;
    procedure btnAcceptClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
@ -40,5 +41,17 @@ begin
  Close;
 end;

+procedure TTestCaseOptionsForm.FormCreate(Sender: TObject);
+begin
+  //
+  Caption := sfrmTest;
+  gbNames.Caption:= sgrpNames;
+  gbFixture.Caption:= sgrpFixture;
+  label1.Caption:= slblDefault;
+  cbSetup.Caption:= schkSetup;
+  cbTeardown.Caption:= schkTear;
+  btnAccept.Caption:= sbtnCreate;
+end;
+
 end.