lab8/fEffectsFLAG.dfm - master - MikeLight/Lab

lab8/fEffectsFLAG.dfm
571 строка18 KB
MikeLight
upload files
25 ноя 2025, 12:59
25 ноя 2025, 12:597a75111
object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = #1051#1072#1073#1086#1088#1072#1090#1086#1088#1085#1072#1103' '#1088#1072#1073#1086#1090#1072' '#8470'8'
  ClientHeight = 661
  ClientWidth = 984
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poScreenCenter
  TextHeight = 15
  object GLSceneViewer1: TGLSceneViewer
    Left = 248
    Top = 0
    Width = 736
    Height = 661
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    FieldOfView = 162.794387817382800000
    PenAsTouch = False
    Align = alRight
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    OnMouseWheel = GLSceneViewer1MouseWheel
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 242
    Height = 169
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 75
      Height = 19
      Caption = #1069#1092#1092#1077#1082#1090#1099':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object RadioButton2: TRadioButton
      Left = 8
      Top = 81
      Width = 225
      Height = 33
      Caption = #1052#1086#1083#1085#1080#1103
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton3: TRadioButton
      Left = 8
      Top = 120
      Width = 225
      Height = 33
      Caption = #1057#1074#1077#1095#1077#1085#1080#1077' '#1072#1090#1084#1086#1089#1092#1077#1088#1099
      Checked = True
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton1: TRadioButton
      Left = 8
      Top = 42
      Width = 225
      Height = 33
      Caption = #1054#1075#1086#1085#1100
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = RadioButton1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 175
    Width = 242
    Height = 486
    TabOrder = 2
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 48
      Height = 19
      Caption = #1042#1077#1090#1077#1088':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label3: TLabel
      Left = 8
      Top = 93
      Width = 180
      Height = 19
      Caption = #1055#1088#1086#1079#1088#1072#1095#1085#1086#1089#1090#1100' '#1089#1074#1077#1095#1077#1085#1080#1103':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label4: TLabel
      Left = 8
      Top = 178
      Width = 87
      Height = 19
      Caption = #1040#1084#1087#1083#1080#1090#1091#1076#1072':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label5: TLabel
      Left = 8
      Top = 263
      Width = 76
      Height = 19
      Caption = #1042#1080#1073#1088#1072#1094#1080#1103':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object TrackBar1: TTrackBar
      Left = 8
      Top = 42
      Width = 225
      Height = 45
      Max = 20
      Min = -20
      TabOrder = 0
      Visible = False
      OnChange = TrackBar1Change
    end
    object TrackBar2: TTrackBar
      Left = 8
      Top = 127
      Width = 225
      Height = 45
      Max = 50
      Position = 10
      TabOrder = 1
      Visible = False
      OnChange = TrackBar2Change
    end
    object TrackBar3: TTrackBar
      Left = 8
      Top = 212
      Width = 225
      Height = 45
      Max = 20
      Position = 4
      TabOrder = 2
      Visible = False
      OnChange = TrackBar3Change
    end
    object TrackBar4: TTrackBar
      Left = 8
      Top = 297
      Width = 225
      Height = 45
      Max = 20
      TabOrder = 3
      Visible = False
      OnChange = TrackBar4Change
    end
    object CheckBox1: TCheckBox
      Left = 9
      Top = 348
      Width = 122
      Height = 29
      Caption = #1057#1077#1088#1076#1094#1077#1074#1080#1085#1072
      Checked = True
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 4
      Visible = False
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 137
      Top = 348
      Width = 96
      Height = 29
      Caption = #1055#1072#1091#1079#1072
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      Visible = False
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 10
      Top = 383
      Width = 223
      Height = 26
      Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100#1089#1082#1072#1103' '#1092#1086#1088#1084#1091#1083#1072' ('#1042#1088#1072#1097#1077#1085#1080#1077')'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      Visible = False
    end
  end
  object GLScene1: TGLScene
    Left = 272
    Top = 8
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLDummyCube3
      Position.Coordinates = {0000A0400000A0400000A0400000803F}
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        Position.Coordinates = {0000F04100000000000000000000803F}
        SpotCutOff = 180.000000000000000000
      end
    end
    object GLDummyCube1: TGLDummyCube
      Visible = False
      CubeSize = 1.000000000000000000
      object GLDummyCube4: TGLDummyCube
        CubeSize = 1.000000000000000000
        object GLSkyDome2: TGLSkyDome
          Direction.Coordinates = {000000000000803F2EBD3BB300000000}
          PitchAngle = 90.000000000000000000
          Up.Coordinates = {000000002EBD3BB3000080BF00000000}
          Bands = <
            item
              StartAngle = -90.000000000000000000
              StartColor.Color = {0000803F0000803F0000803F0000803F}
            end
            item
              StopAngle = 90.000000000000000000
              StopColor.Color = {938C0C3E938C0C3E938E0E3F0000803F}
              Stacks = 4
            end>
          Stars = <>
        end
        object GLTree1: TGLTree
          Direction.Coordinates = {000000000000803F2EBD3BB300000000}
          PitchAngle = 90.000000000000000000
          Position.Coordinates = {00000000F628DCBE000000000000803F}
          Up.Coordinates = {000000002EBD3BB3000080BF00000000}
          Depth = 5
          BranchFacets = 10
          LeafSize = 0.300000011920929000
          BranchSize = 2.000000000000000000
          BranchNoise = 0.500000000000000000
          BranchAngleBias = 0.800000011920929000
          BranchAngle = 0.400000005960464500
          BranchTwist = 45.000000000000000000
          BranchRadius = 0.070000000298023220
          LeafThreshold = 0.019999999552965160
          CentralLeader = False
          Seed = 0
          AutoCenter = False
          AutoRebuild = True
          CenterBranchConstant = 0.500000000000000000
          MaterialLibrary = GLMaterialLibrary1
          object GLPoints1: TGLPoints
            Visible = False
            NoZWrite = False
            Static = False
            EffectsData = {
              0458434F4C02010201060A54474C424669726546580201020006064669726546
              58020002000610474C4669726546584D616E6167657231}
          end
          object GLProxyObject1: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {00000000000000000000803F0000803F}
            Visible = False
          end
          object GLProxyObject2: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {0000000000000000000040400000803F}
            Visible = False
          end
          object GLProxyObject3: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {0000003F000000BF333313400000803F}
            Visible = False
          end
          object GLProxyObject4: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {0000803F000080BF333333400000803F}
            Visible = False
          end
          object GLProxyObject5: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {CDCCCCBECDCCCC3E9A9939400000803F}
            Visible = False
          end
          object GLProxyObject6: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {9A99993F9A9999BF333373400000803F}
            Visible = False
          end
          object GLProxyObject7: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {333333BF6666A63F000080400000803F}
            Visible = False
          end
          object GLProxyObject8: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {3333B33FCDCCCCBE333373400000803F}
            Visible = False
          end
          object GLProxyObject9: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {333333BF00000000000090400000803F}
            Visible = False
          end
          object GLProxyObject10: TGLProxyObject
            MasterObject = GLPoints1
            ProxyOptions = [pooEffects, pooObjects]
            Position.Coordinates = {3333B33F9A9919C0000040400000803F}
            Visible = False
          end
        end
        object GLHeightField1: TGLHeightField
          Material.Texture.Disabled = False
          Direction.Coordinates = {000000000000803FAA7826B300000000}
          PitchAngle = 90.000000000000000000
          Position.Coordinates = {00000000000020C0000000000000803F}
          Scale.Coordinates = {0000A0400000A0400000803F00000000}
          Up.Coordinates = {00000000AA7826B3000080BF00000000}
          XSamplingScale.Min = -1.000000000000000000
          XSamplingScale.Max = 1.000000000000000000
          XSamplingScale.Step = 0.200000002980232200
          YSamplingScale.Min = -1.000000000000000000
          YSamplingScale.Max = 1.000000000000000000
          YSamplingScale.Step = 0.200000002980232200
          Options = [hfoTextureCoordinates]
          OnGetHeight = GLHeightField2GetHeight
        end
      end
    end
    object GLDummyCube2: TGLDummyCube
      Visible = False
      CubeSize = 1.000000000000000000
      object GLSkyDome1: TGLSkyDome
        Direction.Coordinates = {000000000000803F2EBD3BB300000000}
        PitchAngle = 90.000000000000000000
        Up.Coordinates = {000000002EBD3BB3000080BF00000000}
        Bands = <
          item
            StartAngle = -90.000000000000000000
            StartColor.Color = {0000000000000000000000000000803F}
            StopAngle = -30.000000000000000000
            StopColor.Color = {CDCCCC3DCDCCCC3DCDCCCC3D0000803F}
            Slices = 9
          end
          item
            StartAngle = -30.000000000000000000
            StartColor.Color = {CDCCCC3DCDCCCC3DCDCCCC3D0000803F}
            StopAngle = -15.000000000000000000
            StopColor.Color = {9A99993E9A99993E9A99993E0000803F}
            Slices = 9
          end
          item
            StartAngle = -15.000000000000000000
            StartColor.Color = {9A99993E9A99993E9A99993E0000803F}
            StopColor.Color = {B5B4343EE4E4E43EBEBD3D3F0000803F}
            Slices = 9
          end
          item
            StartColor.Color = {B5B4343EE4E4E43EBEBD3D3F0000803F}
            StopAngle = 15.000000000000000000
            StopColor.Color = {B5B5353FD1D0503FEEEE6E3F0000803F}
            Slices = 9
          end
          item
            StartAngle = 15.000000000000000000
            StartColor.Color = {8FC2353F60E5503F17D96E3F0000803F}
            StopAngle = 90.000000000000000000
            StopColor.Color = {B3B1313FC9C7473FF1F1713F0000803F}
            Slices = 9
            Stacks = 3
          end>
        Stars = <>
      end
      object GLCube1: TGLCube
        Material.FrontProperties.Diffuse.Color = {8180803E8180803E0000803F0000803F}
        Position.Coordinates = {000040C000000000000000000000803F}
        EffectsData = {
          0458434F4C02010201060A54474C4254686F72465802010200060654686F7246
          58020002000610474C54686F7246584D616E6167657231}
      end
      object GLCube2: TGLCube
        Material.FrontProperties.Diffuse.Color = {8180803E8180803E0000803F0000803F}
        Position.Coordinates = {0000404000000000000000000000803F}
      end
      object GLHeightField2: TGLHeightField
        Material.Texture.Disabled = False
        Direction.Coordinates = {000000000000803FAA7826B300000000}
        PitchAngle = 90.000000000000000000
        Position.Coordinates = {00000000000040C0000000000000803F}
        Scale.Coordinates = {00002041000020410000803F00000000}
        Up.Coordinates = {00000000AA7826B3000080BF00000000}
        XSamplingScale.Min = -1.000000000000000000
        XSamplingScale.Max = 1.000000000000000000
        XSamplingScale.Step = 0.200000002980232200
        YSamplingScale.Min = -1.000000000000000000
        YSamplingScale.Max = 1.000000000000000000
        YSamplingScale.Step = 0.200000002980232200
        Options = [hfoTextureCoordinates]
        OnGetHeight = GLHeightField2GetHeight
      end
    end
    object GLDummyCube3: TGLDummyCube
      CubeSize = 1.000000000000000000
      object GLSkyDome3: TGLSkyDome
        Direction.Coordinates = {000000000000803F2EBD3BB300000000}
        PitchAngle = 90.000000000000000000
        Up.Coordinates = {000000002EBD3BB3000080BF00000000}
        Bands = <
          item
            StartColor.Color = {0000803F0000803F0000803F0000803F}
            StopAngle = 15.000000000000000000
          end
          item
            StartAngle = 15.000000000000000000
            StopAngle = 90.000000000000000000
            StopColor.Color = {938C0C3E938C0C3E938E0E3F0000803F}
            Stacks = 4
          end>
        Stars = <
          item
            Color = clBlack
          end>
      end
      object GLSphere1: TGLSphere
        Material.Texture.TextureMode = tmModulate
        Material.Texture.Disabled = False
        Radius = 4.000000000000000000
        Slices = 64
        Stacks = 64
      end
      object GLLensFlare1: TGLLensFlare
        Seed = 1465
        NumStreaks = 10
        NumSecs = 10
        Resolution = 10
        FlareIsNotOccluded = True
        Position.Coordinates = {0000F0C100000000000000000000803F}
      end
      object GLAtmosphere1: TGLAtmosphere
        Sun = GLLensFlare1
        Opacity = 1.000000000000000000
        AtmosphereRadius = 4.400000095367432000
        PlanetRadius = 4.000000000000000000
      end
    end
    object GLHUDText1: TGLHUDText
      Visible = False
      BitmapFont = GLWindowsBitmapFont1
      Rotation = 0.000000000000000000
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 344
    Top = 8
  end
  object GLFireFXManager1: TGLFireFXManager
    FireDir.Coordinates = {00000000000000000000000000000000}
    InitialDir.Coordinates = {00000000000000000000803F00000000}
    Cadencer = GLCadencer1
    ParticleSize = 0.300000011920929000
    FireDensity = 1.000000000000000000
    FireEvaporation = 0.860000014305114700
    FireRadius = 0.500000000000000000
    Disabled = False
    Paused = False
    ParticleInterval = 0.019999999552965160
    UseInterval = True
    Left = 440
    Top = 8
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 520
    Top = 8
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Left = 600
    Top = 8
  end
  object GLWindowsBitmapFont1: TGLWindowsBitmapFont
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWhite
    Font.Height = -23
    Font.Name = 'Tahoma'
    Font.Style = []
    Left = 728
    Top = 8
  end
  object GLThorFXManager1: TGLThorFXManager
    Target.Coordinates = {0000C040000000000000000000000000}
    Cadencer = GLCadencer1
    Maxpoints = 64
    GlowSize = 0.100000001490116100
    InnerColor.Color = {0000803F0000803F0000803F9A99993E}
    OuterColor.Color = {00000000000000000000803F00000000}
    Disabled = True
    Core = True
    Glow = True
    Wildness = 1.000000000000000000
    OnCalcPoint = GLThorFXManager1CalcPoint
    Left = 440
    Top = 64
  end
end