var

  FormMain: TclGameForm;

  RehberForm: TclForm; 

  

  PnlNavBar, PnlHeaderTop, PnlMainCard: TclProPanel;

  BtnScroll: TclHorzScrollBox;

  ScrollForm: TclVertScrollBox;

  LblNavTitle, LblSect1, LblGridTitle, LblPhotoTitle: TClProLabel;

  BtnGeri, BtnYeni, BtnKaydet, BtnResimCek: TClProButton;

  

  Arz_BtnRehberBelge, Arz_BtnRehberAriza, Arz_BtnRehberMakine, Arz_BtnRehberBaglanti, Arz_BtnRehberOperator: TClProButton; 

  Arz_GrpBelgeNo, Arz_GrpTarih, Arz_GrpArizaKodu, Arz_GrpMakineKodu, Arz_GrpBaglanti: TclProPanel;

  Arz_GrpBaslangic, Arz_GrpGirisZamani, Arz_GrpPlanlananBitis, Arz_GrpKisiSayisi, Arz_GrpOperator, Arz_GrpAciklama: TclProPanel;

  Arz_LblBelgeNo, Arz_LblTarih, Arz_LblArizaKodu, Arz_LblMakineKodu, Arz_LblBaglanti: TClProLabel;

  Arz_LblBaslangic, Arz_LblGirisZamani, Arz_LblPlanlananBitis, Arz_LblKisiSayisi, Arz_LblOperator, Arz_LblAciklama: TClProLabel;

  Arz_EdtBelgeNo, Arz_EdtTarih, Arz_EdtArizaKodu, Arz_EdtMakineKodu, Arz_EdtBaglanti: TclProEdit;

  Arz_EdtBaslangic, Arz_EdtBaslangicSaat, Arz_EdtGirisZamani, Arz_EdtKisiSayisi, Arz_EdtOperator, Arz_EdtAciklama, EdtRehberArama: TclProEdit;

  Arz_CmbPlanlananBitis: TclComboBox;

  

  Arz_PnlBakimIhmalKutu, Arz_PnlPhotoKutu: TclProPanel;

  Arz_LblBakimIhmal: TClProLabel;

  Arz_MemBakimIhmal: TclMemo;

  

  Arz_ListAriza, LsvBelgeRehber: TClProListView; 

  Arz_Zone: TClProListViewDesignerPanel;

  Arz_LblMain, Arz_LblSub: TClProLabel;

  Arz_ImgPhoto: TclImage;

  Arz_BelgeNo, Arz_MakineArr, Arz_BakimIhmalArr, Arz_BasTarih, Arz_BasSaat, Arz_BitTarih, Arz_ArizaDurum, Arz_KayitTarih: array [0..50] of String;

  Arz_ArzKodArr, Arz_BaglantiArr, Arz_KisiSayisiArr, Arz_OperatorArr, Arz_AciklamaArr: array [0..50] of String;

  

  Arz_ArizaCount, TmpIndeks, SeciliKayitIndeks: Integer;

  Arz_ArizaJson: String;

  UiFontSize: Integer;

  OkunanFontAdi: String;

  ThemeKoyuRenk, ThemeAcikRenk: String;

  ThemeBgColor, ThemeBorderColor, ThemeTextColor: String;

  

  GlobalLookupType: String; 

  RehberJsonData: TclJsonQuery;

  

  gAktifDilIndex: Integer;

  gBaglantiDenendi: Integer;

  ImgBelge, ImgAriza, ImgMakine, ImgBaglanti, ImgOperator: TclImage;

  

// =====================================================================

// KLAVYE YÖNETİMİ

// =====================================================================

void OnKeyboardShow;

{

  ScrollForm.Margins.Bottom = FormMain.clVKBoundsHeight;

}

void OnKeyboardHide;

{

  ScrollForm.Margins.Bottom = 0;

}

// =====================================================================

// DİL MOTORU

// =====================================================================

function GetText(Key: String): String;

