ilgilendiğiniz için teşekkürler

var

form1,kategorimenusayfasi,sss,Bilgiekrani:TCLForm;

kullanicilistview,rrrr : TClProListView;

desigerpanell1 : TClListViewDesignerPanel;

Label1,Label3 : TclProLabel;

kartnumarasi,sonkullanimtarihi,cvv:TclProEdit;

kaydetbnt:TClProButton;

kartbilgikaydemesayfasi:TCLForm;

Form11111:TCLForm;

ListView1 : TClProListView;

DesignerPanel1 : TClListViewDesignerPanel;

taskName : TclProLabel;

//taskImg : TclProImage;

secmekategoribtn,secmeanasayfabtn,secmesepet,satinalma,onayla:TClProButton;

searchEdt : TClProSearchEdit;

kayitolbtn:TClProButton;

Qry,Qry2,Qry1 : TClSQLiteQuery;

deyisken,fifiyat,fofoto,adadet,aktarma,aktarma2,aktarma3,momodel,kakategori,trtrtr:String;

ayakabibtn,kiyafetbtn,mobilyabtn,eliktironikbtn,sporbtn,ciltbakimbtn,aksesuarlarbtn,bahcebakimbtn:TClProButton;

bilgisayarbtn,mutfakesyalaribtn,aracmalzemeleribtn,parfumvededorantbtn,aydinlatmabtn,yapimarketbtn,makyajbtn,beyazesyalarbtn,asdfbtn:TClProButton;

 vScroll:TCLVertScrollBox;

 isimbtn,sepeteeklemebtn,r1:TClProButton;

 bilgiresmi:TclProImage;

 markalabel,modelilabel,Fiyatlabel,Bedenilabel,label4,label5:TclProLabel;

 ProPanel1,onylapanel : TclProPanel;

 PListView1 : TClProListView;

 DesignerPanel11 : TClProListViewDesignerPanel;

  //taskName : TclProLabel;

  taskImg,taskImg2 : TclProImage;

  asas:String;

  bgbg,flk,i:Integer;

  Unit1 :TclUnit;

   productList: TclStringList;

    MyForm:TclStyleForm;

   BtnSample:TclButton;

   MyVertBox:TClVertScrollBox;

   MyExpander1,MyExpander2:TclExpander;

   MyLayout1, MyLayout2:TclLayout;

   MyLabel1, MyLabel2:TclLabel

   senderExpander,senderExpander1:TclExpander;

    ListView12,ListView13 : TClProListView;  

    DesignerPanel12,DesignerPanel13 : TClListViewDesignerPanel; 

    taskName12,taskName13 : TclProLabel;   

   

void GetData4

{

  try

    aktarma=kullanicilistview.clSelectedItemData(clText);

    

     Clomosy.DBSQLiteQuery.Sql.Text='SELECT Kategori,Adi,Markasi ,Fiyat,Resmi,Modeli FROM Esyaninbilgisi WHERE Adi  = ' + QuotedStr(aktarma)+';';

     Clomosy.DBSQLiteQuery.OpenOrExecute;

    fifiyat=Clomosy.DBSQLiteQuery.FieldByName('Fiyat').AsString;

    fofoto=Clomosy.DBSQLiteQuery.FieldByName('Resmi').AsString;

    adadet=Clomosy.DBSQLiteQuery.FieldByName('Markasi').AsString;

    momodel=Clomosy.DBSQLiteQuery.FieldByName('Modeli').AsString;

    kakategori=Clomosy.DBSQLiteQuery.FieldByName('Kategori').AsString;

    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

    productList = Clomosy.StringListNew;

    productList.Add(aktarma);

    productList.Add(fofoto);

    productList.Add(fifiyat);

    productList.Add(adadet);

    Clomosy.GlobalVariableStringList = productList;

    

    

  except

    //ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

  }

}

void getdatesepet

{

  aktarma=kullanicilistview.clSelectedItemData(clText);

  trtrtr=fofoto;

  

  

  

  try

    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Sepetkaydetmebilgisi (kullanicad,Adi_, Resmi_,esyafiyati) VALUES ('+QuotedStr(Clomosy.GlobalVariableString)+','+QuotedStr(Aktarma)+', '+QuotedStr(trtrtr)+','+QuotedStr(Fiyatlabel.Text)+')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Sepete Eklendi!');

    flk=StrToInt(Fiyatlabel.Text);

    bgbg=bgbg+flk;

    IntToStr(bgbg);

    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE kulanicibilgisi SET total = ' +QuotedStr(bgbg)+ 'WHERE E_posta ='+QuotedStr(Clomosy.GlobalVariableString);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    

  except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

  }

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

  

}

void getdatesepet2

{

  aktarma=rrrr.clSelectedItemData(clText);

  trtrtr=fofoto;

  

  try

    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Sepetkaydetmebilgisi (kullanicad,Adi_, Resmi_,esyafiyati) VALUES ('+QuotedStr(Clomosy.GlobalVariableString)+','+QuotedStr(Aktarma)+', '+QuotedStr(trtrtr)+','+QuotedStr(Fiyatlabel.Text)+')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Sepete Eklendi!');

    flk=StrToInt(Fiyatlabel.Text);

    bgbg=bgbg+flk;

    IntToStr(bgbg);

    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE kulanicibilgisi SET total = ' +QuotedStr(bgbg)+ 'WHERE E_posta ='+QuotedStr(Clomosy.GlobalVariableString);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

  except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

  }

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

  

}

  

void getdata6

{

     aktarma2=rrrr.clSelectedItemData(clText);

     Clomosy.DBSQLiteQuery.Sql.Text='SELECT Kategori,Markasi ,Fiyat,Resmi,Modeli FROM Esyaninbilgisi WHERE Adi  = '+QuotedStr(aktarma2)+';';

     Clomosy.DBSQLiteQuery.OpenOrExecute;

    fifiyat=Clomosy.DBSQLiteQuery.FieldByName('Fiyat').AsString;

    fofoto=Clomosy.DBSQLiteQuery.FieldByName('Resmi').AsString;

    adadet=Clomosy.DBSQLiteQuery.FieldByName('Markasi').AsString;

    momodel=Clomosy.DBSQLiteQuery.FieldByName('Modeli').AsString;

    kakategori=Clomosy.DBSQLiteQuery.FieldByName('Kategori').AsString;

    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

    productList = Clomosy.StringListNew;

    productList.Add(aktarma2);

    productList.Add(fofoto);

    productList.Add(fifiyat);

    productList.Add(adadet);

    Clomosy.GlobalVariableStringList = productList;

}

void getdata7

{

     aktarma3=PListView1.clSelectedItemData(clText);

     Clomosy.DBSQLiteQuery.Sql.Text='SELECT Kategori,Markasi ,Fiyat,Resmi,Modeli FROM Esyaninbilgisi WHERE Adi  = '+QuotedStr(aktarma3)+';';

     Clomosy.DBSQLiteQuery.OpenOrExecute;

    fifiyat=Clomosy.DBSQLiteQuery.FieldByName('Fiyat').AsString;

    fofoto=Clomosy.DBSQLiteQuery.FieldByName('Resmi').AsString;

    adadet=Clomosy.DBSQLiteQuery.FieldByName('Markasi').AsString;

    momodel=Clomosy.DBSQLiteQuery.FieldByName('Modeli').AsString;

    kakategori=Clomosy.DBSQLiteQuery.FieldByName('Kategori').AsString;

    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

    productList.Add(aktarma3);

    productList.Add(fofoto);

    productList.Add(fifiyat);

    productList.Add(adadet);

    Clomosy.GlobalVariableStringList = productList;

}

  

void getdata5

