Sayfayı Yazdır | Pencereyi Kapat

bir unitten diğer unitte bilgi aktarımı

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1135
Tarih: 26 Temmuz 2025 Saat 14:18
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: bir unitten diğer unitte bilgi aktarımı
Mesajı Yazan: goksuselvi
Konu: bir unitten diğer unitte bilgi aktarımı
Mesaj Tarihi: 24 Temmuz 2025 Saat 21:19
var
AnasayfaForm: TclForm;

MainPnl,mypanel,mypanel1,mypanel2,hpanel,secimPanel:TclProPanel;
Label1,Label2: TCLProLabel;
EmailEdit:TCLProEdit;
mybuton1,mybuton2,mybuton3,mybuton4,btnresim,hayvanbuton,secimKapatBtn:TClProButton;
unit1:TCLUnit;
yastikimg:TClProImage;
secenekBtn1: TClProButton;
kontrolQuery: TClSQLiteQuery;
secenekBtnArr2: array[5] of TClProButton;
secenekhintArr2,secenekimageArr2 : array of String;
i:integer;
vScroll:TCLVertScrollBox;
secilenHayvan: String;
void hayvanbutonClick
{
  secimPanel.Visible = true;
}



void mybuton3click

{
Clomosy.RunUnit('mybuton3');
}
 void secimKapatBtn;
{
  secimPanel.Visible = false;
}

void secenekBtnTiklandi
var clickedBtn: TClProButton;
{
  clickedBtn = TClProButton(AnasayfaForm.ClSender); // Tıklanan buton

  try {
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');

    kontrolQuery = Clomosy.DBSQLiteQueryWith('SELECT * FROM satinalinanlar WHERE buttonName = ' + QuotedStr(clickedBtn.Hint));
    kontrolQuery.OpenOrExecute;
  
    if kontrolQuery.Found {
   
      ShowMessage('Bu hayvanı satın almışsınız');
      
       if (clickedBtn.Hint == 'btnani1'){
         AnasayfaForm.SetImage(hayvanbuton, 'https://i.imgur.com/s9FRp40.png');
       }else if (clickedBtn.Hint == 'btnani2'){
         AnasayfaForm.SetImage(hayvanbuton, 'https://i.imgur.com/s9FRp40.png');
       }else if (clickedBtn.Hint == 'btnani3')  {
          AnasayfaForm.SetImage(hayvanbuton, 'https://i.imgur.com/s9FRp40.png');
       }else if (clickedBtn.Hint == 'btnani4') {
          AnasayfaForm.SetImage(hayvanbuton, 'https://i.imgur.com/s9FRp40.png');
       }else if(clickedBtn.Hint == 'btnani5'){
         AnasayfaForm.SetImage(hayvanbuton, 'https://i.imgur.com/s9FRp40.png');
       }
                 
      //AnasayfaForm.SetImage(hayvanbuton, clickedBtn.clProSettings.PictureSource);
    }
    else {
      ShowMessage('Bu hayvanı satın almamışsınız');
    }
  }
  except {
    ShowMessage('Kontrol sırasında hata: ' + LastExceptionMessage);
  }
}

} 
   
      






