Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Uygulama gecikme
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Uygulama gecikme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ibrahimBsr Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 23 Haziran 2026
Durum: Aktif Değil
Puanlar: 16 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ibrahimBsr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Uygulama gecikme
    Gönderim Zamanı: 2 Saat 15 Dakika Önce Saat 09:39
var
  MainForm: TCLForm;
  ScaledLayout: TclScaledLayout;

  // --- GİRİŞ SAYFASI DEĞİŞKENLERİ ---
  LoginMainPnl, TopPnl, ContentPnl, EmailPnl, PasswordPnl, BottomPnl, RegisterWrapPnl, ForgotPwdPnl: TclProPanel;
  IconImg: TclProImage;
  AppTitleLbl, AppSubTitleLbl, WelcomeLbl, SubWelcomeLbl, EmailTitleLbl, PasswordTitleLbl, RegisterLbl: TclProLabel;
  EmailEdt, PasswordEdt: TclProEdit;
  LoginBtn, RegisterBtn, ForgotPwdBtn: TclProButton;

  // --- KAYIT OL SAYFASI DEĞİŞKENLERİ ---
  RegMainPnl, RegTopPnl, RegTitleWrapPnl, RegBottomPnl: TclProPanel;
  RegScrollBox: TclVertScrollBox;
  
  RegPersonalTitleLbl, RegAccountTitleLbl: TclProLabel;
  RegRow1Pnl, RegAdPnl, RegSoyadPnl, RegTCPnl, RegPhonePnl, RegAddressPnl: TclProPanel;
  RegAdLbl, RegSoyadLbl, RegTCLbl, RegPhoneLbl, RegAddressLbl: TclProLabel;
  RegAdEdt, RegSoyadEdt, RegTCEdt, RegPhoneEdt: TclProEdit;
  RegAddressMemo: TclMemo;

  RegEmailPnl, RegPasswordPnl, RegPasswordRepPnl: TclProPanel;
  RegEmailLbl, RegPasswordLbl, RegPasswordRepLbl: TclProLabel;
  RegEmailEdt, RegPasswordEdt, RegPasswordRepEdt: TclProEdit;

  RegBackBtn, RegSubmitBtn: TclProButton;
  RegTitleLbl, RegSubTitleLbl: TclProLabel;

void CheckLogin;
var
  clRest: TclRest;
  EmailKey, responseStr: String;
{
  if ((EmailEdt.Text <> '') && (PasswordEdt.Text <> '')) 
  {
    // Firebase keylerinde '.' yasak olduğu için e-postadaki noktaları '_' yapıyoruz
    EmailKey = EmailEdt.Text;
    while (Pos('.', EmailKey) > 0)
    {
      EmailKey = Copy(EmailKey, 1, Pos('.', EmailKey) - 1) + '_' + Copy(EmailKey, Pos('.', EmailKey) + 1, Length(EmailKey));
    }
    
    clRest = TclRest.Create;
    clRest.BaseURL = 'https://deneme-a6346-default-rtdb.firebaseio.com/users/'+EmailKey+'.json';
    clRest.Method = rmGET;
    clRest.Accept = 'application/json';
    clRest.Execute;
    
    responseStr = clRest.Response;
    clRest.Free;
    
    // Eğer null dönüyorsa böyle bir kullanıcı yoktur
    if (responseStr == 'null')
    {
      ShowMessage('Kayıtlı e-posta bulunamadı. Lütfen kayıt olun.');
    }
    else
    {
      // Basit JSON kontrolü ile şifrenin doğruluğunu teyit ediyoruz
      if (Pos('"sifre":"'+PasswordEdt.Text+'"', responseStr) > 0)
      {
        Clomosy.GlobalVariableString = EmailKey;
        Clomosy.RunUnit('uKatalog'); 
      }
      else
      {
        ShowMessage('Hatalı şifre girdiniz.');
      }
    }
  }
  else
  {
    ShowMessage('Lütfen e-posta ve şifrenizi giriniz.'); 
  }
}

void OpenRegister;
{
  RegMainPnl.Visible = True;
  RegMainPnl.BringToFront;
}

void CloseRegister;
var
  clRest: TclRest;
  EmailKey, jsonBody: String;
{
  if ((RegAdEdt.Text <> '') && (RegSoyadEdt.Text <> '') && (RegTCEdt.Text <> '') && 
      (RegAddressMemo.Text <> '') && (RegEmailEdt.Text <> '') && 
      (RegPasswordEdt.Text <> '') && (RegPasswordEdt.Text == RegPasswordRepEdt.Text))
  {
    // Firebase keylerinde '.' yasak olduğu için e-postadaki noktaları '_' yapıyoruz
    EmailKey = RegEmailEdt.Text;
    while (Pos('.', EmailKey) > 0)
    {
      EmailKey = Copy(EmailKey, 1, Pos('.', EmailKey) - 1) + '_' + Copy(EmailKey, Pos('.', EmailKey) + 1, Length(EmailKey));
    }
    
    // JSON yapısını string olarak hazırlıyoruz
    jsonBody = '{"ad":"'+RegAdEdt.Text+'", "soyad":"'+RegSoyadEdt.Text+'", "tc":"'+RegTCEdt.Text+'", "telefon":"'+RegPhoneEdt.Text+'", "adres":"'+RegAddressMemo.Text+'", "sifre":"'+RegPasswordEdt.Text+'"}';
    
    clRest = TclRest.Create;
    clRest.BaseURL = 'https://deneme-a6346-default-rtdb.firebaseio.com/users/'+EmailKey+'.json';
    clRest.Method = rmPUT;
    clRest.Accept = 'application/json';
    clRest.AddBody(jsonBody, 'application/json');
    clRest.Execute;
    clRest.Free;

    RegMainPnl.Visible = False;
    ShowMessage('Kayıt işlemi başarılı. Lütfen giriş yapınız.');
  }
  else
  {
    ShowMessage('Lütfen tüm alanları eksiksiz doldurun ve şifrelerin eşleştiğinden emin olun.'); 
  }
}

void BackOfMain;
{
  RegMainPnl.Visible = False;
}

