PnlLogin.Align = alCenter; 

  PnlLogin.Width = 320; 

  PnlLogin.Height = 520; 

  PnlLogin.StyleLookup = 'pushpanel';

  lblTitle = Form1.AddNewLabel(PnlLogin, 'lblTitle', 'ClomoStock');

  lblTitle.Align = alTop; 

  lblTitle.Height = 100;  

  lblTitle.Margins.Top = 40; 

  lblTitle.Margins.Bottom = 20; 

  lblTitle.TextSettings.Font.Size = 45; 

  lblTitle.TextSettings.Font.Style = [fsBold]; 

  lblTitle.TextSettings.HorzAlign = 1; 

  lblTitle.TextSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); 

    login sayfasındaki clomostock yazısının boyutunu ve konumunu

 ayarlayamadım

  Var 

  Form1: TclForm;

  PnlLogin, PnlSignUp, PnlDashboard, PnlAddProduct, PnlOutProduct, PnlListStock: TclPanel;

  EdtLName, EdtLPass, EdtSName, EdtSPass: TclProEdit;

  BtnDoLogin, BtnRegister, BtnGoToSignUp: TclProButton;

  BtnGotoAddPage, BtnGotoOutPage, BtnGotoListPage: TclProButton;

  BtnBackFromAdd, BtnBackFromOut, BtnBackFromList, BtnBackFromSignUp: TclProButton;

  BtnLogoutDash, BtnLogoutAdd, BtnLogoutOut, BtnLogoutList: TclProButton;

  BtnOutProduct, BtnSaveProduct: TclProButton;

  EdtAddName, EdtAddPrice, EdtAddAmount: TclProEdit;

  EdtOutName, EdtOutAmount: TclProEdit;

  Qry: TClSQLiteQuery;

  i: integer;

  stPnl: TclPanel;

  lblTitle, lblTitleS: TclLabel;

// --- STOK LİSTESİ YENİLEME ---

void RefreshStockList;

Var

  stPnl: TclPanel;

  stLblName, stLblDetail: TclLabel; 

{

  // ARAYÜZÜ KORUYARAK TEMİZLEME: Paneli silip yeniden oluşturuyoruz (Hata almamak için en güvenli yol)

  if (PnlListStock <> nil) { PnlListStock.Free; }

  

  PnlListStock = Form1.AddNewPanel(Form1, 'PnlListStock');

  PnlListStock.Align = alClient;

  PnlListStock.Visible = True;

  // Geri Dön Butonunu Yeniden Tanımla (Panel silindiği için içine tekrar ekliyoruz)

  BtnBackFromList = Form1.AddNewProButton(PnlListStock, 'BtnBl', 'GERİ DÖN'); 

  BtnBackFromList.Align = alBottom; 

  BtnBackFromList.Height = 50; 

  BtnBackFromList.Margins.Bottom = 10; 

  BtnBackFromList.Margins.Left = 30; 

  BtnBackFromList.Margins.Right = 30;

  BtnBackFromList.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C');

  BtnBackFromList.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnBackFromList.ClProSettings.RoundHeight = 15; 

  BtnBackFromList.SetclProSettings(BtnBackFromList.ClProSettings);

  Form1.AddNewEvent(BtnBackFromList, tbeOnClick, 'ShowDashboard');

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT * FROM Stocks WHERE pUser = ' + QuotedStr(EdtLName.Text) + ' ORDER BY pName ASC');

    Qry.OpenOrExecute;

    Qry.First;

    i = 1;

    

    while (not Qry.EOF)

    {

      stPnl = Form1.AddNewPanel(PnlListStock, 'stRow' + IntToStr(i));

      stPnl.Height = 85; 

      stPnl.Align = alTop; 

      stPnl.Margins.Top = 10; 

      stPnl.Margins.Left = 15; 

      stPnl.Margins.Right = 15;

      stPnl.StyleLookup = 'pushpanel'; 

      stLblName = Form1.AddNewLabel(stPnl, 'stName' + IntToStr(i), Qry.FieldByName('pName').AsString);

      stLblName.Align = alTop; 

      stLblName.Margins.Left = 20; 

      stLblName.Margins.Top = 10;

      stLblName.Height = 30;

      stLblName.TextSettings.Font.Size = 18; 

      stLblName.TextSettings.Font.Style = [fsBold]; 

      stLblName.TextSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50');

      stLblDetail = Form1.AddNewLabel(stPnl, 'stDetail' + IntToStr(i), 

        '💰 ' + Qry.FieldByName('pPrice').AsString + ' TL   |   📦 Stok: ' + Qry.FieldByName('pAmount').AsString);

      stLblDetail.Align = alClient; 

      stLblDetail.Margins.Left = 20;

      stLblDetail.Margins.Bottom = 5;

      stLblDetail.TextSettings.Font.Size = 13;

      stLblDetail.TextSettings.FontColor = clAlphaColor.clHexToColor('#7F8C8D'); 

      Qry.Next;

      i = i + 1;

    }

  except

    ShowMessage('Liste yüklenemedi!');

  }

}

