Skip to content

Commit eaf0b77

Browse files
KicshikxoKicshikxo
committed
Initial commit
0 parents  commit eaf0b77

6 files changed

+968
-0
lines changed

‎Game.MainForm.inc

+351
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,351 @@
1+
procedure InitializeComponent;
2+
begin
3+
self.components := new System.ComponentModel.Container();
4+
var resources: System.ComponentModel.ComponentResourceManager := new System.ComponentModel.ComponentResourceManager(typeof(MainForm));
5+
self.GamePictureBox := new System.Windows.Forms.PictureBox();
6+
self.NextFigurePictureBox := new System.Windows.Forms.PictureBox();
7+
self.ScoreLabel := new System.Windows.Forms.Label();
8+
self.RestartButton := new System.Windows.Forms.Button();
9+
self.MoveTimer := new System.Windows.Forms.Timer(self.components);
10+
self.GameOverPanel := new System.Windows.Forms.Panel();
11+
self.GameOverCloseButton := new System.Windows.Forms.Button();
12+
self.ResultScoreLabel := new System.Windows.Forms.Label();
13+
self.BoostSpeedLabel1 := new System.Windows.Forms.Label();
14+
self.BoostSpeed1 := new System.Windows.Forms.TrackBar();
15+
self.GameOverPanelRestartButton := new System.Windows.Forms.Button();
16+
self.GameSpeedLabel1 := new System.Windows.Forms.Label();
17+
self.GameSpeed1 := new System.Windows.Forms.TrackBar();
18+
self.label2 := new System.Windows.Forms.Label();
19+
self.MainTimer := new System.Windows.Forms.Timer(self.components);
20+
self.StartPanel := new System.Windows.Forms.Panel();
21+
self.BoostSpeedLabel2 := new System.Windows.Forms.Label();
22+
self.BoostSpeed2 := new System.Windows.Forms.TrackBar();
23+
self.GameSpeedLabel2 := new System.Windows.Forms.Label();
24+
self.label1 := new System.Windows.Forms.Label();
25+
self.GameSpeed2 := new System.Windows.Forms.TrackBar();
26+
self.ExitButton := new System.Windows.Forms.Button();
27+
self.StartButton := new System.Windows.Forms.Button();
28+
self.PauseButton := new System.Windows.Forms.Button();
29+
self.GiveUpButton := new System.Windows.Forms.Button();
30+
(System.ComponentModel.ISupportInitialize(self.GamePictureBox)).BeginInit();
31+
(System.ComponentModel.ISupportInitialize(self.NextFigurePictureBox)).BeginInit();
32+
self.GameOverPanel.SuspendLayout();
33+
(System.ComponentModel.ISupportInitialize(self.BoostSpeed1)).BeginInit();
34+
(System.ComponentModel.ISupportInitialize(self.GameSpeed1)).BeginInit();
35+
self.StartPanel.SuspendLayout();
36+
(System.ComponentModel.ISupportInitialize(self.BoostSpeed2)).BeginInit();
37+
(System.ComponentModel.ISupportInitialize(self.GameSpeed2)).BeginInit();
38+
self.SuspendLayout();
39+
//
40+
// GamePictureBox
41+
//
42+
self.GamePictureBox.BackColor := System.Drawing.SystemColors.ControlLightLight;
43+
self.GamePictureBox.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
44+
self.GamePictureBox.Location := new System.Drawing.Point(12, 55);
45+
self.GamePictureBox.Name := 'GamePictureBox';
46+
self.GamePictureBox.Size := new System.Drawing.Size(303, 603);
47+
self.GamePictureBox.TabIndex := 3;
48+
self.GamePictureBox.TabStop := false;
49+
//
50+
// NextFigurePictureBox
51+
//
52+
self.NextFigurePictureBox.BackColor := System.Drawing.SystemColors.ControlLightLight;
53+
self.NextFigurePictureBox.BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
54+
self.NextFigurePictureBox.Location := new System.Drawing.Point(321, 55);
55+
self.NextFigurePictureBox.Name := 'NextFigurePictureBox';
56+
self.NextFigurePictureBox.Size := new System.Drawing.Size(153, 153);
57+
self.NextFigurePictureBox.TabIndex := 4;
58+
self.NextFigurePictureBox.TabStop := false;
59+
//
60+
// ScoreLabel
61+
//
62+
self.ScoreLabel.Font := new System.Drawing.Font('Microsoft Sans Serif', 20.25, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
63+
self.ScoreLabel.Location := new System.Drawing.Point(321, 12);
64+
self.ScoreLabel.Name := 'ScoreLabel';
65+
self.ScoreLabel.Size := new System.Drawing.Size(150, 40);
66+
self.ScoreLabel.TabIndex := 5;
67+
self.ScoreLabel.Text := 'Счёт: 0';
68+
self.ScoreLabel.TextAlign := System.Drawing.ContentAlignment.MiddleCenter;
69+
//
70+
// RestartButton
71+
//
72+
self.RestartButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
73+
self.RestartButton.Location := new System.Drawing.Point(321, 215);
74+
self.RestartButton.Name := 'RestartButton';
75+
self.RestartButton.Size := new System.Drawing.Size(153, 40);
76+
self.RestartButton.TabIndex := 7;
77+
self.RestartButton.TabStop := false;
78+
self.RestartButton.Text := 'Рестарт';
79+
self.RestartButton.UseVisualStyleBackColor := true;
80+
self.RestartButton.Click += RestartButton_Click;
81+
//
82+
// MoveTimer
83+
//
84+
self.MoveTimer.Tick += MoveTimer_Tick;
85+
//
86+
// GameOverPanel
87+
//
88+
self.GameOverPanel.Controls.Add(self.GameOverCloseButton);
89+
self.GameOverPanel.Controls.Add(self.ResultScoreLabel);
90+
self.GameOverPanel.Controls.Add(self.BoostSpeedLabel1);
91+
self.GameOverPanel.Controls.Add(self.BoostSpeed1);
92+
self.GameOverPanel.Controls.Add(self.GameOverPanelRestartButton);
93+
self.GameOverPanel.Controls.Add(self.GameSpeedLabel1);
94+
self.GameOverPanel.Controls.Add(self.GameSpeed1);
95+
self.GameOverPanel.Controls.Add(self.label2);
96+
self.GameOverPanel.Location := new System.Drawing.Point(12, 12);
97+
self.GameOverPanel.Name := 'GameOverPanel';
98+
self.GameOverPanel.Size := new System.Drawing.Size(463, 646);
99+
self.GameOverPanel.TabIndex := 8;
100+
self.GameOverPanel.Visible := false;
101+
//
102+
// GameOverCloseButton
103+
//
104+
self.GameOverCloseButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
105+
self.GameOverCloseButton.Location := new System.Drawing.Point(106, 439);
106+
self.GameOverCloseButton.Name := 'GameOverCloseButton';
107+
self.GameOverCloseButton.Size := new System.Drawing.Size(250, 50);
108+
self.GameOverCloseButton.TabIndex := 16;
109+
self.GameOverCloseButton.TabStop := false;
110+
self.GameOverCloseButton.Text := 'Выход';
111+
self.GameOverCloseButton.UseVisualStyleBackColor := true;
112+
self.GameOverCloseButton.Click += ExitButton_Click;
113+
//
114+
// ResultScoreLabel
115+
//
116+
self.ResultScoreLabel.Font := new System.Drawing.Font('Microsoft Sans Serif', 18, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
117+
self.ResultScoreLabel.Location := new System.Drawing.Point(4, 72);
118+
self.ResultScoreLabel.Name := 'ResultScoreLabel';
119+
self.ResultScoreLabel.Size := new System.Drawing.Size(455, 32);
120+
self.ResultScoreLabel.TabIndex := 15;
121+
self.ResultScoreLabel.Text := 'Итоговый счёт: 0';
122+
self.ResultScoreLabel.TextAlign := System.Drawing.ContentAlignment.TopCenter;
123+
//
124+
// BoostSpeedLabel1
125+
//
126+
self.BoostSpeedLabel1.Font := new System.Drawing.Font('Microsoft Sans Serif', 9.75, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
127+
self.BoostSpeedLabel1.Location := new System.Drawing.Point(106, 314);
128+
self.BoostSpeedLabel1.Name := 'BoostSpeedLabel1';
129+
self.BoostSpeedLabel1.Size := new System.Drawing.Size(243, 23);
130+
self.BoostSpeedLabel1.TabIndex := 14;
131+
self.BoostSpeedLabel1.Text := 'Скорость при ускорении: 100';
132+
self.BoostSpeedLabel1.TextAlign := System.Drawing.ContentAlignment.TopCenter;
133+
//
134+
// BoostSpeed1
135+
//
136+
self.BoostSpeed1.LargeChange := 100;
137+
self.BoostSpeed1.Location := new System.Drawing.Point(106, 292);
138+
self.BoostSpeed1.Maximum := 1000;
139+
self.BoostSpeed1.Minimum := 10;
140+
self.BoostSpeed1.Name := 'BoostSpeed1';
141+
self.BoostSpeed1.Size := new System.Drawing.Size(243, 45);
142+
self.BoostSpeed1.SmallChange := 100;
143+
self.BoostSpeed1.TabIndex := 13;
144+
self.BoostSpeed1.TabStop := false;
145+
self.BoostSpeed1.Value := 100;
146+
self.BoostSpeed1.Scroll += BoostSpeed1_Scroll;
147+
//
148+
// GameOverPanelRestartButton
149+
//
150+
self.GameOverPanelRestartButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
151+
self.GameOverPanelRestartButton.Location := new System.Drawing.Point(106, 365);
152+
self.GameOverPanelRestartButton.Name := 'GameOverPanelRestartButton';
153+
self.GameOverPanelRestartButton.Size := new System.Drawing.Size(250, 50);
154+
self.GameOverPanelRestartButton.TabIndex := 12;
155+
self.GameOverPanelRestartButton.Text := 'Рестарт';
156+
self.GameOverPanelRestartButton.UseVisualStyleBackColor := true;
157+
self.GameOverPanelRestartButton.Click += RestartButton_Click;
158+
//
159+
// GameSpeedLabel1
160+
//
161+
self.GameSpeedLabel1.Font := new System.Drawing.Font('Microsoft Sans Serif', 9.75, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
162+
self.GameSpeedLabel1.Location := new System.Drawing.Point(106, 251);
163+
self.GameSpeedLabel1.Name := 'GameSpeedLabel1';
164+
self.GameSpeedLabel1.Size := new System.Drawing.Size(243, 23);
165+
self.GameSpeedLabel1.TabIndex := 11;
166+
self.GameSpeedLabel1.Text := 'Обычная скорость: 300';
167+
self.GameSpeedLabel1.TextAlign := System.Drawing.ContentAlignment.TopCenter;
168+
//
169+
// GameSpeed1
170+
//
171+
self.GameSpeed1.LargeChange := 100;
172+
self.GameSpeed1.Location := new System.Drawing.Point(106, 229);
173+
self.GameSpeed1.Maximum := 1000;
174+
self.GameSpeed1.Minimum := 100;
175+
self.GameSpeed1.Name := 'GameSpeed1';
176+
self.GameSpeed1.Size := new System.Drawing.Size(243, 45);
177+
self.GameSpeed1.SmallChange := 100;
178+
self.GameSpeed1.TabIndex := 10;
179+
self.GameSpeed1.TabStop := false;
180+
self.GameSpeed1.Value := 300;
181+
self.GameSpeed1.Scroll += GameSpeed1_Scroll;
182+
//
183+
// label2
184+
//
185+
self.label2.Font := new System.Drawing.Font('Microsoft Sans Serif', 26.25, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
186+
self.label2.Location := new System.Drawing.Point(3, 3);
187+
self.label2.Name := 'label2';
188+
self.label2.Size := new System.Drawing.Size(456, 65);
189+
self.label2.TabIndex := 0;
190+
self.label2.Text := 'Вы проиграли';
191+
self.label2.TextAlign := System.Drawing.ContentAlignment.MiddleCenter;
192+
//
193+
// MainTimer
194+
//
195+
self.MainTimer.Interval := 300;
196+
self.MainTimer.Tick += MainTimer_Tick;
197+
//
198+
// StartPanel
199+
//
200+
self.StartPanel.Controls.Add(self.BoostSpeedLabel2);
201+
self.StartPanel.Controls.Add(self.BoostSpeed2);
202+
self.StartPanel.Controls.Add(self.GameSpeedLabel2);
203+
self.StartPanel.Controls.Add(self.label1);
204+
self.StartPanel.Controls.Add(self.GameSpeed2);
205+
self.StartPanel.Controls.Add(self.ExitButton);
206+
self.StartPanel.Controls.Add(self.StartButton);
207+
self.StartPanel.Location := new System.Drawing.Point(12, 12);
208+
self.StartPanel.Name := 'StartPanel';
209+
self.StartPanel.Size := new System.Drawing.Size(463, 646);
210+
self.StartPanel.TabIndex := 9;
211+
//
212+
// BoostSpeedLabel2
213+
//
214+
self.BoostSpeedLabel2.Font := new System.Drawing.Font('Microsoft Sans Serif', 9.75, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
215+
self.BoostSpeedLabel2.Location := new System.Drawing.Point(106, 270);
216+
self.BoostSpeedLabel2.Name := 'BoostSpeedLabel2';
217+
self.BoostSpeedLabel2.Size := new System.Drawing.Size(250, 23);
218+
self.BoostSpeedLabel2.TabIndex := 16;
219+
self.BoostSpeedLabel2.Text := 'Скорость при ускорении: 100';
220+
self.BoostSpeedLabel2.TextAlign := System.Drawing.ContentAlignment.TopCenter;
221+
//
222+
// BoostSpeed2
223+
//
224+
self.BoostSpeed2.LargeChange := 100;
225+
self.BoostSpeed2.Location := new System.Drawing.Point(106, 248);
226+
self.BoostSpeed2.Maximum := 1000;
227+
self.BoostSpeed2.Minimum := 10;
228+
self.BoostSpeed2.Name := 'BoostSpeed2';
229+
self.BoostSpeed2.Size := new System.Drawing.Size(250, 45);
230+
self.BoostSpeed2.SmallChange := 100;
231+
self.BoostSpeed2.TabIndex := 15;
232+
self.BoostSpeed2.TabStop := false;
233+
self.BoostSpeed2.Value := 100;
234+
self.BoostSpeed2.Scroll += BoostSpeed2_Scroll;
235+
//
236+
// GameSpeedLabel2
237+
//
238+
self.GameSpeedLabel2.Font := new System.Drawing.Font('Microsoft Sans Serif', 9.75, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
239+
self.GameSpeedLabel2.Location := new System.Drawing.Point(106, 208);
240+
self.GameSpeedLabel2.Name := 'GameSpeedLabel2';
241+
self.GameSpeedLabel2.Size := new System.Drawing.Size(250, 23);
242+
self.GameSpeedLabel2.TabIndex := 14;
243+
self.GameSpeedLabel2.Text := 'Обычная скорость: 300';
244+
self.GameSpeedLabel2.TextAlign := System.Drawing.ContentAlignment.TopCenter;
245+
//
246+
// label1
247+
//
248+
self.label1.Font := new System.Drawing.Font('Microsoft Sans Serif', 36, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
249+
self.label1.Location := new System.Drawing.Point(3, 3);
250+
self.label1.Name := 'label1';
251+
self.label1.Size := new System.Drawing.Size(456, 76);
252+
self.label1.TabIndex := 2;
253+
self.label1.Text := 'Тетрис';
254+
self.label1.TextAlign := System.Drawing.ContentAlignment.MiddleCenter;
255+
//
256+
// GameSpeed2
257+
//
258+
self.GameSpeed2.LargeChange := 100;
259+
self.GameSpeed2.Location := new System.Drawing.Point(106, 186);
260+
self.GameSpeed2.Maximum := 1000;
261+
self.GameSpeed2.Minimum := 100;
262+
self.GameSpeed2.Name := 'GameSpeed2';
263+
self.GameSpeed2.Size := new System.Drawing.Size(250, 45);
264+
self.GameSpeed2.SmallChange := 100;
265+
self.GameSpeed2.TabIndex := 13;
266+
self.GameSpeed2.TabStop := false;
267+
self.GameSpeed2.Value := 300;
268+
self.GameSpeed2.Scroll += GameSpeed2_Scroll;
269+
//
270+
// ExitButton
271+
//
272+
self.ExitButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
273+
self.ExitButton.Location := new System.Drawing.Point(106, 411);
274+
self.ExitButton.Name := 'ExitButton';
275+
self.ExitButton.Size := new System.Drawing.Size(250, 50);
276+
self.ExitButton.TabIndex := 1;
277+
self.ExitButton.TabStop := false;
278+
self.ExitButton.Text := 'Выход';
279+
self.ExitButton.UseVisualStyleBackColor := true;
280+
self.ExitButton.Click += ExitButton_Click;
281+
//
282+
// StartButton
283+
//
284+
self.StartButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
285+
self.StartButton.Location := new System.Drawing.Point(106, 337);
286+
self.StartButton.Name := 'StartButton';
287+
self.StartButton.Size := new System.Drawing.Size(250, 50);
288+
self.StartButton.TabIndex := 0;
289+
self.StartButton.TabStop := false;
290+
self.StartButton.Text := 'Старт';
291+
self.StartButton.UseVisualStyleBackColor := true;
292+
self.StartButton.Click += StartButton_Click;
293+
//
294+
// PauseButton
295+
//
296+
self.PauseButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
297+
self.PauseButton.Location := new System.Drawing.Point(325, 307);
298+
self.PauseButton.Name := 'PauseButton';
299+
self.PauseButton.Size := new System.Drawing.Size(150, 40);
300+
self.PauseButton.TabIndex := 10;
301+
self.PauseButton.TabStop := false;
302+
self.PauseButton.Text := 'Пауза';
303+
self.PauseButton.UseVisualStyleBackColor := true;
304+
self.PauseButton.Click += PauseButton_Click;
305+
//
306+
// GiveUpButton
307+
//
308+
self.GiveUpButton.Font := new System.Drawing.Font('Microsoft Sans Serif', 12, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (System.Byte(204)));
309+
self.GiveUpButton.Location := new System.Drawing.Point(324, 261);
310+
self.GiveUpButton.Name := 'GiveUpButton';
311+
self.GiveUpButton.Size := new System.Drawing.Size(150, 40);
312+
self.GiveUpButton.TabIndex := 11;
313+
self.GiveUpButton.TabStop := false;
314+
self.GiveUpButton.Text := 'Сдаться';
315+
self.GiveUpButton.UseVisualStyleBackColor := true;
316+
self.GiveUpButton.Click += GiveUpButton_Click;
317+
//
318+
// MainForm
319+
//
320+
self.BackColor := System.Drawing.Color.White;
321+
self.ClientSize := new System.Drawing.Size(487, 670);
322+
self.Controls.Add(self.StartPanel);
323+
self.Controls.Add(self.GameOverPanel);
324+
self.Controls.Add(self.RestartButton);
325+
self.Controls.Add(self.ScoreLabel);
326+
self.Controls.Add(self.NextFigurePictureBox);
327+
self.Controls.Add(self.GamePictureBox);
328+
self.Controls.Add(self.PauseButton);
329+
self.Controls.Add(self.GiveUpButton);
330+
self.FormBorderStyle := System.Windows.Forms.FormBorderStyle.FixedDialog;
331+
self.Icon := (System.Drawing.Icon(resources.GetObject('$this.Icon')));
332+
self.KeyPreview := true;
333+
self.MaximizeBox := false;
334+
self.Name := 'MainForm';
335+
self.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
336+
self.Text := 'Тетрис';
337+
self.Load += Form1_Load;
338+
self.KeyDown += Form1_KeyDown;
339+
self.KeyUp += Form1_KeyUp;
340+
(System.ComponentModel.ISupportInitialize(self.GamePictureBox)).EndInit();
341+
(System.ComponentModel.ISupportInitialize(self.NextFigurePictureBox)).EndInit();
342+
self.GameOverPanel.ResumeLayout(false);
343+
self.GameOverPanel.PerformLayout();
344+
(System.ComponentModel.ISupportInitialize(self.BoostSpeed1)).EndInit();
345+
(System.ComponentModel.ISupportInitialize(self.GameSpeed1)).EndInit();
346+
self.StartPanel.ResumeLayout(false);
347+
self.StartPanel.PerformLayout();
348+
(System.ComponentModel.ISupportInitialize(self.BoostSpeed2)).EndInit();
349+
(System.ComponentModel.ISupportInitialize(self.GameSpeed2)).EndInit();
350+
self.ResumeLayout(false);
351+
end;

‎Game.MainForm.resources

17 KB
Binary file not shown.

0 commit comments

Comments
 (0)