Kodunuzdaki Temel Hatalar:

1. Görsel Temizleme Hatası (Image Clear AV Hatası):

   • Kodunuzda birden fazla yerde ImgUrunFoto.Bitmap = Nil; satırını kullandınız. Clomosy'nin arka planındaki Delphi FMX kütüphanesinde Bitmap salt okunur bir nesne referansı gibi çalıştığından direkt olarak Nil ataması yapılamaz ve bu işlem Access Violation (bellek erişim hatası) veya derleme hatası verir.
   • Çözüm: Fotoğrafı temizlemek için Clomosy standart metodu olan ImgUrunFoto.MultiResBitmap.Clear; kullanılmalıdır.

2. JSON Objelerini Dataset'e Dönüştürme Hatası (Köşeli Parantez Eksikliği):

   • GoToDuzenle kısmında ClDataSetFromJSON fonksiyonuna REST'ten gelen tek bir JSON nesnesi (getRest.Response ve içindeki product nesnesi) gönderiliyor.
   • Clomosy'deki ClDataSetFromJSON fonksiyonu JSON Array (yani [...] ile başlayan köşeli parantezli dizi) bekler. Düz bir JSON objesi ({...}) aldığında parse edemez ve hata verir.
   • Çözüm: Bu JSON string ifadelerini çözümlerken başına ve sonuna köşeli parantez eklemek gerekir:
     • getDataset = Clomosy.ClDataSetFromJSON('[' + getRest.Response + ']');
     • prodDataset = Clomosy.ClDataSetFromJSON('[' + getDataset.FieldByName('product').AsString + ']');

3. Ciddi Bellek Sızıntıları (Free Edilmeyen Nesneler):

   • Kodda TclRest.Create ve TCLJSONQuery (dataset) gibi nesneler oluşturuluyor ancak hiçbir yerde .Free edilmiyor. Mobil uygulamalarda bu tip işlemler (özellikle döngü içindekiler) kısa sürede uygulamanın çökmesine yol açar.
   • Çözüm: Tüm REST istemcileri ve Dataset sorguları try...finally blokları içine alınarak işleri bittiğinde .Free metoduyla bellekten temizlenmelidir.

4. Kombobox Mükerrer Ekleme Hatası:

   • KategorileriYukle her çalıştığında kategorileri ComboBox'a tekrar ekler.
   • Çözüm: Metodun başına CmbKategori.Clear; eklenmiştir.

var

  AnaForm: TclForm;

  PnlAna: TclPanel;

  PnlAnaUst: TclProPanel;

  LblAnaBaslik: TclProLabel;

  BtnQR: TclProButton;

  BtnSiparisler: TclProButton;

  ScrUrunler: TclVertScrollBox;

  PnlAnaAlt: TclProPanel;

  BtnUrunEkle: TclProButton;

  PnlQRModal: TclProPanel;

  PnlQRKart: TclProPanel;

  QrKod: TclQRCodeGenerator;

  BtnQRKapat: TclProButton;

  LblQRBaslik: TclProLabel;

  PnlYeniUrun: TclPanel;

  PnlYeniUrunUst: TclProPanel;

  BtnYeniUrunGeri: TclProButton;

  LblYeniUrunBaslik: TclProLabel;

  ScrYeniUrunForm: TclVertScrollBox;

  PnlForm: TclProPanel;

  EdtUrunAdi: TclEdit;

  EdtUrunFiyat: TclEdit;

  CmbKategori: TclComboBox;

  ImgUrunFoto: TclImage;

  BtnFotoSec: TclProButton;

  LblFotoDurum: TclProLabel;

  BtnKaydet: TclProButton;

  PnlSiparisler: TclPanel;

  PnlSiparislerUst: TclProPanel;

  BtnSiparislerGeri: TclProButton;

  BtnSiparisYenile: TclProButton;

  LblSiparislerBaslik: TclProLabel;

  ScrSiparisler: TclVertScrollBox;

  BaseURL: String;

  IsEditMode: Boolean;

  DuzenlenenUrunId: Integer;

  FotoSecildi: Boolean;

  KategoriSayisi: Integer;

void EkraniGoster(PnlGoster: TclPanel);

{

  PnlAna.Visible = False;

  PnlYeniUrun.Visible = False;

  PnlSiparisler.Visible = False;

  PnlGoster.Visible = True;

}

void QRGoster;

{ 

  PnlQRModal.Visible = True; 

}

void QRKapat;

{ 

  PnlQRModal.Visible = False; 

}

void KategorileriYukle;

var

  catRest: TclRest;

  catDataset: TCLJSONQuery;

{

  KategoriSayisi = 0;

  CmbKategori.Clear; // Mükerrer yüklemeleri önler

  catRest = TclRest.Create;

  try

    catRest.BaseURL = BaseURL + 'api.php?action=get_categories&restaurant_id=1&format=flat';

    catRest.Method = rmGET;

    try

      catRest.Execute;

    except

      Exit;

    }

    if (catRest.Response <> '')

    {

      catDataset = Clomosy.ClDataSetFromJSON(catRest.Response);

      try

        while (catDataset.Eof == False)

        {

          CmbKategori.AddItem(catDataset.FieldByName('name').AsString, catDataset.FieldByName('id').AsString);

          KategoriSayisi = KategoriSayisi + 1;

          catDataset.Next;

        }

      finally

        catDataset.Free;

      }

    }

  finally

    catRest.Free;

  }

}

void KategoriSec(TargetCatId: Integer);

var

  i: Integer;

  n: Integer;

