Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - arıza tasarımı
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

arıza tasarımı
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 61 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: arıza tasarımı
    Gönderim Zamanı: Dün 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'); 
  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'); 
  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'); 
  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'); 
  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'); 
  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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 968 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: Dün 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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 61 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: Dün Saat 11:24
tamamdır teşekkürler https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 968 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: Dün 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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,059 Saniyede Yüklendi.