var

  signinform : TclForm;

  PanelForm : TclProPanel;

  Paneltext : TclProPanel;

  Panelkayitol :TclProPanel;

  Panelcontact :TclProPanel;

  titleLabel: TClProLabel;

  Label1: TClProLabel;

  Label2: TClProLabel;

  Label3: TClProLabel;

  Label4: TClProLabel;

  Label5: TClProLabel;

  Label6: TClProLabel;

  Label7: TClProLabel;

  Label8: TClProLabel;

  Label9: TClProLabel;

  titleLabellogin: TClProLabel;

  EmailEdit,ParolaEdit,nameEdit,ConfParolaEdit:TclProEdit;

  signbtn,logbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton;

  googlebtn:TClProButton;

  email,pass:String;

  SqliteQuery1 : TClSQLiteQuery;

  googleImg:TClProImage;

  emailImg,userImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage;

  logoImg,loginImg:TClProImage;

  UnitKayit :TclUnit;

  MainScroll: TCLVertScrollBox;

void veriTabani;

{

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

  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Users (Email TEXT, password TEXT)';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

}

void SetVeri;

{

  Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (Email, password) VALUES ('+QuotedStr('Ali222@gamil.com')+', '+QuotedStr('clomosy')+')';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

}

void getVeri(email,pass:String);

{

  SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT * FROM Users WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass));

  SqliteQuery1.OpenOrExecute;

  if(SqliteQuery1.Found)

  {

    ShowMessage('Welcome user '+email);

  }

  else

  {

    ShowMessage('Connection failed!!! Check your email and your password and try again');

  }

  SqliteQuery1.Close;

}

void connection;

{

  email = EmailEdit.Text;

  pass = ParolaEdit.Text;  

  getVeri(email,pass);

}

void kayitOl;

{

  UnitKayit.UnitName = 'ILK_PROJE';

  UnitKayit.CallerForm = signinform;

  UnitKayit.Run;

}

