Sayfayı Yazdır | Pencereyi Kapat

arıza tasarımı

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1602
Tarih: 09 Temmuz 2026 Saat 11:51
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: arıza tasarımı
Mesajı Yazan: kayra12
Konu: arıza tasarımı
Mesaj Tarihi: 08 Temmuz 2026 Saat 10:17
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)
    {
      SeciliKayitIndeks = i;
    }
    i = i + 1;
  }
  
  if (SeciliKayitIndeks > -1)
  {
    Arz_EdtBelgeNo.Text = Arz_BelgeNo[SeciliKayitIndeks];
    Arz_EdtArizaKodu.Text = Arz_ArzKodArr[SeciliKayitIndeks];
    Arz_EdtBaglanti.Text = Arz_BaglantiArr[SeciliKayitIndeks];
    Arz_EdtKisiSayisi.Text = Arz_KisiSayisiArr[SeciliKayitIndeks];
    Arz_EdtOperator.Text = Arz_OperatorArr[SeciliKayitIndeks];
    Arz_EdtAciklama.Text = Arz_AciklamaArr[SeciliKayitIndeks];
    Arz_EdtMakineKodu.Text = Arz_MakineArr[SeciliKayitIndeks];
    Arz_MemBakimIhmal.Text = Arz_BakimIhmalArr[SeciliKayitIndeks];
    Arz_EdtBaslangic.Text = Arz_BasTarih[SeciliKayitIndeks];
    Arz_EdtBaslangicSaat.Text = Arz_BasSaat[SeciliKayitIndeks];
    
    if (Arz_BitTarih[SeciliKayitIndeks] == 'Saat') { Arz_CmbPlanlananBitis.ItemIndex = 0; }
    else if (Arz_BitTarih[SeciliKayitIndeks] == 'Gün') { Arz_CmbPlanlananBitis.ItemIndex = 1; }
    else if (Arz_BitTarih[SeciliKayitIndeks] == 'Ay') { Arz_CmbPlanlananBitis.ItemIndex = 2; }
    else { Arz_CmbPlanlananBitis.ItemIndex = -1; }
    
    ShowMessage(GetText('MSG_KAYIT_YUKLENDI'));
  }
}

void Arz_BtnYeniClick;
{
  Arz_ClearForm;
  ShowMessage(GetText('MSG_YENI_SAYFA'));
}

void Arz_KaydetKayit;
var
  KayitDosyasi: TclStringList;
  DosyaYolu, YeniKayit, LTarih, LAy, LYil: String;
{
  if (Arz_EdtBelgeNo.Text == '')
  {
    ShowMessage(GetText('MSG_BELGE_GIRIN'));
    Exit;
  }

  if (Arz_EdtMakineKodu.Text == '')
  {
    ShowMessage(GetText('MSG_MAKINE_SECIN'));
    Exit;
  }

  if (Trim(Arz_MemBakimIhmal.Text) == '')
  {
    ShowMessage(GetText('MSG_IHMAL_ZORUNLU'));
    Exit;
  }
  
  // YENİ EK: Dosyaya Kaydetme (Filtre ekranında otomatik görünsün diye)
  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);
  KayitDosyasi = Clomosy.StringListNew;
  if (clFileExists(DosyaYolu, '')) { KayitDosyasi.LoadFromFile(DosyaYolu, 0); }
  
  LTarih = DateToStr(Now);
  LAy = Copy(LTarih, 4, 2);
  LYil = Copy(LTarih, 7, 4);

  // Format: Tur | BelgeNo | Makine | Tip(Arıza) | Tarih | Durum | Ay | Yil | Periyot
  YeniKayit = 'Arıza|' + Arz_EdtBelgeNo.Text + '|' + Arz_EdtMakineKodu.Text + '|' + Arz_EdtArizaKodu.Text + '|' + LTarih + '|Bekliyor|' + LAy + '|' + LYil + '|' + Arz_CmbPlanlananBitis.Text;
  KayitDosyasi.Add(YeniKayit);
  KayitDosyasi.SaveToFile(DosyaYolu, 0);
  KayitDosyasi.Free;

  if (SeciliKayitIndeks == -1)
  {
    if (Arz_ArizaCount >= 50)
    {
      ShowMessage(GetText('MSG_KAPASITE_DOLU'));
      Exit;
    }

    Arz_BelgeNo[Arz_ArizaCount] = Trim(Arz_EdtBelgeNo.Text);
    Arz_MakineArr[Arz_ArizaCount] = Arz_EdtMakineKodu.Text;
    Arz_BakimIhmalArr[Arz_ArizaCount] = Trim(Arz_MemBakimIhmal.Text);
    Arz_BasTarih[Arz_ArizaCount] = Arz_EdtBaslangic.Text;
    Arz_BasSaat[Arz_ArizaCount] = Arz_EdtBaslangicSaat.Text;
    if (Arz_CmbPlanlananBitis.ItemIndex == 0) { Arz_BitTarih[Arz_ArizaCount] = 'Saat'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 1) { Arz_BitTarih[Arz_ArizaCount] = 'Gün'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 2) { Arz_BitTarih[Arz_ArizaCount] = 'Ay'; }
    else { Arz_BitTarih[Arz_ArizaCount] = ''; }

    Arz_ArzKodArr[Arz_ArizaCount] = Arz_EdtArizaKodu.Text;
    Arz_BaglantiArr[Arz_ArizaCount] = Arz_EdtBaglanti.Text;
    Arz_KisiSayisiArr[Arz_ArizaCount] = Arz_EdtKisiSayisi.Text;
    Arz_OperatorArr[Arz_ArizaCount] = Arz_EdtOperator.Text;
    Arz_AciklamaArr[Arz_ArizaCount] = Arz_EdtAciklama.Text;
    Arz_KayitTarih[Arz_ArizaCount] = DateToStr(Now);
    Arz_ArizaDurum[Arz_ArizaCount] = GetText('KAYDEDILDI');
    
    Arz_ArizaCount = Arz_ArizaCount + 1;
    ShowMessage(GetText('MSG_KAYIT_EKLENDI'));
  }
  else
  {
    Arz_BelgeNo[SeciliKayitIndeks] = Trim(Arz_EdtBelgeNo.Text);
    Arz_MakineArr[SeciliKayitIndeks] = Arz_EdtMakineKodu.Text;
    Arz_BakimIhmalArr[SeciliKayitIndeks] = Trim(Arz_MemBakimIhmal.Text);
    Arz_BasTarih[SeciliKayitIndeks] = Arz_EdtBaslangic.Text;
    Arz_BasSaat[SeciliKayitIndeks] = Arz_EdtBaslangicSaat.Text; 
    
    if (Arz_CmbPlanlananBitis.ItemIndex == 0) { Arz_BitTarih[SeciliKayitIndeks] = 'Saat'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 1) { Arz_BitTarih[SeciliKayitIndeks] = 'Gün'; }
    else if (Arz_CmbPlanlananBitis.ItemIndex == 2) { Arz_BitTarih[SeciliKayitIndeks] = 'Ay'; }
    else { Arz_BitTarih[SeciliKayitIndeks] = ''; }

    Arz_ArzKodArr[SeciliKayitIndeks] = Arz_EdtArizaKodu.Text;
    Arz_BaglantiArr[SeciliKayitIndeks] = Arz_EdtBaglanti.Text;
    Arz_KisiSayisiArr[SeciliKayitIndeks] = Arz_EdtKisiSayisi.Text;
    Arz_OperatorArr[SeciliKayitIndeks] = Arz_EdtOperator.Text;
    Arz_AciklamaArr[SeciliKayitIndeks] = Arz_EdtAciklama.Text;

    ShowMessage(GetText('MSG_KAYIT_GUNCELLENDI'));
  }
  
  Arz_RefreshList;
  Arz_ClearForm; 
}

void TakePhotoClick;
{
  Clomosy.ImageChooser(FormMain, Arz_ImgPhoto); 
}

void GoBack;
{
  FormMain.Close;
}

// =====================================================================
// DİNAMİK REHBER (LOOKUP) SİSTEMİ PROSEDÜRLERİ 
// =====================================================================

void OnSearchRehber;
{
  if (RehberJsonData == nil) { Exit; }
  if (EdtRehberArama.Text == '') 
  { 
    RehberJsonData.Filtered = False;
    RehberJsonData.Filter = ''; 
  }
  else 
  { 
    RehberJsonData.Filter = 'MAIN_TEXT Like ' + Chr(39) + '%' + EdtRehberArama.Text + '%' + Chr(39);
    RehberJsonData.Filtered = True; 
  }
}

void OnListItemClick;
var
  SecilenAnaMetin, SecilenAltMetin: String;
{ 
  SecilenAnaMetin = LsvBelgeRehber.clSelectedItemData(clCaption);
  SecilenAltMetin = LsvBelgeRehber.clSelectedItemData(clText);
  if (SecilenAnaMetin == GetText('LST_BOS'))
  {
    RehberForm.Close; 
    Exit;
  }

  if (GlobalLookupType == 'BELGE')
  {
    Arz_EdtBelgeNo.Text = SecilenAnaMetin;
    Arz_EdtMakineKodu.Text = SecilenAltMetin;
  }
  else if (GlobalLookupType == 'ARIZA')
  {
    Arz_EdtArizaKodu.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'MAKINE')
  {
    Arz_EdtMakineKodu.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'BAGLANTI')
  {
    Arz_EdtBaglanti.Text = SecilenAnaMetin;
  }
  else if (GlobalLookupType == 'OPERATOR')
  {
    Arz_EdtOperator.Text = SecilenAnaMetin; 
  }
  
  RehberForm.Close;
}