{

  CmbKategori.ItemIndex = -1;

  if (TargetCatId == 0)

  { Exit; }

  i = 0;

  n = KategoriSayisi;

  while (i < n)

  {

    if (CmbKategori.GetValueIndex(i) == IntToStr(TargetCatId))

    {

      CmbKategori.ItemIndex = i;

      i = n;

    }

    else

    {

      i = i + 1;

    }

  }

}

void UrunSil;

var

  SilRest: TclRest;

  reqBody: String;

  BtnSil: TclProButton;

  P1: TclProPanel;

  P2: TclProPanel;

{

  BtnSil = TclProButton(AnaForm.clSender);

  reqBody = '{"action":"delete_product","id":' + IntToStr(BtnSil.clTagInt) + ',"restaurant_id":1}';

  SilRest = TclRest.Create;

  try

    SilRest.BaseURL = BaseURL + 'api.php';

    SilRest.Accept = 'application/json';

    SilRest.Method = rmPOST;

    SilRest.AddBody(reqBody, 'application/json');

    SilRest.Execute;

  finally

    SilRest.Free;

  }

  P1 = TclProPanel(BtnSil.Parent);

  P2 = TclProPanel(P1.Parent);

  TclProPanel(P2.Parent).Visible = False;

}

void UrunleriYukle;

var

  clRest: TclRest;

  dataset: TCLJSONQuery;

  PnlUrunItem: TclProPanel;

  PnlUrunSag: TclProPanel;

  PnlUrunIkon: TclProPanel;

  PnlUrunSol: TclProPanel;

  PnlButonlar: TclProPanel;

  LblUrunAd: TclProLabel;

  LblUrunKat: TclProLabel;

  LblUrunFiyat: TclProLabel;

  BtnSilItem: TclProButton;

  BtnDuzenleItem: TclProButton;

  ImgUrunList: TclImage;

  GorselUrl: String;

{

  ScrUrunler.Free;

  ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler');

  ScrUrunler.Align = alClient;

  clRest = TclRest.Create;

  try

    clRest.BaseURL = BaseURL + 'api.php?action=get_products&restaurant_id=1&format=flat';

    clRest.Method = rmGET;

    try

      clRest.Execute;

    except

      ShowMessage('Sunucuya baglanamadi!');

      Exit;

    }

    if (clRest.Response <> '')

    {

      dataset = Clomosy.ClDataSetFromJSON(clRest.Response);

      try

        while (dataset.Eof == False)

        {

          PnlUrunItem = AnaForm.AddNewProPanel(ScrUrunler, 'Pnl_' + dataset.FieldByName('id').AsString);

          PnlUrunItem.Align = alTop;

          PnlUrunItem.Height = 90;

          PnlUrunItem.Margins.Top = 8;

          PnlUrunItem.Margins.Left = 16;

          PnlUrunItem.Margins.Right = 16;

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

          PnlUrunItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');

          PnlUrunItem.clProSettings.BorderWidth = 1;

          PnlUrunItem.clProSettings.IsRound = True;

          PnlUrunItem.clProSettings.RoundWidth = 16;

          PnlUrunItem.clProSettings.RoundHeight = 16;

          PnlUrunItem.SetclProSettings(PnlUrunItem.clProSettings);

          PnlUrunIkon = AnaForm.AddNewProPanel(PnlUrunItem, 'Ikon_' + dataset.FieldByName('id').AsString);

          PnlUrunIkon.Align = alLeft;

          PnlUrunIkon.Width = 60;

          PnlUrunIkon.Margins.Left = 12;

          PnlUrunIkon.Margins.Top = 14;

          PnlUrunIkon.Margins.Bottom = 14;

          PnlUrunIkon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');

          PnlUrunIkon.clProSettings.IsRound = True;

          PnlUrunIkon.clProSettings.RoundWidth = 12;

          PnlUrunIkon.clProSettings.RoundHeight = 12;

          PnlUrunIkon.SetclProSettings(PnlUrunIkon.clProSettings);

          ImgUrunList = AnaForm.AddNewImage(PnlUrunIkon, 'Img_' + dataset.FieldByName('id').AsString);

          ImgUrunList.Align = alClient;

          GorselUrl = dataset.FieldByName('image_url').AsString;

          if (Copy(GorselUrl, 1, 7) == 'uploads')

          { GorselUrl = BaseURL + GorselUrl; }

          if (GorselUrl <> '')

          { AnaForm.SetImage(ImgUrunList, GorselUrl); }

          PnlUrunSag = AnaForm.AddNewProPanel(PnlUrunItem, 'Sag_' + dataset.FieldByName('id').AsString);

          PnlUrunSag.Align = alRight;

          PnlUrunSag.Width = 115;

          PnlUrunSag.Margins.Right = 12;

          PnlUrunSag.Margins.Top = 12;

          PnlUrunSag.Margins.Bottom = 12;

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

          PnlUrunSag.SetclProSettings(PnlUrunSag.clProSettings);

          LblUrunFiyat = AnaForm.AddNewProLabel(PnlUrunSag, 'LblF_' + dataset.FieldByName('id').AsString, dataset.FieldByName('price').AsString + ' TL');

          LblUrunFiyat.Align = alTop;

          LblUrunFiyat.Height = 24;

          LblUrunFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

          LblUrunFiyat.clProSettings.FontSize = 14;

          LblUrunFiyat.clProSettings.FontHorzAlign = palCenter;

          LblUrunFiyat.SetclProSettings(LblUrunFiyat.clProSettings);

          PnlButonlar = AnaForm.AddNewProPanel(PnlUrunSag, 'Btns_' + dataset.FieldByName('id').AsString);

          PnlButonlar.Align = alBottom;

          PnlButonlar.Height = 30;

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

          PnlButonlar.SetclProSettings(PnlButonlar.clProSettings);

          BtnDuzenleItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnE_' + dataset.FieldByName('id').AsString, 'Duzenle');

          BtnDuzenleItem.Align = alLeft;

          BtnDuzenleItem.Width = 52;

          BtnDuzenleItem.clTagInt = dataset.FieldByName('id').AsInteger;

          BtnDuzenleItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');

          BtnDuzenleItem.clProSettings.FontSize = 11;

          BtnDuzenleItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

          BtnDuzenleItem.clProSettings.IsRound = True;

          BtnDuzenleItem.clProSettings.RoundWidth = 8;

          BtnDuzenleItem.clProSettings.RoundHeight = 8;

          BtnDuzenleItem.SetclProSettings(BtnDuzenleItem.clProSettings);

          AnaForm.AddNewEvent(BtnDuzenleItem, tbeOnClick, 'GoToDuzenle');

          BtnSilItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnS_' + dataset.FieldByName('id').AsString, 'Sil');

          BtnSilItem.Align = alRight;

          BtnSilItem.Width = 52;

          BtnSilItem.clTagInt = dataset.FieldByName('id').AsInteger;

          BtnSilItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFF0F0');

          BtnSilItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#ff3f3f');

          BtnSilItem.clProSettings.FontSize = 12;

          BtnSilItem.clProSettings.IsRound = True;

          BtnSilItem.clProSettings.RoundWidth = 8;

          BtnSilItem.clProSettings.RoundHeight = 8;

          BtnSilItem.SetclProSettings(BtnSilItem.clProSettings);

          AnaForm.AddNewEvent(BtnSilItem, tbeOnClick, 'UrunSil');

          PnlUrunSol = AnaForm.AddNewProPanel(PnlUrunItem, 'Sol_' + dataset.FieldByName('id').AsString);

          PnlUrunSol.Align = alClient;

          PnlUrunSol.Margins.Left = 10;

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

          PnlUrunSol.SetclProSettings(PnlUrunSol.clProSettings);

          LblUrunAd = AnaForm.AddNewProLabel(PnlUrunSol, 'LblA_' + dataset.FieldByName('id').AsString, dataset.FieldByName('name').AsString);

          LblUrunAd.Align = alTop;

          LblUrunAd.Height = 32;

          LblUrunAd.Margins.Top = 12;

          LblUrunAd.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

          LblUrunAd.clProSettings.FontSize = 15;

          LblUrunAd.clProSettings.FontVertAlign = palCenter;

          LblUrunAd.SetclProSettings(LblUrunAd.clProSettings);

          LblUrunKat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblK_' + dataset.FieldByName('id').AsString, dataset.FieldByName('category_name').AsString);

          LblUrunKat.Align = alTop;

          LblUrunKat.Height = 20;

          LblUrunKat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

          LblUrunKat.clProSettings.FontSize = 11;

          LblUrunKat.clProSettings.FontVertAlign = palCenter;

          LblUrunKat.SetclProSettings(LblUrunKat.clProSettings);

          dataset.Next;

        }

      finally

        dataset.Free;

      }

    }

  finally

    clRest.Free;

  }

}