{

  Result = Key;

  

  // 1: English

  if (gAktifDilIndex == 1) { 

    if (Key == 'NAV_TITLE') { Result = 'Fault Movements'; }

    else if (Key == 'YENI') { Result = 'New'; } 

    else if (Key == 'KAYDET') { Result = 'Save'; } 

    else if (Key == 'SECT1') { Result = '1. GENERAL INFO'; } 

    else if (Key == 'SECT2') { Result = '2. MATERIAL & COST'; } 

    else if (Key == 'SECT3') { Result = '3. VISUALS'; } 

    else if (Key == 'SECT4') { Result = '4. INSTRUCTIONS'; } 

    else if (Key == 'BELGE_NO') { Result = 'Doc No:'; } 

    else if (Key == 'TARIH') { Result = 'Date:'; } 

    else if (Key == 'BAKIM_TIPI') { Result = 'Maint. Type:'; } 

    else if (Key == 'BAKIM_TURU') { Result = 'Maint. Category:'; } 

    else if (Key == 'BAKIM_KODU') { Result = 'Maint. Code:'; } 

    else if (Key == 'MAKINE_KODU') { Result = 'Machine Code:'; } 

    else if (Key == 'BAGLANTI') { Result = 'Connection:'; } 

    else if (Key == 'CARI_KODU') { Result = 'Current Code:'; } 

    else if (Key == 'BASLANGIC') { Result = 'Start Date/Time:'; } 

    else if (Key == 'GIRIS_ZAMANI') { Result = 'Entry Time:'; } 

    else if (Key == 'PLANLANAN') { Result = 'Planned End Time:'; } 

    else if (Key == 'KISI_SAYISI') { Result = 'Headcount:'; } 

    else if (Key == 'OP_GRUP') { Result = 'Operator Group:'; } 

    else if (Key == 'OPERATOR') { Result = 'Operator in Charge:'; } 

    else if (Key == 'OP_BILGI') { Result = 'New Operator Info:'; } 

    else if (Key == 'ACIKLAMA') { Result = 'Description:'; } 

    else if (Key == 'KAMERA') { Result = 'Open Camera'; } 

    else if (Key == 'OP_KAYDET') { Result = 'Save'; }

    else if (Key == 'TALIMAT_METNI') { Result = '1. Cut off machine power.' + #13#10 + '2. Attach safety lock.' + #13#10 + '3. Check bearing housings.' + #13#10 + '4. Tighten and align.' + #13#10 + '5. Perform a test run.'; }

    else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Form cleared.'; } 

    else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Please enter Doc No before saving!'; } 

    else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'SAVE SUCCESSFUL!'; } 

    else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Added Data: '; } 

    else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Please enter Operator Info first.'; } 

    else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Please select a group for the operator.'; } 

    else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Operator saved.'; }

    else if (Key == 'LST_BOS') { Result = 'No materials in the list'; } 

    else if (Key == 'ARA_BELGE') { Result = 'Search Document...'; } 

    else if (Key == 'ARA_BAKIM') { Result = 'Search Maint. Code...'; } 

    else if (Key == 'ARA_BAGLANTI') { Result = 'Search Connection...'; } 

    else if (Key == 'ARA_CARI') { Result = 'Search Current Code...'; } 

    else if (Key == 'ARA_MAKINE') { Result = 'Search Machine Code...'; }

    else if (Key == 'ARIZA_KODU') { Result = 'Fault Code:'; }

    else if (Key == 'DURUM') { Result = 'Status: '; } 

    else if (Key == 'MSG_YENI_SAYFA') { Result = 'New record page opened.'; } 

    else if (Key == 'MSG_BELGE_GIRIN') { Result = 'Please enter Doc No!'; } 

    else if (Key == 'MSG_MAKINE_SECIN') { Result = 'Please select Machine Code!'; } 

    else if (Key == 'MSG_IHMAL_ZORUNLU') { Result = 'Please fill in the mandatory field.'; } 

    else if (Key == 'MSG_KAPASITE_DOLU') { Result = 'Capacity full!'; } 

    else if (Key == 'MSG_KAYIT_EKLENDI') { Result = 'New record added to the list successfully.'; } 

    else if (Key == 'MSG_KAYIT_GUNCELLENDI') { Result = 'Existing record updated successfully.'; } 

    else if (Key == 'MSG_KAYIT_YUKLENDI') { Result = 'Record content loaded to the form.'; }

    else if (Key == 'ARA_ARIZA') { Result = 'Search Fault Code...'; }

    else if (Key == 'ARA_OPERATOR') { Result = 'Search Operator...'; }

    else if (Key == 'KAYDEDILDI') { Result = 'Saved'; } 

    else if (Key == 'TAMAMLANDI') { Result = 'Completed'; }

  } 

  // 2: Deutsch

  else if (gAktifDilIndex == 2) { 

    if (Key == 'NAV_TITLE') { Result = 'Wartungsbewegungen'; } 

    else if (Key == 'YENI') { Result = 'Neu'; } 

    else if (Key == 'KAYDET') { Result = 'Speichern'; } 

    else if (Key == 'SECT1') { Result = '1. ALLGEMEINE INFO'; } 

    else if (Key == 'SECT2') { Result = '2. MATERIAL & KOSTEN'; } 

    else if (Key == 'SECT3') { Result = '3. VISUALS'; } 

    else if (Key == 'SECT4') { Result = '4. ANWEISUNGEN'; } 

    else if (Key == 'BELGE_NO') { Result = 'Dokumenten-Nr.:'; } 

    else if (Key == 'TARIH') { Result = 'Datum:'; } 

    else if (Key == 'BAKIM_TIPI') { Result = 'Wartungsart:'; } 

    else if (Key == 'BAKIM_TURU') { Result = 'Wartungskategorie:'; } 

    else if (Key == 'BAKIM_KODU') { Result = 'Wartungscode:'; } 

    else if (Key == 'MAKINE_KODU') { Result = 'Maschinencode:'; } 

    else if (Key == 'BAGLANTI') { Result = 'Verbindung:'; } 

    else if (Key == 'CARI_KODU') { Result = 'Aktueller Code:'; } 

    else if (Key == 'BASLANGIC') { Result = 'Startdatum/-zeit:'; } 

    else if (Key == 'GIRIS_ZAMANI') { Result = 'Eintrittszeit:'; } 

    else if (Key == 'PLANLANAN') { Result = 'Geplante Endzeit:'; } 

    else if (Key == 'KISI_SAYISI') { Result = 'Kopfzahl:'; } 

    else if (Key == 'OP_GRUP') { Result = 'Bedienergruppe:'; } 

    else if (Key == 'OPERATOR') { Result = 'Zuständiger Bediener:'; } 

    else if (Key == 'OP_BILGI') { Result = 'Neue Bedienerinfo:'; } 

    else if (Key == 'ACIKLAMA') { Result = 'Beschreibung:'; } 

    else if (Key == 'KAMERA') { Result = 'Kamera öffnen'; } 

    else if (Key == 'OP_KAYDET') { Result = 'Speichern'; }

    else if (Key == 'TALIMAT_METNI') { Result = '1. Maschinenstrom abschalten.' + #13#10 + '2. Sicherheitsschloss anbringen.' + #13#10 + '3. Lagergehäuse prüfen.' + #13#10 + '4. Festziehen und ausrichten.' + #13#10 + '5. Testlauf durchführen.'; }

    else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Formular geleert.'; } 

    else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Bitte Dokumenten-Nr. vor dem Speichern eingeben!'; } 

    else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'SPEICHERN ERFOLGREICH!'; } 

    else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Hinzugefügte Daten: '; } 

    else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Bitte zuerst Bedienerinfo eingeben.'; } 

    else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Bitte eine Gruppe für den Bediener auswählen.'; } 

    else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Bediener gespeichert.'; }

    else if (Key == 'LST_BOS') { Result = 'Keine Materialien in der Liste'; } 

    else if (Key == 'ARA_BELGE') { Result = 'Dokument suchen...'; } 

    else if (Key == 'ARA_BAKIM') { Result = 'Wartungscode suchen...'; } 

    else if (Key == 'ARA_BAGLANTI') { Result = 'Verbindung suchen...'; } 

    else if (Key == 'ARA_CARI') { Result = 'Aktuellen Code suchen...'; } 

    else if (Key == 'ARA_MAKINE') { Result = 'Maschinencode suchen...'; }

    else if (Key == 'ARIZA_KODU') { Result = 'Fehlercode:'; }

    else if (Key == 'DURUM') { Result = 'Status: '; } 

    else if (Key == 'MSG_YENI_SAYFA') { Result = 'Neue Seite geöffnet.'; } 

    else if (Key == 'MSG_BELGE_GIRIN') { Result = 'Bitte Dokumenten-Nr. eingeben!'; } 

    else if (Key == 'MSG_MAKINE_SECIN') { Result = 'Bitte Maschinencode auswählen!'; } 

    else if (Key == 'MSG_IHMAL_ZORUNLU') { Result = 'Bitte füllen Sie das Pflichtfeld aus.'; } 

    else if (Key == 'MSG_KAPASITE_DOLU') { Result = 'Kapazität voll!'; } 

    else if (Key == 'MSG_KAYIT_EKLENDI') { Result = 'Neuer Datensatz erfolgreich hinzugefügt.'; } 

    else if (Key == 'MSG_KAYIT_GUNCELLENDI') { Result = 'Datensatz aktualisiert.'; } 

    else if (Key == 'MSG_KAYIT_YUKLENDI') { Result = 'Datensatz geladen.'; }

    else if (Key == 'ARA_ARIZA') { Result = 'Fehlercode suchen...'; }

    else if (Key == 'ARA_OPERATOR') { Result = 'Bediener suchen...'; }

    else if (Key == 'KAYDEDILDI') { Result = 'Gespeichert'; } 

    else if (Key == 'TAMAMLANDI') { Result = 'Abgeschlossen'; }

  }

  // 3: Francais

  else if (gAktifDilIndex == 3) { 

    if (Key == 'NAV_TITLE') { Result = 'Mouvements de Maint.'; } 

    else if (Key == 'YENI') { Result = 'Nouveau'; } 

    else if (Key == 'KAYDET') { Result = 'Enregistrer'; } 

    else if (Key == 'SECT1') { Result = '1. INFOS GÉNÉRALES'; } 

    else if (Key == 'SECT2') { Result = '2. MATÉRIEL & COÛT'; } 

    else if (Key == 'SECT3') { Result = '3. VISUELS'; } 

    else if (Key == 'SECT4') { Result = '4. INSTRUCTIONS'; } 

    else if (Key == 'BELGE_NO') { Result = 'N° Doc:'; } 

    else if (Key == 'TARIH') { Result = 'Date:'; } 

    else if (Key == 'BAKIM_TIPI') { Result = 'Type Maint.:'; } 

    else if (Key == 'BAKIM_TURU') { Result = 'Catégorie Maint.:'; } 

    else if (Key == 'BAKIM_KODU') { Result = 'Code Maint.:'; } 

    else if (Key == 'MAKINE_KODU') { Result = 'Code Machine:'; } 

    else if (Key == 'BAGLANTI') { Result = 'Connexion:'; } 

    else if (Key == 'CARI_KODU') { Result = 'Code Courant:'; } 

    else if (Key == 'BASLANGIC') { Result = 'Date/Heure Début:'; } 

    else if (Key == 'GIRIS_ZAMANI') { Result = 'Heure d''Entrée:'; } 

    else if (Key == 'PLANLANAN') { Result = 'Heure de Fin Prévue:'; } 

    else if (Key == 'KISI_SAYISI') { Result = 'Effectif:'; } 

    else if (Key == 'OP_GRUP') { Result = 'Groupe d''Opérateurs:'; } 

    else if (Key == 'OPERATOR') { Result = 'Opérateur Responsable:'; } 

    else if (Key == 'OP_BILGI') { Result = 'Infos Nouvel Opérateur:'; } 

    else if (Key == 'ACIKLAMA') { Result = 'Description:'; } 

    else if (Key == 'KAMERA') { Result = 'Ouvrir Caméra'; } 

    else if (Key == 'OP_KAYDET') { Result = 'Enregistrer'; }

    else if (Key == 'TALIMAT_METNI') { Result = '1. Couper l''alimentation.' + #13#10 + '2. Fixer le verrou de sécurité.' + #13#10 + '3. Vérifier les paliers.' + #13#10 + '4. Serrer et aligner.' + #13#10 + '5. Faire un essai.'; }

    else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Formulaire effacé.'; } 

    else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Veuillez saisir le N° Doc avant d''enregistrer !'; } 

    else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'ENREGISTREMENT RÉUSSI !'; } 

    else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Données ajoutées : '; } 

    else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Veuillez d''abord saisir les infos de l''opérateur.'; } 

    else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Veuillez sélectionner un groupe pour l''opérateur.'; } 

    else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Opérateur enregistré.'; }

    else if (Key == 'LST_BOS') { Result = 'Aucun matériel dans la liste'; } 

    else if (Key == 'ARA_BELGE') { Result = 'Rechercher un document...'; } 

    else if (Key == 'ARA_BAKIM') { Result = 'Rechercher code maint...'; } 

    else if (Key == 'ARA_BAGLANTI') { Result = 'Rechercher une connexion...'; } 

    else if (Key == 'ARA_CARI') { Result = 'Rechercher code courant...'; } 

    else if (Key == 'ARA_MAKINE') { Result = 'Rechercher code machine...'; }

    else if (Key == 'ARIZA_KODU') { Result = 'Code d''erreur:'; }

    else if (Key == 'DURUM') { Result = 'Statut: '; } 

    else if (Key == 'MSG_YENI_SAYFA') { Result = 'Nouvelle page ouverte.'; } 

    else if (Key == 'MSG_BELGE_GIRIN') { Result = 'Veuillez saisir le N° Doc!'; } 

    else if (Key == 'MSG_MAKINE_SECIN') { Result = 'Veuillez sélectionner le code machine!'; } 

    else if (Key == 'MSG_IHMAL_ZORUNLU') { Result = 'Veuillez remplir le champ obligatoire.'; } 

    else if (Key == 'MSG_KAPASITE_DOLU') { Result = 'Capacité pleine!'; } 

    else if (Key == 'MSG_KAYIT_EKLENDI') { Result = 'Nouvel enregistrement ajouté.'; } 

    else if (Key == 'MSG_KAYIT_GUNCELLENDI') { Result = 'Enregistrement mis à jour.'; } 

    else if (Key == 'MSG_KAYIT_YUKLENDI') { Result = 'Enregistrement chargé.'; }

    else if (Key == 'ARA_ARIZA') { Result = 'Rechercher code d''erreur...'; }

    else if (Key == 'ARA_OPERATOR') { Result = 'Rechercher opérateur...'; }

    else if (Key == 'KAYDEDILDI') { Result = 'Enregistré'; } 

    else if (Key == 'TAMAMLANDI') { Result = 'Terminé'; }

  }

  // 0 VEYA FARKLI BİR DURUM: TÜRKÇE (Varsayılan)

  else { 

    if (Key == 'NAV_TITLE') { Result = 'Arıza Hareketleri'; }

    else if (Key == 'YENI') { Result = 'Yeni'; } 

    else if (Key == 'KAYDET') { Result = 'Kaydet'; } 

    else if (Key == 'SECT1') { Result = '1. GENEL BİLGİLER'; } 

    else if (Key == 'SECT2') { Result = '2. MALZEME & MALİYET'; } 

    else if (Key == 'SECT3') { Result = '3. GÖRSEL'; } 

    else if (Key == 'SECT4') { Result = '4. Neden Bakım Yapılamadı? (Zorunlu)'; } 

    else if (Key == 'BELGE_NO') { Result = 'Belge No:'; } 

    else if (Key == 'TARIH') { Result = 'Tarih:'; } 

    else if (Key == 'BAKIM_TIPI') { Result = 'Bakım Tipi:'; } 

    else if (Key == 'BAKIM_TURU') { Result = 'Bakım Türü:'; } 

    else if (Key == 'BAKIM_KODU') { Result = 'Bakım Kodu:'; } 

    else if (Key == 'MAKINE_KODU') { Result = 'Makine Kodu:'; } 

    else if (Key == 'BAGLANTI') { Result = 'Bakım Bağlantısı:'; } 

    else if (Key == 'CARI_KODU') { Result = 'Bakım Cari Kodu:'; } 

    else if (Key == 'BASLANGIC') { Result = 'Başlangıç Trh/Saat:'; } 

    else if (Key == 'GIRIS_ZAMANI') { Result = 'Giriş Zamanı:'; } 

    else if (Key == 'PLANLANAN') { Result = 'Planlanan Bitiş Süresi:'; } 

    else if (Key == 'KISI_SAYISI') { Result = 'Kişi Sayısı:'; } 

    else if (Key == 'OP_GRUP') { Result = 'Operatör Grubu:'; } 

    else if (Key == 'OPERATOR') { Result = 'Sorumlu Operatör:'; } 

    else if (Key == 'OP_BILGI') { Result = 'Yeni Operatör (Ad Soyad):'; } 

    else if (Key == 'ACIKLAMA') { Result = 'Genel Açıklama:'; } 

    else if (Key == 'KAMERA') { Result = 'Kamera / Galeri Aç'; } 

    else if (Key == 'OP_KAYDET') { Result = 'Kaydet'; }

    else if (Key == 'TALIMAT_METNI') { Result = '1. Makine enerjisini kesin.' + #13#10 + '2. Guvenlik kilidini takin.' + #13#10 + '3. Rulman yataklarini kontrol edin.' + #13#10 + '4. Sikma ve hizalama yapin.' + #13#10 + '5. Test calismasi yapin.'; }

    else if (Key == 'MSG_FORM_TEMIZLENDI') { Result = 'Form temizlendi.'; } 

    else if (Key == 'MSG_BELGE_NO_GIRIN') { Result = 'Lütfen kaydetmeden önce Belge No giriniz!'; } 

    else if (Key == 'MSG_KAYIT_BASARILI') { Result = 'KAYIT BAŞARILI!'; } 

    else if (Key == 'MSG_EKLENEN_VERI') { Result = 'Eklenen Veri: '; } 

    else if (Key == 'MSG_OP_BILGI_GIRIN') { Result = 'Lütfen önce Operatör Bilgisi giriniz.'; } 

    else if (Key == 'MSG_OP_GRUP_SECIN') { Result = 'Lütfen kaydedilecek operatörün grubunu seçiniz.'; } 

    else if (Key == 'MSG_OP_KAYDEDILDI') { Result = 'Operatör kaydedildi.'; }

    else if (Key == 'LST_BOS') { Result = 'Listede malzeme yok'; } 

    else if (Key == 'ARA_BELGE') { Result = 'Belge Ara...'; } 

    else if (Key == 'ARA_BAKIM') { Result = 'Bakım Kodu Ara...'; } 

    else if (Key == 'ARA_BAGLANTI') { Result = 'Bağlantı Ara...'; } 

    else if (Key == 'ARA_CARI') { Result = 'Cari Kodu Ara...'; } 

    else if (Key == 'ARA_MAKINE') { Result = 'Makine Kodu Ara...'; }

    else if (Key == 'ARIZA_KODU') { Result = 'Ariza Kodu:'; }

    else if (Key == 'DURUM') { Result = 'Durum: '; } 

    else if (Key == 'MSG_YENI_SAYFA') { Result = 'Yeni kayit sayfasi acildi.'; } 

    else if (Key == 'MSG_BELGE_GIRIN') { Result = 'Lutfen Belge No giriniz!'; } 

    else if (Key == 'MSG_MAKINE_SECIN') { Result = 'Lutfen Makine Kodu secin!'; } 

    else if (Key == 'MSG_IHMAL_ZORUNLU') { Result = 'Lütfen zorunlu alanı doldurun.'; } 

    else if (Key == 'MSG_KAPASITE_DOLU') { Result = 'Kapasite dolu!'; } 

    else if (Key == 'MSG_KAYIT_EKLENDI') { Result = 'Yeni kayit basariyla listeye eklendi.'; } 

    else if (Key == 'MSG_KAYIT_GUNCELLENDI') { Result = 'Mevcut kayit basariyla guncellendi.'; } 

    else if (Key == 'MSG_KAYIT_YUKLENDI') { Result = 'Kayit icerigi forma yuklendi.'; }

    else if (Key == 'ARA_ARIZA') { Result = 'Ariza Kodu Ara...'; }

    else if (Key == 'ARA_OPERATOR') { Result = 'Operator Ara...'; }

    else if (Key == 'KAYDEDILDI') { Result = 'Kaydedildi'; } 

    else if (Key == 'TAMAMLANDI') { Result = 'Tamamlandi'; }

  }

}

// =====================================================================

// TEMA MOTORU VE STİLLER

// =====================================================================

void AyarDosyasindanTemayiYukle(TemaIndex: Integer);

{

  ThemeBgColor = '#FFFFFF';      

  ThemeBorderColor = '#CBD5E1';

  ThemeTextColor = '#111827';    

  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 if TemaIndex == 4 { ThemeKoyuRenk = '#312E81'; ThemeAcikRenk = '#8B5CF6'; } 

  else if TemaIndex == 5 { ThemeKoyuRenk = '#78350F'; ThemeAcikRenk = '#F59E0B'; } 

  else if TemaIndex == 6 { ThemeKoyuRenk = '#7F1D1D'; ThemeAcikRenk = '#EF4444'; } 

  else { ThemeKoyuRenk = '#1F2937'; ThemeAcikRenk = '#4B5563'; } 

  

  FormMain.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(ThemeBgColor);

  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 StyleMalzemeBaslik(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

  ALabel.clProSettings.FontSize = UiFontSize + 2;

  ALabel.clProSettings.FontName = OkunanFontAdi;

  ALabel.clProSettings.TextSettings.Font.Style = [fsBold];

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleMalzemeAlt(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  ALabel.clProSettings.FontSize = UiFontSize;

  ALabel.clProSettings.FontName = OkunanFontAdi;

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleWhiteButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AButton.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeKoyuRenk); 

  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 StylePrimaryButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

  AButton.clProSettings.FontColor = clAlphaColor.clWhite;

  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeKoyuRenk);

  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 StyleRehberButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 8;

  AButton.clProSettings.RoundWidth = 8;

  AButton.SetclProSettings(AButton.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(ThemeTextColor);

  ALabel.clProSettings.FontSize = UiFontSize;

  ALabel.clProSettings.FontName = OkunanFontAdi;

  ALabel.clProSettings.TextSettings.Font.Style = [fsBold];

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleInputEdit(AEdit: TclProEdit);

{

  AEdit.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);

  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

  AEdit.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AEdit.clProSettings.BorderWidth = 1;

  AEdit.clProSettings.IsFill = True;

  AEdit.clProSettings.IsRound = True;

  AEdit.clProSettings.RoundHeight = 6;

  AEdit.clProSettings.RoundWidth = 6;

  AEdit.clProSettings.FontSize = UiFontSize;

  AEdit.clProSettings.FontName = OkunanFontAdi;

  AEdit.SetclProSettings(AEdit.clProSettings);

}

void StyleReadonlyEdit(AEdit: TclProEdit);

{

  AEdit.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeKoyuRenk); 

  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);

  AEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC'); 

  AEdit.clProSettings.BorderWidth = 1;

  AEdit.clProSettings.IsFill = True;

  AEdit.clProSettings.IsRound = True;

  AEdit.clProSettings.RoundHeight = 6;

  AEdit.clProSettings.RoundWidth = 6;

  AEdit.clProSettings.FontSize = UiFontSize + 1; 

  AEdit.clProSettings.FontName = OkunanFontAdi;

  AEdit.clProSettings.TextSettings.Font.Style = [fsBold]; 

  AEdit.SetclProSettings(AEdit.clProSettings);

}

