Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - panel sorunu
  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.

panel sorunu
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: Dün
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: panel sorunu
    Gönderim Zamanı: 6 Saat 59 Dakika Önce Saat 11:20
var 
  FormFiltre: TclGameForm; 
  PnlNavBar, PnlMainCard, PnlFilterButtons, PnlListHost: TclProPanel;
  GrpTur, GrpPeriyot, GrpAy, GrpYil: TclProPanel;
  BtnBack, BtnUygula, BtnTemizle: TclProButton;
  LblTitle, LblTitleFilter, LblTitleList, LblTur, LblPeriyot, LblAy, LblYil, LblEmpty: TclProLabel;
  CmbTur, CmbPeriyot, CmbAy, CmbYil: TclComboBox;
  ScrollForm: TclVertScrollBox; 
  CardPanel: array [0..100] of TclProPanel;
  CardTitle: array [0..100] of TclProLabel;
  CardDetail: array [0..100] of TclProLabel;
  
  // -- GENİŞLETİLMİŞ VERİ DİZİLERİ --
  KayitTur, KayitBelgeNo, KayitMakine, KayitTip, KayitPlanlanan: array [0..100] of String;
  KayitDurum, KayitAy, KayitYil, KayitPeriyot: array [0..100] of String;
  KayitOperator, KayitBakimBag, KayitBaslangic, KayitBitisTur: array [0..100] of String;
  KayitKisi, KayitAciklama, KayitNeden: array [0..100] of String;
  
  KayitCount, TmpIndex, TmpVisibleCount, TmpYear: Integer; 
  UiFontSize: Integer;
  ThemeKoyuRenk, ThemeAcikRenk, ThemeBorderColor: String;
  OkunanUyariRengi, OkunanYaziRengi, OkunanKartRengi, OkunanZeminRengi, OkunanFontAdi: String;
  OkunanTemaIndex, OkunanBoyutIndex, OkunanStilIndex, OkunanHizaIndex, GlobalAktifDilIndex: Integer;

  // -- DETAY VE DÜZENLEME PANELİ BİLEŞENLERİ --
  PnlDetailOverlay, PnlDetailHeader, PnlDetailButtons: TclProPanel;
  DetailScroll: TclVertScrollBox;
  LblDetailTitle: TclProLabel;
  BtnDetailSave, BtnDetailCancel: TclProButton;
  
  DetPnl: array[0..11] of TclProPanel;
  DetLbl: array[0..11] of TclProLabel;
  DetEdt: array[0..11] of TclEdit;
  DetMemoNeden: TclMemo; 
  DetailTitles: array[0..11] of String;
  ActiveEditIndex: Integer;

function GetText(Key: String): String;
var 
  TKey: String;
{
  TKey = Trim(Key); 
  Result = TKey;
  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_TUR') { Result = 'Kayıt Türü:'; }
  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 kayıt bulunamadı.'; } 
  else if (TKey == 'ALL') { Result = 'Tümü'; }
  else if (TKey == 'KAYIT_GIRILMEYEN') { Result = 'Kayıt Girilmeyen / Bekleyen'; } 
}

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 = ''; }
}

