var

  loginform: TclForm;

  PanelForm: TclProPanel;

  Label2, Label3, Label4, Label5, Label6, Label7: TClProLabel;

  EmailEdit, ParolaEdit: TclProEdit;

  logbtn, googlebtn: TClProButton;

  email, pass: String;

  SqliteQuery1: TClSQLiteQuery;

  googleImg, emailImg: TClProImage;

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 = 'SELECT COUNT(*) as CNT FROM Users';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  if (Clomosy.DBSQLiteQuery.FieldByName('CNT').AsInteger == 0)

  {

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Users (Email, password) VALUES (''Ali222@gmail.com'', ''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);

}

{

  loginform = TclForm.Create(Self);

  loginform.SetFormBGImage('https://lyonvieuxpapiers.com/wp-content/uploads/2026/03/meilleur-resto-japonais-lyon.jpg');

  PanelForm = loginform.AddNewProPanel(loginform, 'PanelForm');

  PanelForm.Align = alCenter;

  PanelForm.Width = 350;

  PanelForm.Height = 580;

  PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101D2D');

  PanelForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#089ABF');

  PanelForm.clProSettings.BorderWidth = 2;

  PanelForm.clProSettings.IsFill = True;

  PanelForm.clProSettings.IsRound = True;

  PanelForm.clProSettings.RoundHeight = 16;

  PanelForm.clProSettings.RoundWidth = 16;

  PanelForm.SetclProSettings(PanelForm.clProSettings);

  Label7 = loginform.AddNewProLabel(PanelForm, 'Label7', 'EVERY ASIAN FOOD IN ONE HUB');

  Label7.Align = alTop;

  Label7.Height = 50;

  Label7.Margins.Top = 20;

  Label7.Margins.Left = 20;

  Label7.Margins.Right = 20;

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

  Label7.clProSettings.FontSize = 18;

  Label7.clProSettings.FontHorzAlign = palCenter;

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

  Label7.SetclProSettings(Label7.clProSettings);

  Label6 = loginform.AddNewProLabel(PanelForm, 'Label6', 'Welcome to our online ordering platform. Log in to access our menus.');

  Label6.Align = alTop;

  Label6.Height = 45;

  Label6.Margins.Left = 25;

  Label6.Margins.Right = 25;

  Label6.Margins.Bottom = 15;

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

  Label6.clProSettings.FontSize = 11;

  Label6.clProSettings.FontHorzAlign = palCenter;

  Label6.clProSettings.WordWrap = True;

  Label6.SetclProSettings(Label6.clProSettings);

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

  Label2.Align = alTop;

  Label2.Height = 25;

  Label2.Margins.Left = 20;

  Label2.Margins.Right = 20;

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

  Label2.clProSettings.FontSize = 12;

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

  Label2.SetclProSettings(Label2.clProSettings);

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

  EmailEdit.Align = alTop;

  EmailEdit.Height = 45;

  EmailEdit.Margins.Left = 20;

  EmailEdit.Margins.Right = 20;

  EmailEdit.Margins.Bottom = 15;

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

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

  EmailEdit.clProSettings.BorderWidth = 1;

  EmailEdit.clProSettings.IsRound = True;

  EmailEdit.clProSettings.RoundWidth = 8;

  EmailEdit.clProSettings.RoundHeight = 8;

  EmailEdit.clProSettings.FontColor = clAlphaColor.clWhite;

  EmailEdit.clProSettings.FontSize = 13;

  EmailEdit.clProSettings.IsFill = True;

  EmailEdit.SetclProSettings(EmailEdit.clProSettings);

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

  emailImg.Align = alLeft;

  emailImg.Margins.Left = 10;

  emailImg.Margins.Top = 10;

  emailImg.Margins.Bottom = 10;

  emailImg.Width = 25;

  loginform.SetImage(emailImg, 'https://cdn-icons-png.flaticon.com/128/646/646094.png');

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

  Label3.Align = alTop;

  Label3.Height = 25;

  Label3.Margins.Left = 20;

  Label3.Margins.Right = 20;

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

  Label3.clProSettings.FontSize = 12;

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

  Label3.SetclProSettings(Label3.clProSettings);

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

  ParolaEdit.Align = alTop;

  ParolaEdit.Height = 45;

  ParolaEdit.Margins.Left = 20;

  ParolaEdit.Margins.Right = 20;

  ParolaEdit.Margins.Bottom = 20;

  ParolaEdit.Password = True;

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

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

  ParolaEdit.clProSettings.BorderWidth = 1;

  ParolaEdit.clProSettings.IsRound = True;

  ParolaEdit.clProSettings.RoundWidth = 8;

  ParolaEdit.clProSettings.RoundHeight = 8;

  ParolaEdit.clProSettings.FontColor = clAlphaColor.clWhite;

  ParolaEdit.clProSettings.FontSize = 13;

  ParolaEdit.clProSettings.IsFill = True;

  ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

  logbtn = loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn');

  logbtn.Align = alTop;

  logbtn.Height = 45;

  logbtn.Margins.Left = 20;

  logbtn.Margins.Right = 20;

  logbtn.Margins.Bottom = 15;

  logbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#45D370');

  logbtn.clProSettings.RoundWidth = 8;

  logbtn.clProSettings.RoundHeight = 8;

  logbtn.clProSettings.FontSize = 16;

  logbtn.clProSettings.FontColor = clAlphaColor.clWhite;

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

  logbtn.clProSettings.IsFill = True;

  logbtn.SetclProSettings(logbtn.clProSettings);

  loginform.AddNewEvent(logbtn, tbeOnClick, 'connection');

  Label4 = loginform.AddNewProLabel(PanelForm, 'Label4', '-- Use Another Account --');

  Label4.Align = alTop;

  Label4.Height = 25;

  Label4.Margins.Left = 20;

  Label4.Margins.Right = 20;

  Label4.Margins.Bottom = 10;

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

  Label4.clProSettings.FontSize = 11;

  Label4.clProSettings.FontHorzAlign = palCenter;

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

  Label4.SetclProSettings(Label4.clProSettings);

  googlebtn = loginform.AddNewProButton(PanelForm, 'googlebtn', 'Use Google Account');

  googlebtn.Align = alTop;

  googlebtn.Height = 45;

  googlebtn.Margins.Left = 40;

  googlebtn.Margins.Right = 40;

  googlebtn.Margins.Bottom = 20;

  googlebtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#089ABF');

  googlebtn.clProSettings.RoundWidth = 8;

  googlebtn.clProSettings.RoundHeight = 8;

  googlebtn.clProSettings.FontSize = 13;

  googlebtn.clProSettings.FontColor = clAlphaColor.clWhite;

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

  googlebtn.clProSettings.IsFill = True;

  googlebtn.SetclProSettings(googlebtn.clProSettings);

  loginform.AddNewEvent(googlebtn, tbeOnClick, 'connection');

  googleImg = loginform.AddNewProImage(googlebtn, 'googleImg');

  googleImg.Align = alLeft;

  googleImg.Margins.Left = 10;

  googleImg.Margins.Top = 10;

  googleImg.Margins.Bottom = 10;

  googleImg.Width = 25;

  loginform.SetImage(googleImg, 'https://cdn-icons-png.flaticon.com/512/1000/1000777.png');

  Label5 = loginform.AddNewProLabel(PanelForm, 'Label5', 'Hesap Yoksa Kayit Ol');

  Label5.Align = alTop;

  Label5.Height = 25;

  Label5.Margins.Left = 20;

  Label5.Margins.Right = 20;

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

  Label5.clProSettings.FontSize = 13;

  Label5.clProSettings.FontHorzAlign = palCenter;

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

  Label5.SetclProSettings(Label5.clProSettings);

  veriTabani;

  SetVeri;

  loginform.Run;

}

