Закончил Columns из 7-й главы, седьмого упражнения

2026-04-20 14:55:53 +02:00
parent 8987b96aeb
commit ee8f910cb0
6 changed files with 874 additions and 0 deletions
@@ -0,0 +1,65 @@
+object Form1: TForm1
+  Left = 548
+  Height = 1018
+  Top = 198
+  Width = 669
+  Caption = 'Form1'
+  ClientHeight = 1018
+  ClientWidth = 669
+  DesignTimePPI = 144
+  LCLVersion = '4.6.0.0'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnKeyUp = FormKeyUp
+  object Screen: TImage
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrCenter
+    Left = 34
+    Height = 800
+    Top = 0
+    Width = 600
+  end
+  object BackBuffer: TImage
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrCenter
+    Left = 34
+    Height = 800
+    Top = 0
+    Width = 600
+  end
+  object ScoreLabel1: TLabel
+    AnchorSideLeft.Control = Screen
+    AnchorSideTop.Control = Screen
+    AnchorSideTop.Side = asrBottom
+    Left = 34
+    Height = 39
+    Top = 825
+    Width = 69
+    BorderSpacing.Top = 25
+    Caption = 'Счет:'
+    Font.Height = -28
+    Font.Name = 'Noto Sans'
+    ParentFont = False
+  end
+  object ScoreLabel: TLabel
+    AnchorSideLeft.Control = ScoreLabel1
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = ScoreLabel1
+    Left = 123
+    Height = 39
+    Top = 825
+    Width = 16
+    BorderSpacing.Left = 20
+    Caption = '0'
+    Font.Height = -28
+    Font.Name = 'Noto Sans'
+    ParentFont = False
+  end
+end