{

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT Adi as taskName,Resmi as taskImg2  FROM Esyaninbilgisi WHERE Kategori  = ' + QuotedStr(kakategori));

    Qry.OpenOrExecute;

     PListView1.clLoadProListViewDataFromDataset(Qry);

   except

    //ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

   }

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

}

void sepetlisteleme

{

    Qry2 = Clomosy.DBSQLiteQueryWith('SELECT total as Label5 FROM kulanicibilgisi WHERE E_posta ='+QuotedStr(Clomosy.GlobalVariableString));

    Qry2.OpenOrExecute;

    Qry = Clomosy.DBSQLiteQueryWith('SELECT Resmi_ as taskImg,Adi_ as taskName ,esyafiyati as Label3 FROM Sepetkaydetmebilgisi WHERE kullanicad ='+QuotedStr(Clomosy.GlobalVariableString));

    Qry.OpenOrExecute;

    ListView1.clLoadProListViewDataFromDataset(Qry);

    ShowMessage('asdoı');

   

    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

    

}

void sepetlistesidelet

{ 

   try

    Clomosy.DBSQLiteQuery.SQL.Text = 'DELETE FROM Sepetkaydetmebilgisi WHERE adi_  = ' +QuotedStr(taskName.Text)+' and esyafiyati='+QuotedStr(Label3.Text);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    i=StrToInt(label3.Text);

    bgbg=bgbg-i;

    IntToStr(bgbg);

    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE kulanicibilgisi SET total = ' +QuotedStr(bgbg)+ ' WHERE E_posta ='+QuotedStr(Clomosy.GlobalVariableString);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    sepetlisteleme;

    ShowMessage(' silme başarılı!');

    

   

    

  except 

    ShowMessage('Exception class: ' + LastExceptionClassName + 'Exception message: ' + LastExceptionMessage);

  }

}

void satissayfasinagit

{

  Bilgiekrani.clShow;

  Unit1.UnitName = 'satissayfasi';

  Unit1.CallerForm = Bilgiekrani;

  Unit1.Run;

}

void satissayfasinagit2

{

   Form11111.clShow;

  Unit1.UnitName = 'satissayfasi2';

  Unit1.CallerForm = Form11111;

  Unit1.Run;

}

void CreateListView

{

  

  Form11111=TCLForm.Create(Self);

  Unit1 = TclUnit.Create;

  ListView1 = Form11111.AddNewProListView(Form11111,'ListView1');

  ListView1.Align = AlClient;

  ListView1.Margins.Bottom = 20;

  ListView1.Margins.Top = 20;

  ListView1.Margins.Right = 20;

  ListView1.Margins.Left = 20;

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

  ListView1.clProSettings.ColCount = 1;

  ListView1.clProSettings.ItemHeight = 100;

  ListView1.clProSettings.ItemSpace = 10;

  ListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');

  ListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#66FF7F');

  ListView1.clProSettings.BorderWidth = 2;

  ListView1.clProSettings.RoundHeight = 5;

  ListView1.clProSettings.RoundWidth = 5;

  ListView1.SetclProSettings(ListView1.clProSettings);

  DesignerPanel11 = Form11111.AddNewProListViewDesignerPanel(ListView1, 'DesignerPanel1');

  DesignerPanel11.Height = 100;

  DesignerPanel11.Width = 150;

  DesignerPanel11.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B3FCE5');

  DesignerPanel11.clProSettings.BorderColor = clAlphaColor.clHexToColor('#16FF8C');

  DesignerPanel11.clProSettings.BorderWidth = 2;

  DesignerPanel11.clProSettings.RoundHeight = 20;

  DesignerPanel11.clProSettings.RoundWidth = 20;

  DesignerPanel11.SetclProSettings(DesignerPanel11.clProSettings);

  

  ListView1.SetDesignerPanel(DesignerPanel11);

 

  taskImg = Form11111.AddNewProImage(DesignerPanel11, 'taskImg');

  taskImg.Align = AlLeft;

  taskImg.Margins.Top = 10;

  taskImg.Margins.Bottom = 10;

  taskImg.Margins.Left =10;

  DesignerPanel11.AddPanelObject(taskImg, clImage1);

  taskName = Form11111.AddNewProLabel(DesignerPanel11, 'taskName', 'test');

  taskName.Align = alCenter;

  taskName.Height =30;

  taskName.Margins.Bottom = 10;

  taskName.Margins.Top = 10;

  taskName.Margins.Right = 10;

  taskName.Margins.Left = 100;

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

  taskName.clProSettings.FontSize = 20;

  DesignerPanel11.AddPanelObject(taskName, clText);

  

 

  

   r1=Form11111.AddNewProButton(DesignerPanel11,'r1',' Sil');

   r1.Height=5;

   r1.Width=75;

   r1.Align=alRight;

   r1.Margins.Right=20;

   r1.Margins.Top=50;

   r1.Margins.Bottom=5;

   r1.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   r1.ClProSettings.RoundWidth=20;

   r1.ClProSettings.RoundHeight=20;

   r1.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   r1.ClProSettings.FontSize=12;

   r1.ClProSettings.borderWidth=2;

   r1.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   r1.SetClProSettings(r1.ClProSettings);

   Form11111.AddNewEvent(r1,tbeOnClick,'sepetlistesidelet');

   

    Label3 = Form11111.AddNewProLabel(DesignerPanel11,'Label3','Fiyatı:');

  Label3.Align = alCenter;

  //Label3.Align = alRight;

  Label3.Width = 150;

  Label3.Height = 30;

  Label3.Margins.Top=60;

  Label3.Margins.Right=20;

  Label3.Margins.Left=100;

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

  Label3.clProSettings.FontSize = 12;

  Label3.clProSettings.FontVertAlign = palcenter;

  Label3.clProSettings.FontHorzAlign = palLeading;

  Label3.clProSettings.TextSettings.Font.Style = [fsBold];

  Label3.clProSettings.IsFill = True; 

  Label3.clProSettings.IsRound = True;

  Label3.SetclProSettings(Label3.clProSettings);

  DesignerPanel11.AddPanelObject(Label3, clCaption);

   

   onylapanel=Form11111.AddNewProPanel(Form11111,'onylapanel');

  onylapanel.Align = alBottom;

  onylapanel.Height = 80;

  onylapanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685');

  onylapanel.clProSettings.RoundHeight = 10;

  onylapanel.clProSettings.RoundWidth = 10;

  onylapanel.clProSettings.BorderWidth = 2;

  onylapanel.clProSettings.IsFill = True; 

  onylapanel.clProSettings.IsRound = True;

  onylapanel.SetclProSettings(onylapanel.clProSettings);

   

   onayla=Form11111.AddNewProButton(onylapanel,'onayla', 'Sepeti Onayla');

   onayla.Align=alCenter;

   onayla.Height=50; 

   onayla.Width=160; 

   onayla.Margins.Top=5; 

   onayla.Margins.Left=200; 

   onayla.Margins.Right=20; 

   onayla.Margins.Bottom=10; 

   onayla.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#c54242'); 

   onayla.ClProSettings.RoundHeight=20;

   onayla.ClProSettings.RoundWidth=10; 

   onayla.ClProSettings.FontColor=clAlphaColor.clHexToColor('#FFFFFF'); 

   onayla.ClProSettings.FontSize=16; 

   onayla.ClProSettings.borderWidth=2; 

   onayla.SetClProSettings(onayla.ClProSettings);

   Form11111.AddNewEvent(onayla,tbeOnClick,'satissayfasinagit2');

   

   label4 = Form11111.AddNewProLabel(onylapanel,'label4','Toplam');

   label4.Width = 100;

   label4.Height = 40;

   label4.Align=alCenter;

   

   label4.Margins.Right=200;

   label4.Margins.Bottom= 35;

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

   label4.clProSettings.FontSize = 18;

   label4.clProSettings.FontVertAlign = palcenter;

   label4.clProSettings.FontHorzAlign = palLeading;

   label4.clProSettings.TextSettings.Font.Style = [fsBold];

   label4.clProSettings.IsFill = True; 

   label4.clProSettings.IsRound = True;

   label4.SetclProSettings(label4.clProSettings);

  

   label5 = Form11111.AddNewProLabel(onylapanel,'label5','Toplam');

   label5.Width = 100;

   label5.Height = 40;

   label5.Align=alCenter;

   label5.Margins.Right=200;

   label5.Margins.Top=20;

   label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#07b305');

   label5.clProSettings.FontSize = 18;

   label5.clProSettings.FontVertAlign = palcenter;

   label5.clProSettings.FontHorzAlign = palLeading;

   label5.clProSettings.TextSettings.Font.Style = [fsBold];

   label5.clProSettings.IsFill = True; 

   label5.clProSettings.IsRound = True;

   label5.SetclProSettings(label5.clProSettings);

   label5.Text=IntToStr(bgbg);

   

   

  

  Form11111.Run;

  

   sepetlisteleme;

    

}

