TODEJointUniversal

type TODEJointUniversal = class(TODEJointBase)

protected

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure SetAnchor();

  procedure SetAxis1();

  procedure SetAxis2();

  procedure AnchorChange();

  procedure Axis1Change();

  procedure Axis2Change();

  procedure SetAxis1Params();

  procedure SetAxis2Params();

  function SetAxis1Param();

  function SetAxis2Param();

  function GetAxis1Param();

  function GetAxis2Param();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Initialize; override;

  procedure StructureChanged; override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

published

  property Anchor: TGLCoordinates; [rw]

  property Axis1: TGLCoordinates; [rw]

  property Axis2: TGLCoordinates; [rw]

  property Axis1Params: TODEJointParams; [rw]

  property Axis2Params: TODEJointParams; [rw]

end;

TODEJointUniversal

TODEJointBase

TObject