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

type
  TUPEXObj = class(TULObj)
  protected
    function GetPrgExpName: TULPrgExpName;
    procedure SetPrgExpName(APrgExpName: TULPrgExpName);
    function GetCmpOper: TULCmpOper;
    procedure SetCmpOper(ACmpOper: TULCmpOper);
    function GetMathOper: TULMathOper;
    procedure SetMathOper(AMathOper: TULMathOper);
    function GetLeftBracket: boolean;
    procedure SetLeftBracket(ALeftBracket: boolean);
    function GetPrgExpSrcType: TULPrgExpSrcType;
    procedure SetPrgExpSrcType(APrgExpSrcType: TULPrgExpSrcType);
    function GetValue: string;
    procedure SetValue(AValue: string);
    function GetPrgExpsName: TULPrgExpsName;
    procedure SetPrgExpsName(APrgExpsName: TULPrgExpsName);
    function GetPrgExpsName_Src_Ptr: longint;
    procedure SetPrgExpsName_Src_Ptr(APrgExpsName_Src_Ptr: longint);
    function GetDeviceName: TDeviceName;
    procedure SetDeviceName(ADeviceName: TDeviceName);
    function GetDeviceName_Src_Ptr: longint;
    procedure SetDeviceName_Src_Ptr(ADeviceName_Src_Ptr: longint);
    function GetPropIDStr: TModulePropIDStr;
    procedure SetPropIDStr(APropIDStr: TModulePropIDStr);
    function GetPropIDStr_Src_Ptr: longint;
    procedure SetPropIDStr_Src_Ptr(APropIDStr_Src_Ptr: longint);
    function GetRightBracket: boolean;
    procedure SetRightBracket(ARightBracket: boolean);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property PrgExpName: TULPrgExpName
      read GetPrgExpName write SetPrgExpName;
    property CmpOper: TULCmpOper
      read GetCmpOper write SetCmpOper;
    property MathOper: TULMathOper
      read GetMathOper write SetMathOper;
    property LeftBracket: boolean
      read GetLeftBracket write SetLeftBracket;
    property PrgExpSrcType: TULPrgExpSrcType
      read GetPrgExpSrcType write SetPrgExpSrcType;
    property Value: string
      read GetValue write SetValue;
    property PrgExpsName: TULPrgExpsName
      read GetPrgExpsName write SetPrgExpsName;
    property PrgExpsName_Src_Ptr: longint
      read GetPrgExpsName_Src_Ptr write SetPrgExpsName_Src_Ptr;
    property DeviceName: TDeviceName
      read GetDeviceName write SetDeviceName;
    property DeviceName_Src_Ptr: longint
      read GetDeviceName_Src_Ptr write SetDeviceName_Src_Ptr;
    property PropIDStr: TModulePropIDStr
      read GetPropIDStr write SetPropIDStr;
    property PropIDStr_Src_Ptr: longint
      read GetPropIDStr_Src_Ptr write SetPropIDStr_Src_Ptr;
    property RightBracket: boolean
      read GetRightBracket write SetRightBracket;
  end;

const
  UPEXFldDescs: array[0..12] of TULFldDesc = (
    (
     Caption: 'Exp.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: 'PrgExpName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgExpName';
    ),
    (
     Caption: 'Compare';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'co';
     EditMask: '';
     MaxID: 0;
     FieldName: 'CmpOper';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULCmpOper';
    ),
    (
     Caption: 'Operator';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'mo';
     EditMask: '';
     MaxID: 0;
     FieldName: 'MathOper';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULMathOper';
    ),
    (
     Caption: 'Left bracket';
     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: 'LeftBracket';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: 'Source';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'st';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PrgExpSrcType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgExpSrcType';
    ),
    (
     Caption: 'Constant';
     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: 'Value';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: 'Source Expression Set';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4113;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: UPEPID;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PrgExpsName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULPrgExpsName';
    ),
    (
     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: 'PrgExpsName_Src_Ptr';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'longint';
    ),
    (
     Caption: 'Device Name';
     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: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DeviceName_Src_Ptr';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'longint';
    ),
    (
     Caption: 'Property Name';
     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: 'PropIDStr';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TModulePropIDStr';
    ),
    (
     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: 'PropIDStr_Src_Ptr';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'longint';
    ),
    (
     Caption: 'Right bracket';
     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: 'RightBracket';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    )
  );

  UPEXRecDesc: TULRecDesc = (
    Caption: 'Expression';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 13;
    Flds: @UPEXFldDescs;
    Flags: rfHasRecName OR rfHasPointer OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUPEXObj}
function TUPEXObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUPEXRec);
end;

constructor TUPEXObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UPEXID);
end;

function TUPEXObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UPEXRecDesc;
end;

procedure TUPEXObj.SetPrgExpName(APrgExpName: TULPrgExpName);
begin
  if PUPEXRec(Rec)^.PrgExpName <> APrgExpName then begin
    PUPEXRec(Rec)^.PrgExpName := APrgExpName;
    if UPEXFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetPrgExpName: TULPrgExpName;
begin
  GetPrgExpName := PUPEXRec(Rec)^.PrgExpName;
end;

procedure TUPEXObj.SetCmpOper(ACmpOper: TULCmpOper);
begin
  if PUPEXRec(Rec)^.CmpOper <> ACmpOper then begin
    PUPEXRec(Rec)^.CmpOper := ACmpOper;
    if UPEXFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetCmpOper: TULCmpOper;
