unit1.dfm

来自「delphi 最好的3D控件GLScene_Demos」· DFM 代码 · 共 172 行

object Form1: TForm1
  Left = 228
  Top = 89
  Width = 471
  Height = 362
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 463
    Height = 333
    Camera = GLCamera1
    Buffer.BackgroundColor = 8421440
    Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
    Align = alClient
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 121
    Height = 57
    TabOrder = 1
    object CBShadows: TCheckBox
      Left = 16
      Top = 8
      Width = 97
      Height = 17
      Caption = 'Shadows'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = CBShadowsClick
    end
    object CBStencil: TCheckBox
      Left = 16
      Top = 32
      Width = 97
      Height = 17
      Caption = 'Stencil Buffer'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CBStencilClick
    end
  end
  object GLScene1: TGLScene
    Left = 344
    Top = 8
    object DCShadowing: TGLDummyCube
      CubeSize = 1
      object Cube1: TGLCube
        Position.Coordinates = {000000000000003F000000000000803F}
        Up.Coordinates = {00000000FFFF7F3F1AF6953100000000}
        CubeSize = {00000040CDCC4C3E3333333F}
      end
      object Sphere1: TGLSphere
        Position.Coordinates = {000000000000803F0000C0BF0000803F}
        Radius = 0.200000002980232
      end
      object Torus1: TGLTorus
        Direction.Coordinates = {00000000B28F703F441DAF3E00000000}
        Position.Coordinates = {000000000000803F0000C03F0000803F}
        Up.Coordinates = {00000000441DAF3EB28F70BF00000000}
        MajorRadius = 0.300000011920929
        MinorRadius = 0.100000001490116
        Rings = 24
        Sides = 12
      end
    end
    object DCLight: TGLDummyCube
      CubeSize = 1
      object GLLightSource1: TGLLightSource
        ConstAttenuation = 1
        Position.Coordinates = {0000000000004040000000000000803F}
        SpotCutOff = 180
        object Sphere2: TGLSphere
          Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
          Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
          Material.FrontProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
          Radius = 0.100000001490116
          Slices = 8
          Stacks = 8
        end
      end
    end
    object DCCameraTarget: TGLDummyCube
      Position.Coordinates = {000000003333333F000000000000803F}
      CubeSize = 1
      object GLCamera1: TGLCamera
        DepthOfView = 100
        FocalLength = 50
        TargetObject = DCCameraTarget
        Position.Coordinates = {0000A04000008040000040400000803F}
      end
    end
    object GLShadowPlane1: TGLShadowPlane
      Direction.Coordinates = {000000000000803F0000000000000000}
      Up.Coordinates = {0000000000000000000080BF00000000}
      Material.MaterialLibrary = GLMaterialLibrary
      Material.LibMaterialName = 'Marble'
      Height = 8
      Width = 4
      XTiles = 4
      YTiles = 8
      Style = [psTileTexture]
      ShadowingObject = DCShadowing
      ShadowedLight = GLLightSource1
    end
    object GLShadowPlane2: TGLShadowPlane
      Position.Coordinates = {0000000000000040000080C00000803F}
      Up.Coordinates = {000000000000803F0000008000000000}
      Material.MaterialLibrary = GLMaterialLibrary
      Material.LibMaterialName = 'Marble'
      Height = 4
      Width = 4
      XTiles = 4
      YTiles = 4
      Style = [psTileTexture]
      ShadowingObject = DCShadowing
      ShadowedLight = GLLightSource1
    end
    object GLShadowPlane3: TGLShadowPlane
      Direction.Coordinates = {0000803F000000800000000000000000}
      Position.Coordinates = {000000C000000040000000000000803F}
      Up.Coordinates = {0000000000000000000080BF00000000}
      Material.MaterialLibrary = GLMaterialLibrary
      Material.LibMaterialName = 'Marble'
      Height = 8
      Width = 4
      XTiles = 4
      YTiles = 8
      Style = [psTileTexture]
      ShadowingObject = DCShadowing
      ShadowedLight = GLLightSource1
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 384
    Top = 8
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 424
    Top = 8
  end
  object GLMaterialLibrary: TGLMaterialLibrary
    Materials = <
      item
        Name = 'Marble'
        Material.FrontProperties.Emission.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000803F}
        Material.Texture.TextureMode = tmModulate
        Material.Texture.Disabled = False
        Tag = 0
        TextureScale.Coordinates = {0000003F0000003F0000803F00000000}
      end>
    Left = 304
    Top = 8
  end
end