// --- ÜRÜN İŞLEMLERİ ---

void AddNewProduct;

{

  if ((EdtAddName.Text <> '') && (EdtAddAmount.Text <> ''))

  {

    try

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Stocks (pName, pPrice, pAmount, pUser) VALUES (' + 

        QuotedStr(EdtAddName.Text) + ', ' + EdtAddPrice.Text + ', ' + EdtAddAmount.Text + ', ' + QuotedStr(EdtLName.Text) + ')';

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      ShowMessage('Ürün girişi başarılı!');

      EdtAddName.Text = ''; EdtAddPrice.Text = ''; EdtAddAmount.Text = '';

    except

      ShowMessage('Kayıt hatası! Lütfen sayısal alanları kontrol edin.');

    }

  } else ShowMessage('Bilgileri doldurun!');

}

void SubProduct;

{

  if ((EdtOutName.Text <> '') && (EdtOutAmount.Text <> ''))

  {

    Qry = Clomosy.DBSQLiteQueryWith('SELECT pAmount FROM Stocks WHERE pName = ' + QuotedStr(EdtOutName.Text) + ' AND pUser = ' + QuotedStr(EdtLName.Text));

    Qry.OpenOrExecute;

    if (not Qry.Eof)

    {

      if (Qry.FieldByName('pAmount').AsInteger >= StrToInt(EdtOutAmount.Text))

      {

        Clomosy.DBSQLiteQuery.Sql.Text = 'UPDATE Stocks SET pAmount = pAmount - ' + EdtOutAmount.Text + ' WHERE pName = ' + QuotedStr(EdtOutName.Text) + ' AND pUser = ' + QuotedStr(EdtLName.Text);

        Clomosy.DBSQLiteQuery.OpenOrExecute;

        ShowMessage('Ürün çıkışı yapıldı!');

        EdtOutName.Text = ''; EdtOutAmount.Text = '';

      } else ShowMessage('Yetersiz stok! Mevcut: ' + Qry.FieldByName('pAmount').AsString);

    } else ShowMessage('Ürün bulunamadı!');

  } else ShowMessage('Bilgileri doldurun!');

}

// --- NAVİGASYON ---

void ShowLogin; { PnlSignUp.Visible = False; PnlDashboard.Visible = False; PnlAddProduct.Visible = False; PnlOutProduct.Visible = False; PnlListStock.Visible = False; PnlLogin.Visible = True; }

void ShowDashboard; { PnlLogin.Visible = False; PnlSignUp.Visible = False; PnlAddProduct.Visible = False; PnlOutProduct.Visible = False; PnlListStock.Visible = False; PnlDashboard.Visible = True; }

void ShowAddPage; { PnlDashboard.Visible = False; PnlAddProduct.Visible = True; }

void ShowOutPage; { PnlDashboard.Visible = False; PnlOutProduct.Visible = True; }

void ShowListPage; { PnlDashboard.Visible = False; PnlListStock.Visible = True; RefreshStockList; }

void ShowSignUp; { PnlLogin.Visible = False; PnlSignUp.Visible = True; }

// --- AUTH İŞLEMLERİ ---

void DoLogin; 

