fQ3DemoC.dfm 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'GLScene Quake Actor'
  5. ClientHeight = 458
  6. ClientWidth = 783
  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. WindowState = wsMaximized
  15. OnCreate = FormCreate
  16. OnDestroy = FormDestroy
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object Panel1: TPanel
  20. Left = 0
  21. Top = 0
  22. Width = 783
  23. Height = 73
  24. Align = alTop
  25. TabOrder = 0
  26. object Label1: TLabel
  27. Left = 16
  28. Top = 16
  29. Width = 72
  30. Height = 13
  31. Caption = 'Legs Animation'
  32. end
  33. object Label2: TLabel
  34. Left = 200
  35. Top = 16
  36. Width = 77
  37. Height = 13
  38. Caption = 'Torso Animaiton'
  39. end
  40. object Label3: TLabel
  41. Left = 380
  42. Top = 8
  43. Width = 71
  44. Height = 13
  45. Caption = 'Torso direction'
  46. end
  47. object Label4: TLabel
  48. Left = 496
  49. Top = 8
  50. Width = 25
  51. Height = 13
  52. Caption = 'Head'
  53. end
  54. object Label5: TLabel
  55. Left = 616
  56. Top = 20
  57. Width = 19
  58. Height = 13
  59. Caption = 'Skin'
  60. end
  61. object ComboBox1: TComboBox
  62. Left = 16
  63. Top = 32
  64. Width = 169
  65. Height = 21
  66. Style = csDropDownList
  67. TabOrder = 0
  68. OnChange = ComboBox1Change
  69. end
  70. object ComboBox2: TComboBox
  71. Left = 200
  72. Top = 32
  73. Width = 145
  74. Height = 21
  75. Style = csDropDownList
  76. TabOrder = 1
  77. OnChange = ComboBox2Change
  78. end
  79. object TrackBar1: TTrackBar
  80. Left = 372
  81. Top = 24
  82. Width = 109
  83. Height = 21
  84. Max = 90
  85. Min = -90
  86. TabOrder = 2
  87. end
  88. object TrackBar2: TTrackBar
  89. Left = 372
  90. Top = 48
  91. Width = 109
  92. Height = 21
  93. Max = 90
  94. Min = -90
  95. TabOrder = 3
  96. end
  97. object TrackBar3: TTrackBar
  98. Left = 488
  99. Top = 24
  100. Width = 109
  101. Height = 21
  102. Max = 90
  103. Min = -90
  104. TabOrder = 4
  105. end
  106. object TrackBar4: TTrackBar
  107. Left = 488
  108. Top = 48
  109. Width = 109
  110. Height = 21
  111. Max = 90
  112. Min = -90
  113. TabOrder = 5
  114. end
  115. object ComboSkin: TComboBox
  116. Left = 612
  117. Top = 36
  118. Width = 85
  119. Height = 21
  120. TabOrder = 6
  121. Text = 'Default'
  122. OnChange = ComboSkinChange
  123. Items.Strings = (
  124. 'Default'
  125. 'Red'
  126. 'Blue')
  127. end
  128. end
  129. object GLSceneViewer1: TGLSceneViewer
  130. Left = 0
  131. Top = 73
  132. Width = 783
  133. Height = 385
  134. Camera = GLCamera1
  135. Buffer.BackgroundColor = clSkyBlue
  136. Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
  137. FieldOfView = 51.398372650146480000
  138. PenAsTouch = False
  139. Align = alClient
  140. OnMouseDown = GLSceneViewer1MouseDown
  141. OnMouseMove = GLSceneViewer1MouseMove
  142. TabOrder = 1
  143. end
  144. object GLScene1: TGLScene
  145. Left = 32
  146. Top = 80
  147. object DummyCube1: TGLDummyCube
  148. CubeSize = 1.000000000000000000
  149. object GLLightSource1: TGLLightSource
  150. Ambient.Color = {0000803F0000803F0000803F0000803F}
  151. ConstAttenuation = 1.000000000000000000
  152. Position.Coordinates = {0000204100000000000020410000803F}
  153. LightStyle = lsOmni
  154. SpotCutOff = 180.000000000000000000
  155. end
  156. object GLCamera1: TGLCamera
  157. DepthOfView = 1000.000000000000000000
  158. FocalLength = 400.000000000000000000
  159. TargetObject = DummyCube1
  160. Position.Coordinates = {00009041000080410000C0400000803F}
  161. Direction.Coordinates = {2EF964BF2EF9E43E0000000000000000}
  162. Up.Coordinates = {00000000000000000000803F00000000}
  163. end
  164. end
  165. object ModelCube: TGLDummyCube
  166. CubeSize = 1.000000000000000000
  167. object Legs: TGLActor
  168. Interval = 100
  169. MaterialLibrary = MatLib
  170. object Torso: TGLActor
  171. Interval = 100
  172. MaterialLibrary = MatLib
  173. object Head: TGLActor
  174. Interval = 100
  175. MaterialLibrary = MatLib
  176. end
  177. object Weapon: TGLActor
  178. Interval = 100
  179. MaterialLibrary = MatLib
  180. object GunSmoke: TGLDummyCube
  181. CubeSize = 1.000000000000000000
  182. EffectsData = {
  183. 0458434F4C02010201061254474C536F75726365504658456666656374020202
  184. 001200000000020002001200000000050000000000000080FF3F020602000802
  185. 0008020008050000000000CDCCCCFA3F050000000000CDCCCCFA3F0500000000
  186. 00CDCCCCFA3F02000200090500000000000000000000080200}
  187. end
  188. end
  189. end
  190. end
  191. end
  192. object GLShadowPlane1: TGLShadowPlane
  193. Material.DepthProperties.DepthWrite = False
  194. Position.Coordinates = {0000000000000000000080BF0000803F}
  195. Height = 10.000000000000000000
  196. Width = 10.000000000000000000
  197. ShadowingObject = ModelCube
  198. ShadowedLight = GLLightSource1
  199. end
  200. object GLParticleFXRenderer1: TGLParticleFXRenderer
  201. end
  202. end
  203. object GLCadencer1: TGLCadencer
  204. Scene = GLScene1
  205. SleepLength = 0
  206. OnProgress = GLCadencer1Progress
  207. Left = 120
  208. Top = 80
  209. end
  210. object Timer1: TTimer
  211. OnTimer = Timer1Timer
  212. Left = 208
  213. Top = 80
  214. end
  215. object MatLib: TGLMaterialLibrary
  216. Left = 32
  217. Top = 144
  218. end
  219. object GLPointLightPFXManager1: TGLPointLightPFXManager
  220. Cadencer = GLCadencer1
  221. Renderer = GLParticleFXRenderer1
  222. Acceleration.Coordinates = {0000000000000000CDCC4C3E00000000}
  223. Friction = 1.000000000000000000
  224. ParticleSize = 0.200000002980232200
  225. ColorInner.Color = {0000403F0000403F0000403F0000403F}
  226. ColorOuter.Color = {0000403F0000403F0000403F00000000}
  227. LifeColors = <
  228. item
  229. LifeTime = 3.000000000000000000
  230. SizeScale = 1.000000000000000000
  231. end>
  232. Left = 120
  233. Top = 144
  234. end
  235. end