Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - otomotiv uygulaması
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

otomotiv uygulaması
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
hako42 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Ocak 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 12 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı hako42 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: otomotiv uygulaması
    Gönderim Zamanı: 12 Saat 2 Dakika Önce Saat 14:02
marka model seçimi yapmak için hangi objeyi kullanacağım 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">
modele tıkladıgımda karşıma araba markaları çıksın istiyorum 
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 526 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Saat 13 Dakika Önce Saat 14:51
Merhaba Hakan, 

Yazdığın kod var mı onun üzerinden gidelim. Neler eklemiz gerektiğini. Yoksa gerekli bileşenleri paylaşayım mı seninlehttps://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">
Yukarı Dön
hako42 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Ocak 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 12 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı hako42 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Saat 6 Dakika Önce Saat 14:58
var
formLogin:TcLForm;
btnLogin:TCLButton;
void GoToMainCode;
{
formLogin.ClHide;
}
{
  formLogin = TCLForm.Create(Self);
  
  btnLogin = formLogin.AddNewButton(formLogin,'btnLogin','Go to Main Code');
  btnLogin.Width = 150;
  formLogin.AddNewEvent(btnLogin,tbeOnClick,'goToMainCode');
  
  formLogin.Run;
}



bu birim kodum 

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">
Yukarı Dön
hako42 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Ocak 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 12 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı hako42 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Saat 5 Dakika Önce Saat 14:59
var
  MyForm: TclForm;
  VertScrollBox1: TclVertScrollBox;
  Unit1:TclUnit;


  //  Ü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;
void goToUnit;
{
Clomosy.RunUnit('uAraba')
}
//  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, 'goToUnit');

  // 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.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,'+ #13#10 + 'en son teknoloji ve konforla donatılmış araçlarımızla'+ #13#10 +'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');
  İçerikPanelininHizalaması = alTop;
  İçerikPanelinin Yüksekliği = 300;
  İçerikPanelinin Üst Kenar Boşlukları = 30; İçerikPanelinin Sol Kenar Boşlukları = 20; İçerikPanelinin Sağ Kenar Boşlukları = 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ı kiralamak');
  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.Çalıştır;
}
       



buda ana kod

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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 526 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 9 Saat 17 Dakika Önce Saat 16:47
Merhaba Hakan,
Bir form içerisine tek tek panel, buton veya Img ekleme işlemi tasarım da biraz uğraştırıcı olabiliyor. 
Paylaştığım bileşenle bu çok daha kolay olabilir, 
https://www.docs.clomosy.com/TclScaledLayout
https://www.docs.clomosy.com/TclFlowLayout
https://www.docs.clomosy.com/TclGridLayout
Bu 3 bileşeni inceleyip tek tek örnek kodlarını çalıştırıp bir denemeni göz atmanı isterim. 


var    
   MyForm:TclForm;
   FlowLayout:TclFlowLayout;
   testImg:TclImage; 
   I:Integer;
 {
   MyForm=TclForm.Create(self);
    
   FlowLayout = MyForm.AddNewFlowLayout(MyForm,'FlowLayout');
   FlowLayout.Align = alClient;
   FlowLayout.JustifyText='Justify';
   FlowLayout.JustifyLastLineText='center';
   FlowLayout.FlowDirectionText='RightToLeft';
   FlowLayout.HorizontalGap = 7;
   FlowLayout.VerticalGap = 5;
   
   for (I = 0 to 10) {
     testImg = MyForm.AddNewImage(FlowLayout, 'testImg'+IntToStr(I));
     
     testImg.Height = 100; 
     testImg.Width = 100;
     
   }
   
   MyForm.Run;
 } 


örnek olarak incelemeni isterim


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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.