Clomosy | Forum : askandcall https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 11:25:27 +0000 Thu, 31 Jul 2025 09:26:59 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1155 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[askandcall : Merhaba Göksu, Clomosy.AskAndCall(&#039;Kullanıcıya...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1155&PID=2421#2421 Yazar: BilalCndn
Konu: 1155
Gönderim Zamanı: 31 Temmuz 2025 Saat 09:26

Merhaba Göksu,

	Clomosy.AskAndCall('Kullanıcıya görünecek soru','evet butonu ile çalışacak void','hayır butonu ile çalışacak void');


Senin kodunun düzenlenmiş hali:
  void ProcYes;
 {
  try
    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(clickedBtn.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));
  except
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
 }
 void ProcNo;
 {
    ShowMessage('Hayır');
 }
 
 
 void BtnOnClick
{
  try 
     clickedBtn = TClProButton(myForm.ClSender);
    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) {
      Clomosy.AskAndCall('Satın almak istiyor musunuz?','ProcYes','ProcNo');
    } else {
      ShowMessage('Yetersiz puan! Satın alma için en az 100 puan gerekir.');
    }
  except
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
} 


Bu şekilde kullanabilirsin. Aynı zamanda kodda try except parantezleri hatalı kullanılmış bunları da düzenledim. Aşağıdaki linkleri inceleyerek daha da iyi anlayabilirsin.

İyi çalışmalar dilerim.
]]> Thu, 31 Jul 2025 09:26:59 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1155&PID=2421#2421 <![CDATA[askandcall : KODUMUN TAMAMI////////////////...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1155&PID=2420#2420 Yazar: goksuselvi
Konu: 1155
Gönderim Zamanı: 31 Temmuz 2025 Saat 09:23

