TCgParameter

type TCgParameter = class(TObject)

protected

  function TypeMismatchMessage;

  procedure CheckValueType();

  procedure CheckAllTextureTypes;

  procedure CheckAllScalarTypes;

  procedure CheckAllVector2fTypes;

  procedure CheckAllVector3fTypes;

  procedure CheckAllVector4fTypes;

  procedure SetAsVector2f();

  procedure SetAsVector3f();

  procedure SetAsVector4f();

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure SetAsScalar();

  procedure SetAsVector();

  procedure SetAsStateMatrix();

  procedure SetAsMatrix();

  procedure SetAsTexture();

  procedure SetAsTexture1D();

  procedure SetAsTexture2D();

  procedure SetAsTexture3D();

  procedure SetAsTextureCUBE();

  procedure SetAsTextureRECT();

  procedure SetToTextureOf();

  procedure EnableTexture;

  procedure DisableTexture;

  procedure SetParameterPointer();

  procedure EnableClientState;

  procedure DisableClientState;

  function LongName;

  property Owner: TCgProgram; [r]

  property Name: string; [r]

  property ValueType: TCGtype; [r]

  property Handle: PCGparameter; [rw]

  property Direction: TCGenum; [rw]

  property Variability: TCGenum; [rw]

  property AsVector: TVector; [w]

  property AsAffineVector: TAffineVector; [w]

  property AsVector2f: TVector2f; [w]

end;

TCgParameter

TObject