unit AAPGType;
  { Aminoacid Analyzer program ; source for MakeComp program }
interface
uses
  UlanType, ULRecTyp;
const
  AAPGExt = '.AAP';
  AAPGID = ord('A') + 256* ord('A') + 256 * 256 * ord('P')+ 256 * 256 * 256 * ord('G');

type
  TAAPrgName = string[60]; {ulbtype}
  TAAPrgDesc = string;

  TAAPGRec = packed record {<Caption="AA Program" RootChild=1 ChildSorted=1
    ChildRecIDs=AAPLID HasRecName=1 Uses=AAPLType SortedByNumber=1
    AskForSave=1 Enabled=1 Visible=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    PrgName:TAAPrgName;{<Enabled=1 Caption="Program Name">}
      { Name of the program }
    PrgDesc:TAAPrgDesc;{<Enabled=1 Caption="Program Desc.">}
      { Longer description of the program. }
  end;
  PAAPGRec = ^TAAPGRec;

implementation

end.
