diff options
| author | Eugen Wissner <belka@caraus.de> | 2025-12-17 12:12:16 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2025-12-17 12:13:15 +0100 |
| commit | 6d7c43c85f8852ed3b3fa9cefc742bc87e941842 (patch) | |
| tree | 20da65c403c17b962027469897500de626a958f4 /Занимательное программирование/3/3_random/octahedron.lfm | |
| parent | 2878f1e34c2c2e19d5b7f6fd368dbf9ec0c6277f (diff) | |
| download | book-exercises-6d7c43c85f8852ed3b3fa9cefc742bc87e941842.tar.gz | |
Добавил третью главу занимательного программирования
Diffstat (limited to 'Занимательное программирование/3/3_random/octahedron.lfm')
| -rw-r--r-- | Занимательное программирование/3/3_random/octahedron.lfm | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/Занимательное программирование/3/3_random/octahedron.lfm b/Занимательное программирование/3/3_random/octahedron.lfm new file mode 100644 index 0000000..c020ad3 --- /dev/null +++ b/Занимательное программирование/3/3_random/octahedron.lfm @@ -0,0 +1,53 @@ +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 = 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
|