Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Ekranda sadece yeşil arka plan görünüyor, veri gör
  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.

Ekranda sadece yeşil arka plan görünüyor, veri gör

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


Kayıt Tarihi: 9 Saat 21 Dakika Önce
Durum: Aktif Değil
Puanlar: 2
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı mikelo Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Ekranda sadece yeşil arka plan görünüyor, veri gör
    Gönderim Zamanı: 9 Saat 14 Dakika Önce 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;

}

Yukarı Dön
Ahmet_27 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 16 Temmuz 2025
Durum: Aktif Değil
Puanlar: 56
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı Ahmet_27 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 48 Dakika Önce 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;
{
    
  
  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_baslik" : "İzmirde günlerdir suları kesik olan mahalle sakinleri kalıcı çözüm bekliyor",
    

    {"haber_baslik" : "Tarım işçilerini taşıyan minibüs şarampole yuvarlandı: 2si ağır 17 yaralı", 
    ]'));
  }
  
  
  
  
  
  
  
  
  
  
  

{
  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.
Yukarı Dön
semihberkanokutan Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 31 Temmuz 2024
Konum: Konya
Durum: Aktif Değil
Puanlar: 26
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı semihberkanokutan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 7 Saat 60 Dakika Önce 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.
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,031 Saniyede Yüklendi.