void SetupRegisterUI;
{
  RegMainPnl = MainForm.AddNewProPanel(ScaledLayout, 'RegMainPnl');
  RegMainPnl.Align = alClient;
  RegMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegMainPnl.SetclProSettings(RegMainPnl.clProSettings);
  RegMainPnl.Visible = False; 

  RegTopPnl = MainForm.AddNewProPanel(RegMainPnl, 'RegTopPnl');
  RegTopPnl.Align = alTop;
  RegTopPnl.Height = 150;
  RegTopPnl.Margins.Top = -30;
  RegTopPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  RegTopPnl.clProSettings.RoundHeight = 40;
  RegTopPnl.clProSettings.RoundWidth = 40;
  RegTopPnl.SetclProSettings(RegTopPnl.clProSettings);

  RegBackBtn = MainForm.AddNewProButton(RegTopPnl, 'RegBackBtn', '< Giriş sayfası');
  RegBackBtn.Align = alLeft;
  RegBackBtn.Width = 120;
  RegBackBtn.Margins.Top = 30;
  RegBackBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegBackBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  RegBackBtn.SetclProSettings(RegBackBtn.clProSettings);
  MainForm.AddNewEvent(RegBackBtn, tbeOnClick, 'BackOfMain');

  RegTitleWrapPnl = MainForm.AddNewProPanel(RegTopPnl, 'RegTitleWrapPnl');
  RegTitleWrapPnl.Align = alRight;
  RegTitleWrapPnl.Width = 120;
  RegTitleWrapPnl.Margins.Top = 70;
  RegTitleWrapPnl.Margins.Right = 5;
  RegTitleWrapPnl.clProSettings.RoundHeight = 40;
  RegTitleWrapPnl.clProSettings.RoundWidth = 40;
  RegTitleWrapPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  RegTitleWrapPnl.SetclProSettings(RegTitleWrapPnl.clProSettings);

  RegTitleLbl = MainForm.AddNewProLabel(RegTitleWrapPnl, 'RegTitleLbl', 'Kayıt Ol');
  RegTitleLbl.Align = alTop;
  RegTitleLbl.Height = 25;
  RegTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegTitleLbl.clProSettings.FontSize = 22;
  RegTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RegTitleLbl.SetclProSettings(RegTitleLbl.clProSettings);

  RegSubTitleLbl = MainForm.AddNewProLabel(RegTitleWrapPnl, 'RegSubTitleLbl', 'YENİ ÜYELİK');
  RegSubTitleLbl.Align = alTop;
  RegSubTitleLbl.Height = 20;
  RegSubTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#B09A9E');
  RegSubTitleLbl.clProSettings.FontSize = 10;
  RegSubTitleLbl.SetclProSettings(RegSubTitleLbl.clProSettings);

  RegScrollBox = MainForm.AddNewVertScrollBox(RegMainPnl, 'RegScrollBox');
  RegScrollBox.Align = alClient;
  RegScrollBox.Margins.Left = 30;
  RegScrollBox.Margins.Right = 30;
  RegScrollBox.Margins.Top = 20;
  RegScrollBox.Margins.Bottom = 20;
  
  RegPersonalTitleLbl = MainForm.AddNewProLabel(RegScrollBox, 'RegPersonalTitleLbl', 'KİŞİSEL BİLGİLER');
  RegPersonalTitleLbl.Align = alTop;
  RegPersonalTitleLbl.Height = 25;
  RegPersonalTitleLbl.Margins.Bottom = 10;
  RegPersonalTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegPersonalTitleLbl.clProSettings.FontSize = 11;
  RegPersonalTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RegPersonalTitleLbl.SetclProSettings(RegPersonalTitleLbl.clProSettings);

  RegRow1Pnl = MainForm.AddNewProPanel(RegScrollBox, 'RegRow1Pnl');
  RegRow1Pnl.Align = alTop;
  RegRow1Pnl.Height = 80;
  RegRow1Pnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegRow1Pnl.SetclProSettings(RegRow1Pnl.clProSettings);

  RegAdPnl = MainForm.AddNewProPanel(RegRow1Pnl, 'RegAdPnl');
  RegAdPnl.Align = alLeft;
  RegAdPnl.Width = 140; 
  RegAdPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegAdPnl.SetclProSettings(RegAdPnl.clProSettings);

  RegAdLbl = MainForm.AddNewProLabel(RegAdPnl, 'RegAdLbl', 'AD');
  RegAdLbl.Align = alTop;
  RegAdLbl.Height = 20;
  RegAdLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegAdLbl.clProSettings.FontSize = 10;
  RegAdLbl.SetclProSettings(RegAdLbl.clProSettings);

  RegAdEdt = MainForm.AddNewProEdit(RegAdPnl, 'RegAdEdt', '');
  RegAdEdt.Align = alClient;
  RegAdEdt.Margins.Bottom = 15;
  RegAdEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegAdEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegAdEdt.clProSettings.BorderWidth = 1;
  RegAdEdt.SetclProSettings(RegAdEdt.clProSettings);

  RegSoyadPnl = MainForm.AddNewProPanel(RegRow1Pnl, 'RegSoyadPnl');
  RegSoyadPnl.Align = alClient;
  RegSoyadPnl.Margins.Left = 10; 
  RegSoyadPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegSoyadPnl.SetclProSettings(RegSoyadPnl.clProSettings);

  RegSoyadLbl = MainForm.AddNewProLabel(RegSoyadPnl, 'RegSoyadLbl', 'SOYAD');
  RegSoyadLbl.Align = alTop;
  RegSoyadLbl.Height = 20;
  RegSoyadLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegSoyadLbl.clProSettings.FontSize = 10;
  RegSoyadLbl.SetclProSettings(RegSoyadLbl.clProSettings);

  RegSoyadEdt = MainForm.AddNewProEdit(RegSoyadPnl, 'RegSoyadEdt', '');
  RegSoyadEdt.Align = alClient;
  RegSoyadEdt.Margins.Bottom = 15;
  RegSoyadEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegSoyadEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegSoyadEdt.clProSettings.BorderWidth = 1;
  RegSoyadEdt.SetclProSettings(RegSoyadEdt.clProSettings);

  RegTCPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegTCPnl');
  RegTCPnl.Align = alTop;
  RegTCPnl.Height = 80;
  RegTCPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegTCPnl.SetclProSettings(RegTCPnl.clProSettings);

  RegTCLbl = MainForm.AddNewProLabel(RegTCPnl, 'RegTCLbl', 'TC KİMLİK NO');
  RegTCLbl.Align = alTop;
  RegTCLbl.Height = 20;
  RegTCLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegTCLbl.clProSettings.FontSize = 10;
  RegTCLbl.SetclProSettings(RegTCLbl.clProSettings);

  RegTCEdt = MainForm.AddNewProEdit(RegTCPnl, 'RegTCEdt', '');
  RegTCEdt.Align = alClient;
  RegTCEdt.Margins.Bottom = 15;
  RegTCEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegTCEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegTCEdt.clProSettings.BorderWidth = 1;
  RegTCEdt.SetclProSettings(RegTCEdt.clProSettings);

  RegPhonePnl = MainForm.AddNewProPanel(RegScrollBox, 'RegPhonePnl');
  RegPhonePnl.Align = alTop;
  RegPhonePnl.Height = 80;
  RegPhonePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegPhonePnl.SetclProSettings(RegPhonePnl.clProSettings);

  RegPhoneLbl = MainForm.AddNewProLabel(RegPhonePnl, 'RegPhoneLbl', 'TELEFON');
  RegPhoneLbl.Align = alTop;
  RegPhoneLbl.Height = 20;
  RegPhoneLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegPhoneLbl.clProSettings.FontSize = 10;
  RegPhoneLbl.SetclProSettings(RegPhoneLbl.clProSettings);

  RegPhoneEdt = MainForm.AddNewProEdit(RegPhonePnl, 'RegPhoneEdt', '');
  RegPhoneEdt.Align = alClient;
  RegPhoneEdt.Margins.Bottom = 15;
  RegPhoneEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegPhoneEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegPhoneEdt.clProSettings.BorderWidth = 1;
  RegPhoneEdt.SetclProSettings(RegPhoneEdt.clProSettings);

  RegAddressPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegAddressPnl');
  RegAddressPnl.Align = alTop;
  RegAddressPnl.Height = 120;
  RegAddressPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegAddressPnl.SetclProSettings(RegAddressPnl.clProSettings);

  RegAddressLbl = MainForm.AddNewProLabel(RegAddressPnl, 'RegAddressLbl', 'ADRES');
  RegAddressLbl.Align = alTop;
  RegAddressLbl.Height = 20;
  RegAddressLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegAddressLbl.clProSettings.FontSize = 10;
  RegAddressLbl.SetclProSettings(RegAddressLbl.clProSettings);

  RegAddressMemo = MainForm.AddNewMemo(RegAddressPnl, 'RegAddressMemo', '');
  RegAddressMemo.Align = alClient;
  RegAddressMemo.Margins.Bottom = 15;

  RegAccountTitleLbl = MainForm.AddNewProLabel(RegScrollBox, 'RegAccountTitleLbl', 'HESAP BİLGİLERİ');
  RegAccountTitleLbl.Align = alTop;
  RegAccountTitleLbl.Height = 25;
  RegAccountTitleLbl.Margins.Top = 15;
  RegAccountTitleLbl.Margins.Bottom = 10;
  RegAccountTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegAccountTitleLbl.clProSettings.FontSize = 11;
  RegAccountTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RegAccountTitleLbl.SetclProSettings(RegAccountTitleLbl.clProSettings);

  RegEmailPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegEmailPnl');
  RegEmailPnl.Align = alTop;
  RegEmailPnl.Height = 80;
  RegEmailPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegEmailPnl.SetclProSettings(RegEmailPnl.clProSettings);

  RegEmailLbl = MainForm.AddNewProLabel(RegEmailPnl, 'RegEmailLbl', 'E-POSTA');
  RegEmailLbl.Align = alTop;
  RegEmailLbl.Height = 20;
  RegEmailLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegEmailLbl.clProSettings.FontSize = 10;
  RegEmailLbl.SetclProSettings(RegEmailLbl.clProSettings);

  RegEmailEdt = MainForm.AddNewProEdit(RegEmailPnl, 'RegEmailEdt', '');
  RegEmailEdt.Align = alClient;
  RegEmailEdt.Margins.Bottom = 15;
  RegEmailEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegEmailEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegEmailEdt.clProSettings.BorderWidth = 1;
  RegEmailEdt.SetclProSettings(RegEmailEdt.clProSettings);

  RegPasswordPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegPasswordPnl');
  RegPasswordPnl.Align = alTop;
  RegPasswordPnl.Height = 80;
  RegPasswordPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegPasswordPnl.SetclProSettings(RegPasswordPnl.clProSettings);

  RegPasswordLbl = MainForm.AddNewProLabel(RegPasswordPnl, 'RegPasswordLbl', 'ŞİFRE');
  RegPasswordLbl.Align = alTop;
  RegPasswordLbl.Height = 20;
  RegPasswordLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegPasswordLbl.clProSettings.FontSize = 10;
  RegPasswordLbl.SetclProSettings(RegPasswordLbl.clProSettings);

  RegPasswordEdt = MainForm.AddNewProEdit(RegPasswordPnl, 'RegPasswordEdt', '');
  RegPasswordEdt.Align = alClient;
  RegPasswordEdt.Margins.Bottom = 15;
  RegPasswordEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegPasswordEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegPasswordEdt.clProSettings.BorderWidth = 1;
  RegPasswordEdt.SetclProSettings(RegPasswordEdt.clProSettings);

  RegPasswordRepPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegPasswordRepPnl');
  RegPasswordRepPnl.Align = alTop;
  RegPasswordRepPnl.Height = 80;
  RegPasswordRepPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegPasswordRepPnl.SetclProSettings(RegPasswordRepPnl.clProSettings);

  RegPasswordRepLbl = MainForm.AddNewProLabel(RegPasswordRepPnl, 'RegPasswordRepLbl', 'ŞİFRE TEKRAR');
  RegPasswordRepLbl.Align = alTop;
  RegPasswordRepLbl.Height = 20;
  RegPasswordRepLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegPasswordRepLbl.clProSettings.FontSize = 10;
  RegPasswordRepLbl.SetclProSettings(RegPasswordRepLbl.clProSettings);

  RegPasswordRepEdt = MainForm.AddNewProEdit(RegPasswordRepPnl, 'RegPasswordRepEdt', '');
  RegPasswordRepEdt.Align = alClient;
  RegPasswordRepEdt.Margins.Bottom = 15;
  RegPasswordRepEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegPasswordRepEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  RegPasswordRepEdt.clProSettings.BorderWidth = 1;
  RegPasswordRepEdt.SetclProSettings(RegPasswordRepEdt.clProSettings);

  RegBottomPnl = MainForm.AddNewProPanel(RegMainPnl, 'RegBottomPnl');
  RegBottomPnl.Align = alBottom;
  RegBottomPnl.Height = 70;
  RegBottomPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegBottomPnl.SetclProSettings(RegBottomPnl.clProSettings);

  RegSubmitBtn = MainForm.AddNewProButton(RegBottomPnl, 'RegSubmitBtn', 'Kayıt Tamamla');
  RegSubmitBtn.Align = alClient;
  RegSubmitBtn.Margins.Top = 15;
  RegSubmitBtn.Margins.Bottom = 15;
  RegSubmitBtn.Margins.Left = 15;
  RegSubmitBtn.Margins.Right = 15;
  RegSubmitBtn.clProSettings.RoundHeight = 5;
  RegSubmitBtn.clProSettings.RoundWidth = 5;
  RegSubmitBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  RegSubmitBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  RegSubmitBtn.clProSettings.FontSize = 16;
  RegSubmitBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  RegSubmitBtn.SetclProSettings(RegSubmitBtn.clProSettings);
  
  MainForm.AddNewEvent(RegSubmitBtn, tbeOnClick, 'CloseRegister');
}

