Tclprolistviewde

var 

myform:tclform;

listview:tclprolistview;

designerpanel :TClProListViewDesignerPanel;

gorevne : tcledit;

addbtn : TCLButton;

gorevAdi : TCLprolabel;

insertQuery,selectquery: TCLSqlQuery;

testImg : TclproImage;

void ekledatabase;

{ 

try 

  clomosy.DBSQLServerQuery.Sql.Text='INSERT INTO tablo (gorev) Values ('+QuotedStr(gorevne.text)+')';

  clomosy.DBSQLServerQuery.ExecSql;

  ShowMessage('veri eklendi');

except

  ShowMessage('exception class: '+lastexceptionclassname+' exception message: '+lastexceptionmessage);

}

}

void gorevlistele;{

  try

  selectquery.sql.text='select gorev as MAIN_TEXT FROM tablo ';

  selectquery.open;

  if(selectquery.found){

    listview.clLoadlistviewDataFromDataset(selectquery);

  }

  else{

    ShowMessage('henüz görev yok!');

  }

 finally

 selectquery.free;

 selcetquery.close;

  }

}

void gorevekle;

{

  gorevAdi = myForm.AddNewProLabel(designerPanel, 'gorevAdi','test');

  designerPanel.AddPanelObject(gorevAdi,clCaption);

  gorevAdi.Properties.AutoSize = True;

}

void createlistview;{

  listview=myform.addnewprolistview(myform,'listview');

  ListView.Align = AlBottom;

  ListView.Margins.Bottom = 20;

  ListView.Margins.Top = 20;

  ListView.Margins.Right = 20;

  ListView.Margins.Left = 20;

  ListView.clProSettings.ViewType = lvIcon; //(lvList, lvIcon, lvWaterFall)

  ListView.clProSettings.ColCount = 1;

  ListView.clProSettings.ItemHeight = 100;

  ListView.clProSettings.ItemSpace = 10;

  ListView.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fff2e0');

  ListView.clProSettings.BorderColor = clAlphaColor.clHexToColor('#995900');

  ListView.clProSettings.BorderWidth = 2;

  ListView.clProSettings.RoundHeight = 5;

  ListView.clProSettings.RoundWidth = 5;

  ListView.SetclProSettings(ListView.clProSettings);

}

void createdesignerpanel;{

  designerpanel=myform.addnewprolistviewdesignerpanel(listview,'designerpanel');

  DesignerPanel.Align = alMostTop;

  DesignerPanel.Height = 100;

  DesignerPanel.Width = 150;

  DesignerPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#995900');

  DesignerPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#82510d');

  DesignerPanel.clProSettings.IsTransparent = False;

  DesignerPanel.clProSettings.IsFill = True; 

  DesignerPanel.clProSettings.IsRound = True;

  DesignerPanel.clProSettings.RoundHeight = 20;

  DesignerPanel.clProSettings.RoundWidth = 20;

  DesignerPanel.clProSettings.BorderWidth = 2;

  DesignerPanel.SetclProSettings(DesignerPanel.clProSettings);

  ListView.SetDesignerPanel(DesignerPanel);

  

}

{

  myform=tclform.create(self);

  myform.SetFormBGImage('https://i.pinimg.com/236x/a9/9c/97/a99c970cfcb894d66b3eb769778c204d.jpg')

  

  insertQuery=TCLSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server','DESKTOP-7\SQLEXPRESS','sa','...','liste',1433);

  insertQuery.Connection=clomosy.DBSQLServerConnection;

 

  createlistview;

  createdesignerpanel;

  gorevekle;

  

  gorevne=myform.addnewedit(myform,'gorevne','gorev nedir?..');

  gorevne.margins.bottom=10;

  gorevne.width=200;

  gorevne.height=80;

  

  addbtn=myform.AddNewButton(MyForm,'addbtn', 'ekle');

  addbtn.margins.top=150;

  addbtn.width=50;

  addbtn.height=30;

  

  myform.addnewevent(addbtn,tbeonclick,'ekledatabase');

  gorevlistele;

  myform.run;

}

Merhaba Tclprolistviewde MSSQL den veri çekip görüntülemek istedim fakat clLoadlistviewDataFromDataset() kısmında bilinmeyen metot uyarısı veriyor.Kaynaklarıda inceledim göremedim.Youtubeda Tcllistview için bu şekilde yapılmıştı.Pro ve normal arasında metot farklılığı mı var?