var

  HareketForm: TCLForm;

  AnaScrollBox: TclVertScrollBox;

  TitleLabel: TCLabel;

  

  BtnCariAra: TclProButton;

  BtnIslemHareketleri: TclProButton; 

  

  PnlKarZarar: TclProPanel;

  LblKarZararBaslik, LblKarZararDeger: TCLabel;

  

  PnlAlacaklar: TclProPanel;

  LblAlacaklarBaslik: TCLabel;

  LsvAlacaklar: TClProListView;

  DPAlacaklar: TClProListViewDesignerPanel;

  LblAlacakD1, LblAlacakD2, LblAlacakD3: TclProLabel;

  

  PnlBorclar: TclProPanel;

  LblBorclarBaslik: TCLabel;

  LsvBorclar: TClProListView;

  DPBorclar: TClProListViewDesignerPanel;

  LblBorcD1, LblBorcD2, LblBorcD3: TclProLabel;

void goToCariler;

{

  Clomosy.RunUnit('uCariler');

}

void goToIslemHareketleri;

{

  Clomosy.RunUnit('uIslemHareketleri'); 

}

void OnAlacakClick;

var

  SecilenKisi, Tutar: String;

{

  SecilenKisi = LsvAlacaklar.clSelectedItemData(clCaption);

  Tutar = LsvAlacaklar.clSelectedItemData(clText1);

  ShowMessage('🟢 ALACAK DETAYI' + #13#10 + 'Kişi: ' + SecilenKisi + #13#10 + 'Tutar: ' + Tutar);

}

void OnBorcClick;

var

  SecilenKisi, Tutar: String;

{

  SecilenKisi = LsvBorclar.clSelectedItemData(clCaption);

  Tutar = LsvBorclar.clSelectedItemData(clText1);

  ShowMessage('🔴 BORÇ DETAYI' + #13#10 + 'Kişi: ' + SecilenKisi + #13#10 + 'Tutar: ' + Tutar);

}

{

  HareketForm = TCLForm.Create(Self);

  HareketForm.SetFormColor('#FFD1DC', '#FFD1DC', clGVertical);

  AnaScrollBox = HareketForm.AddNewVertScrollBox(HareketForm, 'AnaScrollBox');

  AnaScrollBox.Align = alClient;

  TitleLabel = HareketForm.AddNewLabel(AnaScrollBox, 'TitleLabel', 'Finansal Hareketler Paneli');

  TitleLabel.Align = alTop;

  TitleLabel.Margins.Top = 15;

  TitleLabel.Margins.Left = 10;

  TitleLabel.Margins.Right = 10;

  TitleLabel.TextSettings.Font.Size = 26;

  TitleLabel.TextSettings.Font.Style = [fsBold];

  TitleLabel.Height = 35;

  BtnCariAra = HareketForm.AddNewProButton(AnaScrollBox, 'BtnCariAra', 'Cari Arama ve Seçim Ekranı');

  BtnCariAra.Align = alTop; 

  BtnCariAra.Height = 45;

  BtnCariAra.Margins.Top = 10;

  BtnCariAra.Margins.Left = 10;

  BtnCariAra.Margins.Right = 10;

  BtnCariAra.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8B5CF6'); 

  BtnCariAra.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnCariAra.clProSettings.IsFill = True; 

  BtnCariAra.clProSettings.IsRound = True;

  BtnCariAra.clProSettings.RoundHeight = 10;

  BtnCariAra.clProSettings.RoundWidth = 10;

  BtnCariAra.clProSettings.FontSize = 15;

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

  BtnCariAra.SetclProSettings(BtnCariAra.clProSettings);

  HareketForm.AddNewEvent(BtnCariAra, tbeOnClick, 'goToCariler');

  BtnIslemHareketleri = HareketForm.AddNewProButton(AnaScrollBox, 'BtnIslemHareketleri', '📊 İşlem Hareketleri ve Analizler');

  BtnIslemHareketleri.Align = alTop; 

  BtnIslemHareketleri.Height = 45;

  BtnIslemHareketleri.Margins.Top = 10;

  BtnIslemHareketleri.Margins.Left = 10;

  BtnIslemHareketleri.Margins.Right = 10;

  BtnIslemHareketleri.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0EA5E9'); 

  BtnIslemHareketleri.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnIslemHareketleri.clProSettings.IsFill = True; 

  BtnIslemHareketleri.clProSettings.IsRound = True;

  BtnIslemHareketleri.clProSettings.RoundHeight = 10;

  BtnIslemHareketleri.clProSettings.RoundWidth = 10;

  BtnIslemHareketleri.clProSettings.FontSize = 15;

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

  BtnIslemHareketleri.SetclProSettings(BtnIslemHareketleri.clProSettings);

  HareketForm.AddNewEvent(BtnIslemHareketleri, tbeOnClick, 'goToIslemHareketleri');

  PnlKarZarar = HareketForm.AddNewProPanel(AnaScrollBox, 'PnlKarZarar');

  PnlKarZarar.Align = alTop;

  PnlKarZarar.Height = 100;

  PnlKarZarar.Margins.Top = 15;

  PnlKarZarar.Margins.Left = 10;

  PnlKarZarar.Margins.Right = 10;

  PnlKarZarar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#10B981'); 

  PnlKarZarar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D1FAE5');

  PnlKarZarar.clProSettings.BorderWidth = 2;

  PnlKarZarar.clProSettings.IsFill = True;

  PnlKarZarar.clProSettings.IsRound = True;

  PnlKarZarar.clProSettings.RoundHeight = 15;

  PnlKarZarar.clProSettings.RoundWidth = 15;

  PnlKarZarar.SetclProSettings(PnlKarZarar.clProSettings);

  LblKarZararBaslik = HareketForm.AddNewLabel(PnlKarZarar, 'LblKarZararBaslik', 'Güncel Kar / Zarar Durumu');

  LblKarZararBaslik.Align = alTop;

  LblKarZararBaslik.Margins.Top = 15;

  LblKarZararBaslik.Margins.Left = 15;

  LblKarZararBaslik.TextSettings.Font.Size = 18;

  LblKarZararBaslik.TextSettings.FontColor = '#065F46';

  LblKarZararDeger = HareketForm.AddNewLabel(PnlKarZarar, 'LblKarZararDeger', '+ 45.500,00 TL');

  LblKarZararDeger.Align = alTop;

  LblKarZararDeger.Margins.Top = 5;

  LblKarZararDeger.Margins.Left = 15;

  LblKarZararDeger.TextSettings.Font.Size = 26;

  LblKarZararDeger.TextSettings.Font.Style = [fsBold];

  LblKarZararDeger.TextSettings.FontColor = '#047857';

  // --- ÖDEME ALINACAKLAR PANENİ VE LISTVIEW ---

  PnlAlacaklar = HareketForm.AddNewProPanel(AnaScrollBox, 'PnlAlacaklar');

  PnlAlacaklar.Align = alTop;

  PnlAlacaklar.Height = 270; 

  PnlAlacaklar.Margins.Top = 20;

  PnlAlacaklar.Margins.Left = 10;

  PnlAlacaklar.Margins.Right = 10;

  PnlAlacaklar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3B82F6');

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

  PnlAlacaklar.clProSettings.BorderWidth = 1;

  PnlAlacaklar.clProSettings.IsFill = True;

  PnlAlacaklar.clProSettings.IsRound = True;

  PnlAlacaklar.clProSettings.RoundHeight = 10;

  PnlAlacaklar.clProSettings.RoundWidth = 10;

  PnlAlacaklar.SetclProSettings(PnlAlacaklar.clProSettings);

  LblAlacaklarBaslik = HareketForm.AddNewLabel(PnlAlacaklar, 'LblAlacaklarBaslik', 'Ödeme Alınacaklar (Bekleyen)');

  LblAlacaklarBaslik.Align = alTop;

  LblAlacaklarBaslik.Margins.Top = 15;

  LblAlacaklarBaslik.Margins.Left = 15;

  LblAlacaklarBaslik.TextSettings.Font.Size = 18;

  LblAlacaklarBaslik.TextSettings.Font.Style = [fsBold];

  LblAlacaklarBaslik.TextSettings.FontColor = '#1D4ED8';

  LblAlacaklarBaslik.Height = 25;

  LsvAlacaklar = HareketForm.AddNewProListView(PnlAlacaklar, 'LsvAlacaklar');

  LsvAlacaklar.Align = alClient;

  LsvAlacaklar.Margins.Top = 10;

  LsvAlacaklar.Margins.Left = 10;

  LsvAlacaklar.Margins.Right = 10;

  LsvAlacaklar.Margins.Bottom = 10;

  

  HareketForm.AddNewEvent(LsvAlacaklar, tbeOnItemClick, 'OnAlacakClick');

  DPAlacaklar = HareketForm.AddNewProListViewDesignerPanel(LsvAlacaklar, 'DPAlacaklar');

  DPAlacaklar.Align = alTop; 

  DPAlacaklar.Height = 70; 

  DPAlacaklar.clProSettings.IsRound = True;

  DPAlacaklar.clProSettings.IsFill = True;

  DPAlacaklar.clProSettings.ItemHeight = 70;

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

  DPAlacaklar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');    

  DPAlacaklar.clProSettings.BorderWidth = 1;

  DPAlacaklar.clProSettings.RoundWidth = 8;    

  DPAlacaklar.clProSettings.RoundHeight = 8;

  DPAlacaklar.SetclProSettings(DPAlacaklar.clProSettings);

  LsvAlacaklar.SetDesignerPanel(DPAlacaklar);

  // 1) Sağ taraftaki Tutar Label'ı (Önce eklenmeli: alRight)

  LblAlacakD3 = HareketForm.AddNewProLabel(DPAlacaklar, 'AlacakSideText', '-');

  LblAlacakD3.Align = alRight;

  LblAlacakD3.Width = 120;

  LblAlacakD3.Margins.Right = 15;

  LblAlacakD3.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

  LblAlacakD3.clProSettings.FontSize = 15;

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

  LblAlacakD3.clProSettings.FontHorzAlign = palTrailing; 

  LblAlacakD3.clProSettings.FontVertAlign = palCenter;

  LblAlacakD3.SetclProSettings(LblAlacakD3.clProSettings);

  // 2) Sol Üst - Başlık / Kişi İsmi

  LblAlacakD1 = HareketForm.AddNewProLabel(DPAlacaklar, 'AlacakMainText', '-');

  LblAlacakD1.Align = alTop;

  LblAlacakD1.Margins.Top = 10;

  LblAlacakD1.Margins.Left = 15;

  LblAlacakD1.Height = 25;

  LblAlacakD1.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');

  LblAlacakD1.clProSettings.FontSize = 16;

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

  LblAlacakD1.clProSettings.FontHorzAlign = palLeading;

  LblAlacakD1.clProSettings.FontVertAlign = palCenter;

  LblAlacakD1.SetclProSettings(LblAlacakD1.clProSettings);

  // 3) Sol Alt - Açıklama

  LblAlacakD2 = HareketForm.AddNewProLabel(DPAlacaklar, 'AlacakSubText', '-');

  LblAlacakD2.Align = alTop;

  LblAlacakD2.Margins.Left = 15;

  LblAlacakD2.Height = 20;

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

  LblAlacakD2.clProSettings.FontSize = 12;

  LblAlacakD2.clProSettings.FontHorzAlign = palLeading;

  LblAlacakD2.clProSettings.FontVertAlign = palCenter;

  LblAlacakD2.SetclProSettings(LblAlacakD2.clProSettings);

  // Bind İşlemleri

  DPAlacaklar.AddPanelObject(LblAlacakD3, clText1);

  DPAlacaklar.AddPanelObject(LblAlacakD1, clCaption);

  DPAlacaklar.AddPanelObject(LblAlacakD2, clText);

  

  LsvAlacaklar.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

    {"AlacakMainText":"Eren", "AlacakSubText":"Ödeme Alınacak", "AlacakSideText":"+ 200 TL"},

    {"AlacakMainText":"Ayşe", "AlacakSubText":"Ödeme Alınacak", "AlacakSideText":"+ 300 TL"}

  ]'));

  // --- ÖDEME YAPILACAKLAR (BORÇLAR) PANELLERİ VE LISTVIEW ---

  PnlBorclar = HareketForm.AddNewProPanel(AnaScrollBox, 'PnlBorclar');

  PnlBorclar.Align = alTop;

  PnlBorclar.Height = 270; 

  PnlBorclar.Margins.Top = 20;

  PnlBorclar.Margins.Left = 10;

  PnlBorclar.Margins.Right = 10;

  PnlBorclar.Margins.Bottom = 40; 

  PnlBorclar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#EF4444');

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

  PnlBorclar.clProSettings.BorderWidth = 1;

  PnlBorclar.clProSettings.IsFill = True;

  PnlBorclar.clProSettings.IsRound = True;

  PnlBorclar.clProSettings.RoundHeight = 10;

  PnlBorclar.clProSettings.RoundWidth = 10;

  PnlBorclar.SetclProSettings(PnlBorclar.clProSettings);

  LblBorclarBaslik = HareketForm.AddNewLabel(PnlBorclar, 'LblBorclarBaslik', 'Ödeme Yapacaklarımız (Borçlar)');

  LblBorclarBaslik.Align = alTop;

  LblBorclarBaslik.Margins.Top = 15;

  LblBorclarBaslik.Margins.Left = 15;

  LblBorclarBaslik.TextSettings.Font.Size = 18;

  LblBorclarBaslik.TextSettings.Font.Style = [fsBold];

  LblBorclarBaslik.TextSettings.FontColor = '#B91C1C';

  LblBorclarBaslik.Height = 25;

  LsvBorclar = HareketForm.AddNewProListView(PnlBorclar, 'LsvBorclar');

  LsvBorclar.Align = alClient;

  LsvBorclar.Margins.Top = 10;

  LsvBorclar.Margins.Left = 10;

  LsvBorclar.Margins.Right = 10;

  LsvBorclar.Margins.Bottom = 10;

  HareketForm.AddNewEvent(LsvBorclar, tbeOnItemClick, 'OnBorcClick');

  DPBorclar = HareketForm.AddNewProListViewDesignerPanel(LsvBorclar, 'DPBorclar');

  DPBorclar.Align = alTop; 

  DPBorclar.Height = 70; 

  DPBorclar.clProSettings.IsRound = True;

  DPBorclar.clProSettings.IsFill = True;

  DPBorclar.clProSettings.ItemHeight = 70;

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

  DPBorclar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');    

  DPBorclar.clProSettings.BorderWidth = 1;

  DPBorclar.clProSettings.RoundWidth = 8;    

  DPBorclar.clProSettings.RoundHeight = 8;

  DPBorclar.SetclProSettings(DPBorclar.clProSettings);

  LsvBorclar.SetDesignerPanel(DPBorclar);

  // 1) Sağ taraftaki Tutar Label'ı (alRight)

  LblBorcD3 = HareketForm.AddNewProLabel(DPBorclar, 'BorcSideText', '-');

  LblBorcD3.Align = alRight;

  LblBorcD3.Width = 120;

  LblBorcD3.Margins.Right = 15;

  LblBorcD3.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

  LblBorcD3.clProSettings.FontSize = 15;

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

  LblBorcD3.clProSettings.FontHorzAlign = palTrailing; 

  LblBorcD3.clProSettings.FontVertAlign = palCenter;

  LblBorcD3.SetclProSettings(LblBorcD3.clProSettings);

  // 2) Sol Üst - Kişi İsmi

  LblBorcD1 = HareketForm.AddNewProLabel(DPBorclar, 'BorcMainText', '-');

  LblBorcD1.Align = alTop;

  LblBorcD1.Margins.Top = 10;

  LblBorcD1.Margins.Left = 15;

  LblBorcD1.Height = 25;

  LblBorcD1.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');

  LblBorcD1.clProSettings.FontSize = 16;

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

  LblBorcD1.clProSettings.FontHorzAlign = palLeading;

  LblBorcD1.clProSettings.FontVertAlign = palCenter;

  LblBorcD1.SetclProSettings(LblBorcD1.clProSettings);

  // 3) Sol Alt - Açıklama

  LblBorcD2 = HareketForm.AddNewProLabel(DPBorclar, 'BorcSubText', '-');

  LblBorcD2.Align = alTop;

  LblBorcD2.Margins.Left = 15;

  LblBorcD2.Height = 20;

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

  LblBorcD2.clProSettings.FontSize = 12;

  LblBorcD2.clProSettings.FontHorzAlign = palLeading;

  LblBorcD2.clProSettings.FontVertAlign = palCenter;

  LblBorcD2.SetclProSettings(LblBorcD2.clProSettings);

  // Bind İşlemleri

  DPBorclar.AddPanelObject(LblBorcD3, clText1);

  DPBorclar.AddPanelObject(LblBorcD1, clCaption);

  DPBorclar.AddPanelObject(LblBorcD2, clText);

  

  LsvBorclar.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

    {"BorcMainText":"Sevda", "BorcSubText":"Ödeme Yapılacak", "BorcSideText":"- 500 TL"}

  ]'));

  HareketForm.Run;

}

