lina-components/Example/TLocalizationManager/uMain.pas

unit uMain;

//////////////////////////////////////
///  Lina Local. Manager Example   ///
///  ****************************  ///
///  (c) 2014 Dennis Göhlert a.o.  ///
//////////////////////////////////////

{$IF CompilerVersion <> 26.0}
  {$MESSAGE ERROR 'This example was written to compile under Delphi XE5'}
{$ENDIF}

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uBase, uLocalMgr, Vcl.StdCtrls,
  Vcl.ExtCtrls, uFileTools;

type
  TForm1 = class(TForm)
    LocalizationManager: TLocalizationManager;
    pnButtons: TPanel;
    btClose: TButton;
    btHello: TButton;
    gbLaguage: TGroupBox;
    lbLanguage: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure lbLanguageClick(Sender: TObject);
    procedure btHelloClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
  private
    { Private-Deklarationen }
    HelloWorld: String;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btHelloClick(Sender: TObject);
begin
  ShowMessage(HelloWorld);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Index: Integer;
  LanguageFiles: TStrings;
begin
  HelloWorld := 'Hello, World!';
  (LocalizationManager.References.Items[0] as TLocalizationReference).Reference := @HelloWorld;
  LanguageFiles := TStringList.Create;
  ListFiles(ExtractFileDir(Application.ExeName),LanguageFiles,['*.loc']);
  lbLanguage.Items.Assign(LanguageFiles);
  for Index := 0 to LanguageFiles.Count - 1 do
  begin
    (LocalizationManager.Localizations.Add as TLocalization).Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + ChangeFileExt(LanguageFiles.Strings[Index],'.loc'));
  end;
end;

procedure TForm1.lbLanguageClick(Sender: TObject);
var Indents: TStrings;
begin
  LocalizationManager.Current := lbLanguage.ItemIndex;
  indents := TStringList.Create;
  LocalizationManager.Data.ReadValues('',indents);
  showmessage(indents.Text);
  indents.Free;
end;

end.