unit ULTEObju;
{ Generated by MakeComp 1.02 from ULTETYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULTEType;

type
  TULTEObj = class(TULObj)
  protected
    function GetPriority: integer;
    procedure SetPriority(APriority: integer);
    function GetOriginName: string;
    procedure SetOriginName(AOriginName: string);
    function GetTitle: string;
    procedure SetTitle(ATitle: string);
    function GetDesc: string;
    procedure SetDesc(ADesc: string);
    function GetExpectedToComplete: TDateTime;
    procedure SetExpectedToComplete(AExpectedToComplete: TDateTime);
    function GetCompleted: TDateTime;
    procedure SetCompleted(ACompleted: TDateTime);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
    function GetSortNum: extended; override;
  published
    property Priority: integer
      read GetPriority write SetPriority;
    property OriginName: string
      read GetOriginName write SetOriginName;
    property Title: string
      read GetTitle write SetTitle;
    property Desc: string
      read GetDesc write SetDesc;
    property ExpectedToComplete: TDateTime
      read GetExpectedToComplete write SetExpectedToComplete;
    property Completed: TDateTime
      read GetCompleted write SetCompleted;
  end;

const
  ULTEFldDescs: array[0..5] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULTERecDesc: TULRecDesc = (
    Caption: 'ToDo Event';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 6;
    Flds: @ULTEFldDescs;
    Flags: rfEnabled + rfVisible + rfSortedByNumber;
    SortExp: 'Priority';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULTEObj}
function TULTEObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULTERec);
end;

constructor TULTEObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULTEID);
end;

function TULTEObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULTERecDesc;
end;

function TULTEObj.GetSortNum: Extended;
begin
  Result := Priority;
end;
procedure TULTEObj.SetPriority(APriority: integer);
begin
  if PULTERec(Rec)^.Priority <> APriority then begin
    PULTERec(Rec)^.Priority := APriority;
    DoChange;
  end;
end;

function TULTEObj.GetPriority: integer;
begin
  GetPriority := PULTERec(Rec)^.Priority;
end;

procedure TULTEObj.SetOriginName(AOriginName: string);
begin
  if PULTERec(Rec)^.OriginName <> AOriginName then begin
    PULTERec(Rec)^.OriginName := AOriginName;
    DoChange;
  end;
end;

function TULTEObj.GetOriginName: string;
begin
  GetOriginName := PULTERec(Rec)^.OriginName;
end;

procedure TULTEObj.SetTitle(ATitle: string);
begin
  if PULTERec(Rec)^.Title <> ATitle then begin
    PULTERec(Rec)^.Title := ATitle;
    DoChange;
  end;
end;

function TULTEObj.GetTitle: string;
begin
  GetTitle := PULTERec(Rec)^.Title;
end;

procedure TULTEObj.SetDesc(ADesc: string);
begin
  if PULTERec(Rec)^.Desc <> ADesc then begin
    PULTERec(Rec)^.Desc := ADesc;
    DoChange;
  end;
end;

function TULTEObj.GetDesc: string;
begin
  GetDesc := PULTERec(Rec)^.Desc;
end;

procedure TULTEObj.SetExpectedToComplete(AExpectedToComplete: TDateTime);
begin
  if PULTERec(Rec)^.ExpectedToComplete <> AExpectedToComplete then begin
    PULTERec(Rec)^.ExpectedToComplete := AExpectedToComplete;
    DoChange;
  end;
end;

function TULTEObj.GetExpectedToComplete: TDateTime;
begin
  GetExpectedToComplete := PULTERec(Rec)^.ExpectedToComplete;
end;

procedure TULTEObj.SetCompleted(ACompleted: TDateTime);
begin
  if PULTERec(Rec)^.Completed <> ACompleted then begin
    PULTERec(Rec)^.Completed := ACompleted;
    DoChange;
  end;
end;

function TULTEObj.GetCompleted: TDateTime;
begin
  GetCompleted := PULTERec(Rec)^.Completed;
end;

{/TULTEObj}

end.
