Lab1/source/fRandomStars.dfm - master - DmitryBar/computer_modeling

Lab1/source/fRandomStars.dfm
164 строки4 KB
Dmitry
Выполнение первой лабораторной работы
17 окт 2024, 13:08
17 окт 2024, 13:08569e597
object Form1: TForm1
  Left = 0
  Top = 0
  Margins.Left = 2
  Margins.Top = 2
  Margins.Right = 2
  Margins.Bottom = 2
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #1051#1072#1073#1086#1088#1072#1090#1086#1088#1085#1072#1103' '#1088#1072#1073#1086#1090#1072' '#8470'1 '#1041#1072#1088#1095#1091#1082' '#1044#1084#1080#1090#1088#1080#1081
  ClientHeight = 656
  ClientWidth = 898
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnMouseWheel = FormMouseWheel
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 712
    Height = 637
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    FieldOfView = 162.156372070312500000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 637
    Width = 898
    Height = 19
    Panels = <
      item
        Text = #1042#1088#1077#1084#1103' '#1086#1087#1077#1088#1072#1094#1080#1080':'
        Width = 670
      end
      item
        Text = 'FPS:'
        Width = 50
      end>
  end
  object PanelLeft: TPanel
    Left = 712
    Top = 0
    Width = 186
    Height = 637
    Align = alRight
    TabOrder = 2
    object ButtonClear: TButton
      Left = 22
      Top = 397
      Width = 147
      Height = 25
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1082#1086#1085#1090#1077#1081#1085#1077#1088
      TabOrder = 0
      OnClick = ButtonClearClick
    end
    object rgBlock: TRadioGroup
      Left = 19
      Top = 55
      Width = 149
      Height = 194
      Caption = #1041#1083#1086#1082
      ItemIndex = 0
      Items.Strings = (
        #1050#1091#1073
        #1064#1072#1088
        #1057#1092#1077#1088#1072
        #1062#1080#1083#1080#1085#1076#1088
        #1055#1086#1074'.'#1094#1080#1083#1080#1085#1076#1088#1072
        #1050#1086#1085#1091#1089)
      TabOrder = 1
    end
    object btnDraw: TButton
      Left = 38
      Top = 325
      Width = 116
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100
      TabOrder = 2
      OnClick = btnDrawClick
    end
    object seNStars: TSpinEdit
      Left = 96
      Top = 17
      Width = 74
      Height = 22
      MaxValue = 1000000
      MinValue = 1
      TabOrder = 3
      Value = 1000
    end
    object StaticText1: TStaticText
      Left = 21
      Top = 22
      Width = 66
      Height = 17
      Caption = #1063#1080#1089#1083#1086' '#1079#1074#1105#1079#1076
      TabOrder = 4
    end
  end
  object GLScene1: TGLScene
    Left = 24
    Top = 16
    object dcBlock: TGLDummyCube
      Scale.Coordinates = {00000040000000400000004000000000}
      ShowAxes = True
      CubeSize = 1.000000000000000000
      VisibleAtRunTime = True
      object Stars: TGLPoints
        NoZWrite = False
        Static = False
      end
    end
    object GLLightSource1: TGLLightSource
      Ambient.Color = {0000803F0000803F0000803F0000803F}
      ConstAttenuation = 1.000000000000000000
      SpotCutOff = 180.000000000000000000
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = dcBlock
      Position.Coordinates = {0000004000000040000000400000803F}
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 206
    Top = 28
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 348
    Top = 28
  end
  object MainMenu1: TMainMenu
    Left = 549
    Top = 32
    object N1: TMenuItem
      Caption = #1060#1072#1081#1083
      object N4: TMenuItem
        Caption = #1054#1090#1082#1088#1099#1090#1100
      end
    end
    object N2: TMenuItem
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100
    end
    object N3: TMenuItem
      Caption = #1055#1086#1084#1086#1097#1100
    end
  end
end