GLScene/Source/DesignTime/FmMaterialEditor.dfm

object GLMaterialEditorForm: TGLMaterialEditorForm
  Left = 143
  Top = 100
  BorderStyle = bsDialog
  Caption = 'Material Editor'
  ClientHeight = 289
  ClientWidth = 560
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 261
    Width = 71
    Height = 13
    Caption = 'Blending Mode'
  end
  object Label2: TLabel
    Left = 8
    Top = 231
    Width = 68
    Height = 13
    Caption = 'Polygon Mode'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 8
    Width = 313
    Height = 217
    ActivePage = TSFront
    Style = tsButtons
    TabOrder = 0
    object TSFront: TTabSheet
      Caption = 'Front'
      inline FEFront: TRFaceEditor
        Left = 0
        Top = 0
        Width = 305
        Height = 227
        AutoSize = True
        TabOrder = 0
        ExplicitWidth = 305
        ExplicitHeight = 227
        inherited Label1: TLabel
          Width = 45
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 45
          ExplicitHeight = 13
        end
        inherited PageControl: TPageControl
          ActivePage = FEFront.TSAmbient
          inherited TSAmbient: TTabSheet
            ExplicitTop = 25
            ExplicitHeight = 101
            inherited CEAmbiant: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
          inherited TSDiffuse: TTabSheet
            ExplicitTop = 24
            ExplicitHeight = 102
            inherited CEDiffuse: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
          inherited TSEmission: TTabSheet
            ExplicitTop = 24
            ExplicitHeight = 102
            inherited CEEmission: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
          inherited TSSpecular: TTabSheet
            ExplicitTop = 24
            ExplicitHeight = 102
            inherited CESpecular: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
        end
        inherited TBEShininess: TRTrackBarEdit
          inherited Edit: TEdit
            Height = 21
            StyleElements = [seFont, seClient, seBorder]
            ExplicitHeight = 21
          end
        end
        inherited ImageList: TImageList
          Top = 0
        end
      end
    end
    object TSBack: TTabSheet
      Caption = 'Back'
      ImageIndex = 1
      inline FEBack: TRFaceEditor
        Left = 0
        Top = 0
        Width = 305
        Height = 227
        AutoSize = True
        TabOrder = 0
        ExplicitWidth = 305
        ExplicitHeight = 227
        inherited Label1: TLabel
          Width = 45
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 45
          ExplicitHeight = 13
        end
        inherited PageControl: TPageControl
          inherited TSAmbient: TTabSheet
            ExplicitTop = 24
            ExplicitHeight = 102
            inherited CEAmbiant: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
          inherited TSDiffuse: TTabSheet
            ExplicitTop = 24
            ExplicitHeight = 102
            inherited CEDiffuse: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
          inherited TSEmission: TTabSheet
            ExplicitTop = 25
            ExplicitHeight = 101
            inherited CEEmission: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
          inherited TSSpecular: TTabSheet
            ExplicitTop = 24
            ExplicitHeight = 102
            inherited CESpecular: TRColorEditor
              inherited Label1: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label2: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label3: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Label4: TLabel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited PAPreview: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited Panel1: TPanel
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited RedEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited GreenEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited BlueEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
              inherited AlphaEdit: TEdit
                StyleElements = [seFont, seClient, seBorder]
              end
            end
          end
        end
        inherited TBEShininess: TRTrackBarEdit
          inherited Edit: TEdit
            Height = 21
            StyleElements = [seFont, seClient, seBorder]
            ExplicitHeight = 21
          end
        end
      end
    end
    object TSTexture: TTabSheet
      Caption = 'Texture'
      ImageIndex = 2
      inline RTextureEdit: TRTextureEdit
        Left = 0
        Top = 0
        Width = 305
        Height = 186
        Align = alClient
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ExplicitWidth = 305
        ExplicitHeight = 186
        DesignSize = (
          305
          186)
        inherited Label2: TLabel
          Width = 29
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 29
          ExplicitHeight = 13
        end
        inherited SBEditImage: TSpeedButton
          Left = 287
          ExplicitLeft = 287
        end
        inherited Label3: TLabel
          Width = 43
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 43
          ExplicitHeight = 13
        end
        inherited Label4: TLabel
          Width = 39
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 39
          ExplicitHeight = 13
        end
        inherited Label1: TLabel
          Width = 66
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 66
          ExplicitHeight = 13
        end
        inherited Label5: TLabel
          Width = 65
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 65
          ExplicitHeight = 13
        end
        inherited Label6: TLabel
          Width = 56
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 56
          ExplicitHeight = 13
        end
        inherited Label7: TLabel
          Width = 71
          Height = 13
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 71
          ExplicitHeight = 13
        end
        inherited CBMagFilter: TComboBox
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitHeight = 21
        end
        inherited CBMinFilter: TComboBox
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitHeight = 21
        end
        inherited CBTextureMode: TComboBox
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitHeight = 21
        end
        inherited CBTextureWrap: TComboBox
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitHeight = 21
        end
        inherited CBImageClass: TComboBox
          Width = 213
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitWidth = 213
          ExplicitHeight = 21
        end
        inherited CBImageAlpha: TComboBox
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitHeight = 21
        end
        inherited CBFilteringQuality: TComboBox
          Height = 21
          StyleElements = [seFont, seClient, seBorder]
          ExplicitHeight = 21
        end
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 320
    Top = 8
    Width = 233
    Height = 241
    Caption = 'Material Preview'
    TabOrder = 1
    inline MPPreview: TRMaterialPreview
      Left = 16
      Top = 22
      Width = 202
      Height = 229
      AutoSize = True
      TabOrder = 0
      ExplicitLeft = 16
      ExplicitTop = 22
      inherited CBObject: TComboBox
        Height = 21
        StyleElements = [seFont, seClient, seBorder]
        ExplicitHeight = 21
      end
      inherited CBBackground: TComboBox
        Height = 21
        StyleElements = [seFont, seClient, seBorder]
        ExplicitHeight = 21
      end
      inherited GLScene: TGLScene
        inherited World: TGLDummyCube
          inherited Cube: TGLCube
            Material.MaterialLibrary = nil
            Material.LibMaterialName = ''
            Direction.Coordinates = {FCFAF0B1D8B35D3FFEFFFF3E00000000}
            Up.Coordinates = {D7B35DBFFFFF7F3ED7B3DDBE00000000}
          end
          inherited Sphere: TGLSphere
            Material.MaterialLibrary = nil
            Material.LibMaterialName = ''
          end
          inherited Teapot: TGLTeapot
            Material.MaterialLibrary = nil
            Material.LibMaterialName = ''
            Scale.Coordinates = {00000040000000400000004000000000}
          end
        end
        inherited Light: TGLDummyCube
          Position.Coordinates = {0000000000004040000020410000803F}
          inherited FireSphere: TGLSphere
            Material.FrontProperties.Ambient.Color = {A3A2223FCDCC4C3ECDCC4C3E0000803F}
            Material.FrontProperties.Emission.Color = {D3D2523FA1A0203F000000000000803F}
          end
        end
        inherited Camera: TGLCamera
          Position.Coordinates = {0000000000000000000020410000803F}
          inherited LightSource: TGLLightSource
            Specular.Color = {0000803F0000803F0000803F0000803F}
          end
        end
      end
      inherited GLMaterialLibrary: TGLMaterialLibrary
        Materials = <
          item
            Name = 'LibMaterial1'
            Tag = 0
          end>
      end
    end
  end
  object BBOk: TBitBtn
    Left = 376
    Top = 256
    Width = 83
    Height = 25
    Caption = 'OK'
    Default = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    ModalResult = 1
    NumGlyphs = 2
    TabOrder = 2
  end
  object BBCancel: TBitBtn
    Left = 472
    Top = 256
    Width = 83
    Height = 25
    Kind = bkCancel
    NumGlyphs = 2
    TabOrder = 3
  end
  object CBBlending: TComboBox
    Left = 88
    Top = 258
    Width = 145
    Height = 21
    Style = csDropDownList
    TabOrder = 4
    OnChange = OnMaterialChanged
  end
  object CBPolygonMode: TComboBox
    Left = 82
    Top = 227
    Width = 145
    Height = 21
    Style = csDropDownList
    TabOrder = 5
    OnChange = OnMaterialChanged
  end
end