Lab2/fStars.dfm - master - yu_dev/tokm

Lab2/fStars.dfm
306 строк7 KB
Юрий Щепилов
upload files
03 мар 2026, 15:32
03 мар 2026, 15:32748744f
object Form1: TForm1
  Left = 0
  Top = 0
  BorderStyle = bsSingle
  Caption = 'Lab_2'
  ClientHeight = 498
  ClientWidth = 795
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 479
    Width = 795
    Height = 19
    Panels = <
      item
        Text = 'Count of stars:'
        Width = 680
      end
      item
        Text = 'Time:'
        Width = 100
      end>
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 640
    Height = 479
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    FieldOfView = 156.415664672851600000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    TabOrder = 1
    ExplicitWidth = 641
  end
  object Panel1: TPanel
    Left = 640
    Top = 0
    Width = 155
    Height = 479
    Align = alRight
    TabOrder = 2
    object Label2: TLabel
      Left = 26
      Top = 16
      Width = 79
      Height = 16
      Caption = #1050#1083#1072#1089#1089#1099' '#1079#1074#1105#1079#1076
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Button1: TButton
      Left = 7
      Top = 448
      Width = 141
      Height = 25
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1089#1094#1077#1085#1091
      TabOrder = 0
      OnClick = Button1Click
    end
    object chbO: TCheckBox
      Left = 6
      Top = 38
      Width = 43
      Height = 25
      Caption = 'O'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 1
      OnClick = chbOClick
    end
    object chbB: TCheckBox
      Left = 8
      Top = 69
      Width = 41
      Height = 25
      Caption = 'B'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 2
      OnClick = chbBClick
    end
    object chbA: TCheckBox
      Left = 8
      Top = 100
      Width = 34
      Height = 25
      Caption = 'A'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 3
      OnClick = chbAClick
    end
    object chbF: TCheckBox
      Left = 8
      Top = 131
      Width = 33
      Height = 25
      Caption = 'F'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 4
      OnClick = chbFClick
    end
    object chbG: TCheckBox
      Left = 8
      Top = 162
      Width = 33
      Height = 25
      Caption = 'G'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 5
      OnClick = chbGClick
    end
    object chbK: TCheckBox
      Left = 8
      Top = 193
      Width = 33
      Height = 25
      Caption = 'K'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 6
      OnClick = chbKClick
    end
    object chbM: TCheckBox
      Left = 8
      Top = 224
      Width = 33
      Height = 25
      Caption = 'M'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 7
      OnClick = chbMClick
    end
  end
  object GLScene1: TGLScene
    Left = 50
    Top = 418
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube1
      Position.Coordinates = {0000004000000040000000400000803F}
    end
    object GLDummyCube1: TGLDummyCube
      ShowAxes = True
      CubeSize = 1.000000000000000000
      VisibleAtRunTime = True
      object GLTypeM: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLTypeK: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLTypeG: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLTypeF: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLTypeA: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLTypeB: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLTypeO: TGLPoints
        NoZWrite = False
        Static = False
      end
      object GLPoints1: TGLPoints
        NoZWrite = False
        Static = False
      end
    end
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      SpotCutOff = 180.000000000000000000
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 724
    Top = 402
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 690
    Top = 402
  end
  object MainMenu1: TMainMenu
    Left = 594
    Top = 10
    object File1: TMenuItem
      Caption = #1060#1072#1081#1083
      object OpenCSV1: TMenuItem
        Caption = #1054#1090#1082#1088#1099#1090#1100' CSV...'
        OnClick = OpenCSV1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = #1042#1099#1093#1086#1076
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = #1057#1087#1088#1072#1074#1082#1072
      object About1: TMenuItem
        Caption = #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077'...'
      end
    end
  end
  object OpenTextFileDialog1: TOpenTextFileDialog
    Left = 652
    Top = 404
  end
  object GLSimpleNavigation1: TGLSimpleNavigation
    Form = Owner
    GLSceneViewer = GLSceneViewer1
    FormCaption = #1051#1072#1073#1086#1088#1072#1090#1086#1088#1085#1072#1103' '#1088#1072#1073#1086#1090#1072' '#8470'2 - %FPS'
    KeyCombinations = <
      item
        ShiftState = [ssLeft, ssRight]
        Action = snaZoom
      end
      item
        ShiftState = [ssLeft]
        Action = snaMoveAroundTarget
      end
      item
        ShiftState = [ssRight]
        Action = snaMoveAroundTarget
      end>
    Left = 8
    Top = 424
  end
end