mirror of
https://github.com/CloudDelphi/Router4Delphi.git
synced 2025-12-19 16:53:43 +01:00
69 lines
1.0 KiB
ObjectPascal
69 lines
1.0 KiB
ObjectPascal
unit View.Page.Template;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows,
|
|
Winapi.Messages,
|
|
System.SysUtils,
|
|
System.Variants,
|
|
System.Classes,
|
|
Vcl.Graphics,
|
|
Vcl.Controls,
|
|
Vcl.Forms,
|
|
Vcl.Dialogs,
|
|
Router4D.Interfaces,
|
|
Vcl.ExtCtrls,
|
|
Vcl.StdCtrls,
|
|
Router4D.Props,
|
|
Router4D;
|
|
|
|
type
|
|
TfViewPageTemplate = class(TForm, IRouter4DComponent)
|
|
pnlBackground: TPanel;
|
|
btnBack: TButton;
|
|
lblTitle: TLabel;
|
|
lblSubtitle: TLabel;
|
|
procedure btnBackClick(Sender: TObject);
|
|
private
|
|
function Render: TForm;
|
|
procedure UnRender;
|
|
public
|
|
[Subscribe]
|
|
procedure Props(AValue: TProps);
|
|
end;
|
|
|
|
var
|
|
fViewPageTemplate: TfViewPageTemplate;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfViewPageTemplate }
|
|
|
|
procedure TfViewPageTemplate.btnBackClick(Sender: TObject);
|
|
begin
|
|
TRouter4D.Link.&To('Start');
|
|
end;
|
|
|
|
procedure TfViewPageTemplate.Props(AValue: TProps);
|
|
begin
|
|
lblSubtitle.Caption := AValue.PropString;
|
|
|
|
AValue.Free;
|
|
end;
|
|
|
|
function TfViewPageTemplate.Render: TForm;
|
|
begin
|
|
Result := Self;
|
|
end;
|
|
|
|
procedure TfViewPageTemplate.UnRender;
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|