unit LoginMenu;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFormLogin = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    edtUsername: TEdit;
    edtPass: TEdit;
    Label1: TLabel;
    btnLogin: TButton;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure btnExitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btnLoginClick(Sender: TObject);
    procedure edtUsernameKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPassKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure edtPassKeyPress(Sender: TObject; var Key: Char);
    procedure edtUsernameKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  FormLogin: TFormLogin;
  Username_tag: string;

implementation

{$R *.dfm}

uses MenuLoginSignUp, MainMenu, MenuSignUp;

Procedure CheckForAllCompleteFields;
begin
  if (FormLogin.edtUsername.Text <> '') and (FormLogin.edtPass.Text <> '') then
    FormLogin.btnLogin.enabled := True;
end;

procedure TFormLogin.btnExitClick(Sender: TObject);
begin
  FormLoginSignUp.Visible := True;
  sleep(10); // prevents flash when changing forms
  FormLogin.Visible := False;
end;

procedure Show_Hidden_Button;
begin
  frmmainmenu.btnplay.top := 328;
  frmmainmenu.btncareer.top := 484;
  frmmainmenu.btnCardCreate.enabled := True;
end;

procedure Hide_Hidden_Button;
begin
  frmmainmenu.btnplay.top := 414;
  frmmainmenu.btncareer.top := 570;
  frmmainmenu.btnCardCreate.enabled := False;
end;

procedure Sign_in;

begin
  super_user := 'admin'; // set super use login name

  AssignFile(Info, 'UserInfo.dat');
  Reset(Info);
  while Not EoF(Info) do
  begin
    Read(Info, UserInfo);
    if (FormLogin.edtUsername.Text = UserInfo.Username) and
      (FormLogin.edtPass.Text = UserInfo.Password) then
    begin
      frmmainmenu.lblUsername.Caption := FormLogin.edtUsername.Text;
      frmmainmenu.Visible := True;
      sleep(10); // prevents flash when changing forms
      FormLogin.Visible := False;

    end
    else
      FormLogin.Label4.Visible := True;
  end;
  closefile(Info);
  usertag := FormLogin.edtUsername.Text;
  if usertag = super_user then
    Show_Hidden_Button
  else
    Hide_Hidden_Button;
end;

procedure TFormLogin.btnLoginClick(Sender: TObject);
begin
  Sign_in
end;

procedure TFormLogin.Button2Click(Sender: TObject);
begin
  frmmainmenu.Visible := True;
  sleep(10); // prevents flash when changing forms
  FormLogin.Visible := False;
end;

procedure TFormLogin.edtPassKeyPress(Sender: TObject; var Key: Char);
begin
  if ord(Key) = VK_RETURN then
  begin
    Key := #0; // prevent beeping
    Sign_in;
  end;
end;

procedure TFormLogin.edtPassKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  CheckForAllCompleteFields;
  Label4.Visible := False;
end;

procedure TFormLogin.edtUsernameKeyPress(Sender: TObject; var Key: Char);
begin
  if ord(Key) = VK_RETURN then
  begin
    Key := #0; // prevent beeping
    Sign_in;
  end;
end;

procedure TFormLogin.edtUsernameKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  CheckForAllCompleteFields;
  Label4.Visible := False;
end;

procedure TFormLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  FormLoginSignUp.Visible := True;
  sleep(10); // prevents flash when changing forms
  FormLogin.Visible := False;
end;

procedure TFormLogin.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  BorderStyle := bsNone;
  Left := 0;
  top := 0;
  Width := Screen.Width;
  Height := Screen.Height;
end;

end.