4/Unit2.dfm - master - Frogush/LabVR

4/Unit2.dfm
87 строк2 KB
Frogush
upload files
08 дек 2025, 21:09
08 дек 2025, 21:09f125003
object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 441
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Menu = MainMenu1
  OnKeyDown = FormKeyDown
  OnMouseWheel = FormMouseWheel
  TextHeight = 15
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 624
    Height = 441
    Camera = GLCamera1
    FieldOfView = 154.447631835937500000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
  end
  object GLScene1: TGLScene
    Left = 24
    Top = 40
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLLightSource1
      Position.Coordinates = {00000000000000000000A0400000803F}
    end
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      SpotCutOff = 180.000000000000000000
      object GLTeapot1: TGLTeapot
        Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F3333333F}
        Material.BlendingMode = bmTransparency
        Material.Texture.MappingMode = tmmCubeMapReflection
        Material.Texture.Disabled = False
      end
      object GLSpaceText1: TGLSpaceText
        Position.Coordinates = {0000000000000040000000000000803F}
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          'L4_a')
      end
      object GLSphere1: TGLSphere
        Position.Coordinates = {000040C000000000000000000000803F}
        Radius = 0.500000000000000000
      end
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    Left = 24
    Top = 104
  end
  object Timer1: TTimer
    Left = 24
    Top = 168
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Images|*.jpg;*.bmp;*.jpeg'
    Left = 24
    Top = 232
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 296
    object N1: TMenuItem
      Caption = #1060#1072#1081#1083
      object N2: TMenuItem
        Caption = #1047#1072#1075#1088#1091#1079#1080#1090#1100' '#1090#1077#1082#1089#1090#1091#1088#1091
        OnClick = N2Click
      end
    end
  end
end