var

  FormHesap: TclForm;

  EdtAdSoyad, EdtTC, EdtEmail, EdtTel: TclProEdit;

void HesapGuncelleAction;

var

  clRest: TclRest;

  jsonBody: String;

{

  if (g_KullaniciId <= 0) 

  { 

    ShowMessage('Oturum hatası.'); 

    Exit; 

  }

  try

    clRest = TclRest.Create;

    try

      clRest.BaseURL = g_ApiUrl + '/api/kullanici-guncelle/' + IntToStr(g_KullaniciId);

      clRest.Method = rmPut;

      clRest.Accept = 'application/json';

      

      jsonBody = '{' +

        '"ad_soyad": "' + EdtAdSoyad.Text + '", ' +

        '"tc_no": "' + EdtTC.Text + '", ' +

        '"telefon": "' + EdtTel.Text + '", ' +

        '"eposta": "' + EdtEmail.Text + '"' +

      '}';

      

      clRest.AddBody(jsonBody, 'application/json');

      clRest.Execute;

      

      if ((clRest.Response <> '') && (Pos('başarıyla', clRest.Response) > 0))

      {

        g_AdSoyad = EdtAdSoyad.Text; 

        ShowMessage('Güncellendi.');

        FormHesap.Close();

      }

      else

        ShowMessage('Hata: ' + clRest.Response);

    finally

      clRest.Free; 

    }

  except

    ShowMessage('Bağlantı başarısız: ' + LastExceptionMessage);

  }

}

void HesapBilgileriAc; 

var 

  lytCenterContainer: TclLayout; 

  btn: TclProButton; 

{ 

  FormHesap = TclForm.Create(Self); 

  FormHesap.LytTopBar.Visible = False; 

  FormHesap.SetFormColor('#F4F6F8', '', clGNone); 

  

  AltSayfaBaslikEkle(FormHesap, 'Hesap bilgileri'); 

  

  lytCenterContainer = FormHesap.AddNewLayout(FormHesap, 'lytCenterContainer'); 

  lytCenterContainer.Align = alCenter; 

  lytCenterContainer.Width = MainForm.clWidth - 50; 

  lytCenterContainer.Height = 450; 

  

  EditGrupEkle(FormHesap, lytCenterContainer, EdtAdSoyad, 'Ad', 'Ad Soyad', g_AdSoyad, 45); 

  EditGrupEkle(FormHesap, lytCenterContainer, EdtTC, 'TC', 'TC Kimlik No', g_Tc, 45); 

  EditGrupEkle(FormHesap, lytCenterContainer, EdtEmail, 'Mail', 'E-posta', g_Email, 45); 

  EditGrupEkle(FormHesap, lytCenterContainer, EdtTel, 'Tel', 'Telefon', g_Telefon, 45); 

  

  btn = FormHesap.AddNewProButton(lytCenterContainer, 'BtnKaydet', 'Değişiklikleri Kaydet'); 

  btn.Align = alTop; 

  btn.Height = 50; 

  btn.Margins.Top = 40; 

  btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFBF00'); 

  btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#1A2636');

  btn.clProSettings.FontSize = 14;

  btn.clProSettings.TextSettings.Font.Style = [fsBold];

  btn.clProSettings.RoundHeight = 25; 

  btn.clProSettings.RoundWidth = 25;

  btn.SetclProSettings(btn.clProSettings); 

  

  FormHesap.AddNewEvent(btn, tbeOnClick, 'HesapGuncelleAction'); 

  FormHesap.Run; 

}