unit1.dfm

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

object Form1: TForm1
  Left = 205
  Top = 112
  Width = 662
  Height = 439
  Caption = 'Cg Shader Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnMouseWheel = FormMouseWheel
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 313
    Top = 0
    Height = 412
    Color = clBtnShadow
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 313
    Height = 412
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 2
      Top = 2
      Width = 309
      Height = 408
      ActivePage = TabSheet1
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Vertex Program'
        object Splitter3: TSplitter
          Left = 0
          Top = 287
          Width = 301
          Height = 3
          Cursor = crVSplit
          Align = alBottom
          Color = clBtnShadow
          ParentColor = False
        end
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 301
          Height = 25
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object LabelVertProfile: TLabel
            Left = 88
            Top = 5
            Width = 63
            Height = 13
            Caption = 'Using profile:'
          end
          object CBVertexProgram: TCheckBox
            Left = 6
            Top = 4
            Width = 59
            Height = 17
            Caption = 'Enabled'
            Checked = True
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            State = cbChecked
            TabOrder = 0
            OnClick = CBVertexProgramClick
          end
        end
        object Panel11: TPanel
          Left = 0
          Top = 25
          Width = 301
          Height = 262
          Align = alClient
          Caption = 'Panel6'
          TabOrder = 1
          object Panel12: TPanel
            Left = 1
            Top = 1
            Width = 299
            Height = 16
            Align = alTop
            BevelOuter = bvNone
            Caption = 'Shader Code'
            Color = clBtnHighlight
            TabOrder = 0
          end
          object MemoVertCode: TMemo
            Left = 1
            Top = 17
            Width = 299
            Height = 219
            Align = alClient
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Lucida Console'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 1
            WordWrap = False
            OnChange = MemoVertCodeChange
          end
          object Panel13: TPanel
            Left = 1
            Top = 236
            Width = 299
            Height = 25
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 2
            DesignSize = (
              299
              25)
            object ButtonApplyVP: TButton
              Left = 224
              Top = 2
              Width = 67
              Height = 20
              Anchors = [akTop, akRight]
              Caption = 'Apply'
              Enabled = False
              TabOrder = 0
              OnClick = ButtonApplyVPClick
            end
          end
        end
        object Panel5: TPanel
          Left = 0
          Top = 290
          Width = 301
          Height = 90
          Align = alBottom
          TabOrder = 2
          DesignSize = (
            301
            90)
          object Label2: TLabel
            Left = 228
            Top = 5
            Width = 30
            Height = 13
            Anchors = [akTop, akRight]
            Caption = 'Show:'
          end
          object Memo1: TMemo
            Left = 1
            Top = 1
            Width = 216
            Height = 88
            Align = alLeft
            Anchors = [akLeft, akTop, akRight, akBottom]
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -9
            Font.Name = 'Lucida Console'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
            WordWrap = False
          end
          object Button1: TButton
            Left = 226
            Top = 21
            Width = 64
            Height = 18
            Anchors = [akTop, akRight]
            Caption = 'Params'
            TabOrder = 1
            OnClick = Button1Click
          end
          object Button4: TButton
            Left = 226
            Top = 42
            Width = 64
            Height = 18
            Anchors = [akTop, akRight]
            Caption = 'Asm'
            TabOrder = 2
            OnClick = Button4Click
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Fragment Program'
        ImageIndex = 1
        object Splitter2: TSplitter
          Left = 0
          Top = 287
          Width = 301
          Height = 3
          Cursor = crVSplit
          Align = alBottom
          Color = clBtnShadow
          ParentColor = False
        end
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 301
          Height = 25
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object LabelFragProfile: TLabel
            Left = 88
            Top = 5
            Width = 63
            Height = 13
            Caption = 'Using profile:'
          end
          object CheckBox1: TCheckBox
            Left = 6
            Top = 4
            Width = 67
            Height = 17
            Caption = 'Enabled'
            Checked = True
            State = cbChecked
            TabOrder = 0
            OnClick = CBFragmentProgramClick
          end
        end
        object Panel6: TPanel
          Left = 0
          Top = 25
          Width = 301
          Height = 262
          Align = alClient
          Caption = 'Panel6'
          TabOrder = 1
          object Panel7: TPanel
            Left = 1
            Top = 1
            Width = 299
            Height = 16
            Align = alTop
            BevelOuter = bvNone
            Caption = 'Shader Code'
            Color = clBtnHighlight
            TabOrder = 0
          end
          object MemoFragCode: TMemo
            Left = 1
            Top = 17
            Width = 299
            Height = 219
            Align = alClient
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Lucida Console'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 1
            WordWrap = False
            OnChange = MemoFragCodeChange
          end
          object Panel3: TPanel
            Left = 1
            Top = 236
            Width = 299
            Height = 25
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 2
            DesignSize = (
              299
              25)
            object ButtonApplyFP: TButton
              Left = 224
              Top = 2
              Width = 67
              Height = 20
              Anchors = [akTop, akRight]
              Caption = 'Apply'
              Enabled = False
              TabOrder = 0
              OnClick = ButtonApplyFPClick
            end
          end
        end
        object Panel8: TPanel
          Left = 0
          Top = 290
          Width = 301
          Height = 90
          Align = alBottom
          TabOrder = 2
          DesignSize = (
            301
            90)
          object Label1: TLabel
            Left = 228
            Top = 5
            Width = 30
            Height = 13
            Anchors = [akTop, akRight]
            Caption = 'Show:'
          end
          object Memo3: TMemo
            Left = 1
            Top = 1
            Width = 216
            Height = 88
            Align = alLeft
            Anchors = [akLeft, akTop, akRight, akBottom]
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Courier New'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
            WordWrap = False
          end
          object Button2: TButton
            Left = 226
            Top = 21
            Width = 64
            Height = 18
            Anchors = [akTop, akRight]
            Caption = 'Params'
            TabOrder = 1
            OnClick = Button2Click
          end
          object Button3: TButton
            Left = 226
            Top = 42
            Width = 64
            Height = 18
            Anchors = [akTop, akRight]
            Caption = 'Asm'
            TabOrder = 2
            OnClick = Button3Click
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Controls'
        ImageIndex = 2
        DesignSize = (
          301
          380)
        object Label16: TLabel
          Left = 8
          Top = 272
          Width = 282
          Height = 13
          Caption = 'Note: NV2x class hardware may not honor negative values'
        end