unit UPAVObju;
{ Generated by MakeComp 1.03 from UPAVTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  ModuType,ULDType,ULDRType,
  UPAVType;

type
  TUPAVObj = class(TULObj)
  protected
    function GetActionName: TULPrgActionName;
    procedure SetActionName(AActionName: TULPrgActionName);
    function GetDeviceName: TDeviceName;
    procedure SetDeviceName(ADeviceName: TDeviceName);
    function GetPropDesc: TModulePropDesc;
    procedure SetPropDesc(APropDesc: TModulePropDesc);
    function GetPropValue: string;
    procedure SetPropValue(APropValue: string);
    function GetPropDesc_Src_Ptr: longint;
    procedure SetPropDesc_Src_Ptr(APropDesc_Src_Ptr: longint);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property ActionName: TULPrgActionName
      read GetActionName write SetActionName;
    property DeviceName: TDeviceName
      read GetDeviceName write SetDeviceName;
    property PropDesc: TModulePropDesc
      read GetPropDesc write SetPropDesc;
    property PropValue: string
      read GetPropValue write SetPropValue;
    property PropDesc_Src_Ptr: longint
      read GetPropDesc_Src_Ptr write SetPropDesc_Src_Ptr;
  end;

const
  UPAVFldDescs: array[0..4] of TULFldDesc = (
    (
     Caption: 'Assignment Name';
     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: 'ActionName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgActionName';
    ),
    (
     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: 4113;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: ULDRID;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PropDesc';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TModulePropDesc';
    ),
    (
     Caption: 'Value';
     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: 'PropValue';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PropDesc_Src_Ptr';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'longint';
    )
  );

  UPAVRecDesc: TULRecDesc = (
    Caption: 'Set Value Action';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 5;
    Flds: @UPAVFldDescs;
    Flags: rfHasRecName OR rfHasPointer OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: 'ActionName,DeviceName,PropDesc,PropValue';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUPAVObj}
function TUPAVObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUPAVRec);
end;

constructor TUPAVObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UPAVID);
end;

function TUPAVObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UPAVRecDesc;
end;

procedure TUPAVObj.SetActionName(AActionName: TULPrgActionName);
begin
  if PUPAVRec(Rec)^.ActionName <> AActionName then begin
    PUPAVRec(Rec)^.ActionName := AActionName;
    if UPAVFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPAVObj.GetActionName: TULPrgActionName;
begin
  GetActionName := PUPAVRec(Rec)^.ActionName;
end;

procedure TUPAVObj.SetDeviceName(ADeviceName: TDeviceName);
begin
  if PUPAVRec(Rec)^.DeviceName <> ADeviceName then begin
    PUPAVRec(Rec)^.DeviceName := ADeviceName;
    if UPAVFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPAVObj.GetDeviceName: TDeviceName;
begin
  GetDeviceName := PUPAVRec(Rec)^.DeviceName;
end;

procedure TUPAVObj.SetPropDesc(APropDesc: TModulePropDesc);
begin
  if PUPAVRec(Rec)^.PropDesc <> APropDesc then begin
    PUPAVRec(Rec)^.PropDesc := APropDesc;
    if UPAVFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPAVObj.GetPropDesc: TModulePropDesc;
begin
  GetPropDesc := PUPAVRec(Rec)^.PropDesc;
end;

procedure TUPAVObj.SetPropValue(APropValue: string);
begin
  if PUPAVRec(Rec)^.PropValue <> APropValue then begin
    PUPAVRec(Rec)^.PropValue := APropValue;
    if UPAVFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPAVObj.GetPropValue: string;
begin
  GetPropValue := PUPAVRec(Rec)^.PropValue;
end;

procedure TUPAVObj.SetPropDesc_Src_Ptr(APropDesc_Src_Ptr: longint);
begin
  if PUPAVRec(Rec)^.PropDesc_Src_Ptr <> APropDesc_Src_Ptr then begin
    PUPAVRec(Rec)^.PropDesc_Src_Ptr := APropDesc_Src_Ptr;
    if UPAVFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPAVObj.GetPropDesc_Src_Ptr: longint;
begin
  GetPropDesc_Src_Ptr := PUPAVRec(Rec)^.PropDesc_Src_Ptr;
end;

{/TUPAVObj}

end.
