var

UnitReForm:TCLForm;

EmailEdit,ParolaEdit,AdressEdit:TCLProEdit;

LoginUyeOlBtn,HiddenPasswordBtn,NormalPasswordBtn:TClProButton;

MainPnl:TCLProPanel;

TCLLogo, UserImg:TCLProImage;

EmailImg,PasswordImg:TCLProImage;

MyLabel1:TClProLabel;

void HiddenPasswordBtnClick

{ 

   if not Assigned(NormalPasswordBtn)

   {

     NormalPasswordBtn=UnitReForm.AddNewProButton(ParolaEdit,'NormalPasswordBtn','');

     NormalPasswordBtn.Align=alRight;

     NormalPasswordBtn.Margins.Right=10;

     NormalPasswordBtn.Margins.Top=5;

     NormalPasswordBtn.Margins.Bottom=5;

     NormalPasswordBtn.Width=25;

     UnitReForm.SetImage(NormalPasswordBtn,' https://i.imgur.com/6xrqP8j.png" rel="nofollow - https://i.imgur.com/6xrqP8j.png ');

     UnitReForm.AddNewEvent(NormalPasswordBtn,tbeOnClick,'NormalPasswordBtnClick');

   }

  

   else

   {

     NormalPasswordBtn.Visible=True;

   }

   

   ParolaEdit.Password=False; 

   HiddenPasswordBtn.Visible=False;

  

  

  

}

void NormalPasswordBtnClick

{

   try

     if not Assigned(HiddenPasswordBtn)

     {

       HiddenPasswordBtn=UnitReForm.AddNewProButton(ParolaEdit,'NormalPasswordBtn','');

       HiddenPasswordBtn.Align=alRight;

       HiddenPasswordBtn.Margins.Right=10;

       HiddenPasswordBtn.Margins.Top=5;

       HiddenPasswordBtn.Margins.Bottom=5;

       HiddenPasswordBtn.Width=25;

       UnitReForm.SetImage(NormalPasswordBtn,' https://i.imgur.com/qVm2XpB.png" rel="nofollow - https://i.imgur.com/qVm2XpB.png ');

       UnitReForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');

     }

     

     else

     {

       HiddenPasswordBtn.visible=true;

     }

    

      ParolaEdit.Password=true;

      NormalPasswordBtn.visible=False;

     

     

    except 

      ShowMessage('Exception Class: '+ LastExceptionClassName + 'Exceptin name: '+ LastExceptionMessage);

    

    }

  

}

void LabelTiklandi;

{

  Clomosy.RunUnit('Login');

}

