TGLPipeNode

type TGLPipeNode = class(TGLNode)

protected

  function GetDisplayName; override;

  procedure SetRadiusFactor();

  function StoreRadiusFactor;

  procedure SetColor();

  procedure ColorChanged();

  function StoreTexCoordT;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

published

  property RadiusFactor: Single; [rws]

  property Color: TGLColor; [rw]

  property TexCoordT: Single; [rws]

end;

TGLPipeNode

TGLNode

TObject