unit USPTType;{v0.49}
  { Ulan Sequence Program Time line; source for MakeComp program }
interface
uses
  UlanType, ULRecTyp;{UlanRecs.lst}
const
  USPTID = ord('U') + 256* ord('S') + 256 * 256 * ord('P') + 256 * 256 * 256 * ord('T');
  {USPTtype}
type

  TUSPTRec = packed record {<Caption="Seq.Prg.Line" Enabled=1 Visible=1
    SortExp=PrgTime SortedByNumber=1 EditModal=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    PrgTime: TAcqTime;{<Enabled=1 UserCoef=60 NumDec=2 Caption="Time [min]"
      IsSortField=1>}
      { At what time from program start (in seconds internally, to user
        shown in minutes) the program line should execute }
    Command: TSeqCommand;{<Enabled=1 Caption="Internal command" Type=Enum StripPrefix=sc>}
    Script: TScriptName;{<Enabled=1 Caption="Script" Type=FileName
      Filter="Scripts (*.IFS)|*.IFS" Hint="Name of the script to be run at the Time">}
    Param1: TScriptParam;{<Enabled=1 Caption="1st param."
      Hint="First script command line parameter">}
    Param2: TScriptParam;{<Enabled=1 Caption="2nd param."
      Hint="Second script command line parameter">}
    Param3: TScriptParam;{<Enabled=1 Caption="3rd param."
      Hint="Third script command line parameter">}
    Note: TPrgLineNote;{<Enabled=1 Caption="Note">}
    State: TPrgLineState;{<Hint="State of the program line" Type=Enum
      Colors=clBlacke,clWhite,clWhite,clGreen,clBlack,clYellow,clBlack,clGray,clWhite,clRed,clBlack,clWhite
      StripPrefix=pls>}
    Duration: TAcqTime;{<Enabled=1 UserCoef=60 NumDec=2 Caption="Duration [min]" Hint="What time interval this program line should run">}
  end;
  PUSPTRec = ^TUSPTRec;

implementation

end.
