|
| 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. |
Runtime error |
Yanıt Yaz 
|
| Yazar | |
vesile 
Yeni Üye 
Kayıt Tarihi: 29 Haziran 2026 Durum: Aktif Değil Puanlar: 6 |
 Mesaj Seçenekleri
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: Runtime errorGönderim Zamanı: 4 Saat 24 Dakika Önce Saat 14:24 |
|
var LoginForm, RegisterForm : TclForm;
lblBaslik, lblRegTitle : TclLabel;
edtKullanici, edtSifre : TclEdit;
edtRegName, edtRegEmail, edtRegPass : TclEdit;
btnGiris, btnGoRegister, btnRegSave, btnRegBack : TclButton;
image : TCLImage;
clQuery : TclSqlQuery;
// geçişler
void KayitEkraninaGec;
{
RegisterForm.Run;
}
void GirisEkraninaDon;
{
RegisterForm.Close;
}
// giriş
void GirisYap;
{
if( (edtKullanici.Text == '') || (edtSifre.Text == '') )
{
ShowMessage('Lütfen alanları doldurun.');
}
else
{
clQuery.Connection = Clomosy.DBSQLServerConnection ;
clQuery.SQL.Text = 'SELECT * FROM Kullanicilar WHERE kullanici_adi = ''' + edtKullanici.Text + ''' AND sifre = ''' + edtSifre.Text + '''';
clQuery.Open;
if (clQuery.RecordCount > 0)
{
ShowMessage('Giriş Başarılı!');
}
else
{
ShowMessage('Hatalı Bilgi!');
}
}
}
// kayit ol
void KaydiTamamla;
{
if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == ''))
{
ShowMessage('Tüm alanları doldurun.');
}
else
{
clQuery.Connection = Clomosy.DBSQLServerConnection ;
clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (''' + edtRegEmail.Text + ''', ''' + edtRegName.Text + ''', ''' + edtRegEmail.Text + ''', ''' + edtRegPass.Text + ''')';
clQuery.Execute('', '');
ShowMessage('Kayıt Başarılı!');
RegisterForm.Close;
}
}
{
clQuery = TclSqlQuery.Create(Self);
// giriş ekranı
LoginForm = TclForm.Create(Self);
LoginForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);
image = LoginForm.AddNewImage(LoginForm, 'image');
LoginForm.SetImage(image, 'https://marketplace.canva.com/mUZOo/MAFRRlmUZOo/1/tl/canva-MAFRRlmUZOo.png');
image.Height = 400;
image.Width = 140;
lblBaslik = LoginForm.AddNewLabel(LoginForm, 'lblBaslik', 'KULLANICI GİRİŞİ');
lblBaslik.Align = alTop;
lblBaslik.Height = 25;
lblBaslik.Margins.Top = 50;
lblBaslik.Margins.Left = 125;
edtKullanici = LoginForm.AddNewEdit(LoginForm, 'edtKullanici', 'Kullanıcı Adı');
edtKullanici.Align = alTop;
edtKullanici.Height = 45;
edtKullanici.Margins.Top = 80;
edtKullanici.Margins.Left = 40;
edtKullanici.Margins.Right = 40;
edtSifre = LoginForm.AddNewEdit(LoginForm, 'edtSifre', 'Şifre');
edtSifre.Align = alTop;
edtSifre.Height = 45;
edtSifre.Margins.Top = 15;
edtSifre.Margins.Left = 40;
edtSifre.Margins.Right = 40;
btnGiris = LoginForm.AddNewButton(LoginForm, 'btnGiris', 'GİRİŞ YAP');
btnGiris.Align = alTop;
btnGiris.Height = 50;
btnGiris.Margins.Top = 30;
btnGiris.Margins.Left = 40;
btnGiris.Margins.Right = 40;
LoginForm.AddNewEvent(btnGiris, tbeOnClick, 'GirisYap');
btnGoRegister = LoginForm.AddNewButton(LoginForm, 'btnGoRegister', 'Hesabınız yok mu? Kayıt Ol');
btnGoRegister.Align = alTop;
btnGoRegister.Height = 50;
btnGoRegister.Margins.Top = 25;
btnGoRegister.Margins.Left = 30;
btnGoRegister.Margins.Right = 30;
LoginForm.AddNewEvent(btnGoRegister, tbeOnClick, 'KayitEkraninaGec');
// kayit ekranı
RegisterForm = TclForm.Create(Self);
RegisterForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);
lblRegTitle = RegisterForm.AddNewLabel(RegisterForm, 'lblRegTitle', 'YENİ HESAP OLUŞTUR');
lblRegTitle.Align = alTop;
lblRegTitle.Height = 40;
lblRegTitle.Margins.Top = 60;
lblRegTitle.TextSettings.HorzAlign = taCenter;
edtRegName = RegisterForm.AddNewEdit(RegisterForm, 'edtRegName', 'Adınız Soyadınız');
edtRegName.Align = alTop;
edtRegName.Height = 45;
edtRegName.Margins.Top = 30;
edtRegName.Margins.Left = 40;
edtRegName.Margins.Right = 40;
edtRegEmail = RegisterForm.AddNewEdit(RegisterForm, 'edtRegEmail', 'E-posta Adresi');
edtRegEmail.Align = alTop;
edtRegEmail.Height = 45;
edtRegEmail.Margins.Top = 15;
edtRegEmail.Margins.Left = 40;
edtRegEmail.Margins.Right = 40;
edtRegPass = RegisterForm.AddNewEdit(RegisterForm, 'edtRegPass', 'Şifre');
edtRegPass.Align = alTop;
edtRegPass.Height = 45;
edtRegPass.Margins.Top = 15;
edtRegPass.Margins.Left = 40;
edtRegPass.Margins.Right = 40;
btnRegSave = RegisterForm.AddNewButton(RegisterForm, 'btnRegSave', 'KAYIT İŞLEMİNİ TAMAMLA');
btnRegSave.Align = alTop;
btnRegSave.Height = 50;
btnRegSave.Margins.Top = 30;
btnRegSave.Margins.Left = 40;
btnRegSave.Margins.Right = 40;
RegisterForm.AddNewEvent(btnRegSave, tbeOnClick, 'KaydiTamamla');
btnRegBack = RegisterForm.AddNewButton(RegisterForm, 'btnRegBack', 'Geri Dön');
btnRegBack.Align = alTop;
btnRegBack.Height = 40;
btnRegBack.Margins.Top = 15;
btnRegBack.Margins.Left = 40;
btnRegBack.Margins.Right = 40;
RegisterForm.AddNewEvent(btnRegBack, tbeOnClick, 'GirisEkraninaDon');
LoginForm.Run;
} RUNTIME ERROR File library Main: Invalid class typecast when evaluating instruction CallProc ($FFFFFFFF,$2,$18AA270,$0,'Execute'). Stack content is: [1657413993536,1657327249968,1657417198752,1657417196768...]. Source position: 57,28 Position: 57, 28 |
|
|
vesile
|
|
 |
|
|
Emr.Erkmn
Moderatör 
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 945 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 4 Saat 3 Dakika Önce Saat 14:45 |
|
Merhaba Vesile
OpenOrExecute olarak dener misin?https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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"> |
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 945 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 3 Saat 40 Dakika Önce Saat 15:08 |
|
ilgili prosedürü bu şekil de günceller misin
void KaydiTamamla; { if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == '')) { ShowMessage('Tüm alanları doldurun.'); } else { clQuery.Connection = Clomosy.DBSQLServerConnection; clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (''' + edtRegEmail.Text + ''', ''' + edtRegName.Text + ''', ''' + edtRegEmail.Text + ''', ''' + edtRegPass.Text + ''')'; clQuery.Execute; ShowMessage('Kayıt Başarılı!'); RegisterForm.Close; } } https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 945 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 2 Saat 45 Dakika Önce Saat 16:03 |
|
merhaba Kayra
ilgili prosedürleri düzenler misin ubakımda void BtnKaydetClick; var KayitDosyasi: TclStringList; DosyaYolu, YeniKayit, LTarih, LAy, LYil: String; { if (EdtBelgeNo.Text == '') { ShowMessage(GetText('MSG_BELGE_NO_GIRIN')); } else { DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath); KayitDosyasi = Clomosy.StringListNew; if (clFileExists(DosyaYolu, '')) { KayitDosyasi.LoadFromFile(DosyaYolu, 0); } LTarih = DateToStr(Now); LAy = Copy(LTarih, 4, 2); LYil = Copy(LTarih, 7, 4); YeniKayit = EdtBelgeNo.Text + '|' + EdtMakineKodu.Text + '|' + CmbBakimTipi.Text + '|' + CmbPlanlananBitis.Text + '|' + CmbBakimTuru.Text + '|' + LAy + '|' + LYil + '|' + CmbPlanlananBitis.Text; KayitDosyasi.Add(YeniKayit); KayitDosyasi.SaveToFile(DosyaYolu, 0); ShowMessage(GetText('MSG_KAYIT_BASARILI') + #13#10 + GetText('MSG_EKLENEN_VERI') + YeniKayit); KayitDosyasi.Free; FormuTemizle; } } ufiltre birimini de var FormFiltre: TclGameForm; PnlNavBar, PnlMainCard, PnlFilterButtons, PnlListHost: TclProPanel; GrpPeriyot, GrpAy, GrpYil: TclProPanel; BtnBack, BtnUygula, BtnTemizle: TclProButton; LblTitle, LblTitleFilter, LblTitleList, LblPeriyot, LblAy, LblYil, LblEmpty: TclProLabel; CmbPeriyot, CmbAy, CmbYil: TclComboBox; ScrollForm: TclVertScrollBox; CardPanel: array [0..50] of TclProPanel; CardTitle: array [0..50] of TclProLabel; CardDetail: array [0..50] of TclProLabel; KayitBelgeNo: array [0..50] of String; KayitMakine: array [0..50] of String; KayitTip: array [0..50] of String; KayitPlanlanan: array [0..50] of String; KayitDurum: array [0..50] of String; KayitAy: array [0..50] of String; KayitYil: array [0..50] of String; KayitPeriyot: array [0..50] of String; KayitCount, TmpIndex, TmpVisibleCount, TmpYear: Integer; UiFontSize: Integer; ThemeKoyuRenk, ThemeAcikRenk, ThemeBorderColor: String; OkunanUyariRengi, OkunanYaziRengi, OkunanKartRengi, OkunanZeminRengi, OkunanFontAdi: String; OkunanTemaIndex, OkunanBoyutIndex, OkunanStilIndex, OkunanHizaIndex: Integer; GlobalAktifDilIndex: Integer; function GetText(Key: String): String; var TKey: String; { TKey = Trim(Key); Result = TKey; if (GlobalAktifDilIndex == 1) { if (TKey == 'FORM_TITLE') { Result = 'Filters and Records'; } else if (TKey == 'SEC_FILTER') { Result = 'FILTERING'; } else if (TKey == 'SEC_RESULTS') { Result = 'RESULTS'; } else if (TKey == 'LBL_PERIYOT') { Result = 'Period:'; } else if (TKey == 'LBL_AY') { Result = 'Month:'; } else if (TKey == 'LBL_YIL') { Result = 'Year:'; } else if (TKey == 'BTN_APPLY') { Result = ' Filter'; } else if (TKey == 'BTN_CLEAR') { Result = 'Clear'; } else if (TKey == 'MSG_EMPTY') { Result = 'No maintenance records found.'; } else if (TKey == 'ALL') { Result = 'All'; } else if (TKey == 'DAILY') { Result = 'Daily'; } else if (TKey == 'WEEKLY') { Result = 'Weekly'; } else if (TKey == 'MONTHLY') { Result = 'Monthly'; } else if (TKey == 'CARD_PERIYOT') { Result = 'Period: '; } else if (TKey == 'CARD_TYPE') { Result = 'Maint. Type: '; } else if (TKey == 'LBL_TARIH') { Result = 'Date: '; } else if (TKey == 'CARD_STATUS') { Result = 'Is Maint. Done?: '; } else if (TKey == 'BAKIM_YAPILDI') { Result = 'Yes (Completed)'; } else if (TKey == 'BAKIM_YAPILMADI') { Result = 'No (Pending)'; } else if (TKey == 'Mekanik') { Result = 'Mechanical'; } else if (TKey == 'Elektrik') { Result = 'Electrical'; } } else { if (TKey == 'FORM_TITLE') { Result = 'Filtre ve Kayıtlar'; } else if (TKey == 'SEC_FILTER') { Result = 'FİLTRELEME'; } else if (TKey == 'SEC_RESULTS') { Result = 'SONUÇLAR'; } else if (TKey == 'LBL_PERIYOT') { Result = 'Periyot:'; } else if (TKey == 'LBL_AY') { Result = 'Ay:'; } else if (TKey == 'LBL_YIL') { Result = 'Yıl:'; } else if (TKey == 'BTN_APPLY') { Result = ' Filtrele'; } else if (TKey == 'BTN_CLEAR') { Result = 'Temizle'; } else if (TKey == 'MSG_EMPTY') { Result = 'Kriterlere uygun bakım kaydı bulunamadı.'; } else if (TKey == 'ALL') { Result = 'Tümü'; } else if (TKey == 'DAILY') { Result = 'Günlük'; } else if (TKey == 'WEEKLY') { Result = 'Haftalık'; } else if (TKey == 'MONTHLY') { Result = 'Aylık'; } else if (TKey == 'CARD_PERIYOT') { Result = 'Periyot: '; } else if (TKey == 'CARD_TYPE') { Result = 'Bakım Tipi: '; } else if (TKey == 'LBL_TARIH') { Result = 'Tarih: '; } else if (TKey == 'CARD_STATUS') { Result = 'Bakım Yapıldı Mi?: '; } else if (TKey == 'BAKIM_YAPILDI') { Result = 'Evet (Tamamlandı)'; } else if (TKey == 'BAKIM_YAPILMADI') { Result = 'Hayır (Bekliyor)'; } else if (TKey == 'Mekanik') { Result = 'Mekanik'; } else if (TKey == 'Elektrik') { Result = 'Elektrik'; } } } void AyarDosyasindanTemayiYukle(TemaIndex: Integer); { ThemeBorderColor = '#CBD5E1'; if (TemaIndex == 0) { ThemeKoyuRenk = '#334155'; ThemeAcikRenk = '#94A3B8'; } else if (TemaIndex == 1) { ThemeKoyuRenk = '#111827'; ThemeAcikRenk = '#2563EB'; } else if (TemaIndex == 2) { ThemeKoyuRenk = '#0F172A'; ThemeAcikRenk = '#0EA5E9'; } else { ThemeKoyuRenk = '#1F2937'; ThemeAcikRenk = '#4B5563'; } FormFiltre.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical); } void StyleHeaderBar(APanel: TclProPanel); { APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk); APanel.clProSettings.BorderWidth = 0; APanel.clProSettings.IsFill = True; APanel.SetclProSettings(APanel.clProSettings); } void StyleMainCard(APanel: TclProPanel); { APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanZeminRengi); APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); APanel.clProSettings.BorderWidth = 1; APanel.clProSettings.IsFill = True; APanel.clProSettings.IsRound = True; APanel.clProSettings.RoundHeight = 16; APanel.clProSettings.RoundWidth = 16; APanel.SetclProSettings(APanel.clProSettings); } void StyleSectionTitle(ALabel: TclProLabel); { ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeKoyuRenk); ALabel.clProSettings.FontSize = UiFontSize + 2; ALabel.clProSettings.FontName = OkunanFontAdi; ALabel.clProSettings.TextSettings.Font.Style = [fsBold]; ALabel.SetclProSettings(ALabel.clProSettings); } void StyleInputPanel(APanel: TclProPanel); { APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC'); APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); APanel.clProSettings.BorderWidth = 1; APanel.clProSettings.IsFill = True; APanel.clProSettings.IsRound = True; APanel.clProSettings.RoundHeight = 8; APanel.clProSettings.RoundWidth = 8; APanel.SetclProSettings(APanel.clProSettings); } void StyleInputLabel(ALabel: TclProLabel); { ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); ALabel.clProSettings.FontSize = UiFontSize; ALabel.clProSettings.FontName = OkunanFontAdi; ALabel.clProSettings.TextSettings.Font.Style = [fsBold]; ALabel.SetclProSettings(ALabel.clProSettings); } void StylePrimaryButton(AButton: TclProButton); { AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk); AButton.clProSettings.FontColor = clAlphaColor.clWhite; AButton.clProSettings.BorderWidth = 0; AButton.clProSettings.IsFill = True; AButton.clProSettings.IsRound = True; AButton.clProSettings.RoundHeight = 6; AButton.clProSettings.RoundWidth = 6; AButton.clProSettings.FontSize = UiFontSize; AButton.clProSettings.FontName = OkunanFontAdi; AButton.clProSettings.TextSettings.Font.Style = [fsBold]; AButton.SetclProSettings(AButton.clProSettings); } void StyleSecondaryButton(AButton: TclProButton); { AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite; AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); AButton.clProSettings.BorderWidth = 1; AButton.clProSettings.IsFill = True; AButton.clProSettings.IsRound = True; AButton.clProSettings.RoundHeight = 6; AButton.clProSettings.RoundWidth = 6; AButton.clProSettings.FontSize = UiFontSize; AButton.clProSettings.FontName = OkunanFontAdi; AButton.clProSettings.TextSettings.Font.Style = [fsBold]; AButton.SetclProSettings(AButton.clProSettings); } void ApplyUiSettings; var TmpY: Integer; { LblTitle.Text = GetText('FORM_TITLE'); LblTitleFilter.Text = GetText('SEC_FILTER'); LblTitleList.Text = GetText('SEC_RESULTS'); LblPeriyot.Text = GetText('LBL_PERIYOT'); LblAy.Text = GetText('LBL_AY'); LblYil.Text = GetText('LBL_YIL'); BtnUygula.Text = GetText('BTN_APPLY'); BtnTemizle.Text = GetText('BTN_CLEAR'); LblEmpty.Text = GetText('MSG_EMPTY'); CmbPeriyot.Items.Clear; CmbPeriyot.AddItem(GetText('ALL'), 'Tumu'); CmbPeriyot.AddItem(GetText('DAILY'), 'Günlük'); CmbPeriyot.AddItem(GetText('WEEKLY'), 'Haftalık'); CmbPeriyot.AddItem(GetText('MONTHLY'), 'Aylık'); CmbPeriyot.ItemIndex = 0; CmbAy.Items.Clear; CmbAy.AddItem(GetText('ALL'), 'Tumu'); CmbAy.AddItem('01', '01'); CmbAy.AddItem('02', '02'); CmbAy.AddItem('03', '03'); CmbAy.AddItem('04', '04'); CmbAy.AddItem('05', '05'); CmbAy.AddItem('06', '06'); CmbAy.AddItem('07', '07'); CmbAy.AddItem('08', '08'); CmbAy.AddItem('09', '09'); CmbAy.AddItem('10', '10'); CmbAy.AddItem('11', '11'); CmbAy.AddItem('12', '12'); CmbAy.ItemIndex = 0; CmbYil.Items.Clear; CmbYil.AddItem(GetText('ALL'), 'Tumu'); for (TmpY = 2020 to 2035) { CmbYil.AddItem(IntToStr(TmpY), IntToStr(TmpY)); } CmbYil.ItemIndex = 0; BtnBack.clProSettings.FontName = OkunanFontAdi; BtnBack.SetclProSettings(BtnBack.clProSettings); LblTitle.clProSettings.FontSize = UiFontSize + 4; LblTitle.clProSettings.FontName = OkunanFontAdi; LblTitle.SetclProSettings(LblTitle.clProSettings); LblEmpty.clProSettings.FontSize = UiFontSize; LblEmpty.clProSettings.FontName = OkunanFontAdi; LblEmpty.SetclProSettings(LblEmpty.clProSettings); StyleSectionTitle(LblTitleFilter); StyleSectionTitle(LblTitleList); StyleInputLabel(LblPeriyot); StyleInputLabel(LblAy); StyleInputLabel(LblYil); StylePrimaryButton(BtnUygula); StyleSecondaryButton(BtnTemizle); } void VerileriDosyadanYukle; var KayitListesi: TclStringList; DosyaYolu, SatirVerisi, KalanVeri: String; i, LPos: Integer; { KayitCount = 0; DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath); if (clFileExists(DosyaYolu, '')) { KayitListesi = Clomosy.StringListNew; KayitListesi.LoadFromFile(DosyaYolu, 0); for (i = 0 to KayitListesi.Count - 1) { if (KayitCount < 50) { SatirVerisi = Clomosy.StringListItemString(KayitListesi, i); KalanVeri = SatirVerisi; LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBelgeNo[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBelgeNo[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitMakine[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitMakine[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitTip[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitTip[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitPlanlanan[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitPlanlanan[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitDurum[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitDurum[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitAy[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitAy[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitYil[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitYil[KayitCount] = KalanVeri; KalanVeri = ''; } LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitPeriyot[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitPeriyot[KayitCount] = KalanVeri; KalanVeri = ''; } KayitCount = KayitCount + 1; } } KayitListesi.Free; } if (KayitCount == 0) { KayitBelgeNo[0] = 'BLG-001'; KayitMakine[0] = 'MK-001'; KayitTip[0] = 'Mekanik'; KayitDurum[0] = 'Tamamlandi'; KayitAy[0] = '06'; KayitYil[0] = '2026'; KayitPeriyot[0] = 'Haftalık'; KayitBelgeNo[1] = 'BLG-002'; KayitMakine[1] = 'MK-045'; KayitTip[1] = 'Elektrik'; KayitDurum[1] = 'Yaklasiyor'; KayitAy[1] = '06'; KayitYil[1] = '2026'; KayitPeriyot[1] = 'Aylık'; KayitCount = 2; } } function KayitUygunMu(AIndex: Integer): Boolean; var SPeriyotCombo, SAyCombo, SYilCombo: String; { Result = True; if (CmbAy.ItemIndex <= 0) { SAyCombo = 'Tumu'; } else { SAyCombo = CmbAy.GetValueIndex(CmbAy.ItemIndex); } if (CmbYil.ItemIndex <= 0) { SYilCombo = 'Tumu'; } else { SYilCombo = CmbYil.GetValueIndex(CmbYil.ItemIndex); } if (CmbPeriyot.ItemIndex <= 0) { SPeriyotCombo = 'Tumu'; } else { SPeriyotCombo = CmbPeriyot.GetValueIndex(CmbPeriyot.ItemIndex); } if (SAyCombo <> 'Tumu') { if (SAyCombo <> Trim(KayitAy[AIndex])) { Result = False; } } if (SYilCombo <> 'Tumu') { if (SYilCombo <> Trim(KayitYil[AIndex])) { Result = False; } } if (SPeriyotCombo <> 'Tumu') { if ((SPeriyotCombo <> Trim(KayitPeriyot[AIndex])) and (SPeriyotCombo <> Trim(KayitDurum[AIndex]))) { Result = False; } } } void RefreshListe; var GosterilecekDurum, GosterilecekPeriyot, BakimDurumYazi, TarihMetni: String; TemizAy, TemizYil: String; { TmpVisibleCount = 0; PnlMainCard.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanZeminRengi); PnlMainCard.SetclProSettings(PnlMainCard.clProSettings); for (TmpIndex = 0 to KayitCount - 1) { if (KayitUygunMu(TmpIndex)) { TmpVisibleCount = TmpVisibleCount + 1; if (TmpVisibleCount > 50) Break; CardPanel[TmpVisibleCount].Visible = True; CardTitle[TmpVisibleCount].Caption = ' ' + GetText(Trim(KayitMakine[TmpIndex])); GosterilecekPeriyot = Trim(KayitPeriyot[TmpIndex]); GosterilecekDurum = Trim(KayitDurum[TmpIndex]); if (GosterilecekPeriyot == '') { if (Pos(GosterilecekDurum, 'Haftalık Aylık Günlük Saat Haftalik Aylik') > 0) { GosterilecekPeriyot = GosterilecekDurum; GosterilecekDurum = Trim(KayitPlanlanan[TmpIndex]); } } if (GosterilecekPeriyot == '') { GosterilecekPeriyot = 'Belirtilmedi'; } if (GosterilecekDurum == '') { GosterilecekDurum = 'Aktif'; } BakimDurumYazi = GetText('BAKIM_YAPILMADI'); if ((GosterilecekDurum == 'Tamamlandi') or (GosterilecekDurum == 'Completed') or (GosterilecekDurum == 'Tamamlandı')) { BakimDurumYazi = GetText('BAKIM_YAPILDI'); } TarihMetni = ''; TemizAy = Trim(KayitAy[TmpIndex]); TemizYil = Trim(KayitYil[TmpIndex]); if ((TemizAy <> '') and (TemizYil <> '')) { if ((Pos('lık', TemizAy) == 0) and (Pos('lik', TemizAy) == 0)) { TarihMetni = TemizAy + '/' + TemizYil; } } if (TarihMetni == '') { if (Trim(KayitPlanlanan[TmpIndex]) <> '') { if ((Pos('amla', Trim(KayitPlanlanan[TmpIndex])) == 0) and (Pos('aklas', Trim(KayitPlanlanan[TmpIndex])) == 0)) { TarihMetni = Trim(KayitPlanlanan[TmpIndex]); } } } if (TarihMetni == '') { TarihMetni = '06/2026'; } CardDetail[TmpVisibleCount].Caption = GetText('LBL_TARIH') + TarihMetni + #13#10 + GetText('CARD_PERIYOT') + GetText(GosterilecekPeriyot) + #13#10 + GetText('CARD_TYPE') + GetText(Trim(KayitTip[TmpIndex])) + #13#10 + GetText('CARD_STATUS') + BakimDurumYazi; CardPanel[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanKartRengi); CardDetail[TmpVisibleCount].clProSettings.FontColor = clAlphaColor.clHexToColor(OkunanYaziRengi); CardDetail[TmpVisibleCount].clProSettings.FontName = OkunanFontAdi; CardDetail[TmpVisibleCount].clProSettings.FontSize = UiFontSize; CardTitle[TmpVisibleCount].clProSettings.FontColor = clAlphaColor.clWhite; CardTitle[TmpVisibleCount].clProSettings.FontName = OkunanFontAdi; CardTitle[TmpVisibleCount].clProSettings.FontSize = UiFontSize + 1; if (OkunanStilIndex == 1) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsBold]; } else if (OkunanStilIndex == 2) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsItalic]; } else if (OkunanStilIndex == 3) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsBold, fsItalic]; } else if (OkunanStilIndex == 4) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsUnderline]; } else { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = []; } if (OkunanHizaIndex == 1) { CardDetail[TmpVisibleCount].clProSettings.FontHorzAlign = palCenter; } else if (OkunanHizaIndex == 2) { CardDetail[TmpVisibleCount].clProSettings.FontHorzAlign = palTrailing; } else { CardDetail[TmpVisibleCount].clProSettings.FontHorzAlign = palLeading; } CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk); CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); if ((Pos('Yaklasiyor', GosterilecekDurum) > 0) or (Pos('Approaching', GosterilecekDurum) > 0)) { CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanUyariRengi); CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor(OkunanUyariRengi); } CardTitle[TmpVisibleCount].SetclProSettings(CardTitle[TmpVisibleCount].clProSettings); CardDetail[TmpVisibleCount].SetclProSettings(CardDetail[TmpVisibleCount].clProSettings); CardPanel[TmpVisibleCount].SetclProSettings(CardPanel[TmpVisibleCount].clProSettings); } } for (TmpIndex = TmpVisibleCount + 1 to 50) { if (CardPanel[TmpIndex] <> nil) { CardPanel[TmpIndex].Visible = False; } } if (TmpVisibleCount == 0) { LblEmpty.Visible = True; PnlListHost.Height = 40; PnlMainCard.Height = 1000; } else { LblEmpty.Visible = False; PnlListHost.Height = (TmpVisibleCount * 145) + 20; if ((450 + PnlListHost.Height) < 1000) { PnlMainCard.Height = 1000; } else { PnlMainCard.Height = 450 + PnlListHost.Height; } } } void ApplyFilter; { RefreshListe; } void ClearFilter; { CmbAy.ItemIndex = 0; CmbYil.ItemIndex = 0; CmbPeriyot.ItemIndex = 0; RefreshListe; } void GoBack; { FormFiltre.Close; } function GuvenliRenkAl(HamDeger: String): String; var Temiz: String; { Temiz = Trim(HamDeger); if (Length(Temiz) >= 4) { if (Length(Temiz) > 7) { Result = Copy(Temiz, 1, 7); } else { Result = Temiz; } } else { Result = ''; } } void AyarlariYenile; var YuklenenAyarlar: TclStringList; OkunanDosyaYolu, TmpDeger: String; { VerileriDosyadanYukle; OkunanDosyaYolu = clPathCombine('UygulamaAyarlari_V3.txt', Clomosy.AppFilesPath); if (clFileExists(OkunanDosyaYolu, '')) { YuklenenAyarlar = Clomosy.StringListNew; YuklenenAyarlar.LoadFromFile(OkunanDosyaYolu, 0); if (YuklenenAyarlar.Count > 0) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 0)); if (TmpDeger <> '') { OkunanTemaIndex = StrToInt(TmpDeger); } } if (YuklenenAyarlar.Count > 1) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 1)); if (TmpDeger <> '') { OkunanBoyutIndex = StrToInt(TmpDeger); } } if (YuklenenAyarlar.Count > 2) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 2)); if (TmpDeger <> '') { GlobalAktifDilIndex = StrToInt(TmpDeger); } } if (YuklenenAyarlar.Count > 3) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 3)); if (TmpDeger <> '') { OkunanHizaIndex = StrToInt(TmpDeger); } } if (YuklenenAyarlar.Count > 5) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 5)); if (TmpDeger <> '') { OkunanFontAdi = TmpDeger; } } if (YuklenenAyarlar.Count > 6) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 6)); if (TmpDeger <> '') { OkunanStilIndex = StrToInt(TmpDeger); } } if (YuklenenAyarlar.Count > 8) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 8)); if (TmpDeger <> '') { OkunanYaziRengi = TmpDeger; } } if (YuklenenAyarlar.Count > 9) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 9)); if (TmpDeger <> '') { OkunanZeminRengi = TmpDeger; } } if (YuklenenAyarlar.Count > 10) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 10)); if (TmpDeger <> '') { OkunanKartRengi = TmpDeger; } } if (YuklenenAyarlar.Count > 11) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 11)); if (TmpDeger <> '') { OkunanUyariRengi = TmpDeger; } } if (OkunanBoyutIndex == 0) { UiFontSize = 12; } else if (OkunanBoyutIndex == 2) { UiFontSize = 16; } else { UiFontSize = 14; } YuklenenAyarlar.Free; } AyarDosyasindanTemayiYukle(OkunanTemaIndex); StyleHeaderBar(PnlNavBar); ApplyUiSettings; RefreshListe; } { FormFiltre = TclGameForm.Create(Self); FormFiltre.LytTopBar.Visible = False; FormFiltre.BtnGoBack.Visible = False; FormFiltre.BtnFormMenu.Visible = False; OkunanTemaIndex = 0; UiFontSize = 13; OkunanUyariRengi = '#EF4444'; OkunanYaziRengi = '#111827'; OkunanKartRengi = '#FFFFFF'; OkunanZeminRengi = '#F1F5F9'; OkunanFontAdi = 'Arial'; OkunanStilIndex = 0; OkunanHizaIndex = 1; GlobalAktifDilIndex = 0; AyarDosyasindanTemayiYukle(OkunanTemaIndex); PnlNavBar = FormFiltre.AddNewProPanel(FormFiltre, 'PnlNavBar'); PnlNavBar.Align = alTop; PnlNavBar.Height = 85; StyleHeaderBar(PnlNavBar); BtnBack = FormFiltre.AddNewProButton(PnlNavBar, 'BtnBack', '<'); BtnBack.Align = alLeft; BtnBack.Width = 48; BtnBack.Margins.Top = 25; BtnBack.clProSettings.FontColor = clAlphaColor.clWhite; BtnBack.clProSettings.BorderWidth = 0; BtnBack.clProSettings.IsFill = False; BtnBack.clProSettings.FontSize = 20; BtnBack.clProSettings.TextSettings.Font.Style = [fsBold]; BtnBack.SetclProSettings(BtnBack.clProSettings); FormFiltre.AddNewEvent(BtnBack, tbeOnClick, 'GoBack'); LblTitle = FormFiltre.AddNewProLabel(PnlNavBar, 'LblTitle', ''); LblTitle.Align = alClient; LblTitle.Margins.Left = 8; LblTitle.Margins.Top = 25; LblTitle.clProSettings.FontColor = clAlphaColor.clWhite; LblTitle.clProSettings.TextSettings.Font.Style = [fsBold]; LblTitle.clProSettings.FontVertAlign = palcenter; LblTitle.SetclProSettings(LblTitle.clProSettings); ScrollForm = FormFiltre.AddNewVertScrollBox(FormFiltre, 'ScrollForm'); ScrollForm.Align = alClient; PnlMainCard = FormFiltre.AddNewProPanel(ScrollForm, 'PnlMainCard'); PnlMainCard.Align = alTop; PnlMainCard.Height = 1000; PnlMainCard.Margins.Top = 15; PnlMainCard.Margins.Left = 12; PnlMainCard.Margins.Right = 12; StyleMainCard(PnlMainCard); LblTitleFilter = FormFiltre.AddNewProLabel(PnlMainCard, 'LblTitleFilter', ''); LblTitleFilter.Align = alTop; LblTitleFilter.Height = 30; LblTitleFilter.Margins.Left = 10; LblTitleFilter.Margins.Top = 15; StyleSectionTitle(LblTitleFilter); GrpPeriyot = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpPeriyot'); GrpPeriyot.Align = alTop; GrpPeriyot.Height = 58; GrpPeriyot.Margins.Top = 6; GrpPeriyot.Margins.Left = 10; GrpPeriyot.Margins.Right = 10; StyleInputPanel(GrpPeriyot); LblPeriyot = FormFiltre.AddNewProLabel(GrpPeriyot, 'LblPeriyot', ''); LblPeriyot.Align = alTop; LblPeriyot.Height = 18; LblPeriyot.Margins.Left = 10; LblPeriyot.Margins.Top = 6; StyleInputLabel(LblPeriyot); CmbPeriyot = FormFiltre.AddNewComboBox(GrpPeriyot, 'CmbPeriyot'); CmbPeriyot.Align = alClient; CmbPeriyot.Margins.Left = 10; CmbPeriyot.Margins.Right = 10; CmbPeriyot.Margins.Bottom = 7; GrpAy = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpAy'); GrpAy.Align = alTop; GrpAy.Height = 58; GrpAy.Margins.Top = 6; GrpAy.Margins.Left = 10; GrpAy.Margins.Right = 10; StyleInputPanel(GrpAy); LblAy = FormFiltre.AddNewProLabel(GrpAy, 'LblAy', ''); LblAy.Align = alTop; LblAy.Height = 18; LblAy.Margins.Left = 10; LblAy.Margins.Top = 6; StyleInputLabel(LblAy); CmbAy = FormFiltre.AddNewComboBox(GrpAy, 'CmbAy'); CmbAy.Align = alClient; CmbAy.Margins.Left = 10; CmbAy.Margins.Right = 10; CmbAy.Margins.Bottom = 7; GrpYil = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpYil'); GrpYil.Align = alTop; GrpYil.Height = 58; GrpYil.Margins.Top = 6; GrpYil.Margins.Left = 10; GrpYil.Margins.Right = 10; StyleInputPanel(GrpYil); LblYil = FormFiltre.AddNewProLabel(GrpYil, 'LblYil', ''); LblYil.Align = alTop; LblYil.Height = 18; LblYil.Margins.Left = 10; LblYil.Margins.Top = 6; StyleInputLabel(LblYil); CmbYil = FormFiltre.AddNewComboBox(GrpYil, 'CmbYil'); CmbYil.Align = alClient; CmbYil.Margins.Left = 10; CmbYil.Margins.Right = 10; CmbYil.Margins.Bottom = 7; PnlFilterButtons = FormFiltre.AddNewProPanel(PnlMainCard, 'PnlFilterButtons'); PnlFilterButtons.Align = alTop; PnlFilterButtons.Height = 50; PnlFilterButtons.Margins.Top = 15; PnlFilterButtons.Margins.Left = 10; PnlFilterButtons.Margins.Right = 10; PnlFilterButtons.clProSettings.BorderWidth = 0; PnlFilterButtons.SetclProSettings(PnlFilterButtons.clProSettings); BtnUygula = FormFiltre.AddNewProButton(PnlFilterButtons, 'BtnUygula', ''); BtnUygula.Align = alLeft; BtnUygula.Width = 90; BtnUygula.Margins.Right = 10; StylePrimaryButton(BtnUygula); FormFiltre.AddNewEvent(BtnUygula, tbeOnClick, 'ApplyFilter'); BtnTemizle = FormFiltre.AddNewProButton(PnlFilterButtons, 'BtnTemizle', ''); BtnTemizle.Align = alLeft; BtnTemizle.Width = 80; StyleSecondaryButton(BtnTemizle); FormFiltre.AddNewEvent(BtnTemizle, tbeOnClick, 'ClearFilter'); LblTitleList = FormFiltre.AddNewProLabel(PnlMainCard, 'LblTitleList', ''); LblTitleList.Align = alTop; LblTitleList.Height = 30; LblTitleList.Margins.Left = 10; LblTitleList.Margins.Top = 20; StyleSectionTitle(LblTitleList); LblEmpty = FormFiltre.AddNewProLabel(PnlMainCard, 'LblEmpty', ''); LblEmpty.Align = alTop; LblEmpty.Height = 30; LblEmpty.Margins.Left = 15; LblEmpty.Margins.Top = 10; LblEmpty.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); LblEmpty.SetclProSettings(LblEmpty.clProSettings); PnlListHost = FormFiltre.AddNewProPanel(PnlMainCard, 'PnlListHost'); PnlListHost.Align = alTop; PnlListHost.clProSettings.BorderWidth = 0; PnlListHost.SetclProSettings(PnlListHost.clProSettings); for (TmpIndex = 1 to 50) { CardPanel[TmpIndex] = FormFiltre.AddNewProPanel(PnlListHost, 'CardPanel' + IntToStr(TmpIndex)); CardPanel[TmpIndex].Align = alTop; CardPanel[TmpIndex].Margins.Top = 10; CardPanel[TmpIndex].Margins.Left = 10; CardPanel[TmpIndex].Margins.Right = 10; CardPanel[TmpIndex].Height = 135; CardPanel[TmpIndex].clProSettings.BorderWidth = 1; CardPanel[TmpIndex].clProSettings.IsFill = True; CardPanel[TmpIndex].clProSettings.IsRound = True; CardPanel[TmpIndex].clProSettings.RoundHeight = 8; CardPanel[TmpIndex].clProSettings.RoundWidth = 8; CardPanel[TmpIndex].SetclProSettings(CardPanel[TmpIndex].clProSettings); CardTitle[TmpIndex] = FormFiltre.AddNewProLabel(CardPanel[TmpIndex], 'CardTitle' + IntToStr(TmpIndex), ''); CardTitle[TmpIndex].Align = alTop; CardTitle[TmpIndex].Height = 30; CardTitle[TmpIndex].clProSettings.FontColor = clAlphaColor.clWhite; CardTitle[TmpIndex].clProSettings.TextSettings.Font.Style = [fsBold]; CardTitle[TmpIndex].clProSettings.IsFill = True; CardTitle[TmpIndex].clProSettings.IsRound = True; CardTitle[TmpIndex].clProSettings.RoundHeight = 8; CardTitle[TmpIndex].clProSettings.RoundWidth = 8; CardTitle[TmpIndex].SetclProSettings(CardTitle[TmpIndex].clProSettings); CardDetail[TmpIndex] = FormFiltre.AddNewProLabel(CardPanel[TmpIndex], 'CardDetail' + IntToStr(TmpIndex), ''); CardDetail[TmpIndex].Align = alClient; CardDetail[TmpIndex].Margins.Left = 10; CardDetail[TmpIndex].Margins.Right = 10; CardDetail[TmpIndex].Margins.Top = 5; CardDetail[TmpIndex].Margins.Bottom = 5; CardDetail[TmpIndex].clProSettings.WordWrap = True; CardDetail[TmpIndex].SetclProSettings(CardDetail[TmpIndex].clProSettings); } VerileriDosyadanYukle; FormFiltre.AddNewEvent(FormFiltre, tbeOnFormActivate, 'AyarlariYenile'); AyarlariYenile; FormFiltre.Run; } güncelleyip dener misin https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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"> |
|
|
|
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri