TODEJointSlider

type TODEJointSlider = class(TODEJointBase)

protected

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure SetAxis();

  procedure AxisChange();

  procedure SetAxisParams();

  function SetAxisParam();

  function GetAxisParam();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure StructureChanged; override;

  procedure Initialize; override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

published

  property Axis: TGLCoordinates; [rw]

  property AxisParams: TODEJointParams; [rw]

end;

TODEJointSlider

TODEJointBase

TObject