{
AnasayfaForm=TclForm.Create(Self);
AnasayfaForm.SetFormBGImage('https://i.imgur.com/tyHmjs5.png');





 
  
MainPnl=AnasayfaForm.AddNewProPanel(AnasayfaForm,'MainPnl');
MainPnl.Align=alCenter;
MainPnl.Height=630;
MainPnl.Width=400;
MainPnl.clProSettings.RoundHeight=40;
MainPnl.clProSettings.Roundwidth=40;
MainPnl.clProSettings.IsTransparent =False;
MainPnl.SetclProSettings(MainPnl.clProSettings); 


mypanel1=AnasayfaForm.AddNewProPanel(AnasayfaForm,'mypanel1');
mypanel1.Align=almosttop;
mypanel1.Align=alHorizontal;
mypanel1.Height=150;
mypanel1.Width=200;
mypanel1.clProSettings.IsTransparent =True;
mypanel1.SetclProSettings(mypanel1.clProSettings); 




btnresim=AnasayfaForm.AddNewProButton(mypanel1,'btnresim', '');
btnresim.Align = alcenter;
btnresim.Width = 250;
btnresim.Height = 130;
btnresim.clProSettings.IsRound = True;
btnresim.clProSettings.RoundHeight = 10;
btnresim.clProSettings.RoundWidth = 10;
btnresim.SetclProSettings(btnresim.clProSettings);
AnasayfaForm.SetImage(btnresim,'https://i.imgur.com/kvaKr8c.png'); 


Label1 = AnasayfaForm.AddNewProLabel(mypanel1,'Label1','kullanıcı1');

Label1.Align=albottom;
label1.margins.left=153;
Label1.Width=50;
Label1.Height=50;
Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
Label1.clProSettings.FontSize = 15;
Label1.clProSettings.TextSettings.Font.Style = [fsBold];
Label1.SetclProSettings(Label1.clProSettings); 


 hpanel=AnasayfaForm.AddNewProPanel(MainPnl,'hpanel');
 hpanel.Align=alcenter;
 hpanel.margins.right=150;
 hpanel.margins.left=4;     
 hpanel.Height=300;
 hpanel.Width=250;
 hpanel.margins.bottom=70;
 hpanel.clProSettings.IsTransparent =true;;
 hpanel.SetclProSettings(hpanel.clProSettings); 
  
  
  
   yastikimg =AnasayfaForm.AddNewProImage(hpanel, 'yastikimg' );
 yastikimg.Align = alMostBottom;
 
  yastikimg.Width = 200;
  yastikimg.Height = 200;
     
 AnasayfaForm.SetImage(yastikimg, 'https://i.imgur.com/muV28t3.png');
 
  
  
 hayvanbuton=AnasayfaForm.AddNewProButton(hpanel,'hayvanbuton','');
 hayvanbuton.Align = alCenter;
 hayvanbuton.Margins.top=100;
 hayvanbuton.Height = 150;
  hayvanbuton.Width = 200;
 hayvanbuton.Margins.Bottom = 5;
 hayvanbuton.clProSettings.IsFill = True;
 hayvanbuton.clProSettings.FontVertAlign = palLeading;
 hayvanbuton.clProSettings.FontHorzAlign = palcenter;
 hayvanbuton.clProSettings.PictureAutoFit = True;
 hayvanbuton.SetclProSettings(hayvanbuton.clProSettings);
 AnasayfaForm.SetImage(hayvanbuton,'https://i.imgur.com/MRrpLzP.png'); 
AnasayfaForm.AddNewEvent(hayvanbuton, tbeOnClick, 'hayvanbutonClick');






  secimPanel = AnasayfaForm.AddNewProPanel(MainPnl, 'secimPanel');
  secimPanel.Align = alCenter;
  secimPanel.Height = 300;
  secimPanel.Width = 300;
  secimPanel.Visible = false;
  secimPanel.clProSettings.BackGroundColor = clAlphaColor.clHexToColor('#ffe0e0');
  secimPanel.clProSettings.RoundHeight=20;
  secimPanel.clProSettings.Roundwidth=20;
  secimPanel.SetclProSettings(secimPanel.clProSettings);
 

 secimKapatBtn = AnasayfaForm.AddNewProButton(secimPanel, 'secimKapatBtn', '');
  secimKapatBtn.Align = alMostRight;
  secimKapatBtn.Height = 50;
  secimKapatBtn.Margins.Bottom = 10;
  secimKapatBtn.Margins.Left = 20;
  secimKapatBtn.Margins.Right = 20;
  secimKapatBtn.clProSettings.IsRound = True;
  secimKapatBtn.clProSettings.RoundHeight = 10;
  secimKapatBtn.clProSettings.RoundWidth = 10;
  secimKapatBtn.SetclProSettings(secimKapatBtn.clProSettings);
  AnasayfaForm.SetImage(secimKapatBtn,'https://i.imgur.com/ej1OM4o.png')
 AnasayfaForm.AddNewEvent(secimKapatBtn, tbeOnClick, 'secimKapatBtn');


 
secenekhintArr2 = ['btnani1','btnani2','btnani3','btnani4','btnani5'];
secenekimageArr2 = [
    'https://i.imgur.com/Ze6FaOu.png',
   'https://i.imgur.com/MRrpLzP.png',
   'https://i.imgur.com/J2hhRQK.png',
   'https://i.imgur.com/szz8CHC.png',
   'https://i.imgur.com/s9FRp40.png'
   ];
   
 
   
for (i = 0 to 4)
{
  secenekBtnArr2 = AnasayfaForm.AddNewProButton(secimPanel, 'secenekBtn' + IntToStr(i+1), '');
  secenekBtnArr2.Align = alTop;
  secenekBtnArr2.Height = 60;
  secenekBtnArr2.Hint = secenekHintArr2;
  AnasayfaForm.SetImage(secenekBtnArr2, secenekImageArr2);

  AnasayfaForm.AddNewEvent(secenekBtnArr2, tbeOnClick, 'secenekBtnTiklandi');
}













/* secenekBtn1 = AnasayfaForm.AddNewProButton(secimPanel, 'secenekBtn1', '');
secenekBtn1.Align = alcenter;
secenekBtn1.Height = 50;
secenekBtn1.Width = 50;
secenekBtn1.Margins.Bottom = 10;
secenekBtn1.clProSettings.IsFill = True;
secenekBtn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#eeeeee');
secenekBtn1.SetclProSettings(secenekBtn1.clProSettings);*/

// Satın alınan itemlerle eşleşmesi için Hint ver:
//secenekBtn1.Hint = 'btnpp4';

// örnek tıklama kontrolü:
//AnasayfaForm.AddNewEvent(secenekBtn1, tbeOnClick, 'secenekBtnTiklandi');









 
  

 //////BUTON//////////////////////////////////////////////////////////////////7
  
mypanel=AnasayfaForm.AddNewProPanel(MainPnl,'mypanel');
mypanel.Align=alMostBottom;
mypanel.Align=alHorizontal;
mypanel.Height=200;
mypanel.Width=300;
mypanel.clProSettings.RoundHeight=20;
mypanel.clProSettings.Roundwidth=20;
mypanel.clProSettings.IsTransparent =False;
mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
mypanel.clProSettings.BorderWidth = 2;
mypanel.SetclProSettings(mypanel.clProSettings); 

mybuton1=AnasayfaForm.AddNewProButton(mypanel, 'mybuton1', '');
mybuton1.Align = alLeft;
mybuton1.margins.left=50;
mybuton1.margins.bottom=130;
mybuton1.Width = 40;
mybuton1.Height = 40;
mybuton1.clProSettings.IsRound = True;
mybuton1.clProSettings.RoundHeight = 10;
mybuton1.clProSettings.RoundWidth = 10;
mybuton1.SetclProSettings(mybuton1.clProSettings);
AnasayfaForm.SetImage(mybuton1,'https://i.imgur.com/KcmLm4h.png'); 

mybuton2=AnasayfaForm.AddNewProButton(mypanel, 'mybuton2', '');
mybuton2.Align = alLeft;
mybuton2.margins.left=45;
mybuton2.margins.bottom=130;
mybuton2.Width = 40;
mybuton2.Height = 40;
mybuton2.clProSettings.IsRound = True;
mybuton2.clProSettings.RoundHeight = 10;
mybuton2.clProSettings.RoundWidth = 10;
mybuton2.SetclProSettings(mybuton2.clProSettings);
AnasayfaForm.SetImage(mybuton2,'https://i.imgur.com/mcpG1Ot.png'); 

mybuton3=AnasayfaForm.AddNewProButton(mypanel, 'mybuton3', '');
mybuton3.Align = alLeft;
mybuton3.margins.left=45;
mybuton3.margins.bottom=130;
mybuton3.Width = 40;
mybuton3.Height = 40;
mybuton3.clProSettings.IsRound = True;
mybuton3.clProSettings.RoundHeight = 10;
mybuton3.clProSettings.RoundWidth = 10;
mybuton3.SetclProSettings(mybuton3.clProSettings);
AnasayfaForm.SetImage(mybuton3,'https://i.imgur.com/yOGrUe4.png'); 
AnasayfaForm.AddNewEvent(mybuton3,tbeOnClick,'mybuton3click')
  
mybuton4=AnasayfaForm.AddNewProButton(mypanel, 'mybuton4', '');
mybuton4.Align = alMostRight;
mybuton4.margins.right=50;
mybuton4.margins.bottom=130;
mybuton4.Width = 40;
mybuton4.Height = 40;
mybuton4.clProSettings.IsRound = True;
mybuton4.clProSettings.RoundHeight = 10;
mybuton4.clProSettings.RoundWidth = 10;
mybuton4.SetclProSettings(mybuton4.clProSettings);
AnasayfaForm.SetImage(mybuton4,'https://i.imgur.com/dKnXBVF.png'); 




mybuton3click;
AnasayfaForm.run;  
 
  
} 
mağaza yaptığım unitte satinalinalinanlar için creattable oluşturdum ve kaydedildi ama burda kullanamıyorum her satın aldığım ve bastığım hayvana satın alınmadığını söylüyor yardımcı olursanız sevinirim isterseniz mağaza uniti kodu da atabilirim
< id="BFI_" style="width: 1px; height: 1px; display: none;">

-------------
göksu


Cevaplar:
Mesajı Yazan: Sudesigirci
Mesaj Tarihi: 25 Temmuz 2025 Saat 10:28
Merhaba Göksu,
daha iyi yardımcı olabilmem için mağaza unit kodunu da paylaşabilir misin sorunun sql sorgularındaki eşleşme başarısızlığından kaynaklandığını düşünüyorum

