var

  LoginForm : TclForm;

  

  // Conteneurs principaux et structure globale

  ScrollBox : TCLVertScrollBox;

  ShellContainer : TclLayout;

  StatusBarLayout : TclLayout;

  TabSwitcherLayout : TclLayout;

  Paneltext : TclProPanel;

  logoImg,loginImg:TClProImage;

  

  // Onglets (Tab Switcher)

  BtnTabSignUp : TclProButton;

  BtnTabSignIn : TclProButton;

  

  // ÉCRAN 1 : INSCRIPTION (SignUpLayout)

  SignUpLayout : TclLayout;

  HeaderSignUp : TclLayout;

  LblTitleSignUp : TclProLabel;

  LblSubSignUp : TclProLabel;

  LblRoleTitle : TclProLabel;

  BtnRoleDropdown : TclProButton; // Simule le sélecteur de rôle

  LblNameTitle : TclProLabel;

  EdtName : TclProEdit;

  

  LblEmailTitle : TclProLabel;

  EdtEmailSignUp : TclProEdit;

  

  LblPassTitle : TclProLabel;

  EdtPassSignUp : TclProEdit;

  

  BtnRegisterSubmit : TclProButton;

  BtnGoToLogin : TclProButton;

  

  // ÉCRAN 2 : CONNEXION (SignInLayout)

  SignInLayout : TclLayout;

  HeaderSignIn : TclLayout;

  LblTitleSignIn : TclProLabel;

  LblSubSignIn : TclProLabel;

  

  LblEmailTitleIn : TclProLabel;

  EdtEmailSignIn : TclProEdit;

  

  LblPassTitleIn : TclProLabel;

  EdtPassSignIn : TclProEdit;

  

  BtnForgotLink : TclProButton;

  BtnSignInSubmit : TclProButton;

  

  // Section Alternative Login

  AlternativeLayout : TclLayout;

  LblAlternativeDivider : TclProLabel;

  BtnBiometric : TclProButton;

  BtnQRCode : TclProButton;

  BtnGoToRegister : TclProButton;

  CmbRoleDropdown : TclComboBox;

