GLScene/Examples/Demos/materials/multitexture/fdMultiTexture.dfm

object FormMultiTexture: TFormMultiTexture
  Left = 144
  Top = 81
  Margins.Left = 2
  Margins.Top = 2
  Margins.Right = 2
  Margins.Bottom = 2
  BorderStyle = bsSingle
  Caption = 'Multi Texture'
  ClientHeight = 409
  ClientWidth = 564
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object Image1: TImage
    Left = 416
    Top = 56
    Width = 128
    Height = 128
    Stretch = True
    OnClick = Image1Click
  end
  object Image2: TImage
    Left = 416
    Top = 208
    Width = 128
    Height = 128
    Stretch = True
    OnClick = Image2Click
  end
  object Label1: TLabel
    Left = 416
    Top = 40
    Width = 69
    Height = 13
    Caption = 'Texture Map 1'
  end
  object Label2: TLabel
    Left = 416
    Top = 192
    Width = 69
    Height = 13
    Caption = 'Texture Map 2'
  end
  object Label3: TLabel
    Left = 416
    Top = 368
    Width = 60
    Height = 13
    Caption = 'Map 2 Scale'
  end
  object Label4: TLabel
    Left = 432
    Top = 8
    Width = 93
    Height = 19
    Caption = 'MultiTexture'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 8
    Top = 8
    Width = 393
    Height = 393
    Camera = GLCamera1
    FieldOfView = 151.447769165039100000
    PenAsTouch = False
    Enabled = False
    TabOrder = 0
  end
  object TrackBar1: TTrackBar
    Left = 416
    Top = 384
    Width = 126
    Height = 25
    Max = 30
    Min = 5
    Position = 10
    TabOrder = 1
    ThumbLength = 10
    OnChange = TrackBar1Change
  end
  object CBClampTex2: TCheckBox
    Left = 416
    Top = 344
    Width = 97
    Height = 17
    Caption = 'Clamp Texture 2'
    TabOrder = 2
    OnClick = CBClampTex2Click
  end
  object GLScene1: TGLScene
    Left = 48
    Top = 32
    object Plane1: TGLPlane
      Material.MaterialLibrary = GLMaterialLibrary1
      Material.LibMaterialName = 'Base'
      Position.Coordinates = {0000000000000000000080BF0000803F}
      Height = 1.000000000000000000
      Width = 1.000000000000000000
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      Left = 192
      Top = 192
    end
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Materials = <
      item
        Name = 'Base'
        Tag = 0
        Material.Texture.TextureMode = tmReplace
        Material.Texture.Disabled = False
        Texture2Name = 'Second'
      end
      item
        Name = 'Second'
        Tag = 0
        Material.Texture.TextureMode = tmModulate
        Material.Texture.Disabled = False
      end>
    TexturePaths = '..\..\..\..\media\'
    Left = 152
    Top = 32
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 264
    Top = 32
  end
end