lab2/fViewPoints.dfm - master - MikeLight/Lab

lab2/fViewPoints.dfm
127 строк3 KB
MikeLight
upload files
27 окт 2025, 20:20
27 окт 2025, 20:20aa383db
object Form1: TForm1
  Left = 264
  Top = 193
  Caption = #1051#1072#1073#1072#1088#1086#1090#1086#1088#1085#1072#1103' '#1088#1072#1073#1086#1090#1072' '#8470'2'
  ClientHeight = 426
  ClientWidth = 492
  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 = 329
    Width = 492
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    ExplicitTop = 339
    ExplicitWidth = 502
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 492
    Height = 329
    Camera = GLCamera1
    FieldOfView = 146.186553955078100000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 332
    Width = 492
    Height = 94
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 104
      Top = 8
      Width = 7
      Height = 13
      Caption = 'X'
    end
    object Label2: TLabel
      Left = 104
      Top = 40
      Width = 7
      Height = 13
      Caption = 'Y'
    end
    object Label3: TLabel
      Left = 104
      Top = 72
      Width = 7
      Height = 13
      Caption = 'Z'
    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 = 112
      Top = 0
      Width = 750
      Height = 25
      Max = 360
      TabOrder = 1
      OnChange = TrackBar1Change
    end
    object TrackBar2: TTrackBar
      Left = 112
      Top = 32
      Width = 753
      Height = 33
      Max = 360
      TabOrder = 2
      OnChange = TrackBar2Change
    end
    object TrackBar3: TTrackBar
      Left = 112
      Top = 64
      Width = 753
      Height = 33
      Max = 360
      TabOrder = 3
      OnChange = TrackBar3Change
    end
  end
  object GLScene1: TGLScene
    Left = 16
    Top = 8
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {0000004000000000000000000000803F}
      SpotCutOff = 180.000000000000000000
    end
    object GLDummyCube1: TGLDummyCube
      Direction.Coordinates = {000000000000803F0000000000000000}
      ShowAxes = True
      Up.Coordinates = {0000000000000000000080BF00000000}
      CubeSize = 1.000000000000000000
      EdgeColor.Color = {B1A8A83EB1A8A83EB1A8A83E0000803F}
      VisibleAtRunTime = True
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube1
      Position.Coordinates = {0000004000000000000000000000803F}
    end
  end
end