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
|
object PlayGroundForm: TPlayGroundForm
Left = 305
Height = 300
Top = 224
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
Caption = 'PlayGroundForm'
ClientHeight = 300
ClientWidth = 400
KeyPreview = True
OnClose = PlayGroundFormClose
OnCreate = PlayGroundFormCreate
OnDestroy = PlayGroundFormDestroy
LCLVersion = '1.9.0.0'
object Panel1: TPanel
Left = 0
Height = 268
Top = 0
Width = 400
Align = alClient
BevelOuter = bvNone
TabOrder = 0
end
object Panel2: TPanel
Left = 0
Height = 32
Top = 268
Width = 400
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 32
ClientWidth = 400
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = ComboBox1
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 9
Width = 116
BorderSpacing.Left = 4
Caption = 'Sprite movement by...'
ParentColor = False
end
object ComboBox1: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
Left = 128
Height = 23
Top = 5
Width = 268
Anchors = [akTop, akLeft, akRight]
ArrowKeysTraverseList = False
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'code'
'mouse'
'arrow keys'
'arrow keys (smooth)'
'arrow keys with inertia'
)
OnChange = ComboBox1Change
Style = csDropDownList
TabOrder = 0
Text = 'code'
end
end
object Timer1: TTimer
Enabled = False
Interval = 40
OnTimer = Timer1Timer
left = 164
top = 49
end
end
|
