unit UCPObju;
{ Generated by MakeComp 1.03 from UCPTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  UCPRType,
  UCPType;

type
  TUCPObj = class(TULObj)
  protected
    function GetResponseBase: TResponseBase;
    procedure SetResponseBase(AResponseBase: TResponseBase);
    function GetCurveFitType: TCurveFitType;
    procedure SetCurveFitType(ACurveFitType: TCurveFitType);
    function GetOriginUse: TOriginUse;
    procedure SetOriginUse(AOriginUse: TOriginUse);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property ResponseBase: TResponseBase
      read GetResponseBase write SetResponseBase;
    property CurveFitType: TCurveFitType
      read GetCurveFitType write SetCurveFitType;
    property OriginUse: TOriginUse
      read GetOriginUse write SetOriginUse;
  end;

const
  UCPChildRecIDs: array[0..0] of TULRecID = (
    UCPRID
  );
  UCPFldDescs: array[0..2] of TULFldDesc = (
    (
     Caption: '';
     Hint: 'Default for new peak';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'rb';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ResponseBase';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TResponseBase';
    ),
    (
     Caption: '';
     Hint: 'Default for new peak';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'cf';
     EditMask: '';
     MaxID: 0;
     FieldName: 'CurveFitType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TCurveFitType';
    ),
    (
     Caption: '';
     Hint: 'Default for new peak';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'ou';
     EditMask: '';
     MaxID: 0;
     FieldName: 'OriginUse';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TOriginUse';
    )
  );

  UCPRecDesc: TULRecDesc = (
    Caption: 'Cal.Peaks';
    ChildRecIDsStr: 'UCPRID';
    ChildRecIDs: @UCPChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 3;
    Flds: @UCPFldDescs;
    Flags: rfChildAllowed OR rfChildSorted OR rfEnabled OR rfVisible OR rfBrowseOnEdit OR rfSortedByNumber;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUCPObj}
function TUCPObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUCPRec);
end;

constructor TUCPObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UCPID);
end;

function TUCPObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UCPRecDesc;
end;

procedure TUCPObj.SetResponseBase(AResponseBase: TResponseBase);
begin
  if PUCPRec(Rec)^.ResponseBase <> AResponseBase then begin
    PUCPRec(Rec)^.ResponseBase := AResponseBase;
    if UCPFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPObj.GetResponseBase: TResponseBase;
begin
  GetResponseBase := PUCPRec(Rec)^.ResponseBase;
end;

procedure TUCPObj.SetCurveFitType(ACurveFitType: TCurveFitType);
begin
  if PUCPRec(Rec)^.CurveFitType <> ACurveFitType then begin
    PUCPRec(Rec)^.CurveFitType := ACurveFitType;
    if UCPFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPObj.GetCurveFitType: TCurveFitType;
begin
  GetCurveFitType := PUCPRec(Rec)^.CurveFitType;
end;

procedure TUCPObj.SetOriginUse(AOriginUse: TOriginUse);
begin
  if PUCPRec(Rec)^.OriginUse <> AOriginUse then begin
    PUCPRec(Rec)^.OriginUse := AOriginUse;
    if UCPFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPObj.GetOriginUse: TOriginUse;
begin
  GetOriginUse := PUCPRec(Rec)^.OriginUse;
end;

{/TUCPObj}

end.
