TGLThorFXManager

type TGLThorFXManager = class(TGLCadenceAbleComponent)

protected

  procedure RegisterClient();

  procedure DeRegisterClient();

  procedure DeRegisterAllClients;

  procedure SetTarget();

  procedure SetCadencer();

  procedure SetMaxpoints();

  function StoreGlowSize;

  function StoreVibrate;

  procedure SetInnerColor();

  procedure SetOuterColor();

  procedure SetCoreColor();

  procedure Notification(); override;

  procedure ThorInit;

  procedure CalcThor;

  procedure CalcFrac();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DoProgress(); override;

published

  property Target: TGLCoordinates; [rw]

  property Cadencer: TGLCadencer; [rw]

  property Maxpoints: Integer; [rw]

  property GlowSize: Single; [rws]

  property Vibrate: Single; [rws]

  property InnerColor: TGLColor; [rw]

  property OuterColor: TGLColor; [rw]

  property CoreColor: TGLColor; [rw]

  property Disabled: Boolean; [rw]

  property Core: Boolean; [rw]

  property Glow: Boolean; [rw]

  property Wildness: Single; [rw]

  property OnCalcPoint: TCalcPointEvent; [rw]

end;

TGLThorFXManager

TGLCadenceAbleComponent

TObject,IGLProgessAble