Personale/Router4Delphi
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Router4Delphi.git synced 2025-12-19 08:43:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Update Demo

Browse Source
This commit is contained in:
Thulio Bittencourt 2021-05-10 11:43:02 -03:00
parent e05c0c49f9
commit 096065342c
6 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Samples/FMX/Demo/Views/Pages/Router4DelphiDemo.View.Pages.Index.fmx
View File

@ -23,5 +23,11 @@ object PageIndex: TPageIndex
TextSettings.HorzAlign = Center
Text = 'Home'
end
object Button1: TButton
Position.X = 424.000000000000000000
Position.Y = 408.000000000000000000
TabOrder = 0
Text = 'Button1'
end
end
end

2
Samples/FMX/Demo/Views/Pages/Router4DelphiDemo.View.Pages.Index.pas
View File

@ -20,6 +20,7 @@ type
TPageIndex = class(TForm, iRouter4DComponent)
Layout1: TLayout;
Label1: TLabel;
Button1: TButton;
private
{ Private declarations }
public
@ -35,6 +36,7 @@ implementation
uses
Router4D,
Router4D.History,
Router4DelphiDemo.Views.Layouts.Main;
{$R *.fmx}

9
Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
View File

@ -30,9 +30,16 @@ uses
{$R *.fmx}
procedure TViewPrincipal.Animation(aLayout: TFMXObject);
var
aHeigth : Single;
begin
aHeigth := TLayout(aLayout).Height;
TLayout(aLayout).Height := 0;
TLayout(aLayout).Align := TAlignLayout.None;
TLayout(aLayout).AnimateFloat('Height', aHeigth, 0.9);
TLayout(aLayout).Opacity := 0;
TLayout(aLayout).AnimateFloat('Opacity', 1, 0.2);
TLayout(aLayout).AnimateFloat('Opacity', 1, 0.9);
//TLayout(aLayout).Align := TAlignLayout.Client;
end;
procedure TViewPrincipal.FormCreate(Sender: TObject);

11
Samples/FMX/SimpleDemo/SimpleDemo.View.Page.Cadastros.fmx
View File

@ -63,6 +63,17 @@ object PageCadastros: TPageCadastros
Size.Height = 25.000000000000000000
Size.PlatformDefault = False
end
object Label2: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 128.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 201.000000000000000000
Size.Height = 49.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 18.000000000000000000
Text = 'Label do Leandro'
TabOrder = 0
end
end
object Layout4: TLayout
Align = Top

4
Samples/FMX/SimpleDemo/SimpleDemo.View.Page.Cadastros.pas
View File

@ -29,6 +29,7 @@ type
Layout3: TLayout;
Rectangle1: TRectangle;
Layout4: TLayout;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
@ -72,6 +73,9 @@ begin
if (aValue.PropString <> '') and (aValue.Key = 'TelaCadastro') then
Label1.Text := aValue.PropString;
if (aValue.PropInteger <> 1) then
Label2.Visible := False;
aValue.Free;
end;

1
Samples/FMX/SimpleDemo/SimpleDemo.View.Page.Principal.pas
View File

@ -52,6 +52,7 @@ begin
.PropString(
'Olá Router4D, Seu Cadastro Recebeu as Props'
)
.PropInteger(0)
.Key('TelaCadastro')
);
end;