Clomosy | Forum : Ekranda sadece yeşil arka plan görünüyor, veri gör https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 11:25:16 +0000 Tue, 05 Aug 2025 17:08:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1164 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Ekranda sadece yeşil arka plan görünüyor, veri gör : var MyForm : TclForm; plist: TClProListView;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1164&PID=2461#2461 Yazar: semihberkanokutan
Konu: 1164
Gönderim Zamanı: 05 Ağustos 2025 Saat 17:08

var 
  MyForm : TclForm;
  plist: TClProListView;
  dlist: TClProListViewDesignerPanel;
  title, isim : TClProLabel;

void Create {
  plist = MyForm.AddNewProListView(MyForm, 'plist');
  plist.Align = alClient;
  plist.margins.bottom = 5;
  plist.margins.top = 5;
  plist.margins.left = 5;
  plist.margins.right = 5;
  plist.clProSettings.FontColor = clAlphaColor.clHexToColor('#F5F5F5');
  plist.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3cb187');
  plist.clProSettings.IsRound = True;
  plist.clProSettings.ViewType = lvList;
  plist.clProSettings.ItemWidth = 100;
  plist.clProSettings.ItemHeight = 100;
  plist.clProSettings.ColCount = 2;
  plist.clProSettings.ItemSpace = 10;
  plist.SetclProSettings(plist.clProSettings);
}

void dCreate {
  dlist = MyForm.AddNewProListViewDesignerPanel(plist, 'dlist');
  dlist.clProSettings.IsRound = True;
  dlist.clProSettings.RoundHeight = 20;
  dlist.clProSettings.RoundWidth = 20;
  dlist.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f5f5f5');
  dlist.SetclProSettings(dlist.clProSettings);
  plist.SetDesignerPanel(dlist);
}

void datadesign {
  title = MyForm.AddNewProLabel(dlist, 'title', 'test');
  title.Align = AlTop;
  title.Height = 40;
  title.clProSettings.TextSettings.Font.Style = fsBold;
  title.clProSettings.FontSize = 20;
  title.clProSettings.FontColor = clAlphaColor.clHexToColor('#3cb187');
  title.SetclProSettings(title.clProSettings);
  dlist.AddPanelObject(title, cltext);

  isim = MyForm.AddNewProLabel(dlist, 'isim', 'ts');
  isim.Align = AlTop;
  isim.Height = 40;
  isim.clProSettings.FontSize = 18;
  isim.clProSettings.FontColor = clAlphaColor.clHexToColor('#3cb187');
  isim.SetclProSettings(isim.clProSettings);
  dlist.AddPanelObject(isim, cltext2);
}

void data {
  plist.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[ 
    {"title" : "Phone 1", "isim" : "d"},
    {"title" : "Phone 2", "isim" : "c"},
    {"title" : "Phone 3", "isim" : "b"},
    {"title" : "Phone 4", "isim" : "a"}
  ]'));
}

{
  MyForm = TclForm.Create(self);
  Create;
  dCreate;
  datadesign;
  data;
  MyForm.Run;
}

Bu şekilde düzenledim deneyebilirsin.
Ayrıca bazen #FFFFFF renk kodu çalışmayabiliyor. Onun yerine #F5F5F5 gibi renkler verirsen daha iyi olur.
İyi çalışmalar.
]]> Tue, 05 Aug 2025 17:08:33 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1164&PID=2461#2461 <![CDATA[Ekranda sadece yeşil arka plan görünüyor, veri gör : Var Main_Page_Form : TclForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1164&PID=2460#2460 Yazar: Ahmet_27
Konu: 1164
Gönderim Zamanı: 05 Ağustos 2025 Saat 16:20

Var  
  Main_Page_Form : TclForm;
  
  AppBar_ProPanel, Footer_ProPanel  : TclProPanel;
  
  Main_Page_ProButton, Profil_ProButton : TClProButton;  
  
  Flow_ListView : TClProListView;
  
  DesignerPanel1 : TClProListViewDesignerPanel;
  
  haber_baslik, haber_icerik  : TClProLabel;
  
  haber_Img : TclProImage;
  
  Myhttp : TclHttp;
  
  jsonResult : String;
  
  

