-
Notifications
You must be signed in to change notification settings - Fork 4
/
Routes.home.pas
54 lines (40 loc) · 1.23 KB
/
Routes.home.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Routes.home;
interface
uses
Classes, SysUtils, FMX.ListView.Appearances
;
procedure home_definition();
implementation
uses
FMXER.Navigator, FMXER.ScaffoldForm, FMXER.ListViewFrame
, Utils.UI;
procedure home_definition();
begin
Navigator.DefineRoute<TScaffoldForm>(
'home'
, procedure(AHome: TScaffoldForm)
begin
AHome.Title := 'FE Mobile Client';
AHome.SetContentAsFrame<TListViewFrame>(
procedure (AListFrame: TListViewFrame)
begin
AListFrame.ItemAppearance := 'ImageListItem';
AListFrame.AddItem('Fatture inviate', '', UIUtils.FatturaInviataImageIndex
, procedure (const AItem: TListViewItem)
begin
Navigator.RouteTo('fatture_inviate');
end);
AListFrame.AddItem('Fatture ricevute', '', UIUtils.FatturaRicevutaImageIndex
, procedure (const AItem: TListViewItem)
begin
Navigator.RouteTo('fatture_ricevute');
end);
AListFrame.AddItem('Cambia password', '', UIUtils.ChangePasswordImageIndex
, procedure (const AItem: TListViewItem)
begin
Navigator.RouteTo('change_password');
end);
end);
end);
end;
end.