RealICQClient/Client/Views/MainViews/UIMainForm.pas

unit UIMainForm;

interface

uses
  mybean.core.objects, System.Classes, InterfaceUI, MainLayout, LoginView,
  LoginedView, LoginedViewHeader, LoginedViewMain, LoginedViewFooter, System.SysUtils;


type
  TUIMainForm = class(TMyBeanInterfacedObject, IUIMainForm)
  private
    FMainLayout: TMainLayoutForm;
    FLoginView: TLoginViewForm;
    FLoginedView: TLoginedViewForm;
    FLoginedViewHeader: TLoginedViewHeaderForm;
    FLoginedViewMain: TLoginedViewMainForm;
    FLoginedViewFooter: TLoginedViewFooterForm;

    procedure Init;
    procedure LoginState;
    procedure LoginingState;
    procedure LoginedState;
  public
    constructor Create; override;
    destructor Destroy; override;
    procedure Show;
    procedure Hide;
    function SetViewState(AState: TUIMainViewState): Boolean;
  end;

implementation

uses
  Vcl.Forms;

{ TMainForm }

constructor TUIMainForm.Create;
begin
  inherited;
  FMainLayout := TMainLayoutForm.Create(nil);
  FLoginView := TLoginViewForm.Create(FMainLayout);
  FLoginedView := TLoginedViewForm.Create(FMainLayout);;
  FLoginedViewHeader := TLoginedViewHeaderForm.Create(FMainLayout);;
  FLoginedViewMain := TLoginedViewMainForm.Create(FMainLayout);
  FLoginedViewFooter := TLoginedViewFooterForm.Create(FMainLayout);
  Init;
end;

destructor TUIMainForm.Destroy;
begin
  FreeAndNil(FLoginView);
  FreeAndNil(FLoginedViewFooter);
  FreeAndNil(FLoginedViewMain);
  FreeAndNil(FLoginedViewHeader);
  FreeAndNil(FLoginedView);
//  FreeAndNil(FLoginView);

  inherited;
end;

procedure TUIMainForm.Hide;
begin

end;

procedure TUIMainForm.Init;
begin
  FLoginView.pnlLoginView.Parent := FMainLayout;
  FLoginedView.pnlLoginedView.Parent := FMainLayout;
  FLoginedViewHeader.pnlTop.Parent := FLoginedView.pnlMain;
  FLoginedViewFooter.pnlWebSearch.Parent := FLoginedView.pnlMain;
  FLoginedViewMain.pnlClient.Parent := FLoginedView.pnlMain;
//  FLoginedViewMain
  FMainLayout.ChangeUIColor($EADEBA);
  LoginState;
end;

procedure TUIMainForm.LoginedState;
begin
  FLoginView.pnlLoginView.Visible := False;
  FLoginedView.pnlLoginedView.Visible := True;
  FMainLayout.Height := FLoginedView.Height;
  FMainLayout.Width := FLoginedView.Width;
end;

procedure TUIMainForm.LoginingState;
begin
  FLoginView.pnlLoginView.Visible := True;
  FLoginedView.pnlLoginedView.Visible := False;
end;

procedure TUIMainForm.LoginState;
begin
  FMainLayout.Height := FLoginView.Height;
  FMainLayout.Width := FLoginView.Width;
  FMainLayout.Top := (Screen.Height - FMainLayout.Height) div 2;
  FMainLayout.Left := (Screen.Width - FMainLayout.Width) div 2;
  FLoginView.pnlLoginView.Visible := True;
  FLoginedView.pnlLoginedView.Visible := False;
end;

function TUIMainForm.SetViewState(AState: TUIMainViewState): Boolean;
begin
  case AState of
    mvsLogin:
    begin
      LoginState;
      Exit;
    end;
    mvsLogining:
    begin
      LoginingState;
      Exit;
    end;
    mvsLogined:
    begin
      LoginedState;
      Exit;
    end;
  end;
end;

procedure TUIMainForm.Show;
begin
  FMainLayout.Show;
end;

end.