unit UPESObju;
{ Generated by MakeComp 1.03 from UPESTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  UPEXType,
  UPESType;

type
  TUPESObj = class(TULObj)
  protected
    function GetPrgExpsName: TULPrgExpsName;
    procedure SetPrgExpsName(APrgExpsName: TULPrgExpsName);
    function GetPrgExpResType: TULPrgExpResType;
    procedure SetPrgExpResType(APrgExpResType: TULPrgExpResType);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property PrgExpsName: TULPrgExpsName
      read GetPrgExpsName write SetPrgExpsName;
    property PrgExpResType: TULPrgExpResType
      read GetPrgExpResType write SetPrgExpResType;
  end;

const
  UPESChildRecIDs: array[0..0] of TULRecID = (
    UPEXID
  );
  UPESFldDescs: array[0..1] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PrgExpsName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgExpsName';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PrgExpResType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgExpResType';
    )
  );

  UPESRecDesc: TULRecDesc = (
    Caption: 'Expressions Set';
    ChildRecIDsStr: 'UPEXID';
    ChildRecIDs: @UPESChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 2;
    Flds: @UPESFldDescs;
    Flags: rfChildAllowed OR rfHasRecName OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUPESObj}
function TUPESObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUPESRec);
end;

constructor TUPESObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UPESID);
end;

function TUPESObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UPESRecDesc;
end;

procedure TUPESObj.SetPrgExpsName(APrgExpsName: TULPrgExpsName);
begin
  if PUPESRec(Rec)^.PrgExpsName <> APrgExpsName then begin
    PUPESRec(Rec)^.PrgExpsName := APrgExpsName;
    if UPESFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPESObj.GetPrgExpsName: TULPrgExpsName;
begin
  GetPrgExpsName := PUPESRec(Rec)^.PrgExpsName;
end;

procedure TUPESObj.SetPrgExpResType(APrgExpResType: TULPrgExpResType);
begin
  if PUPESRec(Rec)^.PrgExpResType <> APrgExpResType then begin
    PUPESRec(Rec)^.PrgExpResType := APrgExpResType;
    if UPESFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPESObj.GetPrgExpResType: TULPrgExpResType;
begin
  GetPrgExpResType := PUPESRec(Rec)^.PrgExpResType;
end;

{/TUPESObj}

end.
