var

  AnaForm: TclForm;

  PnlAna: TclPanel;

  PnlAnaUst: TclProPanel;

  LblAnaBaslik: TclProLabel;

  BtnQR: 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;

  BtnKategoriAc: TclProButton;

  ImgUrunFoto: TclImage;

  BtnFotoSec: TclProButton;

  LblFotoDurum: TclProLabel;

  BtnKaydet: TclProButton;

  PnlKategoriSecim: TclPanel;

  PnlKategoriSecimUst: TclProPanel;

  BtnKategoriGeri: TclProButton;

  LblKategoriBaslik: TclProLabel;

  ScrKategoriler: TclVertScrollBox;

  BaseURL: String;

  IsEditMode: Boolean;

  DuzenlenenUrunId: Integer;

  FotoSecildi: Boolean;

  KategoriSayisi: Integer;

  ListeSayac: Integer;

  KatSayac: Integer;

  SecilenKategoriId: Integer;

  SecilenKategoriAdi: String;

  UrunListesiYuklendi: Boolean;

  KatListesiYuklendi: Boolean;

  LMemStream: TCLMemoryStream;

void EkraniGoster(PnlGoster: TclPanel);

{

  PnlAna.Visible = False;

  PnlYeniUrun.Visible = False;

  PnlKategoriSecim.Visible = False;

  PnlGoster.Visible = True;

}

void QRGoster;

{ PnlQRModal.Visible = True; }

void QRKapat;

{ PnlQRModal.Visible = False; }

void KategorileriYukle;

var rest: TclRest; dataset: TClJSONQuery;

    BtnKat: TclProButton;

{

  if (KatListesiYuklendi)

  {

    ScrKategoriler.Free;

  }

  KatListesiYuklendi = True;

  KatSayac = KatSayac + 1;

  ScrKategoriler = AnaForm.AddNewVertScrollBox(PnlKategoriSecim, 'ScrKat' + IntToStr(KatSayac));

  ScrKategoriler.Align = alClient;

  KategoriSayisi = 0;

  rest = TclRest.Create;

  rest.BaseURL = BaseURL + '/categories';

  rest.Method = rmGET;

  try

    rest.Execute;

    if (rest.Response <> '[]')

    {

      dataset = Clomosy.ClDataSetFromJSON(rest.Response);

      dataset.First;

      while (dataset.Eof == False)

      {

        BtnKat = AnaForm.AddNewProButton(ScrKategoriler, 'KatBtn_' + dataset.FieldByName('id').AsString + '_' + IntToStr(KatSayac), dataset.FieldByName('name').AsString);

        BtnKat.Align = alTop;

        BtnKat.Height = 60;

        BtnKat.Margins.Left = 16;

        BtnKat.Margins.Right = 16;

        BtnKat.Margins.Top = 10;

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

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

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

        BtnKat.clProSettings.BorderWidth = 1;

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

        BtnKat.clProSettings.FontSize = 16;

        BtnKat.clProSettings.IsRound = True;

        BtnKat.SetclProSettings(BtnKat.clProSettings);

        AnaForm.AddNewEvent(BtnKat, tbeOnClick, 'KategoriSecildi');

        KategoriSayisi = KategoriSayisi + 1;

        dataset.Next;

      }

    }

  except

    ShowMessage('Kategoriler alinamadi!');

  }

}

void KategoriSecildi;

var Btn: TclProButton;

{

  Btn = TclProButton(AnaForm.clSender);

  SecilenKategoriId = Btn.clTagInt;

  SecilenKategoriAdi = Btn.Text;

  BtnKategoriAc.Text = SecilenKategoriAdi + '  v';

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

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

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

  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);

  EkraniGoster(PnlYeniUrun);

}

void GoToKategoriSecim;

{

  EkraniGoster(PnlKategoriSecim);

  KategorileriYukle;

}

void UrunSil;

var BtnSil: TclProButton; rest: TclRest; reqBody: String; P1, P2: TclProPanel;

{

  BtnSil = TclProButton(AnaForm.clSender);

  reqBody = '{"id":' + IntToStr(BtnSil.clTagInt) + '}';

  rest = TclRest.Create;

  rest.BaseURL = BaseURL + '/products/delete';

  rest.Accept = 'application/json';

  rest.Method = rmPOST;

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

  try

    rest.Execute;

  except

    ShowMessage('Silme hatasi');

  }

  P1 = TclProPanel(BtnSil.Parent);

  P2 = TclProPanel(P1.Parent);

  P2.Visible = False; // Sadece silinen ürünün panelini gizle

}