Mesajı Yazan: goksuselvi
Mesaj Tarihi: 25 Temmuz 2025 Saat 10:48
MAĞAZA KODUM
var
myForm:TclForm;
MainPnl,mypanel,yenipanel,puanPanel:TCLProPanel;
mybuton1,mybuton2,mybuton3,mybuton4:TClProButton;
counter : Integer;
magazaBaslik,magazaBaslik1,puanLabel:TClProLabel;
coinImage:TClProImage;
btnS,btns2 : TclProButton;
vScroll,vScroll2:TCLVertScrollBox;
BtnCaptionArr,BtnNameArr,btnImgArr,BtnCaptionArr2,BtnNameArr2,btnImgArr2  : array of String;

i : Integer;
coinImg,coinImg2:TClProImage; 
 peopleBtn,animalBtn:TClProButton;
puanQuery,satinAlQuery: TClSQLiteQuery;
  puan: Integer;
btnpp1:TClProButton;




  
   void mybuton2click
  {
    Clomosy.RunUnit('mybuton2');
  }
  
  ///////////////BURASI
  void  satinalinanlarcreatetable
{
  try
  {
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');
    Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS satinalinanlar ('+

      'id INTEGER PRIMARY KEY AUTOINCREMENT,'+

      'buttonName TEXT)';

    Clomosy.DBSQLiteQuery.OpenOrExecute;
  }
   except {

    ShowMessage('Tablo oluşturulurken hata oluştu: ' + LastExceptionMessage);

  }
}
} 

  
  
  
  
  


void PuanLabeliGuncelle;
{
  
  try {
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');

    puanQuery = Clomosy.DBSQLiteQueryWith('SELECT puan FROM PuanKayitlari ORDER BY id DESC LIMIT 1');
    puanQuery.OpenOrExecute;

    if (puanQuery.Found) {
      puan = puanQuery.FieldByName('puan').AsInteger;
      puanLabel.Text = 'PUAN: ' + IntToStr(puan);
    }
    else {
      puanLabel.Text = 'PUAN: 0';
    }
  }
  except {
    ShowMessage('Puan yüklenemedi: ' + LastExceptionMessage);
  }
}

}




void BtnOnClick
{
  try {
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');

    puanQuery = Clomosy.DBSQLiteQueryWith('SELECT puan FROM PuanKayitlari ORDER BY id DESC LIMIT 1');
    puanQuery.OpenOrExecute;

    if (puanQuery.Found) {
      puan = puanQuery.FieldByName('puan').AsInteger;
    } else {
      puan = 0;
    }
    
    if (puan >= 100) {
      if Clomosy.Ask('Satın almak istiyor musunuz?') {
        puan = puan - 100;

        // Puan güncelleme
        Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO PuanKayitlari (puan) VALUES (' + IntToStr(puan) + ')';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
        
        // Satın alınan ürünü kaydetme - DÜZELTME BURADA
        try {
          Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO satinalinanlar (buttonName) VALUES (' + QuotedStr(btnS.Hint) + ')';
          Clomosy.DBSQLiteQuery.OpenOrExecute;
          ShowMessage('Satın alma başarıyla kaydedildi!');
        }
        except {
          ShowMessage('Satın alma kaydedilemedi: ' + LastExceptionMessage);
        }
        }
        PuanLabeliGuncelle;
        ShowMessage('Tebrikler! Satın aldınız. Toplam puan: ' + IntToStr(puan));
      } else {
        ShowMessage('Satın alma iptal edildi.');
      }
    } else {
      ShowMessage('Yetersiz puan! Satın alma için en az 100 puan gerekir.');
    }
  } 
  except {
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
}
}

void BtnOnClick2
{
  try {
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');

    puanQuery = Clomosy.DBSQLiteQueryWith('SELECT puan FROM PuanKayitlari ORDER BY id DESC LIMIT 1');
    puanQuery.OpenOrExecute;

    if (puanQuery.Found) {
      puan = puanQuery.FieldByName('puan').AsInteger;
    } else {
      puan = 0;
    }

    if (puan >= 300) {
      if Clomosy.Ask('Satın almak istiyor musunuz?') {
        puan = puan - 100;

        // Puan güncelleme
        Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO PuanKayitlari (puan) VALUES (' + IntToStr(puan) + ')';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
        
        // Satın alınan ürünü kaydetme
        try {
          Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO satinalinanlar (buttonName) VALUES (' + QuotedStr(btnS2.Hint) + ')';
          Clomosy.DBSQLiteQuery.OpenOrExecute;
          ShowMessage('Satın alma başarıyla kaydedildi!');
        }
        except {
          ShowMessage('Satın alma kaydedilemedi: ' + LastExceptionMessage);
        }
}
        PuanLabeliGuncelle;
        ShowMessage('Tebrikler! Satın aldınız. Toplam puan: ' + IntToStr(puan));
      } else {
        ShowMessage('Satın alma iptal edildi.');
      }
    } else {
      ShowMessage('Yetersiz puan! Satın alma için en az 300 puan gerekir.');
    }
  }
  except {
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
}
}
 
 void animalbtnclick
 {
   vscroll.visible=false;
   vScroll2.visible=true;
 }
 
 
 void peoplebtnclick
{
  vScroll.Visible = true;
  vScroll2.Visible = false;
}
 
 
 
