Lab2/fLab2.dfm - master - Pyatigor_Yaroslav/KMiVVR

Lab2/fLab2.dfm
128 строк3 KB
Пятигор2302
upload files
18 ноя 2025, 14:20
18 ноя 2025, 14:204981a3d
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Lab2 '#1058#1086#1095#1082#1080' '#1074' '#1094#1080#1083#1080#1085#1076#1088#1077
  ClientHeight = 540
  ClientWidth = 700
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poScreenCenter
  TextHeight = 15
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 700
    Height = 449
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    FieldOfView = 154.888351440429700000
    PenAsTouch = False
    Align = alTop
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    OnMouseWheel = GLSceneViewer1MouseWheel
    TabOrder = 0
  end
  object Button1: TButton
    Left = 8
    Top = 471
    Width = 177
    Height = 50
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1058#1086#1095#1082#1080
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 191
    Top = 471
    Width = 177
    Height = 50
    Caption = #1054#1095#1080#1089#1090#1080#1090#1100
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object CheckBox1: TCheckBox
    Left = 459
    Top = 455
    Width = 241
    Height = 37
    Caption = #1054#1090#1086#1073#1088#1072#1078#1077#1085#1080#1077' '#1094#1080#1083#1080#1085#1076#1088#1072
    Checked = True
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 3
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 459
    Top = 498
    Width = 241
    Height = 37
    Caption = #1052#1077#1088#1094#1072#1085#1080#1077' '#1090#1086#1095#1077#1082
    Checked = True
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 4
    OnClick = CheckBox2Click
  end
  object GLScene1: TGLScene
    Left = 24
    Top = 16
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube1
      Position.Coordinates = {0000004000000000000000000000803F}
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        SpotCutOff = 180.000000000000000000
      end
    end
    object GLDummyCube1: TGLDummyCube
      ShowAxes = True
      CubeSize = 1.000000000000000000
      VisibleAtRunTime = True
      object GLCylinder1: TGLCylinder
        Material.BlendingMode = bmTransparency
        Material.PolygonMode = pmLines
        BottomRadius = 0.300000011920929000
        Height = 0.500000000000000000
        TopRadius = 0.300000011920929000
      end
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    Enabled = False
    FixedDeltaTime = 1.000000000000000000
    OnProgress = GLCadencer1Progress
    Left = 96
    Top = 16
  end
end