unit Lingusdemo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, LanguageObjects, LanguageIcons, StdCtrls, Menus, ImgList;
type
TForm1 =
class(TForm)
GroupBox1: TGroupBox;
MainMenu1: TMainMenu;
Datei1: TMenuItem;
speichern1: TMenuItem;
laden1: TMenuItem;
Einstellungen1: TMenuItem;
Sprache1: TMenuItem;
Deutsch1: TMenuItem;
Englisch1: TMenuItem;
Franzsisch1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Englisch1Click(Sender: TObject);
procedure Deutsch1Click(Sender: TObject);
procedure Franzsisch1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Language.Translate(Self);
end;
procedure TForm1.Englisch1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0
to LanguageList.Count - 1
do
if LanguageList[i].Available
then
begin
if LanguageList[i].ID = '
en'
then
begin
Language.CurrentLanguage := LanguageList[i];
Break;
end;
end;
Language.Translate(Self);
end;
procedure TForm1.Deutsch1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0
to LanguageList.Count - 1
do
if LanguageList[i].Available
then
begin
if LanguageList[i].ID = '
de'
then
begin
Language.CurrentLanguage := LanguageList[i];
Break;
end;
end;
Language.Translate(Self);
end;
procedure TForm1.Franzsisch1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0
to LanguageList.Count - 1
do
if LanguageList[i].Available
then
begin
if LanguageList[i].ID = '
fr'
then
begin
Language.CurrentLanguage := LanguageList[i];
Break;
end;
end;
Language.Translate(Self);
end;
end.