Butonlara renk atama

Yazar

Mesaj

Konu Arama

Topic Seçenekleri

Zeren

Misafir

Kayıt Tarihi: 17 Temmuz 2023
Konum: Konya
Durum: Aktif Değil
Puanlar: 15

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Zeren

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Konu: Butonlara renk atama
Gönderim Zamanı: 03 Ağustos 2023 Saat 10:25

butona bastığımda renk olsun diğer butona bastığımda diğerinden renk kalksın sonradan bastığıma geçsin istiyorum ama 18 tane buton var tek tek yazmak yerine daha kolay bir yolu var mı aşağıdaki kod çalışıyor sadece karakter yetmiyor hepsine yazarsam

procedure chnc;

begin

clComponent.SetupComponent(btnchn,'{"BackgroundColor":"#ee0000"}');

clComponent.SetupComponent(btnen,'{"BackgroundColor":"#ffffff"}');

btnchn.enabled:= False;

btnen.enabled := True;

end;

procedure enc;

begin

clComponent.SetupComponent(btnen,'{"BackgroundColor":"#ee0000"}');

clComponent.SetupComponent(btnchn,'{"BackgroundColor":"#ffffff"}');

btnen.enabled:= False;

btnchn.enabled:= True;

end;

Alforce

Yeni Üye

Kayıt Tarihi: 26 Temmuz 2023
Durum: Aktif Değil
Puanlar: 150

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Alforce

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 03 Ağustos 2023 Saat 18:17

Bu konuda anlatıldı.

Bu kod ise istediğiniz modifiye edilmiş hali:

Var
  i: Integer;
  NComp: TclProButton;
Begin
  For i:= 1 to 5 do
  Begin
    NComp:= TclProButton(MyForm.clFindComponent('Btn'+IntToStr(i)));
    
    clComponent.SetupComponent(NComp,'{"BackgroundColor":"#ee0000"}');
    NComp.Enabled:= False;
  End;

Sanırım istediğiniz şey bu.

halilselvitopu Açılır Kutu İzle

Yeni Üye

Kayıt Tarihi: 24 Temmuz 2023
Konum: Konya
Durum: Aktif Değil
Puanlar: 10

Mesaj Seçenekleri

Yanıt Yaz

Alıntı halilselvitopu

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 04 Ağustos 2023 Saat 10:17

Bu kodu kullanırken NCompu ProButton olarak tanımlamama rağmen SetupComponent kısmında bileşen bulunamadı şeklinde bir hata veriyor sebebini bulamadım. Diğer butonlarda da aynı bileşeni kullanmıştım fakat buradaki hata sebebini anlayamadım.

Alforce

Yeni Üye

Kayıt Tarihi: 26 Temmuz 2023
Durum: Aktif Değil
Puanlar: 150

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Alforce

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 04 Ağustos 2023 Saat 10:36

Bütün butonları Btn1, Btn2, Btn3, Btn4, Btn5 şekilinde adlandırmalısınız.

Bu adlandırma değişken ismi veya text değil,

MyForm.AddNewProButton(MyForm, (burası), '');

burdaki adlandırmadır.

Mümkün ise kaynak kodunu paylaşabilir misiniz?

halilselvitopu Açılır Kutu İzle

Yeni Üye

Kayıt Tarihi: 24 Temmuz 2023
Konum: Konya
Durum: Aktif Değil
Puanlar: 10

Mesaj Seçenekleri

Yanıt Yaz

Alıntı halilselvitopu

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 04 Ağustos 2023 Saat 11:05

Var MyForm:TclForm;btn1,btn2,btn3,btn4,btn5,btn6,btn7,btn8,btn9,btn10,btn11,btn12,btn13,btn14,btn15,btn16,btn17,btn18: TClProButton;

myDeviceManager:TclDeviceManager;valueName:string;tahminsayifloat:Float;tahminsayi,girsayi,i,sira:Integer;ButtonZar:TclButton;testImg:TclImage;

