AppFeaturesPkg/examples/AppLocalizer/src/fm_main.pas at master · riva-lab/AppFeaturesPkg · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit fm_main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls,
  fm_second,
  AppLocalizer, i18n;

type

  { TForm1 }

  TForm1 = class(TForm)
    PageControl1: TPageControl;
    tsTab1:       TTabSheet;
    tsTab2:       TTabSheet;
    Panel1:       TPanel;
    cbLang:       TComboBox;
    Label1:       TLabel;
    cbTest:       TComboBox;
    Label2:       TLabel;
    lbTest:       TListBox;
    Label3:       TLabel;
    cbAuto:       TComboBox;
    Label4:       TLabel;
    btnSecond:    TButton;

    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbLangChange(Sender: TObject);
    procedure btnSecondClick(Sender: TObject);

  private
    procedure OnLangChange(Sender: TObject);

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
  begin
    appLocalizerEx.AddOnLanguageChangeHandler(@OnLangChange);
    appLocalizerEx.Load(
      Format('%0:slang%0:slanguages.ini', [DirectorySeparator]),
      Format('%0:slang%0:sAppLocalizer', [DirectorySeparator]));
    //Caption         := appLocalizerEx.IniFile;
  end;

procedure TForm1.FormShow(Sender: TObject);
  begin
    cbAuto.Items.Add('auto 1');
    cbAuto.Items.Add('auto 2');
    cbAuto.Items.Add('auto 3');

    cbLang.Items.SetStrings(appLocalizerEx.Languages);
    cbLang.ItemIndex := 0;
    cbLangChange(Sender);
  end;

procedure TForm1.cbLangChange(Sender: TObject);
  begin
    BeginFormUpdate;
    appLocalizerEx.CurrentLanguage := cbLang.ItemIndex;
    EndFormUpdate;
  end;

procedure TForm1.btnSecondClick(Sender: TObject);
  begin
    fmSecond.Show;
  end;

procedure TForm1.OnLangChange(Sender: TObject);
  begin
    appLocalizerEx.Localize(cbTest, i18nCB1);
    appLocalizerEx.Localize(lbTest, i18nLB1);
  end;

end.