void SetupUI;
{
  LoginMainPnl = MainForm.AddNewProPanel(ScaledLayout, 'LoginMainPnl');
  LoginMainPnl.Align = alClient;
  LoginMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  LoginMainPnl.SetclProSettings(LoginMainPnl.clProSettings);

  TopPnl = MainForm.AddNewProPanel(LoginMainPnl, 'TopPnl');
  TopPnl.Align = alTop;
  TopPnl.Margins.Top = -50;
  TopPnl.Height = 300;
  TopPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  TopPnl.clProSettings.RoundHeight = 40;
  TopPnl.clProSettings.RoundWidth = 40;
  TopPnl.SetclProSettings(TopPnl.clProSettings);

  IconImg = MainForm.AddNewProImage(TopPnl, 'IconImg');
  IconImg.Align = alTop;
  IconImg.Height = 50;
  IconImg.Margins.Top = 120;
  IconImg.Margins.Bottom = 20;

  AppTitleLbl = MainForm.AddNewProLabel(TopPnl, 'AppTitleLbl', 'Arşiv');
  AppTitleLbl.Align = alTop;
  AppTitleLbl.Height = 40;
  AppTitleLbl.Margins.Top = 10;
  AppTitleLbl.Margins.Left = 135;
  AppTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  AppTitleLbl.clProSettings.FontSize = 32;
  AppTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  AppTitleLbl.SetclProSettings(AppTitleLbl.clProSettings);

  AppSubTitleLbl = MainForm.AddNewProLabel(TopPnl, 'AppSubTitleLbl', 'KÜTÜPHANE SİSTEMİ');
  AppSubTitleLbl.Align = alTop;
  AppSubTitleLbl.Height = 20;
  AppSubTitleLbl.Margins.Top = 5;
  AppSubTitleLbl.Margins.Left = 120;
  AppSubTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#B09A9E');
  AppSubTitleLbl.clProSettings.FontSize = 12;
  AppSubTitleLbl.SetclProSettings(AppSubTitleLbl.clProSettings);

  ContentPnl = MainForm.AddNewProPanel(LoginMainPnl, 'ContentPnl');
  ContentPnl.Align = alClient;
  ContentPnl.Margins.Left = 30;
  ContentPnl.Margins.Right = 30;
  ContentPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  ContentPnl.SetclProSettings(ContentPnl.clProSettings);

  WelcomeLbl = MainForm.AddNewProLabel(ContentPnl, 'WelcomeLbl', 'Hoş geldiniz');
  WelcomeLbl.Align = alTop;
  WelcomeLbl.Height = 35;
  WelcomeLbl.Margins.Top = 30;
  WelcomeLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#222222');
  WelcomeLbl.clProSettings.FontSize = 24;
  WelcomeLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  WelcomeLbl.SetclProSettings(WelcomeLbl.clProSettings);

  SubWelcomeLbl = MainForm.AddNewProLabel(ContentPnl, 'SubWelcomeLbl', 'Devam etmek için giriş yapın');
  SubWelcomeLbl.Align = alTop;
  SubWelcomeLbl.Height = 20;
  SubWelcomeLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  SubWelcomeLbl.clProSettings.FontSize = 12;
  SubWelcomeLbl.SetclProSettings(SubWelcomeLbl.clProSettings);

  EmailTitleLbl = MainForm.AddNewProLabel(ContentPnl, 'EmailTitleLbl', 'E-POSTA');
  EmailTitleLbl.Align = alTop;
  EmailTitleLbl.Height = 20;
  EmailTitleLbl.Margins.Top = 30;
  EmailTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  EmailTitleLbl.clProSettings.FontSize = 10;
  EmailTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  EmailTitleLbl.SetclProSettings(EmailTitleLbl.clProSettings);

  EmailPnl = MainForm.AddNewProPanel(ContentPnl, 'EmailPnl');
  EmailPnl.Align = alTop;
  EmailPnl.Height = 50;
  EmailPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  EmailPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  EmailPnl.clProSettings.BorderWidth = 1;
  EmailPnl.SetclProSettings(EmailPnl.clProSettings);

  EmailEdt = MainForm.AddNewProEdit(EmailPnl, 'EmailEdt', '');
  EmailEdt.Align = alClient;
  EmailEdt.Margins.Top = 15;
  EmailEdt.Margins.Bottom = 15;
  EmailEdt.Margins.Left = 10;
  EmailEdt.Margins.Right = 10;
  EmailEdt.clProSettings.FontSize = 14;
  EmailEdt.SetclProSettings(EmailEdt.clProSettings);

  PasswordTitleLbl = MainForm.AddNewProLabel(ContentPnl, 'PasswordTitleLbl', 'ŞİFRE');
  PasswordTitleLbl.Align = alTop;
  PasswordTitleLbl.Height = 20;
  PasswordTitleLbl.Margins.Top = 20;
  PasswordTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  PasswordTitleLbl.clProSettings.FontSize = 10;
  PasswordTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  PasswordTitleLbl.SetclProSettings(PasswordTitleLbl.clProSettings);

  PasswordPnl = MainForm.AddNewProPanel(ContentPnl, 'PasswordPnl');
  PasswordPnl.Align = alTop;
  PasswordPnl.Height = 50;
  PasswordPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  PasswordPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  PasswordPnl.clProSettings.BorderWidth = 1;
  PasswordPnl.SetclProSettings(PasswordPnl.clProSettings);

  PasswordEdt = MainForm.AddNewProEdit(PasswordPnl, 'PasswordEdt', '');
  PasswordEdt.Align = alClient;
  PasswordEdt.Margins.Top = 15;
  PasswordEdt.Margins.Bottom = 15;
  PasswordEdt.Margins.Left = 10;
  PasswordEdt.Margins.Right = 10;
  PasswordEdt.clProSettings.FontSize = 14;
  PasswordEdt.SetclProSettings(PasswordEdt.clProSettings);

  ForgotPwdPnl = MainForm.AddNewProPanel(ContentPnl, 'ForgotPwdPnl');
  ForgotPwdPnl.Align = alTop;
  ForgotPwdPnl.Height = 25;
  ForgotPwdPnl.Margins.Top = 5;
  ForgotPwdPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  ForgotPwdPnl.SetclProSettings(ForgotPwdPnl.clProSettings);

  ForgotPwdBtn = MainForm.AddNewProButton(ForgotPwdPnl, 'ForgotPwdBtn', 'Şifremi unuttum');
  ForgotPwdBtn.Align = alRight; 
  ForgotPwdBtn.Width = 100;
  ForgotPwdBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#B8860B'); 
  ForgotPwdBtn.clProSettings.FontSize = 11;
  ForgotPwdBtn.SetclProSettings(ForgotPwdBtn.clProSettings);

  BottomPnl = MainForm.AddNewProPanel(ContentPnl, 'BottomPnl');
  BottomPnl.Align = alBottom;
  BottomPnl.Height = 120;
  BottomPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  BottomPnl.SetclProSettings(BottomPnl.clProSettings);

  LoginBtn = MainForm.AddNewProButton(BottomPnl, 'LoginBtn', '➔ Giriş Yap');
  LoginBtn.Align = alTop;
  LoginBtn.Height = 55;
  LoginBtn.Margins.Top = 15;
  LoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  LoginBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  LoginBtn.clProSettings.FontSize = 16;
  LoginBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  LoginBtn.clProSettings.RoundHeight = 5;
  LoginBtn.clProSettings.RoundWidth = 5;
  LoginBtn.SetclProSettings(LoginBtn.clProSettings);
  
  RegisterWrapPnl = MainForm.AddNewProPanel(BottomPnl, 'RegisterWrapPnl');
  RegisterWrapPnl.Align = alTop;
  RegisterWrapPnl.Height = 30;
  RegisterWrapPnl.Margins.Top = 15;
  RegisterWrapPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1'); 
  RegisterWrapPnl.SetclProSettings(RegisterWrapPnl.clProSettings);

  RegisterLbl = MainForm.AddNewProLabel(RegisterWrapPnl, 'RegisterLbl', 'Hesabınız yok mu?');
  RegisterLbl.Align = alLeft; 
  RegisterLbl.Width = 110; 
  RegisterLbl.Margins.Left = 60;
  RegisterLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  RegisterLbl.clProSettings.FontSize = 12;
  RegisterLbl.SetclProSettings(RegisterLbl.clProSettings);
  
  RegisterBtn = MainForm.AddNewProButton(RegisterWrapPnl, 'RegisterBtn', 'Kayıt ol');
  RegisterBtn.Align = alLeft; 
  RegisterBtn.Width = 50; 
  RegisterBtn.Margins.Bottom = 15;
  RegisterBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#B8860B'); 
  RegisterBtn.clProSettings.FontSize = 14;
  RegisterBtn.SetclProSettings(RegisterBtn.clProSettings);
  
  MainForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin'); 
  MainForm.AddNewEvent(RegisterBtn, tbeOnClick, 'OpenRegister');

  SetupRegisterUI;
}

