var

Form1:TclForm;

isimedit,cevapedit:TCLProEdit;

yorumlarbaslik:TclProButton;

yil1,yil2,yil3,yil4,yil5,gonderbtn:TclProButton;

deger,adad,resmimi:String;

incomingProductList,i:Integer;

Unit1 :TclUnit;

void bosyildiz

{

  deger='0';

  yil1.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil1.SetclProSettings(yil1.clProSettings);

  Form1.AddNewEvent(yil1,tbeOnClick,'yildiz1');

  yil2.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil2.SetclProSettings(yil2.clProSettings);

  Form1.AddNewEvent(yil2,tbeOnClick,'yildiz2');

   yil3.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil3.SetclProSettings(yil3.clProSettings);

  Form1.AddNewEvent(yil3,tbeOnClick,'yildiz3');

   yil4.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil4.SetclProSettings(yil4.clProSettings);

  Form1.AddNewEvent(yil4,tbeOnClick,'yildiz4');

   yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

  Form1.AddNewEvent(yil5,tbeOnClick,'yildiz5');

  

  

}

void yildiz1

{

  deger='1';

  yil1.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil1.SetclProSettings(yil1.clProSettings);

  Form1.AddNewEvent(yil1,tbeOnClick,'bosyildiz');

  yil2.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil2.SetclProSettings(yil2.clProSettings);

   yil3.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil3.SetclProSettings(yil3.clProSettings);

   yil4.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil4.SetclProSettings(yil4.clProSettings);

   yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

  

}

void yildiz2

{

   deger='2';

   yil1.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil1.SetclProSettings(yil1.clProSettings);

   yil2.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil2.SetclProSettings(yil2.clProSettings);

  Form1.AddNewEvent(yil2,tbeOnClick,'bosyildiz');

   yil3.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil3.SetclProSettings(yil3.clProSettings);

   yil4.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil4.SetclProSettings(yil4.clProSettings);

   yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

}

void yildiz3

{

  deger='3';

  yil1.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil1.SetclProSettings(yil1.clProSettings);

   yil2.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil2.SetclProSettings(yil2.clProSettings);

   yil3.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil3.SetclProSettings(yil3.clProSettings);

  Form1.AddNewEvent(yil3,tbeOnClick,'bosyildiz');

  yil4.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil4.SetclProSettings(yil4.clProSettings);

   yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

  yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

}

void yildiz4

{

   deger='4';

   yil1.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil1.SetclProSettings(yil1.clProSettings);

  yil2.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil2.SetclProSettings(yil2.clProSettings);

   yil3.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil3.SetclProSettings(yil3.clProSettings);

   yil4.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil4.SetclProSettings(yil4.clProSettings);

  Form1.AddNewEvent(yil4,tbeOnClick,'bosyildiz');

  yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

}

void yildiz5

{

  deger='5';

   yil1.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil1.SetclProSettings(yil1.clProSettings);

   yil2.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil2.SetclProSettings(yil2.clProSettings);

   yil3.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil3.SetclProSettings(yil3.clProSettings);

   yil4.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil4.SetclProSettings(yil4.clProSettings);

   yil5.clProSettings.PictureSource = 'https://r.resimlink.com/6hJnI4B5g8Ck.png';

  yil5.SetclProSettings(yil5.clProSettings);

  Form1.AddNewEvent(yil5,tbeOnClick,'bosyildiz');

}

void insertyorum

{

  resmimi='https://r.resimlink.com/cIjO-ub_N4M.png';

  incomingProductList = Clomosy.StringListNew;

  incomingProductList = Clomosy.GlobalVariableStringList;

   for (i = 0 to incomingProductList.count - 1)

   {

     if(0==i){

       adad=Clomosy.StringListItemString(incomingProductList,i);

     }

     /*if(1==i){

       foto=Clomosy.StringListItemString(incomingProductList,i);

     }

     if(2==i){

       fiyat=Clomosy.StringListItemString(incomingProductList,i);

     }

     if(3==i){

       markasi=Clomosy.StringListItemString(incomingProductList,i);

     }*/

   }

  try

    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Yorumbilgisi (Esyaisim, Resim,Ad_soyad,Cevap,YildizPuan) VALUES ('+QuotedStr(adad)+', '+QuotedStr(resmimi)+',' +QuotedStr(isimedit.Text)+',' +QuotedStr(cevapedit.Text)+',' +QuotedStr(deger)+')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Kayıt Olundu!');

    ShowMessage(deger);

  except

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

  }

  

  Form1.clShow;

  Unit1.UnitName = 'yorumsayfasi';

  Unit1.CallerForm = Form1;

  Unit1.Run;

  

}

