Clomosy | Forum : İndex Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 20:03:51 +0000 Tue, 13 Aug 2024 18:33:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=866 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[İndex Hatası : Sorunu çözebildim. Teşekkürler....]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1650#1650 Yazar: NadireNurSaglam
Konu: 866
Gönderim Zamanı: 13 Ağustos 2024 Saat 18:33

Sorunu çözebildim. Teşekkürler.]]> Tue, 13 Aug 2024 18:33:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1650#1650 <![CDATA[İndex Hatası : Teşekkür ederim. Bir sorum daha...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1645#1645 Yazar: NadireNurSaglam
Konu: 866
Gönderim Zamanı: 13 Ağustos 2024 Saat 16:43

Teşekkür ederim. Bir sorum daha olacaktı. 'kelimeleriKaristir' fonksiyonundan elde ettiğim 'karisikKelime' değişkenini, 'KategoriSecimi' fonksiyonunda tanımlamış olduğum 'kelimeProLabel' nesnesinin içine nasıl yazabilirim?
Kodun son hali aşağıdaki gibidir:

var  
MyForm,baslaForm,oyunForm: TclForm;
arkaPlanImg: TCLImage;
baslaButon,nasiloynanirButon,fruitsButon,animalsButon,colorsButon,jobsButon,tahminEtProButton : TClProButton;
fruitsList,animalsList,colorsList,jobsList: TclStringList;
kelimeProLabel, kategoriProLabel,karistirilmisProLabel,tahminetProLabel: TClProLabel;
tahminProEdit: TclProEdit;
karisikKelime,TempChar: String;
harfListesi: TclStringList;
j, k,i, RandomIndex: Integer;
yedeklabel : TClProLabel;



  
function kelimeleriKaristir(List:TclStringList);
{
  i = 0;
  while (i < List.Count)
  {
    harfListesi = Clomosy.StringListNew;
    harfListesi.Capacity = 10;
    j = 0;
    while (j < Length(List))
    {
      harfListesi.Add(Copy(List, j + 1, 1));
      j = j + 1;
    }

    k = 0;
    while (k < harfListesi.Count)
    {
      RandomIndex = Round(Random(harfListesi.Count));     

      TempChar =  harfListesi[k] ;
      harfListesi[k]  = harfListesi[RandomIndex];
      harfListesi[RandomIndex] = TempChar;

      k = k + 1;
    }

    karisikKelime = '';
    k = 0;
    while (k < harfListesi.Count)
    {
      karisikKelime = karisikKelime + harfListesi[k];
      k = k + 1;
    }
    

    //ShowMessage(karisikKelime);
//    kelimeProLabel.Caption =karisikKelime;
   
  }
}


void tahminEtButonClick;
{
  ShowMessage('oldu');
}