void BuildRehberForm;
var
  RehberDP: TclProListViewDesignerPanel;
  RehberLblMain, RehberLblSub: TclProLabel;
{
  RehberForm = TclForm.Create(Self); 
  RehberForm.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);
  EdtRehberArama = RehberForm.AddNewProEdit(RehberForm, 'EdtRehberArama', 'Ara...'); 
  EdtRehberArama.Align = alTop; EdtRehberArama.Margins.Top = 10; EdtRehberArama.Margins.Left = 10; EdtRehberArama.Margins.Right = 10; EdtRehberArama.Height = 40;
  EdtRehberArama.clProSettings.FontSize = 14;
  RehberForm.AddNewEvent(EdtRehberArama, tbeOnChange, 'OnSearchRehber');

  LsvBelgeRehber = RehberForm.AddNewProListView(RehberForm, 'LsvBelgeRehber'); 
  LsvBelgeRehber.Align = alClient; LsvBelgeRehber.Margins.Top = 10; LsvBelgeRehber.ListType = 'vertical';
  LsvBelgeRehber.clProSettings.ItemHeight = 65; 
  LsvBelgeRehber.clProSettings.ItemSpace = 5;
  LsvBelgeRehber.clProSettings.ColCount = 1; 
  LsvBelgeRehber.clProSettings.ViewType = lvIcon; 
  LsvBelgeRehber.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  LsvBelgeRehber.SetclProSettings(LsvBelgeRehber.clProSettings);
  
  RehberDP = RehberForm.AddNewProListViewDesignerPanel(LsvBelgeRehber, 'RehberDP');
  RehberDP.Align = alTop; RehberDP.Height = 60; RehberDP.Width = 350;
  RehberDP.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  RehberDP.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  RehberDP.clProSettings.BorderWidth = 1;
  RehberDP.clProSettings.IsRound = True;
  RehberDP.clProSettings.RoundHeight = 8;
  RehberDP.clProSettings.RoundWidth = 8;
  RehberDP.SetclProSettings(RehberDP.clProSettings);

  RehberLblMain = RehberForm.AddNewProLabel(RehberDP, 'MAIN_TEXT', '');
  RehberLblMain.Align = alTop;
  RehberLblMain.Height = 25; RehberLblMain.Margins.Left = 10; RehberLblMain.Margins.Top = 5;
  RehberLblMain.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);
  RehberLblMain.clProSettings.TextSettings.Font.Style = [fsBold];
  RehberLblMain.clProSettings.FontSize = UiFontSize;
  RehberLblMain.SetclProSettings(RehberLblMain.clProSettings);
  RehberLblSub = RehberForm.AddNewProLabel(RehberDP, 'SUB_TEXT', '');
  RehberLblSub.Align = alTop; RehberLblSub.Height = 25; RehberLblSub.Margins.Left = 10;
  RehberLblSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  RehberLblSub.clProSettings.FontSize = UiFontSize - 2;
  RehberLblSub.SetclProSettings(RehberLblSub.clProSettings);

  RehberDP.AddPanelObject(RehberLblMain, clCaption);
  RehberDP.AddPanelObject(RehberLblSub, clText);
  LsvBelgeRehber.SetDesignerPanel(RehberDP);
  
  RehberForm.AddNewEvent(LsvBelgeRehber, tbeOnItemClick, 'OnListItemClick');
}

