-
-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathfSceneMenu.fmx
134 lines (134 loc) · 4.48 KB
/
fSceneMenu.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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
inherited frmSceneMenu: TfrmSceneMenu
Size.Width = 554.000000000000000000
Size.Height = 497.000000000000000000
inherited btnMenu: TButton
Position.Y = 462.000000000000000000
Size.Width = 514.000000000000000000
StyleLookup = ''
Visible = False
OnClick = btnQuitClick
end
object VertScrollBox1: TVertScrollBox
Align = Contents
Size.Width = 554.000000000000000000
Size.Height = 497.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Viewport.Width = 554.000000000000000000
Viewport.Height = 497.000000000000000000
object lblTitle: TLabel
Align = Top
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 10.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 18.000000000000000000
Position.Y = 20.000000000000000000
Scale.X = 1.799999952316284000
Scale.Y = 2.000000000000000000
Size.Width = 287.777801513671900000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Center
Text = 'Where is Bernie ?'
TabOrder = 0
end
object btnContinue: TButton
Align = Top
Margins.Left = 20.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 20.000000000000000000
Position.Y = 84.000000000000000000
Size.Width = 514.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'MenuButtonStyle'
TabOrder = 1
Text = 'Continue'
OnClick = btnContinueClick
end
object btnPlay: TButton
Align = Top
Margins.Left = 20.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 20.000000000000000000
Position.Y = 154.000000000000000000
Size.Width = 514.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'MenuButtonStyle'
TabOrder = 2
Text = 'Play'
OnClick = btnPlayClick
end
object btnScores: TButton
Align = Top
Margins.Left = 20.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 20.000000000000000000
Position.Y = 224.000000000000000000
Size.Width = 514.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'MenuButtonStyle'
TabOrder = 3
Text = 'Scores'
OnClick = btnScoresClick
end
object btnOptions: TButton
Align = Top
Margins.Left = 20.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 20.000000000000000000
Position.Y = 294.000000000000000000
Size.Width = 514.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'MenuButtonStyle'
TabOrder = 4
Text = 'Options'
OnClick = btnOptionsClick
end
object btnCredits: TButton
Align = Top
Margins.Left = 20.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 20.000000000000000000
Position.Y = 364.000000000000000000
Size.Width = 514.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'MenuButtonStyle'
TabOrder = 5
Text = 'Credits'
OnClick = btnCreditsClick
end
object btnQuit: TButton
Align = Top
Cancel = True
Margins.Left = 20.000000000000000000
Margins.Top = 10.000000000000000000
Margins.Right = 20.000000000000000000
Margins.Bottom = 10.000000000000000000
Position.X = 20.000000000000000000
Position.Y = 434.000000000000000000
Size.Width = 514.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'MenuButtonStyle'
TabOrder = 6
Text = 'Quit'
OnClick = btnQuitClick
end
end
end