fMultiTextureC.dfm 3.7 KB

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