Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - vertSroll ekledikten sonra label6 hep asagiya kal
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

vertSroll ekledikten sonra label6 hep asagiya kal
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 17 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: vertSroll ekledikten sonra label6 hep asagiya kal
    Gönderim Zamanı: 4 Saat 46 Dakika Önce Saat 17:43
//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('[email protected]')+', '+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);
  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;
  
  
  //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;
  
  //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;
  
  
  //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;
  
  
  //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;
  
  
  //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;
  
  //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;
  
  
  //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;
  
  veriTabani;
  SetVeri;
  signinform.Run;
}


https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 971 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 4 Saat 40 Dakika Önce Saat 17:49
Merhaba Barthez 

Aşağıda ki kodu inceler misin

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('[email protected]')+', '+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);
  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;
  
  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;
  
  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;
  
  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;
  
  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;
  
  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;
  
  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;
  
  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;
  
  veriTabani;
  SetVeri;
  signinform.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,016 Saniyede Yüklendi.