Aşağıdaki kodu inceler misin:

Tabbi ki. Aşağıda Veri Listeleme Unit'indeki tüm kodları ekledim.

var

uVeriListeleme: TCLForm;

uProfilSayfasi, uVeriAnalizi, uVeriEkleme: TclUnit;

panel: TclProPanel;

btn1, btn2, btn3, btn4 : TClProButton;

designerPanel : TClListViewDesignerPanel;

isim,kategori,fiyat,parabirimi : TClProLabel;

listview : TClProListView;

searchEdit : TClProSearchEdit;

void Search;

{

  searchEdit = uVeriListeleme.AddNewProSearchEdit(uVeriListeleme, 'searchEdit', 'Ürün Ara');

  searchEdit.Align = alTop;

  searchEdit.Margins.Top = 15;

  searchEdit.Margins.Left = 5;

  searchEdit.Margins.Right = 5;

  searchEdit.Margins.Bottom = 10;

  searchEdit.Height = 40;

}

 void CreateListView;

{

  listView = uVeriListeleme.AddNewProListView(uVeriListeleme,'listView');

  listView.clProSettings.ItemSpace = 10;     

  listView.clProSettings.IsFill = True;

  listView.Height = uVeriListeleme.clheight*95/100;

  listView.clProSettings.IsRound = True;

  listView.Align=alBottom;

  listView.clProSettings.RoundHeight = 5;

  listView.clProSettings.RoundWidth = 5;

  listView.clProSettings.BorderColor =clAlphaColor.clHexToColor('#88c394');

  listView.clProSettings.BorderWidth = 2;

  listView.clProSettings.ItemHeight = 705;

  listView.clProSettings.ColCount = 1;

  listView.SetclProSettings(listView.clProSettings);

  

  searchEdit.TargetListView = ListView;

  

}

void CreateDesignerPanel;

{

  designerPanel = uVeriListeleme.AddNewProListViewDesignerPanel(listView, 'designerPanel');

  

  clComponent.SetupComponent(designerPanel, 

  '{"Height":5,

    "BackgroundColor":"#e2deed",

    "RoundHeight":20,

    "RoundWidth":20}');

    listView.SetDesignerPanel(designerPanel);

}

void CreateData;

{

  isim=uVeriListeleme.AddNewProLabel(designerPanel, 'isim', 'isim');

  isim.clProSettings.FontVertAlign = palLeading;

  isim.Align=alTop;

  isim.Margins.Top=5;

  isim.Margins.Left=5;

  isim.clProSettings.AutoSize=True;

  isim.clProSettings.WordWrap=True;

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

  isim.SetclProSettings(isim.clProSettings);

  DesignerPanel.AddPanelObject(isim, clCaption);

  

  

  kategori=uVeriListeleme.AddNewProLabel(designerPanel, 'kategori', 'kategori');

  kategori.clProSettings.FontVertAlign = palLeading;

  kategori.Align=alTop;

  kategori.Margins.Top=5;

  kategori.Margins.Left=5;

  kategori.clProSettings.AutoSize=True;

  kategori.clProSettings.WordWrap=True;

  kategori.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');

  kategori.SetclProSettings(kategori.clProSettings);

  DesignerPanel.AddPanelObject(kategori, clText);

  

  

  fiyat=uVeriListeleme.AddNewProLabel(designerPanel, 'fiyat', 'fiyat');

  fiyat.clProSettings.FontVertAlign = palLeading;

  fiyat.Align=alTop;

  fiyat.Margins.Top=5;

  fiyat.Margins.Left=5;

  fiyat.clProSettings.AutoSize=True;

  fiyat.clProSettings.WordWrap=True;

  fiyat.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');

  fiyat.SetclProSettings(fiyat.clProSettings);

  DesignerPanel.AddPanelObject(fiyat, clText);

  

  

  

  parabirimi=uVeriListeleme.AddNewProLabel(designerPanel, 'parabirimi', 'parabirimi');

  parabirimi.clProSettings.FontVertAlign = palLeading;

  parabirimi.Align=alTop;

  parabirimi.Margins.Top=5;

  parabirimi.Margins.Left=5;

  parabirimi.clProSettings.AutoSize=True;

  parabirimi.clProSettings.WordWrap=True;

  parabirimi.clProSettings.FontColor =clAlphaColor.clHexToColor('#000000');

  parabirimi.SetclProSettings(parabirimi.clProSettings);

  DesignerPanel.AddPanelObject(parabirimi, clText);

  

}

 void AddDataToListView;

 {

  listView.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON( '[

    {"isim": "cikolata", "kategori": "yiyecek","fiyat": "30","parabirimi": "TL"},

    {"isim": "oje", "kategori": "kisiselbakim","fiyat": "80","parabirimi": "TL"},

    {"isim": "pantolon", "kategori": "giyim","fiyat": "1000","parabirimi": "TL"}

  ]'));

 }

void CreateListView;