{
  MainForm = TCLForm.Create(Self); 
  MainForm.SetFormColor('#F0EBE1', '#F0EBE1', clGVertical);

  ScaledLayout = MainForm.AddNewScaledLayout(MainForm, 'ScaledLayout'); 
  ScaledLayout.Align = alClient; 
  ScaledLayout.OriginalHeight = 750; 
  ScaledLayout.OriginalWidth = 350; 

  SetupUI;
  
  MainForm.FormWaiting.Visible = False; 
  MainForm.BtnFormMenu.Visible = False; 
  MainForm.BtnGoBack.Visible = False; 
  MainForm.LytTopBar.Visible = False;
  MainForm.Run; 
}

Firebase e bağladığımdan beri uygulama unit geçişlerinde 10-15 saniye arası bir gecikme var bunu nasıl çözebiliriz?
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 947 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 14 Dakika Önce Saat 10:40
Merhaba İbrahim, 

Sorunun kaynağı execution kullanıldığında internet üzerinden veri gidip gelene kadar tüm uygulama tek bir işlem parçacığında beklemeye alınır. firebase sunucu yanıt verene kadar arayüz tamamen donar geçikmeler yaşanır. 
Problemi çözmek için istekleri arka planda çalıştırman gerekir. Yani Asenkron 


