Var   

  Form1: TCLForm;

  LayoutKutu: TclLayout;

  BtnBasla, BtnBilgi : TClProButton;

  ImgBilgi : TClProImage;

void BtnBaslaClick;

{

  Clomosy.RunUnit('uGiris');

}

void BtnBilgiClick;

{

  ImgBilgi.Visible = True;

  ImgBilgi.BringToFront;  

}

void ImgBilgiClick;

{

  ImgBilgi.Visible = False; 

}

{

  Form1 = TCLForm.Create(Self);

  

  Form1.SetFormBGImage(' https://resmim.net/cdn/2026/01/21/wigtJn.png" rel="nofollow - https://resmim.net/cdn/2026/01/21/wigtJn.png ');

  LayoutKutu = Form1.AddNewLayout(Form1, 'LayoutKutu');

  LayoutKutu.Align = alCenter;

  LayoutKutu.Height = 220; 

  LayoutKutu.Width = 300;

  

  BtnBasla = Form1.AddNewProButton(LayoutKutu, 'BtnBasla', 'OYUNA BAŞLA');

  BtnBasla.Align = alTop;

  BtnBasla.Height = 100;

  BtnBasla.Margins.Bottom = 20; // İkinci butonla arasına boşluk

  

  BtnBasla.clProSettings.BorderColor = clAlphaColor.clWhite;

  BtnBasla.clProSettings.RoundHeight = 15;

  BtnBasla.clProSettings.RoundWidth = 15;

  BtnBasla.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnBasla.clProSettings.FontSize = 20;

  BtnBasla.clProSettings.BackgroundColor = clAlphaColor.clSeagreen;

  BtnBasla.SetclProSettings(BtnBasla.clProSettings);

  

  Form1.AddNewEvent(BtnBasla, tbeOnClick, 'BtnBaslaClick');

  BtnBilgi = Form1.AddNewProButton(LayoutKutu, 'BtnBilgi', 'NASIL OYNANIR?');

  BtnBilgi.Align = alTop; 

  BtnBilgi.Height = 100;

  

  BtnBilgi.clProSettings.BorderColor = clAlphaColor.clWhite;

  BtnBilgi.clProSettings.RoundHeight = 15;

  BtnBilgi.clProSettings.RoundWidth = 15;

  BtnBilgi.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnBilgi.clProSettings.FontSize = 20;

  BtnBilgi.clProSettings.BackgroundColor = clAlphaColor.clSteelblue; 

  BtnBilgi.SetclProSettings(BtnBilgi.clProSettings);

  

  Form1.AddNewEvent(BtnBilgi, tbeOnClick, 'BtnBilgiClick');

  //  BİLGİ GÖRSELİ (Pop-up) 

  ImgBilgi = Form1.AddNewProImage(Form1, 'ImgBilgi');

  ImgBilgi.Align = alClient; 

  ImgBilgi.Visible = False;  

  

  ImgBilgi.clProSettings.PictureSource = ' https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png" rel="nofollow - https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png '; 

  ImgBilgi.clProSettings.IsFill = True; 

  ImgBilgi.SetclProSettings(ImgBilgi.clProSettings);

  

  Form1.AddNewEvent(ImgBilgi, tbeOnClick, 'ImgBilgiClick');

  Form1.Run;

}