![]() |
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. |
bir unitten diğer unitte bilgi aktarımı |
Yanıt Yaz ![]() |
Yazar | |
goksuselvi ![]() Yeni Üye ![]() ![]() Kayıt Tarihi: 07 Temmuz 2025 Konum: konya Durum: Aktif Değil Puanlar: 17 |
![]() Yanıt Yaz
Alıntı goksuselvi
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() Gönderim Zamanı: 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
|
|
![]() |
|
Sudesigirci ![]() Kıdemli Üye ![]() Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 145 |
![]() Yanıt Yaz
Alıntı Sudesigirci
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() |
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
|
|
![]() |
|
goksuselvi ![]() Yeni Üye ![]() ![]() Kayıt Tarihi: 07 Temmuz 2025 Konum: konya Durum: Aktif Değil Puanlar: 17 |
![]() Yanıt Yaz
Alıntı goksuselvi
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() |
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'); 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', ]; 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'); myForm.AddNewEvent(btnS,tbeOnClick,'BtnOnClick'); } ////////////////////////////ANİMALLLLLLLLLLLLLLLLLLLLL///////////////////////////////////////////////////////// BtnNameArr2 = ['btnani1','btnani2','btnani3','btnani4','btnani5']; BtnCaptionArr2 = ['300' ,'300','300','300','300']; btnImgArr2 = [ ]; 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'); 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'); 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'); 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'); 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'); ////////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'); ///////////////////////////////////////////////////////////////////////////////////// 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'); 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'); 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'); }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); } } } ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////777 { 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'); //////////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') 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') AnasayfaForm.AddNewEvent(secimKapatBtn, tbeOnClick, 'secimKapatBtnclick'); ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////7 secenekhintArr = ['btnpp1','btnpp2','btnpp3','btnpp4','btnpp5']; secenekimageArr= ['https://i.imgur.com/WjyjNqj.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 = [ ]; 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'); 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'); AnasayfaForm.AddNewEvent(btnresim, tbeOnClick, 'resimbutonClick'); AnasayfaForm.AddNewEvent(hayvanbuton, tbeOnClick, 'hayvanbutonClick'); mybuton3click; AnasayfaForm.run; } |
|
göksu
|
|
![]() |
|
goksuselvi ![]() Yeni Üye ![]() ![]() Kayıt Tarihi: 07 Temmuz 2025 Konum: konya Durum: Aktif Değil Puanlar: 17 |
![]() Yanıt Yaz
Alıntı goksuselvi
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() |
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
|
|
![]() |
|
Sudesigirci ![]() Kıdemli Üye ![]() Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 145 |
![]() Yanıt Yaz
Alıntı Sudesigirci
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() |
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'); 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'); myForm.AddNewEvent(btnS2,tbeOnClick,'BtnOnClick2'); } İyi Çalışmalar Dilerim |
|
![]() |
Yanıt Yaz ![]() |
|
Tweet |
Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |