sayfa bağlama

 Var  

 MyForm:TclstyleForm;

 testimage:TclImage;

 testbutton:TClproButton;

 void BtnOnClick;

{

  ShowMessage('Oyuna hoşgeldiniz. Bu oyunda bazı hayvanların, meyvelerin, gök cisimlerinin ve nesnelerin isimlerini, türkçe ve ingilizce okunuşlarını öğreneceğiz. İyi eğlenceler :)');

}

 

{

  MyForm = TclStyleForm.Create(Self);

  MyUnit2 = TclUnit.Create;

  testimage = MyForm.AddNewImage(MyForm,'testimage');

  MyForm.SetFormBGImage('https://i.hizliresim.com/9ya7s6l.png');

  

  testbutton=MyForm.AddNewproButton(MyForm, 'testbutton', '');

  testbutton.Align = alCenter;

  testbutton.Margins.top=500;

  testbutton.Width = 200;

  testbutton.Height = 50;

  testbutton.Margins.left=20;

  testbutton.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  testbutton.clProSettings.FontSize = 12;

  testbutton.clProSettings.FontVertAlign = palcenter;

  MyForm.setimage(testbutton, 'https://i.hizliresim.com/lefuqyj.png');

  

  testbutton.clProSettings.FontHorzAlign = palCenter;

  testbutton.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  testbutton.clProSettings.IsFill = True; 

  testbutton.SetclProSettings(testbutton.clProSettings);

  

  MyForm.AddNewEvent(testbutton,tbeOnClick,'BtnOnClick');

  

  MyForm.run;

  }

 Var  

 MyForm:TclstyleForm;

 testimage:TclImage;

 testbutton2, testbutton3, testbutton4:TClproButton;

  

  {

    

  MyForm = TclForm.Create(Self);  

  testimage = MyForm.AddNewImage(MyForm,'testimage');

  MyForm.SetFormBGImage('https://i.hizliresim.com/tdhzmrh.png');

  

  testbutton2=MyForm.AddNewproButton(MyForm, 'testbutton2', '');

  testbutton2.Align = alCenter;

  testbutton2.Margins.bottom=600;

  testbutton2.Width = 200;

  testbutton2.Height = 200;

  testbutton2.Margins.left=20;

  testbutton2.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  testbutton2.clProSettings.FontSize = 12;

  testbutton2.clProSettings.FontVertAlign = palcenter;

  MyForm.setimage(testbutton2, 'https://i.hizliresim.com/4cn2wv3.png');

  

  testbutton2.clProSettings.FontHorzAlign = palCenter;

  testbutton2.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  testbutton2.clProSettings.IsFill = True; 

  testbutton2.SetclProSettings(testbutton2.clProSettings);

  

  

  testbutton3=MyForm.AddNewproButton(MyForm, 'testbutton3', '');

  testbutton3.Align = alCenter;

  testbutton3.Margins.bottom=100;

  testbutton3.Width = 200;

  testbutton3.Height = 200;

  testbutton3.Margins.left=20;

  testbutton3.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  testbutton3.clProSettings.FontSize = 12;

  testbutton3.clProSettings.FontVertAlign = palcenter;

  MyForm.setimage(testbutton3, 'https://i.hizliresim.com/ren42pl.png');

  

  testbutton3.clProSettings.FontHorzAlign = palCenter;

  testbutton3.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  testbutton3.clProSettings.IsFill = True; 

  testbutton3.SetclProSettings(testbutton3.clProSettings);

  

  

  testbutton4=MyForm.AddNewproButton(MyForm, 'testbutton4', '');

  testbutton4.Align = alCenter;

  testbutton4.Margins.top=400;

  testbutton4.Width = 200;

  testbutton4.Height = 200;

  testbutton4.Margins.left=20;

  testbutton4.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  testbutton4.clProSettings.FontSize = 12;

  testbutton4.clProSettings.FontVertAlign = palcenter;

  MyForm.setimage(testbutton4, 'https://i.hizliresim.com/jfdy665.png');

  

  testbutton3.clProSettings.FontHorzAlign = palCenter;

  testbutton3.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

  testbutton3.clProSettings.IsFill = True; 

  testbutton3.SetclProSettings(testbutton4.clProSettings);

  

  MyForm.run;

  }