void GoToAna;

{

  EkraniGoster(PnlAna);

  UrunleriYukle;

}

void GoToDuzenle;

var

  BtnDuz: TclProButton;

  getRest: TclRest;

  getDataset: TCLJSONQuery;

  prodDataset: TCLJSONQuery;

  imageUrlStr: String;

{

  BtnDuz = TclProButton(AnaForm.clSender);

  DuzenlenenUrunId = BtnDuz.clTagInt;

  IsEditMode = True;

  FotoSecildi = False;

  LblYeniUrunBaslik.Text = 'Urunu Duzenle';

  EdtUrunAdi.Text = '';

  EdtUrunFiyat.Text = '';

  ImgUrunFoto.MultiResBitmap.Clear; // AV hatası önlendi

  getRest = TclRest.Create;

  try

    getRest.BaseURL = BaseURL + 'api.php?action=get_product&restaurant_id=1&id=' + IntToStr(DuzenlenenUrunId);

    getRest.Method = rmGET;

    try

      getRest.Execute;

    except

      ShowMessage('Urun bilgileri alinamadi.');

      Exit;

    }

    if (getRest.Response <> '')

    {

      getDataset = Clomosy.ClDataSetFromJSON('[' + getRest.Response + ']'); // Objeyi array yapmak için [] sarmalandı

      try

        if (getDataset.FieldByName('success').AsBoolean)

        {

          prodDataset = Clomosy.ClDataSetFromJSON('[' + getDataset.FieldByName('product').AsString + ']'); // product objesini parse etmek için [] sarmalandı

          try

            EdtUrunAdi.Text = prodDataset.FieldByName('name').AsString;

            EdtUrunFiyat.Text = prodDataset.FieldByName('price').AsString;

            KategoriSec(prodDataset.FieldByName('category_id').AsInteger);

            imageUrlStr = prodDataset.FieldByName('image_url').AsString;

            if (Copy(imageUrlStr, 1, 7) == 'uploads')

            { imageUrlStr = BaseURL + imageUrlStr; }

            if (imageUrlStr <> '')

            {

              AnaForm.SetImage(ImgUrunFoto, imageUrlStr);

              LblFotoDurum.Text = 'Mevcut fotograf mevcut';

              LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

              LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

            }

            else

            {

              LblFotoDurum.Text = 'Fotograf yok';

              LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

              LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

            }

            EkraniGoster(PnlYeniUrun);

          finally

            prodDataset.Free;

          }

        }

        else

        { ShowMessage('Urun bulunamadi.'); }

      finally

        getDataset.Free;

      }

    }

  finally

    getRest.Free;

  }

}

