Добавил третью главу занимательного программирования

This commit is contained in:
2025-12-17 12:12:16 +01:00
parent 2878f1e34c
commit 6d7c43c85f
34 changed files with 4191 additions and 0 deletions

View File

@@ -0,0 +1,75 @@
object Form1: TForm1
Left = 352
Height = 673
Top = 32
Width = 600
Caption = 'Form1'
ClientHeight = 673
ClientWidth = 600
DesignTimePPI = 120
object BackScreen: TImage
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = StartStopBtn
Left = 0
Height = 600
Top = 0
Width = 600
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 15
end
object Screen: TPaintBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = StartStopBtn
Left = 0
Height = 600
Top = 0
Width = 600
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 15
end
object StartStopBtn: TButton
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 472
Height = 48
Top = 615
Width = 118
Anchors = [akRight, akBottom]
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
Caption = 'Пуск'
TabOrder = 0
OnClick = StartStopBtnClick
end
object ResizeField: TFloatSpinEdit
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 28
Top = 635
Width = 63
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 10
BorderSpacing.Bottom = 10
TabOrder = 1
Value = 1
end
object Label1: TLabel
Left = 10
Height = 20
Top = 615
Width = 125
Caption = 'Изменить размер'
end
end