Lab1_BaseObjects/fcBaseObjects.dfm - master - daria_bel/VRLabs

Lab1_BaseObjects/fcBaseObjects.dfm
244 строки6 KB
Daria Bel
Лабораторные работы для daria_bel
14 май 2026, 09:22
14 май 2026, 09:22e507b0f
object FormBaseObjects: TFormBaseObjects
  Left = 0
  Top = 0
  Caption = 'Lab1 - '#1041#1072#1079#1086#1074#1099#1077' '#1086#1073#1098#1077#1082#1090#1099
  ClientHeight = 749
  ClientWidth = 1230
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  TextHeight = 15
  object GLSceneViewer1: TGLSceneViewer
    Left = -453
    Top = -200
    Width = 1230
    Height = 776
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    FieldOfView = 165.313980102539100000
    PenAsTouch = False
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 360
    Top = 0
    Width = 417
    Height = 255
    TabOrder = 1
    object GroupBoxTetra: TGroupBox
      Left = 104
      Top = 0
      Width = 201
      Height = 75
      Caption = 'GroupBoxTetra'
      TabOrder = 0
      object PanelTetra: TPanel
        Left = 13
        Top = 16
        Width = 172
        Height = 56
        Caption = 'PanelTetra'
        TabOrder = 0
        object ShapeTetra: TShape
          Left = 0
          Top = 1
          Width = 49
          Height = 48
        end
        object ButtonTetra: TButton
          Left = 55
          Top = 8
          Width = 106
          Height = 41
          Caption = 'ButtonTetra'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxCube: TGroupBox
      Left = 9
      Top = 80
      Width = 168
      Height = 90
      Caption = 'GroupBoxCube'
      TabOrder = 1
      object PanelCube: TPanel
        Left = 3
        Top = 24
        Width = 165
        Height = 63
        Caption = 'PanelCube'
        TabOrder = 0
        object ShapeCube: TShape
          Left = 8
          Top = 0
          Width = 65
          Height = 58
        end
        object ButtonCube: TButton
          Left = 79
          Top = 16
          Width = 75
          Height = 33
          Caption = 'ButtonCube'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxOcta: TGroupBox
      Left = 232
      Top = 81
      Width = 169
      Height = 89
      Caption = 'GroupBoxOcta'
      TabOrder = 2
      object PanelOcta: TPanel
        Left = 0
        Top = 16
        Width = 166
        Height = 62
        TabOrder = 0
        object ShapeOcta: TShape
          Left = 8
          Top = 8
          Width = 65
          Height = 49
        end
        object ButtonOcta: TButton
          Left = 79
          Top = 24
          Width = 75
          Height = 25
          Caption = 'ButtonOcta'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxDodeca: TGroupBox
      Left = 9
      Top = 176
      Width = 168
      Height = 73
      Caption = 'GroupBoxDodeca'
      TabOrder = 3
      object PanelDodeca: TPanel
        Left = 3
        Top = 21
        Width = 165
        Height = 49
        Caption = 'PanelDodeca'
        TabOrder = 0
        object ShapeDodeca: TShape
          Left = 8
          Top = 0
          Width = 57
          Height = 49
        end
        object ButtonDodeca: TButton
          Left = 71
          Top = 8
          Width = 75
          Height = 25
          Caption = 'ButtonDodeca'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxIcosa: TGroupBox
      Left = 232
      Top = 176
      Width = 169
      Height = 73
      Caption = 'GroupBoxIcosa'
      TabOrder = 4
      object PanelIcosa: TPanel
        Left = 3
        Top = 16
        Width = 163
        Height = 54
        Caption = 'PanelIcosa'
        TabOrder = 0
        object ShapeIcosa: TShape
          Left = 8
          Top = 0
          Width = 65
          Height = 49
        end
        object ButtonIcosa: TButton
          Left = 79
          Top = 16
          Width = 75
          Height = 25
          Caption = 'ButtonIcosa'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
  end
  object GLScene1: TGLScene
    Left = 728
    Top = 360
    object GLCamera1: TGLCamera
      DepthOfView = 10000.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLCube1
      CameraStyle = csInfinitePerspective
      Position.Coordinates = {000000000000A040000070410000803F}
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        SpotCutOff = 180.000000000000000000
      end
    end
    object GLCube1: TGLCube
      Material.FrontProperties.Emission.Color = {CDCC4C3FF8FEFE3EACC8483E0000803F}
    end
    object GLOctahedron1: TGLOctahedron
      Position.Coordinates = {0000804000000000000000000000803F}
    end
    object GLDodecahedron1: TGLDodecahedron
      Position.Coordinates = {000000C000000000000080C00000803F}
    end
    object GLTetrahedron1: TGLTetrahedron
      Position.Coordinates = {000080C000000000000000000000803F}
    end
    object GLIcosahedron1: TGLIcosahedron
      Position.Coordinates = {0000004000000000000080C00000803F}
    end
  end
  object GLSimpleNavigation1: TGLSimpleNavigation
    Form = Owner
    GLSceneViewer = GLSceneViewer1
    FormCaption = 'Lab1 - '#1041#1072#1079#1086#1074#1099#1077' '#1086#1073#1098#1077#1082#1090#1099' - %FPS'
    KeyCombinations = <
      item
        ShiftState = [ssLeft, ssRight]
        Action = snaZoom
      end
      item
        ShiftState = [ssLeft]
        Action = snaMoveAroundTarget
      end
      item
        ShiftState = [ssRight]
        Action = snaMoveAroundTarget
      end>
    Left = 680
    Top = 360
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Left = 632
    Top = 360
  end
  object ColorDialog1: TColorDialog
    Left = 592
    Top = 360
  end
end