void GoToYeniUrun;

{

  IsEditMode = False;

  DuzenlenenUrunId = 0;

  FotoSecildi = False;

  LblYeniUrunBaslik.Text = 'Yeni Urun Ekle';

  EdtUrunAdi.Text = '';

  EdtUrunFiyat.Text = '';

  ImgUrunFoto.MultiResBitmap.Clear; // AV hatası önlendi

  CmbKategori.ItemIndex = -1;

  LblFotoDurum.Text = 'Fotograf secilmedi';

  LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

  LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

  EkraniGoster(PnlYeniUrun);

}

void FotoSec;

{

  try

    Clomosy.ImageChooser(AnaForm, ImgUrunFoto);

    FotoSecildi = True;

    LblFotoDurum.Text = 'Fotograf secildi';

    LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

    LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

  except

    ShowMessage('Kamera acilamadi.');

  }

}

void YeniUrunKaydet;

var

  KaydetRest: TclRest;

  reqBody: String;

  LBase64Veri: String;

  LMemStream: TCLMemoryStream;

  selCatId: String;

{

  if (EdtUrunAdi.Text == '')

  { ShowMessage('Urun adi giriniz!'); Exit; }

  if (EdtUrunFiyat.Text == '')

  { ShowMessage('Fiyat giriniz!'); Exit; }

  if (CmbKategori.ItemIndex == -1)

  { ShowMessage('Kategori seciniz!'); Exit; }

  if (IsEditMode == False)

  {

    if (FotoSecildi == False)

    { ShowMessage('Fotograf seciniz!'); Exit; }

  }

  selCatId = CmbKategori.GetValueIndex(CmbKategori.ItemIndex);

  LBase64Veri = '';

  if (FotoSecildi)

  {

    LMemStream = TCLMemoryStream.Create;

    try

      ImgUrunFoto.Bitmap.SaveToStream(LMemStream);

      if (LMemStream.Size == 0)

      {

        ShowMessage('Fotograf bos!');

        Exit;

      }

      LBase64Veri = LMemStream.AsBase64;

    finally

      LMemStream.Free;

    }

  }

  reqBody = '{"restaurant_id":1,"category_id":' + selCatId;

  reqBody = reqBody + ',"name":"' + EdtUrunAdi.Text + '"';

  reqBody = reqBody + ',"description":"' + EdtUrunAdi.Text + '"';

  reqBody = reqBody + ',"price":' + EdtUrunFiyat.Text;

  if (IsEditMode)

  { reqBody = reqBody + ',"id":' + IntToStr(DuzenlenenUrunId); }

  if (FotoSecildi)

  { reqBody = reqBody + ',"image_base64":"' + LBase64Veri + '"'; }

  reqBody = reqBody + '}';

  KaydetRest = TclRest.Create;

  try

    KaydetRest.BaseURL = BaseURL + 'api.php?action=save_product';

    KaydetRest.Accept = 'application/json';

    KaydetRest.Method = rmPOST;

    KaydetRest.AddBody(reqBody, 'application/json');

    try

      KaydetRest.Execute;

    except

      ShowMessage('Sunucu baglanti hatasi!');

      Exit;

    }

    if (KaydetRest.Response <> '')

    {

      ShowMessage('Kaydedildi!');

      EdtUrunAdi.Text = '';

      EdtUrunFiyat.Text = '';

      ImgUrunFoto.MultiResBitmap.Clear; // AV hatası önlendi

      IsEditMode = False;

      DuzenlenenUrunId = 0;

      FotoSecildi = False;

      GoToAna;

    }

    else

    { ShowMessage('Sunucudan yanit alinamadi.'); }

  finally

    KaydetRest.Free;

  }

}

void SiparisTamamla;

var

  delRest: TclRest;

  reqBody: String;

  BtnT: TclProButton;

{

  BtnT = TclProButton(AnaForm.clSender);

  reqBody = '{"action":"delete_order","id":' + IntToStr(BtnT.clTagInt) + ',"restaurant_id":1}';

  delRest = TclRest.Create;

  try

    delRest.BaseURL = BaseURL + 'api.php';

    delRest.Accept = 'application/json';

    delRest.Method = rmPOST;

    delRest.AddBody(reqBody, 'application/json');

    try

      delRest.Execute;

      TclProPanel(BtnT.Parent).Visible = False;

    except

      ShowMessage('Hata olustu');

    }

  finally

    delRest.Free;

  }

}

void SiparisleriYukle;

var

  ordRest: TclRest;

  ordDataset: TCLJSONQuery;

  PnlOrdItem: TclProPanel;

  LblOrdNo: TclProLabel;

  LblOrdDetay: TclProLabel;

  LblOrdFiyat: TclProLabel;

  BtnTamamla: TclProButton;

