unit LNGTObju;
{ Generated by MakeComp 1.03 from LNGTTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  LNGTType;

type
  TLNGTObj = class(TULObj)
  protected
    function GetTextName: string;
    procedure SetTextName(ATextName: string);
    function GetTextValue: string;
    procedure SetTextValue(ATextValue: string);
    function GetTextType: TTextType;
    procedure SetTextType(ATextType: TTextType);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
    function GetSortStr: string; override;
  published
    property TextName: string
      read GetTextName write SetTextName;
    property TextValue: string
      read GetTextValue write SetTextValue;
    property TextType: TTextType
      read GetTextType write SetTextType;
  end;

const
  LNGTFldDescs: array[0..2] of TULFldDesc = (
    (
     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: 'TextName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: 'TextValue';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: 'TextType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TTextType';
    )
  );

  LNGTRecDesc: TULRecDesc = (
    Caption: 'Language text';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 3;
    Flds: @LNGTFldDescs;
    Flags: rfEnabled OR rfVisible;
    SortExp: 'TextName';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TLNGTObj}
function TLNGTObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TLNGTRec);
end;

constructor TLNGTObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), LNGTID);
end;

function TLNGTObj.GetULRecDesc: PULRecDesc;
begin
  Result := @LNGTRecDesc;
end;

function TLNGTObj.GetSortStr: string;
begin
  Result := TextName;
end;
procedure TLNGTObj.SetTextName(ATextName: string);
begin
  if PLNGTRec(Rec)^.TextName <> ATextName then begin
    PLNGTRec(Rec)^.TextName := ATextName;
    if LNGTFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TLNGTObj.GetTextName: string;
begin
  GetTextName := PLNGTRec(Rec)^.TextName;
end;

procedure TLNGTObj.SetTextValue(ATextValue: string);
begin
  if PLNGTRec(Rec)^.TextValue <> ATextValue then begin
    PLNGTRec(Rec)^.TextValue := ATextValue;
    if LNGTFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TLNGTObj.GetTextValue: string;
begin
  GetTextValue := PLNGTRec(Rec)^.TextValue;
end;

procedure TLNGTObj.SetTextType(ATextType: TTextType);
begin
  if PLNGTRec(Rec)^.TextType <> ATextType then begin
    PLNGTRec(Rec)^.TextType := ATextType;
    if LNGTFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TLNGTObj.GetTextType: TTextType;
begin
  GetTextType := PLNGTRec(Rec)^.TextType;
end;

{/TLNGTObj}

end.
