Merhaba Berra, yazmış olduğunuz kod gayet güzel. Fakat bir kaç eksik/yanlış bulunmakta. "ısŞifre" yanlış bir özellik olup, aynı zamanda Türkçe harflerden dolayı yanlıştır.
Koyduğunuz fotoğraflar açılmadığından dolayı onları yorum satırına aldım, ve böylece kodunuz çalışır hale geldi. Size şimdi teslim edeceğim kodda yapmanız gereken tek şey resimleri desteklenen bir linkle değiştirmek.
İlerleyen zamanlarınızda lütfen aldığınız hataları/bizden istediğiniz şeyi belirtmeyi unutmayın. Teşekkür ederiz.
var Form1: TclForm;
// --- GİRİŞ EKRANI BİLEŞENLERİ --- PnlGiris: TclProPanel; ImgGirisLogo: TclProImage; LblGirisBaslik, LblKullanici, LblSifre, LblGirisHata: TclProLabel; EdtKullanici, EdtSifre: TclProEdit; BtnGirisYap: TclProButton;
// --- DENEY EKRANI BİLEŞENLERİ --- PnlDeney: TclProPanel; PnlUst, PnlIndikator, PnlMaddeler: TclProPanel; LblBaslik, LblIndikatorDurum, LblSonuc: TclProLabel;
// Maddelerin Satır Panelleri (Resim ve Butonları Yan Yana Tutmak İçin) PnlLimonRow, PnlSirkeRow, PnlTuzRuhuRow, PnlDisMacunuRow, PnlKarbonatRow, PnlSabunRow: TclProPanel;
// Madde Butonları BtnLimon, BtnSirke, BtnTuzRuhu, BtnDisMacunu, BtnKarbonat, BtnSabun: TclProButton;
// Madde Görselleri ImgLimon, ImgSirke, ImgTuzRuhu, ImgDisMacunu, ImgKarbonat, ImgSabun: TclProImage;
/* STREAMING_CHUNK: GİRİŞ YAPMA VE SİSTEM DOĞRULAMA FONKSİYONU */ void OnGirisYap; { // Kullanıcı adı ve şifre kontrolü if ((EdtKullanici.Text == 'ogrenci') && (EdtSifre.Text == '1234')) { PnlGiris.Visible = False; PnlDeney.Visible = True; } else { LblGirisHata.Text = 'Hatalı Giriş! (Kullanıcı: ogrenci, Şifre: 1234)'; LblGirisHata.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C'); LblGirisHata.SetclProSettings(LblGirisHata.clProSettings); } }
/* STREAMING_CHUNK: REAKSİYON VE RENK DEĞİŞİM FONKSİYONU */ void OnMaddeEklendi; var SecilenMadde: TclProButton; { SecilenMadde = TclProButton(Form1.clSender);
// EĞER SEÇİLEN MADDE ASİT İSE (Etiketi 1 ise) if (SecilenMadde.clTagInt == 1) { PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E84393'); // Pembe/Kırmızı Tonu LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi'; LblSonuc.Text = 'SONUÇ: Asit algılandı! Kırmızı lahana suyu kırmızı/pembe renge dönüştü.'; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#E84393'); } // EĞER SEÇİLEN MADDE BAZ İSE (Etiketi 2 ise) else if (SecilenMadde.clTagInt == 2) { PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00B894'); // Yeşil/Mavi Tonu LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi'; LblSonuc.Text = 'SONUÇ: Baz algılandı! Kırmızı lahana suyu mavi/yeşil renge dönüştü.'; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#00B894'); }
PnlIndikator.SetclProSettings(PnlIndikator.clProSettings); LblSonuc.SetclProSettings(LblSonuc.clProSettings); }
{ Form1 = TclForm.Create(Self); Form1.SetFormColor('#1E272E', '', clGNone);
/* STREAMING_CHUNK: GİRİŞ EKRANI PANEL VE LOGO YAPILANDIRMASI */ PnlGiris = Form1.AddNewProPanel(Form1, 'PnlGiris'); PnlGiris.Align = alClient; PnlGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E'); PnlGiris.SetclProSettings(PnlGiris.clProSettings);
// Kimya Laboratuvarı Logo Görseli ImgGirisLogo = Form1.AddNewProImage(PnlGiris, 'ImgGirisLogo'); ImgGirisLogo.Align = alTop; ImgGirisLogo.Height = 130; ImgGirisLogo.Margins.Top = 40; ImgGirisLogo.Margins.Left = 80; ImgGirisLogo.Margins.Right = 80; //Form1.SetImage(ImgGirisLogo, ' https://images.unsplash.com/photo-1507413245164-6160d8298b31?w=250&fit=crop&q=80" rel="nofollow - https://images.unsplash.com/photo-1507413245164-6160d8298b31?w=250&fit=crop&q=80 ');
LblGirisBaslik = Form1.AddNewProLabel(PnlGiris, 'LblGirisBaslik', 'Sanal Kimya Portalı'); LblGirisBaslik.Align = alTop; LblGirisBaslik.Height = 40; LblGirisBaslik.Margins.Top = 15; LblGirisBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblGirisBaslik.clProSettings.FontSize = 20; LblGirisBaslik.clProSettings.FontHorzAlign = palCenter; LblGirisBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblGirisBaslik.SetclProSettings(LblGirisBaslik.clProSettings);
/* STREAMING_CHUNK: GİRİŞ BİLGİLERİ GİRİŞ ALANLARI */ // Kullanıcı Adı Girişi LblKullanici = Form1.AddNewProLabel(PnlGiris, 'LblKullanici', 'Kullanıcı Adı: (ogrenci)'); LblKullanici.Align = alTop; LblKullanici.Height = 20; LblKullanici.Margins.Left = 40; LblKullanici.Margins.Top = 20; LblKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E'); LblKullanici.SetclProSettings(LblKullanici.clProSettings);
// Edit kutuları için 3 parametreli güvenli metod kullanılmıştır EdtKullanici = Form1.AddNewProEdit(PnlGiris, 'EdtKullanici', 'Kullanıcı adınızı yazınız...'); EdtKullanici.Align = alTop; EdtKullanici.Height = 40; EdtKullanici.Margins.Left = 40; EdtKullanici.Margins.Right = 40; EdtKullanici.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); EdtKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); EdtKullanici.clProSettings.RoundHeight = 10; EdtKullanici.clProSettings.RoundWidth = 10; EdtKullanici.SetclProSettings(EdtKullanici.clProSettings);
// Şifre Girişi LblSifre = Form1.AddNewProLabel(PnlGiris, 'LblSifre', 'Şifre: (1234)'); LblSifre.Align = alTop; LblSifre.Height = 20; LblSifre.Margins.Left = 40; LblSifre.Margins.Top = 10; LblSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E'); LblSifre.SetclProSettings(LblSifre.clProSettings);
EdtSifre = Form1.AddNewProEdit(PnlGiris, 'EdtSifre', 'Şifrenizi yazınız...'); EdtSifre.Align = alTop; EdtSifre.Height = 40; EdtSifre.Margins.Left = 40; EdtSifre.Margins.Right = 40; EdtSifre.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); EdtSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); EdtSifre.clProSettings.RoundHeight = 10; EdtSifre.clProSettings.RoundWidth = 10; EdtSifre.Password = True; EdtSifre.SetclProSettings(EdtSifre.clProSettings);
// Hata Mesajı Alanı LblGirisHata = Form1.AddNewProLabel(PnlGiris, 'LblGirisHata', ''); LblGirisHata.Align = alTop; LblGirisHata.Height = 25; LblGirisHata.Margins.Top = 10; LblGirisHata.clProSettings.FontHorzAlign = palCenter; LblGirisHata.clProSettings.FontSize = 11; LblGirisHata.SetclProSettings(LblGirisHata.clProSettings);
// Giriş Butonu BtnGirisYap = Form1.AddNewProButton(PnlGiris, 'BtnGirisYap', 'Sisteme Bağlan 🧪'); BtnGirisYap.Align = alTop; BtnGirisYap.Height = 45; BtnGirisYap.Margins.Left = 40; BtnGirisYap.Margins.Right = 40; BtnGirisYap.Margins.Top = 5; BtnGirisYap.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); BtnGirisYap.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnGirisYap.clProSettings.RoundHeight = 12; BtnGirisYap.clProSettings.RoundWidth = 12; BtnGirisYap.clProSettings.TextSettings.Font.Style = [fsBold]; BtnGirisYap.SetclProSettings(BtnGirisYap.clProSettings); Form1.AddNewEvent(BtnGirisYap, tbeOnClick, 'OnGirisYap');
/* STREAMING_CHUNK: DENEY EKRANI ANA PANEL YAPILANDIRMASI */ PnlDeney = Form1.AddNewProPanel(Form1, 'PnlDeney'); PnlDeney.Align = alClient; PnlDeney.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E'); PnlDeney.SetclProSettings(PnlDeney.clProSettings); PnlDeney.Visible = False; // Giriş yapılmadan önce gizlenir
// --- ÜST BAŞLIK --- PnlUst = Form1.AddNewProPanel(PnlDeney, 'PnlUst'); PnlUst.Align = alTop; PnlUst.Height = 55; PnlUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); PnlUst.SetclProSettings(PnlUst.clProSettings);
LblBaslik = Form1.AddNewProLabel(PnlUst, 'LblBaslik', '🧪 Doğal İndikatör Deneyi'); LblBaslik.Align = alClient; LblBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblBaslik.clProSettings.FontSize = 16; LblBaslik.clProSettings.FontHorzAlign = palCenter; LblBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblBaslik.SetclProSettings(LblBaslik.clProSettings);
// --- İNDİKATÖR KABI (Kırmızı Lahana Suyu) --- PnlIndikator = Form1.AddNewProPanel(PnlDeney, 'PnlIndikator'); PnlIndikator.Align = alTop; PnlIndikator.Height = 120; PnlIndikator.Margins.Top = 15; PnlIndikator.Margins.Left = 40; PnlIndikator.Margins.Right = 40; PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); // Doğal Mor PnlIndikator.clProSettings.RoundHeight = 20; PnlIndikator.clProSettings.RoundWidth = 20; PnlIndikator.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF'); PnlIndikator.clProSettings.BorderWidth = 2; PnlIndikator.SetclProSettings(PnlIndikator.clProSettings);
LblIndikatorDurum = Form1.AddNewProLabel(PnlIndikator, 'LblIndikatorDurum', 'Saf Kırmızı Lahana Suyu (pH 7)'); LblIndikatorDurum.Align = alClient; LblIndikatorDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblIndikatorDurum.clProSettings.FontSize = 14; LblIndikatorDurum.clProSettings.FontHorzAlign = palCenter; LblIndikatorDurum.SetclProSettings(LblIndikatorDurum.clProSettings);
// --- SONUÇ BİLGİ EKRANI --- LblSonuc = Form1.AddNewProLabel(PnlDeney, 'LblSonuc', 'Aşağıdaki raf görsellerine dokunarak madde ekleyin.'); LblSonuc.Align = alTop; LblSonuc.Height = 50; LblSonuc.Margins.Top = 10; LblSonuc.Margins.Left = 20; LblSonuc.Margins.Right = 20; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#DCDDE1'); LblSonuc.clProSettings.FontSize = 12; LblSonuc.clProSettings.FontHorzAlign = palCenter; LblSonuc.clProSettings.TextSettings.WordWrap = True; LblSonuc.SetclProSettings(LblSonuc.clProSettings);
// --- MADDELER PANELİ (KAYDIRILABİLİR İÇERİK RAFİ) --- PnlMaddeler = Form1.AddNewProPanel(PnlDeney, 'PnlMaddeler'); PnlMaddeler.Align = alClient; PnlMaddeler.Margins.Top = 5; PnlMaddeler.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlMaddeler.SetclProSettings(PnlMaddeler.clProSettings);
/* STREAMING_CHUNK: ASİT MATERYALLERİ VE GÖRSELLERİ */
// --- 1. LİMON SUYU SATIRI --- PnlLimonRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlLimonRow'); PnlLimonRow.Align = alTop; PnlLimonRow.Height = 50; PnlLimonRow.Margins.Bottom = 8; PnlLimonRow.Margins.Left = 20; PnlLimonRow.Margins.Right = 20; PnlLimonRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlLimonRow.SetclProSettings(PnlLimonRow.clProSettings);
ImgLimon = Form1.AddNewProImage(PnlLimonRow, 'ImgLimon'); ImgLimon.Align = alLeft; ImgLimon.Width = 50; ImgLimon.Margins.Right = 10; //Form1.SetImage(ImgLimon, ' https://images.unsplash.com/photo-1590502593747-42a996133562?w=80&fit=crop&q=60" rel="nofollow - https://images.unsplash.com/photo-1590502593747-42a996133562?w=80&fit=crop&q=60 ');
BtnLimon = Form1.AddNewProButton(PnlLimonRow, 'BtnLimon', '🍋 Limon Suyu (Asit)'); BtnLimon.Align = alClient; BtnLimon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1C40F'); BtnLimon.clProSettings.RoundHeight = 10; BtnLimon.clProSettings.RoundWidth = 10; BtnLimon.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); BtnLimon.SetclProSettings(BtnLimon.clProSettings); BtnLimon.clTagInt = 1; Form1.AddNewEvent(BtnLimon, tbeOnClick, 'OnMaddeEklendi');
// --- 2. SİRKE SATIRI --- PnlSirkeRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSirkeRow'); PnlSirkeRow.Align = alTop; PnlSirkeRow.Height = 50; PnlSirkeRow.Margins.Bottom = 8; PnlSirkeRow.Margins.Left = 20; PnlSirkeRow.Margins.Right = 20; PnlSirkeRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSirkeRow.SetclProSettings(PnlSirkeRow.clProSettings);
ImgSirke = Form1.AddNewProImage(PnlSirkeRow, 'ImgSirke'); ImgSirke.Align = alLeft; ImgSirke.Width = 50; ImgSirke.Margins.Right = 10; //Form1.SetImage(ImgSirke, ' https://images.unsplash.com/photo-1622484211148-716598e04141?w=80&fit=crop&q=60" rel="nofollow - https://images.unsplash.com/photo-1622484211148-716598e04141?w=80&fit=crop&q=60 ');
BtnSirke = Form1.AddNewProButton(PnlSirkeRow, 'BtnSirke', '🍾 Sirke (Asit)'); BtnSirke.Align = alClient; BtnSirke.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E67E22'); BtnSirke.clProSettings.RoundHeight = 10; BtnSirke.clProSettings.RoundWidth = 10; BtnSirke.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); BtnSirke.SetclProSettings(BtnSirke.clProSettings); BtnSirke.clTagInt = 1; Form1.AddNewEvent(BtnSirke, tbeOnClick, 'OnMaddeEklendi');
// --- 3. TUZ RUHU SATIRI --- PnlTuzRuhuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlTuzRuhuRow'); PnlTuzRuhuRow.Align = alTop; PnlTuzRuhuRow.Height = 50; PnlTuzRuhuRow.Margins.Bottom = 15; PnlTuzRuhuRow.Margins.Left = 20; PnlTuzRuhuRow.Margins.Right = 20; PnlTuzRuhuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlTuzRuhuRow.SetclProSettings(PnlTuzRuhuRow.clProSettings);
ImgTuzRuhu = Form1.AddNewProImage(PnlTuzRuhuRow, 'ImgTuzRuhu'); ImgTuzRuhu.Align = alLeft; ImgTuzRuhu.Width = 50; ImgTuzRuhu.Margins.Right = 10; //Form1.SetImage(ImgTuzRuhu, ' https://images.unsplash.com/photo-1603126857599-f6e157fa2fe6?w=80&fit=crop&q=60" rel="nofollow - https://images.unsplash.com/photo-1603126857599-f6e157fa2fe6?w=80&fit=crop&q=60 ');
BtnTuzRuhu = Form1.AddNewProButton(PnlTuzRuhuRow, 'BtnTuzRuhu', '☠️ Tuz Ruhu (Kuvvetli Asit)'); BtnTuzRuhu.Align = alClient; BtnTuzRuhu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); BtnTuzRuhu.clProSettings.RoundHeight = 10; BtnTuzRuhu.clProSettings.RoundWidth = 10; BtnTuzRuhu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnTuzRuhu.SetclProSettings(BtnTuzRuhu.clProSettings); BtnTuzRuhu.clTagInt = 1; Form1.AddNewEvent(BtnTuzRuhu, tbeOnClick, 'OnMaddeEklendi');
/* STREAMING_CHUNK: BAZ MATERYALLERİ VE GÖRSELLERİ */
// --- 4. DİŞ MACUNU SATIRI --- PnlDisMacunuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlDisMacunuRow'); PnlDisMacunuRow.Align = alTop; PnlDisMacunuRow.Height = 50; PnlDisMacunuRow.Margins.Bottom = 8; PnlDisMacunuRow.Margins.Left = 20; PnlDisMacunuRow.Margins.Right = 20; PnlDisMacunuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlDisMacunuRow.SetclProSettings(PnlDisMacunuRow.clProSettings);
ImgDisMacunu = Form1.AddNewProImage(PnlDisMacunuRow, 'ImgDisMacunu'); ImgDisMacunu.Align = alLeft; ImgDisMacunu.Width = 50; ImgDisMacunu.Margins.Right = 10; //Form1.SetImage(ImgDisMacunu, ' https://images.unsplash.com/photo-1559599189-fe84dea4eb79?w=80&fit=crop&q=60" rel="nofollow - https://images.unsplash.com/photo-1559599189-fe84dea4eb79?w=80&fit=crop&q=60 ');
BtnDisMacunu = Form1.AddNewProButton(PnlDisMacunuRow, 'BtnDisMacunu', '🪥 Diş Macunu (Baz)'); BtnDisMacunu.Align = alClient; BtnDisMacunu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498DB'); BtnDisMacunu.clProSettings.RoundHeight = 10; BtnDisMacunu.clProSettings.RoundWidth = 10; BtnDisMacunu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnDisMacunu.SetclProSettings(BtnDisMacunu.clProSettings); BtnDisMacunu.clTagInt = 2; Form1.AddNewEvent(BtnDisMacunu, tbeOnClick, 'OnMaddeEklendi');
// --- 5. KARBONAT SATIRI --- PnlKarbonatRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlKarbonatRow'); PnlKarbonatRow.Align = alTop; PnlKarbonatRow.Height = 50; PnlKarbonatRow.Margins.Bottom = 8; PnlKarbonatRow.Margins.Left = 20; PnlKarbonatRow.Margins.Right = 20; PnlKarbonatRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlKarbonatRow.SetclProSettings(PnlKarbonatRow.clProSettings);
ImgKarbonat = Form1.AddNewProImage(PnlKarbonatRow, 'ImgKarbonat'); ImgKarbonat.Align = alLeft; ImgKarbonat.Width = 50; ImgKarbonat.Margins.Right = 10; //Form1.SetImage(ImgKarbonat, ' https://images.unsplash.com/photo-1553530666-ba11a7da3888?w=80&fit=crop&q=60" rel="nofollow - https://images.unsplash.com/photo-1553530666-ba11a7da3888?w=80&fit=crop&q=60 ');
BtnKarbonat = Form1.AddNewProButton(PnlKarbonatRow, 'BtnKarbonat', '🫧 Karbonatlı Su (Baz)'); BtnKarbonat.Align = alClient; BtnKarbonat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#9B59B6'); BtnKarbonat.clProSettings.RoundHeight = 10; BtnKarbonat.clProSettings.RoundWidth = 10; BtnKarbonat.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnKarbonat.SetclProSettings(BtnKarbonat.clProSettings); BtnKarbonat.clTagInt = 2; Form1.AddNewEvent(BtnKarbonat, tbeOnClick, 'OnMaddeEklendi');
// --- 6. SABUNLU SU SATIRI --- PnlSabunRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSabunRow'); PnlSabunRow.Align = alTop; PnlSabunRow.Height = 50; PnlSabunRow.Margins.Bottom = 8; PnlSabunRow.Margins.Left = 20; PnlSabunRow.Margins.Right = 20; PnlSabunRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSabunRow.SetclProSettings(PnlSabunRow.clProSettings);
ImgSabun = Form1.AddNewProImage(PnlSabunRow, 'ImgSabun'); ImgSabun.Align = alLeft; ImgSabun.Width = 50; ImgSabun.Margins.Right = 10; //Form1.SetImage(ImgSabun, ' https://images.unsplash.com/photo-1607006342411-9c145e227b47?w=80&fit=crop&q=60" rel="nofollow - https://images.unsplash.com/photo-1607006342411-9c145e227b47?w=80&fit=crop&q=60 ');
BtnSabun = Form1.AddNewProButton(PnlSabunRow, 'BtnSabun', '🧼 Sabunlu Su (Baz)'); BtnSabun.Align = alClient; BtnSabun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1ABC9C'); BtnSabun.clProSettings.RoundHeight = 10; BtnSabun.clProSettings.RoundWidth = 10; BtnSabun.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnSabun.SetclProSettings(BtnSabun.clProSettings); BtnSabun.clTagInt = 2; Form1.AddNewEvent(BtnSabun, tbeOnClick, 'OnMaddeEklendi');
Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">
|