TOPIC:

unit DefaultTranslator;

{$mode objfpc}{$H+}

interface

uses
  LCLTranslator;

implementation

initialization
  //It is safe to place code here as no form is initialized before unit
  //initialization is made
  SetDefaultLang('', '', false);

end.

unit Unit1;

{$mode objfpc}{$H+}
interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  lcltranslator, ExtCtrls;

type
  { TForm1 }
  TForm1 = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormSHow(Sender: TObject);
    procedure RadioGroup1SelectionChanged(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

resourcestring
  rsZkouKaPEklad = 'Attempt for translating: a small yellow horse';
  rsWhereIsAProb = 'Where is a problem ?';

implementation
{$R *.lfm}
{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
  Label1.Caption:= rsZkouKaPEklad;
end;

procedure TForm1.RadioGroup1SelectionChanged(Sender: TObject);
type
   TJazyky = (english,czech);
var
  jazyky:array[TJazyky] of String[2]=('en','cs');
begin
   SetDefaultLang(jazyky[TJazyky(RadioGroup1.ItemIndex)]);
end;
end.

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

..\codetyphon\CodeOcean\aa_LCLBasics\samples\translation\

..\translation\languages