fQ3Demo.dfm 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236
  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. 001200000000020002000617474C506F696E744C696768745046584D616E6167
  185. 657231050000000000000080FF3F0206020008020008020008050000000000CD
  186. CCCCFA3F050000000000CDCCCCFA3F050000000000CDCCCCFA3F020002000905
  187. 00000000000000000000080200}
  188. end
  189. end
  190. end
  191. end
  192. end
  193. object GLShadowPlane1: TGLShadowPlane
  194. Material.DepthProperties.DepthWrite = False
  195. Position.Coordinates = {0000000000000000000080BF0000803F}
  196. Height = 10.000000000000000000
  197. Width = 10.000000000000000000
  198. ShadowingObject = ModelCube
  199. ShadowedLight = GLLightSource1
  200. end
  201. object GLParticleFXRenderer1: TGLParticleFXRenderer
  202. end
  203. end
  204. object GLCadencer1: TGLCadencer
  205. Scene = GLScene1
  206. SleepLength = 0
  207. OnProgress = GLCadencer1Progress
  208. Left = 120
  209. Top = 80
  210. end
  211. object Timer1: TTimer
  212. OnTimer = Timer1Timer
  213. Left = 208
  214. Top = 80
  215. end
  216. object MatLib: TGLMaterialLibrary
  217. Left = 32
  218. Top = 144
  219. end
  220. object GLPointLightPFXManager1: TGLPointLightPFXManager
  221. Cadencer = GLCadencer1
  222. Renderer = GLParticleFXRenderer1
  223. Acceleration.Coordinates = {0000000000000000CDCC4C3E00000000}
  224. Friction = 1.000000000000000000
  225. ParticleSize = 0.200000002980232200
  226. ColorInner.Color = {0000403F0000403F0000403F0000403F}
  227. ColorOuter.Color = {0000403F0000403F0000403F00000000}
  228. LifeColors = <
  229. item
  230. LifeTime = 3.000000000000000000
  231. SizeScale = 1.000000000000000000
  232. end>
  233. Left = 120
  234. Top = 144
  235. end
  236. end