TFxGroup

type TFxGroup = class(TObject)

protected

  FJunkCount: Word;

  JunkIndices: array of Word;

  FTransparency: single;

  FHighestActive: Integer;

  FCalcBoundingBox: Boolean;

  FBoundingBox: TFxBoundingBox;

  function getSize;

  function getActiveCount;

  procedure setTransparency();

public

  Particles: array of TFxParticle;

  MinimizeSpread: Boolean;

  CalcBoundingBox: Boolean;

  Visible: Boolean;

  Update: Boolean;

  Settings: TFxGroupSettings;

  constructor create();

  function add();

  procedure delete();

  procedure advance();

  procedure clear;

  property BoundingBox: TFxBoundingBox; [r]

  property Size: Word; [r]

  property ActiveCount: Word; [r]

  property JunkCount: Word; [r]

  property HighestActive: Integer; [r]

  property Transparency: single; [rw]

end;

TFxGroup

TObject