function TemizleMetin(HamMetin: String): String;
var
  i: Integer;
  Karakter: String;
{
  Result = '';
  for (i = 1 to Length(HamMetin))
  {
    Karakter = Copy(HamMetin, i, 1);
    if ((Karakter == #13) || (Karakter == #10) || (Karakter == '|'))
    {
      Result = Result + ' ';
    }
    else
    {
      Result = Result + Karakter;
    }
  }
}

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 if (TemaIndex == 3) { ThemeKoyuRenk = '#14532D'; ThemeAcikRenk = '#22C55E'; }
  else { ThemeKoyuRenk = '#334155'; ThemeAcikRenk = '#94A3B8'; } 
  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');
  LblTur.Text = GetText('LBL_TUR');
  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');

  CmbTur.Items.Clear;
  CmbTur.AddItem(GetText('ALL'), 'Tumu'); 
  CmbTur.AddItem('Bakım', 'Bakım'); 
  CmbTur.AddItem('Arıza', 'Arıza'); 
  CmbTur.AddItem(GetText('KAYIT_GIRILMEYEN'), 'Kayıt Yok'); 
  CmbTur.ItemIndex = 0;

  CmbPeriyot.Items.Clear;
  CmbPeriyot.AddItem(GetText('ALL'), 'Tumu'); 
  CmbPeriyot.AddItem('Günlük', 'Günlük'); 
  CmbPeriyot.AddItem('Haftalık', 'Haftalık'); 
  CmbPeriyot.AddItem('Aylık', '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);
  StylePrimaryButton(BtnUygula);
  StyleSecondaryButton(BtnTemizle);

  if (DetLbl[0] <> nil)
  {
    DetLbl[0].Text = 'Belge No:';
    DetLbl[1].Text = 'Tarih:';
    DetLbl[2].Text = 'Makine Kodu:';
    DetLbl[3].Text = 'Sorumlu Operatör:';
    DetLbl[4].Text = 'Arıza Kodu:';
    DetLbl[5].Text = 'Bakım Bağlantısı:';
    DetLbl[6].Text = 'Başlangıç:';
    DetLbl[7].Text = 'Bitiş Türü:';
    DetLbl[8].Text = 'Kişi Sayısı:';
    DetLbl[9].Text = 'Genel Açıklama:';
    DetLbl[10].Text = 'Yapılamama Nedeni:';
    DetLbl[11].Text = 'Durum / Metin:';
  }
}

void VerileriDosyadanYukle;
var
  KayitListesi: TclStringList;
  DosyaYolu, KalanVeri, SatirVerisi: String;
  i, LPos: Integer;
{
  KayitCount = 0;
  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
  if (clFileExists(DosyaYolu, ''))
  {
    KayitListesi = Clomosy.StringListNew;
    KayitListesi.LoadFromFile(DosyaYolu, 0);
    
    i = KayitListesi.Count - 1;
    while (i >= 0)
    {
      SatirVerisi = Trim(Clomosy.StringListItemString(KayitListesi, i));
      if (SatirVerisi <> '')
      {
        if (KayitCount < 100)
        {
          KalanVeri = SatirVerisi;
          
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitTur[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitTur[KayitCount] = 'Bakım'; }
          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 = ''; }
          
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitOperator[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitOperator[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBakimBag[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBakimBag[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBaslangic[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBaslangic[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBitisTur[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBitisTur[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitKisi[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitKisi[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitAciklama[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitAciklama[KayitCount] = KalanVeri; KalanVeri = ''; }
          KayitNeden[KayitCount] = KalanVeri;

          KayitCount = KayitCount + 1;
        }
      }
      i = i - 1;
    }
    KayitListesi.Free;
  }

  if (KayitCount == 0)
  {
    KayitTur[0] = 'Arıza'; KayitBelgeNo[0] = 'BLG-001'; KayitMakine[0] = 'MKN-01 - CNC İşlem'; KayitTip[0] = 'KOD-123'; KayitPlanlanan[0] = '05.05.2026'; KayitDurum[0] = 'Bekliyor';
    KayitAy[0] = '05'; KayitYil[0] = '2026'; KayitPeriyot[0] = 'Aylık';
    KayitOperator[0] = 'OPRTR-001 - Ornek Operator'; KayitBakimBag[0] = 'Yok'; KayitBaslangic[0] = '21.07.2026 09:34:02'; KayitBitisTur[0] = 'Saat'; KayitKisi[0] = '2'; KayitAciklama[0] = 'Genel kontrol saglandi.'; KayitNeden[0] = 'Parça eksikti.';
    KayitCount = 1;
  }
}

function KayitUygunMu(AIndex: Integer): Boolean;
var 
  STurCombo, SPeriyotCombo, SAyCombo, SYilCombo, SDurumHam: String;
{
  Result = True;
  
  if (CmbTur.ItemIndex <= 0) { STurCombo = 'Tumu'; } else { STurCombo = CmbTur.GetValueIndex(CmbTur.ItemIndex); }
  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 (STurCombo == 'Kayıt Yok') 
  {
    SDurumHam = Trim(KayitDurum[AIndex]);
    if ((Pos('Yapıldı', SDurumHam) > 0) || (Pos('Tamamlandı', SDurumHam) > 0)) { Result = False; }
  }
  else if (STurCombo <> 'Tumu') 
  { 
    if (STurCombo <> Trim(KayitTur[AIndex])) { Result = False; } 
  }

  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])) && (SPeriyotCombo <> Trim(KayitDurum[AIndex])))
    { 
      Result = False;
    } 
  }
}

void RefreshListe;
var
  TarihMetni, KartUyariRenk, OzetMetin: 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 > 100) Break;

      CardPanel[TmpVisibleCount].Visible = True;
      CardPanel[TmpVisibleCount].clTagInt = TmpIndex; 
      CardTitle[TmpVisibleCount].clTagInt = TmpIndex; 
      CardDetail[TmpVisibleCount].clTagInt = TmpIndex; 
      
      CardTitle[TmpVisibleCount].Caption = '  [' + Trim(KayitTur[TmpIndex]) + '] ' + Trim(KayitMakine[TmpIndex]);
      TarihMetni = Trim(KayitPlanlanan[TmpIndex]);
      
      // DİNAMİK LİSTE METNİ: Veri boşsa listeyi kirletmeyecek
      OzetMetin = 'Tarih: ' + TarihMetni + #13#10 + 
                  'Tip: ' + Trim(KayitTip[TmpIndex]) + #13#10 + 
                  'Durum: ' + Trim(KayitDurum[TmpIndex]);
                  
      if (Trim(KayitOperator[TmpIndex]) <> '') 
      { OzetMetin = OzetMetin + #13#10 + 'Operatör: ' + Trim(KayitOperator[TmpIndex]); }
      
      if (Trim(KayitAciklama[TmpIndex]) <> '') 
      { OzetMetin = OzetMetin + #13#10 + 'Açıklama: ' + Trim(KayitAciklama[TmpIndex]); }

      CardDetail[TmpVisibleCount].Caption = OzetMetin;
        
      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;

      KartUyariRenk = ThemeKoyuRenk;
      if ((Pos('Bekliyor', KayitDurum[TmpIndex]) > 0) || (Pos('Yapılmadı', KayitDurum[TmpIndex]) > 0)) 
      { KartUyariRenk = OkunanUyariRengi; }

      CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(KartUyariRenk);
      CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); 
      
      CardTitle[TmpVisibleCount].SetclProSettings(CardTitle[TmpVisibleCount].clProSettings);
      CardDetail[TmpVisibleCount].SetclProSettings(CardDetail[TmpVisibleCount].clProSettings);
      CardPanel[TmpVisibleCount].SetclProSettings(CardPanel[TmpVisibleCount].clProSettings);
    }
  }

  for (TmpIndex = TmpVisibleCount + 1 to 100)
  {
    if (CardPanel[TmpIndex] <> nil) { CardPanel[TmpIndex].Visible = False; }
  }

  if (TmpVisibleCount == 0)
  {
    LblEmpty.Visible = True;
    PnlListHost.Height = 40;
    PnlMainCard.Height = 1000; 
  }
  else
  {
    LblEmpty.Visible = False;
    // Kart yüksekliği dinamik olduğu için listeyi rahatlatacak yükseklik
    PnlListHost.Height = (TmpVisibleCount * 140) + 20; 
    
    if ((550 + PnlListHost.Height) < 1000) { PnlMainCard.Height = 1000; }
    else { PnlMainCard.Height = 550 + PnlListHost.Height; }
  }
}

void ToggleDetailPanel(Goster: Boolean);
var i: Integer;
{
  PnlDetailOverlay.Visible = Goster;
  ScrollForm.Visible = not Goster; 
  
  for (i = 0 to 11)
  {
    if (i == 10) 
    { 
      if (Goster)
      {
        if (Trim(KayitTur[ActiveEditIndex]) == 'Arıza')
        {
          if (DetPnl[10] <> nil) { 
            DetPnl[10].Visible = True; 
            DetPnl[10].Height = 120; // Arıza ise panel açılır ve boyutu verilir
          }
        }
        else
        {
          if (DetPnl[10] <> nil) { 
            DetPnl[10].Visible = False; 
            DetPnl[10].Height = 0; // Bakım ise panel gizlenir VE boyutu tamamen yokedilir
          }
        }
      }
      else
      {
        if (DetPnl[10] <> nil) { 
          DetPnl[10].Visible = False; 
          DetPnl[10].Height = 0; 
        }
      }
    }
    else 
    { 
      if (DetEdt <> nil) { DetEdt.Visible = Goster; } 
    }
  }
}

void ShowDetailPanel;
{
  DetEdt[0].Text = KayitBelgeNo[ActiveEditIndex];
  DetEdt[1].Text = KayitPlanlanan[ActiveEditIndex];
  DetEdt[2].Text = KayitMakine[ActiveEditIndex];
  DetEdt[3].Text = KayitOperator[ActiveEditIndex];
  DetEdt[4].Text = KayitTip[ActiveEditIndex];
  DetEdt[5].Text = KayitBakimBag[ActiveEditIndex];
  DetEdt[6].Text = KayitBaslangic[ActiveEditIndex];
  DetEdt[7].Text = KayitBitisTur[ActiveEditIndex];
  DetEdt[8].Text = KayitKisi[ActiveEditIndex];
  DetEdt[9].Text = KayitAciklama[ActiveEditIndex];
  DetMemoNeden.Text = KayitNeden[ActiveEditIndex];
  DetEdt[11].Text = KayitDurum[ActiveEditIndex];

  ToggleDetailPanel(True);
}

void OnCardLabelClicked;
var ClickedLabel: TclProLabel;
{
  ClickedLabel = TclProLabel(FormFiltre.clSender);
  ActiveEditIndex = ClickedLabel.clTagInt; 
  ShowDetailPanel;
}

void OnCardPanelClicked;
var ClickedPanel: TclProPanel;
{
  ClickedPanel = TclProPanel(FormFiltre.clSender);
  ActiveEditIndex = ClickedPanel.clTagInt; 
  ShowDetailPanel;
}

void SaveEditClick;
var
  DosyaYolu, Satir: String;
  YeniListe: TclStringList;
  i: Integer;
{
  KayitBelgeNo[ActiveEditIndex] = TemizleMetin(DetEdt[0].Text);
  KayitPlanlanan[ActiveEditIndex] = TemizleMetin(DetEdt[1].Text);
  KayitMakine[ActiveEditIndex] = TemizleMetin(DetEdt[2].Text);
  KayitOperator[ActiveEditIndex] = TemizleMetin(DetEdt[3].Text);
  KayitTip[ActiveEditIndex] = TemizleMetin(DetEdt[4].Text);
  KayitBakimBag[ActiveEditIndex] = TemizleMetin(DetEdt[5].Text);
  KayitBaslangic[ActiveEditIndex] = TemizleMetin(DetEdt[6].Text);
  KayitBitisTur[ActiveEditIndex] = TemizleMetin(DetEdt[7].Text);
  KayitKisi[ActiveEditIndex] = TemizleMetin(DetEdt[8].Text);
  KayitAciklama[ActiveEditIndex] = TemizleMetin(DetEdt[9].Text);
  KayitNeden[ActiveEditIndex] = TemizleMetin(DetMemoNeden.Text);
  KayitDurum[ActiveEditIndex] = TemizleMetin(DetEdt[11].Text);

  YeniListe = Clomosy.StringListNew;
  
  i = KayitCount - 1;
  while (i >= 0)
  {
    Satir = KayitTur + '|' + KayitBelgeNo + '|' + KayitMakine + '|' + KayitTip + '|' +
            KayitPlanlanan + '|' + KayitDurum + '|' + KayitAy + '|' + KayitYil + '|' + KayitPeriyot + '|' +
            KayitOperator + '|' + KayitBakimBag + '|' + KayitBaslangic + '|' + KayitBitisTur + '|' +
            KayitKisi + '|' + KayitAciklama + '|' + KayitNeden;
    YeniListe.Add(Satir);
    i = i - 1;
  }
  
  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
  YeniListe.SaveToFile(DosyaYolu, 0);
  YeniListe.Free;

  ToggleDetailPanel(False);
  RefreshListe; 
}

void CancelEditClick;
{
  ToggleDetailPanel(False);
}

void ApplyFilter; 
{ 
  RefreshListe; 
}

void ClearFilter;
{
  CmbTur.ItemIndex = 0; 
  CmbAy.ItemIndex = 0; 
  CmbYil.ItemIndex = 0; 
  CmbPeriyot.ItemIndex = 0; 
  RefreshListe;
}

void GoBack; 
{ 
  FormFiltre.Close; 
}

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;
}

// ---------------- ANA BLOK ----------------
{
  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);

  GrpTur = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpTur'); GrpTur.Align = alTop; GrpTur.Height = 58; GrpTur.Margins.Top = 6; GrpTur.Margins.Left = 10; GrpTur.Margins.Right = 10; StyleInputPanel(GrpTur);
  LblTur = FormFiltre.AddNewProLabel(GrpTur, 'LblTur', ''); LblTur.Align = alTop; LblTur.Height = 18; LblTur.Margins.Left = 10; LblTur.Margins.Top = 6; StyleInputLabel(LblTur);
  CmbTur = FormFiltre.AddNewComboBox(GrpTur, 'CmbTur'); CmbTur.Align = alClient; CmbTur.Margins.Left = 10; CmbTur.Margins.Right = 10; CmbTur.Margins.Bottom = 7;

  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 100)
  {
    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 = 140; 
    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);
    FormFiltre.AddNewEvent(CardPanel[TmpIndex], tbeOnClick, 'OnCardPanelClicked'); 

    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);
    FormFiltre.AddNewEvent(CardTitle[TmpIndex], tbeOnClick, 'OnCardLabelClicked'); 

    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);
    FormFiltre.AddNewEvent(CardDetail[TmpIndex], tbeOnClick, 'OnCardLabelClicked'); 
  }

  // -- DETAYLI DÜZENLEME PANELİ --
  PnlDetailOverlay = FormFiltre.AddNewProPanel(FormFiltre, 'PnlDetailOverlay');
  PnlDetailOverlay.Align = alClient; 
  PnlDetailOverlay.clProSettings.BackgroundColor = clAlphaColor.clWhite; 
  PnlDetailOverlay.clProSettings.IsFill = True; 
  PnlDetailOverlay.SetclProSettings(PnlDetailOverlay.clProSettings);
  
  PnlDetailHeader = FormFiltre.AddNewProPanel(PnlDetailOverlay, 'PnlDetailHeader');
  PnlDetailHeader.Align = alTop; PnlDetailHeader.Height = 50;
  PnlDetailHeader.clProSettings.BackgroundColor = clAlphaColor.clWhite; 
  PnlDetailHeader.clProSettings.IsFill = True; 
  PnlDetailHeader.SetclProSettings(PnlDetailHeader.clProSettings);
  
  LblDetailTitle = FormFiltre.AddNewProLabel(PnlDetailHeader, 'LblDetailTitle', 'Arıza Hareketleri Detayı');
  LblDetailTitle.Align = alClient; LblDetailTitle.Margins.Left = 15; 
  LblDetailTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155'); 
  LblDetailTitle.clProSettings.FontSize = 16; 
  LblDetailTitle.clProSettings.TextSettings.Font.Style = [fsBold]; 
  LblDetailTitle.SetclProSettings(LblDetailTitle.clProSettings);

  DetailScroll = FormFiltre.AddNewVertScrollBox(PnlDetailOverlay, 'DetailScroll');
  DetailScroll.Align = alClient; DetailScroll.Margins.Left = 10; DetailScroll.Margins.Right = 10;

  for (TmpIndex = 0 to 11)
  {
    DetPnl[TmpIndex] = FormFiltre.AddNewProPanel(DetailScroll, 'DetPnl'+IntToStr(TmpIndex));
    DetPnl[TmpIndex].Align = alTop; DetPnl[TmpIndex].Margins.Top = 10;
    DetPnl[TmpIndex].clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0'); DetPnl[TmpIndex].clProSettings.BorderWidth = 1;
    DetPnl[TmpIndex].clProSettings.IsRound = True; DetPnl[TmpIndex].clProSettings.RoundHeight = 8; DetPnl[TmpIndex].clProSettings.RoundWidth = 8;
    DetPnl[TmpIndex].clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
    DetPnl[TmpIndex].SetclProSettings(DetPnl[TmpIndex].clProSettings);

    DetLbl[TmpIndex] = FormFiltre.AddNewProLabel(DetPnl[TmpIndex], 'DetLbl'+IntToStr(TmpIndex), '');
    DetLbl[TmpIndex].clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A'); DetLbl[TmpIndex].clProSettings.FontSize = 12; DetLbl[TmpIndex].clProSettings.TextSettings.Font.Style = [fsBold]; DetLbl[TmpIndex].SetclProSettings(DetLbl[TmpIndex].clProSettings);

    if (TmpIndex == 10) 
    {
      DetPnl[TmpIndex].Height = 120;
      DetLbl[TmpIndex].Align = alTop; DetLbl[TmpIndex].Height = 25; DetLbl[TmpIndex].Margins.Left = 10; DetLbl[TmpIndex].Margins.Top = 5;
      DetMemoNeden = FormFiltre.AddNewMemo(DetPnl[TmpIndex], 'DetMemoNeden', '');
      DetMemoNeden.Align = alClient; DetMemoNeden.Margins.Left = 10; DetMemoNeden.Margins.Right = 10; DetMemoNeden.Margins.Bottom = 10;
    }
    else 
    {
      DetPnl[TmpIndex].Height = 50;
      DetLbl[TmpIndex].Align = alLeft; DetLbl[TmpIndex].Width = 130; DetLbl[TmpIndex].Margins.Left = 10;
      
      DetEdt[TmpIndex] = FormFiltre.AddNewEdit(DetPnl[TmpIndex], 'DetEdt'+IntToStr(TmpIndex), '');
      DetEdt[TmpIndex].Align = alClient; 
      DetEdt[TmpIndex].Margins.Left = 5;
      DetEdt[TmpIndex].Margins.Right = 10; 
      DetEdt[TmpIndex].Margins.Top = 5; 
      DetEdt[TmpIndex].Margins.Bottom = 5; 
    }
  }

  PnlDetailButtons = FormFiltre.AddNewProPanel(DetailScroll, 'PnlDetailButtons');
  PnlDetailButtons.Align = alTop; PnlDetailButtons.Height = 60; PnlDetailButtons.Margins.Top = 20; PnlDetailButtons.Margins.Bottom = 20; PnlDetailButtons.clProSettings.BorderWidth = 0; PnlDetailButtons.SetclProSettings(PnlDetailButtons.clProSettings);
  
  BtnDetailSave = FormFiltre.AddNewProButton(PnlDetailButtons, 'BtnDetailSave', 'Kaydet');
  BtnDetailSave.Align = alLeft; BtnDetailSave.Width = 120; StylePrimaryButton(BtnDetailSave); FormFiltre.AddNewEvent(BtnDetailSave, tbeOnClick, 'SaveEditClick');

  BtnDetailCancel = FormFiltre.AddNewProButton(PnlDetailButtons, 'BtnDetailCancel', 'İptal / Kapat');
  BtnDetailCancel.Align = alRight; BtnDetailCancel.Width = 120; StyleSecondaryButton(BtnDetailCancel); FormFiltre.AddNewEvent(BtnDetailCancel, tbeOnClick, 'CancelEditClick');

  ToggleDetailPanel(False);

  FormFiltre.AddNewEvent(FormFiltre, tbeOnFormActivate, 'AyarlariYenile');
  AyarlariYenile; 
  FormFiltre.Run;
}
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">
Yukarı Dön
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 66 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 6 Saat 56 Dakika Önce Saat 11:23
koddum da bulunan iki tıklayınca panel açılıyor ama verileri çekemiyor 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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 989 		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ı: 5 Saat 5 Dakika Önce Saat 13:14
Merhaba Kayra, 