void UrunleriYukle;

var

  PnlUrunItem, PnlUrunIkon, PnlUrunSol, PnlButonlar: TclProPanel;

  LblUrunAd, LblUrunKat, LblUrunFiyat: TclProLabel;

  BtnSilItem, BtnDuzenleItem: TclProButton;

  ImgUrunList: TclImage;

  GorselUrl, UrunStrID: String;

  rest: TclRest; dataset: TClJSONQuery;

{

  if (UrunListesiYuklendi)

  {

    ScrUrunler.Free;

  }

  UrunListesiYuklendi = True;

  ListeSayac = ListeSayac + 1;

  ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler_' + IntToStr(ListeSayac));

  ScrUrunler.Align = alClient;

  rest = TclRest.Create;

  rest.BaseURL = BaseURL + '/products';

  rest.Method = rmGET;

  try

    rest.Execute;

    if (rest.Response <> '[]')

    {

      dataset = Clomosy.ClDataSetFromJSON(rest.Response);

      dataset.First;

      while (dataset.Eof == False)

      {

        UrunStrID = dataset.FieldByName('id').AsString;

        PnlUrunItem = AnaForm.AddNewProPanel(ScrUrunler, 'Pnl_' + UrunStrID + '_' + IntToStr(ListeSayac));

        PnlUrunItem.Align = alTop;

        PnlUrunItem.Height = 120;

        PnlUrunItem.Margins.Top = 8;

        PnlUrunItem.Margins.Left = 16;

        PnlUrunItem.Margins.Right = 16;

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

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

        PnlUrunItem.clProSettings.BorderWidth = 1;

        PnlUrunItem.clProSettings.IsRound = True;

        PnlUrunItem.SetclProSettings(PnlUrunItem.clProSettings);

        // FOTO (Sol)

        PnlUrunIkon = AnaForm.AddNewProPanel(PnlUrunItem, 'Ikon_' + UrunStrID + '_' + IntToStr(ListeSayac));

        PnlUrunIkon.Align = alLeft;

        PnlUrunIkon.Width = 80;

        PnlUrunIkon.Margins.Left = 10;

        PnlUrunIkon.Margins.Top = 10;

        PnlUrunIkon.Margins.Bottom = 10;

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

        PnlUrunIkon.clProSettings.IsRound = True;

        PnlUrunIkon.SetclProSettings(PnlUrunIkon.clProSettings);

        ImgUrunList = AnaForm.AddNewImage(PnlUrunIkon, 'Img_' + UrunStrID + '_' + IntToStr(ListeSayac));

        ImgUrunList.Align = alClient;

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

        if (GorselUrl <> '')

        {

          if (GorselUrl <> 'null')

          { 

            try

              AnaForm.SetImage(ImgUrunList, ' http://192.168.1.43:3000/" rel="nofollow - http://192.168.1.43:3000/ ' + GorselUrl); 

            except

              GorselUrl = '';

            }

          }

        }

        // BUTONLAR (Sag)

        PnlButonlar = AnaForm.AddNewProPanel(PnlUrunItem, 'Btns_' + UrunStrID + '_' + IntToStr(ListeSayac));

        PnlButonlar.Align = alRight;

        PnlButonlar.Width = 60;

        PnlButonlar.Margins.Right = 10;

        PnlButonlar.Margins.Top = 10;

        PnlButonlar.Margins.Bottom = 10;

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

        PnlButonlar.SetclProSettings(PnlButonlar.clProSettings);

        BtnDuzenleItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnE_' + UrunStrID + '_' + IntToStr(ListeSayac), 'Edit');

        BtnDuzenleItem.Align = alTop;

        BtnDuzenleItem.Height = 45;

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

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

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

        BtnDuzenleItem.clProSettings.FontSize = 11;

        BtnDuzenleItem.clProSettings.IsRound = True;

        BtnDuzenleItem.SetclProSettings(BtnDuzenleItem.clProSettings);

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

        BtnSilItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnS_' + UrunStrID + '_' + IntToStr(ListeSayac), 'Sil');

        BtnSilItem.Align = alBottom;

        BtnSilItem.Height = 45;

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

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

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

        BtnSilItem.clProSettings.FontSize = 11;

        BtnSilItem.clProSettings.IsRound = True;

        BtnSilItem.SetclProSettings(BtnSilItem.clProSettings);

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

        // METINLER (Orta)

        PnlUrunSol = AnaForm.AddNewProPanel(PnlUrunItem, 'Sol_' + UrunStrID + '_' + IntToStr(ListeSayac));

        PnlUrunSol.Align = alClient;

        PnlUrunSol.Margins.Left = 10;

        PnlUrunSol.Margins.Top = 10;

        PnlUrunSol.Margins.Bottom = 10;

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

        PnlUrunSol.SetclProSettings(PnlUrunSol.clProSettings);

        LblUrunAd = AnaForm.AddNewProLabel(PnlUrunSol, 'LblA_' + UrunStrID + '_' + IntToStr(ListeSayac), dataset.FieldByName('name').AsString);

        LblUrunAd.Align = alTop;

        LblUrunAd.Height = 28;

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

        LblUrunAd.clProSettings.FontSize = 15;

        LblUrunAd.SetclProSettings(LblUrunAd.clProSettings);

        LblUrunKat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblK_' + UrunStrID + '_' + IntToStr(ListeSayac), dataset.FieldByName('category_name').AsString);

        LblUrunKat.Align = alTop;

        LblUrunKat.Height = 20;

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

        LblUrunKat.clProSettings.FontSize = 11;

        LblUrunKat.SetclProSettings(LblUrunKat.clProSettings);

        LblUrunFiyat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblF_' + UrunStrID + '_' + IntToStr(ListeSayac), dataset.FieldByName('price').AsString + ' TL');

        LblUrunFiyat.Align = alBottom;

        LblUrunFiyat.Height = 24;

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

        LblUrunFiyat.clProSettings.FontSize = 14;

        LblUrunFiyat.SetclProSettings(LblUrunFiyat.clProSettings);

        dataset.Next;

      }

    }

  except

    ShowMessage('Baglanti hatasi');

  }

}

