Yapılan işlemleri plaka sorgusunda getiriyorum çalışıyor artık. Tasarım iyileştirilebilir

Ayrıca fiyatlandırma kısmını anlamadığım için boş bıraktım

var

  girisyuz, ustasayfasi, musterisayfasi: TclForm;

  RestClient: TclRest;

  logo1: TClProImage;

  MemoDB: TclMemo;

  anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel;

  ustabtn,musteribtn, aracbtn,yenikayitbtn,sorgulabtn,balatabtn,yagbtn,filtrebtn,akubtn,bujibtn,balansbtn,sagonbtn,sagarkabtn,solonbtn,solarkabtn,kaputbtn,bagajbtn,ontamponbtn,arkatamponbtn : TclProButton;

  basliklbl,plakalbl,bilgibasliklbl,musteribasliklbl, adlbl, tellbl, kmlbl:TClProLabel;

  plakaedt, adedt, teledt, kmedt, musteriaramaedt: TclProEdit;

  arabaimg : TClProImage;

  musteriBilgiKart, odemePanel, islemDetayKart: TclProPanel; // islemDetayKart eklendi

  detayBaslikLbl, toplamTutarLbl, borcLbl, islemBaslikLbl: TclProLabel; // islemBaslikLbl eklendi

  resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;

  islemJSON: TclJSONObject;

  SecilenIslemler: String; 

void AcMusteriSyf;

