Genel İşlemler - pnl problemi

Sayfayı Yazdır | Pencereyi Kapat

pnl problemi

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

Konu: pnl problemi

Mesajı Yazan: nuray
Konu: pnl problemi
Mesaj Tarihi: 13 Ağustos 2026 Saat 15:48

var

HareketForm: TCLForm;

AnaScrollBox: TclVertScrollBox;

TitleLabel: TCLabel;

// Butonlar

BtnCariAra: TclProButton;

BtnIslemHareketleri: TclProButton;

// Kar/Zarar Paneli

PnlKarZarar: TclProPanel;

LblKarZararBaslik, LblKarZararDeger: TCLabel;

// Ödeme Alınacaklar (Alacaklar) Paneli ve PRO Listesi

PnlAlacaklar: TclProPanel;

LblAlacaklarBaslik: TCLabel;

LsvAlacaklar: TClProListView;

DPAlacaklar: TClProListViewDesignerPanel;

PnlAlacakIcerik: TclProPanel; // ---> İçerik Paneli eklendi <---

LblAlacakD1, LblAlacakD2, LblAlacakD3: TclProLabel;

// Ödeme Yapılacaklar (Borçlar) Paneli ve PRO Listesi

PnlBorclar: TclProPanel;

LblBorclarBaslik: TCLabel;

LsvBorclar: TClProListView;

DPBorclar: TClProListViewDesignerPanel;

PnlBorcIcerik: TclProPanel; // ---> İçerik Paneli eklendi <---

LblBorcD1, LblBorcD2, LblBorcD3: TclProLabel;

// --- YÖNLENDİRME FONKSİYONLARI ---

void goToCariler;

{

Clomosy.RunUnit('uCariler');

}

void goToIslemHareketleri;

{

Clomosy.RunUnit('uIslemHareketleri');

}

// --- LİSTEYE TIKLANDIĞINDA ÇALIŞACAK SHOWMESSAGE FONKSİYONLARI ---

void OnAlacakClick;

var

SecilenKisi, Tutar: String;

{

SecilenKisi = LsvAlacaklar.clSelectedItemData('AlacakMainText');

Tutar = LsvAlacaklar.clSelectedItemData('AlacakSideText');

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

}

void OnBorcClick;

var

SecilenKisi, Tutar: String;

{

SecilenKisi = LsvBorclar.clSelectedItemData('BorcMainText');

Tutar = LsvBorclar.clSelectedItemData('BorcSideText');

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

}

// --- ANA EKRAN TASARIMI VE YÜKLEMESİ ---

