unit ULNDObju;
{ Generated by MakeComp 1.03 from ULNDTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  ULDType,
  ULNDType;

type
  TULNDObj = class(TULObj)
  protected
    function GetDeviceName: TDeviceName;
    procedure SetDeviceName(ADeviceName: TDeviceName);
    function GetDeviceAlias: TDeviceAlias;
    procedure SetDeviceAlias(ADeviceAlias: TDeviceAlias);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property DeviceName: TDeviceName
      read GetDeviceName write SetDeviceName;
    property DeviceAlias: TDeviceAlias
      read GetDeviceAlias write SetDeviceAlias;
  end;

const
  ULNDFldDescs: array[0..1] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4113;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: ULDID;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DeviceName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TDeviceName';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DeviceAlias';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TDeviceAlias';
    )
  );

  ULNDRecDesc: TULRecDesc = (
    Caption: 'Channel device';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 2;
    Flds: @ULNDFldDescs;
    Flags: rfHasRecName OR rfHasPointer OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TULNDObj}
function TULNDObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULNDRec);
end;

constructor TULNDObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULNDID);
end;

function TULNDObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULNDRecDesc;
end;

procedure TULNDObj.SetDeviceName(ADeviceName: TDeviceName);
begin
  if PULNDRec(Rec)^.DeviceName <> ADeviceName then begin
    PULNDRec(Rec)^.DeviceName := ADeviceName;
    if ULNDFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULNDObj.GetDeviceName: TDeviceName;
begin
  GetDeviceName := PULNDRec(Rec)^.DeviceName;
end;

procedure TULNDObj.SetDeviceAlias(ADeviceAlias: TDeviceAlias);
begin
  if PULNDRec(Rec)^.DeviceAlias <> ADeviceAlias then begin
    PULNDRec(Rec)^.DeviceAlias := ADeviceAlias;
    if ULNDFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULNDObj.GetDeviceAlias: TDeviceAlias;
begin
  GetDeviceAlias := PULNDRec(Rec)^.DeviceAlias;
end;

{/TULNDObj}

end.
