unit ULDPObju;
{ Generated by MakeComp 1.02 from ULDPTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ModuType,
  ULDPType;

type
  TULDPObj = class(TULObj)
  protected
    function GetPropIDStr: TModulePropIDStr;
    procedure SetPropIDStr(APropIDStr: TModulePropIDStr);
    function GetPropDesc: TModulePropDesc;
    procedure SetPropDesc(APropDesc: TModulePropDesc);
    function GetTypeDesc: TModulePropTypeDesc;
    procedure SetTypeDesc(ATypeDesc: TModulePropTypeDesc);
    function GetTypeID: TModulePropTypeID;
    procedure SetTypeID(ATypeID: TModulePropTypeID);
    function GetPropFlags: TModulePropFlags;
    procedure SetPropFlags(APropFlags: TModulePropFlags);
    function GetValueInPC: AnsiString;
    procedure SetValueInPC(AValueInPC: AnsiString);
    function GetValueInDevice: AnsiString;
    procedure SetValueInDevice(AValueInDevice: AnsiString);
    function GetUpdateInterval: integer;
    procedure SetUpdateInterval(AUpdateInterval: integer);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property PropIDStr: TModulePropIDStr
      read GetPropIDStr write SetPropIDStr;
    property PropDesc: TModulePropDesc
      read GetPropDesc write SetPropDesc;
    property TypeDesc: TModulePropTypeDesc
      read GetTypeDesc write SetTypeDesc;
    property TypeID: TModulePropTypeID
      read GetTypeID write SetTypeID;
    property PropFlags: TModulePropFlags
      read GetPropFlags write SetPropFlags;
    property ValueInPC: AnsiString
      read GetValueInPC write SetValueInPC;
    property ValueInDevice: AnsiString
      read GetValueInDevice write SetValueInDevice;
    property UpdateInterval: integer
      read GetUpdateInterval write SetUpdateInterval;
  end;

const
  ULDPFldDescs: array[0..7] 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: 1;
     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: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULDPRecDesc: TULRecDesc = (
    Caption: 'Property';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 8;
    Flds: @ULDPFldDescs;
    Flags: rfHasRecName + rfEnabled + rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: 'PropDesc,ValueInPC'
   );

implementation

{TULDPObj}
function TULDPObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULDPRec);
end;

constructor TULDPObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULDPID);
end;

function TULDPObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULDPRecDesc;
end;

procedure TULDPObj.SetPropIDStr(APropIDStr: TModulePropIDStr);
begin
  if PULDPRec(Rec)^.PropIDStr <> APropIDStr then begin
    PULDPRec(Rec)^.PropIDStr := APropIDStr;
    DoChange;
  end;
end;

function TULDPObj.GetPropIDStr: TModulePropIDStr;
begin
  GetPropIDStr := PULDPRec(Rec)^.PropIDStr;
end;

procedure TULDPObj.SetPropDesc(APropDesc: TModulePropDesc);
begin
  if PULDPRec(Rec)^.PropDesc <> APropDesc then begin
    PULDPRec(Rec)^.PropDesc := APropDesc;
    DoChange;
  end;
end;

function TULDPObj.GetPropDesc: TModulePropDesc;
begin
  GetPropDesc := PULDPRec(Rec)^.PropDesc;
end;

procedure TULDPObj.SetTypeDesc(ATypeDesc: TModulePropTypeDesc);
begin
  if PULDPRec(Rec)^.TypeDesc <> ATypeDesc then begin
    PULDPRec(Rec)^.TypeDesc := ATypeDesc;
    DoChange;
  end;
end;

function TULDPObj.GetTypeDesc: TModulePropTypeDesc;
begin
  GetTypeDesc := PULDPRec(Rec)^.TypeDesc;
end;

procedure TULDPObj.SetTypeID(ATypeID: TModulePropTypeID);
begin
  if PULDPRec(Rec)^.TypeID <> ATypeID then begin
    PULDPRec(Rec)^.TypeID := ATypeID;
    DoChange;
  end;
end;

function TULDPObj.GetTypeID: TModulePropTypeID;
begin
  GetTypeID := PULDPRec(Rec)^.TypeID;
end;

procedure TULDPObj.SetPropFlags(APropFlags: TModulePropFlags);
begin
  if PULDPRec(Rec)^.PropFlags <> APropFlags then begin
    PULDPRec(Rec)^.PropFlags := APropFlags;
    DoChange;
  end;
end;

function TULDPObj.GetPropFlags: TModulePropFlags;
begin
  GetPropFlags := PULDPRec(Rec)^.PropFlags;
end;

procedure TULDPObj.SetValueInPC(AValueInPC: AnsiString);
begin
  if PULDPRec(Rec)^.ValueInPC <> AValueInPC then begin
    PULDPRec(Rec)^.ValueInPC := AValueInPC;
    DoChange;
  end;
end;

function TULDPObj.GetValueInPC: AnsiString;
begin
  GetValueInPC := PULDPRec(Rec)^.ValueInPC;
end;

procedure TULDPObj.SetValueInDevice(AValueInDevice: AnsiString);
begin
  if PULDPRec(Rec)^.ValueInDevice <> AValueInDevice then begin
    PULDPRec(Rec)^.ValueInDevice := AValueInDevice;
    DoChange;
  end;
end;

function TULDPObj.GetValueInDevice: AnsiString;
begin
  GetValueInDevice := PULDPRec(Rec)^.ValueInDevice;
end;

procedure TULDPObj.SetUpdateInterval(AUpdateInterval: integer);
begin
  if PULDPRec(Rec)^.UpdateInterval <> AUpdateInterval then begin
    PULDPRec(Rec)^.UpdateInterval := AUpdateInterval;
    DoChange;
  end;
end;

function TULDPObj.GetUpdateInterval: integer;
begin
  GetUpdateInterval := PULDPRec(Rec)^.UpdateInterval;
end;

{/TULDPObj}

end.
