belka/book-exercises
1
0
Fork 0
Code Activity

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

Browse Source
This commit is contained in:
Eugen Wissner
2026-04-10 09:56:05 +02:00
parent e4dd7b7416
commit 8987b96aeb
7 changed files with 881 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Занимательное программирование/7/6_tetris/Tetris.lps
+179
View File
@@ -0,0 +1,179 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="12"/>
<BuildModes Active="Default"/>
<Units>
<Unit>
<Filename Value="Tetris.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="16" Y="13"/>
<UsageCount Value="34"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="Unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="1"/>
<TopLine Value="337"/>
<CursorPos X="41" Y="343"/>
<UsageCount Value="34"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="unit2.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Unit2"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="16"/>
<CursorPos X="21" Y="30"/>
<UsageCount Value="28"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="../../../../opt/lazarus/fpc/3.2.2/source/rtl/objpas/classes/classes.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="211"/>
<CursorPos X="22" Y="226"/>
<UsageCount Value="10"/>
</Unit>
<Unit>
<Filename Value="../../../../opt/lazarus/lcl/include/canvas.inc"/>
<EditorIndex Value="-1"/>
<CursorPos Y="25"/>
<UsageCount Value="13"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="302" Column="12" TopLine="278"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="151" Column="20" TopLine="132"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="92" Column="40" TopLine="64"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="95" Column="15" TopLine="83"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="379" Column="16" TopLine="362"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="381" Column="21" TopLine="362"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="379" Column="11" TopLine="362"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="87" Column="21" TopLine="73"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="170" Column="18" TopLine="147"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="317" Column="35" TopLine="293"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="342" Column="14" TopLine="318"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="419" Column="31" TopLine="395"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="47" Column="22" TopLine="32"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="317" Column="35" TopLine="293"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="168" Column="14" TopLine="68"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="347" Column="19" TopLine="377"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="231" Column="10" TopLine="217"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="264" Column="77" TopLine="245"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="9" Column="22"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="25" Column="19" TopLine="7"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="337" Column="9" TopLine="321"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="334" Column="31" TopLine="325"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="66" Column="62" TopLine="47"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="61" Column="55" TopLine="47"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="66" Column="62" TopLine="47"/>
</Position>
<Position>
<Filename Value="Unit1.pas"/>
<Caret Line="318" Column="9" TopLine="314"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="53" Column="17" TopLine="47"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="59" Column="10" TopLine="47"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="63" Column="12" TopLine="47"/>
</Position>
<Position>
<Filename Value="unit2.pas"/>
<Caret Line="67" Column="68" TopLine="47"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>