fQ3DemoD.dfm 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'GLScene Quake Actor'
  5. ClientHeight = 573
  6. ClientWidth = 979
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -14
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. WindowState = wsMaximized
  14. OnCreate = FormCreate
  15. OnDestroy = FormDestroy
  16. PixelsPerInch = 120
  17. TextHeight = 17
  18. object Panel1: TPanel
  19. Left = 0
  20. Top = 0
  21. Width = 979
  22. Height = 91
  23. Margins.Left = 4
  24. Margins.Top = 4
  25. Margins.Right = 4
  26. Margins.Bottom = 4
  27. Align = alTop
  28. TabOrder = 0
  29. object Label1: TLabel
  30. Left = 20
  31. Top = 20
  32. Width = 92
  33. Height = 17
  34. Margins.Left = 4
  35. Margins.Top = 4
  36. Margins.Right = 4
  37. Margins.Bottom = 4
  38. Caption = 'Legs Animation'
  39. end
  40. object Label2: TLabel
  41. Left = 250
  42. Top = 20
  43. Width = 99
  44. Height = 17
  45. Margins.Left = 4
  46. Margins.Top = 4
  47. Margins.Right = 4
  48. Margins.Bottom = 4
  49. Caption = 'Torso Animaiton'
  50. end
  51. object Label3: TLabel
  52. Left = 475
  53. Top = 10
  54. Width = 91
  55. Height = 17
  56. Margins.Left = 4
  57. Margins.Top = 4
  58. Margins.Right = 4
  59. Margins.Bottom = 4
  60. Caption = 'Torso direction'
  61. end
  62. object Label4: TLabel
  63. Left = 620
  64. Top = 10
  65. Width = 31
  66. Height = 17
  67. Margins.Left = 4
  68. Margins.Top = 4
  69. Margins.Right = 4
  70. Margins.Bottom = 4
  71. Caption = 'Head'
  72. end
  73. object Label5: TLabel
  74. Left = 770
  75. Top = 25
  76. Width = 25
  77. Height = 17
  78. Margins.Left = 4
  79. Margins.Top = 4
  80. Margins.Right = 4
  81. Margins.Bottom = 4
  82. Caption = 'Skin'
  83. end
  84. object ComboBox1: TComboBox
  85. Left = 20
  86. Top = 40
  87. Width = 211
  88. Height = 25
  89. Margins.Left = 4
  90. Margins.Top = 4
  91. Margins.Right = 4
  92. Margins.Bottom = 4
  93. Style = csDropDownList
  94. TabOrder = 0
  95. OnChange = ComboBox1Change
  96. end
  97. object ComboBox2: TComboBox
  98. Left = 250
  99. Top = 40
  100. Width = 181
  101. Height = 25
  102. Margins.Left = 4
  103. Margins.Top = 4
  104. Margins.Right = 4
  105. Margins.Bottom = 4
  106. Style = csDropDownList
  107. TabOrder = 1
  108. OnChange = ComboBox2Change
  109. end
  110. object TrackBar1: TTrackBar
  111. Left = 465
  112. Top = 30
  113. Width = 136
  114. Height = 26
  115. Margins.Left = 4
  116. Margins.Top = 4
  117. Margins.Right = 4
  118. Margins.Bottom = 4
  119. Max = 90
  120. Min = -90
  121. TabOrder = 2
  122. ThumbLength = 25
  123. end
  124. object TrackBar2: TTrackBar
  125. Left = 465
  126. Top = 60
  127. Width = 136
  128. Height = 26
  129. Margins.Left = 4
  130. Margins.Top = 4
  131. Margins.Right = 4
  132. Margins.Bottom = 4
  133. Max = 90
  134. Min = -90
  135. TabOrder = 3
  136. ThumbLength = 25
  137. end
  138. object TrackBar3: TTrackBar
  139. Left = 610
  140. Top = 30
  141. Width = 136
  142. Height = 26
  143. Margins.Left = 4
  144. Margins.Top = 4
  145. Margins.Right = 4
  146. Margins.Bottom = 4
  147. Max = 90
  148. Min = -90
  149. TabOrder = 4
  150. ThumbLength = 25
  151. end
  152. object TrackBar4: TTrackBar
  153. Left = 610
  154. Top = 60
  155. Width = 136
  156. Height = 26
  157. Margins.Left = 4
  158. Margins.Top = 4
  159. Margins.Right = 4
  160. Margins.Bottom = 4
  161. Max = 90
  162. Min = -90
  163. TabOrder = 5
  164. ThumbLength = 25
  165. end
  166. object ComboSkin: TComboBox
  167. Left = 765
  168. Top = 45
  169. Width = 106
  170. Height = 25
  171. Margins.Left = 4
  172. Margins.Top = 4
  173. Margins.Right = 4
  174. Margins.Bottom = 4
  175. TabOrder = 6
  176. Text = 'Default'
  177. OnChange = ComboSkinChange
  178. Items.Strings = (
  179. 'Default'
  180. 'Red'
  181. 'Blue')
  182. end
  183. end
  184. object GLSceneViewer1: TGLSceneViewer
  185. Left = 0
  186. Top = 91
  187. Width = 979
  188. Height = 482
  189. Margins.Left = 4
  190. Margins.Top = 4
  191. Margins.Right = 4
  192. Margins.Bottom = 4
  193. Camera = GLCamera1
  194. Buffer.BackgroundColor = clSkyBlue
  195. Buffer.ContextOptions = [roDoubleBuffer, roStencilBuffer, roRenderToWindow]
  196. FieldOfView = 62.137928009033200000
  197. PenAsTouch = False
  198. Align = alClient
  199. OnMouseDown = GLSceneViewer1MouseDown
  200. OnMouseMove = GLSceneViewer1MouseMove
  201. TabOrder = 1
  202. end
  203. object GLScene1: TGLScene
  204. Left = 32
  205. Top = 80
  206. object DummyCube1: TGLDummyCube
  207. CubeSize = 1.000000000000000000
  208. object GLLightSource1: TGLLightSource
  209. Ambient.Color = {0000803F0000803F0000803F0000803F}
  210. ConstAttenuation = 1.000000000000000000
  211. Position.Coordinates = {0000204100000000000020410000803F}
  212. LightStyle = lsOmni
  213. SpotCutOff = 180.000000000000000000
  214. end
  215. object GLCamera1: TGLCamera
  216. DepthOfView = 1000.000000000000000000
  217. FocalLength = 400.000000000000000000
  218. TargetObject = DummyCube1
  219. Position.Coordinates = {00009041000080410000C0400000803F}
  220. Direction.Coordinates = {2EF964BF2EF9E43E0000000000000000}
  221. Up.Coordinates = {00000000000000000000803F00000000}
  222. end
  223. end
  224. object ModelCube: TGLDummyCube
  225. CubeSize = 1.000000000000000000
  226. object Legs: TGLActor
  227. Interval = 100
  228. MaterialLibrary = MatLib
  229. object Torso: TGLActor
  230. Interval = 100
  231. MaterialLibrary = MatLib
  232. object Head: TGLActor
  233. Interval = 100
  234. MaterialLibrary = MatLib
  235. end
  236. object Weapon: TGLActor
  237. Interval = 100
  238. MaterialLibrary = MatLib
  239. object GunSmoke: TGLDummyCube
  240. CubeSize = 1.000000000000000000
  241. EffectsData = {
  242. 0458434F4C02010201061254474C536F75726365504658456666656374020202
  243. 001200000000020002000617474C506F696E744C696768745046584D616E6167
  244. 657231050000000000000080FF3F0206020008020008020008050000000000CD
  245. CCCCFA3F050000000000CDCCCCFA3F050000000000CDCCCCFA3F020002000905
  246. 00000000000000000000080200}
  247. end
  248. end
  249. end
  250. end
  251. end
  252. object GLShadowPlane1: TGLShadowPlane
  253. Material.DepthProperties.DepthWrite = False
  254. Position.Coordinates = {0000000000000000000080BF0000803F}
  255. Height = 10.000000000000000000
  256. Width = 10.000000000000000000
  257. ShadowingObject = ModelCube
  258. ShadowedLight = GLLightSource1
  259. end
  260. object GLParticleFXRenderer1: TGLParticleFXRenderer
  261. end
  262. end
  263. object GLCadencer1: TGLCadencer
  264. Scene = GLScene1
  265. SleepLength = 0
  266. OnProgress = GLCadencer1Progress
  267. Left = 120
  268. Top = 80
  269. end
  270. object Timer1: TTimer
  271. OnTimer = Timer1Timer
  272. Left = 208
  273. Top = 80
  274. end
  275. object MatLib: TGLMaterialLibrary
  276. Left = 32
  277. Top = 144
  278. end
  279. object GLPointLightPFXManager1: TGLPointLightPFXManager
  280. Cadencer = GLCadencer1
  281. Renderer = GLParticleFXRenderer1
  282. Acceleration.Coordinates = {0000000000000000CDCC4C3E00000000}
  283. Friction = 1.000000000000000000
  284. ParticleSize = 0.200000002980232200
  285. ColorInner.Color = {0000403F0000403F0000403F0000403F}
  286. ColorOuter.Color = {0000403F0000403F0000403F00000000}
  287. LifeColors = <
  288. item
  289. LifeTime = 3.000000000000000000
  290. SizeScale = 1.000000000000000000
  291. end>
  292. Left = 120
  293. Top = 144
  294. end
  295. end