void OpenRehber;
var 
  q: TclSQLQuery;
  JsonStr: String;
{
  BuildRehberForm;
  // 1. SİGORTA DEVREDE: Eğer daha önce bağlanmayı denemediysek ŞİMDİ DENE
  if (gBaglantiDenendi == 0)
  {
    Clomosy.DBSQLServerConnect('SQL Server','192.168.1.39','sa','1','ATIKER_YAZILIM',50000);
    gBaglantiDenendi = 1; // Artık denendi, bir daha 30 saniye kilitlenmeyecek!
  }
  
  // 2. SUNUCU YOKSA BOŞ YERE VERİ ÇEKMEYE ÇALIŞMA (DONMAYI KESEN YER BURASI)
  if (not Clomosy.DBSQLServerConnection.Connected)
  {
    ShowMessage('Sunucu (' + '192.168.1.39' + ') bulunamadı! Lütfen Wi-Fi ağınızı kontrol edin.');
    // Uygulama çökmesin diye sahte bir liste gösterip durduruyoruz
    JsonStr = '[{"MAIN_TEXT":"Sunucuya Ulaşılamıyor", "SUB_TEXT":"Ağ bağlantısı yok."}]';
    if (RehberJsonData <> nil) { RehberJsonData.Free; }
    RehberJsonData = Clomosy.clDataSetFromJSON(JsonStr);
    LsvBelgeRehber.clLoadProListViewDataFromDataset(RehberJsonData);
    RehberForm.Run;
    Exit; // Buradan sonrasına geçme!
  }
  
  // 3. EĞER SUNUCU AÇIKSA VE BAĞLIYSAK HIZLI ÇEKİM YAP
  q = TclSQLQuery.Create(nil);
  try
    q.Connection = Clomosy.DBSQLServerConnection;

    if (GlobalLookupType == 'BELGE')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_BELGE');
      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 SELECT TOP 200 BELGE_NO AS MAIN_TEXT, MAKINE_KODU AS SUB_TEXT FROM [TBLURTBAKIMHR] WITH (NOLOCK) INNER JOIN [TBLURTMAKINESB] WITH (NOLOCK) ON MAKINE_KODU_RECID = TBLURTMAKINESB.REC_NO ORDER BY BELGE_NO DESC SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';
    }
    else if (GlobalLookupType == 'ARIZA')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_ARIZA');
      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 SELECT * FROM (SELECT TOP 200 BAKIM_KODU AS MAIN_TEXT, BAKIM_ACIKLAMA AS SUB_TEXT FROM [TBLURTBAKIMSB] WITH (NOLOCK) WHERE BAKIMTIP =(SELECT ARIZA_TIPI FROM [TBLURTBAKIMARIZATIP] WITH (NOLOCK) WHERE ARIZA_KODU='''') AND BAKIM_TURU=2 ) AS REHBERSQL ORDER BY MAIN_TEXT SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';
    }
    else if (GlobalLookupType == 'MAKINE')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_MAKINE');
      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 SELECT TOP 200 MAKINE_KODU AS MAIN_TEXT, MAKINE_ADI AS SUB_TEXT FROM [TBLURTMAKINESB] WITH (NOLOCK) ORDER BY MAKINE_KODU SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';
    }
    else if (GlobalLookupType == 'BAGLANTI')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_BAGLANTI');
      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 SELECT TOP 200 BAKIM_KODU AS MAIN_TEXT, BAKIM_ACIKLAMA AS SUB_TEXT FROM [TBLURTBAKIMSB] WITH (NOLOCK) WHERE BAKIM_TURU = 2 ORDER BY BAKIM_KODU SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';
    }
    else if (GlobalLookupType == 'OPERATOR')
    {
      EdtRehberArama.TextPrompt = GetText('ARA_OPERATOR');
      q.SQL.Text = 'SET NO_BROWSETABLE ON SET ROWCOUNT 0 SELECT * FROM (SELECT TOP 200 (OPERATOR_KODU + '' - '' + ISNULL(OPERATOR_ADI,'''')) AS MAIN_TEXT, '''' AS SUB_TEXT FROM [TBLURTOPERATORSB] WITH (NOLOCK) WHERE 1=1 AND ISNULL(PASIF,0)=0 AND OPERATOR_KODU IN (SELECT ITEMS FROM dbo.PrgFn_Split(''(OPRTR-001);(OPRTR-002);(OPRTR-003);(OPRTR-004);(OPRTR-005)'','';'')) ) AS REHBERSQL ORDER BY MAIN_TEXT SET ROWCOUNT 0 SET NO_BROWSETABLE OFF';
    }

    q.Open;

    JsonStr = '[';
    while (not q.Eof)
    {
      if (JsonStr <> '[') { JsonStr = JsonStr + ','; }
      JsonStr = JsonStr + '{"MAIN_TEXT":"' + q.FieldByName('MAIN_TEXT').AsString + '", "SUB_TEXT":"' + q.FieldByName('SUB_TEXT').AsString + '"}';
      q.Next;
    }
    
  finally
    q.Free;
  }
  
  if (JsonStr == '[') { JsonStr = '[{"MAIN_TEXT":"' + GetText('LST_BOS') + '", "SUB_TEXT":""}]'; }
  else { JsonStr = JsonStr + ']'; }
  
  // HAFIZA ŞİŞMESİNİ ÖNLÜYORUZ
  if (RehberJsonData <> nil) { RehberJsonData.Free; }
  RehberJsonData = Clomosy.clDataSetFromJSON(JsonStr);
  LsvBelgeRehber.clLoadProListViewDataFromDataset(RehberJsonData);
  RehberForm.Run;
}

// =====================================================================
// --- ORTAK V3 FORMATLI AYAR YÜKLEME MOTORU ---
// =====================================================================
void AyarlariYukle;
var
  OkunanDosyaYolu, TemaKodu, tmpStr : String;
  YuklenenAyarlar: TclStringList;
  OkunanBoyutIndex: Integer;
{
  UiFontSize = 12; OkunanFontAdi = 'Arial';
  gAktifDilIndex = 0; TemaKodu = '0';

  OkunanDosyaYolu = clPathCombine('UygulamaAyarlari_V3.txt', Clomosy.AppFilesPath);
  if (clFileExists(OkunanDosyaYolu, ''))
  {
    YuklenenAyarlar = Clomosy.StringListNew;
    YuklenenAyarlar.LoadFromFile(OkunanDosyaYolu, 0);
    if (YuklenenAyarlar.Count >= 3) 
    { 
      TemaKodu = Clomosy.StringListItemString(YuklenenAyarlar, 0);
      if (TemaKodu == '') { TemaKodu = '0'; }
      
      tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 1);
      if (tmpStr <> '') {
        OkunanBoyutIndex = StrToInt(tmpStr);
        if (OkunanBoyutIndex == 0) { UiFontSize = 12; }
        else if (OkunanBoyutIndex == 1) { UiFontSize = 14; }
        else if (OkunanBoyutIndex == 2) { UiFontSize = 16; }
      }
      
      tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 2);
      if (tmpStr <> '') { gAktifDilIndex = StrToInt(tmpStr); } else { gAktifDilIndex = 0; }
      
      if (YuklenenAyarlar.Count >= 6) {
        tmpStr = Clomosy.StringListItemString(YuklenenAyarlar, 5);
        if (tmpStr <> '') { OkunanFontAdi = tmpStr; }
      }
    }
  }
  AyarDosyasindanTemayiYukle(StrToInt(TemaKodu));
}

void DiliVeArayuzuGuncelle;
{
  AyarlariYukle;

  if (Arz_EdtBelgeNo <> nil)
  {
    ApplyUiSettings;
    Arz_RefreshList;
  }
}

// BÜYÜTEÇ BUTON EVENTLERİ
void BtnRehberBelgeClick; { GlobalLookupType = 'BELGE'; OpenRehber; }
void BtnRehberArizaClick; { GlobalLookupType = 'ARIZA'; OpenRehber; }
void BtnRehberMakineClick; { GlobalLookupType = 'MAKINE'; OpenRehber; }
void BtnRehberBaglantiClick; { GlobalLookupType = 'BAGLANTI'; OpenRehber; }
void BtnRehberOperatorClick; { GlobalLookupType = 'OPERATOR'; OpenRehber; }

// =====================================================================
// ANA BLOK 
// =====================================================================
{
  FormMain = TclGameForm.Create(Self);
  FormMain.LytTopBar.Visible = False;
  FormMain.BtnGoBack.Visible = False;
  FormMain.BtnFormMenu.Visible = False;
  FormMain.AddNewEvent(FormMain, tbeOnVirtualKeyboardShown, 'OnKeyboardShow');
  FormMain.AddNewEvent(FormMain, tbeOnVirtualKeyboardHidden, 'OnKeyboardHide');

  FormMain.AddNewEvent(FormMain, tbeOnFormActivate, 'DiliVeArayuzuGuncelle');

  UiFontSize = 12;
  OkunanFontAdi = 'Arial'; 
  gAktifDilIndex = 0;
  gBaglantiDenendi = 0; // SİGORTAMIZI SIFIRLADIK
  
  AyarlariYukle;
  Arz_LoadDemoData;

  PnlNavBar = FormMain.AddNewProPanel(FormMain, 'PnlNavBar');
  PnlNavBar.Align = alTop;
  PnlNavBar.Height = 92;
  StyleHeaderBar(PnlNavBar);

  BtnGeri = FormMain.AddNewProButton(PnlNavBar, 'BtnGeri', '<');
  BtnGeri.Align = alLeft; BtnGeri.Width = 48; BtnGeri.Margins.Top = 40;
  BtnGeri.Margins.Bottom = 0;
  BtnGeri.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnGeri.clProSettings.BorderWidth = 0; BtnGeri.clProSettings.IsFill = False;
  BtnGeri.clProSettings.FontSize = 20; BtnGeri.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnGeri.clProSettings.FontName = OkunanFontAdi;
  BtnGeri.SetclProSettings(BtnGeri.clProSettings);
  FormMain.AddNewEvent(BtnGeri, tbeOnClick, 'GoBack');

  LblNavTitle = FormMain.AddNewProLabel(PnlNavBar, 'LblNavTitle', '');
  LblNavTitle.Align = alClient; LblNavTitle.Margins.Left = 8;
  LblNavTitle.Margins.Top = 54;
  LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite;
  LblNavTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblNavTitle.clProSettings.FontName = OkunanFontAdi;
  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  ScrollForm = FormMain.AddNewVertScrollBox(FormMain, 'ScrollForm');
  ScrollForm.Align = alClient;
  PnlHeaderTop = FormMain.AddNewProPanel(ScrollForm, 'PnlHeaderTop');
  PnlHeaderTop.Align = alTop; PnlHeaderTop.Height = 56;
  StyleHeaderBar(PnlHeaderTop);

  BtnScroll = FormMain.AddNewHorzScrollBox(PnlHeaderTop, 'BtnScroll');
  BtnScroll.Align = alClient;
  BtnScroll.Margins.Left = 8; BtnScroll.Margins.Right = 8;

  BtnYeni = FormMain.AddNewProButton(BtnScroll, 'BtnYeni', '');
  BtnYeni.Align = alLeft; BtnYeni.Width = 82; BtnYeni.Margins.Left = 4;
  BtnYeni.Margins.Top = 9; BtnYeni.Margins.Bottom = 9; StyleWhiteButton(BtnYeni);
  FormMain.AddNewEvent(BtnYeni, tbeOnClick, 'Arz_BtnYeniClick');

  BtnKaydet = FormMain.AddNewProButton(BtnScroll, 'BtnKaydet', '');
  BtnKaydet.Align = alLeft;
  BtnKaydet.Width = 88; BtnKaydet.Margins.Left = 8; BtnKaydet.Margins.Top = 9; BtnKaydet.Margins.Bottom = 9; StyleWhiteButton(BtnKaydet);
  FormMain.AddNewEvent(BtnKaydet, tbeOnClick, 'Arz_KaydetKayit');

  PnlMainCard = FormMain.AddNewProPanel(ScrollForm, 'PnlMainCard');
  PnlMainCard.Align = alTop;
  PnlMainCard.Height = 2200; 
  PnlMainCard.Margins.Top = 15;
  PnlMainCard.Margins.Left = 12;
  PnlMainCard.Margins.Right = 12;
  PnlMainCard.Margins.Bottom = 25;
  StyleMainCard(PnlMainCard);
  LblSect1 = FormMain.AddNewProLabel(PnlMainCard, 'LblSect1', '');
  LblSect1.Align = alTop; LblSect1.Height = 30; LblSect1.Margins.Left = 10; LblSect1.Margins.Top = 15;
  StyleSectionTitle(LblSect1);
  // ---------------- BELGE NO ----------------
  Arz_GrpBelgeNo = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpBelgeNo');
  Arz_GrpBelgeNo.Align = alTop;
  Arz_GrpBelgeNo.Height = 58;
  Arz_GrpBelgeNo.Margins.Top = 6;
  Arz_GrpBelgeNo.Margins.Left = 10;
  Arz_GrpBelgeNo.Margins.Right = 10;
  StyleInputPanel(Arz_GrpBelgeNo);

  Arz_LblBelgeNo = FormMain.AddNewProLabel(Arz_GrpBelgeNo, 'Arz_LblBelgeNo', '');
  Arz_LblBelgeNo.Align = alTop;
  Arz_LblBelgeNo.Height = 18;
  Arz_LblBelgeNo.Margins.Left = 10;
  Arz_LblBelgeNo.Margins.Top = 6;
  StyleInputLabel(Arz_LblBelgeNo);

  Arz_BtnRehberBelge = FormMain.AddNewProButton(Arz_GrpBelgeNo, 'Arz_BtnRehberBelge', '');
  Arz_BtnRehberBelge.Align = alRight;
  Arz_BtnRehberBelge.Width = 50;
  Arz_BtnRehberBelge.Margins.Right = 10;
  Arz_BtnRehberBelge.Margins.Bottom = 7;
  StyleRehberButton(Arz_BtnRehberBelge);
  FormMain.AddNewEvent(Arz_BtnRehberBelge, tbeOnClick, 'BtnRehberBelgeClick');
  
  ImgBelge = FormMain.AddNewImage(Arz_BtnRehberBelge, 'ImgBelge'); 
  ImgBelge.Align = alClient; ImgBelge.Margins.Top = 2;
  ImgBelge.Margins.Bottom = 2; ImgBelge.Margins.Left = 2; ImgBelge.Margins.Right = 2;
  FormMain.setImage(ImgBelge, ' https://i.hizliresim.com/57ztonk.png" rel="nofollow - https://i.hizliresim.com/57ztonk.png '); 
  FormMain.AddNewEvent(ImgBelge, tbeOnClick, 'BtnRehberBelgeClick');

  Arz_EdtBelgeNo = FormMain.AddNewProEdit(Arz_GrpBelgeNo, 'Arz_EdtBelgeNo', '');
  Arz_EdtBelgeNo.Align = alClient;
  Arz_EdtBelgeNo.Margins.Left = 10;
  Arz_EdtBelgeNo.Margins.Right = 5;
  Arz_EdtBelgeNo.Margins.Bottom = 7;
  Arz_EdtBelgeNo.ReadOnly = True;
  StyleReadonlyEdit(Arz_EdtBelgeNo);

  Arz_GrpTarih = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpTarih');
  Arz_GrpTarih.Align = alTop; Arz_GrpTarih.Height = 58; Arz_GrpTarih.Margins.Top = 6; Arz_GrpTarih.Margins.Left = 10; Arz_GrpTarih.Margins.Right = 10; StyleInputPanel(Arz_GrpTarih);
  Arz_LblTarih = FormMain.AddNewProLabel(Arz_GrpTarih, 'Arz_LblTarih', ''); Arz_LblTarih.Align = alTop; Arz_LblTarih.Height = 18; Arz_LblTarih.Margins.Left = 10; Arz_LblTarih.Margins.Top = 6; StyleInputLabel(Arz_LblTarih);
  Arz_EdtTarih = FormMain.AddNewProEdit(Arz_GrpTarih, 'Arz_EdtTarih', ''); Arz_EdtTarih.Align = alClient; Arz_EdtTarih.Margins.Left = 10; Arz_EdtTarih.Margins.Right = 10; Arz_EdtTarih.Margins.Bottom = 7; Arz_EdtTarih.ReadOnly = True;
  StyleReadonlyEdit(Arz_EdtTarih);

  // ---------------- ARIZA KODU ----------------
  Arz_GrpArizaKodu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpArizaKodu'); Arz_GrpArizaKodu.Align = alTop; Arz_GrpArizaKodu.Height = 58; Arz_GrpArizaKodu.Margins.Top = 6;
  Arz_GrpArizaKodu.Margins.Left = 10; Arz_GrpArizaKodu.Margins.Right = 10; StyleInputPanel(Arz_GrpArizaKodu);
  Arz_LblArizaKodu = FormMain.AddNewProLabel(Arz_GrpArizaKodu, 'Arz_LblArizaKodu', ''); Arz_LblArizaKodu.Align = alTop; Arz_LblArizaKodu.Height = 18;
  Arz_LblArizaKodu.Margins.Left = 10; Arz_LblArizaKodu.Margins.Top = 6; StyleInputLabel(Arz_LblArizaKodu);
  
  Arz_BtnRehberAriza = FormMain.AddNewProButton(Arz_GrpArizaKodu, 'Arz_BtnRehberAriza', ''); Arz_BtnRehberAriza.Align = alRight; Arz_BtnRehberAriza.Width = 50;
  Arz_BtnRehberAriza.Margins.Right = 10; Arz_BtnRehberAriza.Margins.Bottom = 7; StyleRehberButton(Arz_BtnRehberAriza); FormMain.AddNewEvent(Arz_BtnRehberAriza, tbeOnClick, 'BtnRehberArizaClick');
  
  ImgAriza = FormMain.AddNewImage(Arz_BtnRehberAriza, 'ImgAriza'); 
  ImgAriza.Align = alClient; ImgAriza.Margins.Top = 2;
  ImgAriza.Margins.Bottom = 2; ImgAriza.Margins.Left = 2; ImgAriza.Margins.Right = 2;
  FormMain.setImage(ImgAriza, ' https://i.hizliresim.com/57ztonk.png" rel="nofollow - https://i.hizliresim.com/57ztonk.png '); 
  FormMain.AddNewEvent(ImgAriza, tbeOnClick, 'BtnRehberArizaClick');
  
  Arz_EdtArizaKodu = FormMain.AddNewProEdit(Arz_GrpArizaKodu, 'Arz_EdtArizaKodu', '');
  Arz_EdtArizaKodu.Align = alClient; Arz_EdtArizaKodu.Margins.Left = 10; Arz_EdtArizaKodu.Margins.Right = 5; Arz_EdtArizaKodu.Margins.Bottom = 7; Arz_EdtArizaKodu.ReadOnly = True; StyleReadonlyEdit(Arz_EdtArizaKodu);
  // ---------------- MAKİNE KODU ----------------
  Arz_GrpMakineKodu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpMakineKodu'); Arz_GrpMakineKodu.Align = alTop; Arz_GrpMakineKodu.Height = 58; Arz_GrpMakineKodu.Margins.Top = 6;
  Arz_GrpMakineKodu.Margins.Left = 10; Arz_GrpMakineKodu.Margins.Right = 10; StyleInputPanel(Arz_GrpMakineKodu);
  Arz_LblMakineKodu = FormMain.AddNewProLabel(Arz_GrpMakineKodu, 'Arz_LblMakineKodu', ''); Arz_LblMakineKodu.Align = alTop; Arz_LblMakineKodu.Height = 18;
  Arz_LblMakineKodu.Margins.Left = 10; Arz_LblMakineKodu.Margins.Top = 6; StyleInputLabel(Arz_LblMakineKodu);
  
  Arz_BtnRehberMakine = FormMain.AddNewProButton(Arz_GrpMakineKodu, 'Arz_BtnRehberMakine', ''); Arz_BtnRehberMakine.Align = alRight; Arz_BtnRehberMakine.Width = 50;
  Arz_BtnRehberMakine.Margins.Right = 10; Arz_BtnRehberMakine.Margins.Bottom = 7; StyleRehberButton(Arz_BtnRehberMakine); FormMain.AddNewEvent(Arz_BtnRehberMakine, tbeOnClick, 'BtnRehberMakineClick');
  
  ImgMakine = FormMain.AddNewImage(Arz_BtnRehberMakine, 'ImgMakine'); 
  ImgMakine.Align = alClient; ImgMakine.Margins.Top = 2;
  ImgMakine.Margins.Bottom = 2; ImgMakine.Margins.Left = 2; ImgMakine.Margins.Right = 2;
  FormMain.setImage(ImgMakine, ' https://i.hizliresim.com/57ztonk.png" rel="nofollow - https://i.hizliresim.com/57ztonk.png '); 
  FormMain.AddNewEvent(ImgMakine, tbeOnClick, 'BtnRehberMakineClick');
  
  Arz_EdtMakineKodu = FormMain.AddNewProEdit(Arz_GrpMakineKodu, 'Arz_EdtMakineKodu', '');
  Arz_EdtMakineKodu.Align = alClient; Arz_EdtMakineKodu.Margins.Left = 10; Arz_EdtMakineKodu.Margins.Right = 5; Arz_EdtMakineKodu.Margins.Bottom = 7; Arz_EdtMakineKodu.ReadOnly = True; StyleReadonlyEdit(Arz_EdtMakineKodu);
  // ---------------- BAĞLANTI ----------------
  Arz_GrpBaglanti = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpBaglanti'); Arz_GrpBaglanti.Align = alTop; Arz_GrpBaglanti.Height = 58; Arz_GrpBaglanti.Margins.Top = 6;
  Arz_GrpBaglanti.Margins.Left = 10; Arz_GrpBaglanti.Margins.Right = 10; StyleInputPanel(Arz_GrpBaglanti);
  Arz_LblBaglanti = FormMain.AddNewProLabel(Arz_GrpBaglanti, 'Arz_LblBaglanti', ''); Arz_LblBaglanti.Align = alTop; Arz_LblBaglanti.Height = 18;
  Arz_LblBaglanti.Margins.Left = 10; Arz_LblBaglanti.Margins.Top = 6; StyleInputLabel(Arz_LblBaglanti);
  
  Arz_BtnRehberBaglanti = FormMain.AddNewProButton(Arz_GrpBaglanti, 'Arz_BtnRehberBaglanti', ''); Arz_BtnRehberBaglanti.Align = alRight; Arz_BtnRehberBaglanti.Width = 50;
  Arz_BtnRehberBaglanti.Margins.Right = 10; Arz_BtnRehberBaglanti.Margins.Bottom = 7; StyleRehberButton(Arz_BtnRehberBaglanti); FormMain.AddNewEvent(Arz_BtnRehberBaglanti, tbeOnClick, 'BtnRehberBaglantiClick');
  
  ImgBaglanti = FormMain.AddNewImage(Arz_BtnRehberBaglanti, 'ImgBaglanti'); 
  ImgBaglanti.Align = alClient; ImgBaglanti.Margins.Top = 2;
  ImgBaglanti.Margins.Bottom = 2; ImgBaglanti.Margins.Left = 2; ImgBaglanti.Margins.Right = 2;
  FormMain.setImage(ImgBaglanti, ' https://i.hizliresim.com/57ztonk.png" rel="nofollow - https://i.hizliresim.com/57ztonk.png '); 
  FormMain.AddNewEvent(ImgBaglanti, tbeOnClick, 'BtnRehberBaglantiClick');
  
  Arz_EdtBaglanti = FormMain.AddNewProEdit(Arz_GrpBaglanti, 'Arz_EdtBaglanti', '');
  Arz_EdtBaglanti.Align = alClient; Arz_EdtBaglanti.Margins.Left = 10; Arz_EdtBaglanti.Margins.Right = 5; Arz_EdtBaglanti.Margins.Bottom = 7; Arz_EdtBaglanti.ReadOnly = True; StyleReadonlyEdit(Arz_EdtBaglanti);

  Arz_GrpBaslangic = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpBaslangic');
  Arz_GrpBaslangic.Align = alTop; Arz_GrpBaslangic.Height = 58; Arz_GrpBaslangic.Margins.Top = 6; Arz_GrpBaslangic.Margins.Left = 10; Arz_GrpBaslangic.Margins.Right = 10; StyleInputPanel(Arz_GrpBaslangic);
  Arz_LblBaslangic = FormMain.AddNewProLabel(Arz_GrpBaslangic, 'Arz_LblBaslangic', ''); Arz_LblBaslangic.Align = alTop; Arz_LblBaslangic.Height = 18; Arz_LblBaslangic.Margins.Left = 10; Arz_LblBaslangic.Margins.Top = 6; StyleInputLabel(Arz_LblBaslangic);
  Arz_EdtBaslangic = FormMain.AddNewProEdit(Arz_GrpBaslangic, 'Arz_EdtBaslangic', ''); 
  Arz_EdtBaslangic.Align = alLeft; 
  Arz_EdtBaslangic.Width = 140; 
  Arz_EdtBaslangic.Margins.Left = 10; 
  Arz_EdtBaslangic.Margins.Bottom = 7; 
  Arz_EdtBaslangic.ReadOnly = True;
  StyleReadonlyEdit(Arz_EdtBaslangic);

  Arz_EdtBaslangicSaat = FormMain.AddNewProEdit(Arz_GrpBaslangic, 'Arz_EdtBaslangicSaat', ''); 
  Arz_EdtBaslangicSaat.Align = alLeft; 
  Arz_EdtBaslangicSaat.Width = 90; 
  Arz_EdtBaslangicSaat.Margins.Left = 10; 
  Arz_EdtBaslangicSaat.Margins.Bottom = 7;
  Arz_EdtBaslangicSaat.ReadOnly = True; 
  StyleReadonlyEdit(Arz_EdtBaslangicSaat);

  Arz_GrpGirisZamani = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpGirisZamani'); Arz_GrpGirisZamani.Align = alTop; Arz_GrpGirisZamani.Height = 58; Arz_GrpGirisZamani.Margins.Top = 6; Arz_GrpGirisZamani.Margins.Left = 10;
  Arz_GrpGirisZamani.Margins.Right = 10; StyleInputPanel(Arz_GrpGirisZamani);
  Arz_LblGirisZamani = FormMain.AddNewProLabel(Arz_GrpGirisZamani, 'Arz_LblGirisZamani', ''); Arz_LblGirisZamani.Align = alTop; Arz_LblGirisZamani.Height = 18; Arz_LblGirisZamani.Margins.Left = 10;
  Arz_LblGirisZamani.Margins.Top = 6; StyleInputLabel(Arz_LblGirisZamani);
  Arz_EdtGirisZamani = FormMain.AddNewProEdit(Arz_GrpGirisZamani, 'Arz_EdtGirisZamani', ''); Arz_EdtGirisZamani.Align = alClient; Arz_EdtGirisZamani.Margins.Left = 10; Arz_EdtGirisZamani.Margins.Right = 10;
  Arz_EdtGirisZamani.Margins.Bottom = 7; Arz_EdtGirisZamani.ReadOnly = True; StyleReadonlyEdit(Arz_EdtGirisZamani);

  Arz_GrpPlanlananBitis = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpPlanlananBitis'); Arz_GrpPlanlananBitis.Align = alTop; Arz_GrpPlanlananBitis.Height = 58; Arz_GrpPlanlananBitis.Margins.Top = 6;
  Arz_GrpPlanlananBitis.Margins.Left = 10; Arz_GrpPlanlananBitis.Margins.Right = 10; StyleInputPanel(Arz_GrpPlanlananBitis);
  Arz_LblPlanlananBitis = FormMain.AddNewProLabel(Arz_GrpPlanlananBitis, 'Arz_LblPlanlananBitis', ''); Arz_LblPlanlananBitis.Align = alTop; Arz_LblPlanlananBitis.Height = 18;
  Arz_LblPlanlananBitis.Margins.Left = 10; Arz_LblPlanlananBitis.Margins.Top = 6; StyleInputLabel(Arz_LblPlanlananBitis);
  Arz_CmbPlanlananBitis = FormMain.AddNewComboBox(Arz_GrpPlanlananBitis, 'Arz_CmbPlanlananBitis'); Arz_CmbPlanlananBitis.Align = alClient; Arz_CmbPlanlananBitis.Margins.Left = 10; Arz_CmbPlanlananBitis.Margins.Right = 10;
  Arz_CmbPlanlananBitis.Margins.Bottom = 7;

  Arz_GrpKisiSayisi = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpKisiSayisi');
  Arz_GrpKisiSayisi.Align = alTop;
  Arz_GrpKisiSayisi.Height = 58;
  Arz_GrpKisiSayisi.Margins.Top = 6;
  Arz_GrpKisiSayisi.Margins.Left = 10;
  Arz_GrpKisiSayisi.Margins.Right = 10;
  StyleInputPanel(Arz_GrpKisiSayisi);

  Arz_LblKisiSayisi = FormMain.AddNewProLabel(Arz_GrpKisiSayisi, 'Arz_LblKisiSayisi', '');
  Arz_LblKisiSayisi.Align = alTop;
  Arz_LblKisiSayisi.Height = 18;
  Arz_LblKisiSayisi.Margins.Left = 10;
  Arz_LblKisiSayisi.Margins.Top = 6;
  StyleInputLabel(Arz_LblKisiSayisi);

  Arz_EdtKisiSayisi = FormMain.AddNewProEdit(Arz_GrpKisiSayisi, 'Arz_EdtKisiSayisi', '0');
  Arz_EdtKisiSayisi.Align = alClient;
  Arz_EdtKisiSayisi.Margins.Left = 10;
  Arz_EdtKisiSayisi.Margins.Right = 10;
  Arz_EdtKisiSayisi.Margins.Bottom = 7;
  StyleInputEdit(Arz_EdtKisiSayisi);
  BindInputFocus(Arz_EdtKisiSayisi);
  FormMain.AddNewEvent(Arz_EdtKisiSayisi, tbeOnEnter, 'KlvKisiSayisi');

  // ---------------- OPERATOR KODU ----------------
  Arz_GrpOperator = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpOperator');
  Arz_GrpOperator.Align = alTop; Arz_GrpOperator.Height = 58; Arz_GrpOperator.Margins.Top = 6; Arz_GrpOperator.Margins.Left = 10; Arz_GrpOperator.Margins.Right = 10; StyleInputPanel(Arz_GrpOperator);
  Arz_LblOperator = FormMain.AddNewProLabel(Arz_GrpOperator, 'Arz_LblOperator', ''); Arz_LblOperator.Align = alTop; Arz_LblOperator.Height = 18; Arz_LblOperator.Margins.Left = 10; Arz_LblOperator.Margins.Top = 6; StyleInputLabel(Arz_LblOperator);
  Arz_BtnRehberOperator = FormMain.AddNewProButton(Arz_GrpOperator, 'Arz_BtnRehberOperator', ''); Arz_BtnRehberOperator.Align = alRight; Arz_BtnRehberOperator.Width = 50; Arz_BtnRehberOperator.Margins.Right = 10; Arz_BtnRehberOperator.Margins.Bottom = 7; StyleRehberButton(Arz_BtnRehberOperator);
  FormMain.AddNewEvent(Arz_BtnRehberOperator, tbeOnClick, 'BtnRehberOperatorClick');
  
  ImgOperator = FormMain.AddNewImage(Arz_BtnRehberOperator, 'ImgOperator'); 
  ImgOperator.Align = alClient; ImgOperator.Margins.Top = 2; ImgOperator.Margins.Bottom = 2; ImgOperator.Margins.Left = 2;
  ImgOperator.Margins.Right = 2;
  FormMain.setImage(ImgOperator, ' https://i.hizliresim.com/57ztonk.png" rel="nofollow - https://i.hizliresim.com/57ztonk.png '); 
  FormMain.AddNewEvent(ImgOperator, tbeOnClick, 'BtnRehberOperatorClick');
  
  Arz_EdtOperator = FormMain.AddNewProEdit(Arz_GrpOperator, 'Arz_EdtOperator', ''); Arz_EdtOperator.Align = alClient; Arz_EdtOperator.Margins.Left = 10;
  Arz_EdtOperator.Margins.Right = 5; Arz_EdtOperator.Margins.Bottom = 7; Arz_EdtOperator.ReadOnly = True; StyleReadonlyEdit(Arz_EdtOperator);

  Arz_GrpAciklama = FormMain.AddNewProPanel(PnlMainCard, 'Arz_GrpAciklama'); Arz_GrpAciklama.Align = alTop; Arz_GrpAciklama.Height = 58;
  Arz_GrpAciklama.Margins.Top = 6; Arz_GrpAciklama.Margins.Left = 10; Arz_GrpAciklama.Margins.Right = 10; StyleInputPanel(Arz_GrpAciklama);
  Arz_LblAciklama = FormMain.AddNewProLabel(Arz_GrpAciklama, 'Arz_LblAciklama', ''); Arz_LblAciklama.Align = alTop;
  Arz_LblAciklama.Height = 18; Arz_LblAciklama.Margins.Left = 10; Arz_LblAciklama.Margins.Top = 6; StyleInputLabel(Arz_LblAciklama);
  Arz_EdtAciklama = FormMain.AddNewProEdit(Arz_GrpAciklama, 'Arz_EdtAciklama', ''); Arz_EdtAciklama.Align = alClient;
  Arz_EdtAciklama.Margins.Left = 10; Arz_EdtAciklama.Margins.Right = 10; Arz_EdtAciklama.Margins.Bottom = 7; StyleInputEdit(Arz_EdtAciklama); BindInputFocus(Arz_EdtAciklama); FormMain.AddNewEvent(Arz_EdtAciklama, tbeOnEnter, 'KlvAciklama');

  LblGridTitle = FormMain.AddNewProLabel(PnlMainCard, 'LblSect2', '');
  LblGridTitle.Align = alTop; LblGridTitle.Height = 30; LblGridTitle.Margins.Left = 10; LblGridTitle.Margins.Top = 20; StyleSectionTitle(LblGridTitle);

  Arz_ListAriza = FormMain.AddNewProListView(PnlMainCard, 'Arz_ListAriza'); 
  Arz_ListAriza.Align = alTop;
  Arz_ListAriza.Height = 220; Arz_ListAriza.Margins.Top = 6; Arz_ListAriza.Margins.Left = 10; Arz_ListAriza.Margins.Right = 10; 
  Arz_ListAriza.ListType = 'vertical'; Arz_ListAriza.clProSettings.ViewType = lvIcon;
  Arz_ListAriza.clProSettings.ColCount = 1; Arz_ListAriza.clProSettings.ItemHeight = 70; Arz_ListAriza.clProSettings.ItemSpace = 6; 
  Arz_ListAriza.clProSettings.BorderWidth = 1; Arz_ListAriza.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  Arz_ListAriza.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC'); Arz_ListAriza.SetclProSettings(Arz_ListAriza.clProSettings);
  FormMain.AddNewEvent(Arz_ListAriza, tbeOnItemClick, 'Arz_ListedenSec');

  Arz_Zone = FormMain.AddNewProListViewDesignerPanel(Arz_ListAriza, 'Arz_Zone');
  Arz_Zone.Align = alTop; Arz_Zone.Height = 70; Arz_Zone.Width = FormMain.clWidth; 
  Arz_Zone.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  Arz_Zone.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor); Arz_Zone.clProSettings.BorderWidth = 1; Arz_Zone.clProSettings.IsRound = True; Arz_Zone.clProSettings.RoundHeight = 6; Arz_Zone.SetclProSettings(Arz_Zone.clProSettings);

  Arz_LblMain = FormMain.AddNewProLabel(Arz_Zone, 'MAIN_TEXT', '');
  Arz_LblMain.Align = alTop; Arz_LblMain.Height = 30; Arz_LblMain.Margins.Top = 8; Arz_LblMain.Margins.Left = 12; Arz_LblMain.Margins.Right = 12; StyleMalzemeBaslik(Arz_LblMain);
  Arz_LblSub = FormMain.AddNewProLabel(Arz_Zone, 'SUB_TEXT', ''); Arz_LblSub.Align = alTop; Arz_LblSub.Height = 22; Arz_LblSub.Margins.Left = 12; Arz_LblSub.Margins.Right = 12; StyleMalzemeAlt(Arz_LblSub);
  Arz_Zone.AddPanelObject(Arz_LblMain, clCaption);
  Arz_Zone.AddPanelObject(Arz_LblSub, clText); Arz_ListAriza.SetDesignerPanel(Arz_Zone);

  LblPhotoTitle = FormMain.AddNewProLabel(PnlMainCard, 'LblSect3', ''); 
  LblPhotoTitle.Align = alTop; LblPhotoTitle.Height = 30; LblPhotoTitle.Margins.Left = 10; LblPhotoTitle.Margins.Top = 20;
  StyleSectionTitle(LblPhotoTitle);

  Arz_PnlPhotoKutu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_PnlPhotoKutu');
  Arz_PnlPhotoKutu.Align = alTop; Arz_PnlPhotoKutu.Height = 180; Arz_PnlPhotoKutu.Margins.Top = 5; Arz_PnlPhotoKutu.Margins.Left = 10; Arz_PnlPhotoKutu.Margins.Right = 10;
  StyleInputPanel(Arz_PnlPhotoKutu);

  Arz_ImgPhoto = FormMain.AddNewImage(Arz_PnlPhotoKutu, 'Arz_ImgPhoto');
  Arz_ImgPhoto.Align = alClient; Arz_ImgPhoto.Margins.Top = 5; Arz_ImgPhoto.Margins.Bottom = 5; Arz_ImgPhoto.Margins.Left = 5; Arz_ImgPhoto.Margins.Right = 5;
  BtnResimCek = FormMain.AddNewProButton(PnlMainCard, 'BtnResimCek', ''); BtnResimCek.Align = alTop; BtnResimCek.Height = 42; BtnResimCek.Margins.Left = 10; BtnResimCek.Margins.Right = 10; BtnResimCek.Margins.Top = 10;
  StylePrimaryButton(BtnResimCek); FormMain.AddNewEvent(BtnResimCek, tbeOnClick, 'TakePhotoClick');

  Arz_LblBakimIhmal = FormMain.AddNewProLabel(PnlMainCard, 'LblSect4', ''); 
  Arz_LblBakimIhmal.Align = alTop; Arz_LblBakimIhmal.Height = 30; Arz_LblBakimIhmal.Margins.Left = 10;
  Arz_LblBakimIhmal.Margins.Top = 20; StyleSectionTitle(Arz_LblBakimIhmal);

  Arz_PnlBakimIhmalKutu = FormMain.AddNewProPanel(PnlMainCard, 'Arz_PnlBakimIhmalKutu');
  Arz_PnlBakimIhmalKutu.Align = alTop; Arz_PnlBakimIhmalKutu.Height = 110; Arz_PnlBakimIhmalKutu.Margins.Top = 5; Arz_PnlBakimIhmalKutu.Margins.Left = 10;
  Arz_PnlBakimIhmalKutu.Margins.Right = 10; StyleInputPanel(Arz_PnlBakimIhmalKutu); 

  Arz_MemBakimIhmal = FormMain.AddNewMemo(Arz_PnlBakimIhmalKutu, 'Arz_MemBakimIhmal', ''); 
  Arz_MemBakimIhmal.Align = alClient; Arz_MemBakimIhmal.Margins.Top = 5; Arz_MemBakimIhmal.Margins.Bottom = 5;
  Arz_MemBakimIhmal.Margins.Left = 5; Arz_MemBakimIhmal.Margins.Right = 5;
  FormMain.AddNewEvent(Arz_MemBakimIhmal, tbeOnEnter, 'KlvBakimIhmal');

  Arz_ClearForm;
  FormMain.Run;
} koddum da bulunan maliyet ve malzeme kısımlarını düzeltmek istiyorum ancak bunu yaparken sql de bulunan veriler bozuluyor 
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 08 Temmuz 2026 Saat 11:08
Merhaba Kayra,

var
  FormMain: TclForm;
  ScaledLayout: TclScaledLayout;
  ScrollForm: TclVertScrollBox;
  RehberForm: TclForm;
  LsvBelgeRehber: TClProListView;
  EdtRehberArama: TclProEdit;
  GlobalLookupType: String;
  RehberJsonData: TclJsonQuery;
  
  UiFontSize: Integer;
  OkunanFontAdi: String;
  ThemeKoyuRenk, ThemeAcikRenk, ThemeBgColor, ThemeBorderColor, ThemeTextColor: String;
  
  LblGridTitle: TClProLabel;
  Malz_GrpMalzeme, Malz_RowPnl, Malz_GrpMiktar, Malz_GrpBirimFiyat, Malz_GrpIscilik, Malz_PnlToplam: TclProPanel;
  Malz_LblMalzeme, Malz_LblMiktar, Malz_LblBirimFiyat, Malz_LblIscilik, Malz_LblTitle, Malz_LblSub, Malz_LblToplamDeger: TClProLabel;
  Malz_EdtMalzeme, Malz_EdtMiktar, Malz_EdtBirimFiyat, Malz_EdtIscilik: TclProEdit;
  Malz_BtnRehber, Malz_BtnEkle: TClProButton;
  Malz_LsvList: TClProListView;
  Malz_DP: TclProListViewDesignerPanel;
  
  Malz_IsimArr, Malz_MiktarArr, Malz_FiyatArr, Malz_TutarArr: array [0..50] of String;
  Malz_Count: Integer;

function StrToFloatDef(S: String; Def: Double): Double;
{
  try
    if (S == '') 
    { 
      Result = Def; 
    }
    else 
    { 
      Result = StrToFloat(S); 
    }
  except
    Result = Def;
  }
}

function GetText(Key: String): String;
{
  Result = Key;
  if (Key == 'MALZ_BASLIK') { Result = 'Malzeme / Yedek Parça:'; }
  else if (Key == 'MALZ_MIKTAR') { Result = 'Miktar:'; }
  else if (Key == 'MALZ_FIYAT') { Result = 'Birim Fiyat (TL):'; }
  else if (Key == 'MALZ_ISCILIK') { Result = 'İşçilik Maliyeti (TL):'; }
  else if (Key == 'MALZ_BTN_EKLE') { Result = 'Malzeme Ekle'; }
  else if (Key == 'ARA_MALZEME') { Result = 'Malzeme Ara...'; }
  else if (Key == 'LST_BOS') { Result = 'Listede malzeme yok'; }
}

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 + 1;
  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 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 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.clWhite;
    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');
}

void Malz_ListeyiYenile;
var
  JsonStr: String;
  i: Integer;
  ToplamMalzemeCost, GenelToplamCost: Double;
{
  ToplamMalzemeCost = 0;
  JsonStr = '[';
  
  i = 0;
  while (i < Malz_Count)
  {
     if (i > 0) { JsonStr = JsonStr + ','; }
     JsonStr = JsonStr + '{"MAIN_TEXT":"' + Malz_IsimArr + '", "SUB_TEXT":"' + Malz_MiktarArr + ' Adet x ' + Malz_FiyatArr + ' TL = ' + Malz_TutarArr + ' TL"}';
     
     ToplamMalzemeCost = ToplamMalzemeCost + StrToFloatDef(Malz_TutarArr, 0);
     i = i + 1;
  }
  JsonStr = JsonStr + ']';
  
  if (Malz_Count == 0)
  {
     JsonStr = '[{"MAIN_TEXT":"' + GetText('LST_BOS') + '", "SUB_TEXT":""}]';
  }
  
  Malz_LsvList.clLoadProListViewDataFromDataset(Clomosy.clDataSetFromJSON(JsonStr));
  
  GenelToplamCost = ToplamMalzemeCost + StrToFloatDef(Malz_EdtIscilik.Text, 0);
  
  Malz_LblToplamDeger.Text = 'Malzeme: ' + FloatToStr(ToplamMalzemeCost) + ' TL | Genel Toplam: ' + FloatToStr(GenelToplamCost) + ' TL';
}

void Malz_EkleClick;
var
  Miktar, Fiyat, Tutar: Double;
{
  if (Malz_EdtMalzeme.Text == '')
  {
     ShowMessage('Lütfen önce bir malzeme seçiniz veya yazınız.');
     Exit;
  }
  
  if (Malz_Count >= 50)
  {
     ShowMessage(GetText('MSG_KAPASITE_DOLU'));
     Exit;
  }
  
  Miktar = StrToFloatDef(Malz_EdtMiktar.Text, 1);
  Fiyat = StrToFloatDef(Malz_EdtBirimFiyat.Text, 0);
  Tutar = Miktar * Fiyat;
  
  Malz_IsimArr[Malz_Count] = Malz_EdtMalzeme.Text;
  Malz_MiktarArr[Malz_Count] = FloatToStr(Miktar);
  Malz_FiyatArr[Malz_Count] = FloatToStr(Fiyat);
  Malz_TutarArr[Malz_Count] = FloatToStr(Tutar);
  
  Malz_Count = Malz_Count + 1;
  
  Malz_EdtMalzeme.Text = '';
  Malz_EdtMiktar.Text = '1';
  Malz_EdtBirimFiyat.Text = '0';
  
  Malz_ListeyiYenile;
}

void Malz_IscilikChange;
{
  Malz_ListeyiYenile;
}

void OnSearchRehber;
{
  if (RehberJsonData == nil) { Exit; }
  if (EdtRehberArama.Text == '') 
  { 
    RehberJsonData.Filtered = False;
    RehberJsonData.Filter = ''; 
  }
  else 
  { 
    RehberJsonData.Filter = 'MAIN_TEXT Like ' + Chr(39) + '%' + EdtRehberArama.Text + '%' + Chr(39);
    RehberJsonData.Filtered = True; 
  }
}

void OnListItemClick;
var
  SecilenAnaMetin, SecilenAltMetin: String;
{ 
  SecilenAnaMetin = LsvBelgeRehber.clSelectedItemData(clCaption);
  SecilenAltMetin = LsvBelgeRehber.clSelectedItemData(clText);
  if (SecilenAnaMetin == GetText('LST_BOS'))
  {
    RehberForm.Close; 
    Exit;
  }

  if (GlobalLookupType == 'MALZEME')
  {
    Malz_EdtMalzeme.Text = SecilenAnaMetin + ' | ' + SecilenAltMetin;
  }
  
  RehberForm.Close;
}

void BuildRehberForm;
var
  RehberDP: TclProListViewDesignerPanel;
  RehberLblMain, RehberLblSub: TclProLabel;
{
  RehberForm = TclForm.Create(Self); 
  RehberForm.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);
  EdtRehberArama = RehberForm.AddNewProEdit(RehberForm, 'EdtRehberArama', 'Ara...'); 
  EdtRehberArama.Align = alTop; EdtRehberArama.Margins.Top = 10; EdtRehberArama.Margins.Left = 10; EdtRehberArama.Margins.Right = 10; EdtRehberArama.Height = 40;
  EdtRehberArama.clProSettings.FontSize = 14;
  RehberForm.AddNewEvent(EdtRehberArama, tbeOnChange, 'OnSearchRehber');

  LsvBelgeRehber = RehberForm.AddNewProListView(RehberForm, 'LsvBelgeRehber'); 
  LsvBelgeRehber.Align = alClient; LsvBelgeRehber.Margins.Top = 10; LsvBelgeRehber.ListType = 'vertical';
  LsvBelgeRehber.clProSettings.ItemHeight = 65; 
  LsvBelgeRehber.clProSettings.ItemSpace = 5;
  LsvBelgeRehber.clProSettings.ColCount = 1; 
  LsvBelgeRehber.clProSettings.ViewType = lvIcon; 
  LsvBelgeRehber.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 
  LsvBelgeRehber.SetclProSettings(LsvBelgeRehber.clProSettings);
  
  RehberDP = RehberForm.AddNewProListViewDesignerPanel(LsvBelgeRehber, 'RehberDP');
  RehberDP.Align = alTop; RehberDP.Height = 60; RehberDP.Width = 350;
  RehberDP.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  RehberDP.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  RehberDP.clProSettings.BorderWidth = 1;
  RehberDP.clProSettings.IsRound = True;
  RehberDP.clProSettings.RoundHeight = 8;
  RehberDP.clProSettings.RoundWidth = 8;
  RehberDP.SetclProSettings(RehberDP.clProSettings);

  RehberLblMain = RehberForm.AddNewProLabel(RehberDP, 'MAIN_TEXT', '');
  RehberLblMain.Align = alTop;
  RehberLblMain.Height = 25; RehberLblMain.Margins.Left = 10; RehberLblMain.Margins.Top = 5;
  RehberLblMain.clProSettings.FontColor = clAlphaColor.clHexToColor(ThemeTextColor);
  RehberLblMain.clProSettings.TextSettings.Font.Style = [fsBold];
  RehberLblMain.clProSettings.FontSize = UiFontSize;
  RehberLblMain.SetclProSettings(RehberLblMain.clProSettings);
  RehberLblSub = RehberForm.AddNewProLabel(RehberDP, 'SUB_TEXT', '');
  RehberLblSub.Align = alTop; RehberLblSub.Height = 25; RehberLblSub.Margins.Left = 10;
  RehberLblSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');
  RehberLblSub.clProSettings.FontSize = UiFontSize - 2;
  RehberLblSub.SetclProSettings(RehberLblSub.clProSettings);

  RehberDP.AddPanelObject(RehberLblMain, clCaption);
  RehberDP.AddPanelObject(RehberLblSub, clText);
  LsvBelgeRehber.SetDesignerPanel(RehberDP);
  
  RehberForm.AddNewEvent(LsvBelgeRehber, tbeOnItemClick, 'OnListItemClick');
}

void OpenRehber;
var
  JsonStr: String;
{
  BuildRehberForm;
  
  JsonStr = '[' + 
    '{"MAIN_TEXT":"Rulman - 6204 ZZ", "SUB_TEXT":"Motor Rulmanı"},' + 
    '{"MAIN_TEXT":"V-Kayış - A-42", "SUB_TEXT":"Güç Aktarım Kayışı"},' + 
    '{"MAIN_TEXT":"Hava Filtresi - HF-12", "SUB_TEXT":"Kompresör Filtresi"},' + 
    '{"MAIN_TEXT":"Yağ Filtresi - YF-8", "SUB_TEXT":"Hidrolik Yağ Filtresi"},' + 
    '{"MAIN_TEXT":"Elektrik Sigortası - 16A", "SUB_TEXT":"Pano Sigortası"},' +
    '{"MAIN_TEXT":"Kontaktör - 22kW", "SUB_TEXT":"Motor Sürücü Kontaktörü"}' + 
  ']';
  
  if (RehberJsonData <> nil) { RehberJsonData.Free; }
  RehberJsonData = Clomosy.clDataSetFromJSON(JsonStr);
  LsvBelgeRehber.clLoadProListViewDataFromDataset(RehberJsonData);
  RehberForm.Run;
}

void BtnRehberMalzemeClick; { GlobalLookupType = 'MALZEME'; OpenRehber; }

{
  FormMain = TclForm.Create(Self);
  FormMain.SetFormColor('#1E293B', '#0F172A', clGVertical);

  ScaledLayout = FormMain.AddNewScaledLayout(FormMain, 'ScaledLayout');
  ScaledLayout.Align = alClient;
  ScaledLayout.OriginalHeight = 750;
  ScaledLayout.OriginalWidth = 350;

  ScrollForm = FormMain.AddNewVertScrollBox(ScaledLayout, 'ScrollForm');
  ScrollForm.Align = alClient;
  ScrollForm.Margins.Left = 15;
  ScrollForm.Margins.Right = 15;
  ScrollForm.Margins.Top = 15;
  ScrollForm.Margins.Bottom = 15;

  UiFontSize = 12;
  OkunanFontAdi = 'Arial';
  ThemeKoyuRenk = '#312E81';
  ThemeAcikRenk = '#8B5CF6';
  ThemeBgColor = '#FFFFFF';
  ThemeBorderColor = '#CBD5E1';
  ThemeTextColor = '#111827';

  LblGridTitle = FormMain.AddNewProLabel(ScrollForm, 'LblGridTitle', '2. MALZEME & MALİYET');
  LblGridTitle.Align = alTop;
  LblGridTitle.Height = 35;
  LblGridTitle.Margins.Top = 10;
  StyleSectionTitle(LblGridTitle);
  
  Malz_GrpMalzeme = FormMain.AddNewProPanel(ScrollForm, 'Malz_GrpMalzeme');
  Malz_GrpMalzeme.Align = alTop;
  Malz_GrpMalzeme.Height = 80;
  Malz_GrpMalzeme.Margins.Top = 10;
  StyleInputPanel(Malz_GrpMalzeme);
  
  Malz_LblMalzeme = FormMain.AddNewProLabel(Malz_GrpMalzeme, 'Malz_LblMalzeme', GetText('MALZ_BASLIK'));
  Malz_LblMalzeme.Align = alTop;
  Malz_LblMalzeme.Height = 25;
  StyleInputLabel(Malz_LblMalzeme);
  
  Malz_EdtMalzeme = FormMain.AddNewProEdit(Malz_GrpMalzeme, 'Malz_EdtMalzeme', 'Seçmek için büyütece tıklayın...');
  Malz_EdtMalzeme.Align = alClient;
  StyleInputEdit(Malz_EdtMalzeme);
  
  Malz_BtnRehber = FormMain.AddNewProButton(Malz_GrpMalzeme, 'Malz_BtnRehber', '🔍');
  Malz_BtnRehber.Align = alRight;
  Malz_BtnRehber.Width = 40;
  StyleRehberButton(Malz_BtnRehber);
  FormMain.AddNewEvent(Malz_BtnRehber, tbeOnClick, 'BtnRehberMalzemeClick');

  Malz_RowPnl = FormMain.AddNewProPanel(ScrollForm, 'Malz_RowPnl');
  Malz_RowPnl.Align = alTop;
  Malz_RowPnl.Height = 80;
  Malz_RowPnl.Margins.Top = 10;
  Malz_RowPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  Malz_RowPnl.clProSettings.BorderWidth = 0;
  Malz_RowPnl.SetclProSettings(Malz_RowPnl.clProSettings);

  Malz_GrpMiktar = FormMain.AddNewProPanel(Malz_RowPnl, 'Malz_GrpMiktar');
  Malz_GrpMiktar.Align = alLeft;
  Malz_GrpMiktar.Width = 145;
  StyleInputPanel(Malz_GrpMiktar);
  
  Malz_LblMiktar = FormMain.AddNewProLabel(Malz_GrpMiktar, 'Malz_LblMiktar', GetText('MALZ_MIKTAR'));
  Malz_LblMiktar.Align = alTop;
  Malz_LblMiktar.Height = 25;
  StyleInputLabel(Malz_LblMiktar);
  
  Malz_EdtMiktar = FormMain.AddNewProEdit(Malz_GrpMiktar, 'Malz_EdtMiktar', '1');
  Malz_EdtMiktar.Align = alClient;
  StyleInputEdit(Malz_EdtMiktar);
  
  Malz_GrpBirimFiyat = FormMain.AddNewProPanel(Malz_RowPnl, 'Malz_GrpBirimFiyat');
  Malz_GrpBirimFiyat.Align = alClient;
  Malz_GrpBirimFiyat.Margins.Left = 10;
  StyleInputPanel(Malz_GrpBirimFiyat);
  
  Malz_LblBirimFiyat = FormMain.AddNewProLabel(Malz_GrpBirimFiyat, 'Malz_LblBirimFiyat', GetText('MALZ_FIYAT'));
  Malz_LblBirimFiyat.Align = alTop;
  Malz_LblBirimFiyat.Height = 25;
  StyleInputLabel(Malz_LblBirimFiyat);
  
  Malz_EdtBirimFiyat = FormMain.AddNewProEdit(Malz_GrpBirimFiyat, 'Malz_EdtBirimFiyat', '0.00');
  Malz_EdtBirimFiyat.Align = alClient;
  StyleInputEdit(Malz_EdtBirimFiyat);

  Malz_BtnEkle = FormMain.AddNewProButton(ScrollForm, 'Malz_BtnEkle', GetText('MALZ_BTN_EKLE'));
  Malz_BtnEkle.Align = alTop;
  Malz_BtnEkle.Height = 45;
  Malz_BtnEkle.Margins.Top = 10;
  StylePrimaryButton(Malz_BtnEkle);
  FormMain.AddNewEvent(Malz_BtnEkle, tbeOnClick, 'Malz_EkleClick');

  Malz_LsvList = FormMain.AddNewProListView(ScrollForm, 'Malz_LsvList');
  Malz_LsvList.Align = alTop;
  Malz_LsvList.Height = 160;
  Malz_LsvList.Margins.Top = 15;
  Malz_LsvList.ListType = 'vertical';
  Malz_LsvList.clProSettings.ItemHeight = 50;
  Malz_LsvList.clProSettings.ItemSpace = 3;
  Malz_LsvList.clProSettings.ColCount = 1;
  Malz_LsvList.clProSettings.ViewType = lvIcon;
  Malz_LsvList.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  Malz_LsvList.clProSettings.BorderColor = clAlphaColor.clHexToColor(ThemeBorderColor);
  Malz_LsvList.clProSettings.BorderWidth = 1;
  Malz_LsvList.clProSettings.IsRound = True;
  Malz_LsvList.clProSettings.RoundHeight = 8;
  Malz_LsvList.clProSettings.RoundWidth = 8;
  Malz_LsvList.SetclProSettings(Malz_LsvList.clProSettings);

  Malz_DP = FormMain.AddNewProListViewDesignerPanel(Malz_LsvList, 'Malz_DP');
  Malz_DP.Align = alTop;
  Malz_DP.Height = 48;
  Malz_DP.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  Malz_DP.SetclProSettings(Malz_DP.clProSettings);

  Malz_LblTitle = FormMain.AddNewProLabel(Malz_DP, 'MAIN_TEXT', '');
  Malz_LblTitle.Align = alTop;
  Malz_LblTitle.Height = 22;
  Malz_LblTitle.Margins.Left = 8;
  Malz_LblTitle.Margins.Top = 4;
  StyleMalzemeBaslik(Malz_LblTitle);

  Malz_LblSub = FormMain.AddNewProLabel(Malz_DP, 'SUB_TEXT', '');
  Malz_LblSub.Align = alTop;
  Malz_LblSub.Height = 20;
  Malz_LblSub.Margins.Left = 8;
  StyleMalzemeAlt(Malz_LblSub);

  Malz_DP.AddPanelObject(Malz_LblTitle, clCaption);
  Malz_DP.AddPanelObject(Malz_LblSub, clText);
  Malz_LsvList.SetDesignerPanel(Malz_DP);

  Malz_GrpIscilik = FormMain.AddNewProPanel(ScrollForm, 'Malz_GrpIscilik');
  Malz_GrpIscilik.Align = alTop;
  Malz_GrpIscilik.Height = 80;
  Malz_GrpIscilik.Margins.Top = 15;
  StyleInputPanel(Malz_GrpIscilik);

  Malz_LblIscilik = FormMain.AddNewProLabel(Malz_GrpIscilik, 'Malz_LblIscilik', GetText('MALZ_ISCILIK'));
  Malz_LblIscilik.Align = alTop;
  Malz_LblIscilik.Height = 25;
  StyleInputLabel(Malz_LblIscilik);

  Malz_EdtIscilik = FormMain.AddNewProEdit(Malz_GrpIscilik, 'Malz_EdtIscilik', '0.00');
  Malz_EdtIscilik.Align = alClient;
  StyleInputEdit(Malz_EdtIscilik);
  FormMain.AddNewEvent(Malz_EdtIscilik, tbeOnChange, 'Malz_IscilikChange');

  Malz_PnlToplam = FormMain.AddNewProPanel(ScrollForm, 'Malz_PnlToplam');
  Malz_PnlToplam.Align = alTop;
  Malz_PnlToplam.Height = 60;
  Malz_PnlToplam.Margins.Top = 15;
  Malz_PnlToplam.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ECFDF5');
  Malz_PnlToplam.clProSettings.BorderColor = clAlphaColor.clHexToColor('#10B981');
  Malz_PnlToplam.clProSettings.BorderWidth = 1;
  Malz_PnlToplam.clProSettings.IsFill = True;
  Malz_PnlToplam.clProSettings.IsRound = True;
  Malz_PnlToplam.clProSettings.RoundHeight = 8;
  Malz_PnlToplam.clProSettings.RoundWidth = 8;
  Malz_PnlToplam.SetclProSettings(Malz_PnlToplam.clProSettings);

  Malz_LblToplamDeger = FormMain.AddNewProLabel(Malz_PnlToplam, 'Malz_LblToplamDeger', 'Malzeme: 0.00 TL | Genel Toplam: 0.00 TL');
  Malz_LblToplamDeger.Align = alClient;
  Malz_LblToplamDeger.clProSettings.FontColor = clAlphaColor.clHexToColor('#065F46');
  Malz_LblToplamDeger.clProSettings.FontSize = UiFontSize + 2;
  Malz_LblToplamDeger.clProSettings.FontName = OkunanFontAdi;
  Malz_LblToplamDeger.clProSettings.TextSettings.Font.Style = [fsBold];
  Malz_LblToplamDeger.clProSettings.FontHorzAlign = palCenter;
  Malz_LblToplamDeger.SetclProSettings(Malz_LblToplamDeger.clProSettings);

  BindInputFocus(Malz_EdtMalzeme);
  BindInputFocus(Malz_EdtMiktar);
  BindInputFocus(Malz_EdtBirimFiyat);
  BindInputFocus(Malz_EdtIscilik);

  FormMain.BtnFormMenu.Visible = False;
  FormMain.BtnGoBack.Visible = False;

  Malz_Count = 0;
  Malz_ListeyiYenile;

  FormMain.Run;
}

örnek tasarımı inceler misin
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">

Mesajı Yazan: kayra12
Mesaj Tarihi: 08 Temmuz 2026 Saat 11:24
tamamdır teşekkürler  https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 08 Temmuz 2026 Saat 11:28
var
  GridForm: TclForm;
  clProGrid: TCLProGrid;

void BuildGridDesign;
{
  clProGrid = GridForm.AddNewProGrid(GridForm, 'clProGrid');
  clProGrid.Align = alClient;
  clProGrid.BeginUpdate;

  clProGrid.ColumnCount = 12;
  clProGrid.RowCount = 5;

  clProGrid.Cells[1, 0] = 'Belge No';
  clProGrid.Cells[2, 0] = 'Tarih';
  clProGrid.Cells[3, 0] = 'Operator';
  clProGrid.Cells[4, 0] = 'Makine Kodu';
  clProGrid.Cells[5, 0] = 'Arıza Kodu';
  clProGrid.Cells[6, 0] = 'Baş. Tarih';
  clProGrid.Cells[7, 0] = 'Bit. Tarih';
  clProGrid.Cells[8, 0] = 'Baş. Saat';
  clProGrid.Cells[9, 0] = 'Bit. Saat';
  clProGrid.Cells[10, 0] = 'Bakım Kodu';
  clProGrid.Cells[11, 0] = 'Açıklama';

  clProGrid.Cells[1, 1] = 'BLG-001';
  clProGrid.Cells[2, 1] = '08.07.2026';
  clProGrid.Cells[3, 1] = 'Ahmet Yılmaz';
  clProGrid.Cells[4, 1] = 'MK-01';
  clProGrid.Cells[5, 1] = 'ARZ-12';
  clProGrid.Cells[6, 1] = '08.07.2026';
  clProGrid.Cells[7, 1] = '08.07.2026';
  clProGrid.Cells[8, 1] = '09:00';
  clProGrid.Cells[9, 1] = '10:30';
  clProGrid.Cells[10, 1] = 'BKM-04';
  clProGrid.Cells[11, 1] = 'Sensör Arızası Giderildi';

  clProGrid.Cells[1, 2] = 'BLG-002';
  clProGrid.Cells[2, 2] = '08.07.2026';
  clProGrid.Cells[3, 2] = 'Mehmet Demir';
  clProGrid.Cells[4, 2] = 'MK-05';
  clProGrid.Cells[5, 2] = 'ARZ-04';
  clProGrid.Cells[6, 2] = '08.07.2026';
  clProGrid.Cells[7, 2] = '08.07.2026';
  clProGrid.Cells[8, 2] = '11:15';
  clProGrid.Cells[9, 2] = '12:00';
  clProGrid.Cells[10, 2] = 'BKM-01';
  clProGrid.Cells[11, 2] = 'Rulman Yağlaması Yapıldı';

  clProGrid.Cells[1, 3] = 'BLG-003';
  clProGrid.Cells[2, 3] = '08.07.2026';
  clProGrid.Cells[3, 3] = 'Ali Kaya';
  clProGrid.Cells[4, 3] = 'MK-02';
  clProGrid.Cells[5, 3] = 'ARZ-15';
  clProGrid.Cells[6, 3] = '08.07.2026';
  clProGrid.Cells[7, 3] = '08.07.2026';
  clProGrid.Cells[8, 3] = '13:45';
  clProGrid.Cells[9, 3] = '15:20';
  clProGrid.Cells[10, 3] = 'BKM-08';
  clProGrid.Cells[11, 3] = 'Kayış Değişimi Yapıldı';

  clProGrid.Cells[1, 4] = 'BLG-004';
  clProGrid.Cells[2, 4] = '08.07.2026';
  clProGrid.Cells[3, 4] = 'Veli Şahin';
  clProGrid.Cells[4, 4] = 'MK-08';
  clProGrid.Cells[5, 4] = 'ARZ-08';
  clProGrid.Cells[6, 4] = '08.07.2026';
  clProGrid.Cells[7, 4] = '08.07.2026';
  clProGrid.Cells[8, 4] = '16:00';
  clProGrid.Cells[9, 4] = '17:00';
  clProGrid.Cells[10, 4] = 'BKM-02';
  clProGrid.Cells[11, 4] = 'Elektrik Arızası Giderildi';

  clProGrid.Options.ColumnSize.Stretch = True;
  clProGrid.EndUpdate;
}

{
  GridForm = TclForm.Create(Self);
  GridForm.clSetCaption('Bakim Grid Tasarimi');
  GridForm.SetFormColor('#1E293B', '#0F172A', clGVertical);

  BuildGridDesign;

  GridForm.BtnFormMenu.Visible = False;
  GridForm.BtnGoBack.Visible = False;
  GridForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net