YeniKayit = EdtBelgeNo.Text + '|' + EdtMakineKodu.Text + '|' + CmbBakimTipi.Text + '|' + CmbPlanlananBitis.Text + '|' + CmbBakimTuru.Text + '|' + LAy + '|' + LYil + '|' + CmbPlanlananBitis.Text;
ShowMessage(GetText('MSG_KAYIT_BASARILI') + #13#10 + GetText('MSG_EKLENEN_VERI') + YeniKayit);
}
ufiltre birimini de
var
FormFiltre: TclGameForm;
PnlNavBar, PnlMainCard, PnlFilterButtons, PnlListHost: TclProPanel;
GrpPeriyot, GrpAy, GrpYil: TclProPanel;
BtnBack, BtnUygula, BtnTemizle: TclProButton;
LblTitle, LblTitleFilter, LblTitleList, LblPeriyot, LblAy, LblYil, LblEmpty: TclProLabel;
CmbPeriyot, CmbAy, CmbYil: TclComboBox;
ScrollForm: TclVertScrollBox;
CardPanel: array [0..50] of TclProPanel;
CardTitle: array [0..50] of TclProLabel;
CardDetail: array [0..50] of TclProLabel;
KayitBelgeNo: array [0..50] of String;
KayitMakine: array [0..50] of String;
KayitTip: array [0..50] of String;
KayitPlanlanan: array [0..50] of String;
KayitDurum: array [0..50] of String;
KayitAy: array [0..50] of String;
KayitYil: array [0..50] of String;
KayitPeriyot: array [0..50] of String;
KayitCount, TmpIndex, TmpVisibleCount, TmpYear: Integer;
UiFontSize: Integer;
ThemeKoyuRenk, ThemeAcikRenk, ThemeBorderColor: String;
OkunanUyariRengi, OkunanYaziRengi, OkunanKartRengi, OkunanZeminRengi, OkunanFontAdi: String;
OkunanTemaIndex, OkunanBoyutIndex, OkunanStilIndex, OkunanHizaIndex: Integer;
GlobalAktifDilIndex: Integer;
function GetText(Key: String): String;
var
TKey: String;
{
TKey = Trim(Key);
Result = TKey;
if (GlobalAktifDilIndex == 1)
{
if (TKey == 'FORM_TITLE') { Result = 'Filters and Records'; }
else if (TKey == 'SEC_FILTER') { Result = 'FILTERING'; }
else if (TKey == 'SEC_RESULTS') { Result = 'RESULTS'; }
else if (TKey == 'LBL_PERIYOT') { Result = 'Period:'; }
else if (TKey == 'LBL_AY') { Result = 'Month:'; }
else if (TKey == 'LBL_YIL') { Result = 'Year:'; }
else if (TKey == 'BTN_APPLY') { Result = ' Filter'; }
else if (TKey == 'BTN_CLEAR') { Result = 'Clear'; }
else if (TKey == 'MSG_EMPTY') { Result = 'No maintenance records found.'; }
else if (TKey == 'ALL') { Result = 'All'; }
else if (TKey == 'DAILY') { Result = 'Daily'; }
else if (TKey == 'WEEKLY') { Result = 'Weekly'; }
else if (TKey == 'MONTHLY') { Result = 'Monthly'; }
else if (TKey == 'CARD_PERIYOT') { Result = 'Period: '; }
else if (TKey == 'CARD_TYPE') { Result = 'Maint. Type: '; }
else if (TKey == 'LBL_TARIH') { Result = 'Date: '; }
else if (TKey == 'CARD_STATUS') { Result = 'Is Maint. Done?: '; }
else if (TKey == 'BAKIM_YAPILDI') { Result = 'Yes (Completed)'; }
else if (TKey == 'BAKIM_YAPILMADI') { Result = 'No (Pending)'; }
else if (TKey == 'Mekanik') { Result = 'Mechanical'; }
else if (TKey == 'Elektrik') { Result = 'Electrical'; }
}
else
{
if (TKey == 'FORM_TITLE') { Result = 'Filtre ve Kayıtlar'; }
else if (TKey == 'SEC_FILTER') { Result = 'FİLTRELEME'; }
else if (TKey == 'SEC_RESULTS') { Result = 'SONUÇLAR'; }
else if (TKey == 'LBL_PERIYOT') { Result = 'Periyot:'; }
else if (TKey == 'LBL_AY') { Result = 'Ay:'; }
else if (TKey == 'LBL_YIL') { Result = 'Yıl:'; }
else if (TKey == 'BTN_APPLY') { Result = ' Filtrele'; }
else if (TKey == 'BTN_CLEAR') { Result = 'Temizle'; }
else if (TKey == 'MSG_EMPTY') { Result = 'Kriterlere uygun bakım kaydı bulunamadı.'; }
else if (TKey == 'ALL') { Result = 'Tümü'; }
else if (TKey == 'DAILY') { Result = 'Günlük'; }
else if (TKey == 'WEEKLY') { Result = 'Haftalık'; }
else if (TKey == 'MONTHLY') { Result = 'Aylık'; }
else if (TKey == 'CARD_PERIYOT') { Result = 'Periyot: '; }
else if (TKey == 'CARD_TYPE') { Result = 'Bakım Tipi: '; }
else if (TKey == 'LBL_TARIH') { Result = 'Tarih: '; }
else if (TKey == 'CARD_STATUS') { Result = 'Bakım Yapıldı Mi?: '; }
else if (TKey == 'BAKIM_YAPILDI') { Result = 'Evet (Tamamlandı)'; }
else if (TKey == 'BAKIM_YAPILMADI') { Result = 'Hayır (Bekliyor)'; }
else if (TKey == 'Mekanik') { Result = 'Mekanik'; }
else if (TKey == 'Elektrik') { Result = 'Elektrik'; }
}
}
void AyarDosyasindanTemayiYukle(TemaIndex: Integer);
{
ThemeBorderColor = '#CBD5E1';
if (TemaIndex == 0) { ThemeKoyuRenk = '#334155'; ThemeAcikRenk = '#94A3B8'; }
else if (TemaIndex == 1) { ThemeKoyuRenk = '#111827'; ThemeAcikRenk = '#2563EB'; }
else if (TemaIndex == 2) { ThemeKoyuRenk = '#0F172A'; ThemeAcikRenk = '#0EA5E9'; }
else { ThemeKoyuRenk = '#1F2937'; ThemeAcikRenk = '#4B5563'; }
FormFiltre.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);
}
void StyleHeaderBar(APanel: TclProPanel);
{
APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);
APanel.clProSettings.BorderWidth = 0;
APanel.clProSettings.IsFill = True;
APanel.SetclProSettings(APanel.clProSettings);
}
void StyleMainCard(APanel: TclProPanel);
{
APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanZeminRengi);
APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
APanel.clProSettings.BorderWidth = 1;
APanel.clProSettings.IsFill = True;
APanel.clProSettings.IsRound = True;
APanel.clProSettings.RoundHeight = 16;
APanel.clProSettings.RoundWidth = 16;
APanel.SetclProSettings(APanel.clProSettings);
}
void StyleSectionTitle(ALabel: TclProLabel);
{
ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);
ALabel.clProSettings.FontSize = UiFontSize + 2;
ALabel.clProSettings.FontName = OkunanFontAdi;
ALabel.clProSettings.TextSettings.Font.Style = [fsBold];
ALabel.SetclProSettings(ALabel.clProSettings);
}
void StyleInputPanel(APanel: TclProPanel);
{
APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
APanel.clProSettings.BorderWidth = 1;
APanel.clProSettings.IsFill = True;
APanel.clProSettings.IsRound = True;
APanel.clProSettings.RoundHeight = 8;
APanel.clProSettings.RoundWidth = 8;
APanel.SetclProSettings(APanel.clProSettings);
}
void StyleInputLabel(ALabel: TclProLabel);
{
ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827');
ALabel.clProSettings.FontSize = UiFontSize;
ALabel.clProSettings.FontName = OkunanFontAdi;
ALabel.clProSettings.TextSettings.Font.Style = [fsBold];
ALabel.SetclProSettings(ALabel.clProSettings);
}
void StylePrimaryButton(AButton: TclProButton);
{
AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);
AButton.clProSettings.FontColor = clAlphaColor.clWhite;
AButton.clProSettings.BorderWidth = 0;
AButton.clProSettings.IsFill = True;
AButton.clProSettings.IsRound = True;
AButton.clProSettings.RoundHeight = 6;
AButton.clProSettings.RoundWidth = 6;
AButton.clProSettings.FontSize = UiFontSize;
AButton.clProSettings.FontName = OkunanFontAdi;
AButton.clProSettings.TextSettings.Font.Style = [fsBold];
AButton.SetclProSettings(AButton.clProSettings);
}
void StyleSecondaryButton(AButton: TclProButton);
{
AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;
AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827');
AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
AButton.clProSettings.BorderWidth = 1;
AButton.clProSettings.IsFill = True;
AButton.clProSettings.IsRound = True;
AButton.clProSettings.RoundHeight = 6;
AButton.clProSettings.RoundWidth = 6;
AButton.clProSettings.FontSize = UiFontSize;
AButton.clProSettings.FontName = OkunanFontAdi;
AButton.clProSettings.TextSettings.Font.Style = [fsBold];
AButton.SetclProSettings(AButton.clProSettings);
}
void ApplyUiSettings;
var
TmpY: Integer;
{
LblTitle.Text = GetText('FORM_TITLE');
LblTitleFilter.Text = GetText('SEC_FILTER');
LblTitleList.Text = GetText('SEC_RESULTS');
LblPeriyot.Text = GetText('LBL_PERIYOT');
LblAy.Text = GetText('LBL_AY');
LblYil.Text = GetText('LBL_YIL');
BtnUygula.Text = GetText('BTN_APPLY');
BtnTemizle.Text = GetText('BTN_CLEAR');
LblEmpty.Text = GetText('MSG_EMPTY');
CmbPeriyot.Items.Clear;
CmbPeriyot.AddItem(GetText('ALL'), 'Tumu');
CmbPeriyot.AddItem(GetText('DAILY'), 'Günlük');
CmbPeriyot.AddItem(GetText('WEEKLY'), 'Haftalık');
CmbPeriyot.AddItem(GetText('MONTHLY'), 'Aylık');
CmbPeriyot.ItemIndex = 0;
CmbAy.Items.Clear;
CmbAy.AddItem(GetText('ALL'), 'Tumu');
CmbAy.AddItem('01', '01'); CmbAy.AddItem('02', '02'); CmbAy.AddItem('03', '03');
CmbAy.AddItem('04', '04'); CmbAy.AddItem('05', '05'); CmbAy.AddItem('06', '06');
CmbAy.AddItem('07', '07'); CmbAy.AddItem('08', '08'); CmbAy.AddItem('09', '09');
CmbAy.AddItem('10', '10'); CmbAy.AddItem('11', '11'); CmbAy.AddItem('12', '12');
CmbAy.ItemIndex = 0;
CmbYil.Items.Clear;
CmbYil.AddItem(GetText('ALL'), 'Tumu');
for (TmpY = 2020 to 2035)
{
CmbYil.AddItem(IntToStr(TmpY), IntToStr(TmpY));
}
CmbYil.ItemIndex = 0;
BtnBack.clProSettings.FontName = OkunanFontAdi;
BtnBack.SetclProSettings(BtnBack.clProSettings);
LblTitle.clProSettings.FontSize = UiFontSize + 4;
LblTitle.clProSettings.FontName = OkunanFontAdi;
LblTitle.SetclProSettings(LblTitle.clProSettings);
LblEmpty.clProSettings.FontSize = UiFontSize;
LblEmpty.clProSettings.FontName = OkunanFontAdi;
LblEmpty.SetclProSettings(LblEmpty.clProSettings);
StyleSectionTitle(LblTitleFilter);
StyleSectionTitle(LblTitleList);
StyleInputLabel(LblPeriyot);
StyleInputLabel(LblAy);
StyleInputLabel(LblYil);
StylePrimaryButton(BtnUygula);
StyleSecondaryButton(BtnTemizle);
}
void VerileriDosyadanYukle;
var
KayitListesi: TclStringList;
DosyaYolu, SatirVerisi, KalanVeri: String;
i, LPos: Integer;
{
KayitCount = 0;
DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
if (clFileExists(DosyaYolu, ''))
{
KayitListesi = Clomosy.StringListNew;
KayitListesi.LoadFromFile(DosyaYolu, 0);
for (i = 0 to KayitListesi.Count - 1)
{
if (KayitCount < 50)
{
SatirVerisi = Clomosy.StringListItemString(KayitListesi, i);
KalanVeri = SatirVerisi;
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitBelgeNo[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitBelgeNo[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitMakine[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitMakine[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitTip[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitTip[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitPlanlanan[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitPlanlanan[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitDurum[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitDurum[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitAy[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitAy[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitYil[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitYil[KayitCount] = KalanVeri; KalanVeri = ''; }
LPos = Pos('|', KalanVeri);
if (LPos > 0) { KayitPeriyot[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }
else { KayitPeriyot[KayitCount] = KalanVeri; KalanVeri = ''; }
KayitCount = KayitCount + 1;
}
}
KayitListesi.Free;
}
if (KayitCount == 0)
{
KayitBelgeNo[0] = 'BLG-001'; KayitMakine[0] = 'MK-001'; KayitTip[0] = 'Mekanik'; KayitDurum[0] = 'Tamamlandi'; KayitAy[0] = '06'; KayitYil[0] = '2026'; KayitPeriyot[0] = 'Haftalık';
KayitBelgeNo[1] = 'BLG-002'; KayitMakine[1] = 'MK-045'; KayitTip[1] = 'Elektrik'; KayitDurum[1] = 'Yaklasiyor'; KayitAy[1] = '06'; KayitYil[1] = '2026'; KayitPeriyot[1] = 'Aylık';
KayitCount = 2;
}
}
function KayitUygunMu(AIndex: Integer): Boolean;
var
SPeriyotCombo, SAyCombo, SYilCombo: String;
{
Result = True;
if (CmbAy.ItemIndex <= 0) { SAyCombo = 'Tumu'; } else { SAyCombo = CmbAy.GetValueIndex(CmbAy.ItemIndex); }
if (CmbYil.ItemIndex <= 0) { SYilCombo = 'Tumu'; } else { SYilCombo = CmbYil.GetValueIndex(CmbYil.ItemIndex); }
if (CmbPeriyot.ItemIndex <= 0) { SPeriyotCombo = 'Tumu'; } else { SPeriyotCombo = CmbPeriyot.GetValueIndex(CmbPeriyot.ItemIndex); }
if (SAyCombo <> 'Tumu') { if (SAyCombo <> Trim(KayitAy[AIndex])) { Result = False; } }
if (SYilCombo <> 'Tumu') { if (SYilCombo <> Trim(KayitYil[AIndex])) { Result = False; } }
if (SPeriyotCombo <> 'Tumu')
{
if ((SPeriyotCombo <> Trim(KayitPeriyot[AIndex])) and (SPeriyotCombo <> Trim(KayitDurum[AIndex])))
{
Result = False;
}
}
}
void RefreshListe;
var
GosterilecekDurum, GosterilecekPeriyot, BakimDurumYazi, TarihMetni: String;
TemizAy, TemizYil: String;
{
TmpVisibleCount = 0;
PnlMainCard.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanZeminRengi);
PnlMainCard.SetclProSettings(PnlMainCard.clProSettings);
for (TmpIndex = 0 to KayitCount - 1)
{
if (KayitUygunMu(TmpIndex))
{
TmpVisibleCount = TmpVisibleCount + 1;
if (TmpVisibleCount > 50) Break;
CardPanel[TmpVisibleCount].Visible = True;
CardTitle[TmpVisibleCount].Caption = ' ' + GetText(Trim(KayitMakine[TmpIndex]));
GosterilecekPeriyot = Trim(KayitPeriyot[TmpIndex]);
GosterilecekDurum = Trim(KayitDurum[TmpIndex]);
if (GosterilecekPeriyot == '')
{
if (Pos(GosterilecekDurum, 'Haftalık Aylık Günlük Saat Haftalik Aylik') > 0)
{
GosterilecekPeriyot = GosterilecekDurum;
GosterilecekDurum = Trim(KayitPlanlanan[TmpIndex]);
}
}
if (GosterilecekPeriyot == '') { GosterilecekPeriyot = 'Belirtilmedi'; }
if (GosterilecekDurum == '') { GosterilecekDurum = 'Aktif'; }
BakimDurumYazi = GetText('BAKIM_YAPILMADI');
if ((GosterilecekDurum == 'Tamamlandi') or (GosterilecekDurum == 'Completed') or (GosterilecekDurum == 'Tamamlandı'))
{
BakimDurumYazi = GetText('BAKIM_YAPILDI');
}
TarihMetni = '';
TemizAy = Trim(KayitAy[TmpIndex]);
TemizYil = Trim(KayitYil[TmpIndex]);
if ((TemizAy <> '') and (TemizYil <> ''))
{
if ((Pos('lık', TemizAy) == 0) and (Pos('lik', TemizAy) == 0))
{
TarihMetni = TemizAy + '/' + TemizYil;
}
}
if (TarihMetni == '')
{
if (Trim(KayitPlanlanan[TmpIndex]) <> '')
{
if ((Pos('amla', Trim(KayitPlanlanan[TmpIndex])) == 0) and (Pos('aklas', Trim(KayitPlanlanan[TmpIndex])) == 0))
{
TarihMetni = Trim(KayitPlanlanan[TmpIndex]);
}
}
}
if (TarihMetni == '')
{
TarihMetni = '06/2026';
}
CardDetail[TmpVisibleCount].Caption =
GetText('LBL_TARIH') + TarihMetni + #13#10 +
GetText('CARD_PERIYOT') + GetText(GosterilecekPeriyot) + #13#10 +
GetText('CARD_TYPE') + GetText(Trim(KayitTip[TmpIndex])) + #13#10 +
GetText('CARD_STATUS') + BakimDurumYazi;
CardPanel[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanKartRengi);
CardDetail[TmpVisibleCount].clProSettings.FontColor = clAlphaColor.clHexToColor(OkunanYaziRengi);
CardDetail[TmpVisibleCount].clProSettings.FontName = OkunanFontAdi;
CardDetail[TmpVisibleCount].clProSettings.FontSize = UiFontSize;
CardTitle[TmpVisibleCount].clProSettings.FontColor = clAlphaColor.clWhite;
CardTitle[TmpVisibleCount].clProSettings.FontName = OkunanFontAdi;
CardTitle[TmpVisibleCount].clProSettings.FontSize = UiFontSize + 1;
if (OkunanStilIndex == 1) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsBold]; }
else if (OkunanStilIndex == 2) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsItalic]; }
else if (OkunanStilIndex == 3) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsBold, fsItalic]; }
else if (OkunanStilIndex == 4) { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = [fsUnderline]; }
else { CardDetail[TmpVisibleCount].clProSettings.TextSettings.Font.Style = []; }
if (OkunanHizaIndex == 1) { CardDetail[TmpVisibleCount].clProSettings.FontHorzAlign = palCenter; }
else if (OkunanHizaIndex == 2) { CardDetail[TmpVisibleCount].clProSettings.FontHorzAlign = palTrailing; }
else { CardDetail[TmpVisibleCount].clProSettings.FontHorzAlign = palLeading; }
CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);
CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
if ((Pos('Yaklasiyor', GosterilecekDurum) > 0) or (Pos('Approaching', GosterilecekDurum) > 0))
{
CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(OkunanUyariRengi);
CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor(OkunanUyariRengi);
}
CardTitle[TmpVisibleCount].SetclProSettings(CardTitle[TmpVisibleCount].clProSettings);
CardDetail[TmpVisibleCount].SetclProSettings(CardDetail[TmpVisibleCount].clProSettings);
CardPanel[TmpVisibleCount].SetclProSettings(CardPanel[TmpVisibleCount].clProSettings);
}
}
for (TmpIndex = TmpVisibleCount + 1 to 50)
{
if (CardPanel[TmpIndex] <> nil) { CardPanel[TmpIndex].Visible = False; }
}
if (TmpVisibleCount == 0)
{
LblEmpty.Visible = True;
PnlListHost.Height = 40;
PnlMainCard.Height = 1000;
}
else
{
LblEmpty.Visible = False;
PnlListHost.Height = (TmpVisibleCount * 145) + 20;
if ((450 + PnlListHost.Height) < 1000) { PnlMainCard.Height = 1000; }
else { PnlMainCard.Height = 450 + PnlListHost.Height; }
}
}
void ApplyFilter; { RefreshListe; }
void ClearFilter;
{
CmbAy.ItemIndex = 0; CmbYil.ItemIndex = 0; CmbPeriyot.ItemIndex = 0;
RefreshListe;
}
void GoBack; { FormFiltre.Close; }
function GuvenliRenkAl(HamDeger: String): String;
var
Temiz: String;
{
Temiz = Trim(HamDeger);
if (Length(Temiz) >= 4)
{
if (Length(Temiz) > 7) { Result = Copy(Temiz, 1, 7); }
else { Result = Temiz; }
}
else { Result = ''; }
}
void AyarlariYenile;
var
YuklenenAyarlar: TclStringList;
OkunanDosyaYolu, TmpDeger: String;
{
VerileriDosyadanYukle;
OkunanDosyaYolu = clPathCombine('UygulamaAyarlari_V3.txt', Clomosy.AppFilesPath);
if (clFileExists(OkunanDosyaYolu, ''))
{
YuklenenAyarlar = Clomosy.StringListNew;
YuklenenAyarlar.LoadFromFile(OkunanDosyaYolu, 0);
if (YuklenenAyarlar.Count > 0) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 0)); if (TmpDeger <> '') { OkunanTemaIndex = StrToInt(TmpDeger); } }
if (YuklenenAyarlar.Count > 1) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 1)); if (TmpDeger <> '') { OkunanBoyutIndex = StrToInt(TmpDeger); } }
if (YuklenenAyarlar.Count > 2) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 2)); if (TmpDeger <> '') { GlobalAktifDilIndex = StrToInt(TmpDeger); } }
if (YuklenenAyarlar.Count > 3) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 3)); if (TmpDeger <> '') { OkunanHizaIndex = StrToInt(TmpDeger); } }
if (YuklenenAyarlar.Count > 5) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 5)); if (TmpDeger <> '') { OkunanFontAdi = TmpDeger; } }
if (YuklenenAyarlar.Count > 6) { TmpDeger = Trim(Clomosy.StringListItemString(YuklenenAyarlar, 6)); if (TmpDeger <> '') { OkunanStilIndex = StrToInt(TmpDeger); } }
if (YuklenenAyarlar.Count > 8) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 8)); if (TmpDeger <> '') { OkunanYaziRengi = TmpDeger; } }
if (YuklenenAyarlar.Count > 9) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 9)); if (TmpDeger <> '') { OkunanZeminRengi = TmpDeger; } }
if (YuklenenAyarlar.Count > 10) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 10)); if (TmpDeger <> '') { OkunanKartRengi = TmpDeger; } }
if (YuklenenAyarlar.Count > 11) { TmpDeger = GuvenliRenkAl(Clomosy.StringListItemString(YuklenenAyarlar, 11)); if (TmpDeger <> '') { OkunanUyariRengi = TmpDeger; } }
if (OkunanBoyutIndex == 0) { UiFontSize = 12; }
else if (OkunanBoyutIndex == 2) { UiFontSize = 16; }
else { UiFontSize = 14; }
YuklenenAyarlar.Free;
}
AyarDosyasindanTemayiYukle(OkunanTemaIndex);
StyleHeaderBar(PnlNavBar);
ApplyUiSettings;
RefreshListe;
}
{
FormFiltre = TclGameForm.Create(Self);
FormFiltre.LytTopBar.Visible = False;
FormFiltre.BtnGoBack.Visible = False;
FormFiltre.BtnFormMenu.Visible = False;
OkunanTemaIndex = 0;
UiFontSize = 13;
OkunanUyariRengi = '#EF4444';
OkunanYaziRengi = '#111827';
OkunanKartRengi = '#FFFFFF';
OkunanZeminRengi = '#F1F5F9';
OkunanFontAdi = 'Arial';
OkunanStilIndex = 0;
OkunanHizaIndex = 1;
GlobalAktifDilIndex = 0;
AyarDosyasindanTemayiYukle(OkunanTemaIndex);
PnlNavBar = FormFiltre.AddNewProPanel(FormFiltre, 'PnlNavBar');
PnlNavBar.Align = alTop; PnlNavBar.Height = 85;
StyleHeaderBar(PnlNavBar);
BtnBack = FormFiltre.AddNewProButton(PnlNavBar, 'BtnBack', '<');
BtnBack.Align = alLeft; BtnBack.Width = 48; BtnBack.Margins.Top = 25;
BtnBack.clProSettings.FontColor = clAlphaColor.clWhite;
BtnBack.clProSettings.BorderWidth = 0; BtnBack.clProSettings.IsFill = False;
BtnBack.clProSettings.FontSize = 20; BtnBack.clProSettings.TextSettings.Font.Style = [fsBold];
BtnBack.SetclProSettings(BtnBack.clProSettings);
FormFiltre.AddNewEvent(BtnBack, tbeOnClick, 'GoBack');
LblTitle = FormFiltre.AddNewProLabel(PnlNavBar, 'LblTitle', '');
LblTitle.Align = alClient; LblTitle.Margins.Left = 8; LblTitle.Margins.Top = 25;
LblTitle.clProSettings.FontColor = clAlphaColor.clWhite; LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];
LblTitle.clProSettings.FontVertAlign = palcenter;
LblTitle.SetclProSettings(LblTitle.clProSettings);
ScrollForm = FormFiltre.AddNewVertScrollBox(FormFiltre, 'ScrollForm');
ScrollForm.Align = alClient;
PnlMainCard = FormFiltre.AddNewProPanel(ScrollForm, 'PnlMainCard');
PnlMainCard.Align = alTop; PnlMainCard.Height = 1000; PnlMainCard.Margins.Top = 15; PnlMainCard.Margins.Left = 12; PnlMainCard.Margins.Right = 12;
StyleMainCard(PnlMainCard);
LblTitleFilter = FormFiltre.AddNewProLabel(PnlMainCard, 'LblTitleFilter', '');
LblTitleFilter.Align = alTop; LblTitleFilter.Height = 30; LblTitleFilter.Margins.Left = 10; LblTitleFilter.Margins.Top = 15;
StyleSectionTitle(LblTitleFilter);
GrpPeriyot = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpPeriyot');
GrpPeriyot.Align = alTop; GrpPeriyot.Height = 58; GrpPeriyot.Margins.Top = 6; GrpPeriyot.Margins.Left = 10; GrpPeriyot.Margins.Right = 10; StyleInputPanel(GrpPeriyot);
LblPeriyot = FormFiltre.AddNewProLabel(GrpPeriyot, 'LblPeriyot', ''); LblPeriyot.Align = alTop; LblPeriyot.Height = 18; LblPeriyot.Margins.Left = 10; LblPeriyot.Margins.Top = 6; StyleInputLabel(LblPeriyot);
CmbPeriyot = FormFiltre.AddNewComboBox(GrpPeriyot, 'CmbPeriyot'); CmbPeriyot.Align = alClient; CmbPeriyot.Margins.Left = 10; CmbPeriyot.Margins.Right = 10; CmbPeriyot.Margins.Bottom = 7;
GrpAy = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpAy');
GrpAy.Align = alTop; GrpAy.Height = 58; GrpAy.Margins.Top = 6; GrpAy.Margins.Left = 10; GrpAy.Margins.Right = 10; StyleInputPanel(GrpAy);
LblAy = FormFiltre.AddNewProLabel(GrpAy, 'LblAy', ''); LblAy.Align = alTop; LblAy.Height = 18; LblAy.Margins.Left = 10; LblAy.Margins.Top = 6; StyleInputLabel(LblAy);
CmbAy = FormFiltre.AddNewComboBox(GrpAy, 'CmbAy'); CmbAy.Align = alClient; CmbAy.Margins.Left = 10; CmbAy.Margins.Right = 10; CmbAy.Margins.Bottom = 7;
GrpYil = FormFiltre.AddNewProPanel(PnlMainCard, 'GrpYil');
GrpYil.Align = alTop; GrpYil.Height = 58; GrpYil.Margins.Top = 6; GrpYil.Margins.Left = 10; GrpYil.Margins.Right = 10; StyleInputPanel(GrpYil);
LblYil = FormFiltre.AddNewProLabel(GrpYil, 'LblYil', ''); LblYil.Align = alTop; LblYil.Height = 18; LblYil.Margins.Left = 10; LblYil.Margins.Top = 6; StyleInputLabel(LblYil);
CmbYil = FormFiltre.AddNewComboBox(GrpYil, 'CmbYil'); CmbYil.Align = alClient; CmbYil.Margins.Left = 10; CmbYil.Margins.Right = 10; CmbYil.Margins.Bottom = 7;
PnlFilterButtons = FormFiltre.AddNewProPanel(PnlMainCard, 'PnlFilterButtons');
PnlFilterButtons.Align = alTop; PnlFilterButtons.Height = 50; PnlFilterButtons.Margins.Top = 15; PnlFilterButtons.Margins.Left = 10; PnlFilterButtons.Margins.Right = 10;
PnlFilterButtons.clProSettings.BorderWidth = 0; PnlFilterButtons.SetclProSettings(PnlFilterButtons.clProSettings);
BtnUygula = FormFiltre.AddNewProButton(PnlFilterButtons, 'BtnUygula', '');
BtnUygula.Align = alLeft; BtnUygula.Width = 90; BtnUygula.Margins.Right = 10; StylePrimaryButton(BtnUygula);
FormFiltre.AddNewEvent(BtnUygula, tbeOnClick, 'ApplyFilter');
BtnTemizle = FormFiltre.AddNewProButton(PnlFilterButtons, 'BtnTemizle', '');
BtnTemizle.Align = alLeft; BtnTemizle.Width = 80; StyleSecondaryButton(BtnTemizle);
FormFiltre.AddNewEvent(BtnTemizle, tbeOnClick, 'ClearFilter');
LblTitleList = FormFiltre.AddNewProLabel(PnlMainCard, 'LblTitleList', '');
LblTitleList.Align = alTop; LblTitleList.Height = 30; LblTitleList.Margins.Left = 10; LblTitleList.Margins.Top = 20;
StyleSectionTitle(LblTitleList);
LblEmpty = FormFiltre.AddNewProLabel(PnlMainCard, 'LblEmpty', '');
LblEmpty.Align = alTop; LblEmpty.Height = 30; LblEmpty.Margins.Left = 15; LblEmpty.Margins.Top = 10;
LblEmpty.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); LblEmpty.SetclProSettings(LblEmpty.clProSettings);
PnlListHost = FormFiltre.AddNewProPanel(PnlMainCard, 'PnlListHost');
PnlListHost.Align = alTop; PnlListHost.clProSettings.BorderWidth = 0; PnlListHost.SetclProSettings(PnlListHost.clProSettings);
for (TmpIndex = 1 to 50)
{
CardPanel[TmpIndex] = FormFiltre.AddNewProPanel(PnlListHost, 'CardPanel' + IntToStr(TmpIndex));
CardPanel[TmpIndex].Align = alTop; CardPanel[TmpIndex].Margins.Top = 10; CardPanel[TmpIndex].Margins.Left = 10; CardPanel[TmpIndex].Margins.Right = 10; CardPanel[TmpIndex].Height = 135;
CardPanel[TmpIndex].clProSettings.BorderWidth = 1; CardPanel[TmpIndex].clProSettings.IsFill = True; CardPanel[TmpIndex].clProSettings.IsRound = True; CardPanel[TmpIndex].clProSettings.RoundHeight = 8; CardPanel[TmpIndex].clProSettings.RoundWidth = 8;
CardPanel[TmpIndex].SetclProSettings(CardPanel[TmpIndex].clProSettings);
CardTitle[TmpIndex] = FormFiltre.AddNewProLabel(CardPanel[TmpIndex], 'CardTitle' + IntToStr(TmpIndex), '');
CardTitle[TmpIndex].Align = alTop; CardTitle[TmpIndex].Height = 30;
CardTitle[TmpIndex].clProSettings.FontColor = clAlphaColor.clWhite; CardTitle[TmpIndex].clProSettings.TextSettings.Font.Style = [fsBold];
CardTitle[TmpIndex].clProSettings.IsFill = True; CardTitle[TmpIndex].clProSettings.IsRound = True; CardTitle[TmpIndex].clProSettings.RoundHeight = 8; CardTitle[TmpIndex].clProSettings.RoundWidth = 8;
CardTitle[TmpIndex].SetclProSettings(CardTitle[TmpIndex].clProSettings);
CardDetail[TmpIndex] = FormFiltre.AddNewProLabel(CardPanel[TmpIndex], 'CardDetail' + IntToStr(TmpIndex), '');
CardDetail[TmpIndex].Align = alClient; CardDetail[TmpIndex].Margins.Left = 10; CardDetail[TmpIndex].Margins.Right = 10; CardDetail[TmpIndex].Margins.Top = 5; CardDetail[TmpIndex].Margins.Bottom = 5;
CardDetail[TmpIndex].clProSettings.WordWrap = True; CardDetail[TmpIndex].SetclProSettings(CardDetail[TmpIndex].clProSettings);
}
VerileriDosyadanYukle;
FormFiltre.AddNewEvent(FormFiltre, tbeOnFormActivate, 'AyarlariYenile');
AyarlariYenile;
FormFiltre.Run;
}
güncelleyip dener misin