Form1 : TclForm;

  ScrollKutusu: TclVertScrollBox;

  BtnMerkur, BtnVenus, BtnDunya, BtnMars, BtnJupiter, BtnSaturn, BtnUranus, BtnNeptun : TClProButton;

// Tek bir prosedür üzerinden tüm butonların mesajlarını yönetiyoruz

void ShowInfo;

var

  TiklananButon: TClProButton;

  ButonIsmi: String;

{

  // Hangi butona tıklandığını yakala

  TiklananButon = TClProButton(Form1.ClSender);

  ButonIsmi = TiklananButon.Caption;

  if (ButonIsmi == 'Merkür') { ShowMessage('Güneşe en yakın gezegen, yüzeyi çok sıcak.'); }

  if (ButonIsmi == 'Venüs') { ShowMessage('Yoğun atmosferi nedeniyle sera etkisi çok güçlü.'); }

  if (ButonIsmi == 'Dünya') { ShowMessage('Yaşamın bulunduğu tek gezegen.'); }

  if (ButonIsmi == 'Mars') { ShowMessage('Kızıl gezegen, su izleri bulunmuştur.'); }

  if (ButonIsmi == 'Jüpiter') { ShowMessage('En büyük gezegen, Büyük Kırmızı Leke adlı fırtınası vardır.'); }

  if (ButonIsmi == 'Satürn') { ShowMessage('Geniş ve görkemli halka sistemine sahiptir.'); }

  if (ButonIsmi == 'Uranüs') { ShowMessage('Eksen eğikliği nedeniyle yan yatmış gibi döner.'); }

  if (ButonIsmi == 'Neptün') { ShowMessage('En uzak gezegen, güçlü rüzgarlara sahiptir.'); }

}

// Butonlara ortak tasarım uygulamak için yardımcı prosedür

void GezegenButonuOlustur(AButon: TClProButton; AResimYolu: String);

{

  AButon.Align = alTop;

  AButon.Height = 60;

  AButon.Margins.Top = 10;

  AButon.Margins.Left = 10;

  AButon.Margins.Right = 10;

  

  // Resim eklemek için doğru ProButton formatı (Resimler projeye yüklenmiş olmalı)

  // AButon.clProSettings.PictureSource = AResimYolu;

  // AButon.clProSettings.PictureAutoFit = True;

  

  AButon.clProSettings.IsRound = True;

  AButon.clProSettings.RoundHeight = 10;

  AButon.SetclProSettings(AButon.clProSettings);

  

  Form1.AddNewEvent(AButon, tbeOnClick, 'ShowInfo');

}

{

  Form1 = TclForm.Create(Self);

  // Ekrana sığmama ihtimaline karşı kaydırma kutusu ekliyoruz

  ScrollKutusu = Form1.AddNewVertScrollBox(Form1, 'ScrollKutusu');

  ScrollKutusu.Align = alClient;

  BtnMerkur = Form1.AddNewProButton(ScrollKutusu, 'BtnMerkur', 'Merkür');

  GezegenButonuOlustur(BtnMerkur, 'merkur.png');

  BtnVenus = Form1.AddNewProButton(ScrollKutusu, 'BtnVenus', 'Venüs');

  GezegenButonuOlustur(BtnVenus, 'venus.png');

  BtnDunya = Form1.AddNewProButton(ScrollKutusu, 'BtnDunya', 'Dünya');

  GezegenButonuOlustur(BtnDunya, 'dunya.png');

  BtnMars = Form1.AddNewProButton(ScrollKutusu, 'BtnMars', 'Mars');

  GezegenButonuOlustur(BtnMars, 'mars.png');

  BtnJupiter = Form1.AddNewProButton(ScrollKutusu, 'BtnJupiter', 'Jüpiter');

  GezegenButonuOlustur(BtnJupiter, 'jupiter.png');

  BtnSaturn = Form1.AddNewProButton(ScrollKutusu, 'BtnSaturn', 'Satürn');

  GezegenButonuOlustur(BtnSaturn, 'saturn.png');

  BtnUranus = Form1.AddNewProButton(ScrollKutusu, 'BtnUranus', 'Uranüs');

  GezegenButonuOlustur(BtnUranus, 'uranus.png');

  BtnNeptun = Form1.AddNewProButton(ScrollKutusu, 'BtnNeptun', 'Neptün');

  GezegenButonuOlustur(BtnNeptun, 'neptun.png');

  Form1.Run;

}

var

Form1 : TclForm;

BtnMerkur, BtnVenus, BtnDunya, BtnMars, BtnJupiter, BtnSaturn, BtnUranus, BtnNeptun : TClProButton;

void ShowInfo;

{

  ShowMessage('sss');

}

{

  Form1 = TclForm.Create(Self);

  // Merkür

  BtnMerkur = Form1.AddNewProButton(Form1,'BtnMerkur','Merkür');

 // BtnMerkur.clprosettings.PictureSource = '/assets/merkür';

 // BtnMerkur.SetclProsettings(BtnMerkur.clprosettings)

 // Form1.AddNewEvent(BtnMerkur,tbeOnClick,'ShowInfo("Güneşe en yakın gezegen, yüzeyi çok sıcak.")');

/*

  // Venüs

  BtnVenus = Form1.AddNewProButton(Form1,'BtnVenus','Venüs');

  BtnVenus.PictureSource = '/assets/venüs';

 // Form1.AddNewEvent(BtnVenus,tbeOnClick,'ShowInfo("Yoğun atmosferi nedeniyle sera etkisi çok güçlü.")');

  // Dünya

  BtnDunya = Form1.AddNewProButton(Form1,'BtnDunya','Dünya');

  BtnDunya.PictureSource = '/assets/dünya';

  //Form1.AddNewEvent(BtnDunya,tbeOnClick,'ShowInfo("Yaşamın bulunduğu tek gezegen.")');

  // Mars

  BtnMars = Form1.AddNewProButton(Form1,'BtnMars','Mars');

  BtnMars.PictureSource = '/assets/mars';

 // Form1.AddNewEvent(BtnMars,tbeOnClick,'ShowInfo("Kızıl gezegen, su izleri bulunmuştur.")');

  // Jüpiter

  BtnJupiter = Form1.AddNewProButton(Form1,'BtnJupiter','Jüpiter');

  BtnJupiter.PictureSource = '/assets/jüpiter';

 // Form1.AddNewEvent(BtnJupiter,tbeOnClick,'ShowInfo("En büyük gezegen, Büyük Kırmızı Leke adlı fırtınası vardır.")');

  // Satürn

  BtnSaturn = Form1.AddNewProButton(Form1,'BtnSaturn','Satürn');

  BtnSaturn.PictureSource = '/assets/satürn';

 // Form1.AddNewEvent(BtnSaturn,tbeOnClick,'ShowInfo("Geniş ve görkemli halka sistemine sahiptir.")');

  // Uranüs

  BtnUranus = Form1.AddNewProButton(Form1,'BtnUranus','Uranüs');

  BtnUranus.PictureSource = '/assets/uranüs';

  //Form1.AddNewEvent(BtnUranus,tbeOnClick,'ShowInfo("Eksen eğikliği nedeniyle yan yatmış gibi döner.")');

  // Neptün

  BtnNeptun = Form1.AddNewProButton(Form1,'BtnNeptun','Neptün');

  BtnNeptun.PictureSource = '/assets/neptün';

 // Form1.AddNewEvent(BtnNeptun,tbeOnClick,'ShowInfo("En uzak gezegen, güçlü rüzgarlara sahiptir.")');*/

  Form1.Run;

}