//Login page

var

loginform : TclForm;

PanelForm : TclProPanel;

Paneltext : TclProPanel;

titleLabel: TClProLabel;

Label1: TClProLabel;

Label2: TClProLabel;

Label3: TClProLabel;

Label4: TClProLabel;

Label5: TClProLabel;

Label6: TClProLabel;

Label7: TClProLabel;

titleLabellogin: TClProLabel;

EmailEdit,ParolaEdit:TclProEdit;

logbtn:TClProButton;

googlebtn:TClProButton;

email,pass:String;

SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;

emailImg:TClProImage;

void setPanel(a,b:Integer;color:String);

{

  PanelForm = loginform.AddNewProPanel(loginform,'PanelForm');

  PanelForm.Align = alTop; 

  PanelForm.Height =200;

  PanelForm.Margins.Left=400;

  PanelForm.Margins.Right=30;

  PanelForm.Margins.Top=10;

  PanelForm.Width = a;

  PanelForm.Height = b; 

  

  PanelForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#089abf');

  PanelForm.clProSettings.BorderWidth = 2;

  PanelForm.clProSettings.IsFill = True; 

  PanelForm.clProSettings.IsRound = True;

  PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(color);

  PanelForm.SetclProSettings(PanelForm.clProSettings);

}

void setPanelText;