ilgli koda bakabilir misin


var 
  FormFiltre: TclGameForm; 
  PnlNavBar, PnlMainCard, PnlFilterButtons, PnlListHost: TclProPanel;
  GrpTur, GrpPeriyot, GrpAy, GrpYil: TclProPanel;
  BtnBack, BtnUygula, BtnTemizle: TclProButton;
  LblTitle, LblTitleFilter, LblTitleList, LblTur, LblPeriyot, LblAy, LblYil, LblEmpty: TclProLabel;
  CmbTur, CmbPeriyot, CmbAy, CmbYil: TclComboBox;
  ScrollForm: TclVertScrollBox; 
  CardPanel: array [0..100] of TclProPanel;
  CardTitle: array [0..100] of TclProLabel;
  CardDetail: array [0..100] of TclProLabel;
  
  KayitTur, KayitBelgeNo, KayitMakine, KayitTip, KayitPlanlanan: array [0..100] of String;
  KayitDurum, KayitAy, KayitYil, KayitPeriyot: array [0..100] of String;
  KayitOperator, KayitBakimBag, KayitBaslangic, KayitBitisTur: array [0..100] of String;
  KayitKisi, KayitAciklama, KayitNeden: array [0..100] of String;
  
  KayitCount, TmpIndex, TmpVisibleCount, TmpYear: Integer; 
  UiFontSize: Integer;
  ThemeKoyuRenk, ThemeAcikRenk, ThemeBorderColor: String;
  OkunanUyariRengi, OkunanYaziRengi, OkunanKartRengi, OkunanZeminRengi, OkunanFontAdi: String;
  OkunanTemaIndex, OkunanBoyutIndex, OkunanStilIndex, OkunanHizaIndex, GlobalAktifDilIndex: Integer;

  PnlDetailOverlay, PnlDetailHeader, PnlDetailButtons: TclProPanel;
  DetailScroll: TclVertScrollBox;
  LblDetailTitle: TclProLabel;
  BtnDetailSave, BtnDetailCancel: TclProButton;
  
  DetPnl: array[0..11] of TclProPanel;
  DetLbl: array[0..11] of TclProLabel;
  DetEdt: array[0..11] of TclEdit;
  DetMemoNeden: TclMemo; 
  DetailTitles: array[0..11] of String;
  ActiveEditIndex: Integer;

