1 files changed, 75 insertions, 0 deletions
diff --git a/Занимательное программирование/3/1_move/octahedron.lfm b/Занимательное программирование/3/1_move/octahedron.lfm
new file mode 100644
index 0000000..34b256e
--- /dev/null
+++ b/Занимательное программирование/3/1_move/octahedron.lfm
@@ -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