// =====================================================================

// GÜVENLİ ODAKLANMA

// =====================================================================

void StyleInputFocus;

var FocusEdit: TclProEdit;

{

  if (FormMain.ClSender <> nil)

  {

    FocusEdit = TclProEdit(FormMain.ClSender);

    FocusEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeAcikRenk);

    FocusEdit.clProSettings.BorderWidth = 2;

    FocusEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

    FocusEdit.SetclProSettings(FocusEdit.clProSettings);

  }

}

void StyleInputBlur;

var BlurEdit: TclProEdit;

{

  if (FormMain.ClSender <> nil)

  {

    BlurEdit = TclProEdit(FormMain.ClSender);

    StyleInputEdit(BlurEdit);

  }

}

void BindInputFocus(AEdit: TclProEdit);

{

  FormMain.AddNewEvent(AEdit, tbeOnEnter, 'StyleInputFocus');

  FormMain.AddNewEvent(AEdit, tbeOnExit, 'StyleInputBlur');

}

// =====================================================================

// SAF VE TEMİZ KAYDIRMA 

// =====================================================================

void KlvKisiSayisi;

{

  ScrollForm.ScrollTo(0, 10000);

  ScrollForm.ScrollTo(0, -315); 

}

void KlvAciklama;

{

  ScrollForm.ScrollTo(0, 10000);

  ScrollForm.ScrollTo(0, -450); 

}