var

  MyForm: TCLForm;

  TitleLabel: TCLabel;

  

  // Kar/Zarar Paneli ve Yazilari

  ProfitLossPnl: TclProPanel;

  ProfitLossTitle: TCLabel;

  ProfitLossValue: TCLabel;

  

  // Liste Basliklari

  ReceivablesLabel: TCLabel;

  PayablesLabel: TCLabel;

  

  // Listelera

  ReceivablesList: TCLListView;

 

{

  MyForm = TCLForm.Create(Self);

  // Login ekranindaki ayni arka plan rengini koruyoruz

  MyForm.SetFormColor('#CDA2BE', '#CDA2BE', clGCross);

  // --- SAYFA BASLIGI ---

  TitleLabel = MyForm.AddNewLabel(MyForm, 'TitleLabel', 'Financial Dashboard');

  TitleLabel.Align = alTop;

  TitleLabel.Margins.Top = 15;

  TitleLabel.Margins.Left = 20;

  TitleLabel.Margins.Right = 20;

  TitleLabel.TextSettings.Font.Size = 22;

  TitleLabel.TextSettings.Font.Style = [fsBold];

  TitleLabel.TextSettings.FontColor = '#1a1a1a';

  TitleLabel.Height = 35;

  // --- KAR/ZARAR PANELİ (PROFIT / LOSS) ---

  ProfitLossPnl = MyForm.AddNewProPanel(MyForm, 'ProfitLossPnl');

  ProfitLossPnl.Align = alTop;

  ProfitLossPnl.Margins.Top = 15;

  ProfitLossPnl.Margins.Left = 20;

  ProfitLossPnl.Margins.Right = 20;

  ProfitLossPnl.Height = 85;

  ProfitLossPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#4CAF50'); // Yesil cerceve

  ProfitLossPnl.clProSettings.backgroundColor = clAlphaColor.clHexToColor('#E8F5E9'); // Acik yesil arka plan

  ProfitLossPnl.clProSettings.RoundHeight = 10;

  ProfitLossPnl.clProSettings.RoundWidth = 10;

  ProfitLossPnl.clProSettings.BorderWidth = 2;

  ProfitLossPnl.clProSettings.IsFill = True;

  ProfitLossPnl.clProSettings.IsRound = True;

  ProfitLossPnl.SetclProSettings(ProfitLossPnl.clProSettings);

  ProfitLossTitle = MyForm.AddNewLabel(ProfitLossPnl, 'ProfitLossTitle', 'Net Profit / Loss');

  ProfitLossTitle.Align = alTop;

  ProfitLossTitle.Margins.Top = 10;

  ProfitLossTitle.Margins.Left = 15;

  ProfitLossTitle.TextSettings.Font.Size = 14;

  ProfitLossTitle.TextSettings.FontColor = '#555555';

  ProfitLossValue = MyForm.AddNewLabel(ProfitLossPnl, 'ProfitLossValue', '+ $12,500.00');

  ProfitLossValue.Align = alTop;

  ProfitLossValue.Margins.Top = 5;

  ProfitLossValue.Margins.Left = 15;

  ProfitLossValue.TextSettings.Font.Size = 22;

  ProfitLossValue.TextSettings.Font.Style = [fsBold];

  ProfitLossValue.TextSettings.FontColor = '#2E7D32'; // Koyu Yesil Yazi

  // --- ALINACAKLAR LİSTESİ (ACCOUNTS RECEIVABLE) ---

  ReceivablesLabel = MyForm.AddNewLabel(MyForm, 'ReceivablesLabel', 'Accounts Receivable');

  ReceivablesLabel.Align = alTop;

  ReceivablesLabel.Margins.Top = 20;

  ReceivablesLabel.Margins.Left = 20;

  ReceivablesLabel.TextSettings.Font.Size = 16;

  ReceivablesLabel.TextSettings.Font.Style = [fsBold];

  ReceivablesLabel.Height = 25;

  ReceivablesList = MyForm.AddNewListView(MyForm, 'ReceivablesList');

  ReceivablesList.Align = alTop;

  ReceivablesList.Margins.Top = 5;

  ReceivablesList.Margins.Left = 20;

  ReceivablesList.Margins.Right = 20;

  ReceivablesList.Height = 150; // Listenin yuksekligi

  // --- YAPILACAK ÖDEMELER LİSTESİ (ACCOUNTS PAYABLE) ---

  PayablesLabel = MyForm.AddNewLabel(MyForm, 'PayablesLabel', 'Accounts Payable');

  PayablesLabel.Align = alTop;

  PayablesLabel.Margins.Top = 15;

  PayablesLabel.Margins.Left = 20;

  PayablesLabel.TextSettings.Font.Size = 16;

  PayablesLabel.TextSettings.Font.Style = [fsBold];

  PayablesLabel.Height = 25;

  

  MyForm.Run;

}

  MyForm: TCLForm;

  CompanyComboBox: TCComboBox;

  UsernameEdit: TCEdit;

  PasswordEdit: TCEdit;

  LoginButton: TCButton;

  TitleLabel: TCLabel;

  MainPnl : TclProPanel; 

  AltPnl : TclProPanel;

  LeftAltResim: TclImage; // Hata düzeltildi (Fazla isim silindi)