{

  satinalinanlarcreatetable;
  myForm = TclForm.Create(Self);
  myform.SetFormBGImage(' https://i.imgur.com/AtI7S13.png" rel="nofollow - https://i.imgur.com/AtI7S13.png ');


  
  MainPnl = myForm.AddNewProPanel(myForm, 'MainPnl');
  MainPnl.Align = alClient;
  
  MainPnl.Align=alCenter;
  MainPnl.Height=630;
  MainPnl.Width=400;
  MainPnl.clProSettings.RoundHeight=40;
  MainPnl.clProSettings.Roundwidth=40;
  MainPnl.clProSettings.IsTransparent =False;
  MainPnl.SetclProSettings(MainPnl.clProSettings); 
 
  
 yenipanel=myForm.AddNewProPanel(MainPnl,'yenipanel');
 yenipanel.Align=alcenter;
 yenipanel.Height=500;
 yenipanel.Width=370;
 yenipanel.margins.bottom=70;
 yenipanel.clProSettings.RoundHeight=20;
 yenipanel.clProSettings.Roundwidth=20;
 yenipanel.clProSettings.IsTransparent =False;
 yenipanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
 yenipanel.clProSettings.BorderWidth = 2;
 yenipanel.SetclProSettings(yenipanel.clProSettings); 
 
  
mypanel=myForm.AddNewProPanel(MainPnl,'mypanel');
mypanel.Align=alMostBottom;
mypanel.Align=alHorizontal;
mypanel.Height=200;
mypanel.Width=300;
mypanel.clProSettings.RoundHeight=20;
mypanel.clProSettings.Roundwidth=20;
mypanel.clProSettings.IsTransparent =False;
mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
mypanel.clProSettings.BorderWidth = 2;
mypanel.SetclProSettings(mypanel.clProSettings); 
 

 
 
magazaBaslik = myForm.AddNewProLabel(MainPnl, 'magazaBaslik', 'PUAN MAĞAZASI');
magazaBaslik.Align = almostTop;
magazaBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
magazaBaslik.margins.left=90;
magazaBaslik.Height = 30;
magazaBaslik.clProSettings.FontSize = 25;
magazaBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#ff5757');

magazaBaslik.SetclProSettings(magazaBaslik.clProSettings); 
 
 /////////////////////PEOPLEEEEE//////////////////////////////////////////////7
 
   BtnNameArr = ['btnpp1','btnpp2','btnpp3','btnpp4','btnpp5'];
   BtnCaptionArr = ['100' ,'100','100','100','100'];
   btnImgArr = [' https://i.imgur.com/WjyjNqj.png" rel="nofollow - https://i.imgur.com/WjyjNqj.png ',
   ' https://i.imgur.com/jmjLukD.png" rel="nofollow - https://i.imgur.com/jmjLukD.png ',
   ' https://i.imgur.com/XEV1Z8v.png" rel="nofollow - https://i.imgur.com/XEV1Z8v.png ',
   ' https://i.imgur.com/Xb00oQ7.png" rel="nofollow - https://i.imgur.com/Xb00oQ7.png ',
   ' https://i.imgur.com/EL8rUNs.png" rel="nofollow - https://i.imgur.com/EL8rUNs.png '
   
   ];
   
   
   vScroll = myForm.AddNewVertScrollBox(yenipanel,'ScrollBoxY');
   vScroll.Align = alTop;
   vScroll.Height = myForm.clheight-170;
   
   for (i = 0 to 4)
   {
     btnS = myForm.AddNewProButton(vScroll,BtnNameArr,BtnCaptionArr);
     btnS.Align = AlTop;
     btnS.Height = 150;
     btnS.Margins.Bottom = 5;
     btnS.clProSettings.IsFill = True;
     btnS.clProSettings.FontSize = 16;
     btnS.clProSettings.FontColor = clAlphaColor.clHexToColor('#fdcc0d');
     btnS.clProSettings.TextSettings.Font.Style = [fsBold]; //,fsItalic
     btnS.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fcf5bf');
     btnS.clProSettings.FontVertAlign = palLeading;
     btnS.clProSettings.FontHorzAlign = palcenter;
     btnS.clProSettings.PictureSource =btnImgArr;
     btnS.clProSettings.PictureAutoFit = True;
     btnS.SetclProSettings(btnS.clProSettings);
     btnS.Hint = BtnNameArr;
     coinImg = myForm.AddNewProImage(btnS, 'conimg' + IntToStr(i));
     coinImg.Align = AlTop;
     coinImg.Width = 22;
     coinImg.Height = 24;
     coinimg.margins.right=50;
     myForm.SetImage(coinImg, ' https://i.imgur.com/1lWcTcq.png" rel="nofollow - https://i.imgur.com/1lWcTcq.png ');
     myForm.AddNewEvent(btnS,tbeOnClick,'BtnOnClick');
   }  
   
////////////////////////////ANİMALLLLLLLLLLLLLLLLLLLLL/////////////////////////////////////////////////////////

  BtnNameArr2 = ['btnani1','btnani2','btnani3','btnani4','btnani5'];
   BtnCaptionArr2 = ['300' ,'300','300','300','300'];
   btnImgArr2 = [
    ' https://i.imgur.com/Ze6FaOu.png" rel="nofollow - https://i.imgur.com/Ze6FaOu.png ',
   ' https://i.imgur.com/MRrpLzP.png" rel="nofollow - https://i.imgur.com/MRrpLzP.png ',
   ' https://i.imgur.com/J2hhRQK.png" rel="nofollow - https://i.imgur.com/J2hhRQK.png ',
   ' https://i.imgur.com/szz8CHC.png" rel="nofollow - https://i.imgur.com/szz8CHC.png ',
   ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png '
   ];
   
   
   vScroll2 = myForm.AddNewVertScrollBox(yenipanel,'ScrollBoxY2');
   vScroll2.Align = alTop;
   vScroll2.Height = myForm.clheight-170;
   vScroll2.Visible = false;
   for (i = 0 to 4)
   {
     btnS2 = myForm.AddNewProButton(vScroll2,BtnNameArr2,BtnCaptionArr2);
     btnS2.Align = AlTop;
     btnS2.Height = 150;
     btnS2.Margins.Bottom = 5;
     btnS2.clProSettings.IsFill = True;
     btnS2.clProSettings.FontSize = 16;
     btnS2.clProSettings.FontColor = clAlphaColor.clHexToColor('#fdcc0d');
     btnS2.clProSettings.TextSettings.Font.Style = [fsBold]; //,fsItalic
     btnS2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fcf5bf');
     btnS2.clProSettings.FontVertAlign = palLeading;
     btnS2.clProSettings.FontHorzAlign = palcenter;
     btnS2.clProSettings.PictureSource =btnImgArr2;
     btnS2.clProSettings.PictureAutoFit = True;
     btnS2.SetclProSettings(btnS2.clProSettings);
     btnS2.Hint = BtnNameArr2;
     coinImg2 = myForm.AddNewProImage(btnS2, 'conimg2' + IntToStr(i));
     coinImg2.Align = AlTop;
     coinImg2.Width = 22;
     coinImg2.Height = 24;
     coinimg2.margins.right=50;
     myForm.SetImage(coinImg2, ' https://i.imgur.com/1lWcTcq.png" rel="nofollow - https://i.imgur.com/1lWcTcq.png ');
     myForm.AddNewEvent(btnS2,tbeOnClick,'BtnOnClick2');
     
     
   }
   


 
////////////////////////////////////////////////////////////////////////////////////////  
mybuton1=myForm.AddNewProButton(mypanel, 'mybuton1', '');
mybuton1.Align = alLeft;
mybuton1.margins.left=50;
mybuton1.margins.bottom=130;
mybuton1.Width = 40;
mybuton1.Height = 40;
mybuton1.clProSettings.IsRound = True;
mybuton1.clProSettings.RoundHeight = 10;
mybuton1.clProSettings.RoundWidth = 10;
mybuton1.SetclProSettings(mybuton1.clProSettings);
myForm.SetImage(mybuton1,' https://i.imgur.com/KcmLm4h.png" rel="nofollow - https://i.imgur.com/KcmLm4h.png '); 

mybuton2=myForm.AddNewProButton(mypanel, 'mybuton2', '');
mybuton2.Align = alLeft;
mybuton2.margins.left=45;
mybuton2.margins.bottom=130;
mybuton2.Width = 40;
mybuton2.Height = 40;
mybuton2.clProSettings.IsRound = True;
mybuton2.clProSettings.RoundHeight = 10;
mybuton2.clProSettings.RoundWidth = 10;
mybuton2.SetclProSettings(mybuton2.clProSettings);
myForm.SetImage(mybuton2,' https://i.imgur.com/mcpG1Ot.png" rel="nofollow - https://i.imgur.com/mcpG1Ot.png '); 

mybuton3=myForm.AddNewProButton(mypanel, 'mybuton3', '');
mybuton3.Align = alLeft;
mybuton3.margins.left=45;
mybuton3.margins.bottom=130;
mybuton3.Width = 40;
mybuton3.Height = 40;
mybuton3.clProSettings.IsRound = True;
mybuton3.clProSettings.RoundHeight = 10;
mybuton3.clProSettings.RoundWidth = 10;
mybuton3.SetclProSettings(mybuton3.clProSettings);
myForm.SetImage(mybuton3,' https://i.imgur.com/yOGrUe4.png" rel="nofollow - https://i.imgur.com/yOGrUe4.png '); 

  
mybuton4=myForm.AddNewProButton(mypanel, 'mybuton4', '');
mybuton4.Align = alMostRight;
mybuton4.margins.right=50;
mybuton4.margins.bottom=130;
mybuton4.Width = 40;
mybuton4.Height = 40;
mybuton4.clProSettings.IsRound = True;
mybuton4.clProSettings.RoundHeight = 10;
mybuton4.clProSettings.RoundWidth = 10;
mybuton4.SetclProSettings(mybuton4.clProSettings);
myForm.SetImage(mybuton4,' https://i.imgur.com/dKnXBVF.png" rel="nofollow - https://i.imgur.com/dKnXBVF.png '); 




////////COİN/////////////////////////////////7


puanPanel = myForm.AddNewProPanel(MainPnl, 'puanPanel');
puanPanel.Align = almostTop;
puanPanel.Height = 40;
puanPanel.Margins.Top = 10;
puanPanel.Margins.Left = 20;
puanPanel.Margins.Right = 20;
puanPanel.clProSettings.RoundHeight=20;
puanPanel.clProSettings.Roundwidth=20;
puanPanel.clProSettings.IsTransparent =False;

puanPanel.SetclProSettings(puanPanel.clProSettings); 

coinImage = myForm.AddNewProImage(puanPanel, 'coinImage');
coinImage.Align = almostleft;
coinImage.Width = 22;
coinImage.Height = 24;
myForm.SetImage(coinImage, ' https://i.imgur.com/1lWcTcq.png" rel="nofollow - https://i.imgur.com/1lWcTcq.png ');


/////////////////////////////////////////////////////////////////////////////////////
puanLabel = myForm.AddNewProLabel(puanPanel, 'puanLabel', 'PUAN: 0');
puanLabel.Align = alleft;
puanLabel.Height = 40;
puanlabel.Width =80;
puanLabel.Margins.Top = 10;
puanLabel.Margins.Left = 5;
puanLabel.clProSettings.FontSize = 15;
puanLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#fdcc0d'); 
puanLabel.clProSettings.TextSettings.Font.Style = [fsBold];
puanLabel.SetclProSettings(puanLabel.clProSettings);


puanQuery = Clomosy.DBSQLiteQueryWith('SELECT puan FROM PuanKayitlari ORDER BY id DESC LIMIT 1');
puanQuery.OpenOrExecute;


//////////////////////////////////////////////////////////////
 animalBtn = myForm.AddNewProButton(puanPanel, 'animalBtn', ' ');
  animalBtn.Align = alMostRight;
  animalBtn.Width = 50;
  animalBtn.Height = 30;
  animalBtn.Margins.Right = 10;
  animalBtn.clProSettings.FontSize = 12;
  animalBtn.clProSettings.IsRound = True;
  animalBtn.clProSettings.RoundHeight = 10;
  animalBtn.clProSettings.RoundWidth = 10;
  animalBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
  animalBtn.clProSettings.BorderWidth = 2;
  animalBtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#ffe499');
  animalBtn.SetclProSettings(animalBtn.clProSettings);
  myform.SetImage(animalBtn,' https://i.imgur.com/Sv74BMI.png" rel="nofollow - https://i.imgur.com/Sv74BMI.png ');
  myform.AddNewEvent(animalBtn,tbeOnClick,'animalbtnclick');


 peopleBtn = myForm.AddNewProButton(puanPanel, 'peopleBtn', ' ');
  peopleBtn.Align = alRight;
  peopleBtn.Width = 50;
  peopleBtn.Height = 30;
  peopleBtn.Margins.Right = 10;
  peopleBtn.clProSettings.FontSize = 12;
  peopleBtn.clProSettings.IsRound = True;
  peopleBtn.clProSettings.RoundHeight = 10;
  peopleBtn.clProSettings.RoundWidth = 10;
  peopleBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
  peopleBtn.clProSettings.BorderWidth = 2;
  peopleBtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#ffe499');
  peopleBtn.SetclProSettings(peopleBtn.clProSettings);
  myform.SetImage(peopleBtn,' https://i.imgur.com/MpGqtuu.png" rel="nofollow - https://i.imgur.com/MpGqtuu.png ');
  myform.AddNewEvent(peopleBtn,tbeOnClick,'peoplebtnclick');

  myForm.AddNewEvent(mybuton4,tbeOnClick,'mybuton4click');
  myForm.AddNewEvent(mybuton2,tbeOnClick,'mybuton2click');
  PuanLabeliGuncelle;
  myForm.Run;
}   
ANASAYFA KODUM(tekrardan atıyorum daha düzenli)
var
AnasayfaForm: TclForm;