procedure c1;

begin

MyForm.SetImage(btn1,'https://i.hizliresim.com/lgz7547.jpg');

btn1.enabled:= False;

end;

procedure c3;

begin

MyForm.SetImage(btn3,'https://i.hizliresim.com/o7bi7w1.png');

btn3.enabled:= False;

end;

procedure c4;

begin

MyForm.SetImage(btn4,'https://i.hizliresim.com/4epyq3u.jpg');

end;

procedure c2;

begin

MyForm.SetImage(btn2,'https://i.hizliresim.com/78q1glg.jpg');

btn2.enabled:= False;

end;

procedure c13;

begin

clComponent.SetupComponent(btn13,'{"BackgroundColor":"#ee0000"}');

btn13.enabled:= False;

end;

procedure c8;

begin

MyForm.SetImage(btn8,'https://i.hizliresim.com/b0idm02.jpg');

btn8.enabled:= False;

end;

Procedure ZarGorsel(a:Integer)begin if a=1 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png'); end;else if a = 2 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/egerynm.png');end;else if a = 3 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/h73lzkk.png');end;else if a = 4 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/lg7nxgm.png');end;else if a = 5 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/fzz3x41.png');end;else if a = 6 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/odqhg4l.png');end;end;Procedure ButtonZarFonk;begin

tahminsayi:=clMath.generateRandom(1,6);ZarGorsel(tahminsayi);end;begin MyForm:=TclForm.Create(Self);myDeviceManager:=TclDeviceManager.Create;MyForm.SetFormBGImage('https://i.hizliresim.com/8lchnr7.jpeg');

