unit Langselect;

interface

var
  s01, s02, s03, s04, s05, s06, s07, s08, s09, s10, s11, s12, s13, s14, s15,
  s16, s17, s18, s19, s20, s21, s22, s23, s24: string;

function getWindowsDefaultlanguage: string;
procedure SelEnglish;
procedure SelTurkish;

implementation

uses
  Winapi.Windows, System.SysUtils, Form_Main, Form_Chat, Form_Password,
  Form_ShareFiles, Form_RemoteScreen;

function getWindowsDefaultlanguage: string; // example :  |Türkçe (Turkiye)|
var
  Ident: Integer;
  MyLang: PChar;
const
  Size: Integer = 250;
begin
  GetMem(MyLang, Size);
  Ident := GetSystemDefaultLangID;
  VerLanguageName(Ident, MyLang, Size);
  Result := StrPas(MyLang);
  FreeMem(MyLang);
end;

procedure SelEnglish;
begin
  // Form Main Start
  s01 := 'Offline';
  s02 := 'Receiving...';
  s03 := 'You can not connect with yourself!';
  s04 := 'Finding the ID...';
  s05 := 'You are connected!';
  s06 := 'Connecting to Server...';
  s07 := 'Failed connect to Server.';
  s08 := 'Connected support!';
  s09 := 'Waiting for authentication...';
  s10 := 'ID does nor exists..';
  s11 := 'Wrong password!';
  s12 := 'PC is Busy!';
  s13 := 'Access granted!';
  s14 := 'Lost connection to PC!';
  s15 := 'He say:';
  s16 := 'Share Files - ';
  s17 := ' Items found';
  s18 := 'Size: 0 B / 0 B';
  s19 := 'File sent!';
  s20 := 'AllaKore Remote - Share Files';
  s21 := 'AllaKore Remote (Ping: '; // ' ms)'
  s22 := 'Download complete!'; // ' ms)'

  with frm_Main do
  begin
    GroupBox1.Caption := ' This PC ';
    YourID_Label.Caption := 'Your ID';
    YourPassword_Label.Caption := 'Your Password';
    TargetID_Label.Caption := 'Target ID';
    YourID_Edit.Text := s02;
    YourPassword_Edit.Text := s02;
    Connect_BitBtn.Caption := 'Connect to PC';
    About_BitBtn.Caption := 'About';
    Status_Label.Caption := s01;
  end;
  // Form Main  End

  // Form Chat Start
  s23 := 'AllaKore Remote - Chat';
  s24 := 'You say:';
  frm_Chat.Caption := 'Chat';
  // Form Chat End

  // Form Password Start
  frm_Password.Caption := 'Password';
  frm_Password.Ok_BitBtn.Caption := 'Ok';
  // Form Password End

  // Form ShareFiles start
  with frm_ShareFiles do
  begin
    Caption := 'Share Files';
    Directory_Label.Caption := 'Directory:';
    Download_BitBtn.Caption := 'Download file selected';
    Upload_BitBtn.Caption := 'Send file to this directory';
    DownloadProgress_Label.Caption := 'Download Progress:';
    UploadProgress_Label.Caption := 'Upload Progress:';
  end;
  // Form ShareFiles  end

  // Form Remote Screen start
  with frm_RemoteScreen do
  begin
    Caption := 'Remote Screen';
    MouseRemote_CheckBox.Caption := 'Mouse Remote';
    KeyboardRemote_CheckBox.Caption := 'Keyboard Remote';
    Resize_CheckBox.Caption := 'Resize';
  end;
  // Form Remote Screen end

end;


procedure SelTurkish;
begin
  // Form Main Start
  s01 := 'Çevrimdışı';
  s02 := 'Bağlanmaya Çalışıyor...';
  s03 := 'Kendi Bilgisayarınıza Bağlanamazsınız!';
  s04 := 'ID Aranıyor...';
  s05 := 'Bağlandınız!';
  s06 := 'Sunucuya Bağlanmaya Çalışılıyor ...';
  s07 := 'Sunucuya Bağlanılamadı.';
  s08 := 'Connected support!';
  s09 := 'Kimlik doğrulama için bekleniyor...';
  s10 := 'ID Mevcut Değil..';
  s11 := 'Yanlış Şifre!';
  s12 := 'PC Meşgul!';
  s13 := 'Erişim izni bekleniyor!';
  s14 := 'Bağlantı Kesildi!';
  s15 := 'Mesajım:';
  s16 := 'Paylaşılan - ';
  s17 := ' adet Dosya Bulundu';
  s18 := 'Boyut: 0 B / 0 B';
  s19 := 'Dosya Gönderildi!';
  s20 := 'AllaKore Remote - Dosya Paylaş';
  s21 := 'AllaKore Remote (Ping: '; // ' ms)'
  s22 := 'Tüm İndirmeler Tamamlandı!'; // ' ms)'

  with frm_Main do
  begin
    GroupBox1.Caption := ' Sizin Bilgisayarınızın ';
    YourID_Label.Caption := 'ID''nız';
    YourPassword_Label.Caption := 'Şifreniz';
    TargetID_Label.Caption := 'Hedef ID';
    YourID_Edit.Text := s02;
    YourPassword_Edit.Text := s02;
    Connect_BitBtn.Caption := 'Bağlan';
    About_BitBtn.Caption := 'Hakkında';
    Status_Label.Caption := s01;
  end;
  // Form Main  End

  // Form Chat Start
  s23 := 'AllaKore Remote - Sohbet';
  s24 := 'Mesajım:';
  frm_Chat.Caption := 'Sohbet';
  // Form Chat End

  // Form Password Start
  frm_Password.Caption := 'Şifre Ekranı';
  frm_Password.Ok_BitBtn.Caption := 'Tamam';
  // Form Password End

  // Form ShareFiles start
  with frm_ShareFiles do
  begin
    Caption := 'Dosya Paylaş';
    Directory_Label.Caption := 'Klasör:';
    Download_BitBtn.Caption := 'Seçilen Dosyayı indir.';
    Upload_BitBtn.Caption := 'Dosya Gönder';
    DownloadProgress_Label.Caption := 'İndirme İlerlemesi:';
    UploadProgress_Label.Caption := 'Yükleme İlerlemesi:';
  end;
  // Form ShareFiles  end

  // Form Remote Screen start
  with frm_RemoteScreen do
  begin
    Caption := 'Uzak Bağlantı';
    MouseRemote_CheckBox.Caption := 'Fare Kontrol';
    KeyboardRemote_CheckBox.Caption := 'Klavye Kontrol';
    Resize_CheckBox.Caption := 'Boyutlandır';
  end;
  // Form Remote Screen end

end;

end.