{

listview = uVeriListeleme.AddNewProListView(uVeriListeleme, 'listtView');

clComponent.SetupComponent(listView,'{

"Align": "alClient",

"Width":69,

"Height":150,

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":2

"listType":"Cart",

"ItemColumnCount" : 2,

"ItemHeight" : 150,

"ItemWidth":150,

"Backgroundcolor":"#88c394",

"BorderColor":"#8e8fde"}');

listView.Properties.ItemSpace = 10;

}

void MesajGoster;

{

  ShowMessage('Zaten Veri Listeleme Sayfasindasin');

}

void GoToProfilSayfasi;

{

    uVeriListeleme.clShow;

    uProfilSayfasi.UnitName = 'uProfilSayfasi';

    uProfilSayfasi.CallerForm = uVeriListeleme;

    uProfilSayfasi.Run;

}

void GotoVeriAnalizi;

{

    uVeriListeleme.clShow;

    uVeriAnalizi.UnitName = 'uVeriAnalizi';

    uVeriAnalizi.CallerForm = uVeriListeleme;

    uVeriAnalizi.Run;

}

void GoToVeriEkleme;

{

    uVeriListeleme.clShow;

    uVeriEkleme.UnitName = 'VeriEkleme';

    uVeriEkleme.CallerForm = uVeriListeleme;

    uVeriEkleme.Run;

}

{

uVeriListeleme = TCLForm.Create(Self);

uProfilSayfasi = TclUnit.Create;

uVeriEkleme = TclUnit.Create;

uVeriAnalizi = TclUnit.Create;

panel = uVeriListeleme.AddNewProPanel(uVeriListeleme,'panel');

clComponent.SetupComponent(panel,'{

"Align" : "alMostBottom",

"Width" :360, 

"Height":20,

"RoundHeight":10,

"RoundWidth":10,

"Backgroundcolor": "#e2deed"}');

panel.Align = alMostBottom;

btn1 = uVeriListeleme.AddNewProButton(panel, 'btn1', '');

clComponent.SetupComponent(btn1,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",

"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"

}');

btn1.Margins.Right = 290;

uVeriListeleme.AddNewEvent(btn1,tbeOnClick,'GoToProfilSayfasi');

btn2 = uVeriListeleme.AddNewProButton(panel, 'btn2', '');

clComponent.SetupComponent(btn2,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",

"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"

}');

btn2.Margins.Right = 145;

uVeriListeleme.AddNewEvent(btn2,tbeOnClick,'GoToVeriEkleme');

btn3 = uVeriListeleme.AddNewProButton(panel, 'btn3', '');

clComponent.SetupComponent(btn3,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",

"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"

}');

btn3.Margins.Left = 0;

uVeriListeleme.AddNewEvent(btn3,tbeOnClick,'MesajGoster');

  

btn4 = uVeriListeleme.AddNewProButton(panel, 'btn4', '');

clComponent.SetupComponent(btn4,'{"RoundHeight":10,"Width":69,"Height":45,"Backgroundcolor":"#ffffff",

"RoundWidth":10,"BorderColor":"#8e8fde","BorderWidth":2,"Imgurl":"https://clomosy.com/assets/images/1024x500.png","ImgFit":"yes"

}');

btn4.Margins.Left = 145;

uVeriListeleme.AddNewEvent(btn4,tbeOnClick,'GotoVeriAnalizi');

CreateListView;

CreateDesignerPanel;

CreateData;

AddDataToListView;

Search;

uVeriListeleme.Run;

  

}

Kodunun hepsini paylaşır mısın?

Kodunun hepsini paylaşır mısın?

TclStyleForm

RUNTIME ERROR

Access violation at address 005CA564 in module 'ClomosyLearn.exe'. Read of address 00000000 when evaluating instruction CallProc ($FFFFFFFF,$FF,$1350C04,$1DFA5CF0,'TargetListView').

Stack content is: [Null,Null,Integer:154894352,Null...].

Source position: 44,28

Position: 44, 28

Clomosy Build : 20240709.111531

Ancak bu kodu çalıştırdığımda aşağıdaki hata mesajını alıyorum:

Bu hata, ListView.Properties.ItemSpace özelliğini kullanmaya çalıştığımda meydana geliyor.

nasıl çözebileceğim konusunda yardımcı olabilir misiniz?

Bunun için http://clomosy.com.tr sitesine giderek buradan geliştirici hesabınıza geçiş yapmalısınız.

Geliştirici ortamını açtıktan sonra Proje Aktivasyon Kodu yazan başlığın yanındaki '+' simgesine tıklayarak kayıt edeceğiniz kullanıcının GUID bilgisini girmeniz ve kaydetmeniz yeterli olacaktır.

Telefonunuz üzerinden Clomosy CRM uygulamasını açın. Bir projeye girerek sağ üst kısımda bulunan butona (üç nokta butonu) tıklayın. Burada bulunan 'Profilim' butonuna tıklayın. Artık GUID bilginize buradan bakabilirsiniz.