void KlvBakimIhmal;

{

  ScrollForm.ScrollTo(0, 10000);

  ScrollForm.ScrollTo(0, -1190); 

}

// =====================================================================

// ARAYÜZE ÇEVİRİ BASMA VE FONT AYARLARI

// =====================================================================

void ApplyUiSettings;

{

  LblNavTitle.Text = GetText('NAV_TITLE');

  BtnYeni.Text = GetText('YENI');

  BtnKaydet.Text = GetText('KAYDET');

  

  LblSect1.Text = GetText('SECT1');

  LblGridTitle.Text = GetText('SECT2');

  LblPhotoTitle.Text = GetText('SECT3');

  Arz_LblBakimIhmal.Text = GetText('SECT4');

  

  Arz_LblBelgeNo.Text = GetText('BELGE_NO');

  Arz_LblTarih.Text = GetText('TARIH');

  Arz_LblArizaKodu.Text = GetText('ARIZA_KODU'); 

  Arz_LblMakineKodu.Text = GetText('MAKINE_KODU');

  Arz_LblBaglanti.Text = GetText('BAGLANTI');

  Arz_LblBaslangic.Text = GetText('BASLANGIC');

  Arz_LblGirisZamani.Text = GetText('GIRIS_ZAMANI');

  Arz_LblPlanlananBitis.Text = GetText('PLANLANAN');

  Arz_LblKisiSayisi.Text = GetText('KISI_SAYISI');

  Arz_LblOperator.Text = GetText('OPERATOR');

  Arz_LblAciklama.Text = GetText('ACIKLAMA');

  

  BtnResimCek.Text = GetText('KAMERA');

  Arz_CmbPlanlananBitis.Items.Clear;

  if (gAktifDilIndex == 1) {

    Arz_CmbPlanlananBitis.AddItem('Hourly', 'Saat');

    Arz_CmbPlanlananBitis.AddItem('Daily', 'Gün');

    Arz_CmbPlanlananBitis.AddItem('Monthly', 'Ay');

  } else {

    Arz_CmbPlanlananBitis.AddItem('Saat', 'Saat');

    Arz_CmbPlanlananBitis.AddItem('Gün', 'Gün');

    Arz_CmbPlanlananBitis.AddItem('Ay', 'Ay');

  }

  LblNavTitle.clProSettings.FontSize = UiFontSize + 4;

  LblNavTitle.clProSettings.FontName = OkunanFontAdi;

  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  StyleInputLabel(Arz_LblBelgeNo); StyleInputLabel(Arz_LblTarih); 

  StyleInputLabel(Arz_LblArizaKodu); StyleInputLabel(Arz_LblMakineKodu);

  StyleInputLabel(Arz_LblBaglanti); StyleInputLabel(Arz_LblBaslangic); StyleInputLabel(Arz_LblGirisZamani);

  StyleInputLabel(Arz_LblPlanlananBitis); StyleInputLabel(Arz_LblKisiSayisi); 

  StyleInputLabel(Arz_LblOperator); StyleInputLabel(Arz_LblAciklama);

  StyleReadonlyEdit(Arz_EdtBelgeNo); StyleReadonlyEdit(Arz_EdtTarih); 

  StyleReadonlyEdit(Arz_EdtArizaKodu); StyleReadonlyEdit(Arz_EdtMakineKodu);

  StyleReadonlyEdit(Arz_EdtBaglanti);

  StyleReadonlyEdit(Arz_EdtBaslangicSaat); StyleReadonlyEdit(Arz_EdtBaslangic); 

  StyleReadonlyEdit(Arz_EdtGirisZamani); StyleInputEdit(Arz_EdtKisiSayisi); 

  StyleReadonlyEdit(Arz_EdtOperator); StyleInputEdit(Arz_EdtAciklama);

  Arz_LblMain.clProSettings.FontSize = UiFontSize + 2;

  Arz_LblMain.SetclProSettings(Arz_LblMain.clProSettings);

  Arz_LblSub.clProSettings.FontSize = UiFontSize;

  Arz_LblSub.SetclProSettings(Arz_LblSub.clProSettings);

  Arz_MemBakimIhmal.TextSettings.Font.Size = UiFontSize;

  StyleHeaderBar(PnlNavBar);

  StyleHeaderBar(PnlHeaderTop);

  StyleMainCard(PnlMainCard);

  StyleWhiteButton(BtnYeni);

  StyleWhiteButton(BtnKaydet);

  StylePrimaryButton(BtnResimCek);

  StyleRehberButton(Arz_BtnRehberBelge);

  StyleRehberButton(Arz_BtnRehberAriza);

  StyleRehberButton(Arz_BtnRehberMakine);

  StyleRehberButton(Arz_BtnRehberBaglanti);

  StyleRehberButton(Arz_BtnRehberOperator);

  StyleInputPanel(Arz_GrpBelgeNo);

  StyleInputPanel(Arz_GrpTarih);

  StyleInputPanel(Arz_GrpArizaKodu);

  StyleInputPanel(Arz_GrpMakineKodu);

  StyleInputPanel(Arz_GrpBaglanti);

  StyleInputPanel(Arz_GrpBaslangic);

  StyleInputPanel(Arz_GrpGirisZamani);

  StyleInputPanel(Arz_GrpPlanlananBitis);

  StyleInputPanel(Arz_GrpKisiSayisi);

  StyleInputPanel(Arz_GrpOperator);

  StyleInputPanel(Arz_GrpAciklama);

  StyleInputPanel(Arz_PnlPhotoKutu);

  StyleInputPanel(Arz_PnlBakimIhmalKutu);

  StyleSectionTitle(LblSect1);

  StyleSectionTitle(LblGridTitle);

  StyleSectionTitle(LblPhotoTitle);

  StyleSectionTitle(Arz_LblBakimIhmal);

}

