RealICQClient/Client/Views/MainViews/LoginView.pas

unit LoginView;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Imaging.GIFImg,
  RealICQSpeedButton, Vcl.Buttons, RealICQButton, Vcl.Graphics,
  Vcl.Imaging.pngimage, RxCtrls, MetropolisUI.Tile, Vcl.Mask, RxToolEdit,
  RxCombos, RxDice, Vcl.ComCtrls;

type
  TLoginViewForm = class(TForm)
    pnlLoginView: TPanel;
    btLogin: TRealICQButton;
    edLoginName: TEdit;
    edPassword: TEdit;
    Image1: TImage;
    lblLoginNameTitle: TLabel;
    lblLoginStateTitle: TLabel;
    lblNetworkConfig: TLabel;
    lblPasswordTitle: TLabel;
    lblRemoveMyLoginInfo: TLabel;
    spbChangeLoginName: TRealICQSpeedButton;
    spbLoginState: TRealICQSpeedButton;
    spLoginNameBorder: TShape;
    spPasswordBorder: TShape;
    imgLogo: TImage;
    chk1: TRxCheckBox;
    chk2: TRxCheckBox;
    chk3: TRxCheckBox;
    procedure btLoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginViewForm: TLoginViewForm;

implementation

uses
  UIImport, InterfaceUI;

{$R *.dfm}

procedure TLoginViewForm.btLoginClick(Sender: TObject);
begin
  GetMainForm.SetViewState(mvsLogined);
end;

end.