otomotiv uygulaması yapmak istiyorum


   maile attığım uyulama tasarımını clomosyde yapmak istiyorum ama bazı konularda eksiğim ve hatam var yardımcı olur musunuz benim yazdıgım kod bu hatalarımı soylryim bana yardımcı olursanız çok sevinirim teşekkürler 

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');
 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;
  }

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
hako42 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 19 Saat 1 Dakika Önce Konum: konya Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı hako42 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: otomotiv uygulaması yapmak istiyorum Gönderim Zamanı: 18 Saat 55 Dakika Önce Saat 18:52
	maile attığım uyulama tasarımını clomosyde yapmak istiyorum ama bazı konularda eksiğim ve hatam var yardımcı olur musunuz benim yazdıgım kod bu hatalarımı soylryim bana yardımcı olursanız çok sevinirim teşekkürler 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'); 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; }