![]() |
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 ![]() |
Yazar | |
mikelo ![]() Yeni Üye ![]() Kayıt Tarihi: 9 Saat 22 Dakika Önce Durum: Aktif Değil Puanlar: 2 |
![]() ![]() ![]() ![]() ![]() Gönderim Zamanı: 9 Saat 15 Dakika Önce Saat 15:54 |
Merhaba, Clomosy ile bir 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; } |
|
![]() |
|
Ahmet_27 ![]() Deneyimli Üye ![]() Kayıt Tarihi: 16 Temmuz 2025 Durum: Aktif Değil Puanlar: 56 |
![]() ![]() ![]() ![]() ![]() |
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_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. |
|
![]() |
|
semihberkanokutan ![]() Yeni Üye ![]() ![]() Kayıt Tarihi: 31 Temmuz 2024 Konum: Konya Durum: Aktif Değil Puanlar: 26 |
![]() Yanıt Yaz
Alıntı semihberkanokutan
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() |
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. |
|
![]() |
Yanıt Yaz ![]() |
|
Tweet |
Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |