Закончил тетрис из 7-й главы, шестого упражнения

2026-04-10 09:56:05 +02:00
parent e4dd7b7416
commit 8987b96aeb
7 changed files with 881 additions and 0 deletions
@@ -0,0 +1,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