void getClick;
{
  jsonResult = Myhttp.GetRequest('https://newsapi.org/v2/top-headlines?country=tr&category=general&apiKey=4c3254a99037421aa0655a048fac1f19');
    
  
  ShowMessage('API Yanıtı: ' + jsonResult);
}
  
  
  
  
  
  
  void CreateDesignerPanel
  {
  DesignerPanel1 = Main_Page_Form.AddNewProListViewDesignerPanel(Flow_ListView, 'DesignerPanel1');
  

  DesignerPanel1.Height = 580; 
  DesignerPanel1.Width = 380;  
  
  DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');
  
  DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#AA0E0E');
  
  DesignerPanel1.clProSettings.BorderWidth = 2;
  
  DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings);
  
  Flow_ListView.SetDesignerPanel(DesignerPanel1);
  }
  
  
  

  
  
  void CreateData;
{
  haber_baslik = Main_Page_Form.AddNewProLabel(DesignerPanel1, 'haber_baslik', 'test');
  
  haber_baslik.clProSettings.FontSize = 24;
  haber_baslik.clProSettings.TextSettings.Font.Style = [fsBold];
  haber_baslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  

  haber_baslik.Margins.Top = 5;
  haber_baslik.Margins.Left = 5;
  haber_baslik.Margins.Right = 5;  

  
  haber_baslik.Width = DesignerPanel1.Width - (haber_baslik.Margins.Left + haber_baslik.Margins.Right);
  haber_baslik.Align = alTop; 
  
  haber_baslik.clProSettings.WordWrap = True;
  haber_baslik.clProSettings.AutoSize = True; 
  
  haber_baslik.SetclProSettings(haber_baslik.clProSettings);
  
  DesignerPanel1.AddPanelObject(haber_baslik, clCaption);
  

  
  haber_Img = Main_Page_Form.AddNewProImage(DesignerPanel1, 'haber_Img');
  haber_Img.Align = alTop; 
  
  haber_Img.Margins.Bottom = 10;
  haber_Img.Margins.Left = 5; 
  haber_Img.Margins.Right = 5; 
  
  haber_Img.Height = 500;
  haber_Img.Width = 500;
  

  haber_Img.Width = DesignerPanel1.Width - (haber_Img.Margins.Left + haber_Img.Margins.Right);

  
  haber_Img.clProSettings.PictureAutoFit = True;  
  haber_Img.clProSettings.PictureStretch = True; 
  
  haber_Img.SetclProSettings(haber_Img.clProSettings);
  
  DesignerPanel1.AddPanelObject(haber_Img, clImage1);
  
}
  
  
  void AddDataToListView
  {
    Flow_ListView.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[
    
    {"haber_baslik" : "Orduda fındık toplama işçi ücreti bin 200 lira olarak belirlendi",
    "haber_Img" : "https://img.piri.net/piri/upload/3/2025/7/17/a8acf217-p0802dcjteasdz2lt3uk1l.jpeg"},
    
    
    {"haber_baslik" : "İzmirde günlerdir suları kesik olan mahalle sakinleri kalıcı çözüm bekliyor",
    "haber_Img" : "https://img.piri.net/piri/upload/3/2025/7/17/87c4e0d3-dpcys46bz7wuskvos12xg.jpeg"},
    

    {"haber_baslik" : "Tarım işçilerini taşıyan minibüs şarampole yuvarlandı: 2si ağır 17 yaralı", 
    "haber_Img" : "https://img.piri.net/piri/upload/3/2025/7/17/aa57403d-n0p368vmi3as58a98e497.jpeg"}
    ]'));
  }
  
  
  
  
  
  
  
  
  
  
  

{
  Main_Page_Form=TclForm.Create(self);
  
  Main_Page_Form.SetFormColor('#000000', '#000000', clGVertical);
  
  //APPBAR
  
  AppBar_ProPanel=Main_Page_Form.AddNewProPanel(Main_Page_Form,'AppBar_ProPanel');
  
  AppBar_ProPanel.Align = alTop;
  
  AppBar_ProPanel.Height = 40;
  
// AppBar_ProPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
  
  AppBar_ProPanel.clProSettings.BackgroundColor = clAlphaColor.clHextoColor('#e90707');

//  AppBar_ProPanel.clProSettings.RoundHeight = 10;

//  AppBar_ProPanel.clProSettings.RoundWidth = 10;

//  AppBar_ProPanel.clProSettings.BorderWidth = 2;
  
//  AppBar_ProPanel.clProSettings.IsFill = True;  
  
//AppBar_ProPanel.clProSettings.IsRound = True;
  
  AppBar_ProPanel.SetclProSettings(AppBar_ProPanel.clProSettings);
  
  
  
  
  
  // Footer
  
  Footer_ProPanel = Main_Page_Form.AddNewProPanel(Main_Page_Form,'Footer_ProPanel');
  
  Footer_ProPanel.Align = alBottom;
  
  Footer_ProPanel.Height = 55;  
  
  Footer_ProPanel.clProSettings.BackgroundColor = clAlphaColor.clHextoColor('#e90707');
  
  Footer_ProPanel.SetclProSettings(Footer_ProPanel.clProSettings);
  

  
  
  // Ana Sayfa Butonu

  Main_Page_ProButton = Main_Page_Form.AddNewProButton(Footer_ProPanel, 'Main_Page_ProButton', 'Ana Sayfa');

  Main_Page_ProButton.Align = alLeft;
  
  Main_Page_ProButton.clProSettings.FontColor = clAlphaColor.clHextoColor('#FFFFFF');
  
  Main_Page_ProButton.clProSettings.FontSize = 18;

  Main_Page_ProButton.SetClProSettings(Main_Page_ProButton.clProSettings);
  
  
  // Profil Butonu
  
  Profil_ProButton = Main_Page_Form.AddNewProButton(Footer_ProPanel, 'Profil_ProButton', 'Profil');

  Profil_ProButton.Align = alRight;
  
  Profil_ProButton.clProSettings.FontColor = clAlphaColor.clHextoColor('#FFFFFF');
  
  Profil_ProButton.clProSettings.FontSize = 18;

  Profil_ProButton.SetClProSettings(Profil_ProButton.clProSettings);
  
  

  
  // Haber Akışı İçin Listview
  
  Flow_ListView = Main_Page_Form.AddNewProListView(Main_Page_Form,'Flow_ListView');

  Flow_ListView.Align = AlClient;
  
  Flow_ListView.clProSettings.ViewType = lvIcon;
  
  Flow_ListView.clProSettings.ColCount = 1;  // tek sütun yani her satırda tek öge 2 sütun olsa 2 öge olur.
  
  Flow_ListView.clProSettings.ItemSpace = 5;
  
//  Flow_ListView.Margins.Bottom = 1;
//  Flow_ListView.Margins.Top = 1;
//  Flow_ListView.Margins.Right = 1;
//  Flow_ListView.Margins.Left = 1;
  
 // Flow_ListView.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');
  
 // Flow_ListView.clProSettings.BorderColor = clAlphaColor.clHexToColor('#f6041c');
  
//  Flow_ListView.clProSettings.BorderWidth = 5;
  
//  Flow_ListView.clProSettings.RoundHeight = 5;
  
//  Flow_ListView.clProSettings.RoundWidth = 5;
  
  
  Flow_ListView.clProSettings.ItemHeight = 700; // her bir öğenin boyutu
//  Flow_ListView.clProSettings.ItemSpace = 10;


  CreateDesignerPanel;
  CreateData;
  AddDataToListView;

  
  
  Flow_ListView.SetclProSettings(Flow_ListView.clProSettings);
  
  
  
  Myhttp = TclHttp.Create(Nil);
  
  getClick();
  
  Main_Page_Form.Run;
  
}

