unit UPSTObju;
{ Generated by MakeComp 1.03 from UPSTTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  UPAVType,UPACType,UPEXType,UPAPType,UPEPType,
  UPSTType;

type
  TUPSTObj = class(TULObj)
  protected
    function GetStepName: TULPrgStepName;
    procedure SetStepName(AStepName: TULPrgStepName);
    function GetTime: TULPrgTime;
    procedure SetTime(ATime: TULPrgTime);
    function GetDuration: TULPrgTime;
    procedure SetDuration(ADuration: TULPrgTime);
    function GetActionsName: TULPrgActionsName;
    procedure SetActionsName(AActionsName: TULPrgActionsName);
    function GetCondsName: TULPrgExpsName;
    procedure SetCondsName(ACondsName: TULPrgExpsName);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property StepName: TULPrgStepName
      read GetStepName write SetStepName;
    property Time: TULPrgTime
      read GetTime write SetTime;
    property Duration: TULPrgTime
      read GetDuration write SetDuration;
    property ActionsName: TULPrgActionsName
      read GetActionsName write SetActionsName;
    property CondsName: TULPrgExpsName
      read GetCondsName write SetCondsName;
  end;

const
  UPSTChildRecIDs: array[0..2] of TULRecID = (
    UPAVID,UPACID,UPEXID
  );
  UPSTFldDescs: array[0..4] of TULFldDesc = (
    (
     Caption: 'Step Name';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'StepName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgStepName';
    ),
    (
     Caption: 'Time [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Time';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgTime';
    ),
    (
     Caption: 'Duration [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Duration';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgTime';
    ),
    (
     Caption: 'Actions Name';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4113;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: UPAPID;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ActionsName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgActionsName';
    ),
    (
     Caption: 'Conditions Name';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4113;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: UPEPID;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'CondsName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgExpsName';
    )
  );

  UPSTRecDesc: TULRecDesc = (
    Caption: 'Program Step';
    ChildRecIDsStr: 'UPAVID,UPACID,UPEXID';
    ChildRecIDs: @UPSTChildRecIDs;
    ChildRecIDCount: 3;
    FldCount: 5;
    Flds: @UPSTFldDescs;
    Flags: rfChildAllowed OR rfHasRecName OR rfHasPointer OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUPSTObj}
function TUPSTObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUPSTRec);
end;

constructor TUPSTObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UPSTID);
end;

function TUPSTObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UPSTRecDesc;
end;

procedure TUPSTObj.SetStepName(AStepName: TULPrgStepName);
begin
  if PUPSTRec(Rec)^.StepName <> AStepName then begin
    PUPSTRec(Rec)^.StepName := AStepName;
    if UPSTFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPSTObj.GetStepName: TULPrgStepName;
begin
  GetStepName := PUPSTRec(Rec)^.StepName;
end;

procedure TUPSTObj.SetTime(ATime: TULPrgTime);
begin
  if PUPSTRec(Rec)^.Time <> ATime then begin
    PUPSTRec(Rec)^.Time := ATime;
    if UPSTFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPSTObj.GetTime: TULPrgTime;
begin
  GetTime := PUPSTRec(Rec)^.Time;
end;

procedure TUPSTObj.SetDuration(ADuration: TULPrgTime);
begin
  if PUPSTRec(Rec)^.Duration <> ADuration then begin
    PUPSTRec(Rec)^.Duration := ADuration;
    if UPSTFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPSTObj.GetDuration: TULPrgTime;
begin
  GetDuration := PUPSTRec(Rec)^.Duration;
end;

procedure TUPSTObj.SetActionsName(AActionsName: TULPrgActionsName);
begin
  if PUPSTRec(Rec)^.ActionsName <> AActionsName then begin
    PUPSTRec(Rec)^.ActionsName := AActionsName;
    if UPSTFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPSTObj.GetActionsName: TULPrgActionsName;
begin
  GetActionsName := PUPSTRec(Rec)^.ActionsName;
end;

procedure TUPSTObj.SetCondsName(ACondsName: TULPrgExpsName);
begin
  if PUPSTRec(Rec)^.CondsName <> ACondsName then begin
    PUPSTRec(Rec)^.CondsName := ACondsName;
    if UPSTFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPSTObj.GetCondsName: TULPrgExpsName;
begin
  GetCondsName := PUPSTRec(Rec)^.CondsName;
end;

{/TUPSTObj}

end.
