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

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

pnl problemi
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
nuray Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: Dün
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı nuray Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: pnl problemi
    Gönderim Zamanı: 3 Saat 31 Dakika Önce 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" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 1016 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 39 Dakika Önce 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;
}
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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

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

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

Bu Sayfa 0,039 Saniyede Yüklendi.