GLScene/Source/FmShaderUniformEditor.dfm

object GLShaderUniformEditor: TGLShaderUniformEditor
  Left = 432
  Top = 332
  BorderStyle = bsDialog
  Caption = 'Autofill of uniforms'
  ClientHeight = 344
  ClientWidth = 440
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnDestroy = FormDestroy
  TextHeight = 13
  object Labe1: TLabel
    Left = 8
    Top = 5
    Width = 88
    Height = 13
    Caption = 'Available Uniforms'
  end
  object Label1: TLabel
    Left = 223
    Top = 5
    Width = 78
    Height = 13
    Caption = 'Avaiblable Value'
  end
  object Label2: TLabel
    Left = 223
    Top = 97
    Width = 79
    Height = 13
    Caption = 'Texture Sampler'
  end
  object Label3: TLabel
    Left = 223
    Top = 143
    Width = 176
    Height = 13
    Caption = 'Swizzle of texture color components '
  end
  object Label4: TLabel
    Left = 223
    Top = 51
    Width = 131
    Height = 13
    Caption = 'Texture Image/Attachment'
  end
  object LBUniforms: TListBox
    Left = 8
    Top = 24
    Width = 209
    Height = 313
    ItemHeight = 13
    TabOrder = 0
    OnClick = LBUniformsClick
    OnKeyPress = LBUniformsKeyPress
  end
  object AutoSetBox: TComboBox
    Left = 223
    Top = 24
    Width = 209
    Height = 21
    Style = csDropDownList
    TabOrder = 1
    OnChange = AutoSetBoxChange
  end
  object SamplerBox: TComboBox
    Left = 223
    Top = 116
    Width = 209
    Height = 21
    Style = csDropDownList
    Enabled = False
    TabOrder = 2
    OnChange = SamplerBoxChange
  end
  object Panel1: TPanel
    Left = 223
    Top = 162
    Width = 209
    Height = 143
    TabOrder = 3
    object RedGroup: TRadioGroup
      Left = 8
      Top = 8
      Width = 50
      Height = 129
      Caption = 'RED'
      Color = clRed
      Items.Strings = (
        'R'
        'G'
        'B'
        'A'
        '0'
        '1')
      ParentColor = False
      TabOrder = 0
      OnClick = ColorGroupClick
    end
    object GreenGroup: TRadioGroup
      Tag = 1
      Left = 55
      Top = 8
      Width = 50
      Height = 129
      Caption = 'GREEN'
      Color = clGreen
      Items.Strings = (
        'R'
        'G'
        'B'
        'A'
        '0'
        '1')
      ParentColor = False
      TabOrder = 1
      OnClick = ColorGroupClick
    end
    object BlueGroup: TRadioGroup
      Tag = 2
      Left = 102
      Top = 8
      Width = 50
      Height = 129
      Caption = 'BLUE'
      Color = clBlue
      Items.Strings = (
        'R'
        'G'
        'B'
        'A'
        '0'
        '1')
      ParentColor = False
      TabOrder = 2
      OnClick = ColorGroupClick
    end
    object AlphaGroup: TRadioGroup
      Tag = 3
      Left = 150
      Top = 8
      Width = 50
      Height = 129
      Caption = 'ALPHA'
      Color = clWhite
      Items.Strings = (
        'R'
        'G'
        'B'
        'A'
        '0'
        '1')
      ParentColor = False
      TabOrder = 3
      OnClick = ColorGroupClick
    end
  end
  object TextureBox: TComboBox
    Left = 223
    Top = 70
    Width = 209
    Height = 21
    Style = csDropDownList
    Enabled = False
    TabOrder = 4
    OnChange = TextureBoxChange
  end
  object Button1: TButton
    Left = 360
    Top = 312
    Width = 73
    Height = 25
    Caption = 'Done'
    ModalResult = 1
    TabOrder = 5
  end
end