{

  musterisayfasi = TclForm.Create(Self);

  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).Visible = False;

  musterisayfasi.SetFormColor('#12192C','',clGNone);

  

  musteripanel = musterisayfasi.AddNewProPanel(musterisayfasi,'musteripanel');

  clComponent.SetupComponent(musteripanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');

  

  musteribasliklbl = musterisayfasi.AddNewProLabel(musteripanel, 'musteribasliklbl', 'Müşteri Sorgulama Paneli');

  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":250, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

  

  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (Örn: 34ABC123)');

  clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');

  

  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'ARACI SORGULA');

  clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');

  musterisayfasi.AddNewEvent(sorgulabtn, tbeOnClick, 'SorgulaButonTikla');

  musteriBilgiKart = musterisayfasi.AddNewProPanel(musterisayfasi, 'musteriBilgiKart');

  clComponent.SetupComponent(musteriBilgiKart, '{"Align":"Left","MarginLeft":30,"MarginTop":30,"MarginBottom":50, "Width":400, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');

  

  detayBaslikLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'detayBaslikLbl', 'Müşteri & Araç Detayı');

  clComponent.SetupComponent(detayBaslikLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  resAdLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resAdLbl', 'Ad Soyad: -');

  clComponent.SetupComponent(resAdLbl, '{"Align":"Top","MarginTop":15,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  resTelLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resTelLbl', 'Telefon: -');

  clComponent.SetupComponent(resTelLbl, '{"Align":"Top","MarginTop":5,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  resKMLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resKMLbl', 'Kilometre: -');

  clComponent.SetupComponent(resKMLbl, '{"Align":"Top","MarginTop":5,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  odemePanel = musterisayfasi.AddNewProPanel(musterisayfasi, 'odemePanel');

  clComponent.SetupComponent(odemePanel, '{"Align":"Client","MarginLeft":20,"MarginRight":30,"MarginTop":30,"MarginBottom":50, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');

  

  toplamTutarLbl = musterisayfasi.AddNewProLabel(odemePanel, 'toplamTutarLbl', 'Servis Geçmişi ve Ödemeler');

  clComponent.SetupComponent(toplamTutarLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":20,"Height":30,"TextSize":16,"TextColor":"#FF8C00","TextBold":"yes"}');

  // YENİ TASARIM: Yapılan İşlemler İçin Şık Bir Kutu (Card) Tasarımı

  islemDetayKart = musterisayfasi.AddNewProPanel(odemePanel, 'islemDetayKart');

  clComponent.SetupComponent(islemDetayKart, '{"Align":"Top","MarginTop":15,"MarginLeft":20,"MarginRight":20,"Height":150, "BackgroundColor":"#27334B","RoundWidth":10,"RoundHeight":10}');

  // Kartın içindeki küçük başlık

  islemBaslikLbl = musterisayfasi.AddNewProLabel(islemDetayKart, 'islemBaslikLbl', 'Araçta Yapılan İşlemler');

  clComponent.SetupComponent(islemBaslikLbl, '{"Align":"Top","MarginTop":10,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#9BA2B5","TextBold":"yes"}');

  // Metnin döküleceği asıl etiket (Sola ve yukarı yaslı)

  resIslemlerLbl = musterisayfasi.AddNewProLabel(islemDetayKart, 'resIslemlerLbl', 'Henüz sorgulama yapılmadı.');

  clComponent.SetupComponent(resIslemlerLbl, '{"Align":"Client","MarginTop":5,"MarginLeft":15,"MarginRight":15,"MarginBottom":10,"TextSize":14,"TextColor":"#FFFFFF"}');

  resIslemlerLbl.clProSettings.TextSettings.WordWrap = True;

  resIslemlerLbl.clProSettings.FontVertAlign = palLeading; // Metni yukarıdan başlatır

  resIslemlerLbl.clProSettings.FontHorzAlign = palLeading; // Metni soldan başlatır

  resIslemlerLbl.SetclProSettings(resIslemlerLbl.clProSettings);

  borcLbl = musterisayfasi.AddNewProLabel(odemePanel, 'borcLbl', 'Toplam Borç: 0.00 TL');

  clComponent.SetupComponent(borcLbl, '{"Align":"Bottom","MarginBottom":20,"MarginLeft":20,"Height":30,"TextSize":18,"TextColor":"#E74C3C","TextBold":"yes"}');

  musterisayfasi.Show;

  musterisayfasi.clSetWindowState(fwsMaximized);

}

void OnUstaEnter;

{

  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

void OnMusteriEnter;

{

  clComponent.SetupComponent(musteribtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

void OnLeave;

{

  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');

  clComponent.SetupComponent(musteribtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');

}

void AcUstaSyf;

{

  SecilenIslemler = ''; // Usta sayfasına her girildiğinde eski işlemleri sıfırlıyoruz

  //////// USTA SAYFASI

  ustasayfasi = TclForm.Create(girisyuz);

  ustasayfasi.SetFormColor('#12192C','',clGNone);

  TclButton(ustasayfasi.clFindComponent('BtnFormMenu')).Visible = False;

  ustapanel = ustasayfasi.AddNewProPanel(ustasayfasi, 'ustapanel');

  clComponent.SetupComponent(ustapanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');

  basliklbl = ustasayfasi.AddNewProLabel(ustapanel, 'basliklbl', 'Usta Yönetim Paneli');

  clComponent.SetupComponent(basliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

  yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', ' + Yeni Müşteri Kaydı');

  clComponent.SetupComponent(yenikayitbtn,'{"Align":"Bottom", "MarginBottom":20, "MarginLeft":20, "MarginRight":20, "Height":60, "BackgroundColor":"#FF8C00", "RoundHeight":10, "RoundWidth":10, "TextColor":"#FFFFFF", "TextBold":"yes"}')

  musteribilgipanel= ustasayfasi.AddNewProPanel(ustasayfasi,'musteribilgipanel')

  clComponent.SetupComponent(musteribilgipanel, '{"Align":"Left","MarginLeft":30,"MarginBottom":30,"MarginTop":350,"MarginRight":20, "Height":50,"Width":500,"BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15 }')

  bilgibasliklbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'bilgibasliklbl', '                                     Müşteri ve Araç Bilgileri');

  clComponent.SetupComponent(bilgibasliklbl, '{"Align":"Top", "MarginTop":30, "MarginLeft":20, "Height":30, "TextSize":15, "TextColor":"#FF8C00", "TextBold":"yes"}');

  plakalbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'plakalbl', 'ARAÇ PLAKASI');

  clComponent.SetupComponent(plakalbl, '{"MarginBottom":150,"MarginRight":280, "Height":15, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  plakaedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'plakaedt', '34 ABC 123');

  clComponent.SetupComponent(plakaedt, '{"MarginBottom":90, "MarginLeft":20, "MarginRight":20, "Height":45,"Width":450, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  adlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'adlbl', 'AD SOYAD');

  clComponent.SetupComponent(adlbl, '{"MarginBottom":330, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  adedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'adedt', 'Örn: Ali Yılmaz');

  clComponent.SetupComponent(adedt,'{"MarginBottom":270, "MarginLeft":20,"MarginRight":280, "Height":45,"Width":200, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  tellbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'tellbl', 'TELEFON');

  clComponent.SetupComponent(tellbl, '{"MarginBottom":330, "MarginLeft":200, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  teledt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'teledt', '0555...');

  clComponent.SetupComponent(teledt, '{"MarginBottom":270, "MarginLeft":280,"MarginRight":20,"Width":200,"MaxLength":11, "Height":45, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  teledt.KeyboardType=vktNumberPad;

  teledt.MaxLength=11;

  kmlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'kmlbl', 'GÜNCEL KİLOMETRE');

  clComponent.SetupComponent(kmlbl, '{"MarginBottom":5, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  kmedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'kmedt', '84500');

  clComponent.SetupComponent(kmedt, '{"MarginTop":55, "MarginLeft":20, "MarginRight":20, "Height":45,"Width":450, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#FF8C00", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  kmedt.KeyboardType=vktNumberPad;

  islempanel = ustasayfasi.AddNewProPanel(ustasayfasi,'islempanel')

  clComponent.SetupComponent(islempanel, '{"Align":"Right","RoundWidth":15,"RoundHeight":15,"MarginBottom":30,"MarginTop":5, "BackgroundColor":"#1E2940","Width":1350,"Height":900 }')

  

  arabaimg = ustasayfasi.AddNewProImage(islempanel, 'arabaimg');

  ustasayfasi.SetImage(arabaimg, 'https://resmim.net/cdn/2026/05/06/CrNRqh.png');

  clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')

  arabaimg.hittest=false;

  kaputbtn = ustasayfasi.AddNewProButton(islempanel, 'kaputbtn', '●');

  clComponent.SetupComponent(kaputbtn, '{"Width":110,"MarginTop":150,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(kaputbtn,tbeOnClick,'KaputEkleme')

  ontamponbtn = ustasayfasi.AddNewProButton(islempanel, 'ontamponbtn', '●');

  clComponent.SetupComponent(ontamponbtn, '{"Width":200,"MarginTop":540,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')

  solonbtn = ustasayfasi.AddNewProButton(islempanel, 'solonbtn', '●');

  clComponent.SetupComponent(solonbtn, '{"Width":100,"MarginTop":355,"MarginRight":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

  sagonbtn = ustasayfasi.AddNewProButton(islempanel, 'sagonbtn', '●');

  clComponent.SetupComponent(sagonbtn, '{"Width":100,"MarginTop":355,"MarginRight":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

  solarkabtn = ustasayfasi.AddNewProButton(islempanel, 'solarkabtn', '●');

  clComponent.SetupComponent(solarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

  sagarkabtn = ustasayfasi.AddNewProButton(islempanel, 'sagarkabtn', '●');

  clComponent.SetupComponent(sagarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

  arkatamponbtn = ustasayfasi.AddNewProButton(islempanel, 'arkatamponbtn', '●');

  clComponent.SetupComponent(arkatamponbtn, '{"Width":200,"MarginTop":540,"Marginleft":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')

  bagajbtn= ustasayfasi.AddNewProButton(islempanel, 'bagajbtn', '●');

  clComponent.SetupComponent(bagajbtn, '{"Width":110,"MarginTop":150,"Marginleft":600,"Height":55, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')

  balatabtn = ustasayfasi.AddNewProButton(islempanel, 'balatabtn', '+ Balata');

  clComponent.SetupComponent(balatabtn, '{"MarginRight":1200, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FDF2E9", "TextColor":"#D35400", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')

  

  yagbtn = ustasayfasi.AddNewProButton(islempanel, 'yagbtn', '+ Yağ');

  clComponent.SetupComponent(yagbtn, '{"MarginRight":900, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EBF5FB", "TextColor":"#2E86C1", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')

  filtrebtn = ustasayfasi.AddNewProButton(islempanel, 'filtrebtn', '+ Filtreler');

  clComponent.SetupComponent(filtrebtn, '{"MarginRight":600, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAFAF1", "TextColor":"#27AE60", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')

  akubtn = ustasayfasi.AddNewProButton(islempanel, 'akubtn', '+ Akü');

  clComponent.SetupComponent(akubtn, '{"MarginRight":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FEF9E7", "TextColor":"#F1C40F", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')

  bujibtn = ustasayfasi.AddNewProButton(islempanel, 'bujibtn', '+ Buji');

  clComponent.SetupComponent(bujibtn, '{"MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#F4ECF7", "TextColor":"#8E44AD", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')

  balansbtn = ustasayfasi.AddNewProButton(islempanel, 'balansbtn', '+ Balans');

  clComponent.SetupComponent(balansbtn, '{ "MarginLeft":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAECEE", "TextColor":"#2C3E50", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

  islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel');

  clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":680,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":75 }');

  

  islemkayitpanel2 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel2')

  clComponent.SetupComponent(islemkayitpanel2, '{"MarginBottom":630,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

  

  islemkayitpanel3 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel3')

  clComponent.SetupComponent(islemkayitpanel3, '{"MarginBottom":570,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

  ustasayfasi.AddNewEvent(yenikayitbtn, tbeOnClick, 'MusteriKaydetTikla');

  ustasayfasi.Show;

  ustasayfasi.clSetWindowState(fwsMaximized);

}

void CompletedProc;

var

  GelenCevap, vAd, vTel, vKM, vIslemler: String;

{

  if (RestClient.Response == 'null')

  {

    ShowMessage('Sistemde bu plakaya ait kayıt bulunamadı!');

    if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: -';

    if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: -';

    if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: -';

    if (Assigned(resIslemlerLbl)) resIslemlerLbl.Text = '-';

  }

  else

  {

    GelenCevap = RestClient.Response;

    

    // Arama (Sorgula) sonucudur, bilgileri doldur

    if (Pos('"Ad"', GelenCevap) > 0)

    {

      vAd  = Clomosy.CLParseJSON(GelenCevap, 'Ad');

      vTel = Clomosy.CLParseJSON(GelenCevap, 'Telefon');

      vKM  = Clomosy.CLParseJSON(GelenCevap, 'KM');

      

      // JSON'dan işlemleri çekiyoruz

      vIslemler = Clomosy.CLParseJSON(GelenCevap, 'Islemler'); 

      if (vIslemler == '') 

        vIslemler = 'Kayıtlı işlem bulunamadı.';

      

      if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: ' + vAd;

      if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: ' + vTel;

      if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: ' + vKM + ' km';

      // Yazıyı doğrudan özel tasarladığımız etiket kutusunun içine atıyoruz

      if (Assigned(resIslemlerLbl)) resIslemlerLbl.Text = vIslemler;

      

      ShowMessage('Müşteri bilgileri başarıyla getirildi.');

    }

    else

    {

      ShowMessage('İşlem Başarılı: Kayıt Tamamlandı!');

    }

  }

}

void SendRequest(AMethod, AURL, ABody);

{

  RestClient = TclRest.Create;

  RestClient.Accept = 'application/json';

  RestClient.ContentType = 'application/json';

  RestClient.BaseURL = AURL;

  if (ABody <> '') RestClient.Body = ABody;

  RestClient.Method = AMethod;

  RestClient.OnCompleted = 'CompletedProc';

  RestClient.ExecuteAsync;

}

void SorgulaButonTikla;

var

  ArananPlaka: String;

{

  if (musteriaramaedt.Text == '')

  {

    ShowMessage('Lütfen plaka giriniz.');

  }

  else

  {

    ArananPlaka = clGetStringReplace(musteriaramaedt.Text, ' ', '');

    ArananPlaka = AnsiUpperCase(ArananPlaka);

    

    SendRequest(rmGet, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + ArananPlaka + '.json', '');

  }

}

void MusteriKaydetTikla;

var 

  vBody, TemizPlaka: String;

{

  if (plakaedt.Text == '') { ShowMessage('Plaka boş olamaz!'); Exit; }

  

  TemizPlaka = clGetStringReplace(plakaedt.Text, ' ', '');

  TemizPlaka = AnsiUpperCase(TemizPlaka);

  

  vBody = '{"Plaka":"' + TemizPlaka + '","Ad":"' + adedt.Text + '","Telefon":"' + teledt.Text + '","KM":"' + kmedt.Text + '","Islemler":"' + SecilenIslemler + '"}';

  

  SendRequest(rmPut, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + TemizPlaka + '.json', vBody);

  ShowMessage('Kayıt gönderiliyor...');

}

//////////////////// İŞLEM EKLEME EVENTLARI ////////////////////

void KaputEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Kaput, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Kaput işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BagajEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Bagaj, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Bagaj işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void YagEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Yağ Bakımı, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Yag işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 128; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void FiltreEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Filtreler, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Filtreler değiştirildi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void AkuEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Akü, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Akü işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BalansEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Balans, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Balans işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 160; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void OnTamponEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Ön Tampon, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Ön Tampon işlemi eklendi.');

  yeniLbl.Align = alleft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void ArkaTamponEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Arka Tampon, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Arka Tampon işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BujiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Buji, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Buji işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 150;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BalataEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Balata, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Balata işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 150;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SolOnKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Sol Ön Kapı, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol ön kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SolArkaKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Sol Arka Kapı, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol arka kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SagArkaKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Sağ Arka Kapı, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ arka kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SagOnKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  SecilenIslemler = SecilenIslemler + 'Sağ Ön Kapı, ';

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ On kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30;  yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

{

  girisyuz=TclForm.Create(Self);

  girisyuz.SetFormColor('#12192C','',clGNone);

  girisyuz.clSetWindowState(fwsMaximized);

  anapanel=girisyuz.AddNewProPanel(girisyuz, 'anapanel');

  clComponent.SetupComponent(anapanel,'{"Align":"Center","Width":450,"Height":650, "BackgroundColor":"#12192C"}');

  TclButton(girisyuz.clFindComponent('BtnFormMenu')).Visible = False;

  TclButton(girisyuz.clFindComponent('BtnGoBack')).Visible = False;

  logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');

  girisyuz.SetImage(logo1,'https://resmim.net/cdn/2026/05/05/CoxjKC.png');

  clComponent.SetupComponent(logo1, '{"Align":"Top", "Height":200,"Width":200}');

  logo1.RotationAngle= 5;

  ustabtn=girisyuz.AddNewProButton(anapanel, 'ustabtn','   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');

  clComponent.SetupComponent(ustabtn,'{"Align":"Top", "MarginTop":50, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}');

  girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove , 'OnUstaEnter');

  girisyuz.AddNewEvent(anapanel,tbeOnMouseMove, 'OnLeave');

  girisyuz.AddNewEvent(ustabtn,tbeOnClick, 'AcUstaSyf');

  musteribtn=girisyuz.AddNewProButton(anapanel, 'musteribtn','   Ben Araç Sahibiyim' + #13 + '   Aracımın servis geçmişini gör');

  clComponent.SetupComponent(musteribtn,'{"Align":"Top", "MarginTop":20, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}');

  girisyuz.AddNewEvent(musteribtn, tbeOnMouseMove , 'OnMusteriEnter');

  girisyuz.AddNewEvent(musteribtn,tbeOnClick, 'AcMusteriSyf');

  girisyuz.run;

}

var

  girisyuz, ustasayfasi, musterisayfasi: TclForm;

  RestClient: TclRest;

  logo1: TClProImage;

  MemoDB: TclMemo;

  anapanel, ustapanel,musteripanel,musteribilgipanel, islempanel,plakapnl, islemkayitpanel,islemkayitpanel2,islemkayitpanel3,balatalbl,yaglbl,filtrelbl,akulbl,bujilbl,balanslbl,sagonlbl,sagarkalbl,solonlbl,solarkalbl,kaputlbl,bagajlbl,ontamponlbl,arkatamponlbl: TclProPanel;

  ustabtn,musteribtn, aracbtn,yenikayitbtn,sorgulabtn,balatabtn,yagbtn,filtrebtn,akubtn,bujibtn,balansbtn,sagonbtn,sagarkabtn,solonbtn,solarkabtn,kaputbtn,bagajbtn,ontamponbtn,arkatamponbtn : TclProButton;

  basliklbl,plakalbl,bilgibasliklbl,musteribasliklbl, adlbl, tellbl, kmlbl:TClProLabel;

  plakaedt, adedt, teledt, kmedt, musteriaramaedt: TclProEdit;

  arabaimg : TClProImage;

  musteriBilgiKart, odemePanel: TclProPanel;

  detayBaslikLbl, toplamTutarLbl, borcLbl: TclProLabel;

  resAdLbl, resTelLbl, resKMLbl, resIslemlerLbl: TclProLabel;

  islemJSON: TclJSONObject;

void AcMusteriSyf;

{

  musterisayfasi = TclForm.Create(Self);

  TclButton(musterisayfasi.clFindComponent('BtnFormMenu')).Visible = False;

  musterisayfasi.SetFormColor('#12192C','',clGNone);

  

  musteripanel = musterisayfasi.AddNewProPanel(musterisayfasi,'musteripanel');

  clComponent.SetupComponent(musteripanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');

  

  musteribasliklbl = musterisayfasi.AddNewProLabel(musteripanel, 'musteribasliklbl', 'Müşteri Sorgulama Paneli');

  clComponent.SetupComponent(musteribasliklbl, '{"Align":"Center","Width":250, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

  

  musteriaramaedt = musterisayfasi.AddNewProEdit(musterisayfasi, 'musteriaramaedt', 'Plaka Giriniz (Örn: 34ABC123)');

  clComponent.SetupComponent(musteriaramaedt,'{"Align":"Top","MarginTop":30,"MarginLeft":100,"MarginRight":100,"Height":50, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#FFFFFF", "TextColor":"#000000"}');

  

  sorgulabtn = musterisayfasi.AddNewProButton(musterisayfasi, 'sorgulabtn', 'ARACI SORGULA');

  clComponent.SetupComponent(sorgulabtn, '{"Align":"Top","MarginTop":10,"MarginLeft":150,"MarginRight":150, "Height":50, "RoundHeight":15, "RoundWidth":15, "BackgroundColor":"#FF8C00", "TextColor":"#FFFFFF", "TextBold":"yes"}');

  musterisayfasi.AddNewEvent(sorgulabtn, tbeOnClick, 'SorgulaButonTikla');

  musteriBilgiKart = musterisayfasi.AddNewProPanel(musterisayfasi, 'musteriBilgiKart');

  clComponent.SetupComponent(musteriBilgiKart, '{"Align":"Left","MarginLeft":30,"MarginTop":30,"MarginBottom":50, "Width":400, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');

  

  detayBaslikLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'detayBaslikLbl', 'Müşteri & Araç Detayı');

  clComponent.SetupComponent(detayBaslikLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  // YENİ EKLENEN KISIM: Verilerin yazdırılacağı etiketleri oluşturuyoruz

  resAdLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resAdLbl', 'Ad Soyad: -');

  clComponent.SetupComponent(resAdLbl, '{"Align":"Top","MarginTop":15,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  resTelLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resTelLbl', 'Telefon: -');

  clComponent.SetupComponent(resTelLbl, '{"Align":"Top","MarginTop":5,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  resKMLbl = musterisayfasi.AddNewProLabel(musteriBilgiKart, 'resKMLbl', 'Kilometre: -');

  clComponent.SetupComponent(resKMLbl, '{"Align":"Top","MarginTop":5,"MarginLeft":15,"Height":25,"TextSize":13,"TextColor":"#FFFFFF"}');

  odemePanel = musterisayfasi.AddNewProPanel(musterisayfasi, 'odemePanel');

  clComponent.SetupComponent(odemePanel, '{"Align":"Client","MarginLeft":20,"MarginRight":30,"MarginTop":30,"MarginBottom":50, "BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15}');

  

  toplamTutarLbl = musterisayfasi.AddNewProLabel(odemePanel, 'toplamTutarLbl', 'Servis Geçmişi ve Ödemeler');

  clComponent.SetupComponent(toplamTutarLbl, '{"Align":"Top","MarginTop":20,"MarginLeft":15,"Height":30,"TextSize":15,"TextColor":"#FF8C00","TextBold":"yes"}');

  borcLbl = musterisayfasi.AddNewProLabel(odemePanel, 'borcLbl', 'Toplam Borç: 0.00 TL');

  clComponent.SetupComponent(borcLbl, '{"Align":"Bottom","MarginBottom":20,"MarginLeft":15,"Height":30,"TextSize":16,"TextColor":"#FFFFFF","TextBold":"yes"}');

  musterisayfasi.Show;

  musterisayfasi.clSetWindowState(fwsMaximized);

}

void OnUstaEnter;

{

  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

void OnMusteriEnter;

{

  clComponent.SetupComponent(musteribtn, '{"BorderColor":"#FF8C00", "BorderWidth":2}');

}

void OnLeave;

{

  clComponent.SetupComponent(ustabtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');

  clComponent.SetupComponent(musteribtn, '{"BorderColor":"#1C253E", "BorderWidth":2}');

}

void AcUstaSyf;

{

  //////// USTA SAYFASI

  ustasayfasi = TclForm.Create(girisyuz);

  ustasayfasi.SetFormColor('#12192C','',clGNone);

  TclButton(ustasayfasi.clFindComponent('BtnFormMenu')).Visible = False;

  ustapanel = ustasayfasi.AddNewProPanel(ustasayfasi, 'ustapanel');

  clComponent.SetupComponent(ustapanel,'{"Align":"Top","Height":70, "BackgroundColor":"#1C253E"}');

  basliklbl = ustasayfasi.AddNewProLabel(ustapanel, 'basliklbl', 'Usta Yönetim Paneli');

  clComponent.SetupComponent(basliklbl, '{"Align":"Center","Width":168, "TextSize":18, "TextColor":"#FFFFFF", "TextBold":"yes"}');

  yenikayitbtn = ustasayfasi.AddNewProButton(ustasayfasi, 'yenikayitbtn', ' + Yeni Müşteri Kaydı');

  clComponent.SetupComponent(yenikayitbtn,'{"Align":"Bottom", "MarginBottom":20, "MarginLeft":20, "MarginRight":20, "Height":60, "BackgroundColor":"#FF8C00", "RoundHeight":10, "RoundWidth":10, "TextColor":"#FFFFFF", "TextBold":"yes"}')

  musteribilgipanel= ustasayfasi.AddNewProPanel(ustasayfasi,'musteribilgipanel')

  clComponent.SetupComponent(musteribilgipanel, '{"Align":"Left","MarginLeft":30,"MarginBottom":30,"MarginTop":350,"MarginRight":20, "Height":50,"Width":500,"BackgroundColor":"#1E2940","RoundWidth":15,"RoundHeight":15 }')

  bilgibasliklbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'bilgibasliklbl', '                                     Müşteri ve Araç Bilgileri');

  clComponent.SetupComponent(bilgibasliklbl, '{"Align":"Top", "MarginTop":30, "MarginLeft":20, "Height":30, "TextSize":15, "TextColor":"#FF8C00", "TextBold":"yes"}');

  plakalbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'plakalbl', 'ARAÇ PLAKASI');

  clComponent.SetupComponent(plakalbl, '{"MarginBottom":150,"MarginRight":280, "Height":15, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  plakaedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'plakaedt', '34 ABC 123');

  clComponent.SetupComponent(plakaedt, '{"MarginBottom":90, "MarginLeft":20, "MarginRight":20, "Height":45,"Width":450, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  adlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'adlbl', 'AD SOYAD');

  clComponent.SetupComponent(adlbl, '{"MarginBottom":330, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  adedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'adedt', 'Örn: Ali Yılmaz');

  clComponent.SetupComponent(adedt,'{"MarginBottom":270, "MarginLeft":20,"MarginRight":280, "Height":45,"Width":200, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  tellbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'tellbl', 'TELEFON');

  clComponent.SetupComponent(tellbl, '{"MarginBottom":330, "MarginLeft":200, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  teledt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'teledt', '0555...');

  clComponent.SetupComponent(teledt, '{"MarginBottom":270, "MarginLeft":280,"MarginRight":20,"Width":200,"MaxLength":11, "Height":45, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#2E374E", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  teledt.KeyboardType=vktNumberPad;

  teledt.MaxLength=11;

  kmlbl = ustasayfasi.AddNewProLabel(musteribilgipanel, 'kmlbl', 'GÜNCEL KİLOMETRE');

  clComponent.SetupComponent(kmlbl, '{"MarginBottom":5, "MarginRight":280, "Height":20, "TextSize":11, "TextColor":"#9BA2B5", "TextBold":"yes"}');

  kmedt = ustasayfasi.AddNewProEdit(musteribilgipanel, 'kmedt', '84500');

  clComponent.SetupComponent(kmedt, '{"MarginTop":55, "MarginLeft":20, "MarginRight":20, "Height":45,"Width":450, "RoundHeight":10, "RoundWidth":10, "BorderColor":"#FF8C00", "BackgroundColor":"#1C253E", "TextColor":"#FFFFFF"}');

  kmedt.KeyboardType=vktNumberPad;

  islempanel = ustasayfasi.AddNewProPanel(ustasayfasi,'islempanel')

  clComponent.SetupComponent(islempanel, '{"Align":"Right","RoundWidth":15,"RoundHeight":15,"MarginBottom":30,"MarginTop":5, "BackgroundColor":"#1E2940","Width":1350,"Height":900 }')

  

  arabaimg = ustasayfasi.AddNewProImage(islempanel, 'arabaimg');

  ustasayfasi.SetImage(arabaimg, 'https://resmim.net/cdn/2026/05/06/CrNRqh.png');

  clComponent.SetupComponent(arabaimg, '{"MarginTop":300,"Width":1200,"Height":700}')

  arabaimg.hittest=false;

  kaputbtn = ustasayfasi.AddNewProButton(islempanel, 'kaputbtn', '●');

  clComponent.SetupComponent(kaputbtn, '{"Width":110,"MarginTop":150,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(kaputbtn,tbeOnClick,'KaputEkleme')

  ontamponbtn = ustasayfasi.AddNewProButton(islempanel, 'ontamponbtn', '●');

  clComponent.SetupComponent(ontamponbtn, '{"Width":200,"MarginTop":540,"MarginRight":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(ontamponbtn,tbeOnClick,'OnTamponEkleme')

  solonbtn = ustasayfasi.AddNewProButton(islempanel, 'solonbtn', '●');

  clComponent.SetupComponent(solonbtn, '{"Width":100,"MarginTop":355,"MarginRight":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(solonbtn,tbeOnClick,'SolOnKapiEkleme')

  sagonbtn = ustasayfasi.AddNewProButton(islempanel, 'sagonbtn', '●');

  clComponent.SetupComponent(sagonbtn, '{"Width":100,"MarginTop":355,"MarginRight":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(sagonbtn,tbeOnClick,'SagOnKapiEkleme')

  solarkabtn = ustasayfasi.AddNewProButton(islempanel, 'solarkabtn', '●');

  clComponent.SetupComponent(solarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":280,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(solarkabtn,tbeOnClick,'SolArkaKapiEkleme')

  sagarkabtn = ustasayfasi.AddNewProButton(islempanel, 'sagarkabtn', '●');

  clComponent.SetupComponent(sagarkabtn, '{"Width":100,"MarginTop":355,"MarginLeft":900,"Height":90, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(sagarkabtn,tbeOnClick,'SagArkaKapiEkleme')

  arkatamponbtn = ustasayfasi.AddNewProButton(islempanel, 'arkatamponbtn', '●');

  clComponent.SetupComponent(arkatamponbtn, '{"Width":200,"MarginTop":540,"Marginleft":600,"Height":40, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(arkatamponbtn,tbeOnClick,'ArkaTamponEkleme')

  bagajbtn= ustasayfasi.AddNewProButton(islempanel, 'bagajbtn', '●');

  clComponent.SetupComponent(bagajbtn, '{"Width":110,"MarginTop":150,"Marginleft":600,"Height":55, "TextColor":"#ff0000","RoundHeight":20, "RoundWidth":20, "TextSize":15, "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(bagajbtn,tbeOnClick,'BagajEkleme')

  balatabtn = ustasayfasi.AddNewProButton(islempanel, 'balatabtn', '+ Balata');

  clComponent.SetupComponent(balatabtn, '{"MarginRight":1200, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FDF2E9", "TextColor":"#D35400", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(balatabtn,tbeOnClick,'BalataEkleme')

  

  yagbtn = ustasayfasi.AddNewProButton(islempanel, 'yagbtn', '+ Yağ');

  clComponent.SetupComponent(yagbtn, '{"MarginRight":900, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EBF5FB", "TextColor":"#2E86C1", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(yagbtn,tbeOnClick,'YagEkleme')

  filtrebtn = ustasayfasi.AddNewProButton(islempanel, 'filtrebtn', '+ Filtreler');

  clComponent.SetupComponent(filtrebtn, '{"MarginRight":600, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAFAF1", "TextColor":"#27AE60", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(filtrebtn,tbeOnClick,'FiltreEkleme')

  akubtn = ustasayfasi.AddNewProButton(islempanel, 'akubtn', '+ Akü');

  clComponent.SetupComponent(akubtn, '{"MarginRight":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#FEF9E7", "TextColor":"#F1C40F", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(akubtn,tbeOnClick,'AkuEkleme')

  bujibtn = ustasayfasi.AddNewProButton(islempanel, 'bujibtn', '+ Buji');

  clComponent.SetupComponent(bujibtn, '{"MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#F4ECF7", "TextColor":"#8E44AD", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(bujibtn,tbeOnClick,'BujiEkleme')

  balansbtn = ustasayfasi.AddNewProButton(islempanel, 'balansbtn', '+ Balans');

  clComponent.SetupComponent(balansbtn, '{ "MarginLeft":300, "MarginBottom":200, "Height":50, "Width":120, "RoundHeight":20, "RoundWidth":20, "BackgroundColor":"#EAECEE", "TextColor":"#2C3E50", "TextBold":"yes"}');

  ustasayfasi.AddNewEvent(balansbtn,tbeOnClick,'BalansEkleme')

  islemkayitpanel = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel');

  clComponent.SetupComponent(islemkayitpanel, '{"MarginBottom":680,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":75 }');

  

  islemkayitpanel2 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel2')

  clComponent.SetupComponent(islemkayitpanel2, '{"MarginBottom":630,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

  

  islemkayitpanel3 = ustasayfasi.AddNewProPanel(islempanel,'islemkayitpanel3')

  clComponent.SetupComponent(islemkayitpanel3, '{"MarginBottom":570,"RoundWidth":15,"RoundHeight":15 , "BackgroundColor":"#ffffff","Width":1350,"Height":80 }');

  ustasayfasi.AddNewEvent(yenikayitbtn, tbeOnClick, 'MusteriKaydetTikla');

  ustasayfasi.Show;

  ustasayfasi.clSetWindowState(fwsMaximized);

}

// YENİ EKLENEN KISIM: Veritabanı Cevabını İşleyip Ekrana Yazdıran Akıllı Fonksiyon

void CompletedProc;

var

  GelenCevap, vAd, vTel, vKM: String;

{

  if (RestClient.Response == 'null')

  {

    ShowMessage('Sistemde bu plakaya ait kayıt bulunamadı!');

    // Bulunamazsa ekranı temizleyelim

    if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: -';

    if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: -';

    if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: -';

  }

  else

  {

    GelenCevap = RestClient.Response;

    

    // Eğer cevapta "Ad" kelimesi varsa bu bir arama (Sorgula) sonucudur, bilgileri doldur!

    if (Pos('"Ad"', GelenCevap) > 0)

    {

      vAd  = Clomosy.CLParseJSON(GelenCevap, 'Ad');

      vTel = Clomosy.CLParseJSON(GelenCevap, 'Telefon');

      vKM  = Clomosy.CLParseJSON(GelenCevap, 'KM');

      

      // Ekranda etiketler (Labeller) varsa verileri içlerine yazdır

      if (Assigned(resAdLbl)) resAdLbl.Text = 'Ad Soyad: ' + vAd;

      if (Assigned(resTelLbl)) resTelLbl.Text = 'Telefon: ' + vTel;

      if (Assigned(resKMLbl)) resKMLbl.Text = 'Kilometre: ' + vKM + ' km';

      

      ShowMessage('Müşteri bilgileri başarıyla getirildi.');

    }

    else

    {

      // "Ad" kelimesi yoksa bu bir Usta Kayıt (Put) başarı mesajıdır.

      ShowMessage('İşlem Başarılı: Kayıt Tamamlandı!');

    }

  }

}

void SendRequest(AMethod, AURL, ABody);

{

  RestClient = TclRest.Create;

  RestClient.Accept = 'application/json';

  RestClient.ContentType = 'application/json';

  RestClient.BaseURL = AURL;

  if (ABody <> '') RestClient.Body = ABody;

  RestClient.Method = AMethod;

  RestClient.OnCompleted = 'CompletedProc';

  RestClient.ExecuteAsync;

}

void SorgulaButonTikla;

var

  ArananPlaka: String;

{

  if (musteriaramaedt.Text == '')

  {

    ShowMessage('Lütfen plaka giriniz.');

  }

  else

  {

    // Arama yaparken de müşterinin girdiği boşlukları silip büyütüyoruz

    ArananPlaka = clGetStringReplace(musteriaramaedt.Text, ' ', '');

    ArananPlaka = AnsiUpperCase(ArananPlaka);

    

    SendRequest(rmGet, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + ArananPlaka + '.json', '');

  }

}

void MusteriKaydetTikla;

var 

  vBody, TemizPlaka: String;

{

  if (plakaedt.Text == '') { ShowMessage('Plaka boş olamaz!'); Exit; }

  

  // Plakadaki boşlukları sil ve tüm harfleri büyüt

  TemizPlaka = clGetStringReplace(plakaedt.Text, ' ', '');

  TemizPlaka = AnsiUpperCase(TemizPlaka);

  

  vBody = '{"Plaka":"' + TemizPlaka + '","Ad":"' + adedt.Text + '","Telefon":"' + teledt.Text + '","KM":"' + kmedt.Text + '"}';

  

  SendRequest(rmPut, 'https://sanayii-c3fc6-default-rtdb.firebaseio.com/Musteriler/' + TemizPlaka + '.json', vBody);

  ShowMessage('Kayıt gönderiliyor...');

}

//////////////////// İŞLEM EKLEME EVENTLARI

void KaputEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Kaput işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BagajEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Bagaj işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 150; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void YagEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Yag işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 128; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void FiltreEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Filtreler değiştirildi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void AkuEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Akü işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 135; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BalansEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel3, BenzersizIsim, '- Balans işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Width = 160; yeniLbl.Margins.Left = 15;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void OnTamponEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Ön Tampon işlemi eklendi.');

  yeniLbl.Align = alleft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void ArkaTamponEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Arka Tampon işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BujiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Buji işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 15; yeniLbl.Width = 150;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void BalataEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel, BenzersizIsim, '- Balata işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 150;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SolOnKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol ön kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SolArkaKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sol arka kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SagArkaKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ arka kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

void SagOnKapiEkleme;

var yeniLbl: TclProLabel; BenzersizIsim: String;

{

  BenzersizIsim = 'islemLbl_' + IntToStr(Random(999999));

  yeniLbl = ustasayfasi.AddNewProLabel(islemkayitpanel2, BenzersizIsim, '- Sağ On kapı işlemi eklendi.');

  yeniLbl.Align = alLeft; yeniLbl.Height = 30; yeniLbl.Margins.Top = 5; yeniLbl.Margins.Left = 20; yeniLbl.Width = 200;

  yeniLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); yeniLbl.clProSettings.TextSettings.Font.Style = [fsBold]; yeniLbl.clProSettings.FontSize = 14; yeniLbl.SetclProSettings(yeniLbl.clProSettings);

}

{

  girisyuz=TclForm.Create(Self);

  girisyuz.SetFormColor('#12192C','',clGNone);

  girisyuz.clSetWindowState(fwsMaximized);

  anapanel=girisyuz.AddNewProPanel(girisyuz, 'anapanel');

  clComponent.SetupComponent(anapanel,'{"Align":"Center","Width":450,"Height":650, "BackgroundColor":"#12192C"}');

  TclButton(girisyuz.clFindComponent('BtnFormMenu')).Visible = False;

  TclButton(girisyuz.clFindComponent('BtnGoBack')).Visible = False;

  logo1 = girisyuz.AddNewProImage(anapanel, 'logo1');

  girisyuz.SetImage(logo1,'https://resmim.net/cdn/2026/05/05/CoxjKC.png');

  clComponent.SetupComponent(logo1, '{"Align":"Top", "Height":200,"Width":200}');

  logo1.RotationAngle= 5;

  ustabtn=girisyuz.AddNewProButton(anapanel, 'ustabtn','   Ben Ustayım' + #13 + '   Müşteri kabul et ve işlem kaydet');

  clComponent.SetupComponent(ustabtn,'{"Align":"Top", "MarginTop":50, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}');

  girisyuz.AddNewEvent(ustabtn, tbeOnMouseMove , 'OnUstaEnter');

  girisyuz.AddNewEvent(anapanel,tbeOnMouseMove, 'OnLeave');

  girisyuz.AddNewEvent(ustabtn,tbeOnClick, 'AcUstaSyf');

  musteribtn=girisyuz.AddNewProButton(anapanel, 'musteribtn','   Ben Araç Sahibiyim' + #13 + '   Aracımın servis geçmişini gör');

  clComponent.SetupComponent(musteribtn,'{"Align":"Top", "MarginTop":20, "Height":80, "BackgroundColor":"#1C253E", "RoundHeight":15, "RoundWidth":15, "BorderColor":"#1C253E", "BorderWidth":1,"TextSize":14, "TextColor":"#FFFFFF","TextBold":"yes"}');

  girisyuz.AddNewEvent(musteribtn, tbeOnMouseMove , 'OnMusteriEnter');

  girisyuz.AddNewEvent(musteribtn,tbeOnClick, 'AcMusteriSyf');

  girisyuz.run;

}

az önce yardımcı olduğunuz koddaki yapıları tam anlayamadığım için işlemleri o müşteri sayfasındaki alana eklemeyi başaramadım yardımcı olur musunuz?

if (EditEmail == nil || EditSifre == nil) {

  GirisEkraniniCiz(); // Nesneler yoksa ekranı tekrar çiz

  Exit;

}

if ((EditEmail.Text == '') || (EditSifre.Text == '')) { ... }


* Eklendiğin nesneleri global olarak tanımlar mısın? mesela local de kalan bazı EdtAd,EdtSoyad gibi değişkenleri global olarak tanımla.


*TclRest işlemleri asenkron çalıştığı için bazen yanıt gelmeden form kapanırsa çökme yaşanabilir. 
Execute yerine ExecuteAsync kullanmak daha sağlıklı 

var

  MyForm: TclForm;

  TitleLabel, InfoLabel: TclProLabel;

  CylinderPanel: TclProPanel;

  Liquid1, Liquid2, Liquid3, Liquid4, Liquid5: TclProPanel;

  BtnBal, BtnSabun, BtnSu, BtnYag, BtnAlkol: TclProButton;

  MainVertBox, BtnFlowBox: TclLayout;

  CurrentStep: Integer;

  LabImage: TclImage;

void SetupLiquids;

{

  Liquid1.Visible = False;

  Liquid2.Visible = False;

  Liquid3.Visible = False;

  Liquid4.Visible = False;

  Liquid5.Visible = False;

  CurrentStep = 1;

}

void CheckDensity;

var

  ClickedTag: Integer;

  SenderBtn: TclProButton;

{

  SenderBtn = TclProButton(MyForm.clSender);

  ClickedTag = SenderBtn.clTagInt; 

  

  if (ClickedTag == CurrentStep)

  {

    if (CurrentStep == 1) 

    {

      Liquid1.Visible = True; 

      ShowMessage('Bal (d=1.42) en yoğun olduğu için en alta yerleşti!');

    }

    else if (CurrentStep == 2) 

    {

      Liquid2.Visible = True; 

      ShowMessage('Bulaşık Sabunu (d=1.06) Balın üzerine çıktı.');

    }

    else if (CurrentStep == 3) 

    {

      Liquid3.Visible = True; 

      ShowMessage('Su (d=1.00) Sabunun üzerinde duruyor.');

    }

    else if (CurrentStep == 4) 

    {

      Liquid4.Visible = True; 

      ShowMessage('Zeytinyağı (d=0.92) Suyun üstünde yüzüyor!');

    }

    else if (CurrentStep == 5) 

    {

      Liquid5.Visible = True; 

      ShowMessage('Tebrikler! Alkol (d=0.80) en üstte. Yoğunluk Kulesi Tamamlandı!');

    }

    

    CurrentStep = CurrentStep + 1;

  }

  else

  {

    ShowMessage('Hatalı Sıralama! Yoğunluğu daha fazla olan bir madde seçmelisin.');

  }

}

{

  MyForm = TclForm.Create(Self);

  

  LabImage = MyForm.AddNewImage(MyForm, 'LabImage');

  LabImage.Align = alContents;

  MyForm.SetImage(LabImage, 'https://img.freepik.com/free-vector/empty-science-laboratory-scene_1308-59178.jpg');

  MainVertBox = MyForm.AddNewLayout(MyForm, 'MainVertBox');

  MainVertBox.Align = alContents;

  TitleLabel = MyForm.AddNewProLabel(MainVertBox, 'TitleLabel', 'FEN BİLGİSİ: YOĞUNLUK KULESİ');

  TitleLabel.Align = alTop;

  TitleLabel.Height = 40;

  TitleLabel.Margins.Top = 20;

  TitleLabel.clProSettings.FontSize = 22;

  TitleLabel.clProSettings.FontColor = clAlphaColor.clWhite;

  TitleLabel.clProSettings.FontHorzAlign = palCenter;

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

  TitleLabel.SetclProSettings(TitleLabel.clProSettings);

  InfoLabel = MyForm.AddNewProLabel(MainVertBox, 'InfoLabel', 'Sıvıları en yoğundan en az yoğuna doğru mezüre ekle!');

  InfoLabel.Align = alTop;

  InfoLabel.Height = 30;

  InfoLabel.clProSettings.FontSize = 14;

  InfoLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#E1E1E1');

  InfoLabel.clProSettings.FontHorzAlign = palCenter;

  InfoLabel.SetclProSettings(InfoLabel.clProSettings);

  CylinderPanel = MyForm.AddNewProPanel(MainVertBox, 'CylinderPanel');

  CylinderPanel.Align = alCenter;

  CylinderPanel.Width = 150;

  CylinderPanel.Height = 350;

  CylinderPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#50FFFFFF');

  CylinderPanel.clProSettings.BorderColor = clAlphaColor.clWhite;

  CylinderPanel.clProSettings.BorderWidth = 2;

  CylinderPanel.clProSettings.RoundWidth = 20;

  CylinderPanel.clProSettings.RoundHeight = 20;

  CylinderPanel.SetclProSettings(CylinderPanel.clProSettings);

  Liquid1 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid1');

  Liquid1.Align = alBottom;

  Liquid1.Height = 60;

  Liquid1.Margins.Left = 5; Liquid1.Margins.Right = 5; Liquid1.Margins.Bottom = 5;

  Liquid1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8B4513');

  Liquid1.clProSettings.RoundWidth = 10; Liquid1.clProSettings.RoundHeight = 10;

  Liquid1.SetclProSettings(Liquid1.clProSettings);

  Liquid2 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid2');

  Liquid2.Align = alBottom;

  Liquid2.Height = 60;

  Liquid2.Margins.Left = 5; Liquid2.Margins.Right = 5;

  Liquid2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#228B22');

  Liquid2.SetclProSettings(Liquid2.clProSettings);

  Liquid3 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid3');

  Liquid3.Align = alBottom;

  Liquid3.Height = 60;

  Liquid3.Margins.Left = 5; Liquid3.Margins.Right = 5;

  Liquid3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00BFFF');

  Liquid3.SetclProSettings(Liquid3.clProSettings);

  Liquid4 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid4');

  Liquid4.Align = alBottom;

  Liquid4.Height = 60;

  Liquid4.Margins.Left = 5; Liquid4.Margins.Right = 5;

  Liquid4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFD700');

  Liquid4.SetclProSettings(Liquid4.clProSettings);

  Liquid5 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid5');

  Liquid5.Align = alBottom;

  Liquid5.Height = 60;

  Liquid5.Margins.Left = 5; Liquid5.Margins.Right = 5;

  Liquid5.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF4500');

  Liquid5.SetclProSettings(Liquid5.clProSettings);

  BtnFlowBox = MyForm.AddNewLayout(MainVertBox, 'BtnFlowBox');

  BtnFlowBox.Align = alBottom;

  BtnFlowBox.Height = 180;

  BtnBal = MyForm.AddNewProButton(BtnFlowBox, 'BtnBal', 'BAL (1.42)');

  BtnBal.Align = alTop;

  BtnBal.Height = 30;

  BtnBal.Margins.Left = 50; BtnBal.Margins.Right = 50; BtnBal.Margins.Top = 5;

  BtnBal.clTagInt = 1; // Tag ataması

  BtnBal.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8B4513');

  BtnBal.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnBal.clProSettings.RoundWidth = 10; BtnBal.clProSettings.RoundHeight = 10;

  BtnBal.SetclProSettings(BtnBal.clProSettings);

  MyForm.AddNewEvent(BtnBal, tbeonclick, 'CheckDensity');

  BtnSabun = MyForm.AddNewProButton(BtnFlowBox, 'BtnSabun', 'SABUN (1.06)');

  BtnSabun.Align = alTop;

  BtnSabun.Height = 30;

  BtnSabun.Margins.Left = 50; BtnSabun.Margins.Right = 50; BtnSabun.Margins.Top = 5;

  BtnSabun.clTagInt = 2;

  BtnSabun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#228B22');

  BtnSabun.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnSabun.clProSettings.RoundWidth = 10; BtnSabun.clProSettings.RoundHeight = 10;

  BtnSabun.SetclProSettings(BtnSabun.clProSettings);

  MyForm.AddNewEvent(BtnSabun, tbeonclick, 'CheckDensity');

  BtnSu = MyForm.AddNewProButton(BtnFlowBox, 'BtnSu', 'SU (1.00)');

  BtnSu.Align = alTop;

  BtnSu.Height = 30;

  BtnSu.Margins.Left = 50; BtnSu.Margins.Right = 50; BtnSu.Margins.Top = 5;

  BtnSu.clTagInt = 3;

  BtnSu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00BFFF');

  BtnSu.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnSu.clProSettings.RoundWidth = 10; BtnSu.clProSettings.RoundHeight = 10;

  BtnSu.SetclProSettings(BtnSu.clProSettings);

  MyForm.AddNewEvent(BtnSu, tbeonclick, 'CheckDensity');

  BtnYag = MyForm.AddNewProButton(BtnFlowBox, 'BtnYag', 'YAĞ (0.92)');

  BtnYag.Align = alTop;

  BtnYag.Height = 30;

  BtnYag.Margins.Left = 50; BtnYag.Margins.Right = 50; BtnYag.Margins.Top = 5;

  BtnYag.clTagInt = 4;

  BtnYag.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFD700');

  BtnYag.clProSettings.FontColor = clAlphaColor.clBlack;

  BtnYag.clProSettings.RoundWidth = 10; BtnYag.clProSettings.RoundHeight = 10;

  BtnYag.SetclProSettings(BtnYag.clProSettings);

  MyForm.AddNewEvent(BtnYag, tbeonclick, 'CheckDensity');

  BtnAlkol = MyForm.AddNewProButton(BtnFlowBox, 'BtnAlkol', 'ALKOL (0.80)');

  BtnAlkol.Align = alTop;

  BtnAlkol.Height = 30;

  BtnAlkol.Margins.Left = 50; BtnAlkol.Margins.Right = 50; BtnAlkol.Margins.Top = 5;

  BtnAlkol.clTagInt = 5;

  BtnAlkol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF4500');

  BtnAlkol.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnAlkol.clProSettings.RoundWidth = 10; BtnAlkol.clProSettings.RoundHeight = 10;

  BtnAlkol.SetclProSettings(BtnAlkol.clProSettings);

  MyForm.AddNewEvent(BtnAlkol, tbeonclick, 'CheckDensity');

  SetupLiquids;

  MyForm.Run;

}

var

  MyForm: TclForm;

  TitleLabel, InfoLabel: TclProLabel;

  CylinderPanel: TclProPanel;

  Liquid1, Liquid2, Liquid3, Liquid4, Liquid5: TclProPanel;

  BtnBal, BtnSabun, BtnSu, BtnYag, BtnAlkol: TclProButton;

  MainVertBox, BtnFlowBox: TclLayout;

  CurrentStep: Integer;

  LabImage: TclImage;

void SetupLiquids;

{

  Liquid1.Visible = False;

  Liquid2.Visible = False;

  Liquid3.Visible = False;

  Liquid4.Visible = False;

  Liquid5.Visible = False;

  CurrentStep = 1;

}

void CheckDensity;

var

  ClickedTag: Integer;

{

  ClickedTag = TclProButton(MyForm.LastEventSender).Tag;

  

  if (ClickedTag == CurrentStep)

  {

    if (CurrentStep == 1) {Liquid1.Visible = True; ShowMessage('Bal (d=1.42) en yoğun olduğu için en alta yerleşti!');}

    if (CurrentStep == 2) {Liquid2.Visible = True; ShowMessage('Bulaşık Sabunu (d=1.06) Balın üzerine çıktı.');}

    if (CurrentStep == 3) {Liquid3.Visible = True; ShowMessage('Su (d=1.00) Sabunun üzerinde duruyor.');}

    if (CurrentStep == 4) {Liquid4.Visible = True; ShowMessage('Zeytinyağı (d=0.92) Suyun üstünde yüzüyor!');}

    if (CurrentStep == 5) {Liquid5.Visible = True; ShowMessage('Tebrikler! Alkol (d=0.80) en üstte. Yoğunluk Kulesi Tamamlandı!');}

    

    CurrentStep = CurrentStep + 1;

  }

  else

  {

    ShowMessage('Hatalı Sıralama! Yoğunluğu daha fazla olan bir madde seçmelisin.');

  }

}

{

  MyForm = TclForm.Create(Self);

  

  // Arka Plan Görseli

  LabImage = MyForm.AddNewImage(MyForm, 'LabImage');

  LabImage.Align = alContents;

  MyForm.SetImage(LabImage, 'https://img.freepik.com/free-vector/empty-science-laboratory-scene_1308-59178.jpg');

  MainVertBox = MyForm.AddNewLayout(MyForm, 'MainVertBox');

  MainVertBox.Align = alContents;

  TitleLabel = MyForm.AddNewProLabel(MainVertBox, 'TitleLabel', 'FEN BİLGİSİ: YOĞUNLUK KULESİ');

  clComponent.SetupComponent(TitleLabel, '{"Align":"Top","MarginTop":20,"MarginBottom":10,"Height":40,"TextHorizontalAlign":"Center","TextBold":"yes","FontSize":22,"FontColor":"#FFFFFF"}');

  InfoLabel = MyForm.AddNewProLabel(MainVertBox, 'InfoLabel', 'Sıvıları en yoğundan en az yoğuna doğru mezüre ekle!');

  clComponent.SetupComponent(InfoLabel, '{"Align":"Top","Height":30,"TextHorizontalAlign":"Center","FontSize":14,"FontColor":"#E1E1E1"}');

  // Mezür Tasarımı (Cylinder)

  CylinderPanel = MyForm.AddNewProPanel(MainVertBox, 'CylinderPanel');

  clComponent.SetupComponent(CylinderPanel, '{"Align":"Center","Width":150,"Height":350,"BackgroundColor":"#50FFFFFF","RoundHeight":20,"RoundWidth":20,"BorderColor":"#FFFFFF","BorderWidth":2}');

  // Sıvı Katmanları (Aşağıdan yukarıya 1-5)

  Liquid1 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid1'); // Bal

  clComponent.SetupComponent(Liquid1, '{"Align":"Bottom","Height":60,"BackgroundColor":"#8B4513","MarginLeft":5,"MarginRight":5,"MarginBottom":5,"RoundHeight":10,"RoundWidth":10}');

  

  Liquid2 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid2'); // Sabun

  clComponent.SetupComponent(Liquid2, '{"Align":"Bottom","Height":60,"BackgroundColor":"#228B22","MarginLeft":5,"MarginRight":5,"RoundHeight":5,"RoundWidth":5}');

  

  Liquid3 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid3'); // Su

  clComponent.SetupComponent(Liquid3, '{"Align":"Bottom","Height":60,"BackgroundColor":"#00BFFF","MarginLeft":5,"MarginRight":5}');

  

  Liquid4 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid4'); // Yağ

  clComponent.SetupComponent(Liquid4, '{"Align":"Bottom","Height":60,"BackgroundColor":"#FFD700","MarginLeft":5,"MarginRight":5}');

  

  Liquid5 = MyForm.AddNewProPanel(CylinderPanel, 'Liquid5'); // Alkol

  clComponent.SetupComponent(Liquid5, '{"Align":"Bottom","Height":60,"BackgroundColor":"#FF4500","MarginLeft":5,"MarginRight":5}');

  // Buton Alanı

  BtnFlowBox = MyForm.AddNewLayout(MainVertBox, 'BtnFlowBox');

  BtnFlowBox.Align = alBottom;

  BtnFlowBox.Height = 150;

  BtnFlowBox.Margins.Bottom = 20;

  // Butonlar ve Tag Atamaları (Yoğunluk sırasına göre Tag veriyoruz)

  BtnBal = MyForm.AddNewProButton(BtnFlowBox, 'BtnBal', 'BAL (1.42)');

  BtnBal.Tag = 1;

  clComponent.SetupComponent(BtnBal, '{"Align":"Top","MarginLeft":50,"MarginRight":50,"MarginTop":5,"Height":25,"BackgroundColor":"#8B4513","FontColor":"#FFFFFF","RoundHeight":10}');

  MyForm.AddNewEvent(BtnBal, tclOnClick, 'CheckDensity');

  BtnSabun = MyForm.AddNewProButton(BtnFlowBox, 'BtnSabun', 'SABUN (1.06)');

  BtnSabun.Tag = 2;

  clComponent.SetupComponent(BtnSabun, '{"Align":"Top","MarginLeft":50,"MarginRight":50,"MarginTop":5,"Height":25,"BackgroundColor":"#228B22","FontColor":"#FFFFFF","RoundHeight":10}');

  MyForm.AddNewEvent(BtnSabun, tclOnClick, 'CheckDensity');

  BtnSu = MyForm.AddNewProButton(BtnFlowBox, 'BtnSu', 'SU (1.00)');

  BtnSu.Tag = 3;

  clComponent.SetupComponent(BtnSu, '{"Align":"Top","MarginLeft":50,"MarginRight":50,"MarginTop":5,"Height":25,"BackgroundColor":"#00BFFF","FontColor":"#FFFFFF","RoundHeight":10}');

  MyForm.AddNewEvent(BtnSu, tclOnClick, 'CheckDensity');

  BtnYag = MyForm.AddNewProButton(BtnFlowBox, 'BtnYag', 'YAĞ (0.92)');

  BtnYag.Tag = 4;

  clComponent.SetupComponent(BtnYag, '{"Align":"Top","MarginLeft":50,"MarginRight":50,"MarginTop":5,"Height":25,"BackgroundColor":"#FFD700","FontColor":"#000000","RoundHeight":10}');

  MyForm.AddNewEvent(BtnYag, tclOnClick, 'CheckDensity');

  BtnAlkol = MyForm.AddNewProButton(BtnFlowBox, 'BtnAlkol', 'ALKOL (0.80)');

  BtnAlkol.Tag = 5;

  clComponent.SetupComponent(BtnAlkol, '{"Align":"Top","MarginLeft":50,"MarginRight":50,"MarginTop":5,"Height":25,"BackgroundColor":"#FF4500","FontColor":"#FFFFFF","RoundHeight":10}');

  MyForm.AddNewEvent(BtnAlkol, tclOnClick, 'CheckDensity');

  SetupLiquids;

  MyForm.Run;

}

hocam buda başka bir kod buda çalışmıyorhata veriyor düzeltemedik 

var

  MainForm: TCLForm;

  TargetPnl, PickerContainer: TclProPanel;

  ColorWebBrowser: TclProWebBrowser;

  CheckTimer, SetupTimer: TclTimer;

  LHtml, BaseColor: String;

  LblTitle: TclProLabel;

void OnCheckTimer;

var

  CurrentUrl, HexColor: String;

{

  CurrentUrl = ColorWebBrowser.URL;

  

  if (Copy(CurrentUrl, 1, 6) == 'color:')

  {

      HexColor = Copy(CurrentUrl, 7, 7);

      

      TargetPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(HexColor);

      TargetPnl.SetclProSettings(TargetPnl.clProSettings);

      

      PickerContainer.clProSettings.BorderColor = clAlphaColor.clHexToColor(HexColor);

      PickerContainer.SetclProSettings(PickerContainer.clProSettings);

      

      ColorWebBrowser.LoadHTML(LHtml);

  }

}

void OnSetupTimer;

{

  SetupTimer.Enabled = False;

  ColorWebBrowser.LoadHTML(LHtml);

  CheckTimer.Enabled = True;

}

{

  MainForm = TCLForm.Create(Self);

  MainForm.SetFormColor('#F1F5F9', '', clGNone);

  BaseColor = '#3B82F6';

  TargetPnl = MainForm.AddNewProPanel(MainForm, 'TargetPnl');

  TargetPnl.Align = alClient;

  TargetPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

  TargetPnl.SetclProSettings(TargetPnl.clProSettings);

  PickerContainer = MainForm.AddNewProPanel(MainForm, 'PickerContainer');

  PickerContainer.Align = alNone;

  PickerContainer.Width = 150;

  PickerContainer.Height = 100;

  PickerContainer.Left = MainForm.clWidth - 170;

  PickerContainer.Top = 20;

  PickerContainer.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

  PickerContainer.clProSettings.RoundHeight = 15;

  PickerContainer.clProSettings.RoundWidth = 15;

  PickerContainer.clProSettings.BorderWidth = 3;

  PickerContainer.clProSettings.BorderColor = clAlphaColor.clHexToColor(BaseColor);

  PickerContainer.SetclProSettings(PickerContainer.clProSettings);

  LblTitle = MainForm.AddNewProLabel(PickerContainer, 'LblTitle', 'Renk Seçici');

  LblTitle.Align = alTop;

  LblTitle.Height = 30;

  LblTitle.Margins.Top = 5;

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

  LblTitle.clProSettings.FontSize = 12;

  LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#475569');

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  ColorWebBrowser = MainForm.AddNewProWebBrowser(PickerContainer, 'ColorWebBrowser');

  ColorWebBrowser.Align = alBottom;

  ColorWebBrowser.Height = 45;

  ColorWebBrowser.Margins.Bottom = 10;

  ColorWebBrowser.Margins.Left = 10;

  ColorWebBrowser.Margins.Right = 10;

  

  LHtml = '<html><body style="margin:0; padding:0; overflow:hidden; background:transparent;">' +

          '<div style="width:100%; height:100%; background:#f1f5f9; color:#334155; font-family:sans-serif; font-weight:bold; font-size:14px; border:1px solid #cbd5e1; border-radius:8px; display:flex; justify-content:center; align-items:center; position:relative;">' +

          'Seçiniz <input type="color" id="cp" value="'+BaseColor+'" style="position:absolute; top:0; left:0; width:100%; height:100%; opacity:0; cursor:pointer;">' +

          '</div><script>document.getElementById("cp").onchange=(e)=>{window.location.href="color:"+e.target.value;};</script></body></html>';

  

  SetupTimer = MainForm.AddNewTimer(MainForm, 'SetupTimer', 500); 

  MainForm.AddNewEvent(SetupTimer, tbeOnTimer, 'OnSetupTimer');

  SetupTimer.Enabled = True;

  

  CheckTimer = MainForm.AddNewTimer(MainForm, 'CheckTimer', 200); 

  MainForm.AddNewEvent(CheckTimer, tbeOnTimer, 'OnCheckTimer');

  CheckTimer.Enabled = False;

  

  MainForm.Run;

}

bu kodu inceler misin