unit1.dfm

都是关于Glscene的实例

object Form1: TForm1
  Left = 217
  Top = 94
  Width = 469
  Height = 356
  Caption = 'Hierarchy and AVI recorder Demo'
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 320
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnKeyPress = FormKeyPress
  OnResize = FormResize
  DesignSize = (
    461
    327)
  PixelsPerInch = 96
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 8
    Top = 8
    Width = 445
    Height = 286
    Camera = GLCamera1
    Buffer.BackgroundColor = clBtnShadow
    Anchors = [akLeft, akTop, akRight, akBottom]
  end
  object TrackBar: TTrackBar
    Left = 8
    Top = 301
    Width = 325
    Height = 25
    Anchors = [akLeft, akRight, akBottom]
    Max = 360
    Orientation = trHorizontal
    PageSize = 10
    Frequency = 10
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 1
    ThumbLength = 15
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBarChange
  end
  object StaticText1: TStaticText
    Left = 16
    Top = 16
    Width = 45
    Height = 17
    BorderStyle = sbsSingle
    Caption = '??? FPS'
    TabOrder = 2
  end
  object Button1: TButton
    Left = 346
    Top = 300
    Width = 107
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Record to AVI...'
    TabOrder = 3
    OnClick = Button1Click
  end
  object GLScene1: TGLScene
    Left = 16
    Top = 48
    object Cube1: TGLCube
      Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
      Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
      Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
      Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
    end
    object DummyCube1: TGLDummyCube
      CubeSize = 2
      object Cube2: TGLCube
        Position.Coordinates = {0000404000000000000000000000803F}
        Material.FrontProperties.Diffuse.Color = {8786063F8786063F0000803F0000803F}
        Material.FrontProperties.Emission.Color = {0000000000000000A1A0203F0000803F}
        Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
        CubeSize = {0000003F0000003F0000003F}
        object DummyCube2: TGLDummyCube
          Direction.Coordinates = {00000000F304353FF304353F00000000}
          Up.Coordinates = {00000000F304353FF30435BF00000000}
          CubeSize = 1
          object Cube3: TGLCube
            Position.Coordinates = {000000000000803F000000000000803F}
            Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
            CubeSize = {CDCC4C3ECDCC4C3ECDCC4C3E}
          end
        end
      end
    end
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1
      SpotCutOff = 180
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100
      FocalLength = 100
      TargetObject = Cube1
      Position.Coordinates = {000020410000A040000020410000803F}
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    Left = 16
    Top = 88
  end
  object AVIRecorder1: TAVIRecorder
    GLSceneViewer = GLSceneViewer1
    Width = 320
    Height = 200
    Compressor = acShowDialog
    ImageRetrievalMode = irmSnapShot
    OnPostProcessEvent = AVIRecorder1PostProcessEvent
    Left = 16
    Top = 128
  end
end