function GetText(Key: String): String;
var 
  TKey: String;
{
  TKey = Trim(Key); 
  Result = TKey;
  if (TKey == 'FORM_TITLE') { Result = 'Filtre ve Kayitlar'; } 
  else if (TKey == 'SEC_FILTER') { Result = 'FILTRELEME'; } 
  else if (TKey == 'SEC_RESULTS') { Result = 'SONUCLAR'; } 
  else if (TKey == 'LBL_TUR') { Result = 'Kayit Turu:'; }
  else if (TKey == 'LBL_PERIYOT') { Result = 'Periyot:'; } 
  else if (TKey == 'LBL_AY') { Result = 'Ay:'; } 
  else if (TKey == 'LBL_YIL') { Result = 'Yil:'; } 
  else if (TKey == 'BTN_APPLY') { Result = ' Filtrele'; } 
  else if (TKey == 'BTN_CLEAR') { Result = 'Temizle'; } 
  else if (TKey == 'MSG_EMPTY') { Result = 'Kriterlere uygun kayit bulunamadi.'; } 
  else if (TKey == 'ALL') { Result = 'Tumu'; }
  else if (TKey == 'KAYIT_GIRILMEYEN') { Result = 'Kayit Girilmeyen / Bekleyen'; } 
}

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 = ''; }
}