begin
  GetCmpOper := PUPEXRec(Rec)^.CmpOper;
end;

procedure TUPEXObj.SetMathOper(AMathOper: TULMathOper);
begin
  if PUPEXRec(Rec)^.MathOper <> AMathOper then begin
    PUPEXRec(Rec)^.MathOper := AMathOper;
    if UPEXFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetMathOper: TULMathOper;
begin
  GetMathOper := PUPEXRec(Rec)^.MathOper;
end;

procedure TUPEXObj.SetLeftBracket(ALeftBracket: boolean);
begin
  if PUPEXRec(Rec)^.LeftBracket <> ALeftBracket then begin
    PUPEXRec(Rec)^.LeftBracket := ALeftBracket;
    if UPEXFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetLeftBracket: boolean;
begin
  GetLeftBracket := PUPEXRec(Rec)^.LeftBracket;
end;

procedure TUPEXObj.SetPrgExpSrcType(APrgExpSrcType: TULPrgExpSrcType);
begin
  if PUPEXRec(Rec)^.PrgExpSrcType <> APrgExpSrcType then begin
    PUPEXRec(Rec)^.PrgExpSrcType := APrgExpSrcType;
    if UPEXFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetPrgExpSrcType: TULPrgExpSrcType;
begin
  GetPrgExpSrcType := PUPEXRec(Rec)^.PrgExpSrcType;
end;

procedure TUPEXObj.SetValue(AValue: string);
begin
  if PUPEXRec(Rec)^.Value <> AValue then begin
    PUPEXRec(Rec)^.Value := AValue;
    if UPEXFldDescs[5].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetValue: string;
begin
  GetValue := PUPEXRec(Rec)^.Value;
end;

procedure TUPEXObj.SetPrgExpsName(APrgExpsName: TULPrgExpsName);
begin
  if PUPEXRec(Rec)^.PrgExpsName <> APrgExpsName then begin
    PUPEXRec(Rec)^.PrgExpsName := APrgExpsName;
    if UPEXFldDescs[6].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetPrgExpsName: TULPrgExpsName;
begin
  GetPrgExpsName := PUPEXRec(Rec)^.PrgExpsName;
end;

procedure TUPEXObj.SetPrgExpsName_Src_Ptr(APrgExpsName_Src_Ptr: longint);
begin
  if PUPEXRec(Rec)^.PrgExpsName_Src_Ptr <> APrgExpsName_Src_Ptr then begin
    PUPEXRec(Rec)^.PrgExpsName_Src_Ptr := APrgExpsName_Src_Ptr;
    if UPEXFldDescs[7].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetPrgExpsName_Src_Ptr: longint;
begin
  GetPrgExpsName_Src_Ptr := PUPEXRec(Rec)^.PrgExpsName_Src_Ptr;
end;

procedure TUPEXObj.SetDeviceName(ADeviceName: TDeviceName);
begin
  if PUPEXRec(Rec)^.DeviceName <> ADeviceName then begin
    PUPEXRec(Rec)^.DeviceName := ADeviceName;
    if UPEXFldDescs[8].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetDeviceName: TDeviceName;
begin
  GetDeviceName := PUPEXRec(Rec)^.DeviceName;
end;

procedure TUPEXObj.SetDeviceName_Src_Ptr(ADeviceName_Src_Ptr: longint);
begin
  if PUPEXRec(Rec)^.DeviceName_Src_Ptr <> ADeviceName_Src_Ptr then begin
    PUPEXRec(Rec)^.DeviceName_Src_Ptr := ADeviceName_Src_Ptr;
    if UPEXFldDescs[9].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetDeviceName_Src_Ptr: longint;
begin
  GetDeviceName_Src_Ptr := PUPEXRec(Rec)^.DeviceName_Src_Ptr;
end;

procedure TUPEXObj.SetPropIDStr(APropIDStr: TModulePropIDStr);
begin
  if PUPEXRec(Rec)^.PropIDStr <> APropIDStr then begin
    PUPEXRec(Rec)^.PropIDStr := APropIDStr;
    if UPEXFldDescs[10].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetPropIDStr: TModulePropIDStr;
begin
  GetPropIDStr := PUPEXRec(Rec)^.PropIDStr;
end;

procedure TUPEXObj.SetPropIDStr_Src_Ptr(APropIDStr_Src_Ptr: longint);
begin
  if PUPEXRec(Rec)^.PropIDStr_Src_Ptr <> APropIDStr_Src_Ptr then begin
    PUPEXRec(Rec)^.PropIDStr_Src_Ptr := APropIDStr_Src_Ptr;
    if UPEXFldDescs[11].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetPropIDStr_Src_Ptr: longint;
begin
  GetPropIDStr_Src_Ptr := PUPEXRec(Rec)^.PropIDStr_Src_Ptr;
end;

procedure TUPEXObj.SetRightBracket(ARightBracket: boolean);
begin
  if PUPEXRec(Rec)^.RightBracket <> ARightBracket then begin
    PUPEXRec(Rec)^.RightBracket := ARightBracket;
    if UPEXFldDescs[12].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUPEXObj.GetRightBracket: boolean;
begin
  GetRightBracket := PUPEXRec(Rec)^.RightBracket;
end;

{/TUPEXObj}

end.