MainPnl,mypanel,mypanel1,mypanel2,hpanel,secimPanel,secimPanel2:TclProPanel;
Label1,Label2: TCLProLabel;
EmailEdit:TCLProEdit;
mybuton1,mybuton2,mybuton3,mybuton4,btnresim,hayvanbuton,secimKapatBtn,secimKapatBtn2:TClProButton;
unit1:TCLUnit;
yastikimg:TClProImage;
secenekBtn1: TClProButton;
kontrolQuery: TClSQLiteQuery;
i:integer;
secilenHayvan: String;
testBtn:TClProButton;
secenekBtnArr2,secenekBtnArr: array[5] of TClProButton;
secenekhintArr2,secenekhintArr,secenekimageArr2,secenekimageArr : array of String;
secenekYaziArr2: array[5] of String;
hayvanKutuArr: array[5] of TClProPanel;

void hayvanbutonClick
{
  secimPanel.Visible = true;
}

void resimbutonClick
{
  secimPanel2.Visible = true;
}

void mybuton3click

{
Clomosy.RunUnit('mybuton3');
}
 void secimKapatBtnclick;
{
  secimPanel.Visible = false;
}

void secimKapatBtnclick2;
{
  secimPanel2.Visible = false;
}
/////////////7SORUN SORUN SORUN/////////////////////////////////////////////////////////////////////////////7
void secenekBtnTiklandiinsan

{
 

} 
   
      

