From 8987b96aeb0937290320e6d9ed2e18ff706f3723 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 10 Apr 2026 09:56:05 +0200
Subject: =?UTF-8?q?=D0=97=D0=B0=D0=BA=D0=BE=D0=BD=D1=87=D0=B8=D0=BB=20?=
 =?UTF-8?q?=D1=82=D0=B5=D1=82=D1=80=D0=B8=D1=81=20=D0=B8=D0=B7=207-=D0=B9?=
 =?UTF-8?q?=20=D0=B3=D0=BB=D0=B0=D0=B2=D1=8B,=20=D1=88=D0=B5=D1=81=D1=82?=
 =?UTF-8?q?=D0=BE=D0=B3=D0=BE=20=D1=83=D0=BF=D1=80=D0=B0=D0=B6=D0=BD=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../7/6_tetris/Unit1.lfm"                          | 89 ++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 "\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/6_tetris/Unit1.lfm"

(limited to 'Занимательное программирование/7/6_tetris/Unit1.lfm')

diff --git "a/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/6_tetris/Unit1.lfm" "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/6_tetris/Unit1.lfm"
new file mode 100644
index 0000000..c11d25a
--- /dev/null
+++ "b/\320\227\320\260\320\275\320\270\320\274\320\260\321\202\320\265\320\273\321\214\320\275\320\276\320\265 \320\277\321\200\320\276\320\263\321\200\320\260\320\274\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265/7/6_tetris/Unit1.lfm"	
@@ -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
-- 
cgit v1.2.3