{

  Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT * FROM Users WHERE userName=' + QuotedStr(EdtLName.Text) + ' AND userPassword=' + QuotedStr(EdtLPass.Text);

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  if (not Clomosy.DBSQLiteQuery.Eof) ShowDashboard;

  else ShowMessage('Hatalı Giriş!');

}

void DoRegister; 

{

  Qry = Clomosy.DBSQLiteQueryWith('SELECT userName FROM Users WHERE userName=' + QuotedStr(EdtSName.Text));

  Qry.OpenOrExecute;

  if (not Qry.Eof) { ShowMessage('Bu kullanıcı adı zaten alınmış!'); }

  else

  {

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (userName, userPassword) VALUES (' + QuotedStr(EdtSName.Text) + ', ' + QuotedStr(EdtSPass.Text) + ')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Kayıt Başarılı!'); ShowLogin;

  }

}

void SetupDatabase; 

{

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomoStockV22.db3', '');

  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Users(userName TEXT, userPassword TEXT)';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Stocks(pName TEXT, pPrice INTEGER, pAmount INTEGER, pUser TEXT)';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

}

// --- ANA KURULUM ---

{

  Form1 = TclForm.Create(Self);

  SetupDatabase;

  Form1.SetFormColor('#2C3E50', '#2C3E50', clGVertical);

  PnlLogin = Form1.AddNewPanel(Form1, 'PnlLogin');

  PnlSignUp = Form1.AddNewPanel(Form1, 'PnlSignUp');

  PnlDashboard = Form1.AddNewPanel(Form1, 'PnlDashboard');

  PnlAddProduct = Form1.AddNewPanel(Form1, 'PnlAddProduct');

  PnlOutProduct = Form1.AddNewPanel(Form1, 'PnlOutProduct');

  PnlListStock = Form1.AddNewPanel(Form1, 'PnlListStock');

  // LOGIN ARAYÜZÜ (ORİJİNAL)

  PnlLogin.Align = alCenter; PnlLogin.Width = 320; PnlLogin.Height = 480; PnlLogin.StyleLookup = 'pushpanel';

  lblTitle = Form1.AddNewLabel(PnlLogin, 'lblTitle', 'ClomoStock');

  lblTitle.Align = alMostTop; lblTitle.Height = 80; lblTitle.Margins.Top = 20;

  lblTitle.TextSettings.Font.Size = 40; lblTitle.TextSettings.Font.Style = [fsBold]; lblTitle.TextSettings.HorzAlign = 1;

  EdtLName = Form1.AddNewProEdit(PnlLogin, 'EdtLName', 'Kullanıcı Adı');

  EdtLName.Align = alTop; EdtLName.Height = 45; EdtLName.Margins.Top = 15; EdtLName.Margins.Left = 30; EdtLName.Margins.Right = 30;

  EdtLName.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtLName.ClProSettings.RoundHeight = 10; EdtLName.SetclProSettings(EdtLName.ClProSettings);

  EdtLPass = Form1.AddNewProEdit(PnlLogin, 'EdtLPass', 'Şifre');

  EdtLPass.Align = alTop; EdtLPass.Height = 45; EdtLPass.Margins.Top = 15; EdtLPass.Margins.Left = 30; EdtLPass.Margins.Right = 30;

  EdtLPass.Password = True; EdtLPass.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtLPass.ClProSettings.RoundHeight = 10; EdtLPass.SetclProSettings(EdtLPass.ClProSettings);

  BtnDoLogin = Form1.AddNewProButton(PnlLogin, 'BtnDoLogin', 'GİRİŞ YAP');

  BtnDoLogin.Align = alTop; BtnDoLogin.Height = 60; BtnDoLogin.Margins.Top = 15; BtnDoLogin.Margins.Left = 40; BtnDoLogin.Margins.Right = 40;

  BtnDoLogin.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50');

  BtnDoLogin.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnDoLogin.ClProSettings.RoundHeight = 15; BtnDoLogin.SetclProSettings(BtnDoLogin.ClProSettings);

  Form1.AddNewEvent(BtnDoLogin, tbeOnClick, 'DoLogin');

  BtnGoToSignUp = Form1.AddNewProButton(PnlLogin, 'BtnGoToSignUp', 'YENİ HESAP OLUŞTUR');

  BtnGoToSignUp.Align = alTop; BtnGoToSignUp.Height = 60; BtnGoToSignUp.Margins.Top = 15; BtnGoToSignUp.Margins.Left = 40; BtnGoToSignUp.Margins.Right = 40;

  BtnGoToSignUp.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495E'); BtnGoToSignUp.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnGoToSignUp.ClProSettings.RoundHeight = 15; BtnGoToSignUp.SetclProSettings(BtnGoToSignUp.ClProSettings);

  Form1.AddNewEvent(BtnGoToSignUp, tbeOnClick, 'ShowSignUp');

  // KAYIT PANELİ

  PnlSignUp.Align = alCenter; PnlSignUp.Width = 320; PnlSignUp.Height = 480; PnlSignUp.StyleLookup = 'pushpanel'; PnlSignUp.Visible = False;

  lblTitleS = Form1.AddNewLabel(PnlSignUp, 'lblTitleS', 'KAYIT OL');

  lblTitleS.Align = alTop; lblTitleS.Height = 60; lblTitleS.TextSettings.Font.Size = 30; lblTitleS.TextSettings.HorzAlign = 1;

  EdtSName = Form1.AddNewProEdit(PnlSignUp, 'EdtSName', 'Yeni Kullanıcı Adı');

  EdtSName.Align = alTop; EdtSName.Height = 45; EdtSName.Margins.Top = 20; EdtSName.Margins.Left = 30; EdtSName.Margins.Right = 30;

  EdtSName.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtSName.ClProSettings.RoundHeight = 10; EdtSName.SetclProSettings(EdtSName.ClProSettings);

  EdtSPass = Form1.AddNewProEdit(PnlSignUp, 'EdtSPass', 'Yeni Şifre');

  EdtSPass.Align = alTop; EdtSPass.Height = 45; EdtSPass.Margins.Top = 15; EdtSPass.Margins.Left = 30; EdtSPass.Margins.Right = 30;

  EdtSPass.Password = True; EdtSPass.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtSPass.ClProSettings.RoundHeight = 10; EdtSPass.SetclProSettings(EdtSPass.ClProSettings);

  BtnRegister = Form1.AddNewProButton(PnlSignUp, 'BtnRegister', 'Hesabı Tamamla');

  BtnRegister.Align = alTop; BtnRegister.Margins.Top = 25; BtnRegister.Margins.Left = 30; BtnRegister.Height = 60; 

  BtnRegister.Margins.Right = 30;  BtnRegister.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnRegister.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50'); BtnRegister.ClProSettings.RoundHeight = 40;

  BtnRegister.SetclProSettings(BtnRegister.ClProSettings);

  Form1.AddNewEvent(BtnRegister, tbeOnClick, 'DoRegister');

  BtnBackFromSignUp = Form1.AddNewProButton(PnlSignUp, 'BtnBackFromSignUp', 'Geri Dön');

  BtnBackFromSignUp.Align = alTop; BtnBackFromSignUp.Margins.Top = 10;

  BtnBackFromSignUp.Margins.Left = 30; BtnBackFromSignUp.Margins.Right = 30;

  BtnBackFromSignUp.Height= 60;

  BtnBackFromSignUp.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnBackFromSignUp.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C');

  BtnBackFromSignUp.ClProSettings.RoundHeight = 40; 

  BtnBackFromSignUp.SetclProSettings(BtnBackFromSignUp.ClProSettings);

  Form1.AddNewEvent(BtnBackFromSignUp, tbeOnClick, 'ShowLogin');

  // DASHBOARD

  PnlDashboard.Align = alClient; PnlDashboard.Visible = False;

  lblTitle = Form1.AddNewLabel(PnlDashboard, 'lblDashTitle', 'YÖNETİM PANELİ');

  lblTitle.Align = alTop; lblTitle.Height = 50; lblTitle.Margins.Top = 40; lblTitle.TextSettings.Font.Size = 22; lblTitle.TextSettings.Font.Style = [fsBold]; lblTitle.TextSettings.HorzAlign = 1;

  BtnGotoAddPage = Form1.AddNewProButton(PnlDashboard, 'BtnA', '➕ ÜRÜN GİRİŞİ'); 

  BtnGotoAddPage.Align = alTop; BtnGotoAddPage.Height = 90; BtnGotoAddPage.Margins.Top = 30; BtnGotoAddPage.Margins.Left = 30; BtnGotoAddPage.Margins.Right = 30;

  BtnGotoAddPage.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnGotoAddPage.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50'); BtnGotoAddPage.ClProSettings.RoundHeight = 20; BtnGotoAddPage.SetclProSettings(BtnGotoAddPage.ClProSettings);

  Form1.AddNewEvent(BtnGotoAddPage, tbeOnClick, 'ShowAddPage');

  BtnGotoOutPage = Form1.AddNewProButton(PnlDashboard, 'BtnO', '➖ ÜRÜN ÇIKIŞI'); 

  BtnGotoOutPage.Align = alTop; BtnGotoOutPage.Height = 90; BtnGotoOutPage.Margins.Top = 15; BtnGotoOutPage.Margins.Left = 30; BtnGotoOutPage.Margins.Right = 30;

    BtnGotoOutPage.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnGotoOutPage.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50'); BtnGotoOutPage.ClProSettings.RoundHeight = 20; BtnGotoOutPage.SetclProSettings(BtnGotoOutPage.ClProSettings);

  Form1.AddNewEvent(BtnGotoOutPage, tbeOnClick, 'ShowOutPage');

  BtnGotoListPage = Form1.AddNewProButton(PnlDashboard, 'BtnL', '📊 STOK LİSTESİ'); 

  BtnGotoListPage.Align = alTop; BtnGotoListPage.Height = 90; BtnGotoListPage.Margins.Top = 15; BtnGotoListPage.Margins.Left = 30; BtnGotoListPage.Margins.Right = 30;

  BtnGotoListPage.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnGotoListPage.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50'); BtnGotoListPage.ClProSettings.RoundHeight = 20; BtnGotoListPage.SetclProSettings(BtnGotoListPage.ClProSettings);

  Form1.AddNewEvent(BtnGotoListPage, tbeOnClick, 'ShowListPage');

  BtnLogoutDash = Form1.AddNewProButton(PnlDashboard, 'BtnLd', 'OTURUMU KAPAT');

  BtnLogoutDash.Align = alBottom; BtnLogoutDash.Height = 50; BtnLogoutDash.Margins.Bottom = 40; BtnLogoutDash.Margins.Left = 80; BtnLogoutDash.Margins.Right = 80;

    BtnLogoutDash.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnLogoutDash.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C0392B'); BtnLogoutDash.ClProSettings.RoundHeight = 25; BtnLogoutDash.SetclProSettings(BtnLogoutDash.ClProSettings);

  Form1.AddNewEvent(BtnLogoutDash, tbeOnClick, 'ShowLogin');

  // ÜRÜN GİRİŞ

  PnlAddProduct.Align = alClient; PnlAddProduct.Visible = False;

  EdtAddName = Form1.AddNewProEdit(PnlAddProduct, 'EdtAN', 'Ürün Adını Yazınız...'); 

  EdtAddName.Align = alTop; EdtAddName.Height = 45; EdtAddName.Margins.Top = 50; EdtAddName.Margins.Left = 30; EdtAddName.Margins.Right = 30;

  EdtAddName.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtAddName.SetclProSettings(EdtAddName.ClProSettings);

  EdtAddPrice = Form1.AddNewProEdit(PnlAddProduct, 'EdtAP', 'Birim Fiyat (TL)...'); 

  EdtAddPrice.Align = alTop; EdtAddPrice.Height = 45; EdtAddPrice.Margins.Left = 30; EdtAddPrice.Margins.Right = 30; EdtAddPrice.Margins.Top = 15;

  EdtAddPrice.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtAddPrice.SetclProSettings(EdtAddPrice.ClProSettings);

  EdtAddAmount = Form1.AddNewProEdit(PnlAddProduct, 'EdtAA', 'Eklenecek Miktar...'); 

  EdtAddAmount.Align = alTop; EdtAddAmount.Height = 45; EdtAddAmount.Margins.Left = 30; EdtAddAmount.Margins.Right = 30; EdtAddAmount.Margins.Top = 15;

  EdtAddAmount.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtAddAmount.SetclProSettings(EdtAddAmount.ClProSettings);

  BtnSaveProduct = Form1.AddNewProButton(PnlAddProduct, 'BtnSv', 'KAYDET'); 

  BtnSaveProduct.Align = alTop; BtnSaveProduct.Height = 50; BtnSaveProduct.Margins.Left = 30; BtnSaveProduct.Margins.Right = 30; BtnSaveProduct.Margins.Top = 20;

    BtnSaveProduct.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnSaveProduct.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50'); BtnSaveProduct.ClProSettings.RoundHeight = 15; BtnSaveProduct.SetclProSettings(BtnSaveProduct.ClProSettings);

  Form1.AddNewEvent(BtnSaveProduct, tbeOnClick, 'AddNewProduct');

  BtnBackFromAdd = Form1.AddNewProButton(PnlAddProduct, 'BtnBa', 'GERİ DÖN'); 

  BtnBackFromAdd.Align = alTop; BtnBackFromAdd.Height = 50; BtnBackFromAdd.Margins.Top = 15; BtnBackFromAdd.Margins.Left = 30; BtnBackFromAdd.Margins.Right = 30;

    BtnBackFromAdd.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnBackFromAdd.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C0392B'); BtnBackFromAdd.ClProSettings.RoundHeight = 15; BtnBackFromAdd.SetclProSettings(BtnBackFromAdd.ClProSettings);

  Form1.AddNewEvent(BtnBackFromAdd, tbeOnClick, 'ShowDashboard');

  // ÜRÜN ÇIKIŞ

  PnlOutProduct.Align = alClient; PnlOutProduct.Visible = False;

  EdtOutName = Form1.AddNewProEdit(PnlOutProduct, 'EdtON', 'Ürün Adı Giriniz...');

  EdtOutName.Align = alTop; EdtOutName.Height = 45; EdtOutName.Margins.Top = 50; EdtOutName.Margins.Left = 30; EdtOutName.Margins.Right = 30;

  EdtOutName.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtOutName.SetclProSettings(EdtOutName.ClProSettings);

  EdtOutAmount = Form1.AddNewProEdit(PnlOutProduct, 'EdtOA', 'Çıkış Miktarını Yazınız...');

  EdtOutAmount.Align = alTop; EdtOutAmount.Height = 45; EdtOutAmount.Margins.Top = 15; EdtOutAmount.Margins.Left = 30; EdtOutAmount.Margins.Right = 30;

  EdtOutAmount.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDFEFE'); EdtOutAmount.SetclProSettings(EdtOutAmount.ClProSettings);

  BtnOutProduct = Form1.AddNewProButton(PnlOutProduct, 'BtnOp', 'STOKTAN DÜŞ');

  BtnOutProduct.Align = alTop; BtnOutProduct.Height = 50; BtnOutProduct.Margins.Top = 20; BtnOutProduct.Margins.Left = 30; BtnOutProduct.Margins.Right = 30;

    BtnOutProduct.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');BtnOutProduct.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); BtnOutProduct.ClProSettings.RoundHeight = 15; BtnOutProduct.SetclProSettings(BtnOutProduct.ClProSettings);

  Form1.AddNewEvent(BtnOutProduct, tbeOnClick, 'SubProduct');

  BtnBackFromOut = Form1.AddNewProButton(PnlOutProduct, 'BtnBo', 'GERİ DÖN');

  BtnBackFromOut.Align = alTop; BtnBackFromOut.Height = 50; BtnBackFromOut.Margins.Top = 15;

  BtnBackFromOut.Margins.Left = 30; 

  BtnBackFromOut.Margins.Right = 30;

    BtnBackFromOut.ClProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  BtnBackFromOut.ClProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); 

  BtnBackFromOut.ClProSettings.RoundHeight = 15; 

  BtnBackFromOut.SetclProSettings(BtnBackFromOut.ClProSettings);

  Form1.AddNewEvent(BtnBackFromOut, tbeOnClick, 'ShowDashboard');

  // LİSTE SAYFASI (BAŞLANGIÇTA BOŞ)

  PnlListStock.Align = alClient; PnlListStock.Visible = False;

  Form1.Run;

}