source: branches/test1/Client/Forms/UFormLogin.pas

unit UFormLogin;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  MaskEdit, ExtCtrls, URegistry, Registry;

type

  { TLoginForm }

  TLoginForm = class(TForm)
    ButtonChange: TButton;
    ButtonCancel: TButton;
    ButtonLogin: TButton;
    CheckBoxRememberPassword: TCheckBox;
    ComboBoxConnection: TComboBox;
    EditUserName: TEdit;
    EditPassword: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonChangeClick(Sender: TObject);
    procedure ButtonLoginClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
  public
    procedure UpdateInterface;
  end;

var
  LoginForm: TLoginForm;

implementation

{$R *.lfm}

uses
  UCore, UFormLoginProfile, UFormMain;

{ TLoginForm }

procedure TLoginForm.ButtonLoginClick(Sender: TObject);
begin
  Core.LastUserName := EditUserName.Text;
  Core.LastProfile := ComboBoxConnection.ItemIndex;
  Core.LastPassword := EditPassword.Text;
  Core.RememberPassword := CheckBoxRememberPassword.Checked;
end;

procedure TLoginForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  //MainForm.PersistentForm.Save(Self);
end;

procedure TLoginForm.FormShow(Sender: TObject);
begin
  //MainForm.PersistentForm.Load(Self);
  EditUserName.Text := Core.LastUserName;
  EditPassword.Text := Core.LastPassword;
  EditPassword.SetFocus;
  CheckBoxRememberPassword.Checked := Core.RememberPassword;
  Core.Profiles.FillStrings(ComboBoxConnection.Items);
  ComboBoxConnection.ItemIndex := Core.LastProfile;
  if (ComboBoxConnection.Items.Count > 0) and
    (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
  UpdateInterface;
end;

procedure TLoginForm.UpdateInterface;
begin
  ButtonLogin.Enabled := ComboBoxConnection.ItemIndex >= 0;
end;

procedure TLoginForm.ButtonCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TLoginForm.ButtonChangeClick(Sender: TObject);
begin
  try
    LoginProfileForm := TLoginProfileForm.Create(MainForm);
    Core.CoolTranslator1.TranslateComponentRecursive(LoginProfileForm);
    if LoginProfileForm.ShowModal = mrOk then begin
      Core.Profiles.FillStrings(ComboBoxConnection.Items);
      Core.LastProfile := ComboBoxConnection.ItemIndex;
      ComboBoxConnection.ItemIndex := Core.LastProfile;
      if (ComboBoxConnection.Items.Count > 0) and
        (ComboBoxConnection.ItemIndex = -1) then ComboBoxConnection.ItemIndex := 0;
    end;
  finally
    LoginProfileForm.Free;
  end;
  UpdateInterface;
end;

end.