blob: c11d25a7552105d7c1592b46e4e40a1db82ad755 (
plain)
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
|
object Form1: TForm1
Left = 458
Height = 603
Top = 240
Width = 275
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Тетрис'
ClientHeight = 603
ClientWidth = 275
Color = clBtnFace
DesignTimePPI = 120
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
LCLVersion = '4.6.0.0'
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
object Screen: TImage
Left = 0
Height = 550
Top = 0
Width = 275
end
object BackBuffer: TImage
Left = 0
Height = 550
Top = 20
Width = 275
Visible = False
end
object Label1: TLabel
Left = 7
Height = 25
Top = 560
Width = 65
Caption = 'Линий:'
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
ParentFont = False
end
object LinesLabel: TLabel
Left = 80
Height = 25
Top = 560
Width = 11
Caption = '0'
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
ParentFont = False
end
object Label2: TLabel
Left = 127
Height = 25
Top = 560
Width = 53
Caption = 'Очки:'
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
ParentFont = False
end
object ScoreLabel: TLabel
Left = 193
Height = 25
Top = 560
Width = 11
Caption = '0'
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
ParentFont = False
end
object ImageList: TImageList
Height = 22
Width = 22
Left = 50
Top = 40
Bitmap = {
4C7A0500000016000000160000002F0000000000000078DAEDD8310100300C02
30A4571ACE36193C3962226D5F0180A9E401006B170060EC7200C098200080BD
0F140E46F1
}
end
end
|