var
  MainForm: TclForm;
  ScaledLayout: TclScaledLayout;
  LoginMainPnl, TopPnl, ContentPnl, EmailPnl, PasswordPnl, BottomPnl, RegisterWrapPnl, ForgotPwdPnl: TclProPanel;
  IconImg: TclProImage;
  AppTitleLbl, AppSubTitleLbl, WelcomeLbl, SubWelcomeLbl, EmailTitleLbl, PasswordTitleLbl, RegisterLbl: TclProLabel;
  EmailEdt, PasswordEdt: TclProEdit;
  LoginBtn, RegisterBtn, ForgotPwdBtn: TclProButton;
  RegMainPnl, RegTopPnl, RegTitleWrapPnl, RegBottomPnl: TclProPanel;
  RegScrollBox: TclVertScrollBox;
  RegPersonalTitleLbl, RegAccountTitleLbl: TclProLabel;
  RegRow1Pnl, RegAdPnl, RegSoyadPnl, RegTCPnl, RegPhonePnl, RegAddressPnl: TclProPanel;
  RegAdLbl, RegSoyadLbl, RegTCLbl, RegPhoneLbl, RegAddressLbl: TclProLabel;
  RegAdEdt, RegSoyadEdt, RegTCEdt, RegPhoneEdt: TclProEdit;
  RegAddressMemo: TclMemo;
  RegEmailPnl, RegPasswordPnl, RegPasswordRepPnl: TclProPanel;
  RegEmailLbl, RegPasswordLbl, RegPasswordRepLbl: TclProLabel;
  RegEmailEdt, RegPasswordEdt, RegPasswordRepEdt: TclProEdit;
  RegBackBtn, RegSubmitBtn: TclProButton;
  RegTitleLbl, RegSubTitleLbl: TclProLabel;
  GlobalRest: TclRest;
  GlobalEmailKey: String;

void OnLoginRequestCompleted;
var
  responseStr: String;
{
  try
    responseStr = GlobalRest.Response;
    GlobalRest.Free;

    if (responseStr == 'null')
    {
      ShowMessage('Kayıtlı e-posta bulunamadı. Lütfen kayıt olun.');
    }
    else
    {
      if (Pos('"sifre":"' + PasswordEdt.Text + '"', responseStr) > 0)
      {
        Clomosy.GlobalVariableString = GlobalEmailKey;
        Clomosy.RunUnit('uKatalog'); 
      }
      else
      {
        ShowMessage('Hatalı şifre girdiniz.');
      }
    }
  except
    ShowMessage('Giriş işleme hatası: ' + LastExceptionMessage);
  }
}

void CheckLogin;
{
  if ((EmailEdt.Text <> '') && (PasswordEdt.Text <> '')) 
  {
    GlobalEmailKey = EmailEdt.Text;
    while (Pos('.', GlobalEmailKey) > 0)
    {
      GlobalEmailKey = Copy(GlobalEmailKey, 1, Pos('.', GlobalEmailKey) - 1) + '_' + Copy(GlobalEmailKey, Pos('.', GlobalEmailKey) + 1, Length(GlobalEmailKey));
    }
    
    try
      GlobalRest = TclRest.Create;
      GlobalRest.BaseURL = 'https://deneme-a6346-default-rtdb.firebaseio.com/users/' + GlobalEmailKey + '.json';
      GlobalRest.Method = rmGET;
      GlobalRest.Accept = 'application/json';
      
      GlobalRest.OnCompleted = 'OnLoginRequestCompleted';
      GlobalRest.ExecuteAsync;
    except
      ShowMessage('Bağlantı hatası: ' + LastExceptionMessage);
    }
  }
  else
  {
    ShowMessage('Lütfen e-posta ve şifrenizi giriniz.'); 
  }
}

void OpenRegister;
{
  RegMainPnl.Visible = True;
  RegMainPnl.BringToFront;
}

void OnRegisterRequestCompleted;
{
  try
    GlobalRest.Free;
    RegMainPnl.Visible = False;
    ShowMessage('Kayıt işlemi başarılı. Lütfen giriş yapınız.');
  except
    ShowMessage('Kayıt yanıtı işleme hatası: ' + LastExceptionMessage);
  }
}

void CloseRegister;
var
  jsonBody: String;
{
  if ((RegAdEdt.Text <> '') && (RegSoyadEdt.Text <> '') && (RegTCEdt.Text <> '') && 
      (RegAddressMemo.Text <> '') && (RegEmailEdt.Text <> '') && 
      (RegPasswordEdt.Text <> '') && (RegPasswordEdt.Text == RegPasswordRepEdt.Text))
  {
    GlobalEmailKey = RegEmailEdt.Text;
    while (Pos('.', GlobalEmailKey) > 0)
    {
      GlobalEmailKey = Copy(GlobalEmailKey, 1, Pos('.', GlobalEmailKey) - 1) + '_' + Copy(GlobalEmailKey, Pos('.', GlobalEmailKey) + 1, Length(GlobalEmailKey));
    }
    
    jsonBody = '{"ad":"' + RegAdEdt.Text + '", "soyad":"' + RegSoyadEdt.Text + '", "tc":"' + RegTCEdt.Text + '", "telefon":"' + RegPhoneEdt.Text + '", "adres":"' + RegAddressMemo.Text + '", "sifre":"' + RegPasswordEdt.Text + '"}';
    
    try
      GlobalRest = TclRest.Create;
      GlobalRest.BaseURL = 'https://deneme-a6346-default-rtdb.firebaseio.com/users/' + GlobalEmailKey + '.json';
      GlobalRest.Method = rmPUT;
      GlobalRest.Accept = 'application/json';
      GlobalRest.AddBody(jsonBody, 'application/json');
      
      GlobalRest.OnCompleted = 'OnRegisterRequestCompleted';
      GlobalRest.ExecuteAsync;
    except
      ShowMessage('Kayıt gönderme hatası: ' + LastExceptionMessage);
    }
  }
  else
  {
    ShowMessage('Lütfen tüm alanları eksiksiz doldurun ve şifrelerin eşleştiğinden emin olun.'); 
  }
}

void BackOfMain;
{
  RegMainPnl.Visible = False;
}

