Unit1.dfm 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'MultiTexture'
  5. ClientHeight = 415
  6. ClientWidth = 550
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. Position = poScreenCenter
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object Image1: TImage
  19. Left = 411
  20. Top = 56
  21. Width = 128
  22. Height = 128
  23. Stretch = True
  24. OnClick = Image1Click
  25. end
  26. object Image2: TImage
  27. Left = 411
  28. Top = 208
  29. Width = 128
  30. Height = 128
  31. Stretch = True
  32. OnClick = Image2Click
  33. end
  34. object Label1: TLabel
  35. Left = 416
  36. Top = 40
  37. Width = 70
  38. Height = 13
  39. Caption = 'Texture Map 1'
  40. end
  41. object Label2: TLabel
  42. Left = 416
  43. Top = 192
  44. Width = 70
  45. Height = 13
  46. Caption = 'Texture Map 2'
  47. end
  48. object Label3: TLabel
  49. Left = 416
  50. Top = 368
  51. Width = 57
  52. Height = 13
  53. Caption = 'Map 2 Scale'
  54. end
  55. object Label4: TLabel
  56. Left = 432
  57. Top = 8
  58. Width = 93
  59. Height = 19
  60. Caption = 'MultiTexture'
  61. Font.Charset = ANSI_CHARSET
  62. Font.Color = clWindowText
  63. Font.Height = -16
  64. Font.Name = 'Arial'
  65. Font.Style = [fsBold]
  66. ParentFont = False
  67. end
  68. object GLSceneViewer1: TGLSceneViewer
  69. Left = 8
  70. Top = 8
  71. Width = 393
  72. Height = 393
  73. Camera = GLCamera1
  74. FieldOfView = 151.447769165039100000
  75. Enabled = False
  76. TabOrder = 0
  77. end
  78. object TrackBar1: TTrackBar
  79. Left = 413
  80. Top = 378
  81. Width = 126
  82. Height = 25
  83. Max = 30
  84. Min = 5
  85. Position = 10
  86. TabOrder = 1
  87. ThumbLength = 10
  88. OnChange = TrackBar1Change
  89. end
  90. object CBClampTex2: TCheckBox
  91. Left = 416
  92. Top = 344
  93. Width = 97
  94. Height = 17
  95. Caption = 'Clamp Texture 2'
  96. TabOrder = 2
  97. end
  98. object GLScene1: TGLScene
  99. Left = 48
  100. Top = 32
  101. object Plane1: TGLPlane
  102. Material.MaterialLibrary = GLMaterialLibrary1
  103. Material.LibMaterialName = 'Base'
  104. Position.Coordinates = {0000000000000000000080BF0000803F}
  105. Height = 1.000000000000000000
  106. Width = 1.000000000000000000
  107. end
  108. object GLCamera1: TGLCamera
  109. DepthOfView = 100.000000000000000000
  110. FocalLength = 50.000000000000000000
  111. Left = 192
  112. Top = 192
  113. end
  114. end
  115. object GLMaterialLibrary1: TGLMaterialLibrary
  116. Materials = <
  117. item
  118. Name = 'Base'
  119. Tag = 0
  120. Material.Texture.TextureMode = tmReplace
  121. Material.Texture.Disabled = False
  122. Texture2Name = 'Second'
  123. end
  124. item
  125. Name = 'Second'
  126. Tag = 0
  127. Material.Texture.TextureMode = tmModulate
  128. Material.Texture.Disabled = False
  129. end>
  130. TexturePaths = '..\..\..\..\media\'
  131. Left = 152
  132. Top = 32
  133. end
  134. object OpenPictureDialog1: TOpenPictureDialog
  135. Left = 264
  136. Top = 32
  137. end
  138. end