{

  Paneltext = loginform.AddNewProPanel(loginform,'Paneltext');

  Paneltext.Align = alTop; 

  Paneltext.Height =200;

  //Paneltext.Margins.Left=30;

  Paneltext.Margins.Right=350;

  Paneltext.clProSettings.IsRound = True;

  Paneltext.clProSettings.IsFill = True; 

  //Paneltext.clProSettings.IsTransparent = True;

  Paneltext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#089abf');

  Paneltext.SetclProSettings(Paneltext.clProSettings);

}

void setLabel6;

{

  Label6 = loginform.AddNewProLabel(Paneltext,'Label6','Welcome to our online ordering platform. Log in to access our menus.');

  Label6.Align = alTop;

  Label6.Margins.Left=30;

  Label6.Margins.Right=400;

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

  Label6.clProSettings.FontSize =15;

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

  Label6.clProSettings.WordWrap = True;

  Label6.clProSettings.AutoSize = True;

  Label6.SetclProSettings(Label6.clProSettings);

}

void setLabel7;

{

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

  Label7.Align = alTop;

  Label7.Margins.Left=30;

  Label7.Margins.Right=400;

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

  Label7.clProSettings.FontSize =30;

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

  Label7.clProSettings.WordWrap = True;

  Label7.clProSettings.AutoSize = True;

  Label7.SetclProSettings(Label7.clProSettings);

}

void setLabel;

{

  titleLabel = loginform.AddNewProLabel(PanelForm,'titleLabel','GIRIS YAP');

  titleLabel.Align = alTop;

  titleLabel.Height = 50;

  titleLabel.Margins.Left=20;

  titleLabel.Margins.Right=20

  

  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#089abf');

  titleLabel.clProSettings.FontSize = 25;

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

  titleLabel.SetclProSettings(titleLabel.clProSettings);

}

void setLabelLogin;

{

  titleLabellogin = loginform.AddNewProLabel(PanelForm,'titleLabellogin','Login to your Page');

  titleLabellogin.Align = alTop;

  titleLabellogin.Height = 70;

  

  titleLabellogin.clProSettings.FontColor = clAlphaColor.clHexToColor('#e14714');

  titleLabellogin.clProSettings.FontSize = 40;

  titleLabellogin.clProSettings.FontVertAlign = palcenter;

  titleLabellogin.clProSettings.FontHorzAlign = palCenter;

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

  titleLabellogin.SetclProSettings(titleLabellogin.clProSettings);

}

void setLabel1;

{

  Label1 = loginform.AddNewProLabel(PanelForm,'Label1','WELCOME BACK');

  Label1.Align = alTop;

  Label1.Height = 30;

  Label1.Margins.Top=15;

  Label1.Margins.Left=20;

  Label1.Margins.Right=20;

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

  Label1.clProSettings.FontSize = 15;

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

  Label1.SetclProSettings(Label1.clProSettings);

}

void setLabel2;