function TemizleMetin(HamMetin: String): String;
var
  i: Integer;
  Karakter: String;
{
  Result = '';
  for (i = 1 to Length(HamMetin))
  {
    Karakter = Copy(HamMetin, i, 1);
    if ((Karakter == #13) || (Karakter == #10) || (Karakter == '|'))
    {
      Result = Result + ' ';
    }
    else
    {
      Result = Result + Karakter;
    }
  }
}

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 if (TemaIndex == 3) { ThemeKoyuRenk = '#14532D'; ThemeAcikRenk = '#22C55E'; }
  else { ThemeKoyuRenk = '#334155'; ThemeAcikRenk = '#94A3B8'; } 
  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');
  LblTur.Text = GetText('LBL_TUR');
  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');

  CmbTur.Items.Clear;
  CmbTur.AddItem(GetText('ALL'), 'Tumu'); 
  CmbTur.AddItem('Bakim', 'Bakim'); 
  CmbTur.AddItem('Ariza', 'Ariza'); 
  CmbTur.AddItem(GetText('KAYIT_GIRILMEYEN'), 'Kayit Yok'); 
  CmbTur.ItemIndex = 0;

  CmbPeriyot.Items.Clear;
  CmbPeriyot.AddItem(GetText('ALL'), 'Tumu'); 
  CmbPeriyot.AddItem('Gunluk', 'Gunluk'); 
  CmbPeriyot.AddItem('Haftalik', 'Haftalik'); 
  CmbPeriyot.AddItem('Aylik', 'Aylik'); 
  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);
  StylePrimaryButton(BtnUygula);
  StyleSecondaryButton(BtnTemizle);

  if (DetLbl[0] <> nil)
  {
    DetLbl[0].Text = 'Belge No:';
    DetLbl[1].Text = 'Tarih:';
    DetLbl[2].Text = 'Makine Kodu:';
    DetLbl[3].Text = 'Sorumlu Operator:';
    DetLbl[4].Text = 'Ariza Kodu:';
    DetLbl[5].Text = 'Bakim Baglantisi:';
    DetLbl[6].Text = 'Baslangic:';
    DetLbl[7].Text = 'Bitis Turu:';
    DetLbl[8].Text = 'Kisi Sayisi:';
    DetLbl[9].Text = 'Genel Aciklama:';
    DetLbl[10].Text = 'Yapilamama Nedeni:';
    DetLbl[11].Text = 'Durum / Metin:';
  }
}

