fMultiTextureD.dfm 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180
  1. object FormMultiTexture: TFormMultiTexture
  2. Left = 144
  3. Top = 81
  4. Margins.Left = 4
  5. Margins.Top = 4
  6. Margins.Right = 4
  7. Margins.Bottom = 4
  8. BorderStyle = bsSingle
  9. Caption = 'Multi Texture'
  10. ClientHeight = 715
  11. ClientWidth = 987
  12. Color = clBtnFace
  13. Font.Charset = DEFAULT_CHARSET
  14. Font.Color = clWindowText
  15. Font.Height = -19
  16. Font.Name = 'MS Sans Serif'
  17. Font.Style = []
  18. Position = poScreenCenter
  19. OnCreate = FormCreate
  20. PixelsPerInch = 168
  21. TextHeight = 24
  22. object Image1: TImage
  23. Left = 728
  24. Top = 98
  25. Width = 224
  26. Height = 224
  27. Margins.Left = 6
  28. Margins.Top = 6
  29. Margins.Right = 6
  30. Margins.Bottom = 6
  31. Stretch = True
  32. OnClick = Image1Click
  33. end
  34. object Image2: TImage
  35. Left = 728
  36. Top = 364
  37. Width = 224
  38. Height = 224
  39. Margins.Left = 6
  40. Margins.Top = 6
  41. Margins.Right = 6
  42. Margins.Bottom = 6
  43. Stretch = True
  44. OnClick = Image2Click
  45. end
  46. object Label1: TLabel
  47. Left = 728
  48. Top = 70
  49. Width = 122
  50. Height = 24
  51. Margins.Left = 6
  52. Margins.Top = 6
  53. Margins.Right = 6
  54. Margins.Bottom = 6
  55. Caption = 'Texture Map 1'
  56. end
  57. object Label2: TLabel
  58. Left = 728
  59. Top = 336
  60. Width = 122
  61. Height = 24
  62. Margins.Left = 6
  63. Margins.Top = 6
  64. Margins.Right = 6
  65. Margins.Bottom = 6
  66. Caption = 'Texture Map 2'
  67. end
  68. object Label3: TLabel
  69. Left = 728
  70. Top = 644
  71. Width = 104
  72. Height = 24
  73. Margins.Left = 6
  74. Margins.Top = 6
  75. Margins.Right = 6
  76. Margins.Bottom = 6
  77. Caption = 'Map 2 Scale'
  78. end
  79. object Label4: TLabel
  80. Left = 756
  81. Top = 14
  82. Width = 168
  83. Height = 33
  84. Margins.Left = 6
  85. Margins.Top = 6
  86. Margins.Right = 6
  87. Margins.Bottom = 6
  88. Caption = 'MultiTexture'
  89. Font.Charset = ANSI_CHARSET
  90. Font.Color = clWindowText
  91. Font.Height = -28
  92. Font.Name = 'Arial'
  93. Font.Style = [fsBold]
  94. ParentFont = False
  95. end
  96. object GLSceneViewer1: TGLSceneViewer
  97. Left = 14
  98. Top = 14
  99. Width = 687
  100. Height = 687
  101. Margins.Left = 6
  102. Margins.Top = 6
  103. Margins.Right = 6
  104. Margins.Bottom = 6
  105. Camera = GLCamera1
  106. FieldOfView = 163.436340332031300000
  107. PenAsTouch = False
  108. Enabled = False
  109. TabOrder = 0
  110. end
  111. object TrackBar1: TTrackBar
  112. Left = 728
  113. Top = 672
  114. Width = 221
  115. Height = 43
  116. Margins.Left = 6
  117. Margins.Top = 6
  118. Margins.Right = 6
  119. Margins.Bottom = 6
  120. Max = 30
  121. Min = 5
  122. Position = 10
  123. TabOrder = 1
  124. ThumbLength = 18
  125. OnChange = TrackBar1Change
  126. end
  127. object CBClampTex2: TCheckBox
  128. Left = 728
  129. Top = 602
  130. Width = 169
  131. Height = 29
  132. Margins.Left = 6
  133. Margins.Top = 6
  134. Margins.Right = 6
  135. Margins.Bottom = 6
  136. Caption = 'Clamp Texture 2'
  137. TabOrder = 2
  138. OnClick = CBClampTex2Click
  139. end
  140. object GLScene1: TGLScene
  141. Left = 48
  142. Top = 32
  143. object Plane1: TGLPlane
  144. Material.MaterialLibrary = GLMaterialLibrary1
  145. Material.LibMaterialName = 'Base'
  146. Position.Coordinates = {0000000000000000000080BF0000803F}
  147. Height = 1.000000000000000000
  148. Width = 1.000000000000000000
  149. end
  150. object GLCamera1: TGLCamera
  151. DepthOfView = 100.000000000000000000
  152. FocalLength = 50.000000000000000000
  153. Left = 192
  154. Top = 192
  155. end
  156. end
  157. object GLMaterialLibrary1: TGLMaterialLibrary
  158. Materials = <
  159. item
  160. Name = 'Base'
  161. Tag = 0
  162. Material.Texture.TextureMode = tmReplace
  163. Material.Texture.Disabled = False
  164. Texture2Name = 'Second'
  165. end
  166. item
  167. Name = 'Second'
  168. Tag = 0
  169. Material.Texture.TextureMode = tmModulate
  170. Material.Texture.Disabled = False
  171. end>
  172. TexturePaths = '..\..\..\..\media\'
  173. Left = 152
  174. Top = 32
  175. end
  176. object OpenPictureDialog1: TOpenPictureDialog
  177. Left = 264
  178. Top = 32
  179. end
  180. end