void openhareketdurumu;

{

  Clomosy.RunUnit('uhareketdurumu');

}

void OnLoginClick;

{

  // İleride buraya API'ye istek atma kodlarını ekleyeceğiz

  ShowMessage('Seçilen Şirket: ' + CompanyComboBox.Text + ' | Kullanıcı: ' + UsernameEdit.Text);

  

  // SAYFA GEÇİŞİ BURAYA EKLENDİ

  openhareketdurumu;

}

{

  MyForm = TCLForm.Create(Self);

  MyForm.SetFormColor('#CDA2BE', '#CDA2BE',clGCross );

  // Başlık Etiketi

  TitleLabel = MyForm.AddNewLabel(MyForm, 'TitleLabel', 'ERP Giriş Portalı');

  TitleLabel.Align = alMostTop;

  TitleLabel.Margins.Top = 5;

  TitleLabel.Margins.Right = 20;

  TitleLabel.TextSettings.Font.Size = 40;

  TitleLabel.TextSettings.Font.Style = [fsBold];

  TitleLabel.TextSettings.FontColor = '#1a1a1a';

  // Şirket Seçim Alanı (Combobox)

  CompanyComboBox = MyForm.AddNewComboBox(MyForm, 'CompanyComboBox');

  CompanyComboBox.Align = alTop;

  CompanyComboBox.Margins.Top = 30;

  CompanyComboBox.Margins.Right= 20;

  CompanyComboBox.Height = 45;

  

  // Örnek şirketleri listeye ekliyoruz

  CompanyComboBox.AddItem('Merkez Şirket (A.Ş.)', '1');

  CompanyComboBox.AddItem('Fabrika Şubesi (LTD.)', '2');

  CompanyComboBox.ItemIndex = 0; // Varsayılan ilk şirket seçili gelsin

  MainPnl=MyForm.AddNewProPanel(MyForm,'MainPnl');

  MainPnl.Align = alTop;

  MainPnl.Width = 300;

  MainPnl.Height = 300;  

  MainPnl.Margins.Top = 20;

  MainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ecc0c0');

  MainPnl.clProSettings.backgroundColor = clAlphaColor.clHexToColor('#ecc0c0');

  MainPnl.clProSettings.RoundHeight = 5;

  MainPnl.clProSettings.RoundWidth = 5;

  MainPnl.clProSettings.BorderWidth = 1;

  MainPnl.clProSettings.IsFill = True; 

  MainPnl.clProSettings.IsRound = True;

  MainPnl.SetclProSettings(MainPnl.clProSettings);

  // Kullanıcı Adı Kutusu

  UsernameEdit = MyForm.AddNewEdit(MainPnl, 'UsernameEdit', 'Kullanıcı Adı');

  UsernameEdit.Align = alTop;

  UsernameEdit.Margins.Top = 15;

  UsernameEdit.Margins.Right = 20;

  UsernameEdit.Height = 40;

  // Şifre Kutusu

  PasswordEdit = MyForm.AddNewEdit(MainPnl, 'PasswordEdit', 'Şifre');

  PasswordEdit.Align = alTop;

  PasswordEdit.Margins.Top = 20;

  PasswordEdit.Margins.Right = 15;

  PasswordEdit.Height = 40; // Hata düzeltildi (Noktalı virgül eklendi)

  PasswordEdit.Password = True; // Şifrenin yıldızlı görünmesini sağlar

  // Giriş Yap Butonu

  LoginButton = MyForm.AddNewButton(MainPnl, 'LoginButton', 'Giriş Yap');

  LoginButton.Align = alTop;

  LoginButton.Margins.Top = 20;

  LoginButton.Margins.Right = 15;

  LoginButton.Height = 40;

  

  MyForm.AddNewEvent(LoginButton, tbeOnClick, 'OnLoginClick');

  

  AltPnl = MyForm.AddNewProPanel(MyForm, 'AltPnl');

  AltPnl.Align = alBottom; 

  AltPnl.Height = 280;

  AltPnl.clProSettings.IsFill = False; 

  AltPnl.SetclProSettings(AltPnl.clProSettings);

  

  // --- RESMİ PANELE EKLEME ---

  LeftAltResim = MyForm.AddNewImage(AltPnl, 'SolAltResim');

  LeftAltResim.Align = alLeft; // Resmi alt panelin soluna dayandırır

  LeftAltResim.Width = 280;

  LeftAltResim.Margins.Left = 0;

  LeftAltResim.Margins.Bottom = 0;

  

  // Örnek bir logo url'si

  MyForm.SetImage(LeftAltResim, 'https://resmim.net/cdn/2026/08/12/EyIUUI.jpg'); 

  MyForm.Run;

}

void LoginClick;

var

  vUyeTipi, vKullaniciAdi: String;

  vId: Integer;

  IsAdminMaster: Boolean;

{

  if ((Trim(UserEdit.Text) == '') || (Trim(PassEdit.Text) == ''))

  {

    HataLbl.Text = 'Lütfen tüm alanları doldurunuz!';

    HataLbl.Visible = True;

    Exit;

  }

  // 1. SABİT YÖNETİCİ KONTROLÜ (Veritabanında olmasa bile geçiş izni verir)

  IsAdminMaster = False;

  if ((LowerCase(Trim(UserEdit.Text)) == 'yonetici') && (Trim(PassEdit.Text) == '123456'))

  {

    IsAdminMaster = True;

  }

  if (IsAdminMaster)

  {

    HataLbl.Visible = False;

    Clomosy.GlobalVariableInteger = 1;

    Clomosy.GlobalVariableString = 'Yonetici';

    Clomosy.RunUnit('02_uAdminPanel');

    Exit;

  }

  // 2. VERİTABANI KONTROLÜ (Kayıt olan normal kullanıcılar ve DB'deki yöneticiler için)

  try

    Qry = Clomosy.DBSQLServerQueryWith(

      'SELECT Id, KullaniciAdi, AdSoyad, ISNULL(UyeTipi, ''Kullanici'') AS UyeTipi ' +

      'FROM Kullanicilar WITH (NOLOCK) ' +

      'WHERE (KullaniciAdi = ' + QuotedStr(Trim(UserEdit.Text)) + 

      ' OR Email = ' + QuotedStr(Trim(UserEdit.Text)) + ') ' +

      'AND Sifre = ' + QuotedStr(Trim(PassEdit.Text))

    );

    Qry.Open;

    if (not Qry.Eof)

    {

      HataLbl.Visible = False;

      

      vId = Qry.FieldByName('Id').AsInteger;

      vKullaniciAdi = Qry.FieldByName('KullaniciAdi').AsString;

      vUyeTipi = UpperCase(Trim(Qry.FieldByName('UyeTipi').AsString));

      Clomosy.GlobalVariableInteger = vId;

      Clomosy.GlobalVariableString = vKullaniciAdi;

      // Veritabanındaki UyeTipi 'Yonetici' veya 'Admin' olanlar da Admin Paneline gider

      if ((vUyeTipi == 'YONETICI') || (vUyeTipi == 'ADMIN'))

      {

        Clomosy.RunUnit('02_uAdminPanel');

      }

      else

      {

        Clomosy.RunUnit('Main'); // Normal kullanıcılar ana sayfaya gider

      }

      Exit;

    }

    else

    {

      HataLbl.Text = 'Kullanıcı adı veya şifre hatalı!';

      HataLbl.Visible = True;

    }

  except

    HataLbl.Text = 'Bağlantı veya sorgu hatası oluştu!';

    HataLbl.Visible = True;

  }

}

