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

var

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