void VerileriDosyadanYukle;
var
  KayitListesi: TclStringList;
  DosyaYolu, KalanVeri, SatirVerisi: String;
  i, LPos: Integer;
{
  KayitCount = 0;
  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
  if (clFileExists(DosyaYolu, ''))
  {
    KayitListesi = Clomosy.StringListNew;
    KayitListesi.LoadFromFile(DosyaYolu, 0);
    
    i = KayitListesi.Count - 1;
    while (i >= 0)
    {
      SatirVerisi = Trim(Clomosy.StringListItemString(KayitListesi, i));
      if (SatirVerisi <> '')
      {
        if (KayitCount < 100)
        {
          KalanVeri = SatirVerisi;
          
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitTur[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitTur[KayitCount] = 'Bakim'; }
          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 = ''; }
          
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitOperator[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitOperator[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBakimBag[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBakimBag[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBaslangic[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBaslangic[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBitisTur[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBitisTur[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitKisi[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitKisi[KayitCount] = KalanVeri; KalanVeri = ''; }
          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitAciklama[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitAciklama[KayitCount] = KalanVeri; KalanVeri = ''; }
          KayitNeden[KayitCount] = KalanVeri;

          KayitCount = KayitCount + 1;
        }
      }
      i = i - 1;
    }
    KayitListesi.Free;
  }

  if (KayitCount == 0)
  {
    KayitTur[0] = 'Ariza'; KayitBelgeNo[0] = 'BLG-001'; KayitMakine[0] = 'MKN-01 - CNC Islem'; KayitTip[0] = 'KOD-123'; KayitPlanlanan[0] = '05.05.2026'; KayitDurum[0] = 'Bekliyor';
    KayitAy[0] = '05'; KayitYil[0] = '2026'; KayitPeriyot[0] = 'Aylik';
    KayitOperator[0] = 'OPRTR-001 - Ornek Operator'; KayitBakimBag[0] = 'Yok'; KayitBaslangic[0] = '21.07.2026 09:34:02'; KayitBitisTur[0] = 'Saat'; KayitKisi[0] = '2'; KayitAciklama[0] = 'Genel kontrol saglandi.'; KayitNeden[0] = 'Parca eksikti.';
    KayitCount = 1;
  }
}

function KayitUygunMu(AIndex: Integer): Boolean;
var 
  STurCombo, SPeriyotCombo, SAyCombo, SYilCombo, SDurumHam: String;
{
  Result = True;
  
  if (CmbTur.ItemIndex <= 0) { STurCombo = 'Tumu'; } else { STurCombo = CmbTur.GetValueIndex(CmbTur.ItemIndex); }
  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 (STurCombo == 'Kayit Yok') 
  {
    SDurumHam = Trim(KayitDurum[AIndex]);
    if ((Pos('Yapildi', SDurumHam) > 0) || (Pos('Tamamlandi', SDurumHam) > 0)) { Result = False; }
  }
  else if (STurCombo <> 'Tumu') 
  { 
    if (STurCombo <> Trim(KayitTur[AIndex])) { Result = False; } 
  }

  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])) && (SPeriyotCombo <> Trim(KayitDurum[AIndex])))
    { 
      Result = False;
    } 
  }
}

void RefreshListe;
var
  TarihMetni, KartUyariRenk, OzetMetin: 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 > 100) Break;

      CardPanel[TmpVisibleCount].Visible = True;
      CardPanel[TmpVisibleCount].clTagInt = TmpIndex; 
      CardTitle[TmpVisibleCount].clTagInt = TmpIndex; 
      CardDetail[TmpVisibleCount].clTagInt = TmpIndex; 
      
      CardTitle[TmpVisibleCount].Caption = '  [' + Trim(KayitTur[TmpIndex]) + '] ' + Trim(KayitMakine[TmpIndex]);
      TarihMetni = Trim(KayitPlanlanan[TmpIndex]);
      
      OzetMetin = 'Tarih: ' + TarihMetni + #13#10 + 
                  'Tip: ' + Trim(KayitTip[TmpIndex]) + #13#10 + 
                  'Durum: ' + Trim(KayitDurum[TmpIndex]);
                  
      if (Trim(KayitOperator[TmpIndex]) <> '') 
      { OzetMetin = OzetMetin + #13#10 + 'Operator: ' + Trim(KayitOperator[TmpIndex]); }
      
      if (Trim(KayitAciklama[TmpIndex]) <> '') 
      { OzetMetin = OzetMetin + #13#10 + 'Aciklama: ' + Trim(KayitAciklama[TmpIndex]); }

      CardDetail[TmpVisibleCount].Caption = OzetMetin;
        
      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;

      KartUyariRenk = ThemeKoyuRenk;
      if ((Pos('Bekliyor', KayitDurum[TmpIndex]) > 0) || (Pos('Yapilmadi', KayitDurum[TmpIndex]) > 0)) 
      { KartUyariRenk = OkunanUyariRengi; }

      CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(KartUyariRenk);
      CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); 
      
      CardTitle[TmpVisibleCount].SetclProSettings(CardTitle[TmpVisibleCount].clProSettings);
      CardDetail[TmpVisibleCount].SetclProSettings(CardDetail[TmpVisibleCount].clProSettings);
      CardPanel[TmpVisibleCount].SetclProSettings(CardPanel[TmpVisibleCount].clProSettings);
    }
  }

  for (TmpIndex = TmpVisibleCount + 1 to 100)
  {
    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 * 140) + 20; 
    
    if ((550 + PnlListHost.Height) < 1000) { PnlMainCard.Height = 1000; }
    else { PnlMainCard.Height = 550 + PnlListHost.Height; }
  }
}

