1 files changed, 75 insertions, 0 deletions
diff --git a/Занимательное программирование/7/5_snake/Unit1.lfm b/Занимательное программирование/7/5_snake/Unit1.lfm
new file mode 100644
index 0000000..f3b34c2
--- /dev/null
+++ b/Занимательное программирование/7/5_snake/Unit1.lfm
@@ -0,0 +1,75 @@
+object Form1: TForm1
+  Left = 526
+  Height = 1083
+  Top = 193
+  Width = 1280
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Snake'
+  ClientHeight = 1083
+  ClientWidth = 1280
+  Color = clBtnFace
+  DesignTimePPI = 144
+  Font.Color = clWindowText
+  Font.Height = -17
+  Font.Name = 'MS Sans Serif'
+  LCLVersion = '4.6.0.0'
+  OnActivate = FormActivate
+  OnKeyDown = FormKeyDown
+  object Screen: TImage
+    Left = 0
+    Height = 960
+    Top = 0
+    Width = 1280
+  end
+  object Label1: TLabel
+    Left = 480
+    Height = 28
+    Top = 1008
+    Width = 147
+    Caption = 'Длина удава:'
+    Font.Color = clWindowText
+    Font.Height = -24
+    Font.Name = 'MS Sans Serif'
+    ParentFont = False
+  end
+  object SnakeLenLabel: TLabel
+    Left = 656
+    Height = 28
+    Top = 1008
+    Width = 13
+    Caption = '3'
+    Font.Color = clWindowText
+    Font.Height = -24
+    Font.Name = 'MS Sans Serif'
+    ParentFont = False
+  end
+  object ImageList: TImageList
+    Height = 32
+    Width = 32
+    Bitmap = {
+      4C7A1200000020000000200000008D0200000000000078DAEDDC5D92DA400C45
+      612F9DA5B1B34EA8545EA642C08D6D89BEDF4C9D276638C2B87FA416DCEFF7ED
+      0EE0BFFCFE19FF22C5FF2C1E7E7E7E7E7EFE15FDCFD6DDABD6E36A3F000089DC
+      6EDB986115FF6CBCFCFC2BF8D3C7BFFB899FDFFA0F0040D6B9FF6DCCB08A7F36
+      5E7EFE15FCC6BFFB8FDFF837FE010048CAFFC77870D6DFF3F3F3F7F7EF6515FF
+      D9EF173F3FFF3A7E000096C8FF6FDB9861357FF5F5E7E737FEAFF7BB5FF893FD
+      C63F0000819FFFDFB631C36AFEEAEBCFCF6FFCF71FFFFCFC2BFA53C73F000091
+      E7FFFA7FA7E24DF37BDD5EB7D7CDCFCFBFB21F008088FC5FFFFFAEE7E3E75FC9
+      BF771C56CF436779DD7FFCC97EFDFF0000249DFF677FFFEFDEE7E3E75FD1EFFB
+      BF6BAE3F3F7FA5DFF807002430B631CE809F9F9F9F9F9F9F9F9FBFA31F0072F3
+      FF3F1F307BF5F84F669FAF9BFFD9FFBDFBC1FB4FBD5DFC7BBDEFBE1FDFE29FF5
+      1E154795FF28EF6C1CFCFCFCFCFCFC157E0048CFFF8F9A5FAF9AFFABFD47E5DF
+      DFEEFFD6BCF7ACFD47BADFFE933FD99F3AFE53E7FFD4F57F95FD1F00C8FFEDFF
+      F8F9F9F9F9F3CEFFD2F360FD5F99FD7FFA3F0140EFFFD56B71B5FFD3B57715BF
+      1EF8CC3340B927BFDC5F0F80F93F73FDB7FF0300BCE2F1452D8FDF44FF5F7755
+      0C95FE9FEEAB63A8F43F735F1543A5FF95FBEC182AFDEFBACF8AA1D2BFD77D74
+      0C95FE59F7513154FA3F757F1A43A5FF28F76C0C95FEA3DD7B63A8F60380FCBE
+      477EDF25C7EE92E776C935BBE47B5D72AE2E794F97DCA3CBFEBFCB1EFCDBF6C1
+      AB5CFFB4F19736FFA6ADBF69FB2F7B710040873A44623D3CF93CC47998F350E7
+      E1FA21F4C3E887D20FA71F523F2C00A0F3BC9CB61F49DB87A7E59F6975177D07
+      6A8E5DEA7E5D6A6F5DEA5F5D6A505DEA405D6A315DEA215D6A12EA0278C52F04
+      2A6937
+    }
+  end
+end