GLScene/Demos/utilities/Language/Unit1.pas

unit Unit1;

interface

uses
  System.Classes,
  System.SysUtils,
  Vcl.Forms,
  Vcl.Controls,
  Vcl.Graphics,
  Vcl.Dialogs,
  Vcl.Menus,
  Vcl.StdCtrls,
  Vcl.ExtCtrls,

  GLS.Scene,
  GLS.Objects,
  GLS.Language;

type

  TForm1 = class(TForm)
    Button: TButton;
    GLSLanguage1: TGLSLanguage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    AboutScene: TMemo;
    mLanguage: TMenuItem;
    mEnglish: TMenuItem;
    mRussian: TMenuItem;
    mOption: TMenuItem;
    Panel1: TPanel;
    mDeutsch: TMenuItem;
    mHelp: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure mEnglishClick(Sender: TObject);
    procedure mRussianClick(Sender: TObject);
    procedure mDeutschClick(Sender: TObject);
  private
    procedure SetLanguage(const AFile: string);
  public
  end;

var
  Form1 :TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetLanguage(const AFile: string);
begin
  with GLSLanguage1 do
  begin
    LoadLanguageFromFile(AFile);
    mOption.Caption := Translate('mOption');
    mLanguage.Caption := Translate('mLanguage');
    mEnglish.Caption := Translate('mEnglish');
    mRussian.Caption := Translate('mRussian');
    mHelp.Caption := Translate('mHelp');
    Form1.Caption := Translate('Form1Caption');
    GroupBox1.Caption := Translate('GroupBox1');
    Button.Caption := Translate('Button');
    label1.Caption := Translate('label');
    Panel1.Caption := Translate('Panel1');
    AboutScene.Clear;
    AboutScene.Lines.Add(Translate('AboutScene'));
  end;
end;

procedure TForm1.mRussianClick(Sender: TObject);
begin
  SetLanguage('Russian.ini');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLanguage('English.ini');
end;

procedure TForm1.mEnglishClick(Sender: TObject);
begin
  SetLanguage('English.ini');
end;

procedure TForm1.mDeutschClick(Sender: TObject);
begin
  SetLanguage('Deutsch.ini');
end;

end.