void GoToAna;

{

  EkraniGoster(PnlAna);

  UrunleriYukle;

}

void GoToDuzenle;

var BtnDuz: TclProButton; imageUrlStr, katAdi: String; rest: TclRest; dataset: TClJSONQuery;

{

  BtnDuz = TclProButton(AnaForm.clSender);

  DuzenlenenUrunId = BtnDuz.clTagInt;

  IsEditMode = True;

  FotoSecildi = False;

  LblYeniUrunBaslik.Text = 'Urunu Duzenle';

  EdtUrunAdi.Text = '';

  EdtUrunFiyat.Text = '';

  SecilenKategoriId = 0;

  SecilenKategoriAdi = '';

  BtnKategoriAc.Text = 'Kategori Seciniz  v';

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

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

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

  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);

  ImgUrunFoto.MultiResBitmap.Clear;

  rest = TclRest.Create;

  rest.BaseURL = BaseURL + '/products/' + IntToStr(DuzenlenenUrunId);

  rest.Method = rmGET;

  try

    rest.Execute;

    if (rest.Response <> '[]')

    {

      dataset = Clomosy.ClDataSetFromJSON(rest.Response);

      if (dataset.Eof == False)

      {

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

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

        SecilenKategoriId = dataset.FieldByName('category_id').AsInteger;

        katAdi = dataset.FieldByName('category_name').AsString;

        SecilenKategoriAdi = katAdi;

        BtnKategoriAc.Text = katAdi + '  v';

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

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

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

        BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);

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

        if (imageUrlStr <> '')

        {

          if (imageUrlStr <> 'null')

          {

            try

              AnaForm.SetImage(ImgUrunFoto, ' http://192.168.1.43:3000/" rel="nofollow - http://192.168.1.43:3000/ ' + imageUrlStr);

            except

              imageUrlStr = '';

            }

            LblFotoDurum.Text = 'Mevcut fotograf var';

          }

          else

          { LblFotoDurum.Text = 'Fotograf yok'; }

        }

        else

        { LblFotoDurum.Text = 'Fotograf yok'; }

        EkraniGoster(PnlYeniUrun);

      }

    }

  except

    ShowMessage('Urun bilgisi alinamadi');

  }

}

void GoToYeniUrun;