kodundaki sorunu çözmeye çalıştım ama çözemedim. Bu kodu inceleyebilirsin umarım yardımcı olur. Listview yapısı var ve çalışıyor.
]]> Tue, 05 Aug 2025 16:20:22 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1164&PID=2460#2460 <![CDATA[Ekranda sadece yeşil arka plan görünüyor, veri gör : Merhaba, Clomosy ile bir TClProListView...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1164&PID=2458#2458 Yazar: mikelo
Konu: 1164
Gönderim Zamanı: 05 Ağustos 2025 Saat 15:54

Merhaba,

Clomosy ile bir TClProListView bileşeni oluşturmaya çalışıyorum. Kodumda herhangi bir derleme hatası yok, form düzgün bir şekilde çalışıyor gibi görünüyor. Ancak ekran açıldığında yalnızca yeşil bir arka plan gözüküyor. Hiçbir veri ya da label görünmüyor.
Kullandığım kodun sadeleştirilmiş hali şu şekilde:

var 

MyForm :TclForm;

plist:TClProListView ;

dlist:TClProListViewDesignerPanel;

title,isim : TClProLabel;


void Create

{

  plist=MyForm.AddNewProListView(MyForm, 'plist');

  plist.align = alClient;

  plist.margins.bottom=5;

  plist.margins.top=5;

  plist.margins.left=5;

  plist.margins.right=5;

  plist.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

  plist.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3cb187');

  plist.clProSettings.IsRound = True; 

  plist.clProSettings.ViewType =lvlist;

  plist.clProSettings.ItemWidth = 100;

  plist.clProSettings.ItemHeight = 100;

  plist.clProSettings.ColCount = 2;

  plist.clProSettings.ItemSpace = 10;

  plist.SetclProSettings(plist.clProSettings);

  }

  

  void  dCreate 

  {

    dlist=MyForm.AddNewProListViewDesignerPanel(plist, 'dlist');

    dlist.clProSettings.IsRound = True; 

    dlist.clProSettings.RoundHeight = 20;

    dlist.clProSettings.RoundWidth = 20;

    dlist.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

    dlist.SetclProSettings(dlist.clProSettings);

    //plist.SetDesignerPanel(dlist);

    

  }

  

  void datadesign

  { 

  title =MyForm.AddNewProLabel(dlist, 'title', 'test');

  title.clProSettings.TextSettings.Font.Style = fsBold;

  title.clProSettings.FontSize = 30;

  title.clProSettings.FontColor=clAlphaColor.clHexToColor('#3cb187');

  title.SetclProSettings(title.clProSettings);

 

  

  

  isim =MyForm.AddNewProLabel(dlist,'isim','ts');

  isim.clProSettings.FontSize = 30;

  isim.clProSettings.FontColor=clAlphaColor.clHexToColor('#3cb187');

  isim.SetclProSettings(isim.clProSettings);

  

  }

  

  void data 

  {

  plist.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[

  {"title" : "Phone 1", "isim" : "d"},

  {"title" : "Phone 2", "isim" : "c"},

  {"title" : "Phone 3", "isim" : "b"},

  {"title" : "Phone 4", "isim" : "a"}

  ]'));

  }

  


{

  MyForm=TclForm.Create(self);

  Create;

  dCreate;

  datadesign;

  data;

  MyForm.Run;

}

]]> Tue, 05 Aug 2025 15:54:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1164&PID=2458#2458