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 = {} 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 = {} 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