{

  IsEditMode = False;

  DuzenlenenUrunId = 0;

  FotoSecildi = False;

  SecilenKategoriId = 0;

  SecilenKategoriAdi = '';

  LblYeniUrunBaslik.Text = 'Yeni Urun Ekle';

  EdtUrunAdi.Text = '';

  EdtUrunFiyat.Text = '';

  ImgUrunFoto.MultiResBitmap.Clear;

  BtnKategoriAc.Text = 'Kategori Seciniz  v';

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

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

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

  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);

  LblFotoDurum.Text = 'Fotograf secilmedi';

  EkraniGoster(PnlYeniUrun);

}

void FotoSec;

{

  Clomosy.ImageChooser(AnaForm, ImgUrunFoto);

  FotoSecildi = True;

  LblFotoDurum.Text = 'Fotograf secildi';

}

void YeniUrunKaydet;

var reqBody: String; rest: TclRest; LBase64: String;

{

  if (EdtUrunAdi.Text == '') { ShowMessage('Urun adi giriniz!'); Exit; }

  if (EdtUrunFiyat.Text == '') { ShowMessage('Fiyat giriniz!'); Exit; }

  if (SecilenKategoriId == 0) { ShowMessage('Kategori seciniz!'); Exit; }

  if (IsEditMode == False)

  {

    if (FotoSecildi == False) { ShowMessage('Fotograf seciniz!'); Exit; }

  }

  reqBody = '{"category_id":' + IntToStr(SecilenKategoriId) + ', "name":"' + EdtUrunAdi.Text + '", "description":"' + EdtUrunAdi.Text + '", "price":' + EdtUrunFiyat.Text;

  if (FotoSecildi)

  {

    LMemStream = TCLMemoryStream.Create;

    ImgUrunFoto.Bitmap.SaveToStream(LMemStream);

    LBase64 = LMemStream.AsBase64;

    reqBody = reqBody + ', "image_base64":"' + LBase64 + '"';

    LMemStream.Free;

  }

  if (IsEditMode)

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

  else

  { reqBody = reqBody + '}'; }

  rest = TclRest.Create;

  rest.BaseURL = BaseURL + '/products';

  rest.Accept = 'application/json';

  rest.Method = rmPOST;

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

  try

    rest.Execute;

    EdtUrunAdi.Text = '';

    EdtUrunFiyat.Text = '';

    ImgUrunFoto.MultiResBitmap.Clear;

    GoToAna;

    ShowMessage('Kaydedildi!');

  except

    ShowMessage('Kayit basarisiz!');

  }

}