{

  ScrSiparisler.Free;

  ScrSiparisler = AnaForm.AddNewVertScrollBox(PnlSiparisler, 'ScrSiparisler');

  ScrSiparisler.Align = alClient;

  ordRest = TclRest.Create;

  try

    ordRest.BaseURL = BaseURL + 'api.php?action=get_orders&restaurant_id=1&format=flat';

    ordRest.Method = rmGET;

    try

      ordRest.Execute;

    except

      ShowMessage('Siparisler yuklenemedi.');

      Exit;

    }

    if (ordRest.Response <> '')

    {

      ordDataset = Clomosy.ClDataSetFromJSON(ordRest.Response);

      try

        while (ordDataset.Eof == False)

        {

          PnlOrdItem = AnaForm.AddNewProPanel(ScrSiparisler, 'PnlOrd_' + ordDataset.FieldByName('id').AsString);

          PnlOrdItem.Align = alTop;

          PnlOrdItem.Height = 120;

          PnlOrdItem.Margins.Top = 10;

          PnlOrdItem.Margins.Left = 16;

          PnlOrdItem.Margins.Right = 16;

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

          PnlOrdItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E8E8E8');

          PnlOrdItem.clProSettings.BorderWidth = 1;

          PnlOrdItem.clProSettings.IsRound = True;

          PnlOrdItem.clProSettings.RoundWidth = 16;

          PnlOrdItem.clProSettings.RoundHeight = 16;

          PnlOrdItem.SetclProSettings(PnlOrdItem.clProSettings);

          LblOrdNo = AnaForm.AddNewProLabel(PnlOrdItem, 'LblON_' + ordDataset.FieldByName('id').AsString, 'Siparis #' + ordDataset.FieldByName('id').AsString);

          LblOrdNo.Align = alTop;

          LblOrdNo.Height = 30;

          LblOrdNo.Margins.Left = 14;

          LblOrdNo.Margins.Top = 10;

          LblOrdNo.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

          LblOrdNo.clProSettings.FontSize = 14;

          LblOrdNo.clProSettings.FontVertAlign = palCenter;

          LblOrdNo.SetclProSettings(LblOrdNo.clProSettings);

          LblOrdDetay = AnaForm.AddNewProLabel(PnlOrdItem, 'LblOD_' + ordDataset.FieldByName('id').AsString, ordDataset.FieldByName('items_text').AsString);

          LblOrdDetay.Align = alTop;

          LblOrdDetay.Height = 24;

          LblOrdDetay.Margins.Left = 14;

          LblOrdDetay.Margins.Right = 14;

          LblOrdDetay.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');

          LblOrdDetay.clProSettings.FontSize = 12;

          LblOrdDetay.clProSettings.FontVertAlign = palCenter;

          LblOrdDetay.SetclProSettings(LblOrdDetay.clProSettings);

          LblOrdFiyat = AnaForm.AddNewProLabel(PnlOrdItem, 'LblOP_' + ordDataset.FieldByName('id').AsString, 'Toplam: ' + ordDataset.FieldByName('total_price').AsString + ' TL');

          LblOrdFiyat.Align = alTop;

          LblOrdFiyat.Height = 22;

          LblOrdFiyat.Margins.Left = 14;

          LblOrdFiyat.Margins.Top = 2;

          LblOrdFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

          LblOrdFiyat.clProSettings.FontSize = 13;

          LblOrdFiyat.clProSettings.FontVertAlign = palCenter;

          LblOrdFiyat.SetclProSettings(LblOrdFiyat.clProSettings);

          BtnTamamla = AnaForm.AddNewProButton(PnlOrdItem, 'BtnT_' + ordDataset.FieldByName('id').AsString, 'Tamamlandi');

          BtnTamamla.Align = alBottom;

          BtnTamamla.Height = 30;

          BtnTamamla.Margins.Left = 14;

          BtnTamamla.Margins.Right = 14;

          BtnTamamla.Margins.Bottom = 8;

          BtnTamamla.clTagInt = ordDataset.FieldByName('id').AsInteger;

          BtnTamamla.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');

          BtnTamamla.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

          BtnTamamla.clProSettings.FontSize = 12;

          BtnTamamla.clProSettings.IsRound = True;

          BtnTamamla.clProSettings.RoundWidth = 8;

          BtnTamamla.clProSettings.RoundHeight = 8;

          BtnTamamla.SetclProSettings(BtnTamamla.clProSettings);

          AnaForm.AddNewEvent(BtnTamamla, tbeOnClick, 'SiparisTamamla');

          ordDataset.Next;

        }

      finally

        ordDataset.Free;

      }

    }

  finally

    ordRest.Free;

  }

  Clomosy.SendNotifyAllUsers('Yeni Siparis!', 'Bekleyen siparislerinizi kontrol edin.', '');

}

void GoToSiparisler;

{

  EkraniGoster(PnlSiparisler);

  SiparisleriYukle;

}