void KategoriSecimi;
{
  oyunForm = TCLForm.Create(Self);
  oyunForm.SetFormBGImage('https://i.imgur.com/0ozkr4m.png');
  
  
  karistirilmisProLabel = oyunForm.AddNewProLabel(oyunForm,'karistirilmisProLabel','KELİMENİN KARIŞTIRILMIŞ
  HALİ:');
  clComponent.SetupComponent(karistirilmisProLabel,'{
    "Align":"Center",
    "MarginBottom" : 550,
    "Width":400,
    "Height" :300,
    "TextSize" : 25,
    "TextVerticalAlign": "Center",
    "TextHorizontalAlign" :"Center",
    "TextBold": "Yes"
  }')

    kelimeProLabel = oyunForm.AddNewProLabel(oyunForm, 'kelimeProLabel', '');
    clComponent.SetupComponent(kelimeProLabel,'{
    "Align" : "Center",
    "MarginBottom":350,
    "Width":340,
    "Height":60,
    "TextSize" :25,
    "TextHorizontalAlign " : "Center",
    "TextVerticalAlign" : "Center",
    "TextBold":"Yes",
    "BackgroundColor":"#fefbec",
    "RoundHeight":8,
    "RoundWidth":8,
    "BorderColor":"#94ae89",
    "BorderWidth":2
  }')
  
  tahminetProLabel = oyunForm.AddNewProLabel(oyunForm,'tahminetProLabel','TAHMİN ET:');
  clComponent.SetupComponent(tahminetProLabel,'{
    "Align":"Center",
    "MarginBottom" : 120,
    "Width":400,
    "Height" :300,
    "TextSize" : 25,
    "TextVerticalAlign": "Center",
    "TextHorizontalAlign" :"Center",
    "TextBold": "Yes"
  }')
  
  tahminProEdit = oyunForm.AddNewProEdit(oyunForm, 'tahminProEdit', 'Tahminini Gir...');
  clComponent.SetupComponent(tahminProEdit,'{
    "Align" : "Center",
    "MarginTop":80,
    "Width":340,
    "Height":60,
    "TextSize" :25,
    "TextHorizontalAlign " : "Center",
    "TextVerticalAlign" : "Center",
    "TextBold":"Yes",
    "BackgroundColor":"#fefbec",
    "RoundHeight":8,
    "RoundWidth":8,
    "BorderColor":"#94ae89",
    "BorderWidth":2
    
  }')
  
  tahminProEdit.clTypeOfField = taString; //sadece metin girişi

  tahminEtProButton = oyunForm.AddNewProButton(oyunForm, 'tahminEtProButton', 'KONTROL ET');
  clComponent.SetupComponent(tahminEtProButton,
  '{
  "Align" : "Center",
  "TextSize":15, 
  "MarginTop" : 320,
  "MarginLeft":200,
  "Width" : 200,
  "Height" : 50,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "BackgroundColor":"#fefbec",
  "BorderColor":"#94ae89",
  "BorderWidth" : 2
  }');
  oyunForm.AddNewEvent(tahminEtProButton,tbeOnClick,'tahminEtButonClick');
  

  
  oyunForm.Run;
}


void fruitsButonClick;
{
  fruitsList = Clomosy.StringListNew;
  fruitsList.Capacity = 10;

  fruitsList.Add('apple');
  fruitsList.Add('banana');
  fruitsList.Add('orange');
  fruitsList.Add('mango');
  fruitsList.Add('watermelon');
  fruitsList.Add('cherry');
  fruitsList.Add('lemon');
  fruitsList.Add('strawberry');
  fruitsList.Add('grape');
  fruitsList.Add('pineapple');

  kelimeleriKaristir(fruitsList);
  KategoriSecimi;
}

void animalsButonClick;
{
  animalsList = Clomosy.StringListNew;
  animalsList.Capacity = 10;

  animalsList.Add('cat');
  animalsList.Add('dog');
  animalsList.Add('elephant');
  animalsList.Add('tiger');
  animalsList.Add('lion');
  animalsList.Add('giraffe');
  animalsList.Add('zebra');
  animalsList.Add('monkey');
  animalsList.Add('bear');
  animalsList.Add('dolphin');

  kelimeleriKaristir(animalsList);
  KategoriSecimi;
}

void colorsButonClick;
{
  colorsList = Clomosy.StringListNew;
  colorsList.Capacity = 10;

  colorsList.Add('red');
  colorsList.Add('blue');
  colorsList.Add('green');
  colorsList.Add('yellow');
  colorsList.Add('black');
  colorsList.Add('white');
  colorsList.Add('pink');
  colorsList.Add('orange');
  colorsList.Add('purple');
  colorsList.Add('brown');

  kelimeleriKaristir(colorsList);
  KategoriSecimi;
}

void jobsButonClick;
{
  jobsList = Clomosy.StringListNew;
  jobsList.Capacity = 10;

  jobsList.Add('doctor');
  jobsList.Add('teacher');
  jobsList.Add('engineer');
  jobsList.Add('nurse');
  jobsList.Add('lawyer');
  jobsList.Add('architect');
  jobsList.Add('chef');
  jobsList.Add('artist');
  jobsList.Add('police');
  jobsList.Add('journalist');

  kelimeleriKaristir(jobsList);
  KategoriSecimi;
}


void baslaButonClick;
{
  baslaForm = TCLForm.Create(Self);
  baslaForm.SetFormBGImage('https://i.imgur.com/QdZNWrx.png');
  
  kategoriProLabel = baslaForm.AddNewProLabel(baslaForm,'kategoriProLabel','HADİ BİR KATEGORİ SEÇ
  VE 
  TAHMİN ETMEYE BAŞLA!');
  clComponent.SetupComponent(kategoriProLabel,'{
    "Align":"Center",
    "MarginBottom" : 520,
    "Width":400,
    "Height" :300,
    "TextSize" : 25,
    "TextVerticalAlign": "Center",
    "TextHorizontalAlign" :"Center",
    "TextBold": "Yes"
  }')
    
  fruitsButon = baslaForm.AddNewProButton(baslaForm, 'fruitsButon', 'Fruits');
  clComponent.SetupComponent(fruitsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginBottom" : 150,
  "MarginRight":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(fruitsButon,tbeOnClick,'fruitsButonClick');
  //-------------------------------------------------------------------------------
  animalsButon = baslaForm.AddNewProButton(baslaForm, 'animalsButon', 'Animals');
  clComponent.SetupComponent(animalsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginBottom" : 150,
  "MarginLeft":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(animalsButon,tbeOnClick,'animalsButonClick');
  //--------------------------------------------------------------------------
  colorsButon = baslaForm.AddNewProButton(baslaForm, 'colorsButon', 'Colors');
  clComponent.SetupComponent(colorsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginTop" : 250,
  "MarginRight":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(colorsButon,tbeOnClick,'colorsButonClick');
  //--------------------------------------------------------------------
  jobsButon = baslaForm.AddNewProButton(baslaForm, 'jobsButon', 'Jobs');
  clComponent.SetupComponent(jobsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginTop" : 250,
  "MarginLeft":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(jobsButon,tbeOnClick,'jobsButonClick');
  //-------------------------------------------------------------
  

  baslaForm.Run;
}

void nasiloynanirButonClick;
{
  ShowMessage('Guess What oyununa hoş geldiniz! Bu oyunda, karışık halde verilen harflerden anlamlı bir kelime oluşturmanız beklenmektedir. 
Oyunun amacı, verilen harfleri kullanarak doğru kelimeyi bulmaktır. Seçilen kategori ile ilgili gelen kelimenin harfleri karışık gelir. Ayrıca kelimeye ait olmayan harfler de bu karışık harflerin arasında yer alır.
Haydi Başla butonuna tıkla, ardından bir kategori seç ve eğlenmeye başla!');
}


{
  MyForm = TCLForm.Create(Self);
  MyForm.SetFormBGImage('https://i.imgur.com/rLwQoPD.png');
  
  baslaButon = MyForm.AddNewProButton(MyForm, 'baslaButon', 'BAŞLA');
  clComponent.SetupComponent(baslaButon,
  '{
  "Align" : "Center",
  "TextSize":25, 
  "MarginBottom" : 135,
  "Width" : 250,
  "Height" : 70,
  "RoundHeight" : 5,
  "RoundWidth" : 5,
  "Bordercolor" : "#8eaaad",
  "BorderWidth" : 2
  
  }');
  MyForm.AddNewEvent(baslaButon,tbeOnClick,'baslaButonClick');
  
  
  nasiloynanirButon = MyForm.AddNewProButton(MyForm, 'nasiloynanirButon', 'NASIL OYNANIR?');
  clComponent.SetupComponent(nasiloynanirButon,
  '{
  "Align" : "Center",
  "TextSize":25, 
  "MarginTop" : 40,
  "Width" : 250,
  "Height" : 70,
  "RoundHeight" : 5,
  "RoundWidth" : 5,
  "Bordercolor" : "#8eaaad",
  "BorderWidth" : 2
  
  }');
  MyForm.AddNewEvent(nasiloynanirButon,tbeOnClick,'nasiloynanirButonClick');
  
  MyForm.Run;

}

]]> Tue, 13 Aug 2024 16:43:13 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1645#1645 <![CDATA[İndex Hatası : Merhaba Nadire,RandomIndex = Round(Random()...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1642#1642 Yazar: BilalCndn
Konu: 866
Gönderim Zamanı: 13 Ağustos 2024 Saat 14:23

Merhaba Nadire,

RandomIndex = Round(Random() * ((harfListesi.Count)+1));

Bu satırı aşağıdaki şekilde düzenler misin?

RandomIndex = Round(Random(harfListesi.Count));
]]> Tue, 13 Aug 2024 14:23:40 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1642#1642 <![CDATA[İndex Hatası : Merhaba.StringListNew kullanırken...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1634#1634 Yazar: NadireNurSaglam
Konu: 866
Gönderim Zamanı: 13 Ağustos 2024 Saat 12:26

Merhaba. StringListNew kullanırken       
harfListesi[k]  = harfListesi[RandomIndex]; 
satırında index hatası alıyorum. Nasıl çözebilirim? Teşekkürler.
------------------------------------------
RUNTİME ERROR
List index out of bounds (4). TStringList range is 02 when
evaluating instruction CallProc
Stack content is:
Source position: 39,49
Position: 39, 49,
---------------------------------------------
var  
MyForm,baslaForm,oyunForm: TclForm;
arkaPlanImg: TCLImage;
baslaButon,nasiloynanirButon,fruitsButon,animalsButon,colorsButon,jobsButon,tahminEtProButton : TClProButton;
fruitsList,animalsList,colorsList,jobsList: TclStringList;
kelimeProLabel, kategoriProLabel,karistirilmisProLabel,tahminetProLabel: TClProLabel;
tahminProEdit: TclProEdit;
karisikKelime,TempChar: String;
harfListesi: TclStringList;
j, k,i, RandomIndex: Integer;




  
function kelimeleriKaristir(List:TclStringList);
{
  i = 0;
  while (i < List.Count)
  {
    harfListesi = Clomosy.StringListNew;
    harfListesi.Capacity = 10;
    j = 0;
    while (j < Length(List))
    {
      harfListesi.Add(Copy(List, j + 1, 1));
      j = j + 1;
    }

    k = 0;
    while (k < harfListesi.Count)
    {
      RandomIndex = Round(Random() * ((harfListesi.Count)+1));
     //ShowMessage(RandomIndex);
      
     //ShowMessage(harfListesi[RandomIndex]);
     
      TempChar =  harfListesi[k] ;
      harfListesi[k]  = harfListesi[RandomIndex];
      harfListesi[RandomIndex] = TempChar;

      k = k + 1;
    }

    karisikKelime = '';
    k = 0;
    while (k < harfListesi.Count)
    {
      karisikKelime = karisikKelime + harfListesi[k];
      k = k + 1;
    }
    ShowMessage(karisikKelime);

  }
}


void tahminEtButonClick;
{
  ShowMessage('oldu');
}


void KategoriSecimi;
{
  oyunForm = TCLForm.Create(Self);
  oyunForm.SetFormBGImage('https://i.imgur.com/0ozkr4m.png');
  
  
  karistirilmisProLabel = oyunForm.AddNewProLabel(oyunForm,'karistirilmisProLabel','KELİMENİN KARIŞTIRILMIŞ
  HALİ:');
  clComponent.SetupComponent(karistirilmisProLabel,'{
    "Align":"Center",
    "MarginBottom" : 550,
    "Width":400,
    "Height" :300,
    "TextSize" : 25,
    "TextVerticalAlign": "Center",
    "TextHorizontalAlign" :"Center",
    "TextBold": "Yes"
  }')

    kelimeProLabel = oyunForm.AddNewProLabel(oyunForm, 'kelimeProLabel', 'Label');
    clComponent.SetupComponent(kelimeProLabel,'{
    "Align" : "Center",
    "MarginBottom":350,
    "Width":340,
    "Height":60,
    "TextSize" :25,
    "TextHorizontalAlign " : "Center",
    "TextVerticalAlign" : "Center",
    "TextBold":"Yes",
    "BackgroundColor":"#fefbec",
    "RoundHeight":8,
    "RoundWidth":8,
    "BorderColor":"#94ae89",
    "BorderWidth":2
  }')
  
  tahminetProLabel = oyunForm.AddNewProLabel(oyunForm,'tahminetProLabel','TAHMİN ET:');
  clComponent.SetupComponent(tahminetProLabel,'{
    "Align":"Center",
    "MarginBottom" : 120,
    "Width":400,
    "Height" :300,
    "TextSize" : 25,
    "TextVerticalAlign": "Center",
    "TextHorizontalAlign" :"Center",
    "TextBold": "Yes"
  }')
  
  tahminProEdit = oyunForm.AddNewProEdit(oyunForm, 'tahminProEdit', 'Tahminini Gir...');
  clComponent.SetupComponent(tahminProEdit,'{
    "Align" : "Center",
    "MarginTop":80,
    "Width":340,
    "Height":60,
    "TextSize" :25,
    "TextHorizontalAlign " : "Center",
    "TextVerticalAlign" : "Center",
    "TextBold":"Yes",
    "BackgroundColor":"#fefbec",
    "RoundHeight":8,
    "RoundWidth":8,
    "BorderColor":"#94ae89",
    "BorderWidth":2
    
  }')
  
  tahminProEdit.clTypeOfField = taString; //sadece metin girişi

  tahminEtProButton = oyunForm.AddNewProButton(oyunForm, 'tahminEtProButton', 'KONTROL ET');
  clComponent.SetupComponent(tahminEtProButton,
  '{
  "Align" : "Center",
  "TextSize":15, 
  "MarginTop" : 320,
  "MarginLeft":200,
  "Width" : 200,
  "Height" : 50,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "BackgroundColor":"#fefbec",
  "BorderColor":"#94ae89",
  "BorderWidth" : 2
  }');
  oyunForm.AddNewEvent(tahminEtProButton,tbeOnClick,'tahminEtButonClick');
  

  
  oyunForm.Run;
}


void fruitsButonClick;
{
  fruitsList = Clomosy.StringListNew;
  fruitsList.Capacity = 10;

  fruitsList.Add('apple');
  fruitsList.Add('banana');
  fruitsList.Add('orange');
  fruitsList.Add('mango');
  fruitsList.Add('watermelon');
  fruitsList.Add('cherry');
  fruitsList.Add('lemon');
  fruitsList.Add('strawberry');
  fruitsList.Add('grape');
  fruitsList.Add('pineapple');

  kelimeleriKaristir(fruitsList);
  KategoriSecimi;
}

void animalsButonClick;
{
  animalsList = Clomosy.StringListNew;
  animalsList.Capacity = 10;

  animalsList.Add('cat');
  animalsList.Add('dog');
  animalsList.Add('elephant');
  animalsList.Add('tiger');
  animalsList.Add('lion');
  animalsList.Add('giraffe');
  animalsList.Add('zebra');
  animalsList.Add('monkey');
  animalsList.Add('bear');
  animalsList.Add('dolphin');

  kelimeleriKaristir(animalsList);
  KategoriSecimi;
}

void colorsButonClick;
{
  colorsList = Clomosy.StringListNew;
  colorsList.Capacity = 10;

  colorsList.Add('red');
  colorsList.Add('blue');
  colorsList.Add('green');
  colorsList.Add('yellow');
  colorsList.Add('black');
  colorsList.Add('white');
  colorsList.Add('pink');
  colorsList.Add('orange');
  colorsList.Add('purple');
  colorsList.Add('brown');

  kelimeleriKaristir(colorsList);
  KategoriSecimi;
}

void jobsButonClick;
{
  jobsList = Clomosy.StringListNew;
  jobsList.Capacity = 10;

  jobsList.Add('doctor');
  jobsList.Add('teacher');
  jobsList.Add('engineer');
  jobsList.Add('nurse');
  jobsList.Add('lawyer');
  jobsList.Add('architect');
  jobsList.Add('chef');
  jobsList.Add('artist');
  jobsList.Add('police');
  jobsList.Add('journalist');

  kelimeleriKaristir(jobsList);
  KategoriSecimi;
}


void baslaButonClick;
{
  baslaForm = TCLForm.Create(Self);
  baslaForm.SetFormBGImage('https://i.imgur.com/QdZNWrx.png');
  
  kategoriProLabel = baslaForm.AddNewProLabel(baslaForm,'kategoriProLabel','HADİ BİR KATEGORİ SEÇ
  VE 
  TAHMİN ETMEYE BAŞLA!');
  clComponent.SetupComponent(kategoriProLabel,'{
    "Align":"Center",
    "MarginBottom" : 520,
    "Width":400,
    "Height" :300,
    "TextSize" : 25,
    "TextVerticalAlign": "Center",
    "TextHorizontalAlign" :"Center",
    "TextBold": "Yes"
  }')
    
  fruitsButon = baslaForm.AddNewProButton(baslaForm, 'fruitsButon', 'Fruits');
  clComponent.SetupComponent(fruitsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginBottom" : 150,
  "MarginRight":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(fruitsButon,tbeOnClick,'fruitsButonClick');
  //-------------------------------------------------------------------------------
  animalsButon = baslaForm.AddNewProButton(baslaForm, 'animalsButon', 'Animals');
  clComponent.SetupComponent(animalsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginBottom" : 150,
  "MarginLeft":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(animalsButon,tbeOnClick,'animalsButonClick');
  //--------------------------------------------------------------------------
  colorsButon = baslaForm.AddNewProButton(baslaForm, 'colorsButon', 'Colors');
  clComponent.SetupComponent(colorsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginTop" : 250,
  "MarginRight":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(colorsButon,tbeOnClick,'colorsButonClick');
  //--------------------------------------------------------------------
  jobsButon = baslaForm.AddNewProButton(baslaForm, 'jobsButon', 'Jobs');
  clComponent.SetupComponent(jobsButon,
  '{
  "Align" : "Center",
  "TextSize":20, 
  "MarginTop" : 250,
  "MarginLeft":200,
  "Width" : 170,
  "Height" : 170,
  "RoundHeight" : 8,
  "RoundWidth" : 8,
  "Bordercolor" : "#8eaaad",
  "BackgroundColor":"#fefbec", 
  "BorderWidth" : 2
  
  }');
  baslaForm.AddNewEvent(jobsButon,tbeOnClick,'jobsButonClick');
  //-------------------------------------------------------------
  

  baslaForm.Run;
}

void nasiloynanirButonClick;
{
  ShowMessage('Guess What oyununa hoş geldiniz! Bu oyunda, karışık halde verilen harflerden anlamlı bir kelime oluşturmanız beklenmektedir. 
Oyunun amacı, verilen harfleri kullanarak doğru kelimeyi bulmaktır. Seçilen kategori ile ilgili gelen kelimenin harfleri karışık gelir. Ayrıca kelimeye ait olmayan harfler de bu karışık harflerin arasında yer alır.
Haydi Başla butonuna tıkla, ardından bir kategori seç ve eğlenmeye başla!');
}


{
  MyForm = TCLForm.Create(Self);
  MyForm.SetFormBGImage('https://i.imgur.com/rLwQoPD.png');
  
  baslaButon = MyForm.AddNewProButton(MyForm, 'baslaButon', 'BAŞLA');
  clComponent.SetupComponent(baslaButon,
  '{
  "Align" : "Center",
  "TextSize":25, 
  "MarginBottom" : 135,
  "Width" : 250,
  "Height" : 70,
  "RoundHeight" : 5,
  "RoundWidth" : 5,
  "Bordercolor" : "#8eaaad",
  "BorderWidth" : 2
  
  }');
  MyForm.AddNewEvent(baslaButon,tbeOnClick,'baslaButonClick');
  
  
  nasiloynanirButon = MyForm.AddNewProButton(MyForm, 'nasiloynanirButon', 'NASIL OYNANIR?');
  clComponent.SetupComponent(nasiloynanirButon,
  '{
  "Align" : "Center",
  "TextSize":25, 
  "MarginTop" : 40,
  "Width" : 250,
  "Height" : 70,
  "RoundHeight" : 5,
  "RoundWidth" : 5,
  "Bordercolor" : "#8eaaad",
  "BorderWidth" : 2
  
  }');
  MyForm.AddNewEvent(nasiloynanirButon,tbeOnClick,'nasiloynanirButonClick');
  
  MyForm.Run;

}

]]> Tue, 13 Aug 2024 12:26:22 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=866&PID=1634#1634