{

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

  Label2.Align = alTop;

  Label2.Height = 30;

  Label2.Margins.Left=20;

  Label2.Margins.Right=20;

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

  Label2.clProSettings.FontSize = 15;

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

  Label2.SetclProSettings(Label2.clProSettings);

}

void setEmail;

{

  EmailEdit=loginform.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=loginform.AddNewProImage(EmailEdit, 'emailImg');

  emailImg.Align=alLeft;

  emailImg.Margins.Left=10;

  emailImg.Margins.Top=5;

  emailImg.Margins.Bottom=5;

  emailImg.Width=25;

  loginform.SetImage(emailImg,'https://cdn-icons-png.flaticon.com/128/646/646094.png');

  

  

}

void setLabel3;

{

  Label3 = loginform.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('#545454');

  Label3.clProSettings.FontSize = 15;

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

  Label3.SetclProSettings(Label3.clProSettings);

}

void setParola;

{

  ParolaEdit=loginform.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);

  

}

void login;

{

  logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn')

  logbtn.Align=alTop;

  logbtn.Height=50;

  logbtn.Margins.Left=20;

  logbtn.Margins.Right=20;

  logbtn.Margins.Bottom=20;

  logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#45d370');

  logbtn.clProSettings.RoundWidth=10;

  logbtn.clProSettings.RoundHeight=10;

  logbtn.clProSettings.FontSize=20;

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

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

  logbtn.SetclProSettings(logbtn.clProSettings);

  

  loginform.AddNewEvent(logbtn, tbeOnClick, 'connection');

}

void setLabel4;

{

  Label4 = loginform.AddNewProLabel(PanelForm,'Label4','-- Use Your Another Account --');

  Label4.Align = alTop;

  Label4.Height = 30;

  Label4.Width=120;

  Label4.Margins.Left=90;

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

  Label4.clProSettings.FontSize =15;

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

  Label4.SetclProSettings(Label4.clProSettings);

}

void setgooglebtn;

{

  googlebtn=loginform.AddNewProButton(PanelForm, 'googlebtn', 'Use  Google Account')

  googlebtn.Align=alTop;

  googlebtn.Height=40;

  googlebtn.Margins.Left=75;

  googlebtn.Margins.Right=75;

  googlebtn.Margins.Bottom=20;

  googlebtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#089abf');

  googlebtn.clProSettings.RoundWidth=10;

  googlebtn.clProSettings.RoundHeight=10;

  googlebtn.clProSettings.FontSize=17;

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

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

  googlebtn.SetclProSettings(googlebtn.clProSettings);

  

  googleImg=loginform.AddNewProImage(googlebtn, 'googleImg');

  googleImg.Align=alLeft;

  googleImg.Margins.Left=10;

  googleImg.Margins.Top=5;

  googleImg.Margins.Bottom=5;

  googleImg.Width=25;

  loginform.SetImage(googleImg,'https://cdn-icons-png.flaticon.com/512/1000/1000777.png');

  

  

  

  loginform.AddNewEvent(googlebtn, tbeOnClick, 'connection');

}

void setLabel5;

{

  Label5 = loginform.AddNewProLabel(PanelForm,'Label5','Hesap Yoksa Kayit Ol');

  Label5.Align = alTop;

  Label5.Height = 30;

  Label5.Margins.Left=120;

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

  Label5.clProSettings.FontSize =17;

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

  Label5.SetclProSettings(Label5.clProSettings);

}

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);

}

{

  loginform = TCLForm.Create(Self);

  loginform.SetFormBGImage('https://lyonvieuxpapiers.com/wp-content/uploads/2026/03/meilleur-resto-japonais-lyon.jpg');

  setPanelText;

  setPanel(300,500,'#101d2d');

  setLabel7;

  setLabel6;

  //setLabel1;

  //setLabel;

  //setLabel2;

  //setEmail;

  //setLabel3;

  //setParola;

  //login;

  //setLabel4;

  //setgooglebtn;

  //setLabel5;

  

  

  

  

  //veriTabani;

  //SetVeri;

  loginform.Run;

}

Sorunun çözümü budur.

void setLabel6;