{

  UnitReForm=TCLForm.Create(self);

  

  MainPnl=UnitReForm.AddNewProPanel(UnitReForm,'MainPnl');

  MainPnl.Align=alCenter;

  MainPnl.Height=630;

  MainPnl.Width=400;

  MainPnl.clProSettings.RoundHeight=40;

  MainPnl.clProSettings.Roundwidth=40;

  MainPnl.clProSettings.IsTransparent =False;

  MainPnl.SetclProSettings(MainPnl.clProSettings); 

  

  

 TclLogo=UnitReForm.AddNewProImage(MainPnl,'TclLogo');  

 TclLogo.Align=alMostTop; 

 TclLogo.Height=220;

 TclLogo.Margins.Top=60;

 TclLogo.Margins.Left=20;

 TclLogo.Margins.Right=20;

 Tcllogo.clProSettings.PictureSource =(' https://i.imgur.com/G64OrSr.png" rel="nofollow - https://i.imgur.com/G64OrSr.png '); 

 TclLogo.SetclProSettings(TclLogo.clProSettings);

 

 

 EmailEdit=UnitReForm.AddNewProEdit(MainPnl, 'EmailEdit', 'Username');

 EmailEdit.Align=alTop;

 EmailEdit.Height=50;

 EmailEdit.Margins.Top=30;

 EmailEdit.Margins.Left=20; 

 EmailEdit.Margins.Right=20;

 EmailEdit.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d'); 

 EmailEdit.clProSettings.IsTransparent=True;

 EmailEdit.clProSettings.IsFill=False;

 EmailEdit.clProSettings.IsRound=True;

 EmailEdit.clProSettings.RoundHeight=20;

 EmailEdit.clProSettings.Roundwidth=20;

 EmailEdit.clProSettings.FontSize=16;//1

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

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

 EmailEdit.clProSettings.Borderwidth=1;  

 EmailEdit.SetclProSettings(EmailEdit.clProSettings);

AdressEdit=UnitReForm.AddNewProEdit(MainPnl, 'AdressEdit', 'Email');

AdressEdit.Align=alTop;

AdressEdit.Height=50;

AdressEdit.Margins.Top=30;

AdressEdit.Margins.Left=20; 

AdressEdit.Margins.Right=20;

AdressEdit.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d'); 

AdressEdit.clProSettings.IsTransparent=True;

AdressEdit.clProSettings.IsFill=False;

AdressEdit.clProSettings.IsRound=True;

AdressEdit.clProSettings.RoundHeight=20;

AdressEdit.clProSettings.Roundwidth=20;

AdressEdit.clProSettings.FontSize=16;//1

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

AdressEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#11212d');

AdressEdit.clProSettings.Borderwidth=1;  

AdressEdit.SetclProSettings(EmailEdit.clProSettings);

 

 

 UserImg=UnitReForm.AddNewProImage(EmailEdit,'UserImg');

 UserImg.Align=alLeft;

 UserImg.Margins.Left=10;

 UserImg.Margins.Top=5;

 UserImg.Margins.Bottom=5;

 UserImg.Width=25;

 UnitReForm.SetImage(UserImg,' https://i.imgur.com/YHrbLVA.png" rel="nofollow - https://i.imgur.com/YHrbLVA.png ');

 

 

 EmailImg=UnitReForm.AddNewProImage(EmailEdit,'EmailImg');

 EmailImg.Align=alLeft;

 EmailImg.Margins.Left=10; 

 EmailImg.Margins.Top=5;

 EmailImg.Margins.Bottom=5;

 EmailImg.Width=25;

 UnitReForm.SetImage(EmailEdit,' https://i.imgur.com/O0TuHrh.png" rel="nofollow - https://i.imgur.com/O0TuHrh.png ');

 

 

  

 ParolaEdit=UnitReForm.AddNewProEdit(MainPnl, 'ParolaEdit', 'Password');

 ParolaEdit.Align=alTop;

 ParolaEdit.Height=50;

 ParolaEdit.Margins.Top=30;

 ParolaEdit.Margins.Left=20; 

 ParolaEdit.Margins.Right=20;

 ParolaEdit.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d'); 

 ParolaEdit.clProSettings.IsTransparent=True;

 ParolaEdit.clProSettings.IsFill=False;

 ParolaEdit.clProSettings.IsRound=True;

 ParolaEdit.clProSettings.RoundHeight=20;

 ParolaEdit.clProSettings.Roundwidth=20;

 ParolaEdit.clProSettings.FontSize=16;

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

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

 ParolaEdit.clProSettings.Borderwidth=1;  

 ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

 

 HiddenPasswordBtn=UnitReForm.AddNewProButton(ParolaEdit, 'HiddenPasswordBtn', '');

 HiddenPasswordBtn.Align=alRight;

 HiddenPasswordBtn.Margins.Right=10;

 HiddenPasswordBtn.Margins.Top=5;

 HiddenPasswordBtn.Margins.Bottom=5;

 HiddenPasswordBtn.Width=25;

 UnitReForm.SetImage(HiddenPasswordBtn,' https://i.imgur.com/qVm2XpB.png" rel="nofollow - https://i.imgur.com/qVm2XpB.png '); 

 

 MyLabel1=UnitReForm.AddNewProLabel(MainPnl,'MyLabel1', '               Already a member? Sign in');

 MyLabel1.Align = alTop;

 MyLabel1.Margins.Top = 10;

 MyLabel1.Margins.Left=20;

 MyLabel1.clProSettings.FontSize = 19;

 MyLabel1.clProSettings.FontColor = clAlphaColor.clHexToColor('#11212d'); 

 MyLabel1.SetclProSettings(MyLabel1.clProSettings); 

 UnitReForm.AddNewEvent(MyLabel1, tbeOnClick, 'LabelTiklandi');

 

 

LoginUyeOlBtn=UnitReForm.AddNewProButton(MainPnl,'LoginUyeOlBtn','Sign Up ');

LoginUyeOlBtn.Align=alCenter;

LoginUyeOlBtn.Height=50;

LoginUyeOlBtn.Width=MainPnl.Width*35/100; 

LoginUyeOlBtn.Margins.Top=40;

LoginUyeOlBtn.Margins.Left=20;

LoginUyeOlBtn.Margins.Right=20;

LoginUyeOlBtn.Margins.Bottom=70;

LoginUyeOlBtn.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d');

LoginUyeOlBtn.clProSettings.RoundHeight=20;

LoginUyeOlBtn.clProSettings.Roundwidth=20;

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

LoginUyeOlBtn.clProSettings.BorderColor=clAlphaColor.clHexToColor('#11212d'); 

LoginUyeOlBtn.clProSettings.FontSize=16;

LoginUyeOlBtn.clProSettings.Borderwidth=1;  

LoginUyeOlBtn.SetclProSettings(LoginUyeOlBtn.clProSettings); 

UnitReForm.SetFormBGImage(' https://i.imgur.com/7hlCQkt.jpeg" rel="nofollow - https://i.imgur.com/7hlCQkt.jpeg ');

UnitReForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');

 

UnitReForm.run;

}