Clomosy | Forum : otomotiv uygulaması yapmak istiyorum https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:54:19 +0000 Mon, 12 Jan 2026 18:55:28 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1254 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[otomotiv uygulaması yapmak istiyorum : teşekkür ederim hocam hatam olursa...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2796#2796 Yazar: hako42
Konu: 1254
Gönderim Zamanı: 12 Ocak 2026 Saat 18:55

teşekkür ederim hocam hatam olursa tekrardan paylaşırım kolay gelsimhttps://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Mon, 12 Jan 2026 18:55:28 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2796#2796 <![CDATA[otomotiv uygulaması yapmak istiyorum : https://www.docs.clomosy.com/index.php?title=Units...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2793#2793 Yazar: Emr.Erkmn
Konu: 1254
Gönderim Zamanı: 12 Ocak 2026 Saat 10:04

https://www.docs.clomosy.com/index.php?title=Units bu şekil de birimler açıp
https://www.docs.clomosy.com/index.php?title=TclUnit
https://www.docs.clomosy.com/RunUnit ;
İki yapıyla da birimler arasında geçiş yapabilirsin. https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Mon, 12 Jan 2026 10:04:31 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2793#2793 <![CDATA[otomotiv uygulaması yapmak istiyorum : Bundan sonra ki adımın,Panel içerisinde...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2792#2792 Yazar: Emr.Erkmn
Konu: 1254
Gönderim Zamanı: 12 Ocak 2026 Saat 09:47

Bundan sonra ki adımın, 
Panel içerisinde yer alan butonlara birer birim açmak ve o birimlerin içerisinde yine tasarıma özgü kalarak kodlamakhttps://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Mon, 12 Jan 2026 09:47:22 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2792#2792 <![CDATA[otomotiv uygulaması yapmak istiyorum : Merhaba Hakan,Bileşenleri kullanırken...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2791#2791 Yazar: Emr.Erkmn
Konu: 1254
Gönderim Zamanı: 12 Ocak 2026 Saat 09:45

Merhaba Hakan, 
Bileşenleri kullanırken pro bileşenleri kullanman tasarım açısından daha işlevsel ve güzel olur. 
*Formun arka planına hem görsel hem de renk eklemek istemişsin ama yalnızca en son eklediğin kod çalışır bu yüzden görsel değil arka planda renkli kalıyor. 
* SetFormColor bu komutu diğer bileşenlerde de kulanmışsın ama yalnızca formun arka planını renklendirme de kullanılan bir komut. 

Aşağıda ki örneği inceler misin? 
var
  MyForm: TclForm;
  VertScrollBox1: TclVertScrollBox;
  
  //  ÜST PANEL 
  TopPanel, LogoLayout: TclProPanel;
  LblLogo, LblLogoSub, LblDot: TclProLabel;
  BtnMenu, BtnSearch, BtnUser: TclProButton;
  
  //  YAN MENÜ 
  MenuPanel, MenuOverlay: TclProPanel;
  BtnAraba, BtnMotor, BtnSUV, BtnElektrik, BtnMenuKapat: TclProButton;
  
  //  HERO ALANI 
  HeroPanel: TclProPanel;
  HeroTextLayout, ButtonLayout: TclProPanel;
  LblTitle1, LblTitle2, LblTitle3, LblTitle4, LblDesc: TclProLabel;
  BtnDiscover, BtnTestDrive: TclProButton;
  
  //  ALT İÇERİK 
  ContentPanel: TclProPanel;
  LblSectionTitle, LblSectionDesc: TclProLabel;

//  MENÜ İŞLEMLERİ 
void MenuyuAcKapat;
{
  if (MenuPanel.Visible)
  {
    MenuPanel.Visible = False;
    MenuOverlay.Visible = False;
  }
  else
  {
    MenuOverlay.Visible = True;
    MenuPanel.Visible = True;
    clRTMethod(MenuOverlay,'BringToFront')
    clRTMethod(MenuPanel,'BringToFront')
  }
}

void Menu_Tiklama;
{
  ShowMessage('Seçilen kategori açılıyor...');
  MenuyuAcKapat;
}

{
  MyForm = TclForm.Create(Self);
  MyForm.SetFormColor('#FFFFFF', '#FFFFFF', clGVertical);

  MenuOverlay = MyForm.AddNewProPanel(MyForm, 'MenuOverlay');
  MenuOverlay.Align = alClient;
  MenuOverlay.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');
  MenuOverlay.Opacity = 0.5;
  MenuOverlay.Visible = False;
  MenuOverlay.SetclProSettings(MenuOverlay.clProSettings);
  MyForm.AddNewEvent(MenuOverlay, tbeOnClick, 'MenuyuAcKapat');

  // Menü Paneli
  MenuPanel = MyForm.AddNewProPanel(MyForm, 'MenuPanel');
  MenuPanel.Align = alRight;
  MenuPanel.Width = 280;
  MenuPanel.Visible = False;
  MenuPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B71C1C'); 
  MenuPanel.SetclProSettings(MenuPanel.clProSettings);

  // Kapat Butonu
  BtnMenuKapat = MyForm.AddNewProButton(MenuPanel, 'BtnMenuKapat', '✕');
  BtnMenuKapat.Align = alTop;
  BtnMenuKapat.Height = 50;
  BtnMenuKapat.Margins.Right = 10;
  BtnMenuKapat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B71C1C');
  BtnMenuKapat.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnMenuKapat.clProSettings.FontSize = 24;
  BtnMenuKapat.clProSettings.FontHorzAlign = palTrailing;
  BtnMenuKapat.SetclProSettings(BtnMenuKapat.clProSettings);
  MyForm.AddNewEvent(BtnMenuKapat, tbeOnClick, 'MenuyuAcKapat');


  // OTOMOBİL BUTONU
  BtnAraba = MyForm.AddNewProButton(MenuPanel, 'BtnAraba', '   Otomobil');
  BtnAraba.Align = alTop;
  BtnAraba.Height = 60;
  BtnAraba.Margins.Top = 5; 
  BtnAraba.Margins.Left = 15; 
  BtnAraba.Margins.Right = 15;
  BtnAraba.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D32F2F');
  BtnAraba.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnAraba.clProSettings.FontSize = 16;
  BtnAraba.clProSettings.IsRound = True; 
  BtnAraba.clProSettings.RoundWidth = 10;
  BtnAraba.clProSettings.FontHorzAlign = palLeading;
  BtnAraba.clProSettings.PictureSource = 'https://cdn-icons-png.flaticon.com/512/3202/3202926.png';
  BtnAraba.SetclProSettings(BtnAraba.clProSettings);
  MyForm.AddNewEvent(BtnAraba, tbeOnClick, 'Menu_Tiklama');

  // MOTOSİKLET BUTONU
  BtnMotor = MyForm.AddNewProButton(MenuPanel, 'BtnMotor', '   Motosiklet');
  BtnMotor.Align = alTop;
  BtnMotor.Height = 60;
  BtnMotor.Margins.Top = 5; 
  BtnMotor.Margins.Left = 15; 
  BtnMotor.Margins.Right = 15;
  BtnMotor.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D32F2F');
  BtnMotor.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnMotor.clProSettings.FontSize = 16;
  BtnMotor.clProSettings.IsRound = True; 
  BtnMotor.clProSettings.RoundWidth = 10;
  BtnMotor.clProSettings.FontHorzAlign = palLeading;
  BtnMotor.clProSettings.PictureSource = 'https://cdn-icons-png.flaticon.com/512/3721/3721619.png';
  BtnMotor.SetclProSettings(BtnMotor.clProSettings);
  MyForm.AddNewEvent(BtnMotor, tbeOnClick, 'Menu_Tiklama');

  // SUV BUTONU
  BtnSUV = MyForm.AddNewProButton(MenuPanel, 'BtnSUV', '   Arazi / SUV');
  BtnSUV.Align = alTop;
  BtnSUV.Height = 60;
  BtnSUV.Margins.Top = 5; 
  BtnSUV.Margins.Left = 15; 
  BtnSUV.Margins.Right = 15;
  BtnSUV.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D32F2F');
  BtnSUV.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnSUV.clProSettings.FontSize = 16;
  BtnSUV.clProSettings.IsRound = True; 
  BtnSUV.clProSettings.RoundWidth = 10;
  BtnSUV.clProSettings.FontHorzAlign = palLeading;
  BtnSUV.clProSettings.PictureSource = ''; // Görsel boş eklersin
  BtnSUV.SetclProSettings(BtnSUV.clProSettings);
  MyForm.AddNewEvent(BtnSUV, tbeOnClick, 'Menu_Tiklama');

  //ELEKTRİKLİ BUTONU
  BtnElektrik = MyForm.AddNewProButton(MenuPanel, 'BtnElektrik', '   Elektrikli');
  BtnElektrik.Align = alTop;
  BtnElektrik.Height = 60;
  BtnElektrik.Margins.Top = 5; 
  BtnElektrik.Margins.Left = 15; 
  BtnElektrik.Margins.Right = 15;
  BtnElektrik.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D32F2F');
  BtnElektrik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnElektrik.clProSettings.FontSize = 16;
  BtnElektrik.clProSettings.IsRound = True; 
  BtnElektrik.clProSettings.RoundWidth = 10;
  BtnElektrik.clProSettings.FontHorzAlign = palLeading;
  BtnElektrik.clProSettings.PictureSource = ''; // görsel boş eklersin
  BtnElektrik.SetclProSettings(BtnElektrik.clProSettings);
  MyForm.AddNewEvent(BtnElektrik, tbeOnClick, 'Menu_Tiklama');


  // ÜST PANEL
  TopPanel = MyForm.AddNewProPanel(MyForm, 'TopPanel');
  TopPanel.Align = alTop;
  TopPanel.Height = 60;
  TopPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  TopPanel.clProSettings.IsTransparent = False;
  TopPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');
  TopPanel.clProSettings.BorderWidth = 1;
  TopPanel.SetclProSettings(TopPanel.clProSettings);

  LogoLayout = MyForm.AddNewProPanel(TopPanel, 'LogoLayout');
  LogoLayout.Align = alLeft;
  LogoLayout.Width = 180;
  LogoLayout.clProSettings.IsTransparent = True;
  LogoLayout.SetclProSettings(LogoLayout.clProSettings);

  LblDot = MyForm.AddNewProLabel(LogoLayout, 'LblDot', '●');
  LblDot.Align = alLeft;
  LblDot.Width = 30;
  LblDot.Margins.Left = 15;
  LblDot.clProSettings.FontColor = clAlphaColor.clHexToColor('#D50000');
  LblDot.clProSettings.FontSize = 24;
  LblDot.SetclProSettings(LblDot.clProSettings);

  LblLogo = MyForm.AddNewProLabel(LogoLayout, 'LblLogo', 'ÇAKIR');
  LblLogo.Align = alClient;
  LblLogo.Margins.Top = 12;
  LblLogo.clProSettings.FontColor = clAlphaColor.clHexToColor('#0D1B2A');
  LblLogo.clProSettings.FontSize = 20;
  LblLogo.clProSettings.TextSettings.Font.Style = [fsBold];
  LblLogo.SetclProSettings(LblLogo.clProSettings);

  BtnMenu = MyForm.AddNewProButton(TopPanel, 'BtnMenu', '☰');
  BtnMenu.Align = alRight;
  BtnMenu.Width = 50;
  BtnMenu.Margins.Right = 10;
  BtnMenu.Margins.Top = 10; BtnMenu.Margins.Bottom = 10;
  BtnMenu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnMenu.clProSettings.FontColor = clAlphaColor.clHexToColor('#333333');
  BtnMenu.clProSettings.FontSize = 24; 
  BtnMenu.SetclProSettings(BtnMenu.clProSettings);
  MyForm.AddNewEvent(BtnMenu, tbeOnClick, 'MenuyuAcKapat');


  // HERO ALANI
  VertScrollBox1 = MyForm.AddNewVertScrollBox(MyForm, 'VertScrollBox1');
  VertScrollBox1.Align = alClient;

  HeroPanel = MyForm.AddNewProPanel(VertScrollBox1, 'HeroPanel');
  HeroPanel.Align = alTop;
  HeroPanel.Height = 500;
  HeroPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1F2235'); 
  HeroPanel.SetclProSettings(HeroPanel.clProSettings);

  HeroTextLayout = MyForm.AddNewProPanel(HeroPanel, 'HeroTextLayout');
  HeroTextLayout.Align = alTop;
  HeroTextLayout.Height = 300;
  HeroTextLayout.Margins.Top = 40;
  HeroTextLayout.Margins.Left = 20;
  HeroTextLayout.Margins.Right = 20;
  HeroTextLayout.clProSettings.IsTransparent = True;
  HeroTextLayout.SetclProSettings(HeroTextLayout.clProSettings);

  LblTitle1 = MyForm.AddNewProLabel(HeroTextLayout, 'LblTitle1', 'Yeni Nesil');
  LblTitle1.Align = alTop; LblTitle1.Height = 40;
  LblTitle1.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  LblTitle1.clProSettings.FontSize = 32; LblTitle1.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle1.SetclProSettings(LblTitle1.clProSettings);

  LblTitle2 = MyForm.AddNewProLabel(HeroTextLayout, 'LblTitle2', 'Araçlarla');
  LblTitle2.Align = alTop; LblTitle2.Height = 40;
  LblTitle2.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  LblTitle2.clProSettings.FontSize = 32; LblTitle2.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle2.SetclProSettings(LblTitle2.clProSettings);

  LblTitle3 = MyForm.AddNewProLabel(HeroTextLayout, 'LblTitle3', 'Geleceği');
  LblTitle3.Align = alTop; LblTitle3.Height = 40;
  LblTitle3.clProSettings.FontColor = clAlphaColor.clHexToColor('#D50000');
  LblTitle3.clProSettings.FontSize = 32; LblTitle3.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle3.SetclProSettings(LblTitle3.clProSettings);

  LblTitle4 = MyForm.AddNewProLabel(HeroTextLayout, 'LblTitle4', 'Yaşayın');
  LblTitle4.Align = alTop; LblTitle4.Height = 40;
  LblTitle4.clProSettings.FontColor = clAlphaColor.clHexToColor('#D50000');
  LblTitle4.clProSettings.FontSize = 32; LblTitle4.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle4.SetclProSettings(LblTitle4.clProSettings);

  LblDesc = MyForm.AddNewProLabel(HeroTextLayout, 'LblDesc', 'ÇAKIR Otomotiv olarak, en son teknoloji ve konforla donatılmış araçlarımızla sizlere hizmet veriyoruz.');
  LblDesc.Align = alTop; LblDesc.Height = 80; LblDesc.Margins.Top = 15;
  LblDesc.clProSettings.FontColor = clAlphaColor.clHexToColor('#B0B0B0');
  LblDesc.clProSettings.FontSize = 14; LblDesc.clProSettings.TextSettings.WordWrap = True;
  LblDesc.SetclProSettings(LblDesc.clProSettings);

  ButtonLayout = MyForm.AddNewProPanel(HeroPanel, 'ButtonLayout');
  ButtonLayout.Align = alTop;
  ButtonLayout.Height = 70;
  ButtonLayout.Margins.Left = 20;
  ButtonLayout.Margins.Right = 20;
  ButtonLayout.clProSettings.IsTransparent = True;
  ButtonLayout.SetclProSettings(ButtonLayout.clProSettings);

  BtnDiscover = MyForm.AddNewProButton(ButtonLayout, 'BtnDiscover', 'Modelleri' + #13#10 + 'Keşfet');
  BtnDiscover.Align = alLeft;
  BtnDiscover.Width = (MyForm.clWidth / 2) - 30;
  BtnDiscover.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D50000');
  BtnDiscover.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnDiscover.clProSettings.FontSize = 14;
  BtnDiscover.clProSettings.IsRound = True; BtnDiscover.clProSettings.RoundWidth = 10;
  BtnDiscover.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnDiscover.SetclProSettings(BtnDiscover.clProSettings);

  BtnTestDrive = MyForm.AddNewProButton(ButtonLayout, 'BtnTestDrive', 'Test' + #13#10 + 'Sürüşü');
  BtnTestDrive.Align = alRight;
  BtnTestDrive.Width = (MyForm.clWidth / 2) - 30;
  BtnTestDrive.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1F2235');
  BtnTestDrive.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnTestDrive.clProSettings.FontSize = 14;
  BtnTestDrive.clProSettings.IsRound = True; BtnTestDrive.clProSettings.RoundWidth = 10;
  BtnTestDrive.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');
  BtnTestDrive.clProSettings.BorderWidth = 1;
  BtnTestDrive.SetclProSettings(BtnTestDrive.clProSettings);


  //ALT İÇERİK 
  ContentPanel = MyForm.AddNewProPanel(VertScrollBox1, 'ContentPanel');
  ContentPanel.Align = alTop;
  ContentPanel.Height = 300;
  ContentPanel.Margins.Top = 30; ContentPanel.Margins.Left = 20; ContentPanel.Margins.Right = 20;
  ContentPanel.clProSettings.IsTransparent = True;
  ContentPanel.SetclProSettings(ContentPanel.clProSettings);

  LblSectionTitle = MyForm.AddNewProLabel(ContentPanel, 'LblSectionTitle', 'Öne Çıkan Modeller');
  LblSectionTitle.Align = alTop; LblSectionTitle.Height = 30;
  LblSectionTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LblSectionTitle.clProSettings.FontSize = 20; LblSectionTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblSectionTitle.SetclProSettings(LblSectionTitle.clProSettings);

  LblSectionDesc = MyForm.AddNewProLabel(ContentPanel, 'LblSectionDesc', 'En popüler ve en yeni araçlarımızı keşfedin');
  LblSectionDesc.Align = alTop; LblSectionDesc.Height = 20; LblSectionDesc.Margins.Top = 5;
  LblSectionDesc.clProSettings.FontColor = clAlphaColor.clHexToColor('#757575');
  LblSectionDesc.clProSettings.FontSize = 14;
  LblSectionDesc.SetclProSettings(LblSectionDesc.clProSettings);

  MyForm.Run;
}

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Mon, 12 Jan 2026 09:45:58 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2791#2791 <![CDATA[otomotiv uygulaması yapmak istiyorum : maile attığım uyulama tasarımını...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2790#2790 Yazar: hako42
Konu: 1254
Gönderim Zamanı: 09 Ocak 2026 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.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;
  }
  
]]> Fri, 09 Jan 2026 18:52:04 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1254&PID=2790#2790