btn1:=MyForm.AddNewProButton(MyForm,'btn1','');clComponent.SetupComponent(btn1,'{"caption":"İNGİLTERE","MarginLeft":405,"MarginRight":90,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn2:=MyForm.AddNewProButton(MyForm,'btn2','');clComponent.SetupComponent(btn2,'{"caption":"İTALYA","MarginLeft":630,"MarginRight":2,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn3:=MyForm.AddNewProButton(MyForm,'btn3','');clComponent.SetupComponent(btn3,'{"caption":"TÜRKİYE","MarginLeft":245,"MarginRight":240,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn4:=MyForm.AddNewProButton(MyForm,'btn4','');clComponent.SetupComponent(btn4,'{"caption":"ALMANYA","MarginLeft":5,"MarginRight":625,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn5:=MyForm.AddNewProButton(MyForm,'btn5','');clComponent.SetupComponent(btn5,'{"caption":"KORE","MarginLeft":95,"MarginRight":405,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn6:=MyForm.AddNewProButton(MyForm,'btn6','');clComponent.SetupComponent(btn6,'{"caption":"FRANSA","MarginLeft":405,"MarginRight":90,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn7:=MyForm.AddNewProButton(MyForm,'btn7','');clComponent.SetupComponent(btn7,'{"caption":"BAŞLA","MarginLeft":630,"MarginRight":2,"MarginBottom":860,"MarginTop":430,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn8:=MyForm.AddNewProButton(MyForm,'btn8','');clComponent.SetupComponent(btn8,'{"caption":"NORVEÇ","MarginLeft":245,"MarginRight":240,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn9:=MyForm.AddNewProButton(MyForm,'btn9','');clComponent.SetupComponent(btn9,'{"caption":"ABD","MarginLeft":5,"MarginRight":625,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn10:=MyForm.AddNewProButton(MyForm,'btn10','');clComponent.SetupComponent(btn10,'{"caption":"VİZE AL","MarginLeft":95,"MarginRight":405,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn11:=MyForm.AddNewProButton(MyForm,'btn11','');clComponent.SetupComponent(btn11,'{"caption":"RUSYA","MarginLeft":-70,"MarginRight":860,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn12:=MyForm.AddNewProButton(MyForm,'btn12','');clComponent.SetupComponent(btn12,'{"caption":"MISIR","MarginLeft":-70,"MarginRight":860,"MarginBottom":430,"MarginTop":15,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn13:=MyForm.AddNewProButton(MyForm,'btn13','');clComponent.SetupComponent(btn13,'{"caption":"GÜMRÜK KAPISI","MarginLeft":-70,"MarginRight":860,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn14:=MyForm.AddNewProButton(MyForm,'btn14','');clComponent.SetupComponent(btn14,'{"caption":"UKRAYNA","MarginLeft":-70,"MarginRight":860,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn15:=MyForm.AddNewProButton(MyForm,'btn15','');clComponent.SetupComponent(btn15,'{"caption":"KODES","MarginLeft":-70,"MarginRight":860,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn16:=MyForm.AddNewProButton(MyForm,'btn16','');clComponent.SetupComponent(btn16,'{"caption":"ÇİN","MarginLeft":630,"MarginRight":2,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn17:=MyForm.AddNewProButton(MyForm,'btn17','');clComponent.SetupComponent(btn17,'{"caption":"ŞANS","MarginLeft":630,"MarginRight":2,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

btn18:=MyForm.AddNewProButton(MyForm,'btn18','');clComponent.SetupComponent(btn18,'{"caption":"KANADA","MarginLeft":630,"MarginRight":2,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');

testImg:=MyForm.AddNewImage(MyForm,'testImg');testImg.Margins.Left:=850;testImg.Margins.Right:=-100;testImg.Margins.Top:=190;testImg.Margins.Bottom:=50;testImg.Width:=80;testImg.Height:=80;MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png');

ButtonZar:=MyForm.AddNewButton(MyForm,'ButtonZar','Zar At');ButtonZar.Margins.Left:=850;ButtonZar.Margins.Right:=-100;ButtonZar.Margins.Top:=270;ButtonZar.Margins.Bottom:=-10;ButtonZar.Width:=80;ButtonZar.Height:=40;MyForm.AddNewEvent(ButtonZar,tbeOnClick,'ButtonZarFonk');

MyForm.AddNewEvent(btn13,tbeOnClick,'c13');

MyForm.AddNewEvent(btn1,tbeOnClick,'c1');

MyForm.AddNewEvent(btn3,tbeOnClick,'c3');

MyForm.AddNewEvent(btn4,tbeOnClick,'c4');

MyForm.AddNewEvent(btn8,tbeOnClick,'c8');

MyForm.Run;

end;

Koddaki tüm butonları prosedüre eklemedim henüz, butonlar btn1 btn2 şeklinde tanımlı for döngüsünü kullandığımda bileşen bulunamadı hatasını alıyorum döngüyü nerede kullanmalıyım?

Alforce

Yeni Üye

Kayıt Tarihi: 26 Temmuz 2023
Durum: Aktif Değil
Puanlar: 150

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Alforce

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 04 Ağustos 2023 Saat 14:16

Kodda karşılaştığınız hatayı tespit ettik, teşekkür ederiz.

Ar-ge ekibine ilettim kısa sürede cevap vericeklerdir.

halilselvitopu Açılır Kutu İzle

Yeni Üye

Kayıt Tarihi: 24 Temmuz 2023
Konum: Konya
Durum: Aktif Değil
Puanlar: 10

Mesaj Seçenekleri

Yanıt Yaz

Alıntı halilselvitopu

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 07 Ağustos 2023 Saat 10:05

Merhaba, hata ile ilgili bir gelişme var mı?

Alforce

Yeni Üye

Kayıt Tarihi: 26 Temmuz 2023
Durum: Aktif Değil
Puanlar: 150

Mesaj Seçenekleri

Yanıt Yaz

Alıntı Alforce

Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.

Teşekkürler(0)

Alıntı

Cevapla

Gönderim Zamanı: 07 Ağustos 2023 Saat 11:53

Hata çözüldü, ama yeni sürümler için hedefleniyor.

Şimdilik geçici bir çözüm olarak boş ve şeffaf bir png koyabilirsiniz.

Var
  MyForm:TclForm;
  btn1,btn2,btn3,btn4,btn5,btn6,btn7,btn8,btn9,btn10,btn11,btn12,btn13,btn14,btn15,btn16,btn17,btn18: TClProButton;
  myDeviceManager:TclDeviceManager;
  valueName:string;
  tahminsayifloat:Float;
  tahminsayi,girsayi,i,sira:Integer;
  ButtonZar:TclButton;
  testImg:TclImage; 

Procedure Temizle;
Var
  i: Integer;
  But: TClProButton;
Begin
  For i:= 1 to 18 do
  Begin
    But:= TClProButton(MyForm.clFindComponent('btn'+IntToStr(i)));
    
    MyForm.SetImage(But, 'https://i.hizliresim.com/d8cmc9f.png');
    But.enabled:= True;
  End;
End;

procedure c1;
begin
  Temizle;
  MyForm.SetImage(btn1,'https://i.hizliresim.com/lgz7547.jpg');
  btn1.enabled:= False;
end;

procedure c3;
begin
  Temizle;
  MyForm.SetImage(btn3,'https://i.hizliresim.com/o7bi7w1.png');
  btn3.enabled:= False;
end;

procedure c4;
begin
  Temizle;
  MyForm.SetImage(btn4,'https://i.hizliresim.com/4epyq3u.jpg');
  btn4.enabled:= False;
end;
procedure c2;
begin
  Temizle;
  MyForm.SetImage(btn2,'https://i.hizliresim.com/78q1glg.jpg');
  btn2.enabled:= False;
end;

procedure c13;
begin
  clComponent.SetupComponent(btn13,'{"BackgroundColor":"#ee0000"}');
  btn13.enabled:= False;
end;

procedure c8;
begin
  MyForm.SetImage(btn8,'https://i.hizliresim.com/b0idm02.jpg');
  btn8.enabled:= False;
end;

Procedure ButtonZarFonk;
begin
  tahminsayi:=clMath.generateRandom(1,6);
  
  if tahminsayi = 1 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png')
  else if tahminsayi = 2 then 
    MyForm.SetImage(testImg,'https://i.hizliresim.com/egerynm.png')
  else if tahminsayi = 3 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/h73lzkk.png')
  else if tahminsayi = 4 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/lg7nxgm.png')
  else if tahminsayi = 5 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/fzz3x41.png')
  else if tahminsayi = 6 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/odqhg4l.png');
end;

begin 
  MyForm:=TclForm.Create(Self);
  myDeviceManager:=TclDeviceManager.Create;
  MyForm.SetFormBGImage('https://i.hizliresim.com/8lchnr7.jpeg');
  
  btn1:=MyForm.AddNewProButton(MyForm,'btn1','');
  clComponent.SetupComponent(btn1,'{"caption":"İNGİLTERE","MarginLeft":405,"MarginRight":90,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn2:=MyForm.AddNewProButton(MyForm,'btn2','');
  clComponent.SetupComponent(btn2,'{"caption":"İTALYA","MarginLeft":630,"MarginRight":2,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn3:=MyForm.AddNewProButton(MyForm,'btn3','');
  clComponent.SetupComponent(btn3,'{"caption":"TÜRKİYE","MarginLeft":245,"MarginRight":240,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn4:=MyForm.AddNewProButton(MyForm,'btn4','');
  clComponent.SetupComponent(btn4,'{"caption":"ALMANYA","MarginLeft":5,"MarginRight":625,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn5:=MyForm.AddNewProButton(MyForm,'btn5','');
  clComponent.SetupComponent(btn5,'{"caption":"KORE","MarginLeft":95,"MarginRight":405,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn6:=MyForm.AddNewProButton(MyForm,'btn6','');
  clComponent.SetupComponent(btn6,'{"caption":"FRANSA","MarginLeft":405,"MarginRight":90,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn7:=MyForm.AddNewProButton(MyForm,'btn7','');
  clComponent.SetupComponent(btn7,'{"caption":"BAŞLA","MarginLeft":630,"MarginRight":2,"MarginBottom":860,"MarginTop":430,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn8:=MyForm.AddNewProButton(MyForm,'btn8','');
  clComponent.SetupComponent(btn8,'{"caption":"NORVEÇ","MarginLeft":245,"MarginRight":240,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn9:=MyForm.AddNewProButton(MyForm,'btn9','');
  clComponent.SetupComponent(btn9,'{"caption":"ABD","MarginLeft":5,"MarginRight":625,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn10:=MyForm.AddNewProButton(MyForm,'btn10','');
  clComponent.SetupComponent(btn10,'{"caption":"VİZE AL","MarginLeft":95,"MarginRight":405,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn11:=MyForm.AddNewProButton(MyForm,'btn11','');
  clComponent.SetupComponent(btn11,'{"caption":"RUSYA","MarginLeft":-70,"MarginRight":860,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn12:=MyForm.AddNewProButton(MyForm,'btn12','');
  clComponent.SetupComponent(btn12,'{"caption":"MISIR","MarginLeft":-70,"MarginRight":860,"MarginBottom":430,"MarginTop":15,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn13:=MyForm.AddNewProButton(MyForm,'btn13','');
  clComponent.SetupComponent(btn13,'{"caption":"GÜMRÜK KAPISI","MarginLeft":-70,"MarginRight":860,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn14:=MyForm.AddNewProButton(MyForm,'btn14','');
  clComponent.SetupComponent(btn14,'{"caption":"UKRAYNA","MarginLeft":-70,"MarginRight":860,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn15:=MyForm.AddNewProButton(MyForm,'btn15','');
  clComponent.SetupComponent(btn15,'{"caption":"KODES","MarginLeft":-70,"MarginRight":860,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn16:=MyForm.AddNewProButton(MyForm,'btn16','');
  clComponent.SetupComponent(btn16,'{"caption":"ÇİN","MarginLeft":630,"MarginRight":2,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn17:=MyForm.AddNewProButton(MyForm,'btn17','');
  clComponent.SetupComponent(btn17,'{"caption":"ŞANS","MarginLeft":630,"MarginRight":2,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn18:=MyForm.AddNewProButton(MyForm,'btn18','');
  clComponent.SetupComponent(btn18,'{"caption":"KANADA","MarginLeft":630,"MarginRight":2,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  testImg:=MyForm.AddNewImage(MyForm,'testImg');
  testImg.Margins.Left:=850;
  testImg.Margins.Right:=-100;
  testImg.Margins.Top:=190;
  testImg.Margins.Bottom:=50;
  testImg.Width:=80;
  testImg.Height:=80;
  MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png');
  ButtonZar:=MyForm.AddNewButton(MyForm,'ButtonZar','Zar At');
  ButtonZar.Margins.Left:=850;
  ButtonZar.Margins.Right:=-100;
  ButtonZar.Margins.Top:=270;
  ButtonZar.Margins.Bottom:=-10;
  ButtonZar.Width:=80;
  ButtonZar.Height:=40;
  MyForm.AddNewEvent(ButtonZar,tbeOnClick,'ButtonZarFonk'); 
  
  MyForm.AddNewEvent(btn13,tbeOnClick,'c13');
  MyForm.AddNewEvent(btn1,tbeOnClick,'c1');
  MyForm.AddNewEvent(btn3,tbeOnClick,'c3');
  MyForm.AddNewEvent(btn4,tbeOnClick,'c4');
  MyForm.AddNewEvent(btn8,tbeOnClick,'c8');
  
  MyForm.Run;
end;

Bu, umarım şimdilik işinizi görür.