{

  BaseURL = 'http://192.168.1.43/qrmenu/';

  IsEditMode = False;

  DuzenlenenUrunId = 0;

  FotoSecildi = False;

  KategoriSayisi = 0;

  AnaForm = TclForm.Create(Self);

  AnaForm.SetFormColor('#F8F9FA', '', clGNone);

  PnlAna = AnaForm.AddNewPanel(AnaForm, 'PnlAna');

  PnlAna.Align = alClient;

  PnlAnaUst = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaUst');

  PnlAnaUst.Align = alTop;

  PnlAnaUst.Height = 64;

  PnlAnaUst.Margins.Left = 16;

  PnlAnaUst.Margins.Right = 16;

  PnlAnaUst.Margins.Top = 8;

  PnlAnaUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

  PnlAnaUst.SetclProSettings(PnlAnaUst.clProSettings);

  LblAnaBaslik = AnaForm.AddNewProLabel(PnlAnaUst, 'LblAna', 'Menu Yonetimi');

  LblAnaBaslik.Align = alLeft;

  LblAnaBaslik.Width = 160;

  LblAnaBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  LblAnaBaslik.clProSettings.FontSize = 20;

  LblAnaBaslik.clProSettings.FontVertAlign = palCenter;

  LblAnaBaslik.SetclProSettings(LblAnaBaslik.clProSettings);

  BtnQR = AnaForm.AddNewProButton(PnlAnaUst, 'BtnQR', 'QR');

  BtnQR.Align = alRight;

  BtnQR.Width = 44;

  BtnQR.Height = 44;

  BtnQR.Margins.Top = 10;

  BtnQR.Margins.Bottom = 10;

  BtnQR.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

  BtnQR.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnQR.clProSettings.FontSize = 14;

  BtnQR.clProSettings.IsRound = True;

  BtnQR.clProSettings.RoundWidth = 12;

  BtnQR.clProSettings.RoundHeight = 12;

  BtnQR.SetclProSettings(BtnQR.clProSettings);

  AnaForm.AddNewEvent(BtnQR, tbeOnClick, 'QRGoster');

  BtnSiparisler = AnaForm.AddNewProButton(PnlAnaUst, 'BtnSip', 'Sip');

  BtnSiparisler.Align = alRight;

  BtnSiparisler.Width = 44;

  BtnSiparisler.Height = 44;

  BtnSiparisler.Margins.Top = 10;

  BtnSiparisler.Margins.Bottom = 10;

  BtnSiparisler.Margins.Right = 8;

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

  BtnSiparisler.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  BtnSiparisler.clProSettings.FontSize = 11;

  BtnSiparisler.clProSettings.IsRound = True;

  BtnSiparisler.clProSettings.RoundWidth = 12;

  BtnSiparisler.clProSettings.RoundHeight = 12;

  BtnSiparisler.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

  BtnSiparisler.clProSettings.BorderWidth = 1;

  BtnSiparisler.SetclProSettings(BtnSiparisler.clProSettings);

  AnaForm.AddNewEvent(BtnSiparisler, tbeOnClick, 'GoToSiparisler');

  ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler');

  ScrUrunler.Align = alClient;

  PnlAnaAlt = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaAlt');

  PnlAnaAlt.Align = alBottom;

  PnlAnaAlt.Height = 88;

  PnlAnaAlt.Margins.Left = 16;

  PnlAnaAlt.Margins.Right = 16;

  PnlAnaAlt.Margins.Bottom = 8;

  PnlAnaAlt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

  PnlAnaAlt.SetclProSettings(PnlAnaAlt.clProSettings);

  BtnUrunEkle = AnaForm.AddNewProButton(PnlAnaAlt, 'BtnEkle', '+ Yeni Urun Ekle');

  BtnUrunEkle.Align = alClient;

  BtnUrunEkle.Margins.Top = 12;

  BtnUrunEkle.Margins.Bottom = 12;

  BtnUrunEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

  BtnUrunEkle.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnUrunEkle.clProSettings.FontSize = 17;

  BtnUrunEkle.clProSettings.IsRound = True;

  BtnUrunEkle.clProSettings.RoundWidth = 16;

  BtnUrunEkle.clProSettings.RoundHeight = 16;

  BtnUrunEkle.SetclProSettings(BtnUrunEkle.clProSettings);

  AnaForm.AddNewEvent(BtnUrunEkle, tbeOnClick, 'GoToYeniUrun');

  PnlQRModal = AnaForm.AddNewProPanel(AnaForm, 'PnlQRModal');

  PnlQRModal.Align = alClient;

  PnlQRModal.Visible = False;

  PnlQRModal.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#CC000000');

  PnlQRModal.SetclProSettings(PnlQRModal.clProSettings);

  AnaForm.AddNewEvent(PnlQRModal, tbeOnClick, 'QRKapat');

  PnlQRKart = AnaForm.AddNewProPanel(PnlQRModal, 'PnlQRKart');

  PnlQRKart.Align = alCenter;

  PnlQRKart.Width = 280;

  PnlQRKart.Height = 360;

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

  PnlQRKart.clProSettings.IsRound = True;

  PnlQRKart.clProSettings.RoundWidth = 24;

  PnlQRKart.clProSettings.RoundHeight = 24;

  PnlQRKart.SetclProSettings(PnlQRKart.clProSettings);

  LblQRBaslik = AnaForm.AddNewProLabel(PnlQRKart, 'LblQR', 'Menu QR Kodu');

  LblQRBaslik.Align = alTop;

  LblQRBaslik.Height = 50;

  LblQRBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  LblQRBaslik.clProSettings.FontSize = 18;

  LblQRBaslik.clProSettings.FontHorzAlign = palCenter;

  LblQRBaslik.clProSettings.FontVertAlign = palCenter;

  LblQRBaslik.SetclProSettings(LblQRBaslik.clProSettings);

  QrKod = AnaForm.AddNewQRCodeGenerator(PnlQRKart, 'QrKod', BaseURL + 'menu.php?id=1&i=1');

  QrKod.Align = alTop;

  QrKod.Height = 240;

  QrKod.Margins.Left = 20;

  QrKod.Margins.Right = 20;

  BtnQRKapat = AnaForm.AddNewProButton(PnlQRKart, 'BtnQRKapat', 'Kapat');

  BtnQRKapat.Align = alBottom;

  BtnQRKapat.Height = 48;

  BtnQRKapat.Margins.Left = 20;

  BtnQRKapat.Margins.Right = 20;

  BtnQRKapat.Margins.Bottom = 16;

  BtnQRKapat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

  BtnQRKapat.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  BtnQRKapat.clProSettings.FontSize = 15;

  BtnQRKapat.clProSettings.IsRound = True;

  BtnQRKapat.clProSettings.RoundWidth = 12;

  BtnQRKapat.clProSettings.RoundHeight = 12;

  BtnQRKapat.SetclProSettings(BtnQRKapat.clProSettings);

  AnaForm.AddNewEvent(BtnQRKapat, tbeOnClick, 'QRKapat');

  PnlYeniUrun = AnaForm.AddNewPanel(AnaForm, 'PnlYeniUrun');

  PnlYeniUrun.Align = alClient;

  PnlYeniUrun.Visible = False;

  PnlYeniUrunUst = AnaForm.AddNewProPanel(PnlYeniUrun, 'PnlYeniUst');

  PnlYeniUrunUst.Align = alTop;

  PnlYeniUrunUst.Height = 64;

  PnlYeniUrunUst.Margins.Left = 16;

  PnlYeniUrunUst.Margins.Right = 16;

  PnlYeniUrunUst.Margins.Top = 8;

  PnlYeniUrunUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

  PnlYeniUrunUst.SetclProSettings(PnlYeniUrunUst.clProSettings);

  BtnYeniUrunGeri = AnaForm.AddNewProButton(PnlYeniUrunUst, 'BtnGeri', '<');

  BtnYeniUrunGeri.Align = alLeft;

  BtnYeniUrunGeri.Width = 44;

  BtnYeniUrunGeri.Height = 44;

  BtnYeniUrunGeri.Margins.Top = 10;

  BtnYeniUrunGeri.Margins.Bottom = 10;

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

  BtnYeniUrunGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  BtnYeniUrunGeri.clProSettings.FontSize = 20;

  BtnYeniUrunGeri.clProSettings.IsRound = True;

  BtnYeniUrunGeri.clProSettings.RoundWidth = 12;

  BtnYeniUrunGeri.clProSettings.RoundHeight = 12;

  BtnYeniUrunGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

  BtnYeniUrunGeri.clProSettings.BorderWidth = 1;

  BtnYeniUrunGeri.SetclProSettings(BtnYeniUrunGeri.clProSettings);

  AnaForm.AddNewEvent(BtnYeniUrunGeri, tbeOnClick, 'GoToAna');

  LblYeniUrunBaslik = AnaForm.AddNewProLabel(PnlYeniUrunUst, 'LblYBaslik', 'Yeni Urun Ekle');

  LblYeniUrunBaslik.Align = alClient;

  LblYeniUrunBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  LblYeniUrunBaslik.clProSettings.FontSize = 20;

  LblYeniUrunBaslik.clProSettings.FontHorzAlign = palCenter;

  LblYeniUrunBaslik.clProSettings.FontVertAlign = palCenter;

  LblYeniUrunBaslik.SetclProSettings(LblYeniUrunBaslik.clProSettings);

  ScrYeniUrunForm = AnaForm.AddNewVertScrollBox(PnlYeniUrun, 'ScrYeniForm');

  ScrYeniUrunForm.Align = alClient;

  PnlForm = AnaForm.AddNewProPanel(ScrYeniUrunForm, 'PnlForm');

  PnlForm.Align = alTop;

  PnlForm.Height = 590;

  PnlForm.Margins.Left = 16;

  PnlForm.Margins.Right = 16;

  PnlForm.Margins.Top = 8;

  PnlForm.Margins.Bottom = 16;

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

  PnlForm.clProSettings.IsRound = True;

  PnlForm.clProSettings.RoundWidth = 20;

  PnlForm.clProSettings.RoundHeight = 20;

  PnlForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');

  PnlForm.clProSettings.BorderWidth = 1;

  PnlForm.SetclProSettings(PnlForm.clProSettings);

  ImgUrunFoto = AnaForm.AddNewImage(PnlForm, 'ImgUrunFoto');

  ImgUrunFoto.Align = alTop;

  ImgUrunFoto.Height = 180;

  ImgUrunFoto.Margins.Left = 20;

  ImgUrunFoto.Margins.Right = 20;

  ImgUrunFoto.Margins.Top = 20;

  BtnFotoSec = AnaForm.AddNewProButton(PnlForm, 'BtnFotoSec', 'Fotograf Sec');

  BtnFotoSec.Align = alTop;

  BtnFotoSec.Height = 48;

  BtnFotoSec.Margins.Left = 20;

  BtnFotoSec.Margins.Right = 20;

  BtnFotoSec.Margins.Top = 12;

  BtnFotoSec.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');

  BtnFotoSec.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

  BtnFotoSec.clProSettings.FontSize = 15;

  BtnFotoSec.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2ec4b6');

  BtnFotoSec.clProSettings.BorderWidth = 1;

  BtnFotoSec.clProSettings.IsRound = True;

  BtnFotoSec.clProSettings.RoundWidth = 12;

  BtnFotoSec.clProSettings.RoundHeight = 12;

  BtnFotoSec.SetclProSettings(BtnFotoSec.clProSettings);

  AnaForm.AddNewEvent(BtnFotoSec, tbeOnClick, 'FotoSec');

  LblFotoDurum = AnaForm.AddNewProLabel(PnlForm, 'LblFotoDurum', 'Fotograf secilmedi');

  LblFotoDurum.Align = alTop;

  LblFotoDurum.Height = 24;

  LblFotoDurum.Margins.Left = 20;

  LblFotoDurum.Margins.Top = 6;

  LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

  LblFotoDurum.clProSettings.FontSize = 13;

  LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

  CmbKategori = AnaForm.AddNewComboBox(PnlForm, 'CmbKategori');

  CmbKategori.Align = alTop;

  CmbKategori.Height = 48;

  CmbKategori.Margins.Left = 20;

  CmbKategori.Margins.Right = 20;

  CmbKategori.Margins.Top = 12;

  EdtUrunAdi = AnaForm.AddNewEdit(PnlForm, 'EdtUrunAdi', 'Urun Adi');

  EdtUrunAdi.Align = alTop;

  EdtUrunAdi.Height = 48;

  EdtUrunAdi.Margins.Left = 20;

  EdtUrunAdi.Margins.Right = 20;

  EdtUrunAdi.Margins.Top = 12;

  EdtUrunFiyat = AnaForm.AddNewEdit(PnlForm, 'EdtUrunFiyat', 'Fiyat (150.00)');

  EdtUrunFiyat.Align = alTop;

  EdtUrunFiyat.Height = 48;

  EdtUrunFiyat.Margins.Left = 20;

  EdtUrunFiyat.Margins.Right = 20;

  EdtUrunFiyat.Margins.Top = 12;

  BtnKaydet = AnaForm.AddNewProButton(PnlForm, 'BtnKaydet', 'Kaydet');

  BtnKaydet.Align = alBottom;

  BtnKaydet.Height = 52;

  BtnKaydet.Margins.Left = 20;

  BtnKaydet.Margins.Right = 20;

  BtnKaydet.Margins.Bottom = 20;

  BtnKaydet.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

  BtnKaydet.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnKaydet.clProSettings.FontSize = 17;

  BtnKaydet.clProSettings.IsRound = True;

  BtnKaydet.clProSettings.RoundWidth = 14;

  BtnKaydet.clProSettings.RoundHeight = 14;

  BtnKaydet.SetclProSettings(BtnKaydet.clProSettings);

  AnaForm.AddNewEvent(BtnKaydet, tbeOnClick, 'YeniUrunKaydet');

  PnlSiparisler = AnaForm.AddNewPanel(AnaForm, 'PnlSiparisler');

  PnlSiparisler.Align = alClient;

  PnlSiparisler.Visible = False;

  PnlSiparislerUst = AnaForm.AddNewProPanel(PnlSiparisler, 'PnlSipUst');

  PnlSiparislerUst.Align = alTop;

  PnlSiparislerUst.Height = 64;

  PnlSiparislerUst.Margins.Left = 16;

  PnlSiparislerUst.Margins.Right = 16;

  PnlSiparislerUst.Margins.Top = 8;

  PnlSiparislerUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

  PnlSiparislerUst.SetclProSettings(PnlSiparislerUst.clProSettings);

  BtnSiparislerGeri = AnaForm.AddNewProButton(PnlSiparislerUst, 'BtnSipGeri', '<');

  BtnSiparislerGeri.Align = alLeft;

  BtnSiparislerGeri.Width = 44;

  BtnSiparislerGeri.Height = 44;

  BtnSiparislerGeri.Margins.Top = 10;

  BtnSiparislerGeri.Margins.Bottom = 10;

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

  BtnSiparislerGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  BtnSiparislerGeri.clProSettings.FontSize = 20;

  BtnSiparislerGeri.clProSettings.IsRound = True;

  BtnSiparislerGeri.clProSettings.RoundWidth = 12;

  BtnSiparislerGeri.clProSettings.RoundHeight = 12;

  BtnSiparislerGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

  BtnSiparislerGeri.clProSettings.BorderWidth = 1;

  BtnSiparislerGeri.SetclProSettings(BtnSiparislerGeri.clProSettings);

  AnaForm.AddNewEvent(BtnSiparislerGeri, tbeOnClick, 'GoToAna');

  BtnSiparisYenile = AnaForm.AddNewProButton(PnlSiparislerUst, 'BtnSipYenile', 'Yenile');

  BtnSiparisYenile.Align = alRight;

  BtnSiparisYenile.Width = 60;

  BtnSiparisYenile.Height = 44;

  BtnSiparisYenile.Margins.Top = 10;

  BtnSiparisYenile.Margins.Bottom = 10;

  BtnSiparisYenile.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');

  BtnSiparisYenile.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

  BtnSiparisYenile.clProSettings.FontSize = 13;

  BtnSiparisYenile.clProSettings.IsRound = True;

  BtnSiparisYenile.clProSettings.RoundWidth = 12;

  BtnSiparisYenile.clProSettings.RoundHeight = 12;

  BtnSiparisYenile.SetclProSettings(BtnSiparisYenile.clProSettings);

  AnaForm.AddNewEvent(BtnSiparisYenile, tbeOnClick, 'GoToSiparisler');

  LblSiparislerBaslik = AnaForm.AddNewProLabel(PnlSiparislerUst, 'LblSipBaslik', 'Siparisler');

  LblSiparislerBaslik.Align = alClient;

  LblSiparislerBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

  LblSiparislerBaslik.clProSettings.FontSize = 19;

  LblSiparislerBaslik.clProSettings.FontHorzAlign = palCenter;

  LblSiparislerBaslik.clProSettings.FontVertAlign = palCenter;

  LblSiparislerBaslik.SetclProSettings(LblSiparislerBaslik.clProSettings);

  ScrSiparisler = AnaForm.AddNewVertScrollBox(PnlSiparisler, 'ScrSiparisler');

  ScrSiparisler.Align = alClient;

  KategorileriYukle;

  UrunleriYukle;

  AnaForm.Run;

}

İyi forumlar