{

  signinform = TCLForm.Create(Self);

  signinform.SetFormBGImage('https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png');

  UnitKayit = TclUnit.Create;

  MainScroll = signinform.AddNewVertScrollBox(signinform,'MainScroll');

  MainScroll.Align = alClient;

  

  Paneltext = signinform.AddNewProPanel(MainScroll,'Paneltext');

  Paneltext.Align = alTop; 

  Paneltext.Height = 320;

  Paneltext.Margins.Left=20;

  Paneltext.Margins.Right=20;

  Paneltext.Margins.Bottom=20;

  Paneltext.clProSettings.IsRound = True;

  Paneltext.clProSettings.IsFill = True; 

  Paneltext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');

  Paneltext.SetclProSettings(Paneltext.clProSettings);

  

  logoImg=signinform.AddNewProImage(Paneltext, 'logoImg');

  logoImg.Align=alTop;

  logoImg.Margins.Left=10;

  logoImg.Margins.Top=5;

  logoImg.Margins.Bottom=5;

  logoImg.Width=90;

  logoImg.Height=90;

  signinform.SetImage(logoImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png');

  

  Label7 = signinform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');

  Label7.Align = alTop;

  Label7.Margins.Left=20;

  Label7.Margins.Right=10;

  Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label7.clProSettings.FontSize =33;

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

  Label7.clProSettings.WordWrap = True;

  Label7.clProSettings.AutoSize = True;

  Label7.SetclProSettings(Label7.clProSettings);

  

  Label6 = signinform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Create Your Account  to access our menus.');

  Label6.Align = alTop;

  Label6.Margins.Left=20;

  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label6.clProSettings.FontSize =17;

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

  Label6.clProSettings.WordWrap = True;

  Label6.clProSettings.AutoSize = True;

  Label6.SetclProSettings(Label6.clProSettings);

  

  PanelForm = signinform.AddNewProPanel(MainScroll,'PanelForm');

  PanelForm.Align = alTop; 

  PanelForm.Height =520;

  PanelForm.Margins.Left=20;

  PanelForm.Margins.Right=20;

  PanelForm.clProSettings.IsFill = False; 

  PanelForm.clProSettings.IsTransparent = True;

  PanelForm.clProSettings.IsRound = True;

  PanelForm.SetclProSettings(PanelForm.clProSettings);

  

  Label5 = signinform.AddNewProLabel(PanelForm,'Label5','SIGIN FORM');

  Label5.Align = alTop;

  Label5.Height =50;

  Label5.Margins.Left=100;

  Label5.Margins.Top=25;

  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label5.clProSettings.FontSize =35;

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

  Label5.SetclProSettings(Label5.clProSettings);

  

  Label8 = signinform.AddNewProLabel(PanelForm,'Label8','Enter Your User Name');

  Label8.Align = alTop;

  Label8.Height = 30;

  Label8.Margins.Left=20;

  Label8.Margins.Right=20;

  Label8.Margins.Top=10;

  Label8.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label8.clProSettings.FontSize = 17;

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

  Label8.SetclProSettings(Label8.clProSettings);

  

  nameEdit=signinform.AddNewProEdit(PanelForm, 'nameEdit', 'Enter your user name here');

  nameEdit.Align=alTop;

  nameEdit.Height=50;

  nameEdit.Margins.Left=20;

  nameEdit.Margins.Right=20;

  nameEdit.Margins.Bottom=10;

  nameEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');

  nameEdit.clProSettings.IsTransparent=True;

  nameEdit.clProSettings.IsRound=False;

  nameEdit.clProSettings.RoundWidth=10;

  nameEdit.clProSettings.RoundHeight=10;

  nameEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');

  nameEdit.clProSettings.BorderWidth=1;

  nameEdit.TextSettings.Font.Size=16;

  nameEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');

  nameEdit.SetclProSettings(nameEdit.clProSettings);

  

  userImg=signinform.AddNewProImage(nameEdit, 'userImg');

  userImg.Align=alLeft;

  userImg.Margins.Left=10;

  userImg.Margins.Top=5;

  userImg.Margins.Bottom=5;

  userImg.Width=25;

  signinform.SetImage(userImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png');

  

  Label2 = signinform.AddNewProLabel(PanelForm,'Label2','Enter Your Email');

  Label2.Align = alTop;

  Label2.Height = 30;

  Label2.Margins.Left=20;

  Label2.Margins.Right=20;

  Label2.Margins.Top=10;

  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label2.clProSettings.FontSize = 17;

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

  Label2.SetclProSettings(Label2.clProSettings);

  

  EmailEdit=signinform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here');

  EmailEdit.Align=alTop;

  EmailEdit.Height=50;

  EmailEdit.Margins.Left=20;

  EmailEdit.Margins.Right=20;

  EmailEdit.Margins.Bottom=20;

  EmailEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');

  EmailEdit.clProSettings.IsTransparent=True;

  EmailEdit.clProSettings.IsRound=False;

  EmailEdit.clProSettings.RoundWidth=10;

  EmailEdit.clProSettings.RoundHeight=10;

  EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');

  EmailEdit.clProSettings.BorderWidth=1;

  EmailEdit.TextSettings.Font.Size=16;

  EmailEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');

  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

  

  emailImg=signinform.AddNewProImage(EmailEdit, 'emailImg');

  emailImg.Align=alLeft;

  emailImg.Margins.Left=10;

  emailImg.Margins.Top=5;

  emailImg.Margins.Bottom=5;

  emailImg.Width=25;

  signinform.SetImage(emailImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png');

  

  Label3 = signinform.AddNewProLabel(PanelForm,'Label3','Enter Your PassWord');

  Label3.Align = alTop;

  Label3.Height = 30;

  Label3.Margins.Left=20;

  Label3.Margins.Right=20;

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

  Label3.clProSettings.FontSize = 17;

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

  Label3.SetclProSettings(Label3.clProSettings);

  

  ParolaEdit=signinform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here');

  ParolaEdit.Align=alTop;

  ParolaEdit.Height=40;

  ParolaEdit.Margins.Left=20;

  ParolaEdit.Margins.Right=20;

  ParolaEdit.Margins.Bottom=30;

  ParolaEdit.password=True;

  ParolaEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');

  ParolaEdit.clProSettings.IsTransparent=True;

  ParolaEdit.clProSettings.IsRound=False;

  ParolaEdit.clProSettings.RoundWidth=10;

  ParolaEdit.clProSettings.RoundHeight=10;

  ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');

  ParolaEdit.clProSettings.BorderWidth=1;

  ParolaEdit.TextSettings.Font.Size=16;

  ParolaEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');

  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  

  passImg=signinform.AddNewProImage(ParolaEdit, 'passImg');

  passImg.Align=alLeft;

  passImg.Margins.Left=10;

  passImg.Margins.Top=5;

  passImg.Margins.Bottom=5;

  passImg.Width=25;

  signinform.SetImage(passImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png');

  

  signbtn=signinform.AddNewProButton(PanelForm, 'signbtn', 'LogIn');

  signbtn.Align=alTop;

  signbtn.Height=50;

  signbtn.Margins.Left=20;

  signbtn.Margins.Right=20;

  signbtn.Margins.Bottom=10;

  signbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A');

  signbtn.clProSettings.RoundWidth=10;

  signbtn.clProSettings.RoundHeight=10;

  signbtn.clProSettings.FontSize=20;

  signbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

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

  signbtn.SetclProSettings(signbtn.clProSettings);

  signinform.AddNewEvent(signbtn, tbeOnClick, 'connection');

  

  Panelkayitol = signinform.AddNewProPanel(MainScroll,'Panelkayitol');

  Panelkayitol.Align = alTop; 

  Panelkayitol.Height =50;

  Panelkayitol.Margins.Left=20;

  Panelkayitol.Margins.Right=20;

  Panelkayitol.Margins.Bottom=20;

  Panelkayitol.clProSettings.IsFill = False; 

  Panelkayitol.clProSettings.IsTransparent = True;

  Panelkayitol.clProSettings.IsRound = True;

  Panelkayitol.SetclProSettings(Panelkayitol.clProSettings);

  

  Label1 = signinform.AddNewProLabel(Panelkayitol,'Label1','Hesap Yoksa Yeni Hesap Ac');

  Label1.Align = alLeft;

  Label1.Height = 35;

  Label1.Margins.Top=12;

  Label1.Width=200; 

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

  Label1.clProSettings.FontSize =17;

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

  Label1.SetclProSettings(Label1.clProSettings);

  

  logbtn=signinform.AddNewProButton(Panelkayitol, 'logbtn', 'KAYIT OL');

  logbtn.Align=alRight;

  logbtn.Height=35;

  logbtn.Margins.Right=25;

  logbtn.clProSettings.FontSize=17;

  logbtn.clProSettings.IsFill = False; 

  logbtn.clProSettings.IsTransparent = True;

  logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb');

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

  logbtn.SetclProSettings(logbtn.clProSettings);

  signinform.AddNewEvent(logbtn, tbeOnClick, 'kayitOl');

  

  Label4 = signinform.AddNewProLabel(PanelForm,'Label4','--- Bize Takip Unutmayiniz ---');

  Label4.Align = alTop;

  Label4.Height = 35;

  Label4.Margins.Left=75;

  Label4.Width=200; 

  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label4.clProSettings.FontSize =17;

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

  Label4.SetclProSettings(Label4.clProSettings);

  

  Panelcontact = signinform.AddNewProPanel(MainScroll,'Panelcontact');

  Panelcontact.Align = alTop; 

  Panelcontact.Height =50;

  Panelcontact.clProSettings.IsFill =False; 

  Panelcontact.clProSettings.IsTransparent = True;

  Panelcontact.clProSettings.IsRound = True;

  Panelcontact.SetclProSettings(Panelcontact.clProSettings);

  

  instabtn=signinform.AddNewProButton(Panelcontact, 'instabtn', '');

  instabtn.Align=alLeft;

  instabtn.Height=40;

  instabtn.clProSettings.FontSize=20;

  instabtn.clProSettings.IsFill =False; 

  instabtn.clProSettings.IsTransparent = True;

  instabtn.SetclProSettings(instabtn.clProSettings);

  signinform.AddNewEvent(instabtn, tbeOnClick, 'connection');

  

  instaImg=signinform.AddNewProImage(instabtn, 'instaImg');

  instaImg.Align=alLeft;

  instaImg.Margins.Left=20;

  instaImg.Margins.Top=5;

  instaImg.Margins.Bottom=5;

  instaImg.Width=30;

  signinform.SetImage(instaImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png');

  

  facebtn=signinform.AddNewProButton(Panelcontact, 'facebtn', '');

  facebtn.Align=alLeft;

  facebtn.Height=40;

  facebtn.clProSettings.FontSize=20;

  facebtn.clProSettings.IsFill =False; 

  facebtn.clProSettings.IsTransparent = True;

  facebtn.SetclProSettings(facebtn.clProSettings);

  signinform.AddNewEvent(facebtn, tbeOnClick, 'connection');

  

  faceImg=signinform.AddNewProImage(facebtn, 'faceImg');

  faceImg.Align=alLeft;

  faceImg.Margins.Top=5;

  faceImg.Margins.Bottom=5;

  faceImg.Width=30;

  signinform.SetImage(faceImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png');

  

  tikbtn=signinform.AddNewProButton(Panelcontact, 'tikbtn', '');

  tikbtn.Align=alLeft;

  tikbtn.Height=40;

  tikbtn.clProSettings.FontSize=20;

  tikbtn.clProSettings.IsFill =False; 

  tikbtn.clProSettings.IsTransparent = True;

  tikbtn.SetclProSettings(tikbtn.clProSettings);

  signinform.AddNewEvent(tikbtn, tbeOnClick, 'connection');

  

  tikImg=signinform.AddNewProImage(tikbtn, 'tikImg');

  tikImg.Align=alLeft;

  tikImg.Margins.Top=5;

  tikImg.Margins.Bottom=5;

  tikImg.Width=30;

  signinform.SetImage(tikImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png');

  

  xbtn=signinform.AddNewProButton(Panelcontact, 'xbtn', '');

  xbtn.Align=alLeft;

  xbtn.Height=40;

  xbtn.clProSettings.FontSize=20;

  xbtn.clProSettings.IsFill =False; 

  xbtn.clProSettings.IsTransparent = True;

  xbtn.SetclProSettings(xbtn.clProSettings);

  signinform.AddNewEvent(xbtn, tbeOnClick, 'connection');

  

  xImg=signinform.AddNewProImage(xbtn, 'xImg');

  xImg.Align=alLeft;

  xImg.Margins.Top=5;

  xImg.Margins.Bottom=5;

  xImg.Width=30;

  signinform.SetImage(xImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png');

  

  veriTabani;

  SetVeri;

  signinform.Run;

}

//Sign Page

var

signinform : TclForm;

PanelForm : TclProPanel;

Paneltext : TclProPanel;

Panelkayitol :TclProPanel;

Panelcontact :TclProPanel;

titleLabel: TClProLabel;

Label1: TClProLabel;

Label2: TClProLabel;

Label3: TClProLabel;

Label4: TClProLabel;

Label5: TClProLabel;

Label6: TClProLabel;

Label7: TClProLabel;

Label8: TClProLabel;

Label9: TClProLabel;

titleLabellogin: TClProLabel;

EmailEdit,ParolaEdit,nameEdit,ConfParolaEdit:TclProEdit;

signbtn,logbtn,instabtn,facebtn,tikbtn,xbtn:TClProButton;

googlebtn:TClProButton;

email,pass:String;

SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;

emailImg,userImg,passImg,instaImg,faceImg,tikImg,xImg:TClProImage;

logoImg,loginImg:TClProImage;

UnitKayit :TclUnit;

MainScroll: TCLVertScrollBox;

void veriTabani{

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

  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Users (Email TEXT, password TEXT)';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

}

void SetVeri{

  Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (Email, password) VALUES ('+QuotedStr('Ali222@gamil.com')+', '+QuotedStr('clomosy')+')';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

}

void getVeri(email,pass:String){

  SqliteQuery1 = Clomosy.DBSQLiteQueryWith('SELECT * FROM Users WHERE Email = '+QuotedStr(email)+' AND password='+QuotedStr(pass));

  SqliteQuery1.OpenOrExecute; // Open yerine OpenOrExecute kullanıldı

  if(SqliteQuery1.Found){

    ShowMessage('Welcome user '+email);

  }

  else{

    ShowMessage('Connection failed!!! Check your email and your password and try again');

  }

  SqliteQuery1.Close;

}

void connection

{

  email = EmailEdit.Text;

  pass = ParolaEdit.Text;  

  getVeri(email,pass);

}

void kayitOl{

  UnitKayit.UnitName = 'ILK_PROJE';

  UnitKayit.CallerForm = signinform;

  UnitKayit.Run;

}

{

  signinform = TCLForm.Create(Self);

  signinform.SetFormBGImage('https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img11.png');

  UnitKayit = TclUnit.Create;

  MainScroll = signinform.AddNewVertScrollBox(signinform,'MainScroll');

  MainScroll.Align = alClient;

  

 

  

  //panel text 

  Paneltext = signinform.AddNewProPanel(MainScroll,'Paneltext');

  Paneltext.Align = alTop; 

  Paneltext.Height =250;

  Paneltext.Margins.Left=20;

  Paneltext.Margins.Right=20;

  Paneltext.Margins.Bottom=20;

  Paneltext.clProSettings.IsRound = True;

  Paneltext.clProSettings.IsFill = True; 

  Paneltext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');

  //Paneltext.clProSettings.IsTransparent = True;

  Paneltext.SetclProSettings(Paneltext.clProSettings);

  

  //logo image 

  logoImg=signinform.AddNewProImage(Paneltext, 'logoImg');

  logoImg.Align=alTop;

  logoImg.Margins.Left=10;

  logoImg.Margins.Top=5;

  logoImg.Margins.Bottom=5;

  logoImg.Width=90;

  logoImg.Height=90;

  signinform.SetImage(logoImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img1.png');

  

  

  //Label 7

  Label7 = signinform.AddNewProLabel(Paneltext,'Label7','EVERY ASIAN FOOD IN ONE  HUB');

  Label7.Align = alTop;

  Label7.Margins.Left=20;

  Label7.Margins.Right=10;

  Label7.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label7.clProSettings.FontSize =33;

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

  Label7.clProSettings.WordWrap = True;

  Label7.clProSettings.AutoSize = True;

  Label7.SetclProSettings(Label7.clProSettings);

  

  

  //Label 6

  Label6 = signinform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Create Your Account  to access our menus.');

  Label6.Align = alTop;

  Label6.Margins.Left=20;

  //Label6.Margins.Right=10;

  Label6.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label6.clProSettings.FontSize =17;

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

  Label6.clProSettings.WordWrap = True;

  Label6.clProSettings.AutoSize = True;

  Label6.SetclProSettings(Label6.clProSettings);

  

  //panel login

  PanelForm = signinform.AddNewProPanel(MainScroll,'PanelForm');

  PanelForm.Align = alTop; 

  PanelForm.Height =520;

  PanelForm.Margins.Left=20;

  PanelForm.Margins.Right=20;

  PanelForm.clProSettings.IsFill = False; 

  PanelForm.clProSettings.IsTransparent = True;

  PanelForm.clProSettings.IsRound = True;

  PanelForm.SetclProSettings(PanelForm.clProSettings);

  

  //label 5

  Label5 = signinform.AddNewProLabel(PanelForm,'Label5','SIGIN FORM');

  Label5.Align = alTop;

  Label5.Height =50;

  Label5.Margins.Left=100;

  Label5.Margins.Top=25;

  Label5.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label5.clProSettings.FontSize =35;

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

  Label5.SetclProSettings(Label5.clProSettings);

  

  //Label for user name

  Label8 = signinform.AddNewProLabel(PanelForm,'Label8','Enter Your User Name');

  Label8.Align = alTop;

  Label8.Height = 30;

  Label8.Margins.Left=20;

  Label8.Margins.Right=20;

  Label8.Margins.Top=10;

  Label8.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label8.clProSettings.FontSize = 17;

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

  Label8.SetclProSettings(Label8.clProSettings);

  //edit for user Name

  nameEdit=signinform.AddNewProEdit(PanelForm, 'nameEdit', 'Enter your user name here')

  nameEdit.Align=alTop;

  nameEdit.Height=50;

  nameEdit.Margins.Left=20;

  nameEdit.Margins.Right=20;

  nameEdit.Margins.Bottom=10;

  nameEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');

  nameEdit.clProSettings.IsTransparent=True;

  nameEdit.clProSettings.IsRound=False;

  nameEdit.clProSettings.RoundWidth=10;

  nameEdit.clProSettings.RoundHeight=10;

  nameEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');

  nameEdit.clProSettings.BorderWidth=1;

  nameEdit.TextSettings.Font.Size=16;

  nameEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');

  nameEdit.SetclProSettings(nameEdit.clProSettings);

  

  userImg=signinform.AddNewProImage(nameEdit, 'userImg');

  userImg.Align=alLeft;

  userImg.Margins.Left=10;

  userImg.Margins.Top=5;

  userImg.Margins.Bottom=5;

  userImg.Width=25;

  signinform.SetImage(userImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png');

  

  //Label for email

  Label2 = signinform.AddNewProLabel(PanelForm,'Label2','Enter Your Email');

  Label2.Align = alTop;

  Label2.Height = 30;

  Label2.Margins.Left=20;

  Label2.Margins.Right=20;

  Label2.Margins.Top=10;

  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label2.clProSettings.FontSize = 17;

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

  Label2.SetclProSettings(Label2.clProSettings);

  

  

  //edit for Email

  EmailEdit=signinform.AddNewProEdit(PanelForm, 'EmailEdit', 'Enter your email here')

  EmailEdit.Align=alTop;

  EmailEdit.Height=50;;

  EmailEdit.Margins.Left=20;

  EmailEdit.Margins.Right=20;

  EmailEdit.Margins.Bottom=20;

  EmailEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');

  EmailEdit.clProSettings.IsTransparent=True;

  EmailEdit.clProSettings.IsRound=False;

  EmailEdit.clProSettings.RoundWidth=10;

  EmailEdit.clProSettings.RoundHeight=10;

  EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');

  EmailEdit.clProSettings.BorderWidth=1;

  EmailEdit.TextSettings.Font.Size=16;

  EmailEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');

  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

  

  emailImg=signinform.AddNewProImage(EmailEdit, 'emailImg');

  emailImg.Align=alLeft;

  emailImg.Margins.Left=10;

  emailImg.Margins.Top=5;

  emailImg.Margins.Bottom=5;

  emailImg.Width=25;

  signinform.SetImage(emailImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img5.png');

  

  

  //Lable for password 

  

  Label3 = signinform.AddNewProLabel(PanelForm,'Label3','Enter Your PassWord');

  Label3.Align = alTop;

  Label3.Height = 30;

  Label3.Margins.Left=20;

  Label3.Margins.Right=20;

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

  Label3.clProSettings.FontSize = 17;

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

  Label3.SetclProSettings(Label3.clProSettings);

  

  //edit for  password 

  ParolaEdit=signinform.AddNewProEdit(PanelForm, 'ParolaEdit', 'Enter your password here')

  ParolaEdit.Align=alTop;

  ParolaEdit.Height=40;

  ParolaEdit.Margins.Left=20;

  ParolaEdit.Margins.Right=20;

  ParolaEdit.Margins.Bottom=30;

  ParolaEdit.password=True

  ParolaEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#080c16');

  ParolaEdit.clProSettings.IsTransparent=True;

  ParolaEdit.clProSettings.IsRound=False;

  ParolaEdit.clProSettings.RoundWidth=10;

  ParolaEdit.clProSettings.RoundHeight=10;

  ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#383838');

  ParolaEdit.clProSettings.BorderWidth=1;

  ParolaEdit.TextSettings.Font.Size=16;

  ParolaEdit.TextSettings.FontColor=clAlphaColor.clHexToColor('#919191');

  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  

  passImg=signinform.AddNewProImage(ParolaEdit, 'passImg');

  passImg.Align=alLeft;

  passImg.Margins.Left=10;

  passImg.Margins.Top=5;

  passImg.Margins.Bottom=5;

  passImg.Width=25;

  signinform.SetImage(passImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img6.png');

  

  

  //Log button 

  signbtn=signinform.AddNewProButton(PanelForm, 'signbtn', 'LogIn')

  signbtn.Align=alTop;

  signbtn.Height=50;

  signbtn.Margins.Left=20;

  signbtn.Margins.Right=20;

  signbtn.Margins.Bottom=10;

  signbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#C89A4A');

  signbtn.clProSettings.RoundWidth=10;

  signbtn.clProSettings.RoundHeight=10;

  signbtn.clProSettings.FontSize=20;

  signbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

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

  signbtn.SetclProSettings(signbtn.clProSettings);

  signinform.AddNewEvent(signbtn, tbeOnClick, 'connection');

  

  

  //panel for kayit ol 

  Panelkayitol = signinform.AddNewProPanel(MainScroll,'Panelkayitol');

  Panelkayitol.Align = alTop; 

  Panelkayitol.Height =50;

  Panelkayitol.Margins.Left=20;

  Panelkayitol.Margins.Right=20;

  Panelkayitol.Margins.Bottom=20;

  Panelkayitol.clProSettings.IsFill = False; 

  Panelkayitol.clProSettings.IsTransparent = True;

  Panelkayitol.clProSettings.IsRound = True;

  //Panelkayitol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E1612');

  Panelkayitol.SetclProSettings(Panelkayitol.clProSettings);

  

  

  //label for signup

  Label1 = signinform.AddNewProLabel(Panelkayitol,'Label1','Hesap Yoksa Yeni Hesap Ac');

  Label1.Align = alLeft;

  Label1.Height = 35;

  Label1.Margins.Top=12;

  Label1.Width=200; 

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

  Label1.clProSettings.FontSize =17;

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

  Label1.SetclProSettings(Label1.clProSettings);

  

  //button for kayit Ol

  logbtn=signinform.AddNewProButton(Panelkayitol, 'logbtn', 'KAYIT OL')

  logbtn.Align=alRight;

  logbtn.Height=35;

  logbtn.Margins.Right=25;

  logbtn.clProSettings.FontSize=17;

  logbtn.clProSettings.IsFill = False; 

  logbtn.clProSettings.IsTransparent = True;

  logbtn.clProSettings.FontColor=clAlphaColor.clHexToColor('#167efb');

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

  logbtn.SetclProSettings(logbtn.clProSettings);

  signinform.AddNewEvent(logbtn, tbeOnClick, 'kayitOl');

  

  //label for follow 

  Label4 = signinform.AddNewProLabel(PanelForm,'Label4','--- Bize Takip Unutmayiniz ---');

  Label4.Align = alTop;

  Label4.Height = 35;

  Label4.Margins.Left=75;

  Label4.Width=200; 

  Label4.clProSettings.FontColor = clAlphaColor.clHexToColor('#F7F4EF');

  Label4.clProSettings.FontSize =17;

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

  Label4.SetclProSettings(Label4.clProSettings);

  

  

  //panel for contact   

  Panelcontact = signinform.AddNewProPanel(MainScroll,'Panelcontact');

  Panelcontact.Align = alTop; 

  Panelcontact.Height =50;

  Panelcontact.clProSettings.IsFill =False; 

  Panelcontact.clProSettings.IsTransparent = True;

  Panelcontact.clProSettings.IsRound = True;

  //Panelcontact.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#381e76');

  Panelcontact.SetclProSettings(Panelcontact.clProSettings);

  

  

  

  //button for instagram

  instabtn=signinform.AddNewProButton(Panelcontact, 'instabtn', '')

  instabtn.Align=alLeft;

  instabtn.Height=40;

  instabtn.clProSettings.FontSize=20;

  instabtn.clProSettings.IsFill =False; 

  instabtn.clProSettings.IsTransparent = True;

  instabtn.SetclProSettings(instabtn.clProSettings);

  signinform.AddNewEvent(instabtn, tbeOnClick, 'connection');

  //image for instagram

  instaImg=signinform.AddNewProImage(instabtn, 'instaImg');

  instaImg.Align=alLeft;

  instaImg.Margins.Left=20;

  instaImg.Margins.Top=5;

  instaImg.Margins.Bottom=5;

  instaImg.Width=30;

  signinform.SetImage(instaImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img8.png');

  

  

  //button for facebook

  facebtn=signinform.AddNewProButton(Panelcontact, 'facebtn', '')

  facebtn.Align=alLeft;

  facebtn.Height=40;

  facebtn.clProSettings.FontSize=20;

  facebtn.clProSettings.IsFill =False; 

  facebtn.clProSettings.IsTransparent = True;

  facebtn.SetclProSettings(facebtn.clProSettings);

  signinform.AddNewEvent(facebtn, tbeOnClick, 'connection');

  //image for facebook

  faceImg=signinform.AddNewProImage(facebtn, 'faceImg');

  faceImg.Align=alLeft;

  instaImg.Margins.Left=20;

  faceImg.Margins.Top=5;

  faceImg.Margins.Bottom=5;

  faceImg.Width=30;

  signinform.SetImage(faceImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img7.png');

  

  //button for tiktok

  tikbtn=signinform.AddNewProButton(Panelcontact, 'tikbtn', '')

  tikbtn.Align=alLeft;

  tikbtn.Height=40;

  tikbtn.clProSettings.FontSize=20;

  tikbtn.clProSettings.IsFill =False; 

  tikbtn.clProSettings.IsTransparent = True;

  tikbtn.SetclProSettings(tikbtn.clProSettings);

  signinform.AddNewEvent(tikbtn, tbeOnClick, 'connection');

  //image for tiktok

  tikImg=signinform.AddNewProImage(tikbtn, 'tikImg');

  tikImg.Align=alLeft;

  instaImg.Margins.Left=20;

  tikImg.Margins.Top=5;

  tikImg.Margins.Bottom=5;

  tikImg.Width=30;

  signinform.SetImage(tikImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img9.png');

  

  

  //button for X

  xbtn=signinform.AddNewProButton(Panelcontact, 'xbtn', '')

  xbtn.Align=alLeft;

  xbtn.Height=40;

  xbtn.clProSettings.FontSize=20;

  xbtn.clProSettings.IsFill =False; 

  xbtn.clProSettings.IsTransparent = True;

  xbtn.SetclProSettings(xbtn.clProSettings);

  signinform.AddNewEvent(xbtn, tbeOnClick, 'connection');

  //image for X

  xImg=signinform.AddNewProImage(xbtn, 'xImg');

  xImg.Align=alLeft;

  instaImg.Margins.Left=20;

  xImg.Margins.Top=5;

  xImg.Margins.Bottom=5;

  xImg.Width=30;

  signinform.SetImage(xImg,'https://raw.githubusercontent.com/Barthez2023/Artificial_Intelligence/main/clomosyImage/img12.png');

  

  veriTabani;

  SetVeri;

  signinform.Run;

}