unit TeeLanguages;
{$I TeeDefs.inc}

interface

uses
  {$IFDEF FMX}
   FMXTee.Languages.Spanish,
   FMXTee.Languages.German,
   FMXTee.Languages.Catalan,
   FMXTee.Languages.French,
   FMXTee.Languages.Danish,
   FMXTee.Languages.Dutch,
   FMXTee.Languages.Chinese,
   FMXTee.Languages.ChineseSimp,
   FMXTee.Languages.Brazil,
   FMXTee.Languages.Swedish,
   FMXTee.Languages.Portuguese,
   FMXTee.Languages.Russian,
   FMXTee.Languages.Slovene,
   FMXTee.Languages.Norwegian,
   FMXTee.Languages.Japanese,
   FMXTee.Languages.Polish,
   FMXTee.Languages.Turkish,
   FMXTee.Languages.Hungarian,
   FMXTee.Languages.Italian,
   FMXTee.Languages.Arabic,
   FMXTee.Languages.Hebrew,
   FMXTee.Languages.Ukrainian,
   FMXTee.Languages.Korean,
   FMXTee.Languages.Indonesian,
   FMXTee.Languages.Galician,
   FMXTee.Languages.Finnish,
   FMXTee.Languages.Slovak,
   FMXTee.Languages.Hellenic,
   FMXTee.Languages.Romanian,
   FMXTee.Languages.Serbian,
   FMXTee.Languages.Farsi,
   FMXTee.Languages.Czech,
   FMXTee.Languages.Hindi,
   FMXTee.Languages.Urdu,
   FMXTee.Languages.Croatian,
   FMXTee.Languages.Malaysian,
   FMXTee.Languages.Bulgarian
   {$ELSE}

     TeeSpanish,
     TeeGerman,
     TeeCatalan,
     TeeFrench,
     TeeDanish,
     TeeDutch,
     TeeChinese,
     TeeChineseSimp,
     TeeBrazil,
     TeeSwedish,
     TeePortuguese,
     TeeRussian,
     TeeSlovene,
     TeeNorwegian,
     TeeJapanese,
     TeePolish,
     TeeTurkish,
     TeeHungarian,
     TeeItalian,
     TeeArabic,
     TeeHebrew,
     TeeUkrainian,
     TeeKorean,
     TeeIndonesian,
     TeeGalician,
     TeeFinnish,
     TeeSlovak,
     TeeHellenic,
     TeeRomanian,
     TeeSerbian,
     TeeFarsi,
     TeeCzech,
     TeeHindi,
     TeeUrdu,
     TeeCroatian,
     TeeMalaysian,
     TeeBulgarian
   {$ENDIF}
   ;

Procedure TeeSetLanguage(English:Boolean; ALanguage:Integer=-1);

implementation

uses
  {$IFDEF FMX}
  FMXTee.Editor.Languages, FMXTee.Languages.Translate, FMXTee.ProConstants
  {$ELSE}
  TeeTranslate, TeeProCo
  {$ENDIF}
  ;

Procedure TeeSetLanguage(English:Boolean; ALanguage:Integer=-1);
begin
  if ALanguage=-1 then
     ALanguage:={$IFDEF FMX}TAskLanguage.GetDefaultLanguage{$ELSE}TeeLanguageRegistry{$ENDIF};

  case ALanguage of
    1: TeeSetBrazil;
    2: TeeSetCatalan;
    3: TeeSetChineseSimp;
    4: TeeSetChinese;
    5: TeeSetDanish;
    6: TeeSetDutch;
    7: TeeSetFrench;
    8: TeeSetGerman;
    9: TeeSetItalian;
   10: TeeSetPortuguese;
   11: TeeSetRussian;
   12: TeeSetSpanish;
   13: TeeSetSwedish;
   14: TeeSetNorwegian;
   15: TeeSetJapanese;
   16: TeeSetPolish;
   17: TeeSetSlovene;
   18: TeeSetTurkish;
   19: TeeSetHungarian;
   20: TeeSetGalician;
   21: TeeSetArabic;
   22: TeeSetHebrew;
   23: TeeSetUkrainian;
   24: TeeSetKorean;
   25: TeeSetIndonesian;
   26: TeeSetFinnish;
   27: TeeSetSlovak;
   28: TeeSetHellenic;
   29: TeeSetRomanian;
   30: TeeSetSerbian;
   31: TeeSetFarsi;
   32: TeeSetCzech;
   33: TeeSetHindi;
   34: TeeSetUrdu;
   35: TeeSetMalaysian;
   36: TeeSetCroatian;
   37: TeeSetBulgarian;
  else
    if English then
       TeeSetEnglish;
  end;
end;

end.
