unit ULAFObju;
{ Generated by MakeComp 1.03 from ULAFTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  ULAFType;

type
  TULAFObj = class(TULObj)
  protected
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
  end;

const
  ULAFRecDesc: TULRecDesc = (
    Caption: 'Filtered data';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 0;
    Flds: nil;
    Flags: rfChildAllowed OR rfDataChild OR rfTemporary;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TULAFObj}
function TULAFObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULAFRec);
end;

constructor TULAFObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULAFID);
end;

function TULAFObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULAFRecDesc;
end;

{/TULAFObj}

end.