{

  Label6 = loginform.AddNewProLabel(loginform,'Label6','Online sipariş platformumuza hoş geldiniz. Hesabınıza erişmek, siparişlerinizi görüntülemek, durumlarını gerçek zamanlı olarak takip etmek ve hızlı, basit ve güvenli bir alışveriş deneyiminin keyfini çıkarmak için giriş yapın.');

  Label6.Align = alTop;

  Label6.Height = 300;

  Label6.Width = 300;

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

  Label6.clProSettings.FontSize =20;

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

  Label6.clProSettings.AutoSize = True;

  Label6.clProSettings.WordWrap = True;

  Label6.SetclProSettings(Label6.clProSettings);

}

//Login page

var

loginform : TclForm;

PanelForm : TclProPanel;

titleLabel: TClProLabel;

Label1: TClProLabel;

Label2: TClProLabel;

Label3: TClProLabel;

Label4: TClProLabel;

Label5: TClProLabel;

Label6: TClProLabel;

titleLabellogin: TClProLabel;

EmailEdit,ParolaEdit:TclProEdit;

logbtn:TClProButton;

googlebtn:TClProButton;

email,pass:String;

SqliteQuery1 : TClSQLiteQuery;

googleImg:TClProImage;

emailImg:TClProImage;

void setLabel6;

{

  Label6 = loginform.AddNewProLabel(loginform,'Label6','Online sipariş platformumuza hoş geldiniz. Hesabınıza erişmek, siparişlerinizi görüntülemek, durumlarını gerçek zamanlı olarak takip etmek ve hızlı, basit ve güvenli bir alışveriş deneyiminin keyfini çıkarmak için giriş yapın.');

  Label6.Align = alLeft;

  Label6.Height = 40;

  Label6.Width=300;

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

  Label6.clProSettings.FontSize =25;

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

  Label6.SetclProSettings(Label6.clProSettings);

}

void setPanel(a,b:Integer;color:String);

{

  PanelForm = loginform.AddNewProPanel(loginform,'PanelForm');

  PanelForm.Align = alCenter; 

  PanelForm.Width = a;

  PanelForm.Height = b; 

  

  PanelForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#089abf');

  PanelForm.clProSettings.BorderWidth = 2;

  PanelForm.clProSettings.IsFill = True; 

  PanelForm.clProSettings.IsRound = True;

  PanelForm.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(color);

  PanelForm.SetclProSettings(PanelForm.clProSettings);

}

void setLabel;

{

  titleLabel = loginform.AddNewProLabel(PanelForm,'titleLabel','GIRIS YAP');

  titleLabel.Align = alTop;

  titleLabel.Height = 50;

  titleLabel.Margins.Left=20;

  titleLabel.Margins.Right=20

  

  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#089abf');

  titleLabel.clProSettings.FontSize = 25;

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

  titleLabel.SetclProSettings(titleLabel.clProSettings);

}

void setLabelLogin;

{

  titleLabellogin = loginform.AddNewProLabel(PanelForm,'titleLabellogin','Login to your Page');

  titleLabellogin.Align = alTop;

  titleLabellogin.Height = 70;

  

  titleLabellogin.clProSettings.FontColor = clAlphaColor.clHexToColor('#e14714');

  titleLabellogin.clProSettings.FontSize = 40;

  titleLabellogin.clProSettings.FontVertAlign = palcenter;

  titleLabellogin.clProSettings.FontHorzAlign = palCenter;

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

  titleLabellogin.SetclProSettings(titleLabellogin.clProSettings);

}

void setLabel1;

{

  Label1 = loginform.AddNewProLabel(PanelForm,'Label1','WELCOME BACK');

  Label1.Align = alTop;

  Label1.Height = 30;

  Label1.Margins.Top=15;

  Label1.Margins.Left=20;

  Label1.Margins.Right=20;

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

  Label1.clProSettings.FontSize = 15;

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

  Label1.SetclProSettings(Label1.clProSettings);

}

void setLabel2;

