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

2025-12-17 12:12:16 +01:00
parent 2878f1e34c
commit 6d7c43c85f
34 changed files with 4191 additions and 0 deletions
--- a/программирование/3/5_ideal_gas/octahedron.lfm
+++ b/программирование/3/5_ideal_gas/octahedron.lfm
@@ -0,0 +1,54 @@
+object Form1: TForm1
+  Left = 352
+  Height = 673
+  Top = 32
+  Width = 600
+  Caption = 'Form1'
+  ClientHeight = 673
+  ClientWidth = 600
+  DesignTimePPI = 120
+  LCLVersion = '4.2.0.0'
+  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 = asrCenter
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 241
+    Height = 48
+    Top = 615
+    Width = 118
+    Anchors = [akLeft, akBottom]
+    BorderSpacing.Bottom = 10
+    Caption = 'Пуск'
+    TabOrder = 0
+    OnClick = StartStopBtnClick
+  end
+end