TGLParticleList

type TGLParticleList = class(TPersistentObject)

protected

  function GetItems();

  procedure SetItems();

  procedure AfterItemCreated();

public

  constructor Create; override;

  destructor Destroy; override;

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  property Owner: TGLParticleFXManager; [rw]

  property Items []: TGLParticle; default; [rw]

  function ItemCount;

  function AddItem();

  procedure RemoveAndFreeItem();

  function IndexOfItem();

  procedure Pack;

  property List: PGLParticleArray; [r]

end;

TGLParticleList

TObject