void ToggleDetailPanel(Goster: Boolean);
var i: Integer;
{
  PnlDetailOverlay.Visible = Goster;
  ScrollForm.Visible = not Goster; 
  
  for (i = 0 to 11)
  {
    if (i == 10) 
    { 
      if (Goster)
      {
        if (Trim(KayitTur[ActiveEditIndex]) == 'Ariza')
        {
          if (DetPnl[10] <> nil) { 
            DetPnl[10].Visible = True; 
            DetPnl[10].Height = 120;
          }
        }
        else
        {
          if (DetPnl[10] <> nil) { 
            DetPnl[10].Visible = False; 
            DetPnl[10].Height = 0;
          }
        }
      }
      else
      {
        if (DetPnl[10] <> nil) { 
          DetPnl[10].Visible = False; 
          DetPnl[10].Height = 0; 
        }
      }
    }
    else 
    { 
      if (DetEdt <> nil) { DetEdt.Visible = Goster; } 
    }
  }
}

void ShowDetailPanel;
{
  DetEdt[0].Text = KayitBelgeNo[ActiveEditIndex];
  DetEdt[1].Text = KayitPlanlanan[ActiveEditIndex];
  DetEdt[2].Text = KayitMakine[ActiveEditIndex];
  DetEdt[3].Text = KayitOperator[ActiveEditIndex];
  DetEdt[4].Text = KayitTip[ActiveEditIndex];
  DetEdt[5].Text = KayitBakimBag[ActiveEditIndex];
  DetEdt[6].Text = KayitBaslangic[ActiveEditIndex];
  DetEdt[7].Text = KayitBitisTur[ActiveEditIndex];
  DetEdt[8].Text = KayitKisi[ActiveEditIndex];
  DetEdt[9].Text = KayitAciklama[ActiveEditIndex];
  DetMemoNeden.Text = KayitNeden[ActiveEditIndex];
  DetEdt[11].Text = KayitDurum[ActiveEditIndex];

  ToggleDetailPanel(True);
}

void OnCardLabelClicked;
var ClickedLabel: TclProLabel;
{
  ClickedLabel = TclProLabel(FormFiltre.clSender);
  ActiveEditIndex = ClickedLabel.clTagInt; 
  ShowDetailPanel;
}

void OnCardPanelClicked;
var ClickedPanel: TclProPanel;
{
  ClickedPanel = TclProPanel(FormFiltre.clSender);
  ActiveEditIndex = ClickedPanel.clTagInt; 
  ShowDetailPanel;
}

void SaveEditClick;
var
  DosyaYolu, Satir: String;
  YeniListe: TclStringList;
  i: Integer;
{
  KayitBelgeNo[ActiveEditIndex] = TemizleMetin(DetEdt[0].Text);
  KayitPlanlanan[ActiveEditIndex] = TemizleMetin(DetEdt[1].Text);
  KayitMakine[ActiveEditIndex] = TemizleMetin(DetEdt[2].Text);
  KayitOperator[ActiveEditIndex] = TemizleMetin(DetEdt[3].Text);
  KayitTip[ActiveEditIndex] = TemizleMetin(DetEdt[4].Text);
  KayitBakimBag[ActiveEditIndex] = TemizleMetin(DetEdt[5].Text);
  KayitBaslangic[ActiveEditIndex] = TemizleMetin(DetEdt[6].Text);
  KayitBitisTur[ActiveEditIndex] = TemizleMetin(DetEdt[7].Text);
  KayitKisi[ActiveEditIndex] = TemizleMetin(DetEdt[8].Text);
  KayitAciklama[ActiveEditIndex] = TemizleMetin(DetEdt[9].Text);
  KayitNeden[ActiveEditIndex] = TemizleMetin(DetMemoNeden.Text);
  KayitDurum[ActiveEditIndex] = TemizleMetin(DetEdt[11].Text);

  YeniListe = Clomosy.StringListNew;
  
  i = KayitCount - 1;
  while (i >= 0)
  {
    Satir = KayitTur + '|' + KayitBelgeNo + '|' + KayitMakine + '|' + KayitTip + '|' +
            KayitPlanlanan + '|' + KayitDurum + '|' + KayitAy + '|' + KayitYil + '|' + KayitPeriyot + '|' +
            KayitOperator + '|' + KayitBakimBag + '|' + KayitBaslangic + '|' + KayitBitisTur + '|' +
            KayitKisi + '|' + KayitAciklama + '|' + KayitNeden;
    YeniListe.Add(Satir);
    i = i - 1;
  }
  
  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
  YeniListe.SaveToFile(DosyaYolu, 0);
  YeniListe.Free;

  ToggleDetailPanel(False);
  RefreshListe; 
}

void CancelEditClick;
{
  ToggleDetailPanel(False);
}

void ApplyFilter; 
{ 
  RefreshListe; 
}

void ClearFilter;
{
  CmbTur.ItemIndex = 0; 
  CmbAy.ItemIndex = 0; 
  CmbYil.ItemIndex = 0; 
  CmbPeriyot.ItemIndex = 0; 
  RefreshListe;
}