{

  LoginForm =TclForm.Create(Self);

  LoginForm.SetFormColor('#080d14', '#0d1e32', clGVertical); // Fond radial simulé en dégradé profond

  

  // 0. ZONE DE DÉFILEMENT RESPONSIVE

  ScrollBox =LoginForm.AddNewVertScrollBox(LoginForm, 'ScrollBox');

  ScrollBox.Align =alClient;

  

  // Coque de simulation du téléphone mobile (MaxWidth 375px)

  ShellContainer =LoginForm.AddNewLayout(ScrollBox, 'ShellContainer');

  ShellContainer.Align =alTop;

  ShellContainer.Height =850;

  ShellContainer.Margins.Left =15;

  ShellContainer.Margins.Right =15;

  ShellContainer.Margins.Top =10;

  

  //panel text + Logo

  Paneltext = LoginForm.AddNewProPanel(ShellContainer, 'Paneltext');

  Paneltext.Align = alTop; 

  Paneltext.Height = 70; 

  Paneltext.Margins.Left = 20;

  Paneltext.Margins.Bottom = 40;

  Paneltext.Margins.Right = 20;

  Paneltext.clProSettings.IsRound = True;

  Paneltext.clProSettings.IsFill = False; 

  Paneltext.clProSettings.IsTransparent = True;

  Paneltext.SetclProSettings(Paneltext.clProSettings);

  

  // Logo image à l'intérieur du Paneltext

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

  logoImg.Align = alCenter; // Aligné au centre du panel pour être parfait visuellement

  logoImg.Width = 90;

  logoImg.Height = 90;

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

  

  // =========================================================================

  // LOGIQUE DE L'ÉCRAN 1 : SIGN UP (INSCRIPTION)

  // =========================================================================

  SignUpLayout =LoginForm.AddNewLayout(ShellContainer, 'SignUpLayout');

  SignUpLayout.Align =alTop;

  SignUpLayout.Height =650;

  

  HeaderSignUp =LoginForm.AddNewLayout(SignUpLayout, 'HeaderSignUp');

  HeaderSignUp.Align =alTop;

  HeaderSignUp.Height =75;

  

  

  LblTitleSignUp =LoginForm.AddNewProLabel(HeaderSignUp, 'LblTitleSignUp', 'STOCKOPS');

  LblTitleSignUp.Align =alTop;

  LblTitleSignUp.Height =50;

  LblTitleSignUp.Margins.Left =90;

  LblTitleSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');

  LblTitleSignUp.clProSettings.FontSize =40;

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

  LblTitleSignUp.SetclProSettings(LblTitleSignUp.clProSettings);

  

  LblSubSignUp =LoginForm.AddNewProLabel(HeaderSignUp, 'LblSubSignUp', 'ACCOUNT CREATION');

  LblSubSignUp.Align =alTop;

  LblSubSignUp.Height =18;

  LblSubSignUp.Margins.Left =150;

  LblSubSignUp.Margins.Bottom =30;

  LblSubSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');

  LblSubSignUp.clProSettings.FontSize =10;

  LblSubSignUp.SetclProSettings(LblSubSignUp.clProSettings);

  

  // Champ Sélecteur de Rôle

  LblRoleTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblRoleTitle', 'CHOOSE YOUR ROLE');

  LblRoleTitle.Align =alTop;

  LblRoleTitle.Height =18;

  LblRoleTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');

  LblRoleTitle.clProSettings.FontSize =10;

  LblRoleTitle.SetclProSettings(LblRoleTitle.clProSettings);

  

  /*BtnRoleDropdown =LoginForm.AddNewProButton(SignUpLayout, 'BtnRoleDropdown', 'Select a role... (Admin, Direction, Manager...)');

  BtnRoleDropdown.Align =alTop;

  BtnRoleDropdown.Height =52;

  BtnRoleDropdown.Margins.Bottom =12;

  BtnRoleDropdown.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');

  BtnRoleDropdown.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');

  BtnRoleDropdown.clProSettings.BorderWidth =1;

  BtnRoleDropdown.clProSettings.RoundWidth =12;

  BtnRoleDropdown.clProSettings.RoundHeight =12;

  BtnRoleDropdown.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');

  BtnRoleDropdown.clProSettings.FontSize =13;

  BtnRoleDropdown.SetclProSettings(BtnRoleDropdown.clProSettings);*/

  // --- REMPLACEMENT DU BOUTON PAR UN COMBOBOX ---

  CmbRoleDropdown = LoginForm.AddNewComboBox(SignUpLayout, 'CmbRoleDropdown');

  CmbRoleDropdown.Align = alTop;

  CmbRoleDropdown.Height = 52;

  CmbRoleDropdown.Margins.Bottom = 12;

  

  // Application du style visuel Nuit & Bleu (clProSettings)

  CmbRoleDropdown.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0d1520');

  CmbRoleDropdown.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1a2d42');

  CmbRoleDropdown.clProSettings.BorderWidth = 1;

  CmbRoleDropdown.clProSettings.RoundWidth = 12;

  CmbRoleDropdown.clProSettings.RoundHeight = 12;

  CmbRoleDropdown.TextSettings.FontColor = clAlphaColor.clHexToColor('#5a7a9a');

  CmbRoleDropdown.TextSettings.FontSize = 13;

  CmbRoleDropdown.SetclProSettings(CmbRoleDropdown.clProSettings);

  

  // Insertion des options de rôles de l'entreprise

  CmbRoleDropdown.AddItem('Admin', 'admin');

  CmbRoleDropdown.AddItem('Direction', 'direction');

  CmbRoleDropdown.AddItem('Manager', 'manager');

  CmbRoleDropdown.AddItem('Stock', 'stock');

  CmbRoleDropdown.AddItem('Secrétaire', 'secretaire');

  

  // Champ Nom Complet

  LblNameTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblNameTitle', 'FULL NAME');

  LblNameTitle.Align =alTop;

  LblNameTitle.Height =18;

  LblNameTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');

  LblNameTitle.clProSettings.FontSize =10;

  LblNameTitle.SetclProSettings(LblNameTitle.clProSettings);

  

  EdtName =LoginForm.AddNewProEdit(SignUpLayout, 'EdtName', 'Jean Dupont');

  EdtName.Align =alTop;

  EdtName.Height =52;

  EdtName.Margins.Bottom =12;

  EdtName.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');

  EdtName.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');

  EdtName.clProSettings.BorderWidth =1;

  EdtName.clProSettings.RoundWidth =12;

  EdtName.clProSettings.RoundHeight =12;

  EdtName.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');

  EdtName.clProSettings.FontSize =14;

  EdtName.SetclProSettings(EdtName.clProSettings);

  

  // Champ Adresse Email

  LblEmailTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblEmailTitle', 'EMAIL ADDRESS');

  LblEmailTitle.Align =alTop;

  LblEmailTitle.Height =18;

  LblEmailTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');

  LblEmailTitle.clProSettings.FontSize =10;

  LblEmailTitle.SetclProSettings(LblEmailTitle.clProSettings);

  

  EdtEmailSignUp =LoginForm.AddNewProEdit(SignUpLayout, 'EdtEmailSignUp', 'j.dupont@company.com');

  EdtEmailSignUp.Align =alTop;

  EdtEmailSignUp.Height =52;

  EdtEmailSignUp.Margins.Bottom =12;

  EdtEmailSignUp.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');

  EdtEmailSignUp.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');

  EdtEmailSignUp.clProSettings.BorderWidth =1;

  EdtEmailSignUp.clProSettings.RoundWidth =12;

  EdtEmailSignUp.clProSettings.RoundHeight =12;

  EdtEmailSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');

  EdtEmailSignUp.clProSettings.FontSize =14;

  EdtEmailSignUp.SetclProSettings(EdtEmailSignUp.clProSettings);

  

  // Champ Mot de passe

  LblPassTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblPassTitle', 'PASSWORD');

  LblPassTitle.Align =alTop;

  LblPassTitle.Height =18;

  LblPassTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');

  LblPassTitle.clProSettings.FontSize =10;

  LblPassTitle.SetclProSettings(LblPassTitle.clProSettings);

  

  EdtPassSignUp =LoginForm.AddNewProEdit(SignUpLayout, 'EdtPassSignUp', 'Create a strong password');

  EdtPassSignUp.Align =alTop;

  EdtPassSignUp.Height =52;

  EdtPassSignUp.Margins.Bottom =20;

  EdtPassSignUp.Password =True;

  EdtPassSignUp.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');

  EdtPassSignUp.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');

  EdtPassSignUp.clProSettings.BorderWidth =1;

  EdtPassSignUp.clProSettings.RoundWidth =12;

  EdtPassSignUp.clProSettings.RoundHeight =12;

  EdtPassSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');

  EdtPassSignUp.clProSettings.FontSize =14;

  EdtPassSignUp.SetclProSettings(EdtPassSignUp.clProSettings);

  

  // Bouton de Soumission Register

  BtnRegisterSubmit =LoginForm.AddNewProButton(SignUpLayout, 'BtnRegisterSubmit', 'REGISTER');

  BtnRegisterSubmit.Align =alTop;

  BtnRegisterSubmit.Height =52;

  BtnRegisterSubmit.Margins.Bottom =15;

  BtnRegisterSubmit.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#00d4ff');

  BtnRegisterSubmit.clProSettings.FontColor =clAlphaColor.clHexToColor('#080d14');

  BtnRegisterSubmit.clProSettings.FontSize =12;

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

  BtnRegisterSubmit.clProSettings.RoundWidth =12;

  BtnRegisterSubmit.clProSettings.RoundHeight =12;

  BtnRegisterSubmit.SetclProSettings(BtnRegisterSubmit.clProSettings);

  

  // Lien vers Login

  BtnGoToLogin =LoginForm.AddNewProButton(SignUpLayout, 'BtnGoToLogin', 'Already have an account? Log In');

  BtnGoToLogin.Align =alTop;

  BtnGoToLogin.Height =30;

  BtnGoToLogin.clProSettings.IsTransparent =True;

  BtnGoToLogin.clProSettings.IsFill =False;

  BtnGoToLogin.clProSettings.FontColor =clAlphaColor.clHexToColor('#00d4ff');

  BtnGoToLogin.clProSettings.FontSize =13;

  BtnGoToLogin.SetclProSettings(BtnGoToLogin.clProSettings);

  LoginForm.AddNewEvent(BtnGoToLogin, tbeOnClick, 'SwitchToSignIn');

  

  

  LoginForm.Run;

}