// =====================================================================

// DATA VE FONKSİYONLAR

// =====================================================================

void Arz_SetCurrentDateTime;

{

  Arz_EdtTarih.Text = DateToStr(Now);

  Arz_EdtBaslangic.Text = DateToStr(Now);

  Arz_EdtBaslangicSaat.Text = TimeToStr(Now);

  Arz_EdtGirisZamani.Text = DateToStr(Now) + ' ' + TimeToStr(Now);

}

void Arz_LoadDemoData;

{

  SeciliKayitIndeks = -1; 

  Arz_ArizaCount = 1;

  Arz_BelgeNo[0] = 'BLG-001';

  Arz_KayitTarih[0] = '05.05.2026';

  Arz_MakineArr[0] = 'MK-001 | CNC Dik Islem';

  Arz_ArizaDurum[0] = GetText('TAMAMLANDI');

  Arz_BakimIhmalArr[0] = 'Rutin bakim yapildi.';

  Arz_BasTarih[0] = DateToStr(Now);

  Arz_BasSaat[0] = TimeToStr(Now); 

  Arz_BitTarih[0] = 'Saat';

  Arz_ArzKodArr[0] = 'KOD-123';

  Arz_BaglantiArr[0] = 'Yok';

  Arz_KisiSayisiArr[0] = '2';

  Arz_OperatorArr[0] = 'OPRTR-001 - Ornek Operator';

  Arz_AciklamaArr[0] = 'Genel kontrol saglandi.';

}

