lab_2/Unit1.dfm - master - Frogush/LabVR

lab_2/Unit1.dfm
90 строк2 KB
Frogush
upload files
08 дек 2025, 21:05
08 дек 2025, 21:05badb4cf
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 615
  ClientWidth = 892
  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 = 892
    Height = 615
    Camera = GLCamera1
    FieldOfView = 161.528884887695300000
    PenAsTouch = False
    Align = alClient
    OnMouseWheel = GLSceneViewer1MouseWheel
    TabOrder = 0
    ExplicitLeft = -8
  end
  object Button1: TButton
    Left = 8
    Top = 176
    Width = 75
    Height = 25
    Caption = #1057'amera 1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 8
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Camera 2'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 8
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Camera 3'
    TabOrder = 3
    OnClick = Button3Click
  end
  object GLScene1: TGLScene
    Left = 104
    Top = 80
    object GLCamera2: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLSphere1
      Position.Coordinates = {0000A040000000000000A0400000803F}
    end
    object GLCamera3: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLCube1
      Position.Coordinates = {0000A0C000000040000000000000803F}
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLCube1
      Position.Coordinates = {0000803F00000040000080400000803F}
    end
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {0000803F0000A040000020410000803F}
      SpotCutOff = 180.000000000000000000
    end
    object GLCube1: TGLCube
      Position.Coordinates = {000080BF00000000000000000000803F}
      NormalDirection = ndInside
    end
    object GLSphere1: TGLSphere
      Position.Coordinates = {0000803F00000000000000000000803F}
      NormalDirection = ndInside
      Radius = 0.500000000000000000
    end
  end
end