Lab1_BaseObjects/fcBaseObjects.dfm - master - Kira_S/VRLabs

Lab1_BaseObjects/fcBaseObjects.dfm
247 строк6 KB
Kirill
Лабораторная работа 1
21 апр 2026, 17:47
21 апр 2026, 17:474101c05
object FormBaseObjects: TFormBaseObjects
  Left = 0
  Top = 0
  Caption = 'Lab1 - '#1041#1072#1079#1086#1074#1099#1077' '#1086#1073#1098#1077#1082#1090#1099
  ClientHeight = 772
  ClientWidth = 1114
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  TextHeight = 15
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 1114
    Height = 772
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    FieldOfView = 165.238723754882800000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 384
    Width = 433
    Height = 380
    TabOrder = 1
    object GroupBoxCube: TGroupBox
      Left = 0
      Top = 24
      Width = 165
      Height = 90
      Caption = 'GroupBoxCube'
      TabOrder = 0
      object PanelCube: TPanel
        Left = 3
        Top = 24
        Width = 165
        Height = 63
        Caption = 'PanelCube'
        TabOrder = 0
        object ShapeCube: TShape
          Left = 9
          Top = 0
          Width = 65
          Height = 58
        end
        object ButtonCube: TButton
          Left = 80
          Top = 15
          Width = 75
          Height = 33
          Caption = 'ButtonCube'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxDodeca: TGroupBox
      Left = 216
      Top = 32
      Width = 165
      Height = 75
      Caption = 'GroupBoxDodeca'
      TabOrder = 1
      object PanelDodeca: TPanel
        Left = 3
        Top = 20
        Width = 165
        Height = 50
        Caption = 'PanelDodeca'
        TabOrder = 0
        object ShapeDodeca: TShape
          Left = 0
          Top = 0
          Width = 60
          Height = 50
        end
        object ButtonDodeca: TButton
          Left = 80
          Top = 10
          Width = 75
          Height = 25
          Caption = 'ButtonDodeca'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxIcosa: TGroupBox
      Left = 3
      Top = 136
      Width = 165
      Height = 65
      Caption = 'GroupBoxIcosa'
      TabOrder = 2
      object PanelIcosa: TPanel
        Left = 3
        Top = 21
        Width = 170
        Height = 75
        Caption = 'PanelIcosa'
        TabOrder = 0
        object ShapeIcosa: TShape
          Left = 6
          Top = -8
          Width = 65
          Height = 49
        end
        object ButtonIcosa: TButton
          Left = 84
          Top = 16
          Width = 75
          Height = 25
          Caption = 'ButtonIcosa'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxOcta: TGroupBox
      Left = 216
      Top = 144
      Width = 168
      Height = 57
      Caption = 'GroupBoxOcta'
      TabOrder = 3
      object PanelOcta: TPanel
        Left = 0
        Top = 13
        Width = 166
        Height = 62
        Caption = 'PanelOcta'
        TabOrder = 0
        object ShapeOcta: TShape
          Left = 9
          Top = 8
          Width = 65
          Height = 50
        end
        object ButtonOcta: TButton
          Left = 80
          Top = 16
          Width = 75
          Height = 25
          Caption = 'ButtonOcta'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
    object GroupBoxTetra: TGroupBox
      Left = 3
      Top = 232
      Width = 162
      Height = 75
      Caption = 'GroupBoxTetra'
      TabOrder = 4
      object PanelTetra: TPanel
        Left = 13
        Top = 16
        Width = 172
        Height = 56
        Caption = 'PanelTetra'
        TabOrder = 0
        object ShapeTetra: TShape
          Left = 0
          Top = 0
          Width = 49
          Height = 48
        end
        object ButtonTetra: TButton
          Left = 74
          Top = 8
          Width = 75
          Height = 25
          Caption = 'ButtonTetra'
          TabOrder = 0
          OnClick = ButtonColorClick
        end
      end
    end
  end
  object GLScene1: TGLScene
    Left = 40
    Top = 24
    object GLCamera1: TGLCamera
      DepthOfView = 10000.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLCube1
      CameraStyle = csInfinitePerspective
      Position.Coordinates = {0000804000008040000080400000803F}
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        Position.Coordinates = {0000803F00004040000000400000803F}
        SpotCutOff = 180.000000000000000000
      end
    end
    object GLCube1: TGLCube
      Material.FrontProperties.Emission.Color = {CDCC4C3FF8FEFE3EACC8483E0000803F}
    end
    object GLTetrahedron1: TGLTetrahedron
      Position.Coordinates = {0000404000000000000000000000803F}
    end
    object GLIcosahedron1: TGLIcosahedron
      Position.Coordinates = {000040C000000000000000000000803F}
    end
    object GLOctahedron1: TGLOctahedron
      Position.Coordinates = {000040C000000040000000C00000803F}
    end
    object GLDodecahedron1: TGLDodecahedron
      Position.Coordinates = {0000404000000040000000C00000803F}
    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 = 40
    Top = 88
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Left = 40
    Top = 160
  end
  object ColorDialog1: TColorDialog
    Left = 40
    Top = 248
  end
end