void Arz_ClearForm;

{

  SeciliKayitIndeks = -1;

  

  Arz_EdtBelgeNo.Text = '';

  Arz_EdtArizaKodu.Text = '';

  Arz_EdtMakineKodu.Text = ''; 

  Arz_EdtBaglanti.Text = '';

  Arz_CmbPlanlananBitis.ItemIndex = -1;

  Arz_EdtKisiSayisi.Text = '0';

  Arz_EdtOperator.Text = '';

  Arz_EdtAciklama.Text = '';

  Arz_MemBakimIhmal.Text = ''; 

  Arz_SetCurrentDateTime;

}

void Arz_RefreshList;

{

  Arz_ArizaJson = '[';

  TmpIndeks = Arz_ArizaCount - 1;

  while (TmpIndeks >= 0)

  {

    if (Length(Arz_ArizaJson) > 1)

    {

      Arz_ArizaJson = Arz_ArizaJson + ',';

    }

    Arz_ArizaJson = Arz_ArizaJson + '{"MAIN_TEXT":"' + Arz_MakineArr[TmpIndeks] + '","SUB_TEXT":"' + Arz_BelgeNo[TmpIndeks] + ' - ' + GetText('DURUM') + Arz_ArizaDurum[TmpIndeks] + '"}';

    TmpIndeks = TmpIndeks - 1;

  }

  Arz_ArizaJson = Arz_ArizaJson + ']';

  Arz_ListAriza.clLoadProListViewDataFromDataset(Clomosy.clDataSetFromJSON(Arz_ArizaJson));

}

void Arz_ListedenSec;

var

  SecilenMetin: String;

  i: Integer;

{

  SecilenMetin = Arz_ListAriza.clSelectedItemData(clText); 

  

  SeciliKayitIndeks = -1;

  i = 0;

  while (i < Arz_ArizaCount)

  {

    if (SecilenMetin == Arz_BelgeNo + ' - ' + GetText('DURUM') + Arz_ArizaDurum)