void GoBack; 
{ 
  FormFiltre.Close; 
}

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);

  GrpTur = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpTur'); GrpTur.Align = alTop; GrpTur.Height = 58; GrpTur.Margins.Top = 6; GrpTur.Margins.Left = 10; GrpTur.Margins.Right = 10; StyleInputPanel(GrpTur);
  LblTur = FormFiltre.AddNewProLabel(GrpTur, 'LblTur', ''); LblTur.Align = alTop; LblTur.Height = 18; LblTur.Margins.Left = 10; LblTur.Margins.Top = 6; StyleInputLabel(LblTur);
  CmbTur = FormFiltre.AddNewComboBox(GrpTur, 'CmbTur'); CmbTur.Align = alClient; CmbTur.Margins.Left = 10; CmbTur.Margins.Right = 10; CmbTur.Margins.Bottom = 7;

  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 100)
  {
    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 = 140; 
    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);
    FormFiltre.AddNewEvent(CardPanel[TmpIndex], tbeOnClick, 'OnCardPanelClicked'); 

    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);
    FormFiltre.AddNewEvent(CardTitle[TmpIndex], tbeOnClick, 'OnCardLabelClicked'); 

    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);
    FormFiltre.AddNewEvent(CardDetail[TmpIndex], tbeOnClick, 'OnCardLabelClicked'); 
  }

  PnlDetailOverlay = FormFiltre.AddNewProPanel(FormFiltre, 'PnlDetailOverlay');
  PnlDetailOverlay.Align = alClient; 
  PnlDetailOverlay.clProSettings.BackgroundColor = clAlphaColor.clWhite; 
  PnlDetailOverlay.clProSettings.IsFill = True; 
  PnlDetailOverlay.SetclProSettings(PnlDetailOverlay.clProSettings);
  
  PnlDetailHeader = FormFiltre.AddNewProPanel(PnlDetailOverlay, 'PnlDetailHeader');
  PnlDetailHeader.Align = alTop; PnlDetailHeader.Height = 50;
  PnlDetailHeader.clProSettings.BackgroundColor = clAlphaColor.clWhite; 
  PnlDetailHeader.clProSettings.IsFill = True; 
  PnlDetailHeader.SetclProSettings(PnlDetailHeader.clProSettings);
  
  LblDetailTitle = FormFiltre.AddNewProLabel(PnlDetailHeader, 'LblDetailTitle', 'Ariza Hareketleri Detayi');
  LblDetailTitle.Align = alClient; LblDetailTitle.Margins.Left = 15; 
  LblDetailTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155'); 
  LblDetailTitle.clProSettings.FontSize = 16; 
  LblDetailTitle.clProSettings.TextSettings.Font.Style = [fsBold]; 
  LblDetailTitle.SetclProSettings(LblDetailTitle.clProSettings);

  DetailScroll = FormFiltre.AddNewVertScrollBox(PnlDetailOverlay, 'DetailScroll');
  DetailScroll.Align = alClient; DetailScroll.Margins.Left = 10; DetailScroll.Margins.Right = 10;

  for (TmpIndex = 0 to 11)
  {
    DetPnl[TmpIndex] = FormFiltre.AddNewProPanel(DetailScroll, 'DetPnl'+IntToStr(TmpIndex));
    DetPnl[TmpIndex].Align = alTop; DetPnl[TmpIndex].Margins.Top = 10;
    DetPnl[TmpIndex].clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0'); DetPnl[TmpIndex].clProSettings.BorderWidth = 1;
    DetPnl[TmpIndex].clProSettings.IsRound = True; DetPnl[TmpIndex].clProSettings.RoundHeight = 8; DetPnl[TmpIndex].clProSettings.RoundWidth = 8;
    DetPnl[TmpIndex].clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
    DetPnl[TmpIndex].SetclProSettings(DetPnl[TmpIndex].clProSettings);

    DetLbl[TmpIndex] = FormFiltre.AddNewProLabel(DetPnl[TmpIndex], 'DetLbl'+IntToStr(TmpIndex), '');
    DetLbl[TmpIndex].clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A'); DetLbl[TmpIndex].clProSettings.FontSize = 12; DetLbl[TmpIndex].clProSettings.TextSettings.Font.Style = [fsBold]; DetLbl[TmpIndex].SetclProSettings(DetLbl[TmpIndex].clProSettings);

    if (TmpIndex == 10) 
    {
      DetPnl[TmpIndex].Height = 120;
      DetLbl[TmpIndex].Align = alTop; DetLbl[TmpIndex].Height = 25; DetLbl[TmpIndex].Margins.Left = 10; DetLbl[TmpIndex].Margins.Top = 5;
      DetMemoNeden = FormFiltre.AddNewMemo(DetPnl[TmpIndex], 'DetMemoNeden', '');
      DetMemoNeden.Align = alClient; DetMemoNeden.Margins.Left = 10; DetMemoNeden.Margins.Right = 10; DetMemoNeden.Margins.Bottom = 10;
    }
    else 
    {
      DetPnl[TmpIndex].Height = 50;
      DetLbl[TmpIndex].Align = alLeft; DetLbl[TmpIndex].Width = 130; DetLbl[TmpIndex].Margins.Left = 10;
      
      DetEdt[TmpIndex] = FormFiltre.AddNewEdit(DetPnl[TmpIndex], 'DetEdt'+IntToStr(TmpIndex), '');
      DetEdt[TmpIndex].Align = alClient; 
      DetEdt[TmpIndex].Margins.Left = 5;
      DetEdt[TmpIndex].Margins.Right = 10; 
      DetEdt[TmpIndex].Margins.Top = 5; 
      DetEdt[TmpIndex].Margins.Bottom = 5; 
    }
  }

  PnlDetailButtons = FormFiltre.AddNewProPanel(DetailScroll, 'PnlDetailButtons');
  PnlDetailButtons.Align = alTop; PnlDetailButtons.Height = 60; PnlDetailButtons.Margins.Top = 20; PnlDetailButtons.Margins.Bottom = 20; PnlDetailButtons.clProSettings.BorderWidth = 0; PnlDetailButtons.SetclProSettings(PnlDetailButtons.clProSettings);
  
  BtnDetailSave = FormFiltre.AddNewProButton(PnlDetailButtons, 'BtnDetailSave', 'Kaydet');
  BtnDetailSave.Align = alLeft; BtnDetailSave.Width = 120; StylePrimaryButton(BtnDetailSave); FormFiltre.AddNewEvent(BtnDetailSave, tbeOnClick, 'SaveEditClick');

  BtnDetailCancel = FormFiltre.AddNewProButton(PnlDetailButtons, 'BtnDetailCancel', 'Iptal / Kapat');
  BtnDetailCancel.Align = alRight; BtnDetailCancel.Width = 120; StyleSecondaryButton(BtnDetailCancel); FormFiltre.AddNewEvent(BtnDetailCancel, tbeOnClick, 'CancelEditClick');

  ToggleDetailPanel(False);

  FormFiltre.AddNewEvent(FormFiltre, tbeOnFormActivate, 'AyarlariYenile');
  AyarlariYenile; 
  FormFiltre.Run;
}
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">
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,078 Saniyede Yüklendi.