Lab2_ViewPoints/fcViewPoints.dfm - master - Alexandr_mamonov/lab

Lab2_ViewPoints/fcViewPoints.dfm
175 строк4 KB
Александр Мамонов
Add visualization lab projects
11 май 2026, 20:15
11 май 2026, 20:15e92b10e
object Form1: TForm1
  Left = 264
  Top = 193
  Caption = #1051#1072#1073#1086#1088#1072#1090#1086#1088#1085#1072#1103' '#1088#1072#1073#1086#1090#1072' '#8470'2'
  ClientHeight = 614
  ClientWidth = 1022
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnMouseWheel = FormMouseWheel
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 517
    Width = 1022
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    ExplicitTop = 339
    ExplicitWidth = 502
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 1022
    Height = 517
    Camera = GLCamera1
    Buffer.BackgroundColor = clTeal
    FieldOfView = 158.105651855468800000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 520
    Width = 1022
    Height = 94
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 144
      Top = 6
      Width = 7
      Height = 13
      Caption = 'X'
    end
    object Label2: TLabel
      Left = 144
      Top = 40
      Width = 7
      Height = 13
      Caption = 'Y'
    end
    object Label3: TLabel
      Left = 144
      Top = 72
      Width = 7
      Height = 13
      Caption = 'Z'
    end
    object Label4: TLabel
      Left = 16
      Top = 39
      Width = 73
      Height = 13
      Caption = 'Points in cube: '
    end
    object Label5: TLabel
      Left = 16
      Top = 67
      Width = 78
      Height = 13
      Caption = 'Points in sphere:'
    end
    object Button1: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = #1058#1086#1095#1082#1080
      TabOrder = 0
      OnClick = Button1Click
    end
    object TrackBar1: TTrackBar
      Left = 272
      Top = 2
      Width = 750
      Height = 25
      Max = 360
      TabOrder = 1
      OnChange = TrackBar1Change
      OnKeyDown = TrackBar1KeyDown
    end
    object TrackBar2: TTrackBar
      Left = 272
      Top = 33
      Width = 753
      Height = 33
      Max = 360
      TabOrder = 2
      OnChange = TrackBar2Change
      OnKeyDown = TrackBar2KeyDown
    end
    object TrackBar3: TTrackBar
      Left = 272
      Top = 59
      Width = 753
      Height = 33
      Max = 360
      TabOrder = 3
      OnChange = TrackBar3Change
      OnKeyDown = TrackBar3KeyDown
    end
  end
  object GLScene1: TGLScene
    Left = 16
    Top = 8
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      SpotCutOff = 180.000000000000000000
    end
    object GLDummyCube1: TGLDummyCube
      Direction.Coordinates = {000000000000803F0000000000000000}
      Position.Coordinates = {000000C000000000000000000000803F}
      ShowAxes = True
      Up.Coordinates = {0000000000000000000080BF00000000}
      CubeSize = 1.000000000000000000
      EdgeColor.Color = {B1A8A83EB1A8A83EB1A8A83E0000803F}
      VisibleAtRunTime = True
    end
    object GLDummyCube2: TGLDummyCube
      ShowAxes = True
      Visible = False
      CubeSize = 1.000000000000000000
    end
    object GLSphere1: TGLSphere
      Material.FrontProperties.Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3E00000000}
      Material.BlendingMode = bmTransparency
      Material.PolygonMode = pmLines
      Position.Coordinates = {0000004000000000000000000000803F}
      ShowAxes = True
      Radius = 0.500000000000000000
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube2
      Position.Coordinates = {0000804000004040000080400000803F}
      Direction.Coordinates = {00000000000000000000803F00000000}
    end
    object GLCamera2: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube1
    end
    object GLCamera3: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLSphere1
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 16
    Top = 64
  end
end