FormUnit_L3.dfm - patch - ArtemSls/O3DM

FormUnit_L3.dfm
70 строк2 KB
ArtemSls
Lab3
24 янв 2025, 01:51
24 янв 2025, 01:51210c0fd
object Form_L3: TForm_L3
  Left = 0
  Top = 0
  Caption = 'Lab3 - Slesarev'
  ClientHeight = 441
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  TextHeight = 15
  object GLSceneViewer1: TGLSceneViewer
    Left = 8
    Top = 64
    Width = 608
    Height = 369
    Camera = GLCamera1
    FieldOfView = 149.673782348632800000
    PenAsTouch = False
    TabOrder = 0
  end
  object Button1: TButton
    Left = 541
    Top = 8
    Width = 75
    Height = 25
    Caption = #1047#1072#1075#1088#1091#1079#1080#1090#1100
    TabOrder = 1
    OnClick = Button1Click
  end
  object GLScene1: TGLScene
    Left = 8
    Top = 8
    object GLDummyCube1: TGLDummyCube
      CubeSize = 1.000000000000000000
      EdgeColor.Color = {B1A8A83EB1A8A83EB1A8A83E0000803F}
      BehavioursData = {
        0458434F4C02010202060D54474C42436F6C6C6973696F6E020202000609436F
        6C6C6973696F6E02001200000000020002000200020202000609436F6C6C6973
        696F6E0200120000000002000200}
      object GLTeapot1: TGLTeapot
        Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3FCDCC4C3F}
        Material.Texture.MappingMode = tmmCubeMapReflection
      end
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube1
      Position.Coordinates = {0000803F0000803F0000803F0000803F}
    end
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {0000804000004040000000400000803F}
      SpotCutOff = 180.000000000000000000
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 48
    Top = 8
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 88
    Top = 8
  end
end