belka/book-exercises
1
0
Fork 0
Code Activity

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

Browse Source
This commit is contained in:
Eugen Wissner
2026-04-04 20:25:37 +02:00
parent 3dff805e9b
commit e4dd7b7416
7 changed files with 597 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
Занимательное программирование/7/5_snake/Unit1.lfm Normal file
View File

@@ -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