{

  BaseURL = ' http://192.168.1.43:3000/api" rel="nofollow - http://192.168.1.43:3000/api ';

  IsEditMode = False;

  DuzenlenenUrunId = 0;

  FotoSecildi = False;

  KategoriSayisi = 0;

  ListeSayac = 0;

  KatSayac = 0;

  SecilenKategoriId = 0;

  SecilenKategoriAdi = '';

  UrunListesiYuklendi = False;

  KatListesiYuklendi = False;

  AnaForm = TclForm.Create(Self);

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

  // ---- ANA EKRAN ----

  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');

  LblAnaBaslik.Align = alLeft;

  LblAnaBaslik.Width = 80;

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

  LblAnaBaslik.clProSettings.FontSize = 20;

  LblAnaBaslik.clProSettings.FontVertAlign = palCenter;

  LblAnaBaslik.SetclProSettings(LblAnaBaslik.clProSettings);

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

  BtnQR.Align = alRight;

  BtnQR.Width = 80;

  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.IsRound = True;

  BtnQR.SetclProSettings(BtnQR.clProSettings);

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

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

  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.SetclProSettings(BtnUrunEkle.clProSettings);

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

  // ---- QR MODAL ----

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

  PnlQRModal.Align = alClient;

  PnlQRModal.Visible = False;

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

  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.SetclProSettings(PnlQRKart.clProSettings);

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

  LblQRBaslik.Align = alTop;

  LblQRBaslik.Height = 50;

  LblQRBaslik.clProSettings.FontHorzAlign = palCenter;

  LblQRBaslik.clProSettings.FontVertAlign = palCenter;

  LblQRBaslik.SetclProSettings(LblQRBaslik.clProSettings);

  QrKod = AnaForm.AddNewQRCodeGenerator(PnlQRKart, 'QrKod', ' http://192.168.1.43:3000/" rel="nofollow - http://192.168.1.43:3000/ ');

  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.IsRound = True;

  BtnQRKapat.SetclProSettings(BtnQRKapat.clProSettings);

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

  // ---- YENİ URUN EKRANI ----

  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.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

  BtnYeniUrunGeri.clProSettings.BorderWidth = 1;

  BtnYeniUrunGeri.clProSettings.IsRound = True;

  BtnYeniUrunGeri.SetclProSettings(BtnYeniUrunGeri.clProSettings);

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

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

  LblYeniUrunBaslik.Align = alClient;

  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 = 540;

  PnlForm.Margins.Left = 16;

  PnlForm.Margins.Right = 16;

  PnlForm.Margins.Top = 8;

  PnlForm.Margins.Bottom = 16;

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

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

  PnlForm.clProSettings.BorderWidth = 1;

  PnlForm.clProSettings.IsRound = True;

  PnlForm.SetclProSettings(PnlForm.clProSettings);

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

  ImgUrunFoto.Align = alTop;

  ImgUrunFoto.Height = 160;

  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 = 10;

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

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

  BtnFotoSec.clProSettings.IsRound = True;

  BtnFotoSec.SetclProSettings(BtnFotoSec.clProSettings);

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

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

  LblFotoDurum.Align = alTop;

  LblFotoDurum.Height = 22;

  LblFotoDurum.Margins.Left = 20;

  LblFotoDurum.Margins.Top = 4;

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

  LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

  BtnKategoriAc = AnaForm.AddNewProButton(PnlForm, 'BtnKategoriAc', 'Kategori Seciniz  v');

  BtnKategoriAc.Align = alTop;

  BtnKategoriAc.Height = 52;

  BtnKategoriAc.Margins.Left = 20;

  BtnKategoriAc.Margins.Right = 20;

  BtnKategoriAc.Margins.Top = 12;

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

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

  BtnKategoriAc.clProSettings.BorderWidth = 1;

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

  BtnKategoriAc.clProSettings.FontSize = 15;

  BtnKategoriAc.clProSettings.IsRound = True;

  BtnKategoriAc.SetclProSettings(BtnKategoriAc.clProSettings);

  AnaForm.AddNewEvent(BtnKategoriAc, tbeOnClick, 'GoToKategoriSecim');

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

  EdtUrunAdi.Align = alTop;

  EdtUrunAdi.Height = 52;

  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 = 52;

  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.IsRound = True;

  BtnKaydet.SetclProSettings(BtnKaydet.clProSettings);

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

  // ---- KATEGORİ SEÇİM EKRANI ----

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

  PnlKategoriSecim.Align = alClient;

  PnlKategoriSecim.Visible = False;

  PnlKategoriSecimUst = AnaForm.AddNewProPanel(PnlKategoriSecim, 'PnlKatUst');

  PnlKategoriSecimUst.Align = alTop;

  PnlKategoriSecimUst.Height = 64;

  PnlKategoriSecimUst.Margins.Left = 16;

  PnlKategoriSecimUst.Margins.Right = 16;

  PnlKategoriSecimUst.Margins.Top = 8;

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

  PnlKategoriSecimUst.SetclProSettings(PnlKategoriSecimUst.clProSettings);

  BtnKategoriGeri = AnaForm.AddNewProButton(PnlKategoriSecimUst, 'BtnKatGeri', '<');

  BtnKategoriGeri.Align = alLeft;

  BtnKategoriGeri.Width = 44;

  BtnKategoriGeri.Height = 44;

  BtnKategoriGeri.Margins.Top = 10;

  BtnKategoriGeri.Margins.Bottom = 10;

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

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

  BtnKategoriGeri.clProSettings.BorderWidth = 1;

  BtnKategoriGeri.clProSettings.IsRound = True;

  BtnKategoriGeri.SetclProSettings(BtnKategoriGeri.clProSettings);

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

  LblKategoriBaslik = AnaForm.AddNewProLabel(PnlKategoriSecimUst, 'LblKatBaslik', 'Kategori Sec');

  LblKategoriBaslik.Align = alClient;

  LblKategoriBaslik.clProSettings.FontHorzAlign = palCenter;

  LblKategoriBaslik.clProSettings.FontVertAlign = palCenter;

  LblKategoriBaslik.clProSettings.FontSize = 17;

  LblKategoriBaslik.SetclProSettings(LblKategoriBaslik.clProSettings);

  ScrKategoriler = AnaForm.AddNewVertScrollBox(PnlKategoriSecim, 'ScrKat0');

  ScrKategoriler.Align = alClient;

  UrunleriYukle;

  AnaForm.Run;

}

eklediğim ürünler kayıt olmuyor ama web tarafında kaydoluyor