Freelog Special Edition 9/FreelogHS09.iso/FractalExplo/FE_ogl.dll/0/RCDATA/TLIGHTSFORM/TLIGHTSFORM.txt

Text File | 2001-05-14 | 31KB | 1,157 lines

object LightsForm: TLightsForm
  Left = 441
  Top = 35
  ActiveControl = BitBtn2
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Light property and matherial workshop'
  ClientHeight = 465
  ClientWidth = 561
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Label14: TLabel
    Left = 2
    Top = 124
    Width = 81
    Height = 13
    Caption = 'Light sources:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 4
    Top = 4
    Width = 189
    Height = 113
    BevelOuter = bvLowered
    TabOrder = 7
    object OGLPanel1: TOGLPanel
      Left = 1
      Top = 1
      Width = 187
      Height = 111
      OGLAngle = 45.000000000000000000
      OGLDistNear = 0.001000000047497451
      OGLDistFar = 50.000000000000000000
      OGLRenderer = rdHardware
      OGLLoadBitmap = False
      Align = alClient
      Color = clWhite
      OnPaint = OGLPanel1Paint
      OnRender = OGLPanel1Render
    end
  end
  object Panel4: TPanel
    Left = 4
    Top = 140
    Width = 101
    Height = 97
    BevelOuter = bvNone
    TabOrder = 8
    object SpeedButton1: TSpeedButton
      Tag = 2
      Left = 36
      Top = 4
      Width = 27
      Height = 27
      Hint = 'Second light source'
      AllowAllUp = True
      GroupIndex = 12
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Tag = 3
      Left = 4
      Top = 36
      Width = 27
      Height = 27
      Hint = 'Third light source'
      AllowAllUp = True
      GroupIndex = 12
      OnClick = SpeedButton1Click
    end
    object SpeedButton3: TSpeedButton
      Tag = 1
      Left = 36
      Top = 36
      Width = 27
      Height = 27
      Hint = 'First light source (center of scene by default)'
      AllowAllUp = True
      GroupIndex = 12
      OnClick = SpeedButton1Click
    end
    object SpeedButton4: TSpeedButton
      Tag = 4
      Left = 68
      Top = 36
      Width = 27
      Height = 27
      Hint = 'Fourth light source'
      AllowAllUp = True
      GroupIndex = 12
      OnClick = SpeedButton1Click
    end
    object SpeedButton5: TSpeedButton
      Tag = 5
      Left = 36
      Top = 68
      Width = 27
      Height = 27
      Hint = 'Fifth light source'
      AllowAllUp = True
      GroupIndex = 12
      OnClick = SpeedButton1Click
    end
  end
  object CheckBox1: TCheckBox
    Left = 108
    Top = 136
    Width = 81
    Height = 17
    Hint = 'Enable or disable current light source'
    Caption = '&Enabled'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = CheckBox1Click
  end
  object GroupBox1: TGroupBox
    Left = 200
    Top = 120
    Width = 357
    Height = 181
    Caption = 'Light sources position:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    object Image1: TImage
      Left = 2
      Top = 15
      Width = 353
      Height = 164
      Align = alClient
      Picture.Data = {<image001.bmp>}
    end
    object Panel2: TPanel
      Tag = 2
      Left = 80
      Top = 76
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 0
      OnMouseDown = Panel2MouseDown
      OnMouseMove = Panel2MouseMove
      OnMouseUp = Panel2MouseUp
    end
    object Panel7: TPanel
      Tag = 3
      Left = 60
      Top = 96
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 1
      OnMouseDown = Panel2MouseDown
      OnMouseMove = Panel2MouseMove
      OnMouseUp = Panel2MouseUp
    end
    object Panel8: TPanel
      Tag = 4
      Left = 100
      Top = 96
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 2
      OnMouseDown = Panel2MouseDown
      OnMouseMove = Panel2MouseMove
      OnMouseUp = Panel2MouseUp
    end
    object Panel9: TPanel
      Tag = 1
      Left = 80
      Top = 96
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clLime
      TabOrder = 3
      OnMouseDown = Panel2MouseDown
      OnMouseMove = Panel2MouseMove
      OnMouseUp = Panel2MouseUp
    end
    object Panel10: TPanel
      Tag = 5
      Left = 80
      Top = 116
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 4
      OnMouseDown = Panel2MouseDown
      OnMouseMove = Panel2MouseMove
      OnMouseUp = Panel2MouseUp
    end
    object Panel11: TPanel
      Tag = 2
      Left = 264
      Top = 76
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 5
      OnMouseDown = Panel9MouseDown
      OnMouseMove = Panel9MouseMove
      OnMouseUp = Panel9MouseUp
    end
    object Panel12: TPanel
      Tag = 3
      Left = 244
      Top = 96
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 6
      OnMouseDown = Panel9MouseDown
      OnMouseMove = Panel9MouseMove
      OnMouseUp = Panel9MouseUp
    end
    object Panel13: TPanel
      Tag = 1
      Left = 264
      Top = 96
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clLime
      TabOrder = 7
      OnMouseDown = Panel9MouseDown
      OnMouseMove = Panel9MouseMove
      OnMouseUp = Panel9MouseUp
    end
    object Panel14: TPanel
      Tag = 5
      Left = 264
      Top = 116
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 8
      OnMouseDown = Panel9MouseDown
      OnMouseMove = Panel9MouseMove
      OnMouseUp = Panel9MouseUp
    end
    object Panel15: TPanel
      Tag = 4
      Left = 284
      Top = 96
      Width = 6
      Height = 6
      Cursor = crHandPoint
      Hint = 'Click and drag to new position'
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 9
      OnMouseDown = Panel9MouseDown
      OnMouseMove = Panel9MouseMove
      OnMouseUp = Panel9MouseUp
    end
  end
  object BitBtn1: TBitBtn
    Left = 100
    Top = 244
    Width = 89
    Height = 25
    Caption = '&Cancel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkCancel
  end
  object BitBtn2: TBitBtn
    Left = 4
    Top = 244
    Width = 89
    Height = 25
    Caption = '&Ok'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
    Kind = bkOK
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 308
    Width = 553
    Height = 153
    Hint = 'Terrain matherial and texture'
    Caption = 'Terrain matherial and texture:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    object Label15: TLabel
      Left = 8
      Top = 38
      Width = 41
      Height = 14
      Caption = 'Ambient'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Label16: TLabel
      Left = 8
      Top = 66
      Width = 35
      Height = 14
      Caption = 'Diffuse'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Label17: TLabel
      Left = 8
      Top = 94
      Width = 44
      Height = 14
      Caption = 'Specular'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Label18: TLabel
      Left = 8
      Top = 122
      Width = 49
      Height = 14
      Caption = 'Shininess'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Label19: TLabel
      Left = 62
      Top = 38
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 62
      Top = 66
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 62
      Top = 94
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 62
      Top = 122
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 224
      Top = 122
      Width = 21
      Height = 17
      Caption = '128'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label24: TLabel
      Left = 224
      Top = 94
      Width = 7
      Height = 17
      Caption = '1'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label25: TLabel
      Left = 224
      Top = 38
      Width = 7
      Height = 17
      Caption = '1'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label26: TLabel
      Left = 224
      Top = 66
      Width = 7
      Height = 17
      Caption = '1'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Shape4: TShape
      Left = 244
      Top = 32
      Width = 28
      Height = 28
      Hint = 'Color of the ambient component of the material'
      Shape = stCircle
      OnMouseDown = Shape4MouseDown
    end
    object Shape5: TShape
      Left = 244
      Top = 60
      Width = 28
      Height = 28
      Hint = 'Color of the diffuse component of the material'
      Shape = stCircle
      OnMouseDown = Shape5MouseDown
    end
    object Shape6: TShape
      Left = 244
      Top = 88
      Width = 28
      Height = 28
      Hint = 'Color of the specular component of the material'
      Shape = stCircle
      OnMouseDown = Shape6MouseDown
    end
    object Label11: TLabel
      Left = 292
      Top = 36
      Width = 31
      Height = 14
      Caption = 'Scale:'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object ScrollBar5: TScrollBar
      Left = 72
      Top = 120
      Width = 149
      Height = 20
      Hint = 'Value of specular exponent of the material'
      LargeChange = 8
      Max = 128
      SmallChange = 2
      TabOrder = 3
      OnChange = ScrollBar5Change
    end
    object ScrollBar6: TScrollBar
      Left = 72
      Top = 92
      Width = 149
      Height = 20
      Hint = 'Intensity for specular reflectance of the material'
      LargeChange = 10
      SmallChange = 2
      TabOrder = 2
      OnChange = ScrollBar6Change
    end
    object ScrollBar7: TScrollBar
      Left = 72
      Top = 64
      Width = 149
      Height = 20
      Hint = 'Intensity of the diffuse RGBA reflectance of the material'
      LargeChange = 10
      SmallChange = 2
      TabOrder = 1
      OnChange = ScrollBar7Change
    end
    object ScrollBar8: TScrollBar
      Left = 72
      Top = 36
      Width = 149
      Height = 20
      Hint = 'Intensity of the ambient reflectance of the material'
      LargeChange = 10
      SmallChange = 2
      TabOrder = 0
      OnChange = ScrollBar8Change
    end
    object StaticText3: TStaticText
      Left = 72
      Top = 16
      Width = 149
      Height = 21
      AutoSize = False
      Caption = 'Intensity:'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 7
    end
    object StaticText4: TStaticText
      Left = 240
      Top = 16
      Width = 49
      Height = 17
      AutoSize = False
      Caption = 'Color:'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 8
    end
    object StaticText5: TStaticText
      Left = 292
      Top = 16
      Width = 65
      Height = 17
      AutoSize = False
      Caption = 'Texture:'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 9
    end
    object Panel17: TPanel
      Left = 412
      Top = 16
      Width = 130
      Height = 130
      BevelOuter = bvLowered
      TabOrder = 10
      object Image2: TImage
        Left = 1
        Top = 1
        Width = 128
        Height = 128
        Align = alClient
        Center = True
      end
    end
    object BitBtn5: TBitBtn
      Left = 292
      Top = 92
      Width = 113
      Height = 25
      Caption = '&Load texture...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = BitBtn5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
      Spacing = 8
    end
    object Panel18: TPanel
      Left = 280
      Top = 6
      Width = 2
      Height = 147
      BevelOuter = bvLowered
      TabOrder = 11
    end
    object BitBtn6: TBitBtn
      Left = 292
      Top = 64
      Width = 113
      Height = 25
      Hint = 'Load the terrain texture from the build-in library'
      Caption = 'L&ibrary'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn6Click
      Glyph.Data = {
        72010000424D7201000000000000760000002800000016000000150000000100
        040000000000FC00000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777770078000000000000000000070078FFFFFFFFFFFFF07777070078FF
        44444444FFF0F887070078FFFFFFFFFFFFF0F007070078FF444444444FF0FFF7
        070078FFFFFFFFFFFFF00000070078FF44444444FFF0F7F70700784444444444
        44407F7F07007844FFFFFFFFF440F7F7070078444444444444407F7F070078FF
        44444444FFF0F7F7070078FFFFFFFFFFFFF07F7F070078FF444444444FF0F7F7
        070078FFFFFFFFFFFFF00000070078FF44444444FFF07777070078FFFFFFFFFF
        FFF0F007070078FF444444444FF0F887070078FFFFFFFFFFFFF0FFF707007888
        88888888888000000700777777777777777777777700}
      Spacing = 8
    end
    object BitBtn7: TBitBtn
      Left = 292
      Top = 120
      Width = 113
      Height = 25
      Hint = 'Load the terrain texture from the build-in library'
      Caption = 'Cl&ear texture'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F55500000000555055557777777755F75555005500055055
        555577F5777F57555555005550055555555577FF577F5FF55555500550050055
        5555577FF77577FF555555005050110555555577F757777FF555555505099910
        555555FF75777777FF555005550999910555577F5F77777775F5500505509990
        3055577F75F77777575F55005055090B030555775755777575755555555550B0
        B03055555F555757575755550555550B0B335555755555757555555555555550
        BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
        50BB555555555555575F555555555555550B5555555555555575}
      NumGlyphs = 2
      Spacing = 8
    end
    object SpinButton1: TSpinButton
      Left = 389
      Top = 33
      Width = 15
      Height = 19
      DownGlyph.Data = {
        0E010000424D0E01000000000000360000002800000009000000060000000100
        200000000000D800000000000000000000000000000000000000008080000080
        8000008080000080800000808000008080000080800000808000008080000080
        8000008080000080800000808000000000000080800000808000008080000080
        8000008080000080800000808000000000000000000000000000008080000080
        8000008080000080800000808000000000000000000000000000000000000000
        0000008080000080800000808000000000000000000000000000000000000000
        0000000000000000000000808000008080000080800000808000008080000080
        800000808000008080000080800000808000}
      TabOrder = 12
      UpGlyph.Data = {
        0E010000424D0E01000000000000360000002800000009000000060000000100
        200000000000D800000000000000000000000000000000000000008080000080
        8000008080000080800000808000008080000080800000808000008080000080
        8000000000000000000000000000000000000000000000000000000000000080
        8000008080000080800000000000000000000000000000000000000000000080
        8000008080000080800000808000008080000000000000000000000000000080
        8000008080000080800000808000008080000080800000808000000000000080
        8000008080000080800000808000008080000080800000808000008080000080
        800000808000008080000080800000808000}
      OnDownClick = SpinButton1DownClick
      OnUpClick = SpinButton1UpClick
    end
    object Edit1: TEdit
      Left = 336
      Top = 32
      Width = 53
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      Text = '1'
      OnExit = Edit1Exit
      OnKeyDown = Edit1KeyDown
      OnKeyPress = Edit1KeyPress
    end
  end
  object BitBtn3: TBitBtn
    Left = 4
    Top = 276
    Width = 89
    Height = 25
    Caption = '&Restore'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn3Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
      33333333333F8888883F33330000324334222222443333388F3833333388F333
      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
      3338888300003AAAAAAA33333333333888888833333333330000333333333333
      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 100
    Top = 276
    Width = 89
    Height = 25
    Caption = '&Apply'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn4Click
    Glyph.Data = {
      42010000424D4201000000000000760000002800000011000000110000000100
      040000000000CC00000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777000000077777777777777777000000070000077777000007000000070B0
      00777770F0007000000070F000777770B0007000000070000000700000007000
      0000700B000000B0000070000000700F000700F0000070000000700B000700B0
      0000700000007700000000000007700000007770B00070B00077700000007770
      0000700000777000000077770007770007777000000077770B07770B07777000
      0000777700077700077770000000777777777777777770000000777777777777
      777770000000}
  end
  object StaticText6: TStaticText
    Left = 108
    Top = 152
    Width = 81
    Height = 85
    Hint = 'Position of current light source'
    AutoSize = False
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object GroupBox3: TGroupBox
    Left = 200
    Top = 0
    Width = 357
    Height = 117
    Caption = 'Current light source:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    object Shape1: TShape
      Left = 232
      Top = 28
      Width = 28
      Height = 28
      Hint = 'Color of the ambient component of the current light'
      Shape = stCircle
      OnMouseDown = Shape1MouseDown
    end
    object Label2: TLabel
      Left = 8
      Top = 34
      Width = 41
      Height = 14
      Caption = 'Ambient'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 62
      Width = 35
      Height = 14
      Caption = 'Diffuse'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Shape2: TShape
      Left = 232
      Top = 56
      Width = 28
      Height = 28
      Hint = 'Color of the diffuse component of the current light'
      Shape = stCircle
      OnMouseDown = Shape2MouseDown
    end
    object Label4: TLabel
      Left = 8
      Top = 90
      Width = 44
      Height = 14
      Caption = 'Specular'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsItalic, fsUnderline]
      ParentFont = False
    end
    object Shape3: TShape
      Left = 232
      Top = 84
      Width = 28
      Height = 28
      Hint = 'Color of the specular component of the current light'
      Shape = stCircle
      OnMouseDown = Shape3MouseDown
    end
    object Label5: TLabel
      Left = 58
      Top = 34
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 58
      Top = 62
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 58
      Top = 90
      Width = 7
      Height = 17
      Caption = '0'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 220
      Top = 34
      Width = 7
      Height = 17
      Caption = '1'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 220
      Top = 62
      Width = 7
      Height = 17
      Caption = '1'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 220
      Top = 90
      Width = 7
      Height = 17
      Caption = '1'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 280
      Top = 12
      Width = 47
      Height = 13
      Alignment = taCenter
      Caption = 'Preview:'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      WordWrap = True
    end
    object ScrollBar1: TScrollBar
      Left = 68
      Top = 32
      Width = 149
      Height = 20
      Hint = 'Intensity of the ambient component of the light'
      LargeChange = 10
      SmallChange = 2
      TabOrder = 0
      OnChange = ScrollBar1Change
    end
    object ScrollBar2: TScrollBar
      Left = 68
      Top = 60
      Width = 149
      Height = 20
      Hint = 'Intensity of the diffuse  component of the light'
      LargeChange = 10
      SmallChange = 2
      TabOrder = 1
      OnChange = ScrollBar2Change
    end
    object ScrollBar3: TScrollBar
      Left = 68
      Top = 88
      Width = 149
      Height = 20
      Hint = 'Intensity of the specular  component of the light'
      LargeChange = 10
      SmallChange = 2
      TabOrder = 2
      OnChange = ScrollBar3Change
    end
    object Panel3: TPanel
      Left = 280
      Top = 27
      Width = 66
      Height = 66
      BevelOuter = bvLowered
      Caption = 'Panel3'
      TabOrder = 3
      object OGLPanel2: TOGLPanel
        Left = 1
        Top = 1
        Width = 64
        Height = 64
        OGLAngle = 45.000000000000000000
        OGLDistNear = 0.001000000047497451
        OGLDistFar = 50.000000000000000000
        OGLRenderer = rdHardware
        OGLLoadBitmap = False
        Align = alClient
        Color = clWhite
        OnPaint = OGLPanel2Paint
        OnRender = OGLPanel2Render
      end
    end
    object StaticText1: TStaticText
      Left = 68
      Top = 12
      Width = 149
      Height = 17
      AutoSize = False
      Caption = 'Intensit&y:'
      FocusControl = ScrollBar1
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 4
    end
    object StaticText2: TStaticText
      Left = 232
      Top = 12
      Width = 41
      Height = 17
      AutoSize = False
      Caption = 'Color:'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 5
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen, cdAnyColor]
    Left = 396
    Top = 8
  end
  object OpenTexDlg: TOpenPictureDialog
    Filter =
      'All (*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;*.gif|Bitmaps ' +
      '(*.bmp)|*.bmp|JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg|GIF (*.gif)|*.gif'
    Options = [ofPathMustExist, ofFileMustExist]
    Title = 'Open terrain texture...'
    Left = 384
    Top = 400
  end
end