unit ULOFType; {v0.31} { Keep in sync with ULRecTyp . TULFldDesc }
{!!!
  Any modifications to this file make to its copy in cul\CULDef directory,
  then copy it together with cul\CULObj\ULOFObju file created by makecom2.exe
  to to cul\ULObj directory
!!!}
{ ULOFobju ULObj Field options.}
interface

uses
  ULRecTyp;{ULREC.LST}

const
  ULOFID = ord('U') + 256*ord('L') + 256*256*ord('O') + 256*256*256*ord('F');

type
  TULOFRec = packed record {<Caption="Field definition/options"
    Enabled=1 Visible=1 HasRecName=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    FieldName: TULObjFieldName;
    Caption: string;
      { Name of the field that should appear in edit and browse window to users }
    Hint: string;
      { Short (for user) description of the field purpose. }
    EditWidth: integer;
      { Width of the field value in editwindow. If = 0, default used. }
    BrowseWidth: integer;
      { Width of the field value in browsewindow. If = 0, default used. }
    TheFlags: longint;
      { See ffXXXX }
    UserCoef: TUserCoef;
      { Coeficient by which the value of the field will be divided
        if UserValue will be requested (taken in account if <> 0) }
    NumDec: integer;
      { number of decimal points if converting number to string,
        number of digits taken from BrowseWidth }
    ValuesSourceRecID: TULRecID;
    FieldColorsList: string;
      { Will be converted to ULFieldColors }
    Filter: string;
    Left: integer;
    Top: integer;
    Width: integer;
    Height: integer;
      { default position/size in record edit window }
    DefDir: string;
      { Default directory where to look for files for this field
        (if is filename) }
    StripPrefix: string;
    EditMask: string;
    {v0.65}
    MaxID: integer;
    KeyFieldName: string;
    ListFieldName: string;
    Typ: string;
    {/v0.65}
    {v0.76}
    { Is the field of variable size? (AnsiString, WideString).
      Will be eventually set runtime. }
    VarSize: boolean;
    {/v0.76}
    { Pascal type of the field }
    PasType: string;
    { Default value of the field (set usually in constructor), keep it
      as the last field of this record. }
    DefVal: string;
  end;
  PULOFRec = ^TULOFRec;

implementation

end.
