Unit1.dfm 2.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576
  1. object Form1: TForm1
  2. Left = 284
  3. Top = 105
  4. Caption = 'GLScene Particles'
  5. ClientHeight = 319
  6. ClientWidth = 427
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. Position = poScreenCenter
  15. WindowState = wsMaximized
  16. OnResize = FormResize
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object GLSceneViewer1: TGLSceneViewer
  20. Left = 0
  21. Top = 0
  22. Width = 427
  23. Height = 319
  24. Camera = GLCamera1
  25. Buffer.BackgroundColor = clBlack
  26. Buffer.DepthTest = False
  27. FieldOfView = 145.189712524414100000
  28. Align = alClient
  29. TabOrder = 0
  30. end
  31. object GLScene1: TGLScene
  32. Left = 8
  33. Top = 8
  34. object GLParticles1: TGLParticles
  35. ObjectsSorting = osNone
  36. Scale.Coordinates = {00000040000000400000004000000000}
  37. CubeSize = 1.000000000000000000
  38. OnActivateParticle = GLParticles1ActivateParticle
  39. BehavioursData = {
  40. 0458434F4C02010201060B54474C42496E657274696102001200000000020002
  41. 00050000000000000080FF3F0200080500000000000000F00340050000000000
  42. 0000000000050000000000000000000008020008020008}
  43. object Sprite1: TGLSprite
  44. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  45. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  46. Material.BlendingMode = bmAdditive
  47. Material.Texture.ImageClassName = 'TGLPicFileImage'
  48. Material.Texture.TextureMode = tmModulate
  49. Material.Texture.TextureFormat = tfIntensity
  50. Material.Texture.Disabled = False
  51. OnProgress = Sprite1Progress
  52. Width = 1.000000000000000000
  53. Height = 1.000000000000000000
  54. Rotation = 0.000000000000000000
  55. end
  56. end
  57. object GLCamera1: TGLCamera
  58. DepthOfView = 100.000000000000000000
  59. FocalLength = 50.000000000000000000
  60. TargetObject = GLParticles1
  61. Position.Coordinates = {0000704100000000000000000000803F}
  62. end
  63. end
  64. object GLCadencer1: TGLCadencer
  65. Scene = GLScene1
  66. SleepLength = 1
  67. Left = 8
  68. Top = 48
  69. end
  70. object Timer1: TTimer
  71. Interval = 300
  72. OnTimer = Timer1Timer
  73. Left = 48
  74. Top = 8
  75. end
  76. end