var

  GlobalForm    : TclForm;

  MainPanel     : TclProPanel;

  LoginScroll   : TclVertScrollBox;

  TopBanner     : TclProPanel;

  HeaderTagLbl  : TclProLabel;

  BaslikLbl     : TclProLabel;

  AltBaslikLbl  : TclProLabel;

  CardShadow    : TclProPanel;

  LoginCard     : TclProPanel;

  UserLbl       : TclProLabel;

  UserEdit      : TclProEdit;

  PassLbl       : TclProLabel;

  PassEdit      : TclProEdit;

  PassToggleBtn : TclProButton;

  HataLbl       : TclProLabel;

  LoginBtn      : TclProButton;

  AyiriciSol    : TclProPanel;

  AyiriciLbl    : TclProLabel;

  AyiriciSag    : TclProPanel;

  KayitBtn      : TclProButton;

  Qry           : TclQuery;

void LoginClick;

{

  if ((UserEdit.Text == '') || (PassEdit.Text == ''))

  {

    HataLbl.Text = 'Lütfen tüm alanları doldurunuz!';

    HataLbl.Visible = True;

    Exit;

  }

  Qry = Clomosy.DBSQLServerQueryWith('SELECT Id, KullaniciAdi, AdSoyad, UyeTipi FROM Kullanicilar WHERE (KullaniciAdi = ' + QuotedStr(UserEdit.Text) + ' OR Email = ' + QuotedStr(UserEdit.Text) + ') AND Sifre = ' + QuotedStr(PassEdit.Text));

  Qry.Open;

  if (Qry.Eof == False)

  {

    HataLbl.Visible = False;

    Clomosy.GlobalVariableInteger = Qry.FieldByName('Id').AsInteger;

    Clomosy.GlobalVariableString = Qry.FieldByName('KullaniciAdi').AsString;

    // UyeTipi = 'Yonetici' olan kullanıcı admin paneline yönlendirilir

    if (Qry.FieldByName('UyeTipi').AsString == 'Yonetici')

    {

      Clomosy.RunUnit('02_uAdminPanel');

    }

    else

    {

      Clomosy.RunUnit('Main');

    }

    Exit;

  }

  else

  {

    HataLbl.Text = 'Kullanıcı adı veya şifre hatalı!';

    HataLbl.Visible = True;

  }

}

void SifreGoster;

{

  if (PassEdit.Password == True)

  {

    PassEdit.Password = False;

    PassToggleBtn.Text = 'GİZLE';

  }

  else

  {

    PassEdit.Password = True;

    PassToggleBtn.Text = 'GÖSTER';

  }

}

void KayitOlGit;

{

  Clomosy.RunUnit('01_uKayitOl');

}

void CreatePage;

{

  GlobalForm = TclForm.Create(Self);

  MainPanel = GlobalForm.AddNewProPanel(GlobalForm, 'MainPanel');

  MainPanel.Align = alClient;

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

  MainPanel.SetclProSettings(MainPanel.clProSettings);

  LoginScroll = GlobalForm.AddNewVertScrollBox(MainPanel, 'LoginScroll');

  LoginScroll.Align = alClient;

  // TOP HERO BANNER (Zümrüt Yeşil Header)

  TopBanner = GlobalForm.AddNewProPanel(LoginScroll, 'TopBanner');

  TopBanner.Align = alNone;

  TopBanner.Width = GlobalForm.clWidth;

  TopBanner.Height = 210;

  TopBanner.Position.X = 0;

  TopBanner.Position.Y = 0;

  TopBanner.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#064E3B');

  TopBanner.SetclProSettings(TopBanner.clProSettings);

  HeaderTagLbl = GlobalForm.AddNewProLabel(TopBanner, 'HeaderTagLbl', Chr($26BD) + ' SAHA EŞLEŞTİRME PLATFORMU');

  HeaderTagLbl.Align = alNone;

  HeaderTagLbl.Width = GlobalForm.clWidth;

  HeaderTagLbl.Height = 18;

  HeaderTagLbl.Position.X = 0;

  HeaderTagLbl.Position.Y = 45;

  HeaderTagLbl.clProSettings.FontSize = 10;

  HeaderTagLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#6EE7B7');

  HeaderTagLbl.clProSettings.FontHorzAlign = palCenter;

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

  HeaderTagLbl.SetclProSettings(HeaderTagLbl.clProSettings);

  BaslikLbl = GlobalForm.AddNewProLabel(TopBanner, 'BaslikLbl', 'ADAM LAZIM');

  BaslikLbl.Align = alNone;

  BaslikLbl.Width = GlobalForm.clWidth;

  BaslikLbl.Height = 42;

  BaslikLbl.Position.X = 0;

  BaslikLbl.Position.Y = 65;

  BaslikLbl.clProSettings.FontSize = 28;

  BaslikLbl.clProSettings.FontColor = clAlphaColor.clWhite;

  BaslikLbl.clProSettings.FontHorzAlign = palCenter;

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

  BaslikLbl.SetclProSettings(BaslikLbl.clProSettings);

  AltBaslikLbl = GlobalForm.AddNewProLabel(TopBanner, 'AltBaslikLbl', 'Halı Saha Oyuncu ve Takım Bulma Portalı');

  AltBaslikLbl.Align = alNone;

  AltBaslikLbl.Width = GlobalForm.clWidth;

  AltBaslikLbl.Height = 24;

  AltBaslikLbl.Position.X = 0;

  AltBaslikLbl.Position.Y = 112;

  AltBaslikLbl.clProSettings.FontSize = 12;

  AltBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#A7F3D0');

  AltBaslikLbl.clProSettings.FontHorzAlign = palCenter;

  AltBaslikLbl.SetclProSettings(AltBaslikLbl.clProSettings);

  // KART GÖLGESİ

  CardShadow = GlobalForm.AddNewProPanel(LoginScroll, 'CardShadow');

  CardShadow.Align = alNone;

  CardShadow.Width = 330;

  CardShadow.Height = 425;

  CardShadow.Position.X = (GlobalForm.clWidth - 330) / 2;

  CardShadow.Position.Y = 176;

  CardShadow.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0F000000');

  CardShadow.clProSettings.RoundWidth = 20;

  CardShadow.clProSettings.RoundHeight = 20;

  CardShadow.SetclProSettings(CardShadow.clProSettings);

  // ANA GİRİŞ KARTI

  LoginCard = GlobalForm.AddNewProPanel(LoginScroll, 'LoginCard');

  LoginCard.Align = alNone;

  LoginCard.Width = 330;

  LoginCard.Height = 425;

  LoginCard.Position.X = (GlobalForm.clWidth - 330) / 2;

  LoginCard.Position.Y = 170;

  LoginCard.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  LoginCard.clProSettings.RoundWidth = 20;

  LoginCard.clProSettings.RoundHeight = 20;

  LoginCard.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0');

  LoginCard.clProSettings.BorderWidth = 1;

  LoginCard.SetclProSettings(LoginCard.clProSettings);

  // Kullanıcı Adı

  UserLbl = GlobalForm.AddNewProLabel(LoginCard, 'UserLbl', 'Kullanıcı Adı veya E-Posta');

  UserLbl.Align = alNone;

  UserLbl.Width = 270;

  UserLbl.Height = 18;

  UserLbl.Position.X = 30;

  UserLbl.Position.Y = 24;

  UserLbl.clProSettings.FontSize = 11;

  UserLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155');

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

  UserLbl.SetclProSettings(UserLbl.clProSettings);

  UserEdit = GlobalForm.AddNewProEdit(LoginCard, 'UserEdit', 'Kullanıcı adı veya e-posta');

  UserEdit.Align = alNone;

  UserEdit.Width = 270;

  UserEdit.Height = 42;

  UserEdit.Position.X = 30;

  UserEdit.Position.Y = 44;

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

  UserEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

  UserEdit.clProSettings.BorderWidth = 1;

  UserEdit.clProSettings.RoundWidth = 10;

  UserEdit.clProSettings.RoundHeight = 10;

  UserEdit.clProSettings.FontSize = 12;

  UserEdit.SetclProSettings(UserEdit.clProSettings);

  // Şifre

  PassLbl = GlobalForm.AddNewProLabel(LoginCard, 'PassLbl', 'Şifre');

  PassLbl.Align = alNone;

  PassLbl.Width = 160;

  PassLbl.Height = 18;

  PassLbl.Position.X = 30;

  PassLbl.Position.Y = 100;

  PassLbl.clProSettings.FontSize = 11;

  PassLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155');

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

  PassLbl.SetclProSettings(PassLbl.clProSettings);

  PassToggleBtn = GlobalForm.AddNewProButton(LoginCard, 'PassToggleBtn', 'GÖSTER');

  PassToggleBtn.Align = alNone;

  PassToggleBtn.Width = 70;

  PassToggleBtn.Height = 20;

  PassToggleBtn.Position.X = 230;

  PassToggleBtn.Position.Y = 98;

  PassToggleBtn.clProSettings.BackgroundColor = clAlphaColor.clNull;

  PassToggleBtn.clProSettings.BorderWidth = 0;

  PassToggleBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#059669');

  PassToggleBtn.clProSettings.FontSize = 10;

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

  PassToggleBtn.SetclProSettings(PassToggleBtn.clProSettings);

  GlobalForm.AddNewEvent(PassToggleBtn, tbeOnClick, 'SifreGoster');

  PassEdit = GlobalForm.AddNewProEdit(LoginCard, 'PassEdit', 'Şifrenizi girin');

  PassEdit.Align = alNone;

  PassEdit.Width = 270;

  PassEdit.Height = 42;

  PassEdit.Position.X = 30;

  PassEdit.Position.Y = 120;

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

  PassEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

  PassEdit.clProSettings.BorderWidth = 1;

  PassEdit.clProSettings.RoundWidth = 10;

  PassEdit.clProSettings.RoundHeight = 10;

  PassEdit.clProSettings.FontSize = 12;

  PassEdit.SetclProSettings(PassEdit.clProSettings);

  PassEdit.Password = True;

  // Hata Mesajı

  HataLbl = GlobalForm.AddNewProLabel(LoginCard, 'HataLbl', '');

  HataLbl.Align = alNone;

  HataLbl.Width = 270;

  HataLbl.Height = 32;

  HataLbl.Position.X = 30;

  HataLbl.Position.Y = 172;

  HataLbl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FEF2F2');

  HataLbl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FCA5A5');

  HataLbl.clProSettings.BorderWidth = 1;

  HataLbl.clProSettings.RoundWidth = 8;

  HataLbl.clProSettings.RoundHeight = 8;

  HataLbl.clProSettings.FontSize = 11;

  HataLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626');

  HataLbl.clProSettings.FontHorzAlign = palCenter;

  HataLbl.SetclProSettings(HataLbl.clProSettings);

  HataLbl.Visible = False;

  // BİRİNCİL BUTON: GİRİŞ YAP

  LoginBtn = GlobalForm.AddNewProButton(LoginCard, 'LoginBtn', 'GİRİŞ YAP   ' + Chr($279C));

  LoginBtn.Align = alNone;

  LoginBtn.Width = 270;

  LoginBtn.Height = 48;

  LoginBtn.Position.X = 30;

  LoginBtn.Position.Y = 218;

  LoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#059669');

  LoginBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  LoginBtn.clProSettings.FontSize = 14;

  LoginBtn.clProSettings.RoundWidth = 12;

  LoginBtn.clProSettings.RoundHeight = 12;

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

  LoginBtn.SetclProSettings(LoginBtn.clProSettings);

  GlobalForm.AddNewEvent(LoginBtn, tbeOnClick, 'LoginClick');

  // ÇİZGİLİ AYIRICI

  AyiriciSol = GlobalForm.AddNewProPanel(LoginCard, 'AyiriciSol');

  AyiriciSol.Align = alNone;

  AyiriciSol.Width = 95;

  AyiriciSol.Height = 1;

  AyiriciSol.Position.X = 30;

  AyiriciSol.Position.Y = 290;

  AyiriciSol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E2E8F0');

  AyiriciSol.SetclProSettings(AyiriciSol.clProSettings);

  AyiriciLbl = GlobalForm.AddNewProLabel(LoginCard, 'AyiriciLbl', 'veya');

  AyiriciLbl.Align = alNone;

  AyiriciLbl.Width = 50;

  AyiriciLbl.Height = 18;

  AyiriciLbl.Position.X = 140;

  AyiriciLbl.Position.Y = 281;

  AyiriciLbl.clProSettings.FontSize = 11;

  AyiriciLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  AyiriciLbl.clProSettings.FontHorzAlign = palCenter;

  AyiriciLbl.SetclProSettings(AyiriciLbl.clProSettings);

  AyiriciSag = GlobalForm.AddNewProPanel(LoginCard, 'AyiriciSag');

  AyiriciSag.Align = alNone;

  AyiriciSag.Width = 95;

  AyiriciSag.Height = 1;

  AyiriciSag.Position.X = 205;

  AyiriciSag.Position.Y = 290;

  AyiriciSag.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E2E8F0');

  AyiriciSag.SetclProSettings(AyiriciSag.clProSettings);

  // İKİNCİL BUTON: KAYIT OL YÖNLENDİRMESİ

  KayitBtn = GlobalForm.AddNewProButton(LoginCard, 'KayitBtn', 'Hesabın yok mu? Kayıt Ol');

  KayitBtn.Align = alNone;

  KayitBtn.Width = 270;

  KayitBtn.Height = 44;

  KayitBtn.Position.X = 30;

  KayitBtn.Position.Y = 324;

  KayitBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');

  KayitBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

  KayitBtn.clProSettings.BorderWidth = 1;

  KayitBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#059669');

  KayitBtn.clProSettings.FontSize = 12;

  KayitBtn.clProSettings.RoundWidth = 10;

  KayitBtn.clProSettings.RoundHeight = 10;

  KayitBtn.clProSettings.FontHorzAlign = palCenter;

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

  KayitBtn.SetclProSettings(KayitBtn.clProSettings);

  GlobalForm.AddNewEvent(KayitBtn, tbeOnClick, 'KayitOlGit');

}