{

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

  Label2.Align = alTop;

  Label2.Height = 30;

  Label2.Margins.Left=20;

  Label2.Margins.Right=20;

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

  Label2.clProSettings.FontSize = 15;

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

  Label2.SetclProSettings(Label2.clProSettings);

}

void setEmail;

{

  EmailEdit=loginform.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=loginform.AddNewProImage(EmailEdit, 'emailImg');

  emailImg.Align=alLeft;

  emailImg.Margins.Left=10;

  emailImg.Margins.Top=5;

  emailImg.Margins.Bottom=5;

  emailImg.Width=25;

  loginform.SetImage(emailImg,'https://cdn-icons-png.flaticon.com/128/646/646094.png');

  

  

}

void setLabel3;

{

  Label3 = loginform.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('#545454');

  Label3.clProSettings.FontSize = 15;

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

  Label3.SetclProSettings(Label3.clProSettings);

}

void setParola;

{

  ParolaEdit=loginform.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);

  

}

void login;

{

  logbtn=loginform.AddNewProButton(PanelForm, 'logbtn', 'LogIn')

  logbtn.Align=alTop;

  logbtn.Height=50;

  logbtn.Margins.Left=20;

  logbtn.Margins.Right=20;

  logbtn.Margins.Bottom=20;

  logbtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#45d370');

  logbtn.clProSettings.RoundWidth=10;

  logbtn.clProSettings.RoundHeight=10;

  logbtn.clProSettings.FontSize=20;

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

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

  logbtn.SetclProSettings(logbtn.clProSettings);

  

  loginform.AddNewEvent(logbtn, tbeOnClick, 'connection');

}

void setLabel4;

{

  Label4 = loginform.AddNewProLabel(PanelForm,'Label4','-- Use Your Another Account --');

  Label4.Align = alTop;

  Label4.Height = 30;

  Label4.Width=120;

  Label4.Margins.Left=90;

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

  Label4.clProSettings.FontSize =15;

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

  Label4.SetclProSettings(Label4.clProSettings);

}

void setgooglebtn;

{

  googlebtn=loginform.AddNewProButton(PanelForm, 'googlebtn', 'Use  Google Account')

  googlebtn.Align=alTop;

  googlebtn.Height=40;

  googlebtn.Margins.Left=75;

  googlebtn.Margins.Right=75;

  googlebtn.Margins.Bottom=20;

  googlebtn.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#089abf');

  googlebtn.clProSettings.RoundWidth=10;

  googlebtn.clProSettings.RoundHeight=10;

  googlebtn.clProSettings.FontSize=17;

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

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

  googlebtn.SetclProSettings(googlebtn.clProSettings);

  

  googleImg=loginform.AddNewProImage(googlebtn, 'googleImg');

  googleImg.Align=alLeft;

  googleImg.Margins.Left=10;

  googleImg.Margins.Top=5;

  googleImg.Margins.Bottom=5;

  googleImg.Width=25;

  loginform.SetImage(googleImg,'https://cdn-icons-png.flaticon.com/512/1000/1000777.png');

  

  

  

  loginform.AddNewEvent(googlebtn, tbeOnClick, 'connection');

}

void setLabel5;

{

  Label5 = loginform.AddNewProLabel(PanelForm,'Label5','Hesap Yoksa Kayit Ol');

  Label5.Align = alTop;

  Label5.Height = 30;

  Label5.Margins.Left=120;

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

  Label5.clProSettings.FontSize =17;

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

  Label5.SetclProSettings(Label5.clProSettings);

}

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);

}

{

  loginform = TCLForm.Create(Self);

  loginform.SetFormBGImage('https://lyonvieuxpapiers.com/wp-content/uploads/2026/03/meilleur-resto-japonais-lyon.jpg');

  //loginform.SetFormColor('#080c16','',clGNone);

  //setPanel(420,500,'#101d2d');

  //setLabel1;

  //setLabel;

  //setLabel2;

  //setEmail;

  //setLabel3;

  //setParola;

  //login;

  //setLabel4;

  //setgooglebtn;

  //setLabel5;

  setLabel6;

  

  //veriTabani;

  //SetVeri;

  loginform.Run;

}