var

  Aform:TclgameForm;

  AnaPnl, ic_PNL, ALT_PNL: TclProPanel;

  Back_img,Buttonroll_img: TClProImage;

  Roll_BTN : TClProButton;

 {

//Aformu

  Aform = TclgameForm.Create(Self);

//Ana paneli

  AnaPnl = Aform.AddNewProPanel(Aform, 'AnaPnl');

  clComponent.SetupComponent(AnaPnl, '{"Align" : "client","BackgroundColor":"null"}');

  clRTMethod(AnaPnl,'SendToBack');

  ic_PNL = Aform.AddNewProPanel(AnaPnl, 'ic_PNL');

  clComponent.SetupComponent(ic_PNL, '{"Align" : "client","BackgroundColor":"null","RoundHeight":10,"RoundWidth":10}');

  ic_PNL.Height = AnaPnl.Height * 90 / 100; // Ana panelin yüksekliğinin %90'ı

  ic_PNL.Width = AnaPnl.Width * 90 / 100;  // Ana panelin genişliğinin %90'ı

  ic_PNL.Left = AnaPnl.Width * 5 / 100;    // Sol boşluk %5

  ic_PNL.Top = AnaPnl.Height * 5 / 100;    // Üst boşluk %5

  ic_PNL.Margins.Left = AnaPnl.Width * 2 / 100;  // Sol boşluk %2

  ic_PNL.Margins.Right = AnaPnl.Width * 2 / 100; // Sağ boşluk %2

  ic_PNL.Margins.Top = AnaPnl.Height * 4 / 100;  // Üst boşluk %4

  ic_PNL.Margins.Bottom = AnaPnl.Height * 4 / 100; // Alt boşluk %4

 Back_img = Aform.AddNewProImage(ic_PNL,'Back_img');

 clComponent.SetupComponent(Back_img,'{"Align" : "Center","ImgUrl":"https://i.hizliresim.com/cx7vyg8.png", "ImgFit":"yes","ImgStretch":"yes"}');

 Back_img.Align = alClient;

//İç paneli

//Alt paneli oluştur

  ALT_PNL = Aform.AddNewProPanel(ic_PNL, 'ALT_PNL');

  clComponent.SetupComponent(ALT_PNL, '{"BackgroundColor":"null","RoundHeight":10,"RoundWidth":10}');

  ALT_PNL.Height = ic_PNL.Height * 90 / 100; // İç panelin yüksekliğinin %90'ı

  ALT_PNL.Width = ic_PNL.Width * 90 / 100;   // İç panelin genişliğinin %69'u

  ALT_PNL.Left = ic_PNL.Width * 5 / 100;     // Sol boşluk %5

  ALT_PNL.Margins.Bottom = ic_PNL.Height * 5 / 100; // Alt boşluk %5

  ALT_PNL.Margins.Top = ic_PNL.Height * 5 / 100; // Üst boşluk %5

  ALT_PNL.Margins.Left = ic_PNL.Width * 2 / 100;  // Sol boşluk %2

  ALT_PNL.Margins.Right = ic_PNL.Width * 2 / 100; // Sağ boşluk %2

  ALT_PNL.Margins.Top = ic_PNL.Height * 5 / 100;  // Üst boşluk %5

  ALT_PNL.Margins.Bottom = ic_PNL.Height * 5 / 100; // Alt boşluk %5

Roll_BTN = Aform.AddNewProButton(Back_img,'Roll_BTN','Roll The Dice');

clComponent.SetupComponent(Roll_BTN,'{"Align" : "Center"}');

 Roll_BTN.Height = ALT_PNL.Height * 10 / 100; // Buton yüksekliği ALT_PNL'nin %20'si

  Roll_BTN.Width = ALT_PNL.Width * 50/ 100;   // Buton genişliği ALT_PNL'nin %90'ı

  Roll_BTN.Left = ALT_PNL.Width * 2 / 100;     // Sol boşluk %2

  Roll_BTN.Top = ALT_PNL.Height * 4 / 100;     // Üst boşluk %4

  Roll_BTN.Margins.Bottom = ALT_PNL.Height * 5 / 100; // Alt boşluk %4

  Roll_BTN.Margins.Top = ALT_PNL.Height *30/ 100;    // Üst boşluk %4

  Roll_BTN.Margins.Left = ALT_PNL.Width * 2 / 100;    // Sol boşluk %2

  Roll_BTN.Margins.Right = ALT_PNL.Width * 2 / 100;   // Sağ boşluk %2

clRTMethod(Roll_BTN,'BringTofront');

Buttonroll_img = AForm.AddNewProImage(Roll_BTN,'Buttonroll_img');

clComponent.SetupComponent(Buttonroll_img,'{"Align" : "Center","ImgUrl":"https://i.hizliresim.com/bub7j5u.png", "ImgFit":"yes","ImgStretch":"yes"}');

 Buttonroll_img.Align = alCenter;

Aform.Run;

}