Unit1.dfm 2.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677
  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. PenAsTouch = False
  29. Align = alClient
  30. TabOrder = 0
  31. end
  32. object GLScene1: TGLScene
  33. Left = 8
  34. Top = 8
  35. object GLParticles1: TGLParticles
  36. ObjectsSorting = osNone
  37. Scale.Coordinates = {00000040000000400000004000000000}
  38. CubeSize = 1.000000000000000000
  39. OnActivateParticle = GLParticles1ActivateParticle
  40. BehavioursData = {
  41. 0458434F4C02010201060B54474C42496E657274696102001200000000020002
  42. 00050000000000000080FF3F0200080500000000000000F00340050000000000
  43. 0000000000050000000000000000000008020008020008}
  44. object Sprite1: TGLSprite
  45. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  46. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  47. Material.BlendingMode = bmAdditive
  48. Material.Texture.ImageClassName = 'TGLPicFileImage'
  49. Material.Texture.TextureMode = tmModulate
  50. Material.Texture.TextureFormat = tfIntensity
  51. Material.Texture.Disabled = False
  52. OnProgress = Sprite1Progress
  53. Width = 1.000000000000000000
  54. Height = 1.000000000000000000
  55. Rotation = 0.000000000000000000
  56. end
  57. end
  58. object GLCamera1: TGLCamera
  59. DepthOfView = 100.000000000000000000
  60. FocalLength = 50.000000000000000000
  61. TargetObject = GLParticles1
  62. Position.Coordinates = {0000704100000000000000000000803F}
  63. end
  64. end
  65. object GLCadencer1: TGLCadencer
  66. Scene = GLScene1
  67. SleepLength = 1
  68. Left = 8
  69. Top = 48
  70. end
  71. object Timer1: TTimer
  72. Interval = 300
  73. OnTimer = Timer1Timer
  74. Left = 48
  75. Top = 8
  76. end
  77. end