KODUMUN TAMAMI///////////////////////////////////////////////////< id="BFI_" style="width: 1px; height: 1px; display: none;">
var
myForm:TclForm;
MainPnl,mypanel,yenipanel,puanPanel:TCLProPanel;
mybuton1,mybuton2,mybuton3,mybuton4:TClProButton;
counter : Integer;
magazaBaslik,magazaBaslik1,puanLabel:TClProLabel;
coinImage:TClProImage;
btnS,btns2,btnS3 : TclProButton;
vScroll,vScroll2,vScroll3:TCLVertScrollBox;
BtnCaptionArr,BtnNameArr,btnImgArr,BtnCaptionArr2,BtnNameArr2,btnImgArr2,BtnCaptionArr3,BtnNameArr3,btnImgArr3 : array of String;

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



  
   void mybuton2click
  {
    Clomosy.RunUnit('mybuton2');
  }
  
    void mybuton3click
  {
    Clomosy.RunUnit('mybuton3');
  }
  ///////////////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 {
     clickedBtn = TClProButton(myForm.ClSender);
    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(clickedBtn.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 {
   clickedBtn = TClProButton(myForm.ClSender);
    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 - 300;
 
        // 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(clickedBtn.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 BtnOnClick3
{
  try {
   clickedBtn = TClProButton(myForm.ClSender);
    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 >= 200) {
      if Clomosy.Ask('Satın almak istiyor musunuz?') {
        puan = puan - 200;
 
        // 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(clickedBtn.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 200 puan gerekir.');
    }
  }
  except {
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
}
}




 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 void animalbtnclick
 {
   vScroll.visible=false;
   vScroll3.visible=false;
   vScroll2.visible=true;
 }
 
 
 void peoplebtnclick
{
  vScroll.Visible = true;
  vScroll2.Visible = false;
  vScroll3.Visible = false;
}
 
 
  void bitkibtnclick
{
  vScroll.Visible = false;
  vScroll2.Visible = false;
  vScroll3.Visible=true;
}
 
 
 
 
 
{

  satinalinanlarcreatetable;
  myForm = TclForm.Create(Self);
  myform.SetFormBGImage('https://i.imgur.com/TjM1LNV.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=110;
magazaBaslik.Height = 30;
magazaBaslik.clProSettings.FontSize = 20;
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',
   'https://i.imgur.com/jmjLukD.png',
   'https://i.imgur.com/XEV1Z8v.png',
   'https://i.imgur.com/Xb00oQ7.png',
   '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');
     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',
   'https://i.imgur.com/MRrpLzP.png',
   'https://i.imgur.com/J2hhRQK.png',
   'https://i.imgur.com/szz8CHC.png',
   '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');
     myForm.AddNewEvent(btnS2,tbeOnClick,'BtnOnClick2');
     
     
   }
  /////////////////////////////////ÇİÇEK//////////////////////////////////
  
  
  
   BtnNameArr3 = ['btnbit1','btnbit2','btnbit3','btnbit4','btnbit5'];
   BtnCaptionArr3 = ['200' ,'200','200','200','200'];
   btnImgArr3 = [
    'https://i.imgur.com/wAWb0YJ.png',
   'https://i.imgur.com/gYg71fT.png',
   'https://i.imgur.com/aczfu0o.png',
   'https://i.imgur.com/BA6aPDJ.png',
   'https://i.imgur.com/XNAWzuO.png'
   ];
   
   
   vScroll3 = myForm.AddNewVertScrollBox(yenipanel,'ScrollBoxY3');
   vScroll3.Align = alTop;
   vScroll3.Height = myForm.clheight-170;
   vScroll3.Visible = false;
   for (i = 0 to 4)
   {
     btnS3 = myForm.AddNewProButton(vScroll3,BtnNameArr3,BtnCaptionArr3);
     btnS3.Align = AlTop;
     btnS3.Height = 150;
     btnS3.Margins.Bottom = 5;
     btnS3.clProSettings.IsFill = True;
     btnS3.clProSettings.FontSize = 16;
     btnS3.clProSettings.FontColor = clAlphaColor.clHexToColor('#fdcc0d');
     btnS3.clProSettings.TextSettings.Font.Style = [fsBold]; //,fsItalic
     btnS3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fcf5bf');
     btnS3.clProSettings.FontVertAlign = palLeading;
     btnS3.clProSettings.FontHorzAlign = palcenter;
     btnS3.clProSettings.PictureSource =btnImgArr3;
     btnS3.clProSettings.PictureAutoFit = True;
     btnS3.SetclProSettings(btnS3.clProSettings);
     btnS3.Hint = BtnNameArr3;
     coinImg3 = myForm.AddNewProImage(btnS3, 'conimg3' + IntToStr(i));
     coinImg3.Align = AlTop;
     coinImg3.Width = 22;
     coinImg3.Height = 24;
     coinimg3.margins.right=50;
     myForm.SetImage(coinImg3, 'https://i.imgur.com/1lWcTcq.png');
     myForm.AddNewEvent(btnS3,tbeOnClick,'BtnOnClick3');
     
     
   }
  
  
  
  
  
  
  
  
  
  
  
  


 
////////////////////////////////////////////////////////////////////////////////////////  
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;


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






 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(mybuton3,tbeOnClick,'mybuton3click');
  myForm.AddNewEvent(mybuton2,tbeOnClick,'mybuton2click');
  PuanLabeliGuncelle;
  myForm.Run;
}
]]> Thu, 31 Jul 2025 09:23:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1155&PID=2420#2420 <![CDATA[askandcall : void BtnOnClick{ try { clickedBtn...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1155&PID=2419#2419 Yazar: goksuselvi
Konu: 1155
Gönderim Zamanı: 30 Temmuz 2025 Saat 18:10

void BtnOnClick
{
  try {
     clickedBtn = TClProButton(myForm.ClSender);
    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(clickedBtn.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 {
       
      }
    } else {
      ShowMessage('Yetersiz puan! Satın alma için en az 100 puan gerekir.');
    }
  } 
  except {
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
}
}  bu fonksiyonumu askandcall şeklinde uyarlayamadım şuanki kullandığım sadece windowsta çalışıyor yardımcı olursanız sevinirim.
< id="BFI_" style="width: 1px; height: 1px; display: none;"> ]]> Wed, 30 Jul 2025 18:10:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1155&PID=2419#2419