mirror of
https://github.com/CloudDelphi/Router4Delphi.git
synced 2025-12-19 16:53:43 +01:00
80 lines
1.5 KiB
ObjectPascal
80 lines
1.5 KiB
ObjectPascal
unit SimpleDemo.View.Principal;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils,
|
|
System.Types,
|
|
System.UITypes,
|
|
System.Classes,
|
|
System.Variants,
|
|
FMX.Types,
|
|
FMX.Controls,
|
|
FMX.Forms,
|
|
FMX.Graphics,
|
|
FMX.Dialogs,
|
|
FMX.Controls.Presentation,
|
|
FMX.StdCtrls,
|
|
FMX.ListBox,
|
|
FMX.Layouts,
|
|
FMX.Objects, FMX.Edit, FMX.SearchBox, FMX.MultiView;
|
|
|
|
type
|
|
TForm2 = class(TForm)
|
|
Layout1: TLayout;
|
|
Layout2: TLayout;
|
|
Layout3: TLayout;
|
|
Layout4: TLayout;
|
|
Rectangle1: TRectangle;
|
|
Rectangle2: TRectangle;
|
|
Label1: TLabel;
|
|
Layout5: TLayout;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
procedure RegisterRouters;
|
|
procedure createSideBar;
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form2: TForm2;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Router4D,
|
|
SimpleDemo.View.Page.Cadastros,
|
|
SimpleDemo.View.Page.Principal;
|
|
|
|
{$R *.fmx}
|
|
|
|
procedure TForm2.FormShow(Sender: TObject);
|
|
begin
|
|
RegisterRouters;
|
|
TRouter4D.Render<TPagePrincipal>.SetElement(Layout4, Layout1);
|
|
end;
|
|
|
|
procedure TForm2.RegisterRouters;
|
|
begin
|
|
TRouter4D.Switch.Router('Inicio', TPagePrincipal);
|
|
TRouter4D.Switch.Router('Cadastros', TPageCadastros);
|
|
TRouter4D.Switch.Router('Configuracoes', TPageCadastros);
|
|
createSideBar;
|
|
end;
|
|
|
|
procedure TForm2.createSideBar;
|
|
begin
|
|
TRouter4D
|
|
.SideBar
|
|
.MainContainer(Layout5)
|
|
.LinkContainer(Layout4)
|
|
.FontSize(15)
|
|
.FontColor(4294967295)
|
|
.ItemHeigth(60)
|
|
.RenderToListBox;
|
|
end;
|
|
|
|
end.
|