diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-04-20 14:55:53 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-04-20 14:55:53 +0200 |
| commit | ee8f910cb0a2761d77a13fb4423a157a6d64b19c (patch) | |
| tree | 7b6a8ce7c0fc356ffeaec09423907ce46364a592 /Занимательное программирование/7/7_columns/unit1.lfm | |
| parent | 8987b96aeb0937290320e6d9ed2e18ff706f3723 (diff) | |
| download | book-exercises-ee8f910cb0a2761d77a13fb4423a157a6d64b19c.tar.gz | |
Закончил Columns из 7-й главы, седьмого упражнения
Diffstat (limited to 'Занимательное программирование/7/7_columns/unit1.lfm')
| -rw-r--r-- | Занимательное программирование/7/7_columns/unit1.lfm | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/Занимательное программирование/7/7_columns/unit1.lfm b/Занимательное программирование/7/7_columns/unit1.lfm new file mode 100644 index 0000000..d5b04e1 --- /dev/null +++ b/Занимательное программирование/7/7_columns/unit1.lfm @@ -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 |