{

  Form1 = TclForm.Create(Self);

  Unit1 = TclUnit.Create;

  yorumlarbaslik = Form1.AddNewProButton(Form1,'yorumlarbaslik','Yorum Sayfası');

   yorumlarbaslik.Align = alTop;

   yorumlarbaslik.Width = 200;

   yorumlarbaslik.Height = 50;

   yorumlarbaslik.Margins.Right = 75;

   yorumlarbaslik.Margins.Left = 75;

   yorumlarbaslik.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1dc948');

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

   yorumlarbaslik.clProSettings.RoundHeight = 15;

   yorumlarbaslik.clProSettings.RoundWidth = 15;

   yorumlarbaslik.clProSettings.BorderWidth = 3;

   yorumlarbaslik.clProSettings.FontSize = 12;

   yorumlarbaslik.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

   yorumlarbaslik.clProSettings.FontHorzAlign = palCenter;

   yorumlarbaslik.clProSettings.IsFill = True; 

   yorumlarbaslik.clProSettings.IsRound = True;

   yorumlarbaslik.SetclProSettings(yorumlarbaslik.clProSettings);

   

  

   isimedit = Form1.AddNewProEdit(Form1,'isimedit','İsminizi Giriniz');

   isimedit.Align = alCenter;

   isimedit.Width = 200;

   isimedit.Height = 45;

   isimedit.Margins.Bottom= 500; 

   isimedit.Margins.Right= 180; 

   isimedit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');

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

   isimedit.clProSettings.RoundHeight = 15;

   isimedit.clProSettings.RoundWidth = 15;

   isimedit.clProSettings.BorderWidth = 3;

   isimedit.clProSettings.FontSize = 12;

   isimedit.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

   isimedit.clProSettings.FontHorzAlign = palCenter;

   isimedit.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

   isimedit.clProSettings.IsFill = True; 

   isimedit.clProSettings.IsRound = True;

   isimedit.SetclProSettings(isimedit.clProSettings);

   isimedit.SetFocus;

   

    cevapedit = Form1.AddNewProEdit(Form1,'cevapedit','');

   cevapedit.Width = 380;

   cevapedit.Height = 200;

   cevapedit.Margins.Bottom= 200; 

  // cevapedit.Margins.Right= 100; 

   cevapedit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');

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

   cevapedit.clProSettings.RoundHeight = 15;

   cevapedit.clProSettings.RoundWidth = 15;

   cevapedit.clProSettings.BorderWidth = 3;

   cevapedit.clProSettings.FontSize = 12;

   cevapedit.clProSettings.FontVertAlign = palLeading;//palLeading , palCenter , palTrailing

   cevapedit.clProSettings.FontHorzAlign = palCenter;

   cevapedit.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];

   cevapedit.clProSettings.IsFill = True; 

   cevapedit.clProSettings.IsRound = True;

   cevapedit.SetclProSettings(cevapedit.clProSettings);

   

  yil1=Form1.AddNewProButton(Form1,'yil1', '');

  yil1.Height=25;

  yil1.Width=25;

  yil1.Align=alCenter;

  yil1.Margins.Bottom =500;

  yil1.Margins.Left = 100;

  yil1.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil1.SetclProSettings(yil1.clProSettings);

  Form1.AddNewEvent(yil1,tbeOnClick,'yildiz1');

  

  yil2=Form1.AddNewProButton(Form1,'yil2', '');

  yil2.Height=25;

  yil2.Width=25;

  yil2.Align=alCenter;

  yil2.Margins.Bottom =500;

  yil2.Margins.Left = 150;

  yil2.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil2.SetclProSettings(yil2.clProSettings);

  Form1.AddNewEvent(yil2,tbeOnClick,'yildiz2');

  

  yil3=Form1.AddNewProButton(Form1,'yil3', '');

  yil3.Height=25;

  yil3.Width=25;

  yil3.Align=alCenter;

  yil3.Margins.Bottom =500;

  yil3.Margins.Left = 200;

  yil3.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil3.SetclProSettings(yil3.clProSettings);

  Form1.AddNewEvent(yil3,tbeOnClick,'yildiz3');

  

  yil4=Form1.AddNewProButton(Form1,'yil4', '');

  yil4.Height=25;

  yil4.Width=25;

  yil4.Align=alCenter;

  yil4.Margins.Bottom =500;

  yil4.Margins.Left = 250;

  yil4.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil4.SetclProSettings(yil4.clProSettings);

  Form1.AddNewEvent(yil4,tbeOnClick,'yildiz4');

  

  yil5=Form1.AddNewProButton(Form1,'yil5', '');

  yil5.Height=25;

  yil5.Width=25;

  yil5.Align=alCenter;

  yil5.Margins.Bottom =500;

  yil5.Margins.Left = 300;

  yil5.clProSettings.PictureSource = 'https://r.resimlink.com/r9PZ6wsoT.png';

  yil5.SetclProSettings(yil5.clProSettings);

  Form1.AddNewEvent(yil5,tbeOnClick,'yildiz5');

  

   gonderbtn=Form1.AddNewProButton(Form1,'onayla', 'Gönder');

   gonderbtn.Align=alCenter;

   gonderbtn.Height=50; 

   gonderbtn.Width=160; 

   gonderbtn.Margins.Top=100; 

   gonderbtn.Margins.Left=200; 

   gonderbtn.Margins.Right=20; 

   gonderbtn.Margins.Bottom=10; 

   gonderbtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#6332ec'); 

   gonderbtn.ClProSettings.RoundHeight=20;

   gonderbtn.ClProSettings.RoundWidth=10; 

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

   gonderbtn.ClProSettings.FontSize=16; 

   gonderbtn.ClProSettings.borderWidth=2; 

   gonderbtn.SetClProSettings(gonderbtn.ClProSettings);

   Form1.AddNewEvent(gonderbtn,tbeOnClick,'insertyorum');

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

  

  

  Form1.Run;

}