void SetupRegisterUI;
{
  RegMainPnl = MainForm.AddNewProPanel(ScaledLayout, 'RegMainPnl');
  RegMainPnl.Align = alClient;
  RegMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegMainPnl.SetclProSettings(RegMainPnl.clProSettings);
  RegMainPnl.Visible = False; 

  RegTopPnl = MainForm.AddNewProPanel(RegMainPnl, 'RegTopPnl');
  RegTopPnl.Align = alTop; RegTopPnl.Height = 150; RegTopPnl.Margins.Top = -30;
  RegTopPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  RegTopPnl.clProSettings.RoundHeight = 40; RegTopPnl.clProSettings.RoundWidth = 40;
  RegTopPnl.SetclProSettings(RegTopPnl.clProSettings);

  RegBackBtn = MainForm.AddNewProButton(RegTopPnl, 'RegBackBtn', '< Giriş sayfası');
  RegBackBtn.Align = alLeft; RegBackBtn.Width = 120; RegBackBtn.Margins.Top = 30;
  RegBackBtn.clProSettings.FontColor = clAlphaColor.clWhite; RegBackBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  RegBackBtn.SetclProSettings(RegBackBtn.clProSettings);
  MainForm.AddNewEvent(RegBackBtn, tbeOnClick, 'BackOfMain');

  RegTitleWrapPnl = MainForm.AddNewProPanel(RegTopPnl, 'RegTitleWrapPnl');
  RegTitleWrapPnl.Align = alRight; RegTitleWrapPnl.Width = 120; RegTitleWrapPnl.Margins.Top = 70; RegTitleWrapPnl.Margins.Right = 5;
  RegTitleWrapPnl.clProSettings.RoundHeight = 40; RegTitleWrapPnl.clProSettings.RoundWidth = 40;
  RegTitleWrapPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  RegTitleWrapPnl.SetclProSettings(RegTitleWrapPnl.clProSettings);

  RegTitleLbl = MainForm.AddNewProLabel(RegTitleWrapPnl, 'RegTitleLbl', 'Kayıt Ol');
  RegTitleLbl.Align = alTop; RegTitleLbl.Height = 25;
  RegTitleLbl.clProSettings.FontColor = clAlphaColor.clWhite; RegTitleLbl.clProSettings.FontSize = 22; RegTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RegTitleLbl.SetclProSettings(RegTitleLbl.clProSettings);

  RegSubTitleLbl = MainForm.AddNewProLabel(RegTitleWrapPnl, 'RegSubTitleLbl', 'YENİ ÜYELİK');
  RegSubTitleLbl.Align = alTop; RegSubTitleLbl.Height = 20;
  RegSubTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#B09A9E'); RegSubTitleLbl.clProSettings.FontSize = 10;
  RegSubTitleLbl.SetclProSettings(RegSubTitleLbl.clProSettings);

  RegScrollBox = MainForm.AddNewVertScrollBox(RegMainPnl, 'RegScrollBox');
  RegScrollBox.Align = alClient;
  RegScrollBox.Margins.Left = 30; RegScrollBox.Margins.Right = 30; RegScrollBox.Margins.Top = 20; RegScrollBox.Margins.Bottom = 20;
  
  RegPersonalTitleLbl = MainForm.AddNewProLabel(RegScrollBox, 'RegPersonalTitleLbl', 'KİŞİSEL BİLGİLER');
  RegPersonalTitleLbl.Align = alTop; RegPersonalTitleLbl.Height = 25; RegPersonalTitleLbl.Margins.Bottom = 10;
  RegPersonalTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegPersonalTitleLbl.clProSettings.FontSize = 11; RegPersonalTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RegPersonalTitleLbl.SetclProSettings(RegPersonalTitleLbl.clProSettings);

  RegRow1Pnl = MainForm.AddNewProPanel(RegScrollBox, 'RegRow1Pnl');
  RegRow1Pnl.Align = alTop; RegRow1Pnl.Height = 80;
  RegRow1Pnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegRow1Pnl.SetclProSettings(RegRow1Pnl.clProSettings);

  RegAdPnl = MainForm.AddNewProPanel(RegRow1Pnl, 'RegAdPnl');
  RegAdPnl.Align = alLeft; RegAdPnl.Width = 140; 
  RegAdPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegAdPnl.SetclProSettings(RegAdPnl.clProSettings);

  RegAdLbl = MainForm.AddNewProLabel(RegAdPnl, 'RegAdLbl', 'AD');
  RegAdLbl.Align = alTop; RegAdLbl.Height = 20;
  RegAdLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegAdLbl.clProSettings.FontSize = 10;
  RegAdLbl.SetclProSettings(RegAdLbl.clProSettings);

  RegAdEdt = MainForm.AddNewProEdit(RegAdPnl, 'RegAdEdt', '');
  RegAdEdt.Align = alClient; RegAdEdt.Margins.Bottom = 15;
  RegAdEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegAdEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegAdEdt.clProSettings.BorderWidth = 1;
  RegAdEdt.SetclProSettings(RegAdEdt.clProSettings);

  RegSoyadPnl = MainForm.AddNewProPanel(RegRow1Pnl, 'RegSoyadPnl');
  RegSoyadPnl.Align = alClient; RegSoyadPnl.Margins.Left = 10; 
  RegSoyadPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegSoyadPnl.SetclProSettings(RegSoyadPnl.clProSettings);

  RegSoyadLbl = MainForm.AddNewProLabel(RegSoyadPnl, 'RegSoyadLbl', 'SOYAD');
  RegSoyadLbl.Align = alTop; RegSoyadLbl.Height = 20;
  RegSoyadLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegSoyadLbl.clProSettings.FontSize = 10;
  RegSoyadLbl.SetclProSettings(RegSoyadLbl.clProSettings);

  RegSoyadEdt = MainForm.AddNewProEdit(RegSoyadPnl, 'RegSoyadEdt', '');
  RegSoyadEdt.Align = alClient; RegSoyadEdt.Margins.Bottom = 15;
  RegSoyadEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegSoyadEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegSoyadEdt.clProSettings.BorderWidth = 1;
  RegSoyadEdt.SetclProSettings(RegSoyadEdt.clProSettings);

  RegTCPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegTCPnl');
  RegTCPnl.Align = alTop; RegTCPnl.Height = 80;
  RegTCPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegTCPnl.SetclProSettings(RegTCPnl.clProSettings);

  RegTCLbl = MainForm.AddNewProLabel(RegTCPnl, 'RegTCLbl', 'TC KİMLİK NO');
  RegTCLbl.Align = alTop; RegTCLbl.Height = 20;
  RegTCLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegTCLbl.clProSettings.FontSize = 10;
  RegTCLbl.SetclProSettings(RegTCLbl.clProSettings);

  RegTCEdt = MainForm.AddNewProEdit(RegTCPnl, 'RegTCEdt', '');
  RegTCEdt.Align = alClient; RegTCEdt.Margins.Bottom = 15;
  RegTCEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegTCEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegTCEdt.clProSettings.BorderWidth = 1;
  RegTCEdt.SetclProSettings(RegTCEdt.clProSettings);

  RegPhonePnl = MainForm.AddNewProPanel(RegScrollBox, 'RegPhonePnl');
  RegPhonePnl.Align = alTop; RegPhonePnl.Height = 80;
  RegPhonePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegPhonePnl.SetclProSettings(RegPhonePnl.clProSettings);

  RegPhoneLbl = MainForm.AddNewProLabel(RegPhonePnl, 'RegPhoneLbl', 'TELEFON');
  RegPhoneLbl.Align = alTop; RegPhoneLbl.Height = 20;
  RegPhoneLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegPhoneLbl.clProSettings.FontSize = 10;
  RegPhoneLbl.SetclProSettings(RegPhoneLbl.clProSettings);

  RegPhoneEdt = MainForm.AddNewProEdit(RegPhonePnl, 'RegPhoneEdt', '');
  RegPhoneEdt.Align = alClient; RegPhoneEdt.Margins.Bottom = 15;
  RegPhoneEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegPhoneEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegPhoneEdt.clProSettings.BorderWidth = 1;
  RegPhoneEdt.SetclProSettings(RegPhoneEdt.clProSettings);

  RegAddressPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegAddressPnl');
  RegAddressPnl.Align = alTop; RegAddressPnl.Height = 120;
  RegAddressPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegAddressPnl.SetclProSettings(RegAddressPnl.clProSettings);

  RegAddressLbl = MainForm.AddNewProLabel(RegAddressPnl, 'RegAddressLbl', 'ADRES');
  RegAddressLbl.Align = alTop; RegAddressLbl.Height = 20;
  RegAddressLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegAddressLbl.clProSettings.FontSize = 10;
  RegAddressLbl.SetclProSettings(RegAddressLbl.clProSettings);

  RegAddressMemo = MainForm.AddNewMemo(RegAddressPnl, 'RegAddressMemo', '');
  RegAddressMemo.Align = alClient; RegAddressMemo.Margins.Bottom = 15;

  RegAccountTitleLbl = MainForm.AddNewProLabel(RegScrollBox, 'RegAccountTitleLbl', 'HESAP BİLGİLERİ');
  RegAccountTitleLbl.Align = alTop; RegAccountTitleLbl.Height = 25; RegAccountTitleLbl.Margins.Top = 15; RegAccountTitleLbl.Margins.Bottom = 10;
  RegAccountTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegAccountTitleLbl.clProSettings.FontSize = 11; RegAccountTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  RegAccountTitleLbl.SetclProSettings(RegAccountTitleLbl.clProSettings);

  RegEmailPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegEmailPnl');
  RegEmailPnl.Align = alTop; RegEmailPnl.Height = 80;
  RegEmailPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegEmailPnl.SetclProSettings(RegEmailPnl.clProSettings);

  RegEmailLbl = MainForm.AddNewProLabel(RegEmailPnl, 'RegEmailLbl', 'E-POSTA');
  RegEmailLbl.Align = alTop; RegEmailLbl.Height = 20;
  RegEmailLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegEmailLbl.clProSettings.FontSize = 10;
  RegEmailLbl.SetclProSettings(RegEmailLbl.clProSettings);

  RegEmailEdt = MainForm.AddNewProEdit(RegEmailPnl, 'RegEmailEdt', '');
  RegEmailEdt.Align = alClient; RegEmailEdt.Margins.Bottom = 15;
  RegEmailEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegEmailEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegEmailEdt.clProSettings.BorderWidth = 1;
  RegEmailEdt.SetclProSettings(RegEmailEdt.clProSettings);

  RegPasswordPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegPasswordPnl');
  RegPasswordPnl.Align = alTop; RegPasswordPnl.Height = 80;
  RegPasswordPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegPasswordPnl.SetclProSettings(RegPasswordPnl.clProSettings);

  RegPasswordLbl = MainForm.AddNewProLabel(RegPasswordPnl, 'RegPasswordLbl', 'ŞİFRE');
  RegPasswordLbl.Align = alTop; RegPasswordLbl.Height = 20;
  RegPasswordLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegPasswordLbl.clProSettings.FontSize = 10;
  RegPasswordLbl.SetclProSettings(RegPasswordLbl.clProSettings);

  RegPasswordEdt = MainForm.AddNewProEdit(RegPasswordPnl, 'RegPasswordEdt', '');
  RegPasswordEdt.Align = alClient; RegPasswordEdt.Margins.Bottom = 15;
  RegPasswordEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegPasswordEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegPasswordEdt.clProSettings.BorderWidth = 1;
  RegPasswordEdt.SetclProSettings(RegPasswordEdt.clProSettings);

  RegPasswordRepPnl = MainForm.AddNewProPanel(RegScrollBox, 'RegPasswordRepPnl');
  RegPasswordRepPnl.Align = alTop; RegPasswordRepPnl.Height = 80;
  RegPasswordRepPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegPasswordRepPnl.SetclProSettings(RegPasswordRepPnl.clProSettings);

  RegPasswordRepLbl = MainForm.AddNewProLabel(RegPasswordRepPnl, 'RegPasswordRepLbl', 'ŞİFRE TEKRAR');
  RegPasswordRepLbl.Align = alTop; RegPasswordRepLbl.Height = 20;
  RegPasswordRepLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegPasswordRepLbl.clProSettings.FontSize = 10;
  RegPasswordRepLbl.SetclProSettings(RegPasswordRepLbl.clProSettings);

  RegPasswordRepEdt = MainForm.AddNewProEdit(RegPasswordRepPnl, 'RegPasswordRepEdt', '');
  RegPasswordRepEdt.Align = alClient; RegPasswordRepEdt.Margins.Bottom = 15;
  RegPasswordRepEdt.clProSettings.BackgroundColor = clAlphaColor.clWhite; RegPasswordRepEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); RegPasswordRepEdt.clProSettings.BorderWidth = 1;
  RegPasswordRepEdt.SetclProSettings(RegPasswordRepEdt.clProSettings);

  RegBottomPnl = MainForm.AddNewProPanel(RegMainPnl, 'RegBottomPnl');
  RegBottomPnl.Align = alBottom; RegBottomPnl.Height = 70;
  RegBottomPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  RegBottomPnl.SetclProSettings(RegBottomPnl.clProSettings);

  RegSubmitBtn = MainForm.AddNewProButton(RegBottomPnl, 'RegSubmitBtn', 'Kayıt Tamamla');
  RegSubmitBtn.Align = alClient; RegSubmitBtn.Margins.Top = 15; RegSubmitBtn.Margins.Bottom = 15; RegSubmitBtn.Margins.Left = 15; RegSubmitBtn.Margins.Right = 15;
  RegSubmitBtn.clProSettings.RoundHeight = 5; RegSubmitBtn.clProSettings.RoundWidth = 5;
  RegSubmitBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E'); RegSubmitBtn.clProSettings.FontColor = clAlphaColor.clWhite; RegSubmitBtn.clProSettings.FontSize = 16; RegSubmitBtn.clProSettings.TextSettings.Font.Style = [fsBold];
  RegSubmitBtn.SetclProSettings(RegSubmitBtn.clProSettings);
  MainForm.AddNewEvent(RegSubmitBtn, tbeOnClick, 'CloseRegister');
}