{

  CreatePage;

  GlobalForm.Run;

} giriş yap formunda SQL Server a kayıtlı kullanıcı adı şifresi girdiğimde hata vesaire vermiyo direk giriş yap dediğimde giriş yap formunu sıfırlıyo ilk acıldığı gibi geliyor fakat ismet adlı kullanıcıdan giriş yaparken bir problem yaşanmıyor 

var

FormFiltre, FormGelismis, FormRehber: TclGameForm;

PnlNavBar, PnlMainCard, PnlFilterButtons, PnlListHost, PnlTabs: TclProPanel;

GrpTur, GrpPeriyot, GrpAy, GrpYil: TclProPanel;

BtnBack, BtnUygula, BtnTemizle, BtnGelismisOpen: TclProButton;

BtnTabYaklasan, BtnTabBekleyen, BtnTabTamamlanan: TclProButton;

LblTitle, LblTitleFilter, LblTitleList, LblTur, LblPeriyot, LblAy, LblYil, LblEmpty: TclProLabel;

CmbTur, CmbPeriyot, CmbAy, CmbYil: TclComboBox;

ScrollForm: TclVertScrollBox;

CardPanel: array [0..100] of TclProPanel;

CardTitle: array [0..100] of TclProLabel;

CardDetail: array [0..100] of TclProLabel;

KayitTur, KayitBelgeNo, KayitMakine, KayitTip, KayitPlanlanan: array [0..100] of String;

KayitDurum, KayitAy, KayitYil, KayitPeriyot: array [0..100] of String;

KayitOperator, KayitBaslangic, KayitBitisTur: array [0..100] of String;

KayitKisi, KayitAciklama, KayitNeden: array [0..100] of String;

KayitCount, TmpIndex, TmpVisibleCount, TmpYear: Integer;

UiFontSize: Integer;

ThemeKoyuRenk, ThemeAcikRenk, ThemeBorderColor, ThemeBgColor, ThemeTextColor: String;

OkunanUyariRengi, OkunanYaziRengi, OkunanKartRengi, OkunanZeminRengi, OkunanFontAdi: String;

OkunanTemaIndex, OkunanBoyutIndex, OkunanStilIndex, OkunanHizaIndex, GlobalAktifDilIndex: Integer;

PnlGelismisCard, GrpOperator: TclProPanel;

LblOperatorTitle, LblOperator: TclProLabel;

EdtOperator: TclEdit;

BtnOperatorRehber, BtnGelismisKapat, BtnGelismisUygula: TclProButton;

SecilenOperatorFiltresi: String;

PnlRehberCard: TclProPanel;

LblRehberTitle: TclProLabel;

EdtRehberArama: TclProEdit;

LsvBelgeRehber: TclListView;

RehberJsonData: TclJsonQuery;

GlobalLookupType: String;

PnlDetailOverlay, PnlDetailHeader, PnlDetailButtons: TclProPanel;

DetailScroll: TclVertScrollBox;

LblDetailTitle: TclProLabel;

BtnDetailSave, BtnDetailCancel, BtnTamamlandi, BtnErtele: TclProButton;

DetPnl: array[0..11] of TclProPanel;

DetLbl: array[0..11] of TclProLabel;

DetEdt: array[0..11] of TclEdit;

DetMemoNeden: TclMemo;

ActiveEditIndex: Integer;

gAktifDilIndex: Integer;

AktifSekme: String;

IsDBConnected: Boolean;

void ConnectToDatabase;

{

  try

    Clomosy.DBSQLServerConnect('SQL Server','192.168.1.20','sa','1','ATIKER2026',50000);

    IsDBConnected = True;

  except

    IsDBConnected = False;

  }

}

function GetText(Key: String): String;

var TKey: String;

{

  TKey = Trim(Key);

  Result = TKey;

  if (TKey == 'FORM_TITLE') { Result = 'Filtre ve Kayitlar'; }

  else if (TKey == 'SEC_FILTER') { Result = 'FILTRELEME KRITERLERI'; }

  else if (TKey == 'SEC_RESULTS') { Result = 'BAKIM VE ARIZA SONUCLARI'; }

  else if (TKey == 'LBL_TUR') { Result = 'Kayit Turu:'; }

  else if (TKey == 'LBL_PERIYOT') { Result = 'Periyot:'; }

  else if (TKey == 'LBL_AY') { Result = 'Ay:'; }

  else if (TKey == 'LBL_YIL') { Result = 'Yil:'; }

  else if (TKey == 'BTN_APPLY') { Result = 'Filtrele'; }

  else if (TKey == 'BTN_CLEAR') { Result = 'Sifirla'; }

  else if (TKey == 'MSG_EMPTY') { Result = 'Secilen kriterlere uygun kayit bulunamadi.'; }

  else if (TKey == 'ALL') { Result = 'Tumu'; }

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

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

}

function GuvenliRenkAl(HamDeger: String): String;

var Temiz: String;

{

  Temiz = Trim(HamDeger);

  if (Length(Temiz) >= 4)

  {

    if (Length(Temiz) > 7) { Result = Copy(Temiz, 1, 7); }

    else { Result = Temiz; }

  }

  else { Result = ''; }

}

function TemizleMetin(HamMetin: String): String;

var

  i: Integer;

  Karakter: String;

