diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-04-10 09:56:05 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-04-10 09:56:05 +0200 |
| commit | 8987b96aeb0937290320e6d9ed2e18ff706f3723 (patch) | |
| tree | 48693d27a9ca4899498b69c9b1934b79ac2040b1 /Занимательное программирование/7/6_tetris/Unit1.lfm | |
| parent | e4dd7b74168344d41abe501a3c8f5b8438cca58a (diff) | |
| download | book-exercises-8987b96aeb0937290320e6d9ed2e18ff706f3723.tar.gz | |
Закончил тетрис из 7-й главы, шестого упражнения
Diffstat (limited to 'Занимательное программирование/7/6_tetris/Unit1.lfm')
| -rw-r--r-- | Занимательное программирование/7/6_tetris/Unit1.lfm | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/Занимательное программирование/7/6_tetris/Unit1.lfm b/Занимательное программирование/7/6_tetris/Unit1.lfm new file mode 100644 index 0000000..c11d25a --- /dev/null +++ b/Занимательное программирование/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
|