Pages.Index - Delphi

unit View.Pages.Index;

interface

uses
  System.Classes,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.ExtCtrls,
  View.Styles.Colors,
  Router4D,
  Router4D.Props;

type
  TPageIndex = class(TForm)
    Panel1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  [Subscribe]
  procedure Props (aValue : TProps);
  end;

var
  PageIndex: TPageIndex;

implementation

{$R *.dfm}

procedure TPageIndex.FormCreate(Sender: TObject);
begin
  Panel1.Color:=PRIMARY;
  GlobalEventBus.RegisterSubscriber(Self);
end;

procedure TPageIndex.FormShow(Sender: TObject);
begin
 WindowState:=wsMaximized;
 TRouter4D.Link.&To('Login001', Panel1);
end;

procedure TPageIndex.Props(aValue: TProps);
begin
  if aValue.Key = 'PageIndex' then
  begin
   TRouter4D.Link.&To('Main003', Panel1);
  end;
end;

end.