void tasarim

{

   GetData4;

   Bilgiekrani=TclForm.Create(Self);

   Unit1 = TclUnit.Create;

   vScroll = Bilgiekrani.AddNewVertScrollBox(Bilgiekrani,'ScrollBoxY');

   vScroll.Align = alClient;

  // vScroll.ShowSrollBars = True;

   

  ProPanel1=Bilgiekrani.AddNewProPanel(Bilgiekrani,'ProPanel1');

  ProPanel1.Align = alBottom;

 // ProPanel1.Width = 200;

  ProPanel1.Height = 100;

  ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685');

  ProPanel1.clProSettings.RoundHeight = 10;

  ProPanel1.clProSettings.RoundWidth = 10;

  ProPanel1.clProSettings.BorderWidth = 2;

  ProPanel1.clProSettings.IsFill = True; 

  ProPanel1.clProSettings.IsRound = True;

  ProPanel1.SetclProSettings(ProPanel1.clProSettings);

  

   isimbtn=Bilgiekrani.AddNewProButton(vScroll,'isimbtn','Ürün bilgisi')

   isimbtn.Height=50;

   isimbtn.Width=250;

   //isimbtn.Align=alTop;

   //isimbtn.Margins.Top=15;

   isimbtn.Margins.Left=10;

   isimbtn.Margins.Right=10;

   isimbtn.Align=alTop;

   //isimbtn.Margins.Bottom=0;

   isimbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   isimbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   isimbtn.ClProSettings.RoundWidth=20;

   isimbtn.ClProSettings.RoundHeight=20;

   isimbtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   isimbtn.ClProSettings.FontSize=30;

   isimbtn.ClProSettings.borderWidth=2;

   isimbtn.SetClProSettings(isimbtn.ClProSettings);

   Bilgiekrani.AddNewEvent(isimbtn,tbeOnClick,'');

   

  bilgiresmi = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi');

  bilgiresmi.Margins.Top=10;

  bilgiresmi.Height = 550;

  bilgiresmi.Align=alTop;

  bilgiresmi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6');

  bilgiresmi.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  bilgiresmi.clProSettings.RoundHeight = 10;

  bilgiresmi.clProSettings.RoundWidth = 10;

  bilgiresmi.clProSettings.BorderWidth = 2;

  bilgiresmi.clProSettings.IsFill = True; 

  bilgiresmi.clProSettings.IsRound = True;

  bilgiresmi.clProSettings.PictureSource = fofoto;

  bilgiresmi.clProSettings.PictureAutoFit = True;

  bilgiresmi.SetclProSettings(bilgiresmi.clProSettings);

  

  markalabel = Bilgiekrani.AddNewProLabel(vScroll,'markalabel',adadet);

  markalabel.Width = 250;

  markalabel.Height = 30;

  markalabel.Align=alTop;

  markalabel.Margins.Left=10;

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

  markalabel.clProSettings.FontSize = 20;

  markalabel.clProSettings.FontVertAlign = palcenter;

  markalabel.clProSettings.FontHorzAlign = palLeading;

  markalabel.clProSettings.TextSettings.Font.Style = [fsBold];

  markalabel.clProSettings.IsFill = True; 

  markalabel.clProSettings.IsRound = True;

  markalabel.SetclProSettings(markalabel.clProSettings);

  

  modelilabel = Bilgiekrani.AddNewProLabel(vScroll,'modelilabel',momodel);

  modelilabel.Width = 250;

  modelilabel.Height = 30;

  modelilabel.Align=alTop;

  modelilabel.Margins.Left=10;

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

  modelilabel.clProSettings.FontSize = 20;

  modelilabel.clProSettings.FontVertAlign = palcenter;

  modelilabel.clProSettings.FontHorzAlign = palLeading;

  modelilabel.clProSettings.TextSettings.Font.Style = [fsBold];

  modelilabel.clProSettings.IsFill = True; 

  modelilabel.clProSettings.IsRound = True;

  modelilabel.SetclProSettings(modelilabel.clProSettings);

  

   PListView1 = Bilgiekrani.AddNewProListView(vScroll,'PListView1');

   PListView1.Properties.ItemSpace = 10;

   clComponent.SetupComponent(PListView1,'{"Height" : 300,"Align":"Top","MarginBottom":20,"MarginTop":20, "ListType":"Cart","ItemColumnCount" : 2,"ItemHeight" : 350,"ItemWidth":150, 

   "BorderColor":"#F5BCC9", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');

   PListView1.ListType = 'horizontal';

   Bilgiekrani.AddNewEvent(PListView1,tbeOnItemClick,'tasarim3');

   

   DesignerPanel1 = Bilgiekrani.AddNewProListViewDesignerPanel(PListView1,'DesignerPanel1'); 

   clComponent.SetupComponent(DesignerPanel1,'{"Height":200,"Width" : 150,"BackgroundColor":"#F6EDDB","BorderColor":"#F5BCC9","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}');

   PListView1.SetDesignerPanel(DesignerPanel1);

  

  taskImg2 = Bilgiekrani.AddNewProImage(DesignerPanel1, 'taskImg2');

  taskImg2.Align = alTop;

  taskImg2.Margins.Top = 10;

  taskImg2.Margins.Left=10;

  taskImg2.Margins.Right=10;

  taskImg2.Height=200;

  taskImg2.Width=150;

  DesignerPanel1.AddPanelObject(taskImg2, clImage1);

  taskName = Bilgiekrani.AddNewProLabel(DesignerPanel1, 'taskName', 'test');

  taskName.Align = AlCenter;

  taskName.Height =30;

  taskName.Margins.Right = 10;

  taskName.Margins.Left = 10;

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

  taskName.clProSettings.FontSize = 20;

  DesignerPanel1.AddPanelObject(taskName, clText);

  

  Fiyatlabel = Bilgiekrani.AddNewProLabel(ProPanel1,'Fiyatlabel',fifiyat);

  Fiyatlabel.Width = 250;

  Fiyatlabel.Height = 30;

  Fiyatlabel.Align=AlLeft;

  Fiyatlabel.Margins.Left=10;

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

  Fiyatlabel.clProSettings.FontSize = 20;

  Fiyatlabel.clProSettings.FontVertAlign = palcenter;

  Fiyatlabel.clProSettings.FontHorzAlign = palLeading;

  Fiyatlabel.clProSettings.TextSettings.Font.Style = [fsBold];

  Fiyatlabel.clProSettings.IsFill = True; 

  Fiyatlabel.clProSettings.IsRound = True;

  Fiyatlabel.SetclProSettings(Fiyatlabel.clProSettings);

  

  

  

    satinalma=Bilgiekrani.AddNewProButton(ProPanel1,'satinalma','Satın Al')

   satinalma.Height=30;

   satinalma.Width=150;

   satinalma.Margins.Right=10;

   satinalma.Align=alRight;

   satinalma.Margins.Top=5;

   satinalma.Margins.Bottom=5;

   satinalma.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   satinalma.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   satinalma.ClProSettings.RoundWidth=20;

   satinalma.ClProSettings.RoundHeight=20;

   satinalma.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   satinalma.ClProSettings.FontSize=22;

   satinalma.ClProSettings.borderWidth=2;

   satinalma.SetClProSettings(satinalma.ClProSettings);

   Bilgiekrani.AddNewEvent(satinalma,tbeOnClick,'satissayfasinagit');

  

   sepeteeklemebtn=Bilgiekrani.AddNewProButton(ProPanel1,'sepeteeklemebtn','Sepete Ekle')

   sepeteeklemebtn.Height=20;

   sepeteeklemebtn.Width=130;

   sepeteeklemebtn.Margins.Right=10;

   sepeteeklemebtn.Align=alRight;

   sepeteeklemebtn.Margins.Top=10;

   sepeteeklemebtn.Margins.Bottom=10;

   sepeteeklemebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   sepeteeklemebtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   sepeteeklemebtn.ClProSettings.RoundWidth=20;

   sepeteeklemebtn.ClProSettings.RoundHeight=20;

   sepeteeklemebtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   sepeteeklemebtn.ClProSettings.FontSize=22;

   sepeteeklemebtn.ClProSettings.borderWidth=2;

   sepeteeklemebtn.SetClProSettings(sepeteeklemebtn.ClProSettings);

   Bilgiekrani.AddNewEvent(sepeteeklemebtn,tbeOnClick,'getdatesepet');

  

  Bilgiekrani.Run;

  getdata5;

  

  

}

void tasarim2

{

  getdata6;

  Unit1 = TclUnit.Create;

   Bilgiekrani=TclForm.Create(Self);

   vScroll = Bilgiekrani.AddNewVertScrollBox(Bilgiekrani,'ScrollBoxY');

   vScroll.Align = alClient;

  // vScroll.ShowSrollBars = True;

   

  ProPanel1=Bilgiekrani.AddNewProPanel(Bilgiekrani,'ProPanel1');

  ProPanel1.Align = alBottom;

 // ProPanel1.Width = 200;

  ProPanel1.Height = 100;

  ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685');

  ProPanel1.clProSettings.RoundHeight = 10;

  ProPanel1.clProSettings.RoundWidth = 10;

  ProPanel1.clProSettings.BorderWidth = 2;

  ProPanel1.clProSettings.IsFill = True; 

  ProPanel1.clProSettings.IsRound = True;

  ProPanel1.SetclProSettings(ProPanel1.clProSettings);

  

   isimbtn=Bilgiekrani.AddNewProButton(vScroll,'isimbtn','Ürün bilgisi')

   isimbtn.Height=50;

   isimbtn.Width=250;

   //isimbtn.Align=alTop;

   //isimbtn.Margins.Top=15;

   isimbtn.Margins.Left=10;

   isimbtn.Margins.Right=10;

   isimbtn.Align=alTop;

   //isimbtn.Margins.Bottom=0;

   isimbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   isimbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   isimbtn.ClProSettings.RoundWidth=20;

   isimbtn.ClProSettings.RoundHeight=20;

   isimbtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   isimbtn.ClProSettings.FontSize=30;

   isimbtn.ClProSettings.borderWidth=2;

   isimbtn.SetClProSettings(isimbtn.ClProSettings);

   Bilgiekrani.AddNewEvent(isimbtn,tbeOnClick,'');

   

  bilgiresmi = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi');

  bilgiresmi.Margins.Top=10;

  bilgiresmi.Height = 550;

  bilgiresmi.Align=alTop;

  bilgiresmi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6');

  bilgiresmi.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  bilgiresmi.clProSettings.RoundHeight = 10;

  bilgiresmi.clProSettings.RoundWidth = 10;

  bilgiresmi.clProSettings.BorderWidth = 2;

  bilgiresmi.clProSettings.IsFill = True; 

  bilgiresmi.clProSettings.IsRound = True;

  bilgiresmi.clProSettings.PictureSource = fofoto;

  bilgiresmi.clProSettings.PictureAutoFit = True;

  bilgiresmi.SetclProSettings(bilgiresmi.clProSettings);

  

  markalabel = Bilgiekrani.AddNewProLabel(vScroll,'markalabel',adadet);

  markalabel.Width = 250;

  markalabel.Height = 30;

  markalabel.Align=alTop;

  markalabel.Margins.Left=10;

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

  markalabel.clProSettings.FontSize = 20;

  markalabel.clProSettings.FontVertAlign = palcenter;

  markalabel.clProSettings.FontHorzAlign = palLeading;

  markalabel.clProSettings.TextSettings.Font.Style = [fsBold];

  markalabel.clProSettings.IsFill = True; 

  markalabel.clProSettings.IsRound = True;

  markalabel.SetclProSettings(markalabel.clProSettings);

  

  modelilabel = Bilgiekrani.AddNewProLabel(vScroll,'modelilabel',momodel);

  modelilabel.Width = 250;

  modelilabel.Height = 30;

  modelilabel.Align=alTop;

  modelilabel.Margins.Left=10;

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

  modelilabel.clProSettings.FontSize = 20;

  modelilabel.clProSettings.FontVertAlign = palcenter;

  modelilabel.clProSettings.FontHorzAlign = palLeading;

  modelilabel.clProSettings.TextSettings.Font.Style = [fsBold];

  modelilabel.clProSettings.IsFill = True; 

  modelilabel.clProSettings.IsRound = True;

  modelilabel.SetclProSettings(modelilabel.clProSettings);

  

   PListView1 = Bilgiekrani.AddNewProListView(vScroll,'PListView1');

   PListView1.Properties.ItemSpace = 10;

   clComponent.SetupComponent(PListView1,'{"Height" : 300,"Align":"Top","MarginBottom":20,"MarginTop":20, "ListType":"Cart","ItemColumnCount" : 2,"ItemHeight" : 350,"ItemWidth":150, 

   "BorderColor":"#F5BCC9", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');

   PListView1.ListType = 'horizontal';

   Bilgiekrani.AddNewEvent(PListView1,tbeOnItemClick,'tasarim3');

   

   DesignerPanel1 = Bilgiekrani.AddNewProListViewDesignerPanel(PListView1,'DesignerPanel1'); 

   clComponent.SetupComponent(DesignerPanel1,'{"Height":200,"Width" : 150,"BackgroundColor":"#F6EDDB","BorderColor":"#F5BCC9","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}');

   PListView1.SetDesignerPanel(DesignerPanel1);

  

  taskImg2 = Bilgiekrani.AddNewProImage(DesignerPanel1, 'taskImg2');

  taskImg2.Align = alTop;

  taskImg2.Margins.Top = 10;

  taskImg2.Margins.Left=10;

  taskImg2.Margins.Right=10;

  taskImg2.Height=200;

  taskImg2.Width=150;

  DesignerPanel1.AddPanelObject(taskImg2, clImage1);

  taskName = Bilgiekrani.AddNewProLabel(DesignerPanel1, 'taskName', 'test');

  taskName.Align = AlCenter;

  taskName.Height =30;

  taskName.Margins.Right = 10;

  taskName.Margins.Left = 10;

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

  taskName.clProSettings.FontSize = 20;

  DesignerPanel1.AddPanelObject(taskName, clText);

  

  Fiyatlabel = Bilgiekrani.AddNewProLabel(ProPanel1,'Fiyatlabel',fifiyat);

  Fiyatlabel.Width = 250;

  Fiyatlabel.Height = 30;

  Fiyatlabel.Align=AlLeft;

  Fiyatlabel.Margins.Left=10;

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

  Fiyatlabel.clProSettings.FontSize = 20;

  Fiyatlabel.clProSettings.FontVertAlign = palcenter;

  Fiyatlabel.clProSettings.FontHorzAlign = palLeading;

  Fiyatlabel.clProSettings.TextSettings.Font.Style = [fsBold];

  Fiyatlabel.clProSettings.IsFill = True; 

  Fiyatlabel.clProSettings.IsRound = True;

  Fiyatlabel.SetclProSettings(Fiyatlabel.clProSettings);

  

   satinalma=Bilgiekrani.AddNewProButton(ProPanel1,'satinalma','Satın Al')

   satinalma.Height=30;

   satinalma.Width=100;

   satinalma.Margins.Right=10;

   satinalma.Align=alRight;

   satinalma.Margins.Top=5;

   satinalma.Margins.Bottom=5;

   satinalma.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   satinalma.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   satinalma.ClProSettings.RoundWidth=20;

   satinalma.ClProSettings.RoundHeight=20;

   satinalma.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   satinalma.ClProSettings.FontSize=22;

   satinalma.ClProSettings.borderWidth=2;

   satinalma.SetClProSettings(satinalma.ClProSettings);

   Bilgiekrani.AddNewEvent(satinalma,tbeOnClick,'satissayfasinagit');

  

   sepeteeklemebtn=Bilgiekrani.AddNewProButton(ProPanel1,'sepeteeklemebtn','Sepete Ekle')

   sepeteeklemebtn.Height=20;

   sepeteeklemebtn.Width=130;

   sepeteeklemebtn.Margins.Right=10;

   sepeteeklemebtn.Align=alRight;

   sepeteeklemebtn.Margins.Top=10;

   sepeteeklemebtn.Margins.Bottom=10;

   sepeteeklemebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   sepeteeklemebtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   sepeteeklemebtn.ClProSettings.RoundWidth=20;

   sepeteeklemebtn.ClProSettings.RoundHeight=20;

   sepeteeklemebtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   sepeteeklemebtn.ClProSettings.FontSize=22;

   sepeteeklemebtn.ClProSettings.borderWidth=2;

   sepeteeklemebtn.SetClProSettings(sepeteeklemebtn.ClProSettings);

   Bilgiekrani.AddNewEvent(sepeteeklemebtn,tbeOnClick,'getdatesepet2');

  

  Bilgiekrani.Run;

  getdata5;

  

}

void tasarim3

{

  getdata7;

   Unit1 = TclUnit.Create;

   Bilgiekrani=TclForm.Create(Self);

   vScroll = Bilgiekrani.AddNewVertScrollBox(Bilgiekrani,'ScrollBoxY');

   vScroll.Align = alClient;

  // vScroll.ShowSrollBars = True;

   

  ProPanel1=Bilgiekrani.AddNewProPanel(Bilgiekrani,'ProPanel1');

  ProPanel1.Align = alBottom;

 // ProPanel1.Width = 200;

  ProPanel1.Height = 100;

  ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#979685');

  ProPanel1.clProSettings.RoundHeight = 10;

  ProPanel1.clProSettings.RoundWidth = 10;

  ProPanel1.clProSettings.BorderWidth = 2;

  ProPanel1.clProSettings.IsFill = True; 

  ProPanel1.clProSettings.IsRound = True;

  ProPanel1.SetclProSettings(ProPanel1.clProSettings);

  

   isimbtn=Bilgiekrani.AddNewProButton(vScroll,'isimbtn','Ürün bilgisi')

   isimbtn.Height=50;

   isimbtn.Width=250;

   //isimbtn.Align=alTop;

   //isimbtn.Margins.Top=15;

   isimbtn.Margins.Left=10;

   isimbtn.Margins.Right=10;

   isimbtn.Align=alTop;

   //isimbtn.Margins.Bottom=0;

   isimbtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   isimbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   isimbtn.ClProSettings.RoundWidth=20;

   isimbtn.ClProSettings.RoundHeight=20;

   isimbtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   isimbtn.ClProSettings.FontSize=30;

   isimbtn.ClProSettings.borderWidth=2;

   isimbtn.SetClProSettings(isimbtn.ClProSettings);

   Bilgiekrani.AddNewEvent(isimbtn,tbeOnClick,'');

   

  bilgiresmi = Bilgiekrani.AddNewProImage(vScroll,'bilgiresmi');

  bilgiresmi.Margins.Top=10;

  bilgiresmi.Height = 550;

  bilgiresmi.Align=alTop;

  bilgiresmi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#6f35b6');

  bilgiresmi.clProSettings.FontColor = clAlphaColor.clDarkorchid;

  bilgiresmi.clProSettings.RoundHeight = 10;

  bilgiresmi.clProSettings.RoundWidth = 10;

  bilgiresmi.clProSettings.BorderWidth = 2;

  bilgiresmi.clProSettings.IsFill = True; 

  bilgiresmi.clProSettings.IsRound = True;

  bilgiresmi.clProSettings.PictureSource = fofoto;

  bilgiresmi.clProSettings.PictureAutoFit = True;

  bilgiresmi.SetclProSettings(bilgiresmi.clProSettings);

  

  markalabel = Bilgiekrani.AddNewProLabel(vScroll,'markalabel',adadet);

  markalabel.Width = 250;

  markalabel.Height = 30;

  markalabel.Align=alTop;

  markalabel.Margins.Left=10;

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

  markalabel.clProSettings.FontSize = 20;

  markalabel.clProSettings.FontVertAlign = palcenter;

  markalabel.clProSettings.FontHorzAlign = palLeading;

  markalabel.clProSettings.TextSettings.Font.Style = [fsBold];

  markalabel.clProSettings.IsFill = True; 

  markalabel.clProSettings.IsRound = True;

  markalabel.SetclProSettings(markalabel.clProSettings);

  

  modelilabel = Bilgiekrani.AddNewProLabel(vScroll,'modelilabel',momodel);

  modelilabel.Width = 250;

  modelilabel.Height = 30;

  modelilabel.Align=alTop;

  modelilabel.Margins.Left=10;

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

  modelilabel.clProSettings.FontSize = 20;

  modelilabel.clProSettings.FontVertAlign = palcenter;

  modelilabel.clProSettings.FontHorzAlign = palLeading;

  modelilabel.clProSettings.TextSettings.Font.Style = [fsBold];

  modelilabel.clProSettings.IsFill = True; 

  modelilabel.clProSettings.IsRound = True;

  modelilabel.SetclProSettings(modelilabel.clProSettings);

  

   PListView1 = Bilgiekrani.AddNewProListView(vScroll,'PListView1');

   PListView1.Properties.ItemSpace = 10;

   clComponent.SetupComponent(PListView1,'{"Height" : 300,"Align":"Top","MarginBottom":20,"MarginTop":20, "ListType":"Cart","ItemColumnCount" : 2,"ItemHeight" : 350,"ItemWidth":150, 

   "BorderColor":"#F5BCC9", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');

   PListView1.ListType = 'horizontal';

   Bilgiekrani.AddNewEvent(PListView1,tbeOnItemClick,'tasarim3');

   

   DesignerPanel1 = Bilgiekrani.AddNewProListViewDesignerPanel(PListView1,'DesignerPanel1'); 

   clComponent.SetupComponent(DesignerPanel1,'{"Height":200,"Width" : 150,"BackgroundColor":"#F6EDDB","BorderColor":"#F5BCC9","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}');

   PListView1.SetDesignerPanel(DesignerPanel1);

  

  taskImg2 = Bilgiekrani.AddNewProImage(DesignerPanel1, 'taskImg2');

  taskImg2.Align = alTop;

  taskImg2.Margins.Top = 10;

  taskImg2.Margins.Left=10;

  taskImg2.Margins.Right=10;

  taskImg2.Height=200;

  taskImg2.Width=150;

  DesignerPanel1.AddPanelObject(taskImg2, clImage1);

  taskName = Bilgiekrani.AddNewProLabel(DesignerPanel1, 'taskName', 'test');

  taskName.Align = AlCenter;

  taskName.Height =30;

  taskName.Margins.Right = 10;

  taskName.Margins.Left = 10;

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

  taskName.clProSettings.FontSize = 20;

  DesignerPanel1.AddPanelObject(taskName, clText);

  

  Fiyatlabel = Bilgiekrani.AddNewProLabel(ProPanel1,'Fiyatlabel',fifiyat);

  Fiyatlabel.Width = 250;

  Fiyatlabel.Height = 30;

  Fiyatlabel.Align=AlLeft;

  Fiyatlabel.Margins.Left=10;

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

  Fiyatlabel.clProSettings.FontSize = 20;

  Fiyatlabel.clProSettings.FontVertAlign = palcenter;

  Fiyatlabel.clProSettings.FontHorzAlign = palLeading;

  Fiyatlabel.clProSettings.TextSettings.Font.Style = [fsBold];

  Fiyatlabel.clProSettings.IsFill = True; 

  Fiyatlabel.clProSettings.IsRound = True;

  Fiyatlabel.SetclProSettings(Fiyatlabel.clProSettings);

  

  satinalma=Bilgiekrani.AddNewProButton(ProPanel1,'satinalma','Satın Al')

   satinalma.Height=30;

   satinalma.Width=100;

   satinalma.Margins.Right=10;

   satinalma.Align=alRight;

   satinalma.Margins.Top=5;

   satinalma.Margins.Bottom=5;

   satinalma.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   satinalma.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   satinalma.ClProSettings.RoundWidth=20;

   satinalma.ClProSettings.RoundHeight=20;

   satinalma.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   satinalma.ClProSettings.FontSize=22;

   satinalma.ClProSettings.borderWidth=2;

   satinalma.SetClProSettings(satinalma.ClProSettings);

   Bilgiekrani.AddNewEvent(satinalma,tbeOnClick,'satissayfasinagit');

  

  sepeteeklemebtn=Bilgiekrani.AddNewProButton(ProPanel1,'sepeteeklemebtn','Sepete Ekle')

   sepeteeklemebtn.Height=20;

   sepeteeklemebtn.Width=130;

   sepeteeklemebtn.Margins.Right=10;

   sepeteeklemebtn.Align=alRight;

   sepeteeklemebtn.Margins.Top=10;

   sepeteeklemebtn.Margins.Bottom=10;

   sepeteeklemebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   sepeteeklemebtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   sepeteeklemebtn.ClProSettings.RoundWidth=20;

   sepeteeklemebtn.ClProSettings.RoundHeight=20;

   sepeteeklemebtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   sepeteeklemebtn.ClProSettings.FontSize=22;

   sepeteeklemebtn.ClProSettings.borderWidth=2;

   sepeteeklemebtn.SetClProSettings(sepeteeklemebtn.ClProSettings);

   Bilgiekrani.AddNewEvent(sepeteeklemebtn,tbeOnClick,'getdatesepet');

  

  Bilgiekrani.Run;

  getdata5;

}

void kategoricekmee

{

  try

    Qry1 = Clomosy.DBSQLiteQueryWith('SELECT KategoriAdi as taskName12 FROM Kategoriler');

    Qry1.OpenOrExecute;

    

    ListView12.clLoadProListViewDataFromDataset(Qry1);

   except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

   }

   

}

void kategoricek

{

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT KategoriAdi as taskName13 FROM Kategoriler');

    Qry.OpenOrExecute;

    ShowMessage(Qry.RecordCount);

    while( not Qry.EOF){

      ShowMessage(Qry.FieldByName('KategoriAdi').AsString);

      Qry.Next;

    }

    

    ListView13.clLoadProListViewDataFromDataset(Qry);

   except

    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

   }

}

void hesaplasma

{

   try

     Qry = Clomosy.DBSQLiteQueryWith('SELECT Adi as Label1,Resmi as taskImg FROM Esyaninbilgisi WHERE Kategori = ' + QuotedStr(ListView12.clSelectedItemData(clText)));

     Qry.OpenOrExecute;

     rrrr.clLoadProListViewDataFromDataset(Qry);

    

   except

    //ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

   }

  

}

 void MyExpanderClick2;

 {

     senderExpander1 = TclExpander(sss.clSender);

    // ShowMessage(senderExpander.Text);

     senderExpander1.IsExpanded = Not senderExpander1.IsExpanded;

}