{

  Result = '';

  for (i = 1 to Length(HamMetin))

  {

    Karakter = Copy(HamMetin, i, 1);

    if ((Karakter == #13) || (Karakter == #10) || (Karakter == '|')) { Result = Result + ' '; }

    else { Result = Result + Karakter; }

  }

}

void AyarDosyasindanTemayiYukle(TemaIndex: Integer);

{

  ThemeBorderColor = '#CBD5E1';

  ThemeBgColor = '#EEF0F2';

  ThemeTextColor = '#3A3F47';

  ThemeKoyuRenk = '#1E293B'; 

  ThemeAcikRenk = '#3B82F6';

  FormFiltre.SetFormColor(ThemeKoyuRenk, ThemeAcikRenk, clGVertical);

}

void StyleHeaderBar(APanel: TclProPanel);

{

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

  APanel.clProSettings.BorderWidth = 0;

  APanel.clProSettings.IsFill = True;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StyleMainCard(APanel: TclProPanel);

{

  APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0');

  APanel.clProSettings.BorderWidth = 1;

  APanel.clProSettings.IsFill = True;

  APanel.clProSettings.IsRound = True;

  APanel.clProSettings.RoundHeight = 12;

  APanel.clProSettings.RoundWidth = 12;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StyleSectionTitle(ALabel: TclProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');

  ALabel.clProSettings.FontSize = UiFontSize + 1;

  ALabel.clProSettings.FontName = OkunanFontAdi;

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

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleInputPanel(APanel: TclProPanel);

{

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

  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

  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('#475569');

  ALabel.clProSettings.FontSize = UiFontSize - 1;

  ALabel.clProSettings.FontName = OkunanFontAdi;

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

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StylePrimaryButton(AButton: TclProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0284C7');

  AButton.clProSettings.FontColor = clAlphaColor.clWhite;

  AButton.clProSettings.BorderWidth = 0;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 8;

  AButton.clProSettings.RoundWidth = 8;

  AButton.clProSettings.FontSize = UiFontSize;

  AButton.clProSettings.FontName = OkunanFontAdi;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleSecondaryButton(AButton: TclProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155');

  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 8;

  AButton.clProSettings.RoundWidth = 8;

  AButton.clProSettings.FontSize = UiFontSize;

  AButton.clProSettings.FontName = OkunanFontAdi;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleTabButton(AButton: TclProButton; IsActive: Boolean);

{

  if (IsActive)

  {

    AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0F172A');

    AButton.clProSettings.FontColor = clAlphaColor.clWhite;

  }

  else

  {

    AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1F5F9');

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

  }

  AButton.clProSettings.BorderWidth = 0;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 6;

  AButton.clProSettings.RoundWidth = 6;

  AButton.clProSettings.FontSize = UiFontSize - 1;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void ApplyUiSettings;

var TmpY: Integer;

{

  LblTitle.Text = GetText('FORM_TITLE');

  LblTitleFilter.Text = GetText('SEC_FILTER');

  LblTitleList.Text = GetText('SEC_RESULTS');

  LblTur.Text = GetText('LBL_TUR');

  LblPeriyot.Text = GetText('LBL_PERIYOT');

  LblAy.Text = GetText('LBL_AY');

  LblYil.Text = GetText('LBL_YIL');

  BtnUygula.Text = GetText('BTN_APPLY');

  BtnTemizle.Text = GetText('BTN_CLEAR');

  LblEmpty.Text = GetText('MSG_EMPTY');

  CmbTur.Items.Clear;

  CmbTur.AddItem(GetText('ALL'), 'Tumu');

  CmbTur.AddItem('Bakim', 'Bakim');

  CmbTur.AddItem('Ariza', 'Ariza');

  CmbTur.ItemIndex = 0;

  CmbPeriyot.Items.Clear;

  CmbPeriyot.AddItem(GetText('ALL'), 'Tumu');

  CmbPeriyot.AddItem('Gunluk', 'Gunluk');

  CmbPeriyot.AddItem('Haftalik', 'Haftalik');

  CmbPeriyot.AddItem('Aylik', 'Aylik');

  CmbPeriyot.ItemIndex = 0;

  CmbAy.Items.Clear;

  CmbAy.AddItem(GetText('ALL'), 'Tumu');

  CmbAy.AddItem('01', '01'); CmbAy.AddItem('02', '02'); CmbAy.AddItem('03', '03');

  CmbAy.AddItem('04', '04'); CmbAy.AddItem('05', '05'); CmbAy.AddItem('06', '06');

  CmbAy.AddItem('07', '07'); CmbAy.AddItem('08', '08'); CmbAy.AddItem('09', '09');

  CmbAy.AddItem('10', '10'); CmbAy.AddItem('11', '11'); CmbAy.AddItem('12', '12');

  CmbAy.ItemIndex = 0;

  CmbYil.Items.Clear;

  CmbYil.AddItem(GetText('ALL'), 'Tumu');

  for (TmpY = 2020 to 2035) { CmbYil.AddItem(IntToStr(TmpY), IntToStr(TmpY)); }

  CmbYil.ItemIndex = 0;

  StyleSectionTitle(LblTitleFilter);

  StyleSectionTitle(LblTitleList);

  StylePrimaryButton(BtnUygula);

  StyleSecondaryButton(BtnTemizle);

}

void VerileriDosyadanYukle;

var

  KayitListesi: TclStringList;

  DosyaYolu, KalanVeri, SatirVerisi, IlkKelime: String;

  i, LPos: Integer;

{

  KayitCount = 0;

  DosyaYolu = clPathCombine('BakimVerileri.txt', Clomosy.AppFilesPath);

  if (clFileExists(DosyaYolu, ''))

  {

    KayitListesi = Clomosy.StringListNew;

    KayitListesi.LoadFromFile(DosyaYolu, 0);

    i = KayitListesi.Count - 1;

    while (i >= 0)

    {

      SatirVerisi = Trim(Clomosy.StringListItemString(KayitListesi, i));

      if (SatirVerisi <> '')

      {

        if (KayitCount < 100)

        {

          KalanVeri = SatirVerisi;

          LPos = Pos('|', KalanVeri);

          if (LPos > 0) { IlkKelime = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }

          else { IlkKelime = 'Bakim'; }

          if ((IlkKelime == 'Periyodik') || (IlkKelime == 'Bakim') || (IlkKelime == 'Bakım') || (Pos('Periyodik', IlkKelime) > 0))

          { KayitTur[KayitCount] = 'Bakim'; } else { KayitTur[KayitCount] = IlkKelime; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBelgeNo[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBelgeNo[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitMakine[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitMakine[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitTip[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitTip[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitPlanlanan[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitPlanlanan[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitDurum[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitDurum[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitAy[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitAy[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitYil[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitYil[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitPeriyot[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitPeriyot[KayitCount] = KalanVeri; KalanVeri = ''; }

         

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitOperator[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitOperator[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBaslangic[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBaslangic[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitBitisTur[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitBitisTur[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitKisi[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitKisi[KayitCount] = KalanVeri; KalanVeri = ''; }

          LPos = Pos('|', KalanVeri); if (LPos > 0) { KayitAciklama[KayitCount] = Copy(KalanVeri, 1, LPos - 1); KalanVeri = Copy(KalanVeri, LPos + 1, Length(KalanVeri)); } else { KayitAciklama[KayitCount] = KalanVeri; KalanVeri = ''; }

          KayitNeden[KayitCount] = KalanVeri;

          KayitCount = KayitCount + 1;

        }

      }

      i = i - 1;

    }

    KayitListesi.Free;

  }

}

function KayitUygunMu(AIndex: Integer): Boolean;

var

  STurCombo, SPeriyotCombo, SAyCombo, SYilCombo, SDurumHam: String;

{

  Result = True;

  if (CmbTur.ItemIndex <= 0) { STurCombo = 'Tumu'; } else { STurCombo = CmbTur.GetValueIndex(CmbTur.ItemIndex); }

  if (CmbAy.ItemIndex <= 0) { SAyCombo = 'Tumu'; } else { SAyCombo = CmbAy.GetValueIndex(CmbAy.ItemIndex); }

  if (CmbYil.ItemIndex <= 0) { SYilCombo = 'Tumu'; } else { SYilCombo = CmbYil.GetValueIndex(CmbYil.ItemIndex); }

  if (CmbPeriyot.ItemIndex <= 0) { SPeriyotCombo = 'Tumu'; } else { SPeriyotCombo = CmbPeriyot.GetValueIndex(CmbPeriyot.ItemIndex); }

  SDurumHam = Trim(KayitDurum[AIndex]);

  if (AktifSekme == 'BEKLEYEN')

  {

    if ((Pos('Yapildi', SDurumHam) > 0) || (Pos('Yapıldı', SDurumHam) > 0) || (Pos('Tamamlandi', SDurumHam) > 0) || (Pos('Tamamlandı', SDurumHam) > 0)) { Result = False; }

  }

  else if (AktifSekme == 'TAMAMLANAN')

  {

    if ((Pos('Yapildi', SDurumHam) == 0) && (Pos('Yapıldı', SDurumHam) == 0) && (Pos('Tamamlandi', SDurumHam) == 0) && (Pos('Tamamlandı', SDurumHam) == 0)) { Result = False; }

  }

  else if (AktifSekme == 'YAKLASAN')

  {

    if ((Pos('Yapildi', SDurumHam) > 0) || (Pos('Yapıldı', SDurumHam) > 0) || (Pos('Tamamlandi', SDurumHam) > 0) || (Pos('Tamamlandı', SDurumHam) > 0)) { Result = False; }

  }

  if (STurCombo <> 'Tumu')

  {

    if (STurCombo <> Trim(KayitTur[AIndex])) { Result = False; }

  }

  if (SAyCombo <> 'Tumu') { if (SAyCombo <> Trim(KayitAy[AIndex])) { Result = False; } }

  if (SYilCombo <> 'Tumu') { if (SYilCombo <> Trim(KayitYil[AIndex])) { Result = False; } }

  if (SPeriyotCombo <> 'Tumu') { if ((SPeriyotCombo <> Trim(KayitPeriyot[AIndex])) && (SPeriyotCombo <> Trim(KayitDurum[AIndex]))) { Result = False; } }

  if ((SecilenOperatorFiltresi <> '') && (SecilenOperatorFiltresi <> 'Tumu'))

  {

    if (Pos(SecilenOperatorFiltresi, KayitOperator[AIndex]) == 0) { Result = False; }

  }

}

void RefreshListe;

var

  TarihMetni, KartUyariRenk, OzetMetin: String;

{

  TmpVisibleCount = 0;

  if (AktifSekme == 'YAKLASAN') { StyleTabButton(BtnTabYaklasan, True); } else { StyleTabButton(BtnTabYaklasan, False); }

  if (AktifSekme == 'BEKLEYEN') { StyleTabButton(BtnTabBekleyen, True); } else { StyleTabButton(BtnTabBekleyen, False); }

  if (AktifSekme == 'TAMAMLANAN') { StyleTabButton(BtnTabTamamlanan, True); } else { StyleTabButton(BtnTabTamamlanan, False); }

  for (TmpIndex = 0 to KayitCount - 1)

  {

    if (KayitUygunMu(TmpIndex))

    {

      TmpVisibleCount = TmpVisibleCount + 1;

      if (TmpVisibleCount > 100) Break;

      CardPanel[TmpVisibleCount].Visible = True;

      CardPanel[TmpVisibleCount].clTagInt = TmpIndex;

      CardTitle[TmpVisibleCount].clTagInt = TmpIndex;

      CardDetail[TmpVisibleCount].clTagInt = TmpIndex;

      CardTitle[TmpVisibleCount].Caption = ' [' + Trim(KayitTur[TmpIndex]) + '] ' + Trim(KayitMakine[TmpIndex]);

      TarihMetni = Trim(KayitPlanlanan[TmpIndex]);

      OzetMetin = 'Tarih: ' + TarihMetni + #13#10 + 'Tip: ' + Trim(KayitTip[TmpIndex]) + #13#10 + 'Durum: ' + Trim(KayitDurum[TmpIndex]);

      

      if (Trim(KayitOperator[TmpIndex]) <> '') { OzetMetin = OzetMetin + #13#10 + 'Operatör: ' + Trim(KayitOperator[TmpIndex]); }

      if (Trim(KayitBaslangic[TmpIndex]) <> '') { OzetMetin = OzetMetin + #13#10 + 'Başlangıç: ' + Trim(KayitBaslangic[TmpIndex]); }

      if (Trim(KayitBitisTur[TmpIndex]) <> '') { OzetMetin = OzetMetin + #13#10 + 'Süre/Bitiş: ' + Trim(KayitBitisTur[TmpIndex]); }

      if (Trim(KayitAciklama[TmpIndex]) <> '') { OzetMetin = OzetMetin + #13#10 + 'Aciklama: ' + Trim(KayitAciklama[TmpIndex]); }

      CardDetail[TmpVisibleCount].Caption = OzetMetin;

      

      CardPanel[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clWhite;

      CardDetail[TmpVisibleCount].clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');

      CardDetail[TmpVisibleCount].clProSettings.FontName = OkunanFontAdi;

      CardDetail[TmpVisibleCount].clProSettings.FontSize = UiFontSize;

      CardTitle[TmpVisibleCount].clProSettings.FontColor = clAlphaColor.clWhite;

      CardTitle[TmpVisibleCount].clProSettings.FontName = OkunanFontAdi;

      CardTitle[TmpVisibleCount].clProSettings.FontSize = UiFontSize + 1;

      KartUyariRenk = '#1E293B';

      if ((Pos('Bekliyor', KayitDurum[TmpIndex]) > 0) || (Pos('Yapilmadi', KayitDurum[TmpIndex]) > 0) || (AktifSekme == 'YAKLASAN'))

      { KartUyariRenk = '#EF4444'; }

      if (AktifSekme == 'TAMAMLANAN') { KartUyariRenk = '#10B981'; }

      CardTitle[TmpVisibleCount].clProSettings.BackgroundColor = clAlphaColor.clHexToColor(KartUyariRenk);

      CardPanel[TmpVisibleCount].clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

      CardTitle[TmpVisibleCount].SetclProSettings(CardTitle[TmpVisibleCount].clProSettings);

      CardDetail[TmpVisibleCount].SetclProSettings(CardDetail[TmpVisibleCount].clProSettings);

      CardPanel[TmpVisibleCount].SetclProSettings(CardPanel[TmpVisibleCount].clProSettings);

    }

  }

  for (TmpIndex = TmpVisibleCount + 1 to 100)

  {

    CardPanel[TmpIndex].Visible = False;

  }

  if (TmpVisibleCount == 0)

  {

    LblEmpty.Visible = True;

    PnlListHost.Height = 40;

    PnlMainCard.Height = 1000;

  }

  else

  {

    LblEmpty.Visible = False;

    PnlListHost.Height = (TmpVisibleCount * 170) + 20;

    PnlMainCard.Height = 650 + PnlListHost.Height;

  }

}

void OnSearchRehber;

var RehberHazir: Boolean;

{

  RehberHazir = False;

  try

    if (RehberJsonData.RecordCount >= 0) { RehberHazir = True; }

  except

    RehberHazir = False;

  }

  if (RehberHazir == False) { 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('MAIN_TEXT');

  SecilenAltMetin = LsvBelgeRehber.clSelectedItemData('SUB_TEXT');

  if (SecilenAnaMetin <> GetText('LST_BOS'))

  {

    if (GlobalLookupType == 'OPERATOR')

    {

      EdtOperator.Text = SecilenAnaMetin;

    }

  }

  FormRehber.Close;

}

void OpenRehber;

var

  q: TClSqlQuery;

  MyJsonStr: String;

  CleanMain: String;

  CleanSub: String;

{

  if (IsDBConnected <> True)

  { 

    ConnectToDatabase; 

  }

  if (IsDBConnected <> True)

  {

    ShowMessage('Veritabani baglantisi kurulamadi!');

    Exit;

  }

  MyJsonStr = '[';

  FormRehber = TclGameForm.Create(Self);

  FormRehber.LytTopBar.Visible = False;

  FormRehber.BtnGoBack.Visible = False;

  FormRehber.BtnFormMenu.Visible = False;

  FormRehber.SetFormColor('#0F172A', '#334155', clGVertical);

  LsvBelgeRehber = FormRehber.AddNewListView(FormRehber, 'LsvBelgeRehber');

  LsvBelgeRehber.Align = alClient;

  LsvBelgeRehber.Margins.Top = 65;

  LsvBelgeRehber.Margins.Left = 15;

  LsvBelgeRehber.Margins.Right = 15;

  LsvBelgeRehber.Margins.Bottom = 15;

  FormRehber.AddNewEvent(LsvBelgeRehber, tbeOnItemClick, 'OnListItemClick');

  EdtRehberArama = FormRehber.AddNewProEdit(FormRehber, '', GetText('ARA_OPERATOR'));

  EdtRehberArama.Align = alTop;

  EdtRehberArama.Margins.Top = 15;

  EdtRehberArama.Margins.Left = 15;

  EdtRehberArama.Margins.Right = 15;

  EdtRehberArama.Height = 42;

  EdtRehberArama.clProSettings.FontSize = 14;

  q = TClSqlQuery.Create(nil);

  try

    try

      q.Connection = Clomosy.DBSQLServerConnection;

      if (GlobalLookupType == 'OPERATOR')

      {

        q.SQL.Text = 'SELECT OPERATOR_KODU AS MAIN_TEXT, ISNULL(OPERATOR_ADI, '''') AS SUB_TEXT FROM [TBLURTOPERATORSB] WITH (NOLOCK) WHERE ISNULL(PASIF, 0) = 0 ORDER BY OPERATOR_KODU';

      }

      q.Open;

      while (not q.Eof)

      {

        if (MyJsonStr <> '[') { MyJsonStr = MyJsonStr + ','; }

        CleanMain = q.FieldByName('MAIN_TEXT').AsString;

        CleanMain = clGetStringReplace(CleanMain, '"', '');

        CleanMain = clGetStringReplace(CleanMain, Chr(13), '');

        CleanMain = clGetStringReplace(CleanMain, Chr(10), '');

        CleanSub = q.FieldByName('SUB_TEXT').AsString;

        CleanSub = clGetStringReplace(CleanSub, '"', '');

        CleanSub = clGetStringReplace(CleanSub, Chr(13), '');

        CleanSub = clGetStringReplace(CleanSub, Chr(10), '');

        MyJsonStr = MyJsonStr + '{"MAIN_TEXT":"' + CleanMain + '", "SUB_TEXT":"' + CleanSub + '"}';

        q.Next;

      }

    except

      ShowMessage('Sorgu hatasi: ' + LastExceptionMessage);

    }

  finally

    q.Close;

    q.Free;

  }

  if (MyJsonStr == '[') { MyJsonStr = '[{"MAIN_TEXT":"' + GetText('LST_BOS') + '", "SUB_TEXT":""}]'; }

  else { MyJsonStr = MyJsonStr + ']'; }

  RehberJsonData = Clomosy.clDataSetFromJSON(MyJsonStr);

  LsvBelgeRehber.clLoadListViewDataFromDataset(RehberJsonData);

  FormRehber.AddNewEvent(EdtRehberArama, tbeOnChange, 'OnSearchRehber');

  FormRehber.Run;

}

void BtnRehberOperatorClick;

{

  GlobalLookupType = 'OPERATOR';

  OpenRehber;

}

void GelismisFormuKapatClick;

{

  FormGelismis.Close;

}

void GelismisFormuUygulaClick;

{

  SecilenOperatorFiltresi = Trim(EdtOperator.Text);

  if (SecilenOperatorFiltresi == '') { SecilenOperatorFiltresi = 'Tumu'; }

  RefreshListe;

  FormGelismis.Close;

}

void OpenGelismisForm;

{

  FormGelismis = TclGameForm.Create(Self);

  FormGelismis.LytTopBar.Visible = False;

  FormGelismis.BtnGoBack.Visible = False;

  FormGelismis.BtnFormMenu.Visible = False;

  FormGelismis.SetFormColor('#1E293B', '#3B82F6', clGVertical);

  PnlGelismisCard = FormGelismis.AddNewProPanel(FormGelismis, 'PnlGelismisCard');

  PnlGelismisCard.Align = alClient;

  PnlGelismisCard.Margins.Top = 15; PnlGelismisCard.Margins.Bottom = 15; PnlGelismisCard.Margins.Left = 15; PnlGelismisCard.Margins.Right = 15;

  PnlGelismisCard.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  PnlGelismisCard.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

  PnlGelismisCard.clProSettings.BorderWidth = 1; PnlGelismisCard.clProSettings.IsFill = True;

  PnlGelismisCard.clProSettings.IsRound = True; PnlGelismisCard.clProSettings.RoundHeight = 12; PnlGelismisCard.clProSettings.RoundWidth = 12;

  PnlGelismisCard.SetclProSettings(PnlGelismisCard.clProSettings);

  LblOperatorTitle = FormGelismis.AddNewProLabel(PnlGelismisCard, 'LblOperatorTitle', 'Gelişmiş Operatör Filtresi');

  LblOperatorTitle.Align = alTop; LblOperatorTitle.Height = 35; LblOperatorTitle.Margins.Left = 15; LblOperatorTitle.Margins.Top = 15;

  LblOperatorTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');

  LblOperatorTitle.clProSettings.FontSize = 16; LblOperatorTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblOperatorTitle.SetclProSettings(LblOperatorTitle.clProSettings);

  GrpOperator = FormGelismis.AddNewProPanel(PnlGelismisCard, 'GrpOperator');

  GrpOperator.Align = alTop; GrpOperator.Height = 58; GrpOperator.Margins.Top = 10; GrpOperator.Margins.Left = 15; GrpOperator.Margins.Right = 15;

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

  GrpOperator.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1'); GrpOperator.clProSettings.BorderWidth = 1;

  GrpOperator.clProSettings.IsFill = True; GrpOperator.clProSettings.IsRound = True;

  GrpOperator.clProSettings.RoundHeight = 8; GrpOperator.clProSettings.RoundWidth = 8;

  GrpOperator.SetclProSettings(GrpOperator.clProSettings);

  LblOperator = FormGelismis.AddNewProLabel(GrpOperator, 'LblOperator', 'Operatör Kodu:');

  LblOperator.Align = alTop; LblOperator.Height = 18; LblOperator.Margins.Left = 10; LblOperator.Margins.Top = 6;

  LblOperator.clProSettings.FontColor = clAlphaColor.clHexToColor('#475569'); LblOperator.clProSettings.FontSize = 12; LblOperator.SetclProSettings(LblOperator.clProSettings);

  EdtOperator = FormGelismis.AddNewEdit(GrpOperator, 'EdtOperator', '');

  EdtOperator.Align = alClient; EdtOperator.Margins.Left = 10; EdtOperator.Margins.Right = 50; EdtOperator.Margins.Bottom = 7; EdtOperator.Margins.Top = 2;

  EdtOperator.ReadOnly = True;

  BtnOperatorRehber = FormGelismis.AddNewProButton(GrpOperator, 'BtnOperatorRehber', '🔍');

  BtnOperatorRehber.Align = alRight; BtnOperatorRehber.Width = 40; BtnOperatorRehber.Margins.Right = 6; BtnOperatorRehber.Margins.Top = 2; BtnOperatorRehber.Margins.Bottom = 6;

  BtnOperatorRehber.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E2E8F0');

  BtnOperatorRehber.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');

  BtnOperatorRehber.clProSettings.IsFill = True; BtnOperatorRehber.clProSettings.IsRound = True;

  BtnOperatorRehber.clProSettings.RoundHeight = 6; BtnOperatorRehber.clProSettings.RoundWidth = 6;

  BtnOperatorRehber.clProSettings.FontSize = 14;

  BtnOperatorRehber.SetclProSettings(BtnOperatorRehber.clProSettings);

  FormGelismis.AddNewEvent(BtnOperatorRehber, tbeOnClick, 'BtnRehberOperatorClick');

  BtnGelismisUygula = FormGelismis.AddNewProButton(PnlGelismisCard, 'BtnGelismisUygula', 'Filtreyi Uygula');

  BtnGelismisUygula.Align = alTop; BtnGelismisUygula.Height = 40; BtnGelismisUygula.Margins.Top = 20; BtnGelismisUygula.Margins.Left = 15; BtnGelismisUygula.Margins.Right = 15;

  BtnGelismisUygula.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0284C7');

  BtnGelismisUygula.clProSettings.FontColor = clAlphaColor.clWhite; BtnGelismisUygula.clProSettings.IsFill = True;

  BtnGelismisUygula.clProSettings.IsRound = True; BtnGelismisUygula.clProSettings.RoundHeight = 8; BtnGelismisUygula.clProSettings.RoundWidth = 8;

  BtnGelismisUygula.SetclProSettings(BtnGelismisUygula.clProSettings);

  FormGelismis.AddNewEvent(BtnGelismisUygula, tbeOnClick, 'GelismisFormuUygulaClick');

  BtnGelismisKapat = FormGelismis.AddNewProButton(PnlGelismisCard, 'BtnGelismisKapat', 'Kapat');

  BtnGelismisKapat.Align = alTop; BtnGelismisKapat.Height = 35; BtnGelismisKapat.Margins.Top = 8; BtnGelismisKapat.Margins.Left = 15; BtnGelismisKapat.Margins.Right = 15;

  BtnGelismisKapat.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BtnGelismisKapat.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155');

  BtnGelismisKapat.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1'); BtnGelismisKapat.clProSettings.BorderWidth = 1;

  BtnGelismisKapat.clProSettings.IsFill = True; BtnGelismisKapat.clProSettings.IsRound = True;

  BtnGelismisKapat.clProSettings.RoundHeight = 8; BtnGelismisKapat.clProSettings.RoundWidth = 8;

  BtnGelismisKapat.SetclProSettings(BtnGelismisKapat.clProSettings);

  FormGelismis.AddNewEvent(BtnGelismisKapat, tbeOnClick, 'GelismisFormuKapatClick');

  FormGelismis.Run;

}

void ToggleDetailPanel(Goster: Boolean);

var i: Integer;

{

  PnlDetailOverlay.Visible = Goster;

  if (Goster == True) { ScrollForm.Visible = False; }

  else { ScrollForm.Visible = True; }

  for (i = 0 to 11)

  {

    if (i == 5) { DetPnl[5].Visible = False; DetPnl[5].Height = 0; }

    else if (i == 10)

    {

      if (Goster == True)

      {

        if (Trim(KayitTur[ActiveEditIndex]) == 'Ariza')

        { DetPnl[10].Visible = True; DetPnl[10].Height = 120; }

        else

        { DetPnl[10].Visible = False; DetPnl[10].Height = 0; }

      }

      else

      { DetPnl[10].Visible = False; DetPnl[10].Height = 0; }

    }

  }

}

void ShowDetailPanel;

var TurMetni: String;

{

  TurMetni = Trim(KayitTur[ActiveEditIndex]);

  if ((TurMetni == 'Bakim') || (TurMetni == 'Bakım') || (Pos('Bakim', TurMetni) > 0) || (Pos('Periyodik', TurMetni) > 0))

  {

    LblDetailTitle.Text = 'Bakim Hareketleri Detayi';

    if (DetLbl[4] <> nil) { DetLbl[4].Text = 'Bakim Kodu:'; }

  }

  else

  {

    LblDetailTitle.Text = 'Ariza Hareketleri Detayi';

    if (DetLbl[4] <> nil) { DetLbl[4].Text = 'Ariza Kodu:'; }

  }

  DetEdt[0].Text = KayitBelgeNo[ActiveEditIndex];

  DetEdt[1].Text = KayitPlanlanan[ActiveEditIndex];

  DetEdt[2].Text = KayitMakine[ActiveEditIndex];

  DetEdt[3].Text = KayitOperator[ActiveEditIndex];

  DetEdt[4].Text = KayitTip[ActiveEditIndex];

  DetEdt[6].Text = KayitBaslangic[ActiveEditIndex];

  DetEdt[7].Text = KayitBitisTur[ActiveEditIndex];

  DetEdt[8].Text = KayitKisi[ActiveEditIndex];

  DetEdt[9].Text = KayitAciklama[ActiveEditIndex];

  DetMemoNeden.Text = KayitNeden[ActiveEditIndex];

  DetEdt[11].Text = KayitDurum[ActiveEditIndex];

  ToggleDetailPanel(True);

}

void OnCardLabelClicked;

var ClickedLabel: TclProLabel;

{

  ClickedLabel = TclProLabel(FormFiltre.clSender);

  ActiveEditIndex = ClickedLabel.clTagInt;

  ShowDetailPanel;

}

void OnCardPanelClicked;

var ClickedPanel: TclProPanel;

{

  ClickedPanel = TclProPanel(FormFiltre.clSender);

  ActiveEditIndex = ClickedPanel.clTagInt;

  ShowDetailPanel;

}

void TabClick;

var ClickedBtn: TclProButton;

{

  ClickedBtn = TclProButton(FormFiltre.clSender);

  if (ClickedBtn.clTagInt == 1) { AktifSekme = 'YAKLASAN'; }

  else if (ClickedBtn.clTagInt == 2) { AktifSekme = 'BEKLEYEN'; }

  else if (ClickedBtn.clTagInt == 3) { AktifSekme = 'TAMAMLANAN'; }

  RefreshListe;

}

void SaveEditClick;

var

  DosyaYolu, Satir: String;

  YeniListe: TclStringList;

  i: Integer;

{

  KayitBelgeNo[ActiveEditIndex] = TemizleMetin(DetEdt[0].Text);

  KayitPlanlanan[ActiveEditIndex] = TemizleMetin(DetEdt[1].Text);

  KayitMakine[ActiveEditIndex] = TemizleMetin(DetEdt[2].Text);

  KayitOperator[ActiveEditIndex] = TemizleMetin(DetEdt[3].Text);

  KayitTip[ActiveEditIndex] = TemizleMetin(DetEdt[4].Text);

  KayitBaslangic[ActiveEditIndex] = TemizleMetin(DetEdt[6].Text);

  KayitBitisTur[ActiveEditIndex] = TemizleMetin(DetEdt[7].Text);

  KayitKisi[ActiveEditIndex] = TemizleMetin(DetEdt[8].Text);

  KayitAciklama[ActiveEditIndex] = TemizleMetin(DetEdt[9].Text);

  KayitNeden[ActiveEditIndex] = TemizleMetin(DetMemoNeden.Text);

  KayitDurum[ActiveEditIndex] = TemizleMetin(DetEdt[11].Text);

  YeniListe = Clomosy.StringListNew;

  i = KayitCount - 1;

  while (i >= 0)

  {

    Satir = KayitTur + '|' + KayitBelgeNo + '|' + KayitMakine + '|' + KayitTip + '|' +