{

HareketForm = TCLForm.Create(Self);

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

// --- DİKEY KAYDIRMA KUTUSU ---

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

AnaScrollBox.Align = alClient;

// --- BAŞLIK ---

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;

// --- 1. BUTON: CARİ ARAMA ---

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');

// --- 2. BUTON: İŞLEM HAREKETLERİ ---

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');

// --- KAR / ZARAR KARTI ---

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 LİSTESİ ---

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

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;

LsvAlacaklar.clProSettings.ViewType = lvList;

LsvAlacaklar.clProSettings.ColCount = 1;

LsvAlacaklar.clProSettings.ItemHeight = 80;

LsvAlacaklar.clProSettings.ItemSpace = 8;

LsvAlacaklar.SetclProSettings(LsvAlacaklar.clProSettings);

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

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

DPAlacaklar.Align = alMostTop;

DPAlacaklar.Height = 80;

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

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

DPAlacaklar.clProSettings.BorderWidth = 1;

DPAlacaklar.clProSettings.IsRound = True;

DPAlacaklar.clProSettings.RoundHeight = 8;

DPAlacaklar.clProSettings.RoundWidth = 8;

DPAlacaklar.SetclProSettings(DPAlacaklar.clProSettings);

// --- ALACAK İÇ PANELİ (Hata Çözen Kısım) ---

PnlAlacakIcerik = HareketForm.AddNewProPanel(DPAlacaklar, 'PnlAlacakIcerik');

PnlAlacakIcerik.Align = alClient;

PnlAlacakIcerik.Margins.Left = 10;

PnlAlacakIcerik.Margins.Right = 10;

PnlAlacakIcerik.Margins.Top = 5;

PnlAlacakIcerik.Margins.Bottom = 5;

PnlAlacakIcerik.clProSettings.IsFill = False;

PnlAlacakIcerik.SetclProSettings(PnlAlacakIcerik.clProSettings);

// Tutar Sağda

LblAlacakD3 = HareketForm.AddNewProLabel(PnlAlacakIcerik, 'AlacakSideText', '');

LblAlacakD3.Align = alRight;

LblAlacakD3.Width = 100;

LblAlacakD3.Margins.Right = 5;

LblAlacakD3.Margins.Top = 20;

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

LblAlacakD3.clProSettings.FontSize = 15;

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

LblAlacakD3.SetclProSettings(LblAlacakD3.clProSettings);

// İsim Üstte

LblAlacakD1 = HareketForm.AddNewProLabel(PnlAlacakIcerik, 'AlacakMainText', '');

LblAlacakD1.Align = alTop;

LblAlacakD1.Height = 25;

LblAlacakD1.Margins.Left = 5;

LblAlacakD1.Margins.Top = 10;

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

LblAlacakD1.clProSettings.FontSize = 16;

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

LblAlacakD1.SetclProSettings(LblAlacakD1.clProSettings);

// Açıklama Altta

LblAlacakD2 = HareketForm.AddNewProLabel(PnlAlacakIcerik, 'AlacakSubText', '');

LblAlacakD2.Align = alTop;

LblAlacakD2.Height = 20;

LblAlacakD2.Margins.Left = 5;

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

LblAlacakD2.clProSettings.FontSize = 12;

LblAlacakD2.SetclProSettings(LblAlacakD2.clProSettings);

DPAlacaklar.AddPanelObject(LblAlacakD3, clText1);

DPAlacaklar.AddPanelObject(LblAlacakD1, clCaption);

DPAlacaklar.AddPanelObject(LblAlacakD2, clText);

LsvAlacaklar.SetDesignerPanel(DPAlacaklar);

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 LİSTESİ ---

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

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;

LsvBorclar.clProSettings.ViewType = lvList;

LsvBorclar.clProSettings.ColCount = 1;

LsvBorclar.clProSettings.ItemHeight = 80;

LsvBorclar.clProSettings.ItemSpace = 8;

LsvBorclar.SetclProSettings(LsvBorclar.clProSettings);

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

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

DPBorclar.Align = alMostTop;

DPBorclar.Height = 80;

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

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

DPBorclar.clProSettings.BorderWidth = 1;

DPBorclar.clProSettings.IsRound = True;

DPBorclar.clProSettings.RoundHeight = 8;

DPBorclar.clProSettings.RoundWidth = 8;

DPBorclar.SetclProSettings(DPBorclar.clProSettings);

// --- BORÇ İÇ PANELİ ---

PnlBorcIcerik = HareketForm.AddNewProPanel(DPBorclar, 'PnlBorcIcerik');

PnlBorcIcerik.Align = alClient;

PnlBorcIcerik.Margins.Left = 10;

PnlBorcIcerik.Margins.Right = 10;

PnlBorcIcerik.Margins.Top = 5;

PnlBorcIcerik.Margins.Bottom = 5;

PnlBorcIcerik.clProSettings.IsFill = False;

PnlBorcIcerik.SetclProSettings(PnlBorcIcerik.clProSettings);

// Tutar Sağda

LblBorcD3 = HareketForm.AddNewProLabel(PnlBorcIcerik, 'BorcSideText', '');

LblBorcD3.Align = alRight;

LblBorcD3.Width = 100;

LblBorcD3.Margins.Right = 5;

LblBorcD3.Margins.Top = 20;

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

LblBorcD3.clProSettings.FontSize = 15;

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

LblBorcD3.SetclProSettings(LblBorcD3.clProSettings);

// İsim Üstte

LblBorcD1 = HareketForm.AddNewProLabel(PnlBorcIcerik, 'BorcMainText', '');

LblBorcD1.Align = alTop;

LblBorcD1.Height = 25;

LblBorcD1.Margins.Left = 5;

LblBorcD1.Margins.Top = 10;

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

LblBorcD1.clProSettings.FontSize = 16;

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

LblBorcD1.SetclProSettings(LblBorcD1.clProSettings);

// Açıklama Altta

LblBorcD2 = HareketForm.AddNewProLabel(PnlBorcIcerik, 'BorcSubText', '');

LblBorcD2.Align = alTop;

LblBorcD2.Height = 20;

LblBorcD2.Margins.Left = 5;

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

LblBorcD2.clProSettings.FontSize = 12;

LblBorcD2.SetclProSettings(LblBorcD2.clProSettings);

DPBorclar.AddPanelObject(LblBorcD3, clText1);

DPBorclar.AddPanelObject(LblBorcD1, clCaption);

DPBorclar.AddPanelObject(LblBorcD2, clText);

LsvBorclar.SetDesignerPanel(DPBorclar);

LsvBorclar.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

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

]'));

HareketForm.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 13 Ağustos 2026 Saat 16:40

Merhaba Nuray

İlgili kodu inceler misin
Temel farklılıklar
ListViewDesignerPanel da var

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;

}