void aaaa

{ 

   

   sss=TCLForm.CREATE(Self);

   searchEdt = sss.AddNewProSearchEdit(sss,'searchEdt','Search Something ...');

   searchEdt.Align = alTop;

   searchEdt.Margins.Top = 15;

   searchEdt.Margins.Left = 15;

   searchEdt.Margins.Right = 15;

   searchEdt.Margins.Bottom = 10;

   searchEdt.Height = 40;

  

   secmeanasayfabtn=sss.AddNewProButton(sss,'secmeanasayfabtn','AnaSayfa');

   secmeanasayfabtn.Height=50;

   secmeanasayfabtn.Width=110;

   secmeanasayfabtn.Align=alCenter;

   secmeanasayfabtn.Margins.Top=30;

   secmeanasayfabtn.Margins.Left=10;

   secmeanasayfabtn.Margins.Right=10;

   secmeanasayfabtn.Margins.Bottom=700;

   secmeanasayfabtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   secmeanasayfabtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   secmeanasayfabtn.ClProSettings.RoundWidth=20;

   secmeanasayfabtn.ClProSettings.RoundHeight=20;

   secmeanasayfabtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   secmeanasayfabtn.ClProSettings.FontSize=16;

   secmeanasayfabtn.ClProSettings.borderWidth=2;

   secmeanasayfabtn.SetClProSettings(secmeanasayfabtn.ClProSettings);

   sss.AddNewEvent(secmeanasayfabtn,tbeOnClick,'sasa');

   

   /*secmekategoribtn=sss.AddNewProButton(sss,'secmekategoribtn','Kategoriler');

   secmekategoribtn.Height=50;

   secmekategoribtn.Width=110;

   secmekategoribtn.Align=alCenter;

   secmekategoribtn.Margins.Top=30;

   secmekategoribtn.Margins.Left=10;

   secmekategoribtn.Margins.Right=10;

   secmekategoribtn.Margins.Bottom=700;

   secmekategoribtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   secmekategoribtn.ClProSettings.RoundWidth=20;

   secmekategoribtn.ClProSettings.RoundHeight=20;

   secmekategoribtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   secmekategoribtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   secmekategoribtn.ClProSettings.FontSize=16;

   secmekategoribtn.ClProSettings.borderWidth=2;

   secmekategoribtn.SetClProSettings(secmekategoribtn.ClProSettings);

   sss.AddNewEvent(secmekategoribtn,tbeOnClick,'kategolilersayfalari');*/

   

    MyExpander2= sss.AddNewExpander(sss,'MyExpander2','Kategoriler');

   MyExpander2.Align=alNone;

   MyExpander2.Position.X =10;

   MyExpander2.Position.Y =120;

   MyExpander2.Width=130;

   MyExpander2.Height=700;

   MyExpander2.IsExpanded =False;

   

   sss.AddNewEvent(MyExpander2,tbeOnClick,'MyExpanderClick2'); 

  

   MyLayout2= sss.AddNewLayout(MyExpander2,'Kategotiler');

   MyLayout2.Align = alClient;

   

  ListView13 = sss.AddNewProListView(MyLayout2,'ListView13');

 // ListView12.Align = alTop;

 // ListView12.Align = AlClient;

  ListView13.Width=250;

  ListView13.Height=500;

  ListView13.Align=AlLeft;

  ListView13.Margins.Top = 20;

  ListView13.Margins.Right = 20;

  //ListView12.Margins.Left = 20;

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

  ListView13.clProSettings.ColCount = 1;

  ListView13.clProSettings.ItemHeight = 100;

  ListView13.clProSettings.ItemSpace = 10;

  ListView13.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');

  ListView13.clProSettings.BorderColor = clAlphaColor.clHexToColor('#66FF7F');

  ListView13.clProSettings.BorderWidth = 2;

  ListView13.clProSettings.RoundHeight = 5;

  ListView13.clProSettings.RoundWidth = 5;

  ListView13.SetclProSettings(ListView13.clProSettings);

  

  DesignerPanel13 = sss.AddNewProListViewDesignerPanel(ListView13, 'DesignerPanel13');

  DesignerPanel13.Height = 50;

  DesignerPanel13.Width = 75;

  DesignerPanel13.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B3FCE5');

  DesignerPanel13.clProSettings.BorderColor = clAlphaColor.clHexToColor('#16FF8C');

  DesignerPanel13.clProSettings.BorderWidth = 2;

  DesignerPanel13.clProSettings.RoundHeight = 20;

  DesignerPanel13.clProSettings.RoundWidth = 20;

  DesignerPanel13.SetclProSettings(DesignerPanel13.clProSettings);

  ListView13.SetDesignerPanel(DesignerPanel13);

  

  

  taskName13 = sss.AddNewProLabel(DesignerPanel13, 'taskName13', 'test');

  taskName13.Align = alCenter;

  taskName13.Height =50;

  taskName13.Margins.Bottom = 10;

  taskName13.Margins.Top = 40;

  taskName13.Margins.Right = 20;

  taskName13.Margins.Left = 80;

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

  taskName13.clProSettings.FontSize =80;

  DesignerPanel13.AddPanelObject(taskName13, clText);

    

  sss.AddNewEvent(ListView13,tbeOnItemClick,'aaaa');

   

   secmesepet=sss.AddNewProButton(sss,'secmesepet','Sepetim');

   secmesepet.Height=50;

   secmesepet.Width=110;

   secmesepet.Align=alCenter;

   secmesepet.Margins.Top=30;

   secmesepet.Margins.Left=250;

   secmesepet.Margins.Right=10;

   secmesepet.Margins.Bottom=700;

   secmesepet.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   secmesepet.ClProSettings.RoundWidth=20;

   secmesepet.ClProSettings.RoundHeight=20;

   secmesepet.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   secmesepet.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   secmesepet.ClProSettings.FontSize=16;

   secmesepet.ClProSettings.borderWidth=2;

   secmesepet.SetClProSettings(secmesepet.ClProSettings);

   sss.AddNewEvent(secmesepet,tbeOnClick,'CreateListView');

   

   rrrr = sss.AddNewProListView(sss,'rrrr');

   rrrr.Properties.ItemSpace = 10;

   clComponent.SetupComponent(rrrr,'{"Height" : 130,"Align":"Client","MarginBottom":0,"MarginTop":50,"MarginRight":0,"MarginLeft":0, "ListType":"Cart","ItemColumnCount" : 2,"ItemHeight" : 450,"ItemWidth":100, 

   "BorderColor":"#F5BCC9", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');

   searchEdt.TargetListView = rrrr; 

   

   desigerpanell1 = sss.AddNewProListViewDesignerPanel(rrrr,'desigerpanell1');

   desigerpanell1.Height=200;

   desigerpanell1.Width=50

   desigerpanell1.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F6EDDB');

   desigerpanell1.clProSettings.BorderColor=clAlphaColor.clHexToColor('#F5BCC9');

   desigerpanell1.clProSettings.BorderWidth = 2;

   desigerpanell1.clProSettings.RoundHeight = 20;

   desigerpanell1.clProSettings.RoundWidth = 20;

   desigerpanell1.SetclProSettings(desigerpanell1.clProSettings);

   rrrr.SetDesignerPanel(desigerpanell1);

  taskImg = sss.AddNewProImage(desigerpanell1, 'taskImg');

  taskImg.Margins.Top = 2;

  taskImg.Margins.Bottom=165;

  taskImg.Height=150;

  taskImg.Width=150;

  desigerpanell1.AddPanelObject(taskImg, clImage1);

  Label1 = sss.AddNewProLabel(desigerpanell1,'Label1','Clomosy PROLABEL');

  Label1.Margins.Top = 290;

  Label1.Margins.Bottom=70;

  Label1.Width = 165;

  Label1.Height = 30;

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

  Label1.clProSettings.FontSize = 12;

  Label1.clProSettings.FontVertAlign = palcenter;

  Label1.clProSettings.FontHorzAlign = palLeading;

  Label1.clProSettings.TextSettings.Font.Style = [fsBold];

  Label1.clProSettings.IsFill = True; 

  Label1.clProSettings.IsRound = True;

  desigerpanell1.AddPanelObject(Label1, clText);

  Label1.SetclProSettings(Label1.clProSettings);

  sss.AddNewEvent(rrrr,tbeOnItemClick,'tasarim2');

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

 sss.Run;

 hesaplasma;

 kategoricek;

 /*getdata6;

 getdata5;*/

 

}

void sasa{

  form1.Run;

}

 void MyExpanderClick;

 {

     senderExpander = TclExpander(form1.clSender);

    // ShowMessage(senderExpander.Text);

     senderExpander.IsExpanded = Not senderExpander.IsExpanded;

}

void getdateurunlistelemekul

 {

     try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT Resmi as taskImg,Adi as Label1 FROM Esyaninbilgisi');

    Qry.OpenOrExecute;

    kullanicilistview.clLoadProListViewDataFromDataset(Qry);

   except

    //ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

   }

 }

 

