TCgProgram

type TCgProgram = class(TGLUpdateAbleObject)

protected

  FProgramType: TcgProgramType;

  FProfile: TCGprofile;

  procedure SetCode();

  procedure SetProgramName();

  function GetParam();

  procedure AddParamsItem();

  procedure BuildParamsList;

  procedure ClearParamsList;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetLatestProfile; virtual; abstract;

  procedure Initialize; virtual;

  procedure Finalize;

  procedure Apply();

  procedure UnApply();

  function ParamByName();

  property Param []: TCgParameter; [r]

  property Params: TList; [r]

  function DirectParamByName();

  function ParamCount;

  function GetProfileStringA;

  procedure LoadFromFile();

  procedure ListCompilation();

  procedure ListParameters();

  procedure SetParam();

  procedure SetStateMatrix();

  procedure SetTexture();

  function LongName;

  property DirectProfile: TCGprofile; [rw]

  property OnProgramChanged: TNotifyEvent; [rw]

  property ManualNotification: Boolean; [rw]

published

  property Code: TStrings; [rw]

  property ProgramName: string; [rw]

  property Enabled: Boolean; [rw]

  property Precision: TPrecisionSetting; [rw]

  property OnApply: TCgApplyEvent; [rw]

  property OnUnApply: TCgUnApplyEvent; [rw]

end;

TCgProgram

TGLUpdateAbleObject

TObject,IGLNotifyAble