void secenekBtnTiklandihayvan

 var clickedBtn: TClProButton;
{
  clickedBtn = TClProButton(AnasayfaForm.ClSender); // Tıklanan buton

  try {
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');

    kontrolQuery = Clomosy.DBSQLiteQueryWith('SELECT * FROM satinalinanlar WHERE buttonName = ' + QuotedStr(clickedBtn.Hint));
    kontrolQuery.OpenOrExecute;
  
    if kontrolQuery.Found {
   
      ShowMessage('Bu hayvanı satın almışsınız');
      
       if (clickedBtn.Hint == 'btnani1'){
         AnasayfaForm.SetImage(hayvanbuton, ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png ');
       }else if (clickedBtn.Hint == 'btnani2'){
         AnasayfaForm.SetImage(hayvanbuton, ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png ');
       }else if (clickedBtn.Hint == 'btnani3')  {
          AnasayfaForm.SetImage(hayvanbuton, ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png ');
       }else if (clickedBtn.Hint == 'btnani4') {
          AnasayfaForm.SetImage(hayvanbuton, ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png ');
       }else if(clickedBtn.Hint == 'btnani5'){
         AnasayfaForm.SetImage(hayvanbuton, ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png ');
       }
                 
      //AnasayfaForm.SetImage(hayvanbuton, clickedBtn.clProSettings.PictureSource);
    }
    else {
      ShowMessage('Bu hayvanı satın almamışsınız');
    }
  }
  except {
    ShowMessage('Kontrol sırasında hata: ' + LastExceptionMessage);
  }
}

} 
   
      





   


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////777

{
AnasayfaForm=TclForm.Create(Self);
AnasayfaForm.SetFormBGImage(' https://i.imgur.com/tyHmjs5.png" rel="nofollow - https://i.imgur.com/tyHmjs5.png ');





 
  
MainPnl=AnasayfaForm.AddNewProPanel(AnasayfaForm,'MainPnl');
MainPnl.Align=alCenter;
MainPnl.Height=630;
MainPnl.Width=400;
MainPnl.clProSettings.RoundHeight=40;
MainPnl.clProSettings.Roundwidth=40;
MainPnl.clProSettings.IsTransparent =False;
MainPnl.SetclProSettings(MainPnl.clProSettings); 


mypanel1=AnasayfaForm.AddNewProPanel(AnasayfaForm,'mypanel1');
mypanel1.Align=almosttop;
mypanel1.Align=alHorizontal;
mypanel1.Height=150;
mypanel1.Width=200;
mypanel1.clProSettings.IsTransparent =True;
mypanel1.SetclProSettings(mypanel1.clProSettings); 




btnresim=AnasayfaForm.AddNewProButton(mypanel1,'btnresim', '');
btnresim.Align = alcenter;
btnresim.Width = 250;
btnresim.Height = 130;
btnresim.clProSettings.IsRound = True;
btnresim.clProSettings.RoundHeight = 10;
btnresim.clProSettings.RoundWidth = 10;
btnresim.SetclProSettings(btnresim.clProSettings);
AnasayfaForm.SetImage(btnresim,' https://i.imgur.com/kvaKr8c.png" rel="nofollow - https://i.imgur.com/kvaKr8c.png '); 


Label1 = AnasayfaForm.AddNewProLabel(mypanel1,'Label1','kullanıcı1');

Label1.Align=albottom;
label1.margins.left=153;
Label1.Width=50;
Label1.Height=50;
Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
Label1.clProSettings.FontSize = 15;
Label1.clProSettings.TextSettings.Font.Style = [fsBold];
Label1.SetclProSettings(Label1.clProSettings); 


 hpanel=AnasayfaForm.AddNewProPanel(MainPnl,'hpanel');
 hpanel.Align=alcenter;
 hpanel.margins.right=150;
 hpanel.margins.left=4;     
 hpanel.Height=300;
 hpanel.Width=250;
 hpanel.margins.bottom=70;
 hpanel.clProSettings.IsTransparent =true;;
 hpanel.SetclProSettings(hpanel.clProSettings); 
  
  
  
   yastikimg =AnasayfaForm.AddNewProImage(hpanel, 'yastikimg' );
 yastikimg.Align = alMostBottom;
 
  yastikimg.Width = 200;
  yastikimg.Height = 200;
     
 AnasayfaForm.SetImage(yastikimg, ' https://i.imgur.com/muV28t3.png" rel="nofollow - https://i.imgur.com/muV28t3.png ');
 
  
  
 hayvanbuton=AnasayfaForm.AddNewProButton(hpanel,'hayvanbuton','');
 hayvanbuton.Align = alCenter;
 hayvanbuton.Margins.top=100;
 hayvanbuton.Height = 150;
  hayvanbuton.Width = 200;
 hayvanbuton.Margins.Bottom = 5;
 hayvanbuton.clProSettings.IsFill = True;
 hayvanbuton.clProSettings.FontVertAlign = palLeading;
 hayvanbuton.clProSettings.FontHorzAlign = palcenter;
 hayvanbuton.clProSettings.PictureAutoFit = True;
 hayvanbuton.SetclProSettings(hayvanbuton.clProSettings);
 AnasayfaForm.SetImage(hayvanbuton,' https://i.imgur.com/MRrpLzP.png" rel="nofollow - https://i.imgur.com/MRrpLzP.png '); 


//////////PET İÇİN/////////////////////////////////7
 secimPanel=AnasayfaForm.AddNewProPanel(MainPnl,'secimPanel');
 secimPanel.Align = AlCenter;
 secimPanel.Width = 250;
 secimPanel.Height = 380;
 secimPanel.clProSettings.IsRound = True;
 secimPanel.clProSettings.RoundHeight = 10;
 secimPanel.clProSettings.RoundWidth = 10;
 secimPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#968fff');
 secimPanel.clProSettings.BorderWidth = 3;
 secimPanel.visible=false;
 secimPanel.SetclProSettings(secimPanel.clProSettings);
 
 
 ///////////////İCON İÇİN///////////////////////////////
 secimPanel2=AnasayfaForm.AddNewProPanel(MainPnl,'secimPanel2');
 secimPanel2.Align = AlCenter;
 secimPanel2.Width = 250;
 secimPanel2.Height = 380;
 secimPanel2.clProSettings.IsRound = True;
 secimPanel2.clProSettings.RoundHeight = 10;
 secimPanel2.clProSettings.RoundWidth = 10;
 secimPanel2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#968fff');
 secimPanel2.clProSettings.BorderWidth = 3;
 secimPanel2.visible=false;
 secimPanel2.SetclProSettings(secimPanel2.clProSettings);
 
 
 
 secimKapatBtn2 = AnasayfaForm.AddNewProButton(secimPanel2, 'secimKapatBtn2', '');
  secimKapatBtn2.Align = alMostRight;
  secimKapatBtn2.Height = 60;
  secimKapatBtn2.Width = 60;
  secimKapatBtn2.Margins.Bottom = 330;
  //secimKapatBtn.Margins.right = 5;
  secimKapatBtn2.clProSettings.IsRound = True;
  secimKapatBtn2.clProSettings.RoundHeight = 10;
  secimKapatBtn2.clProSettings.RoundWidth = 10;
  secimKapatBtn2.SetclProSettings(secimKapatBtn2.clProSettings);
  AnasayfaForm.SetImage(secimKapatBtn2,' https://i.imgur.com/twqkoLB.png" rel="nofollow - https://i.imgur.com/twqkoLB.png ')
 AnasayfaForm.AddNewEvent(secimKapatBtn2, tbeOnClick, 'secimKapatBtnclick2');
 
 
 

 secimKapatBtn = AnasayfaForm.AddNewProButton(secimPanel, 'secimKapatBtn', '');
  secimKapatBtn.Align = alMostRight;
  secimKapatBtn.Height = 60;
  secimKapatBtn.Width = 60;
  secimKapatBtn.Margins.Bottom = 330;
  secimKapatBtn.clProSettings.IsRound = True;
  secimKapatBtn.clProSettings.RoundHeight = 10;
  secimKapatBtn.clProSettings.RoundWidth = 10;
  secimKapatBtn.SetclProSettings(secimKapatBtn.clProSettings);
  AnasayfaForm.SetImage(secimKapatBtn,' https://i.imgur.com/twqkoLB.png" rel="nofollow - https://i.imgur.com/twqkoLB.png ')
 AnasayfaForm.AddNewEvent(secimKapatBtn, tbeOnClick, 'secimKapatBtnclick');
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////7 
 
   secenekhintArr = ['btnpp1','btnpp2','btnpp3','btnpp4','btnpp5'];
    
    secenekimageArr= [' https://i.imgur.com/WjyjNqj.png" rel="nofollow - https://i.imgur.com/WjyjNqj.png ',
   ' https://i.imgur.com/jmjLukD.png" rel="nofollow - https://i.imgur.com/jmjLukD.png ',
   ' https://i.imgur.com/XEV1Z8v.png" rel="nofollow - https://i.imgur.com/XEV1Z8v.png ',
   ' https://i.imgur.com/Xb00oQ7.png" rel="nofollow - https://i.imgur.com/Xb00oQ7.png ',
   ' https://i.imgur.com/EL8rUNs.png" rel="nofollow - https://i.imgur.com/EL8rUNs.png '
   
   ];
   
 
for (i = 0 to 4)
{
  
  hayvanKutuArr = AnasayfaForm.AddNewProPanel(secimPanel2, 'insanKutu' + IntToStr(i+1));
  hayvanKutuArr.Align = alTop;
  hayvanKutuArr.Height = 70;
  hayvanKutuArr.Margins.Top = 5;
  hayvanKutuArr.Margins.left=50;
  hayvanKutuArr.clProSettings.BackGroundColor = clAlphaColor.clHexToColor('#ffffff'); // kutu rengi
  hayvanKutuArr.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');     // kenarlık
  hayvanKutuArr.clProSettings.BorderWidth = 2;
  hayvanKutuArr.clProSettings.RoundHeight = 10;
  hayvanKutuArr.clProSettings.RoundWidth = 10;
  hayvanKutuArr.SetclProSettings(hayvanKutuArr.clProSettings);

  
  secenekBtnArr = AnasayfaForm.AddNewProButton(hayvanKutuArr, 'secenekBtninsan' + IntToStr(i+1), '');
  secenekBtnArr.Align = alClient;
  secenekBtnArr.Hint = secenekHintArr;

  secenekBtnArr.clProSettings.PictureAutoFit = true;
  secenekBtnArr.clProSettings.IsFill = true;
  secenekBtnArr.SetclProSettings(secenekBtnArr.clProSettings);
  AnasayfaForm.SetImage(secenekBtnArr, secenekImageArr);
  
  

  AnasayfaForm.AddNewEvent(secenekBtnArr, tbeOnClick, 'secenekBtnTiklandiinsan');
}


  
 
 
 

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
secenekhintArr2 = ['btnani1','btnani2','btnani3','btnani4','btnani5'];
secenekimageArr2 = [
    ' https://i.imgur.com/Ze6FaOu.png" rel="nofollow - https://i.imgur.com/Ze6FaOu.png ',
   ' https://i.imgur.com/MRrpLzP.png" rel="nofollow - https://i.imgur.com/MRrpLzP.png ',
   ' https://i.imgur.com/J2hhRQK.png" rel="nofollow - https://i.imgur.com/J2hhRQK.png ',
   ' https://i.imgur.com/szz8CHC.png" rel="nofollow - https://i.imgur.com/szz8CHC.png ',
   ' https://i.imgur.com/s9FRp40.png" rel="nofollow - https://i.imgur.com/s9FRp40.png '
   ];
   
 
for (i = 0 to 4)
{
 
  hayvanKutuArr = AnasayfaForm.AddNewProPanel(secimPanel, 'hayvanKutu' + IntToStr(i+1));
  hayvanKutuArr.Align = alTop;
  hayvanKutuArr.Height = 70;
  hayvanKutuArr.Margins.Top = 5;
  hayvanKutuArr.Margins.left=50;
  hayvanKutuArr.clProSettings.BackGroundColor = clAlphaColor.clHexToColor('#ffffff'); // kutu rengi
  hayvanKutuArr.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');     // kenarlık
  hayvanKutuArr.clProSettings.BorderWidth = 2;
  hayvanKutuArr.clProSettings.RoundHeight = 10;
  hayvanKutuArr.clProSettings.RoundWidth = 10;
  hayvanKutuArr.SetclProSettings(hayvanKutuArr.clProSettings);

  
  secenekBtnArr2 = AnasayfaForm.AddNewProButton(hayvanKutuArr, 'secenekBtnhayvan' + IntToStr(i+1), '');
  secenekBtnArr2.Align = alClient;
  secenekBtnArr2.Hint = secenekHintArr2;

  secenekBtnArr2.clProSettings.PictureAutoFit = true;
  secenekBtnArr2.clProSettings.IsFill = true;
  secenekBtnArr2.SetclProSettings(secenekBtnArr2.clProSettings);
  AnasayfaForm.SetImage(secenekBtnArr2, secenekImageArr2);
  
  

  AnasayfaForm.AddNewEvent(secenekBtnArr2, tbeOnClick, 'secenekBtnTiklandihayvan');
}


 
 
 

 //////BUTON//////////////////////////////////////////////////////////////////7
  
mypanel=AnasayfaForm.AddNewProPanel(MainPnl,'mypanel');
mypanel.Align=alMostBottom;
mypanel.Align=alHorizontal;
mypanel.Height=200;
mypanel.Width=300;
mypanel.clProSettings.RoundHeight=20;
mypanel.clProSettings.Roundwidth=20;
mypanel.clProSettings.IsTransparent =False;
mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
mypanel.clProSettings.BorderWidth = 2;
mypanel.SetclProSettings(mypanel.clProSettings); 

mybuton1=AnasayfaForm.AddNewProButton(mypanel, 'mybuton1', '');
mybuton1.Align = alLeft;
mybuton1.margins.left=50;
mybuton1.margins.bottom=130;
mybuton1.Width = 40;
mybuton1.Height = 40;
mybuton1.clProSettings.IsRound = True;
mybuton1.clProSettings.RoundHeight = 10;
mybuton1.clProSettings.RoundWidth = 10;
mybuton1.SetclProSettings(mybuton1.clProSettings);
AnasayfaForm.SetImage(mybuton1,' https://i.imgur.com/KcmLm4h.png" rel="nofollow - https://i.imgur.com/KcmLm4h.png '); 

mybuton2=AnasayfaForm.AddNewProButton(mypanel, 'mybuton2', '');
mybuton2.Align = alLeft;
mybuton2.margins.left=45;
mybuton2.margins.bottom=130;
mybuton2.Width = 40;
mybuton2.Height = 40;
mybuton2.clProSettings.IsRound = True;
mybuton2.clProSettings.RoundHeight = 10;
mybuton2.clProSettings.RoundWidth = 10;
mybuton2.SetclProSettings(mybuton2.clProSettings);
AnasayfaForm.SetImage(mybuton2,' https://i.imgur.com/mcpG1Ot.png" rel="nofollow - https://i.imgur.com/mcpG1Ot.png '); 

mybuton3=AnasayfaForm.AddNewProButton(mypanel, 'mybuton3', '');
mybuton3.Align = alLeft;
mybuton3.margins.left=45;
mybuton3.margins.bottom=130;
mybuton3.Width = 40;
mybuton3.Height = 40;
mybuton3.clProSettings.IsRound = True;
mybuton3.clProSettings.RoundHeight = 10;
mybuton3.clProSettings.RoundWidth = 10;
mybuton3.SetclProSettings(mybuton3.clProSettings);
AnasayfaForm.SetImage(mybuton3,' https://i.imgur.com/yOGrUe4.png" rel="nofollow - https://i.imgur.com/yOGrUe4.png '); 
AnasayfaForm.AddNewEvent(mybuton3,tbeOnClick,'mybuton3click')
  
mybuton4=AnasayfaForm.AddNewProButton(mypanel, 'mybuton4', '');
mybuton4.Align = alMostRight;
mybuton4.margins.right=50;
mybuton4.margins.bottom=130;
mybuton4.Width = 40;
mybuton4.Height = 40;
mybuton4.clProSettings.IsRound = True;
mybuton4.clProSettings.RoundHeight = 10;
mybuton4.clProSettings.RoundWidth = 10;
mybuton4.SetclProSettings(mybuton4.clProSettings);
AnasayfaForm.SetImage(mybuton4,' https://i.imgur.com/dKnXBVF.png" rel="nofollow - https://i.imgur.com/dKnXBVF.png '); 


AnasayfaForm.AddNewEvent(btnresim, tbeOnClick, 'resimbutonClick');
AnasayfaForm.AddNewEvent(hayvanbuton, tbeOnClick, 'hayvanbutonClick');
mybuton3click;
AnasayfaForm.run;  
 
  
} 





-------------
göksu

Mesajı Yazan: goksuselvi
Mesaj Tarihi: 25 Temmuz 2025 Saat 10:49
2 unittin kodunu da attım sude alt altta umarım karışmaz teşekkür ederim< id="BFI_" style="width: 1px; height: 1px; display: none;">

-------------
göksu

Mesajı Yazan: Sudesigirci
Mesaj Tarihi: 25 Temmuz 2025 Saat 11:13
Aşağıdaki döngülerde i değerlerini atamadığını gördüm i değerlerini atayarak döngüleri tekrar oluşturdum umarım yardımcı olur
//people kısmındaki döngü

  for (i = 0 to 4)
   {
      btnS = myForm.AddNewProButton(vScroll, BtnNameArr, BtnCaptionArr);
     btnS.Align = AlTop;
     btnS.Height = 150;
     btnS.Margins.Bottom = 5;
     btnS.clProSettings.IsFill = True;
     btnS.clProSettings.FontSize = 16;
     btnS.clProSettings.FontColor = clAlphaColor.clHexToColor('#fdcc0d');
     btnS.clProSettings.TextSettings.Font.Style = [fsBold]; //,fsItalic
     btnS.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fcf5bf');
     btnS.clProSettings.FontVertAlign = palLeading;
     btnS.clProSettings.FontHorzAlign = palcenter;
     btnS.clProSettings.PictureSource =btnImgArr;
     btnS.clProSettings.PictureAutoFit = True;
     btnS.SetclProSettings(btnS.clProSettings);
     btnS.Hint = BtnNameArr;
     coinImg = myForm.AddNewProImage(btnS, 'conimg' + IntToStr(i));
     coinImg.Align = AlTop;
     coinImg.Width = 22;
     coinImg.Height = 24;
     coinimg.margins.right=50;
     myForm.SetImage(coinImg, ' https://i.imgur.com/1lWcTcq.png" rel="nofollow - https://i.imgur.com/1lWcTcq.png ');
     myForm.AddNewEvent(btnS,tbeOnClick,'BtnOnClick');
   }  


//animal kısmındaki döngü

 for (i = 0 to 4)
   {
   btnS2 = myForm.AddNewProButton(vScroll2, BtnNameArr2, BtnCaptionArr2);
     btnS2.Align = AlTop;
     btnS2.Height = 150;
     btnS2.Margins.Bottom = 5;
     btnS2.clProSettings.IsFill = True;
     btnS2.clProSettings.FontSize = 16;
     btnS2.clProSettings.FontColor = clAlphaColor.clHexToColor('#fdcc0d');
     btnS2.clProSettings.TextSettings.Font.Style = [fsBold]; //,fsItalic
     btnS2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fcf5bf');
     btnS2.clProSettings.FontVertAlign = palLeading;
     btnS2.clProSettings.FontHorzAlign = palcenter;
     btnS2.clProSettings.PictureSource =btnImgArr2;
     btnS2.clProSettings.PictureAutoFit = True;
     btnS2.SetclProSettings(btnS2.clProSettings);
      btnS2.Hint = BtnNameArr2; 
     coinImg2 = myForm.AddNewProImage(btnS2, 'conimg2' + IntToStr(i));
     coinImg2.Align = AlTop;
     coinImg2.Width = 22;
     coinImg2.Height = 24;
     coinimg2.margins.right=50;
     myForm.SetImage(coinImg2, ' https://i.imgur.com/1lWcTcq.png" rel="nofollow - https://i.imgur.com/1lWcTcq.png ');
     myForm.AddNewEvent(btnS2,tbeOnClick,'BtnOnClick2');
     
     
   }
   İyi Çalışmalar Dilerim


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net