Genel İşlemler - otomotiv uygulaması

Sayfayı Yazdır | Pencereyi Kapat

otomotiv uygulaması

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1261
Tarih: 06 Şubat 2026 Saat 17:42
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: otomotiv uygulaması

Mesajı Yazan: hako42
Konu: otomotiv uygulaması
Mesaj Tarihi: 06 Şubat 2026 Saat 14:02

marka model seçimi yapmak için hangi objeyi kullanacağım https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" rel="nofollow - 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

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Şubat 2026 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ı seninle https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" rel="nofollow - 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">

Mesajı Yazan: hako42
Mesaj Tarihi: 06 Şubat 2026 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" rel="nofollow - 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">

Mesajı Yazan: hako42
Mesaj Tarihi: 06 Şubat 2026 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" rel="nofollow - 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" rel="nofollow - 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 = ' https://png.pngtree.com/png-clipart/20250501/original/pngtree-white-suv-car-isolated-png-image_20918848.png" rel="nofollow - https://png.pngtree.com/png-clipart/20250501/original/pngtree-white-suv-car-isolated-png-image_20918848.png '; // 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,'+ #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

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Şubat 2026 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" rel="nofollow - https://www.docs.clomosy.com/TclScaledLayout
https://www.docs.clomosy.com/TclFlowLayout" rel="nofollow - https://www.docs.clomosy.com/TclFlowLayout
https://www.docs.clomosy.com/TclGridLayout" rel="nofollow - 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.SetImage(testImg, ' https://www.docs.clomosy.com/images/c/c0/ClomosyLogo.png" rel="nofollow - https://www.docs.clomosy.com/images/c/c0/ClomosyLogo.png ');

}

MyForm.Run;

}

örnek olarak incelemeni isterim