unit1.dfm

来自「delphi 最好的3D控件GLScene_Demos」· DFM 代码 · 共 769 行 · 第 1/2 页

        object GroupBox1: TGroupBox
          Left = 8
          Top = 40
          Width = 281
          Height = 105
          Anchors = [akLeft, akTop, akRight]
          Caption = ' TexCoord. Shifts '
          TabOrder = 0
          DesignSize = (
            281
            105)
          object Label18: TLabel
            Left = 64
            Top = 86
            Width = 193
            Height = 13
            Alignment = taCenter
            Anchors = [akLeft, akTop, akRight]
            AutoSize = False
            Caption = '0'
          end
          object Label3: TLabel
            Left = 16
            Top = 24
            Width = 27
            Height = 13
            Caption = 'Tex 0'
          end
          object Label4: TLabel
            Left = 16
            Top = 40
            Width = 27
            Height = 13
            Caption = 'Tex 1'
          end
          object Label5: TLabel
            Left = 16
            Top = 56
            Width = 27
            Height = 13
            Caption = 'Tex 2'
          end
          object Label6: TLabel
            Left = 16
            Top = 72
            Width = 27
            Height = 13
            Caption = 'Tex 3'
          end
          object Label11: TLabel
            Left = 32
            Top = 24
            Width = 3
            Height = 13
          end
          object Label12: TLabel
            Left = 56
            Top = 86
            Width = 10
            Height = 13
            Caption = '-1'
          end
          object Label14: TLabel
            Left = 252
            Top = 86
            Width = 6
            Height = 13
            Anchors = [akTop, akRight]
            Caption = '1'
          end
          object TrackBar1: TTrackBar
            Left = 56
            Top = 24
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 50
            TabOrder = 0
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
          object TrackBar2: TTrackBar
            Left = 56
            Top = 40
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 50
            TabOrder = 1
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
          object TrackBar3: TTrackBar
            Left = 56
            Top = 56
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 50
            TabOrder = 2
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
          object TrackBar4: TTrackBar
            Left = 56
            Top = 72
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 50
            TabOrder = 3
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
        end
        object GroupBox2: TGroupBox
          Left = 8
          Top = 160
          Width = 281
          Height = 105
          Anchors = [akLeft, akTop, akRight]
          Caption = ' Blending Weights '
          TabOrder = 1
          DesignSize = (
            281
            105)
          object Label17: TLabel
            Left = 64
            Top = 86
            Width = 193
            Height = 13
            Alignment = taCenter
            Anchors = [akLeft, akTop, akRight]
            AutoSize = False
            Caption = '0'
          end
          object Label7: TLabel
            Left = 16
            Top = 24
            Width = 27
            Height = 13
            Caption = 'Tex 0'
          end
          object Label8: TLabel
            Left = 16
            Top = 40
            Width = 27
            Height = 13
            Caption = 'Tex 1'
          end
          object Label9: TLabel
            Left = 16
            Top = 56
            Width = 27
            Height = 13
            Caption = 'Tex 2'
          end
          object Label10: TLabel
            Left = 16
            Top = 72
            Width = 27
            Height = 13
            Caption = 'Tex 3'
          end
          object Label13: TLabel
            Left = 252
            Top = 86
            Width = 6
            Height = 13
            Anchors = [akTop, akRight]
            Caption = '1'
          end
          object Label15: TLabel
            Left = 56
            Top = 86
            Width = 10
            Height = 13
            Caption = '-1'
          end
          object TrackBar5: TTrackBar
            Left = 56
            Top = 24
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 75
            TabOrder = 0
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
          object TrackBar6: TTrackBar
            Left = 56
            Top = 40
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 75
            TabOrder = 1
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
          object TrackBar7: TTrackBar
            Left = 56
            Top = 56
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 75
            TabOrder = 2
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
          object TrackBar8: TTrackBar
            Left = 56
            Top = 72
            Width = 206
            Height = 15
            Anchors = [akLeft, akTop, akRight]
            Max = 100
            Position = 65
            TabOrder = 3
            ThumbLength = 12
            TickMarks = tmBoth
            TickStyle = tsNone
          end
        end
        object CheckBox2: TCheckBox
          Left = 14
          Top = 12
          Width = 131
          Height = 17
          Caption = 'CgShader Enabled'
          Checked = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 2
          OnClick = CheckBox2Click
        end
      end
    end
  end
  object Panel9: TPanel
    Left = 316
    Top = 0
    Width = 338
    Height = 412
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Panel10: TPanel
      Left = 1
      Top = 1
      Width = 336
      Height = 48
      Align = alTop
      Caption = 'Cg Multi-Texturing'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Trebuchet MS'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object GLSceneViewer1: TGLSceneViewer
      Left = 1
      Top = 49
      Width = 336
      Height = 362
      Camera = GLCamera1
      Buffer.Lighting = False
      Buffer.AntiAliasing = aa4xHQ
      Align = alClient
      OnMouseDown = GLSceneViewer1MouseDown
      OnMouseMove = GLSceneViewer1MouseMove
    end
  end
  object GLScene1: TGLScene
    Left = 352
    Top = 56
    object GLXYZGrid1: TGLXYZGrid
      Position.Coordinates = {000000006F12033B000000000000803F}
      LineColor.Color = {938C0C3E938E0E3F938C0C3E0000803F}
      XSamplingScale.Min = -2.000000000000000000
      XSamplingScale.Max = 2.000000000000000000
      XSamplingScale.Step = 0.100000001490116100
      YSamplingScale.Step = 0.100000001490116100
      ZSamplingScale.Min = -2.000000000000000000
      ZSamplingScale.Max = 2.000000000000000000
      ZSamplingScale.Step = 0.100000001490116100
      Parts = [gpX, gpZ]
      LinesSmoothing = False
    end
    object GLPlane1: TGLPlane
      Direction.Coordinates = {000000000000803F0000000000000000}
      PitchAngle = 90.000000000000000000
      Up.Coordinates = {0000000000000000000080BF00000000}
      Material.MaterialLibrary = GLMatLib
      Material.LibMaterialName = 'LibMaterial'
      Height = 1.000000000000000000
      Width = 1.000000000000000000
      NoZWrite = False
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLPlane1
      CameraStyle = csInfinitePerspective
      Position.Coordinates = {000000000000C03F0000803F0000803F}
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 352
    Top = 88
  end
  object CgShader1: TCgShader
    VertexProgram.OnApply = CgShader1ApplyVP
    FragmentProgram.OnApply = CgShader1ApplyFP
    FragmentProgram.OnUnApply = CgShader1UnApplyFP
    OnApplyVP = CgShader1ApplyVP
    OnApplyFP = CgShader1ApplyFP
    OnUnApplyFP = CgShader1UnApplyFP
    OnInitialize = CgShader1Initialize
    Left = 320
    Top = 56
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 388
    Top = 56
  end
  object GLMatLib: TGLMaterialLibrary
    Materials = <
      item
        Name = 'LibMaterial'
        Material.Texture.Disabled = False
        Tag = 0
        Shader = CgShader1
      end
      item
        Name = 'LibMaterial1'
        Material.Texture.Disabled = False
        Tag = 0
      end
      item
        Name = 'LibMaterial2'
        Tag = 0
      end
      item
        Name = 'LibMaterial3'
        Tag = 0
      end>
    TexturePaths = '..\..\media\'
    Left = 321
    Top = 88
  end
end