Clomosy | Forum : tbeOnGridCellClick Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:53:22 +0000 Fri, 11 Oct 2024 18:17:05 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=942 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[tbeOnGridCellClick Hatası : Tamamdır bu şekilde çalıştı. Teşekkür...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=942&PID=1847#1847 Yazar: NadireNurSaglam
Konu: 942
Gönderim Zamanı: 11 Ekim 2024 Saat 18:17

Tamamdır bu şekilde çalıştı. Teşekkür ederim.]]> Fri, 11 Oct 2024 18:17:05 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=942&PID=1847#1847 <![CDATA[tbeOnGridCellClick Hatası : Merhaba NadiregridbilgiForm.AddNewEvent(ProGridBilgi,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=942&PID=1846#1846 Yazar: Developer
Konu: 942
Gönderim Zamanı: 11 Ekim 2024 Saat 18:14

Merhaba Nadire 
gridbilgiForm.AddNewEvent(ProGridBilgi, tbeOnProGridCellClick, 'griddenBilgiCek'); b şekilde değiştirebilir misin?
Kolay Gelsin
]]> Fri, 11 Oct 2024 18:14:40 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=942&PID=1846#1846 <![CDATA[tbeOnGridCellClick Hatası : Aşağıdaki kodumda gridBilgileriGetir...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=942&PID=1845#1845 Yazar: NadireNurSaglam
Konu: 942
Gönderim Zamanı: 11 Ekim 2024 Saat 18:02

Aşağıdaki kodumda gridBilgileriGetir fonksiyonunda bulunan 
gridbilgiForm.AddNewEvent(ProGridBilgi, tbeOnGridCellClick, 'griddenBilgiCek');
griddenBilgiCek fonksiyonunu çağıramıyorum. Fonksiyondaki 
 ShowMessage('geldi');
kısmına gelmiyor.

var
stokForm : TCLForm;
ProGrid: TCLProGrid;
Qry: TClSqlQuery;
vertSB : TCLVertScrollBox;
FSender:TCLProGrid;
stokFormPanel : TclProPanel;
baslikLabel : TClProLabel;
i: Integer;
QryKayitSayisi: TClSqlQuery;
KayitSayisi: Integer;
a: Integer;
//filtreleEkran tanımlamalar
filtreleEkranForm : TCLForm;
StokKoduIcerikEdit: TclProEdit;
StokKoduLbl, StokKoduBtn :TClProLabel;
stokAdiLbl, stokAdiIcerikLbl :  TClProLabel;
bazTarihLbl : TClProLabel;
raporBtn : TClProButton;
bazTarihDate :  TClProDateEdit;
kodYerineIsimLbl,stokYazilanIsimLbl, hizmetStokHaricLbl: TClProLabel;
kodYerineIsimCB, stokYazilanIsimCB, hizmetStokHaricCB : TCLCheckBox;
qryfiltrele : TClSqlQuery;
gridbilgiForm : TCLForm;
vertSBGridBilgi : TCLVertScrollBox;
stokFormPanelGridBilgi : TclProPanel;
Qrygridbilgi : TClSqlQuery;
FRow,j : integer;
FCol,gridKayitSayisi : integer;
QryKayit : TClSqlQuery;
FSenderSaticiSipStok,ProGridBilgi: TCLProGrid;

