TD3Object

type TD3Object = class(TComponent)

protected

  FDisableEffect: Boolean;

  procedure GetChildren(); override;

  procedure SetParent(); virtual;

  procedure DoAniFinished();

  procedure SetResourceName(); virtual;

public

  FChildren: TList;

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetParentComponent(); override;

  function GetParentComponent; override;

  function HasParent; override;

  function Clone();

  procedure CloneChildFromStream();

  procedure ProcessTick(); virtual;

  procedure AddObject(); virtual;

  procedure RemoveObject(); virtual;

  procedure DeleteChildren; virtual;

  procedure BringToFront;

  procedure SendToBack;

  procedure AddObjectsToList(); virtual;

  function FindObject();

  procedure LoadFromStream();

  procedure SaveToStream();

  procedure LoadFromBinStream();

  procedure SaveToBinStream();

  function FindResource();

  procedure StartAnimation(); virtual;

  procedure StopAnimation(); virtual;

  procedure StartTriggerAnimation(); virtual;

  procedure StopTriggerAnimation(); virtual;

  procedure AnimateFloat();

  procedure AnimateColor();

  procedure AnimateFloatWait();

  procedure AnimateColorWait();

  procedure AnimateStop();

  function IsVisual;

  function Visual;

  property Scene: TD3Scene; [r]

  property Stored: Boolean; [rw]

  property TagObject: TObject; [rw]

  property TagFloat: Single; [rw]

  property TagString: string; [rw]

  property ChildrenCount: Integer; [r]

  property Children []: TD3Object; [r]

published

  property Parent: TD3Object; [rws]

  property ResourceName: string; [rw]

  property OnTick: TD3ProcessTickEvent; [rw]

end;

TD3Object

TObject