var
MyForm: TclForm;
VertScrollBox1: TclVertScrollBox;
HeroLayout: TclLayout;
LblTitle, LblSub,LblCkn,LblAckl,LblOne2: TclLabel;
Btn1, Btn2: TclButton;
{
MyForm= TclForm.Create(Self);
//çalışmıyor
//MyForm.SetFormBGImage(' https://cdn2.yamaha-motor.eu/prod/product-assets/2025/YZF-R250/2025-Yamaha-YZF-R250-EU-Detail-003-03.jpg" rel="nofollow - https://cdn2.yamaha-motor.eu/prod/product-assets/2025/YZF-R250/2025-Yamaha-YZF-R250-EU-Detail-003-03.jpg ');
MyForm.SetFormColor('#ff0000','#ffffff',clGCross);
//sıkıntılı çalısıyor
VertScrollBox1 = MyForm.AddNewVertScrollBox(MyForm,'VertScrollBox1');
VertScrollBox1.Align =alClient;
VertScrollBox1.Height = 300;
// arka plan
HeroLayout = MyForm.AddNewLayout(VertScrollBox1, 'HeroLayout');
HeroLayout.Align = alTop;
HeroLayout.Height = 350;
// renk stil
// yrni nesil arac
LblTitle = MyForm.AddNewLabel(HeroLayout, 'LblTitle', 'Yeni Nesil Araçlar');
LblTitle.Align = alTop;
LblTitle.Margins.Top = 40;
LblTitle.Margins.Left = 20;
LblTitle.Height = 60;
LblTitle.TextSettings.Font.Size = 24;
//LblTitle.TextSettings.FontColor := '#ffffff';
//LblTitle.SetFormColor('#00b282','#000000',clGCross);
// gelecegi yasa
LblSub = MyForm.AddNewLabel(HeroLayout, 'LblSub', 'Geleceği bizimle keşfedin.');
LblSub.Align = alTop;
LblSub.Margins.Left = 20;
LblSub.Height = 40;
//LblSub.TextSettings.FontColor := '#ffffff';
//LblSub.SetFormColor('#00b282','#000000',clGCross);
// açıklama
LblAckl = MyForm.AddNewLabel(HeroLayout, 'LblAckl','
ÇAKIR Otomotiv olarak, +'+13#10+
'en son teknoloji ve konforla '+13#10+'donatılmış araçlarımızla sizlere hizmet veriyoruz.');
LblAckl.Align = alTop;
LblAckl.Margins.Top = 40;
LblAckl.Margins.Left = 20;
LblAckl.Height = 60;
LblAckl.TextSettings.Font.Size = 24;
//LblAckl.TextSettings.FontColor := '#ffffff';
//LblAckl.SetFormColor('#00b282','#000000',clGCross);
// modelleri keşfet butonu
Btn1 = MyForm.AddNewButton(HeroLayout, 'Btn1', 'Modeller');
Btn1.Align = alTop;
Btn1.Margins.Top = 20;
Btn1.Margins.Left = 50;
Btn1.Margins.Right = 50;
Btn1.Height = 50;
//Btn1.TextSettings.FontColor := '#ffffff';
// MyForm.SetClConfigInfo(Btn1, '{ "BackgroundColor":"#ffffff"}');
//test surusu butonu
Btn2 = MyForm.AddNewButton(HeroLayout, 'Btn2', 'Test Sürüşü');
Btn2.Align = alTop;
Btn2.Margins.Top = 20;
Btn2.Margins.Left = 50;
Btn2.Margins.Right = 50;
Btn2.Height = 50;
//Btn1.TextSettings.FontColor := '#ffffff';
// MyForm.SetClConfigInfo(Btn1, '{ "BackgroundColor":"#ffffff"}');
//öne çıkan Modeller
LblCkn = MyForm.AddNewLabel(HeroLayout, 'LblCkn', 'Öne Çıkan Modeller');
LblCkn.Align = alTop;
LblCkn.Margins.Top = 40;
LblCkn.Margins.Left = 20;
LblCkn.Height = 60;
LblCkn.TextSettings.Font.Size = 24;
//LblCkn.TextSettings.FontColor := '#ffffff';
//LblCkn.SetFormColor('#00b282','#000000',clGCross);
//öne çıkan Modeller altındaki açıklama
LblOne2 = MyForm.AddNewLabel(HeroLayout, 'LblOne2', 'En popüler ve en yeni araçlarımızı keşfedin');
LblOne2.Align = alTop;
LblOne2.Margins.Top = 40;
LblOne2.Margins.Left = 20;
LblOne2.Height = 60;
LblOne2.TextSettings.Font.Size = 24;
//LblOne2.TextSettings.FontColor := '#ffffff';
//LblOne2.SetFormColor('#00b282','#000000',clGCross);
MyForm.Run;
}