void SetupUI;
{
  LoginMainPnl = MainForm.AddNewProPanel(ScaledLayout, 'LoginMainPnl');
  LoginMainPnl.Align = alClient;
  LoginMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  LoginMainPnl.SetclProSettings(LoginMainPnl.clProSettings);

  TopPnl = MainForm.AddNewProPanel(LoginMainPnl, 'TopPnl');
  TopPnl.Align = alTop; TopPnl.Margins.Top = -50; TopPnl.Height = 300;
  TopPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  TopPnl.clProSettings.RoundHeight = 40; TopPnl.clProSettings.RoundWidth = 40;
  TopPnl.SetclProSettings(TopPnl.clProSettings);

  IconImg = MainForm.AddNewProImage(TopPnl, 'IconImg');
  IconImg.Align = alTop; IconImg.Height = 50; IconImg.Margins.Top = 120; IconImg.Margins.Bottom = 20;

  AppTitleLbl = MainForm.AddNewProLabel(TopPnl, 'AppTitleLbl', 'Arşiv');
  AppTitleLbl.Align = alTop; AppTitleLbl.Height = 40; AppTitleLbl.Margins.Top = 10; AppTitleLbl.Margins.Left = 135;
  AppTitleLbl.clProSettings.FontColor = clAlphaColor.clWhite; AppTitleLbl.clProSettings.FontSize = 32; AppTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  AppTitleLbl.SetclProSettings(AppTitleLbl.clProSettings);

  AppSubTitleLbl = MainForm.AddNewProLabel(TopPnl, 'AppSubTitleLbl', 'KÜTÜPHANE SİSTEMİ');
  AppSubTitleLbl.Align = alTop; AppSubTitleLbl.Height = 20; AppSubTitleLbl.Margins.Top = 5; AppSubTitleLbl.Margins.Left = 120;
  AppSubTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#B09A9E'); AppSubTitleLbl.clProSettings.FontSize = 12;
  AppSubTitleLbl.SetclProSettings(AppSubTitleLbl.clProSettings);

  ContentPnl = MainForm.AddNewProPanel(LoginMainPnl, 'ContentPnl');
  ContentPnl.Align = alClient;
  ContentPnl.Margins.Left = 30; ContentPnl.Margins.Right = 30;
  ContentPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  ContentPnl.SetclProSettings(ContentPnl.clProSettings);

  WelcomeLbl = MainForm.AddNewProLabel(ContentPnl, 'WelcomeLbl', 'Hoş geldiniz');
  WelcomeLbl.Align = alTop; WelcomeLbl.Height = 35; WelcomeLbl.Margins.Top = 30;
  WelcomeLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#222222'); WelcomeLbl.clProSettings.FontSize = 24; WelcomeLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  WelcomeLbl.SetclProSettings(WelcomeLbl.clProSettings);

  SubWelcomeLbl = MainForm.AddNewProLabel(ContentPnl, 'SubWelcomeLbl', 'Devam etmek için giriş yapın');
  SubWelcomeLbl.Align = alTop; SubWelcomeLbl.Height = 20;
  SubWelcomeLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); SubWelcomeLbl.clProSettings.FontSize = 12;
  SubWelcomeLbl.SetclProSettings(SubWelcomeLbl.clProSettings);

  EmailTitleLbl = MainForm.AddNewProLabel(ContentPnl, 'EmailTitleLbl', 'E-POSTA');
  EmailTitleLbl.Align = alTop; EmailTitleLbl.Height = 20; EmailTitleLbl.Margins.Top = 30;
  EmailTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); EmailTitleLbl.clProSettings.FontSize = 10; EmailTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  EmailTitleLbl.SetclProSettings(EmailTitleLbl.clProSettings);

  EmailPnl = MainForm.AddNewProPanel(ContentPnl, 'EmailPnl');
  EmailPnl.Align = alTop; EmailPnl.Height = 50;
  EmailPnl.clProSettings.BackgroundColor = clAlphaColor.clWhite; EmailPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); EmailPnl.clProSettings.BorderWidth = 1;
  EmailPnl.SetclProSettings(EmailPnl.clProSettings);

  EmailEdt = MainForm.AddNewProEdit(EmailPnl, 'EmailEdt', '');
  EmailEdt.Align = alClient; EmailEdt.Margins.Top = 15; EmailEdt.Margins.Bottom = 15; EmailEdt.Margins.Left = 10; EmailEdt.Margins.Right = 10; EmailEdt.clProSettings.FontSize = 14;
  EmailEdt.SetclProSettings(EmailEdt.clProSettings);

  PasswordTitleLbl = MainForm.AddNewProLabel(ContentPnl, 'PasswordTitleLbl', 'ŞİFRE');
  PasswordTitleLbl.Align = alTop; PasswordTitleLbl.Height = 20; PasswordTitleLbl.Margins.Top = 20;
  PasswordTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); PasswordTitleLbl.clProSettings.FontSize = 10; PasswordTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  PasswordTitleLbl.SetclProSettings(PasswordTitleLbl.clProSettings);

  PasswordPnl = MainForm.AddNewProPanel(ContentPnl, 'PasswordPnl');
  PasswordPnl.Align = alTop; PasswordPnl.Height = 50;
  PasswordPnl.clProSettings.BackgroundColor = clAlphaColor.clWhite; PasswordPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD'); PasswordPnl.clProSettings.BorderWidth = 1;
  PasswordPnl.SetclProSettings(PasswordPnl.clProSettings);

  PasswordEdt = MainForm.AddNewProEdit(PasswordPnl, 'PasswordEdt', '');
  PasswordEdt.Align = alClient; PasswordEdt.Margins.Top = 15; PasswordEdt.Margins.Bottom = 15; PasswordEdt.Margins.Left = 10; PasswordEdt.Margins.Right = 10; PasswordEdt.clProSettings.FontSize = 14;
  PasswordEdt.SetclProSettings(PasswordEdt.clProSettings);

  ForgotPwdPnl = MainForm.AddNewProPanel(ContentPnl, 'ForgotPwdPnl');
  ForgotPwdPnl.Align = alTop; ForgotPwdPnl.Height = 25; ForgotPwdPnl.Margins.Top = 5;
  ForgotPwdPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  ForgotPwdPnl.SetclProSettings(ForgotPwdPnl.clProSettings);

  ForgotPwdBtn = MainForm.AddNewProButton(ForgotPwdPnl, 'ForgotPwdBtn', 'Şifremi unuttum');
  ForgotPwdBtn.Align = alRight; ForgotPwdBtn.Width = 100;
  ForgotPwdBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#B8860B'); ForgotPwdBtn.clProSettings.FontSize = 11;
  ForgotPwdBtn.SetclProSettings(ForgotPwdBtn.clProSettings);

  BottomPnl = MainForm.AddNewProPanel(ContentPnl, 'BottomPnl');
  BottomPnl.Align = alBottom; BottomPnl.Height = 120;
  BottomPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  BottomPnl.SetclProSettings(BottomPnl.clProSettings);

  LoginBtn = MainForm.AddNewProButton(BottomPnl, 'LoginBtn', '➔ Giriş Yap');
  LoginBtn.Align = alTop; LoginBtn.Height = 55; LoginBtn.Margins.Top = 15;
  LoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E'); LoginBtn.clProSettings.FontColor = clAlphaColor.clWhite; LoginBtn.clProSettings.FontSize = 16; LoginBtn.clProSettings.TextSettings.Font.Style = [fsBold]; LoginBtn.clProSettings.RoundHeight = 5; LoginBtn.clProSettings.RoundWidth = 5;
  LoginBtn.SetclProSettings(LoginBtn.clProSettings);
  
  RegisterWrapPnl = MainForm.AddNewProPanel(BottomPnl, 'RegisterWrapPnl');
  RegisterWrapPnl.Align = alTop; RegisterWrapPnl.Height = 30; RegisterWrapPnl.Margins.Top = 15;
  RegisterWrapPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1'); 
  RegisterWrapPnl.SetclProSettings(RegisterWrapPnl.clProSettings);

  RegisterLbl = MainForm.AddNewProLabel(RegisterWrapPnl, 'RegisterLbl', 'Hesabınız yok mu?');
  RegisterLbl.Align = alLeft; RegisterLbl.Width = 110; RegisterLbl.Margins.Left = 60;
  RegisterLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); RegisterLbl.clProSettings.FontSize = 12;
  RegisterLbl.SetclProSettings(RegisterLbl.clProSettings);
  
  RegisterBtn = MainForm.AddNewProButton(RegisterWrapPnl, 'RegisterBtn', 'Kayıt ol');
  RegisterBtn.Align = alLeft; RegisterBtn.Width = 50; RegisterBtn.Margins.Bottom = 15;
  RegisterBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#B8860B'); RegisterBtn.clProSettings.FontSize = 14;
  RegisterBtn.SetclProSettings(RegisterBtn.clProSettings);
  
  MainForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin'); 
  MainForm.AddNewEvent(RegisterBtn, tbeOnClick, 'OpenRegister');

  SetupRegisterUI;
}

{
  MainForm = TCLForm.Create(Self); 
  MainForm.SetFormColor('#F0EBE1', '#F0EBE1', clGVertical);

  ScaledLayout = MainForm.AddNewScaledLayout(MainForm, 'ScaledLayout'); 
  ScaledLayout.Align = alClient; 
  ScaledLayout.OriginalHeight = 750; 
  ScaledLayout.OriginalWidth = 350; 

  SetupUI;
  
  MainForm.FormWaiting.Visible = False; 
  MainForm.BtnFormMenu.Visible = False; 
  MainForm.BtnGoBack.Visible = False; 
  MainForm.LytTopBar.Visible = False;
  MainForm.Run; 
}


ilgili kodu dener misin
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,051 Saniyede Yüklendi.