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;

}