void kayitSayiAl;
{
  //-------------------------------------------------kayit sayısı alma, sağa yaslama, kırmızı yapma-----------------------------------
    QryKayitSayisi =  TClSqlQuery.Create(nil);
    QryKayitSayisi.Connection = Clomosy.DBSQLServerConnection;
    
    QryKayitSayisi.Sql.Text = 'SELECT COUNT(*) AS KayitSayisi 
                          FROM ( 
                             SELECT 
                                dbo.TBLSTOKSB.STOK_KODU, 
                              dbo.TBLSTOKSB.STOK_ADI, 
                               SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS GIRIS_MIKTAR, 
                                SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = -1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS CIKIS_MIKTAR, 
                                 ISNULL(SUM(CASE WHEN 1 = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END * dbo.TBLSTOKHR.GC_ISLEM), 0) AS BAKIYE 
                              FROM 
                                dbo.TBLSTOKSB 
                              INNER JOIN 
                                  dbo.TBLSTOKHR ON dbo.TBLSTOKSB.REC_NO = dbo.TBLSTOKHR.STOK_KODU_RECID AND dbo.TBLSTOKHR.SUBE_KODU IN (0) 
                             LEFT OUTER JOIN 
                                  (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRG ON HRG.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRG.GC_ISLEM = 1 
                           LEFT OUTER JOIN 
                                  (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRC ON HRC.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRC.GC_ISLEM = -1 
                              LEFT OUTER JOIN 
                                  dbo.TBLSTOKBELGETIPSB ON dbo.TBLSTOKBELGETIPSB.BELGE_TIPI = dbo.TBLSTOKHR.BELGE_TIPI 
                            WHERE 
                                 (dbo.TBLSTOKSB.STOK_TIPI <> ' + QuotedStr('Z') + ') 
                             GROUP BY 
                                 dbo.TBLSTOKSB.STOK_KODU, dbo.TBLSTOKSB.STOK_ADI 
                          ) AS DATA;';
    QryKayitSayisi.Open;
    if(QryKayitSayisi.Found)
    {
      KayitSayisi = QryKayitSayisi.FieldByName('KayitSayisi').AsInteger; 
     // ShowMessage('Toplam Kayıt Sayısı: ' + IntToStr(KayitSayisi)); 
      with ProGrid do // eksi değerleri de aşağıdaki for döngüsünde kontrol ettiğiiz için bve başlılar integer değerde olmadığı için 
      //başlıkları ayrıyeten burda sağa yasladık
      {
        HorzAlignments[2,0] = 2;
        HorzAlignments[3,0] = 2;
        HorzAlignments[4,0] = 2;
      }
      
      for (i=1 to KayitSayisi)
      {
        with ProGrid do
        {
          HorzAlignments[2, i] = 2; //ilgili sütunlardaki tüm hücreleri sağa yaslar ve rengini siyah yapar
          HorzAlignments[3, i] = 2; 
          HorzAlignments[4, i] = 2; 
          FontColors[2,i] = clAlphaColor.clBlack;
          FontColors[3,i] = clAlphaColor.clBlack;
          FontColors[4,i] = clAlphaColor.clBlack;
        }
        //ShowMessage(ProGrid.GetCellValue(4,i));
        if (ProGrid.GetCellValue(4,i) < 0)
        {
         // ShowMessage(ProGrid.GetCellValue(4,i));
          ProGrid.FontColors[4,i] = clAlphaColor.clRed; //4. sütun olan bakiye sütunundaki - değerlerin rengini kırmızı yapar
        }
      }
    }
    else
    {
      ShowMessage('Kayıt Bulunamadı');
    }
    QryKayitSayisi.Free;
}

void selectFromDb;
{ 

    vertSB= stokForm.AddNewVertScrollBox(stokFormPanel,'vertSB');
    vertSB.Align= alClient;
    
     Qry = TClSqlQuery.Create(nil);
     Qry.Connection = Clomosy.DBSQLServerConnection;
    Qry.Sql.Text =  'SELECT 
    STOK_KODU AS [Stok Kodu], 
    STOK_ADI AS [Stok Adı], 
     FORMAT(GIRIS_MIKTAR, ''N2'', ''tr-TR'') AS [Giriş Miktar], 
     FORMAT(CIKIS_MIKTAR, ''N2'', ''tr-TR'') AS [Çıkış Miktar], 
     FORMAT(BAKIYE, ''N2'', ''tr-TR'') AS [Bakiye]
FROM 
    (SELECT 
        dbo.TBLSTOKSB.STOK_KODU, 
        dbo.TBLSTOKSB.STOK_ADI, 
        SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS GIRIS_MIKTAR, 
        SUM(CASE WHEN TBLSTOKHR.GC_ISLEM = -1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END) AS CIKIS_MIKTAR, 
        ISNULL(SUM(CASE WHEN 1 = 1 AND TBLSTOKHR.SUBE_KODU IN (0) THEN TBLSTOKHR.GCMIK ELSE 0 END * dbo.TBLSTOKHR.GC_ISLEM), 0) AS BAKIYE
    FROM 
        dbo.TBLSTOKSB 
    INNER JOIN 
        dbo.TBLSTOKHR ON dbo.TBLSTOKSB.REC_NO = dbo.TBLSTOKHR.STOK_KODU_RECID AND dbo.TBLSTOKHR.SUBE_KODU IN (0) 
    LEFT OUTER JOIN 
        (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRG ON HRG.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRG.GC_ISLEM = 1 
    LEFT OUTER JOIN 
        (SELECT REC_NO, GC_ISLEM, GCMIK, STOK_NF, STOK_BF, ISK_FF_FARK FROM dbo.TBLSTOKHR) AS HRC ON HRC.REC_NO = dbo.TBLSTOKHR.REC_NO AND HRC.GC_ISLEM = -1 
    LEFT OUTER JOIN 
        dbo.TBLSTOKBELGETIPSB ON dbo.TBLSTOKBELGETIPSB.BELGE_TIPI = dbo.TBLSTOKHR.BELGE_TIPI
    WHERE 
        (1 = 1) AND (dbo.TBLSTOKSB.STOK_TIPI <> ' + QuotedStr('Z') + ')
    GROUP BY 
        dbo.TBLSTOKSB.STOK_KODU, dbo.TBLSTOKSB.STOK_ADI) AS DATA
WHERE 
    (1 = 1);
';
    Qry.Open;
    if(Qry.Found)
    {
     ProGrid = stokForm.AddNewProGrid(vertSB, 'ProGrid');
     ProGrid.connectDataSet(Qry);
     ProGrid.AutoSizeColumns(True,200); //her başlık sütunu hücresinin genişliğini 200 yapar
     with ProGrid do
     {
     
        Align = alCenter;
        Width=(stokForm.clWidth*100)/100;
        Height=(stokForm.clHeight*50)/100;
        NormalLayoutFillColor = clAlphaColor.clhextocolor('#e8e5e5');// tek sayılı satırların satır arka plan rengi
        BandLayoutFillColor  = clAlphaColor.clhextocolor('#c6c6c6'); // çift sayılı satırların satır arka plan rengi
        SelectedLayoutFontColor = clAlphaColor.clwhite; // seçili hücrenin satır metin rengi
        SelectedLayoutFillColor = clAlphaColor.clHexToColor('#e00713'); // seçili hücrenin satır arka plan rengi
        FocusedLayoutFontColor = clAlphaColor.clwhite;  // seçili hücrenin metin rengi
        FocusedLayoutFillColor = clAlphaColor.clHexToColor('#585757'); // seçili hücrenin arka plan rengi
        FixedLayoutFillColor = clAlphaColor.clHexToColor('#890410'); //başlıkların arka plan rengi
        FixedLayoutFontColor = clAlphaColor.clwhite; //başlıkların metin rengi
     // HorzAlignments[2,2] = 0; //hücredeki yazıyı ortalar
     }
   
      }
      else
      {
        ShowMessage('Kayıt Bulunamadı');
      }
     //Qry.Free; //BU KODU YAZINCA HATA ALINIYOR
      kayitSayiAl;
}

void stokFormAc;
 {
    
  stokFormPanel = stokForm.AddNewProPanel(stokForm, 'stokFormPanel');
  with stokFormPanel do
  {
  
  Align = alClient;
  clprosettings.backgroundcolor = clAlphaColor.clnull;
  clprosettings.BorderColor=clAlphaColor.clwhite;
  clprosettings.BorderWidth=2;
  }
   stokFormPanel.setclprosettings(stokFormPanel.clprosettings);
  
  //-----------------------------------------------------------------
  baslikLabel = stokForm.AddNewProLabel(stokFormPanel, 'baslikLabel', 'STOK BAKİYE RAPORU');
  with baslikLabel do
  {
    Align= altop;
    Margins.Top = (stokForm.clHeight*10)/100;
    clprosettings.Fontsize=20;
    clprosettings.fontcolor = clAlphaColor.clwhite;
    clProSettings.TextSettings.Font.Style = [fsBold,fsUnderline];
    Height=40;
    clprosettings.backgroundcolor= clAlphaColor.clnull;
    clprosettings.fontvertalign=palcenter;
    clprosettings.fonthorzalign = palcenter;
  }
  baslikLabel.setclprosettings(baslikLabel.clprosettings);
  
      try
        Clomosy.DBSQLServerConnect('SQL Server',Clomosy.GlobalVariableString,'sa','123456789','STAJ',1433);
      except
        ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
      }
    
   selectFromDb;

 }

 //-----------------------------------FİLTRELEME EKRANI  -------------------------------------------------

void stokFormGit;
{
 
  stokForm = TCLForm.Create(Self);
  stokForm.clSetCaption('Stok Bakiye Raporu');
  /*ClRTSetProperty(stokForm,'ClientWidth',stokForm.clwidth);
  ClRTSetProperty(stokForm,'ClientHeight',stokForm.clHeight);*/
   stokForm.SetFormColor('#585757','#c6c6c6',clGCross);

   stokFormAc;
   stokForm.Run;
}

/*void CBdegistir;
{
  if (kodYerineIsimCB.isChecked)
  {
    kodYerineIsimCB.Text = 'Evet';
  }
  else
  {
    kodYerineIsimCB.Text = 'Hayır';
  }
}*/

void griddenBilgiCek;
{
    ShowMessage('geldi');
    FSenderSaticiSipStok = TCLProGrid(gridbilgiForm.ClSender);
  FRow = gridbilgiForm.ClSenderRow; //satırlar 1 den başlıyor
  FCol = gridbilgiForm.ClSenderCol; //sütunlar 0 dan başlıyor
  ShowMessage(FRow);
  ShowMessage(FCol);
  //-------------------------------------------------kayit sayısı alma, sağa yaslama, kırmızı yapma-----------------------------------
    QryKayit =  TClSqlQuery.Create(nil);
    QryKayit.Connection = Clomosy.DBSQLServerConnection;
    
        QryKayit.Sql.Text = '
     Select count(*)  as gridKayitSayisi from
    (SELECT * FROM (SELECT TOP 100 PERCENT STOK_KODU, STOK_ADI 
    FROM [PRG_VIEW_STREHBER] WITH (NOLOCK)   WHERE 1=1     
    AND ISNULL(PASIF_KART,0)=0    ) AS REHBERSQL  ) as DATA
    ';
    QryKayit.Open;
    if(QryKayit.Found)
    {
      gridKayitSayisi = QryKayit.FieldByName('gridKayitSayisi').AsInteger; 
     //ShowMessage('Toplam Kayıt Sayısı: ' + IntToStr(KayitSayisi)); 

      for (j=0 to gridKayitSayisi)
      {
       if(FCol==0)
       {
        StokKoduIcerikEdit.Text=  FSenderSaticiSipStok.Cells[0,FRow];
        stokAdiIcerikLbl.caption = FSenderSaticiSipStok[1,FRow];
       }
      }
     
    }
    else
    {
      ShowMessage('Kayıt Bulunamadı');
    }
    QryKayit.Free;
}

void gridBilgileriGetir; //filtrelemede stok kodu stok adını almak için
{
    
    gridbilgiForm= TCLForm.Create(self);
    
      try
        Clomosy.DBSQLServerConnect('SQL Server',Clomosy.GlobalVariableString,'sa','123456789','STAJ',1433);
      except
        ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
      }
    
    vertSBGridBilgi= gridbilgiForm.AddNewVertScrollBox(gridbilgiForm,'vertSBGridBilgi');
    vertSBGridBilgi.Align= alClient;
    
     Qrygridbilgi = TClSqlQuery.Create(nil);
     Qrygridbilgi.Connection = Clomosy.DBSQLServerConnection;
    Qrygridbilgi.Sql.Text =  'SET NO_BROWSETABLE ON  SET ROWCOUNT 0  SELECT * FROM 
    (SELECT TOP 100 PERCENT STOK_KODU, STOK_ADI /*FATSTOKSECF*/ /*FATSTOKSECT*/  FROM 
    [PRG_VIEW_STREHBER] WITH (NOLOCK)   WHERE 1=1     AND ISNULL(PASIF_KART,0)=0    ) AS REHBERSQL   
    ORDER BY STOK_KODU ASC  SET ROWCOUNT 0  SET NO_BROWSETABLE OFF
    ';
    Qrygridbilgi.Open;
    if(Qrygridbilgi.Found)
    {
     ProGridBilgi = gridbilgiForm.AddNewProGrid(vertSBGridBilgi, 'ProGridBilgi');
     ProGridBilgi.connectDataSet(Qrygridbilgi);
     ProGridBilgi.AutoSizeColumns(True,200); //her başlık sütunu hücresinin genişliğini 200 yapar
     with ProGridBilgi do
     {
     
        Align = alCenter;
        Width=(gridbilgiForm.clWidth*100)/100;
        Height=(gridbilgiForm.clHeight*50)/100;
        NormalLayoutFillColor = clAlphaColor.clhextocolor('#e8e5e5');// tek sayılı satırların satır arka plan rengi
        BandLayoutFillColor  = clAlphaColor.clhextocolor('#c6c6c6'); // çift sayılı satırların satır arka plan rengi
        SelectedLayoutFontColor = clAlphaColor.clwhite; // seçili hücrenin satır metin rengi
        SelectedLayoutFillColor = clAlphaColor.clHexToColor('#e00713'); // seçili hücrenin satır arka plan rengi
        FocusedLayoutFontColor = clAlphaColor.clwhite;  // seçili hücrenin metin rengi
        FocusedLayoutFillColor = clAlphaColor.clHexToColor('#585757'); // seçili hücrenin arka plan rengi
        FixedLayoutFillColor = clAlphaColor.clHexToColor('#890410'); //başlıkların arka plan rengi
        FixedLayoutFontColor = clAlphaColor.clwhite; //başlıkların metin rengi
 
      }

        gridbilgiForm.AddNewEvent(ProGridBilgi, tbeOnGridCellClick, 'griddenBilgiCek');
    }
    else
    {
      ShowMessage('Kayıt Bulunamadı');
    }
         
    
 gridbilgiForm.Run;
}


 {
    filtreleEkranForm =TCLForm.Create(Self);
    //stokFormGit;
    
    //stok kodu labellar ve seçim butonu-------------------------------------------------------------------
    StokKoduLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'StokKoduLbl','Stok Kodu');
    with StokKoduLbl do
    {
      Align = alCenter;
      Margins.Top = 5;
      Margins.Bottom = 450;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clred;
      
    }
    StokKoduLbl.setclprosettings(StokKoduLbl.clprosettings);
    
    StokKoduIcerikEdit = filtreleEkranForm.AddNewProEdit(filtreleEkranForm, 'StokKoduIcerikEdit','');
    with StokKoduIcerikEdit do
    {
      Align = alCenter;
      Margins.Top = 5;
      Margins.Bottom = 450;
      Margins.Right = 10;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clred;
      
    }
    StokKoduIcerikEdit.setclprosettings(StokKoduIcerikEdit.clprosettings);
    
    StokKoduBtn = filtreleEkranForm.AddNewProButton(filtreleEkranForm, 'StokKoduBtn','stok getir');
    with StokKoduBtn do
    {
      Align = alCenter;
      Margins.Top = 5;
      Margins.Bottom = 450;
      Margins.left = 350;
      Height = 30;
      Width = 50;
      clprosettings.backgroundcolor = clAlphaColor.clred;
      
    }
    StokKoduBtn.setclprosettings(StokKoduBtn.clprosettings);
    
    filtreleEkranForm.AddNewEvent(StokKoduBtn,tbeOnClick,'gridBilgileriGetir');
   // MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick');
    
    //-----------------------------stok adı labellar----------------------------------------------------------------
    
    stokAdiLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'stokAdiLbl','Stok Adı');
    with stokAdiLbl do
    {
      Align = alCenter;
      Margins.Top = 8;
      Margins.Bottom = 350;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clgreen;
      
    }
    stokAdiLbl.setclprosettings(stokAdiLbl.clprosettings);
    
    stokAdiIcerikLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'stokAdiIcerikLbl','');
    with stokAdiIcerikLbl do
    {
      Align = alCenter;
      Margins.Top = 8;
      Margins.Bottom = 350;
      Margins.Right = 10;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clgreen;
      
    }
    stokAdiIcerikLbl.setclprosettings(stokAdiIcerikLbl.clprosettings);
    
    //------------------------------------baz tarih label ve date--------------------------
    bazTarihLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'bazTarihLbl','Baz Tarih');
    with bazTarihLbl do
    {
      Align = alCenter;
      Margins.Top = 12;
      Margins.Bottom = 250;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clblue;
    }
    bazTarihLbl.setclprosettings(bazTarihLbl.clprosettings);
    
    bazTarihDate = filtreleEkranForm.AddNewProDateEdit(filtreleEkranForm, 'bazTarihDate');
    with bazTarihDate do
    {
      Align = alCenter;
      Margins.Top = 12;
      Margins.Bottom = 250;
      Margins.Right = 10;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clblue;
    }
    bazTarihDate.setclprosettings(bazTarihDate.clprosettings);

    // ----------------------------kod yerine isim gelsin label ----------------------------------
    kodYerineIsimLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'kodYerineIsimLbl','Kod Yerine İsim Gelsin');
    with kodYerineIsimLbl do
    {
      Align = alCenter;
      Margins.Top = 20;
      Margins.Bottom = 150;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clPurple;
    }
    kodYerineIsimLbl.setclprosettings(kodYerineIsimLbl.clprosettings);
    
    kodYerineIsimCB = filtreleEkranForm.AddNewCheckBox(filtreleEkranForm,'kodYerineIsimCB', '');
    with kodYerineIsimCB do
    {
      Align = alCenter;
      Margins.Top = 20;
      Margins.Bottom = 150;
      Margins.Right = 15;
      Width=100;
      Height =50;
    }
   // filtreleEkranForm.AddNewEvent(kodYerineIsimCB,tbeOnClick,'CBdegistir');
    
    //---------------------------  stok yazılan isim gelsin ---------------------------------------
    
    stokYazilanIsimLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'stokYazilanIsimLbl','Stok Yazılan İsim Gelsin');
    with stokYazilanIsimLbl do
    {
      Align = alCenter;
      Margins.Top = 25;
      Margins.Bottom = 50;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clyellow;
    }
    stokYazilanIsimLbl.setclprosettings(stokYazilanIsimLbl.clprosettings);
    
    stokYazilanIsimCB = filtreleEkranForm.AddNewCheckBox(filtreleEkranForm,'stokYazilanIsimCB', '');
    with stokYazilanIsimCB do
    {
      Align = alCenter;
      Margins.Top = 25;
      Margins.Bottom = 50;
      Margins.Right = 15;
      Width=100;
      Height =50;
    }
    
    //------------------------------ hizmet stokları hariç-------------------------------------------
    hizmetStokHaricLbl = filtreleEkranForm.AddNewProLabel(filtreleEkranForm, 'hizmetStokHaricLbl','Hizmet Stokları Hariç');
    with hizmetStokHaricLbl do
    {
      Align = alCenter;
      Margins.Top = 30; 
      Margins.Bottom = -50;
      Margins.Right = 350;
      Height = 30;
      Width = 150;
      clprosettings.backgroundcolor = clAlphaColor.clgrey;
    }
    hizmetStokHaricLbl.setclprosettings(hizmetStokHaricLbl.clprosettings);
    
    hizmetStokHaricCB = filtreleEkranForm.AddNewCheckBox(filtreleEkranForm,'hizmetStokHaricCB', '');
    with hizmetStokHaricCB do
    {
      Align = alCenter;
      Margins.Top = 30;
      Margins.Bottom = -50;
      Margins.Right = 15;
      Width=100;
      Height =50;
    }
    
    // ---------------------Rapor butonu ----------------------------
    raporBtn = filtreleEkranForm.AddNewProButton(filtreleEkranForm, 'raporBtn','RAPOR');
    with raporBtn do
    {
      Align = alCenter;
      Margins.Top = 200;
      Margins.left = 350;
      Height = 30;
      Width = 50;
      clprosettings.backgroundcolor = clAlphaColor.clPink;
    }
    raporBtn.setclprosettings(raporBtn.clprosettings);
  
    filtreleEkranForm.Run;
 }
]]> Fri, 11 Oct 2024 18:02:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=942&PID=1845#1845