{

    Qry2 = Clomosy.DBSQLiteQueryWith('SELECT total  FROM kulanicibilgisi WHERE E_posta ='+QuotedStr(Clomosy.GlobalVariableString));

    Qry2.OpenOrExecute;

    bgbg=Qry2.FieldByName('total').AsString;

  form1=TCLForm.Create(Self);

    searchEdt = form1.AddNewProSearchEdit(form1,'searchEdt','Search Something ...');

   searchEdt.Align = alTop;

   searchEdt.Margins.Top = 15;

   searchEdt.Margins.Left = 15;

   searchEdt.Margins.Right = 15;

   searchEdt.Margins.Bottom = 10;

   searchEdt.Height = 40;

   

   kullanicilistview = form1.AddNewProListView(form1,'kullanicilistview');

   kullanicilistview.Properties.ItemSpace = 10;

   clComponent.SetupComponent(kullanicilistview,'{"Height" : 130,"Align":"Client","MarginBottom":0,"MarginTop":50,"MarginRight":0,"MarginLeft":0, "ListType":"Cart","ItemColumnCount" : 2,"ItemHeight" : 350,"ItemWidth":100, 

   "BorderColor":"#F5BCC9", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');

   searchEdt.TargetListView = kullanicilistview;

   secmeanasayfabtn=form1.AddNewProButton(form1,'secmeanasayfabtn','AnaSayfa');

   secmeanasayfabtn.Height=50;

   secmeanasayfabtn.Width=110;

   secmeanasayfabtn.Align=alCenter;

   secmeanasayfabtn.Margins.Top=30;

   secmeanasayfabtn.Margins.Left=10;

   secmeanasayfabtn.Margins.Right=10;

   secmeanasayfabtn.Margins.Bottom=700;

   secmeanasayfabtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   secmeanasayfabtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   secmeanasayfabtn.ClProSettings.RoundWidth=20;

   secmeanasayfabtn.ClProSettings.RoundHeight=20;

   secmeanasayfabtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   secmeanasayfabtn.ClProSettings.FontSize=16;

   secmeanasayfabtn.ClProSettings.borderWidth=2;

   secmeanasayfabtn.SetClProSettings(secmeanasayfabtn.ClProSettings);

   form1.AddNewEvent(secmeanasayfabtn,tbeOnClick,'sasa');

   

   /*secmekategoribtn=form1.AddNewProButton(form1,'secmekategoribtn','Kategoriler');

   secmekategoribtn.Height=50;

   secmekategoribtn.Width=110;

   secmekategoribtn.Align=alCenter;

   secmekategoribtn.Margins.Top=30;

   secmekategoribtn.Margins.Left=10;

   secmekategoribtn.Margins.Right=10;

   secmekategoribtn.Margins.Bottom=700;

   secmekategoribtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   secmekategoribtn.ClProSettings.RoundWidth=20;

   secmekategoribtn.ClProSettings.RoundHeight=20;

   secmekategoribtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   secmekategoribtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   secmekategoribtn.ClProSettings.FontSize=16;

   secmekategoribtn.ClProSettings.borderWidth=2;

   secmekategoribtn.SetClProSettings(secmekategoribtn.ClProSettings);

   form1.AddNewEvent(secmekategoribtn,tbeOnClick,'kategolilersayfalari');*/

   

   

   MyExpander1= form1.AddNewExpander(form1,'MyExpander1','Kategoriler');

   MyExpander1.Align=alNone;

   MyExpander1.Position.X =10;

   MyExpander1.Position.Y =120;

   MyExpander1.Width=130;

   MyExpander1.Height=700;

   MyExpander1.IsExpanded =False;

   

   form1.AddNewEvent(MyExpander1,tbeOnClick,'MyExpanderClick'); 

  

   MyLayout1= form1.AddNewLayout(MyExpander1,'Kategotiler');

   MyLayout1.Align = alClient;

   

  ListView12 = form1.AddNewProListView(MyLayout1,'ListView12');

 // ListView12.Align = alTop;

 // ListView12.Align = AlClient;

  ListView12.Width=250;

  ListView12.Height=500;

  ListView12.Align=AlLeft;

  ListView12.Margins.Top = 20;

  ListView12.Margins.Right = 20;

  //ListView12.Margins.Left = 20;

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

  ListView12.clProSettings.ColCount = 1;

  ListView12.clProSettings.ItemHeight = 100;

  ListView12.clProSettings.ItemSpace = 10;

  ListView12.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');

  ListView12.clProSettings.BorderColor = clAlphaColor.clHexToColor('#66FF7F');

  ListView12.clProSettings.BorderWidth = 2;

  ListView12.clProSettings.RoundHeight = 5;

  ListView12.clProSettings.RoundWidth = 5;

  ListView12.SetclProSettings(ListView12.clProSettings);

  

   DesignerPanel12 = form1.AddNewProListViewDesignerPanel(ListView12, 'DesignerPanel12');

  DesignerPanel12.Height = 50;

  DesignerPanel12.Width = 75;

  DesignerPanel12.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B3FCE5');

  DesignerPanel12.clProSettings.BorderColor = clAlphaColor.clHexToColor('#16FF8C');

  DesignerPanel12.clProSettings.BorderWidth = 2;

  DesignerPanel12.clProSettings.RoundHeight = 20;

  DesignerPanel12.clProSettings.RoundWidth = 20;

  DesignerPanel12.SetclProSettings(DesignerPanel12.clProSettings);

  ListView12.SetDesignerPanel(DesignerPanel12);

  

  

  taskName12 = form1.AddNewProLabel(DesignerPanel12, 'taskName12', 'test');

  taskName12.Align = alCenter;

  taskName12.Height =50;

  taskName12.Margins.Bottom = 10;

  taskName12.Margins.Top = 40;

  taskName12.Margins.Right = 20;

  taskName12.Margins.Left = 80;

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

  taskName12.clProSettings.FontSize =80;

  DesignerPanel12.AddPanelObject(taskName12, clText);

    

  form1.AddNewEvent(ListView12,tbeOnItemClick,'aaaa');

 

   

   secmesepet=form1.AddNewProButton(form1,'secmesepet','Sepetim');

   secmesepet.Height=50;

   secmesepet.Width=110;

   secmesepet.Align=alCenter;

   secmesepet.Margins.Top=30;

   secmesepet.Margins.Left=250;

   secmesepet.Margins.Right=10;

   secmesepet.Margins.Bottom=700;

   secmesepet.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#979685');

   secmesepet.ClProSettings.RoundWidth=20;

   secmesepet.ClProSettings.RoundHeight=20;

   secmesepet.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

   secmesepet.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#f1e9e9');

   secmesepet.ClProSettings.FontSize=16;

   secmesepet.ClProSettings.borderWidth=2;

   secmesepet.SetClProSettings(secmesepet.ClProSettings);

   form1.AddNewEvent(secmesepet,tbeOnClick,'CreateListView');

   desigerpanell1 = form1.AddNewProListViewDesignerPanel(kullanicilistview,'desigerpanell1');

   desigerpanell1.Height=150;

   desigerpanell1.Width=50

   desigerpanell1.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F6EDDB');

   desigerpanell1.clProSettings.BorderColor=clAlphaColor.clHexToColor('#F5BCC9');

   desigerpanell1.clProSettings.BorderWidth = 2;

   desigerpanell1.clProSettings.RoundHeight = 20;

   desigerpanell1.clProSettings.RoundWidth = 20;

   desigerpanell1.SetclProSettings(desigerpanell1.clProSettings);

   kullanicilistview.SetDesignerPanel(desigerpanell1);

  taskImg = form1.AddNewProImage(desigerpanell1, 'taskImg');

  taskImg.Margins.Top = 2;

  taskImg.Margins.Bottom=165;

  taskImg.Height=150;

  taskImg.Width=150;

  desigerpanell1.AddPanelObject(taskImg, clImage1);

  Label1 = form1.AddNewProLabel(desigerpanell1,'Label1','');

  Label1.Margins.Top = 290;

  Label1.Margins.Bottom=70;

  Label1.Width = 165;

  Label1.Height = 30;

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

  Label1.clProSettings.FontSize = 12;

  Label1.clProSettings.FontVertAlign = palcenter;

  Label1.clProSettings.FontHorzAlign = palLeading;

  Label1.clProSettings.TextSettings.Font.Style = [fsBold];

  Label1.clProSettings.IsFill = True; 

  Label1.clProSettings.IsRound = True;

  desigerpanell1.AddPanelObject(Label1, clText);

  Label1.SetclProSettings(Label1.clProSettings);

  

 

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ayakkabisatisplatform.db3', '');

   form1.AddNewEvent(kullanicilistview,tbeOnItemClick,'tasarim');

  form1.Run;

  kategoricekmee;

 // hesaplasma;

  getdateurunlistelemekul;

  

  

  

  

  

}

kategorivericekmee metodunda veriyi çekip TclExpander oluşturduğum Myexpander1 deki Listwiev12 yazdırıyorum ama kategorivericek metodunda aynı şekilde veri çekip

Myexpander2 deki Listwiev13 yazdırmak istiyorum ama veri gözükmüyor nasıl çözebilirim

yardımcı olur musunuz?
iyi çalışmalar diliyorum.