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

type
  TULDRObj = class(TULObj)
  protected
    function GetAddrStr: TModuleAddrStr;
    procedure SetAddrStr(AAddrStr: TModuleAddrStr);
    function GetIDName: string;
    procedure SetIDName(AIDName: string);
    function GetDeviceName: TDeviceName;
    procedure SetDeviceName(ADeviceName: TDeviceName);
    function GetDeviceMode: TDeviceMode;
    procedure SetDeviceMode(ADeviceMode: TDeviceMode);
    function GetDeviceType: TDeviceType;
    procedure SetDeviceType(ADeviceType: TDeviceType);
    function GetIDDesc: string;
    procedure SetIDDesc(AIDDesc: string);
    function GetExtDevDrvName: TExtDevDrvName;
    procedure SetExtDevDrvName(AExtDevDrvName: TExtDevDrvName);
    function GetDevicePortName: TDevicePortName;
    procedure SetDevicePortName(ADevicePortName: TDevicePortName);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property AddrStr: TModuleAddrStr
      read GetAddrStr write SetAddrStr;
    property IDName: string
      read GetIDName write SetIDName;
    property DeviceName: TDeviceName
      read GetDeviceName write SetDeviceName;
    property DeviceMode: TDeviceMode
      read GetDeviceMode write SetDeviceMode;
    property DeviceType: TDeviceType
      read GetDeviceType write SetDeviceType;
    property IDDesc: string
      read GetIDDesc write SetIDDesc;
    property ExtDevDrvName: TExtDevDrvName
      read GetExtDevDrvName write SetExtDevDrvName;
    property DevicePortName: TDevicePortName
      read GetDevicePortName write SetDevicePortName;
  end;

const
  ULDRChildRecIDs: array[0..0] of TULRecID = (
    ULDPID
  );
  ULDRFldDescs: 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: 1;
     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: 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
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULDRRecDesc: TULRecDesc = (
    Caption: 'Device';
    ChildRecIDsStr: 'ULDPID';
    ChildRecIDs: @ULDRChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 8;
    Flds: @ULDRFldDescs;
    Flags: rfChildAllowed + rfHasRecName + rfEnabled + rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: 'AddrStr,DeviceName,IDName,DeviceMode,DeviceType,ExtDevDrvName,DevicePortName'
   );

implementation

{TULDRObj}
function TULDRObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULDRRec);
end;

constructor TULDRObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULDRID);
end;

function TULDRObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULDRRecDesc;
end;

procedure TULDRObj.SetAddrStr(AAddrStr: TModuleAddrStr);
begin
  if PULDRRec(Rec)^.AddrStr <> AAddrStr then begin
    PULDRRec(Rec)^.AddrStr := AAddrStr;
    DoChange;
  end;
end;

function TULDRObj.GetAddrStr: TModuleAddrStr;
begin
  GetAddrStr := PULDRRec(Rec)^.AddrStr;
end;

procedure TULDRObj.SetIDName(AIDName: string);
begin
  if PULDRRec(Rec)^.IDName <> AIDName then begin
    PULDRRec(Rec)^.IDName := AIDName;
    DoChange;
  end;
end;

function TULDRObj.GetIDName: string;
begin
  GetIDName := PULDRRec(Rec)^.IDName;
end;

procedure TULDRObj.SetDeviceName(ADeviceName: TDeviceName);
begin
  if PULDRRec(Rec)^.DeviceName <> ADeviceName then begin
    PULDRRec(Rec)^.DeviceName := ADeviceName;
    DoChange;
  end;
end;

function TULDRObj.GetDeviceName: TDeviceName;
begin
  GetDeviceName := PULDRRec(Rec)^.DeviceName;
end;

procedure TULDRObj.SetDeviceMode(ADeviceMode: TDeviceMode);
begin
  if PULDRRec(Rec)^.DeviceMode <> ADeviceMode then begin
    PULDRRec(Rec)^.DeviceMode := ADeviceMode;
    DoChange;
  end;
end;

function TULDRObj.GetDeviceMode: TDeviceMode;
begin
  GetDeviceMode := PULDRRec(Rec)^.DeviceMode;
end;

procedure TULDRObj.SetDeviceType(ADeviceType: TDeviceType);
begin
  if PULDRRec(Rec)^.DeviceType <> ADeviceType then begin
    PULDRRec(Rec)^.DeviceType := ADeviceType;
    DoChange;
  end;
end;

function TULDRObj.GetDeviceType: TDeviceType;
begin
  GetDeviceType := PULDRRec(Rec)^.DeviceType;
end;

procedure TULDRObj.SetIDDesc(AIDDesc: string);
begin
  if PULDRRec(Rec)^.IDDesc <> AIDDesc then begin
    PULDRRec(Rec)^.IDDesc := AIDDesc;
    DoChange;
  end;
end;

function TULDRObj.GetIDDesc: string;
begin
  GetIDDesc := PULDRRec(Rec)^.IDDesc;
end;

procedure TULDRObj.SetExtDevDrvName(AExtDevDrvName: TExtDevDrvName);
begin
  if PULDRRec(Rec)^.ExtDevDrvName <> AExtDevDrvName then begin
    PULDRRec(Rec)^.ExtDevDrvName := AExtDevDrvName;
    DoChange;
  end;
end;

function TULDRObj.GetExtDevDrvName: TExtDevDrvName;
begin
  GetExtDevDrvName := PULDRRec(Rec)^.ExtDevDrvName;
end;

procedure TULDRObj.SetDevicePortName(ADevicePortName: TDevicePortName);
begin
  if PULDRRec(Rec)^.DevicePortName <> ADevicePortName then begin
    PULDRRec(Rec)^.DevicePortName := ADevicePortName;
    DoChange;
  end;
end;

function TULDRObj.GetDevicePortName: TDevicePortName;
begin
  GetDevicePortName := PULDRRec(Rec)^.DevicePortName;
end;

{/TULDRObj}

end.
