Var   

  Form1:TclForm;

  ProBtn : TClProButton;

  

void BtnOnClick;

{

  Clomosy.RunUnit('Ugris');

}

{

  Form1 = TclForm.Create(Self);

  

  ProBtn = Form1.AddNewProButton(Form1,'ProBtn','');

  ProBtn.Align = alCenter;

  ProBtn.Width = 700;

  ProBtn.Height = 700;

  ProBtn.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  ProBtn.clProSettings.FontSize = 12;

  ProBtn.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

  ProBtn.clProSettings.FontHorzAlign = palCenter;

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

  ProBtn.clProSettings.IsFill = True; 

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

  ProBtn.SetclProSettings(ProBtn.clProSettings);

  

  Form1.AddNewEvent(ProBtn,tbeOnClick,'BtnOnClick');

  Form1.Run;

}