Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - RE: proje
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

RE: proje
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
yagmur Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 05 Mayıs 2026
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı yagmur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: RE: proje
    Gönderim Zamanı: 2 Saat 11 Dakika Önce Saat 07:55

    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;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
4GWTRS
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 199 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 55 Dakika Önce Saat 09:11
lblTitle isminde bir label daha var kodun alt kısımlarında, aynı isimde 2 farklı label olduğu için karışıyor ayrıca tclprolabel versyonu kullanmanı tavsiye ederim.


https://www.docs.clomosy.com/index.php?title=TclProLabel











https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 885 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 40 Dakika Önce Saat 09:26
Merhaba Yağmur 

Projende ki ilgili kısmı düzenler misin? 

  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'); 
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.