forked from malcolmgroves/drawerform
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathfMain.fmx
executable file
·70 lines (70 loc) · 1.86 KB
/
fMain.fmx
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'Form2'
ClientHeight = 460
ClientWidth = 320
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Orientations = [soPortrait, soLandscape, soInvertedPortrait, soInvertedLandscape]
FormFactor.Devices = [dkDesktop]
OnResize = FormResize
DesignerMobile = True
DesignerWidth = 320
DesignerHeight = 480
DesignerDeviceName = 'iPhone'
DesignerOrientation = 0
DesignerOSVersion = '7'
object lytDrawer: TLayout
Height = 460.000000000000000000
Width = 217.000000000000000000
end
object lytMain: TLayout
Height = 460.000000000000000000
Position.X = 104.000000000000000000
Width = 216.000000000000000000
object ToolBar1: TToolBar
Touch.GestureManager = GestureManager1
Height = 44.000000000000000000
Padding.Left = 8.000000000000000000
TabOrder = 0
Width = 216.000000000000000000
object btnDrawer: TButton
Action = actOpenDrawer
Align = alLeft
Height = 44.000000000000000000
Position.X = 8.000000000000000000
StyleLookup = 'detailstoolbuttonbordered'
TabOrder = 0
Trimming = ttCharacter
Width = 44.000000000000000000
end
end
end
object ActionList1: TActionList
Left = 168
Top = 360
object actOpenDrawer: TAction
Text = 'actOpenDrawer'
OnExecute = actOpenDrawerExecute
OnUpdate = actOpenDrawerUpdate
end
end
object GestureManager1: TGestureManager
Left = 168
Top = 296
GestureData = <
item
Control = ToolBar1
Collection = <
item
Action = actOpenDrawer
GestureID = sgiLeft
end
item
Action = actOpenDrawer
GestureID = sgiRight
end>
end>
end
end