anchor.diff:    SErrorNotADate = 'Not a date.';
     SErrorNotANumber = 'Not a number.';
     SErrorNotATime = 'Not a time.';
  +  SErrorYearInThePast = 'Year in the past.';
  +  SErrorYearInTheFuture = 'Year in the future.';
  +  SErrorYearTooFaraway = 'Year too faraway.';
     SMultiEditClearValues = 'To be cleared';
   
   type
   
     TmEditorLineKind = (ekSimple, ekLookup, ekDialog, ekCalendar, ekWizard);
  -  TmEditorLineDataType = (dtInteger, dtFloat, dtDate, dtTime, dtText, dtUppercaseText, dtContainerNumber, dtMRNNumber);
  +  TmEditorLineDataType = (dtInteger, dtFloat, dtDate, dtTime, dtText, dtUppercaseText, dtContainerNumber, dtMRNNumber, dtCurrentYearOrInThePast, dtCurrentYearOrInTheFuture, dtYear);
     TmEditorLineReadOnlyMode = (roAllowEditing, roReadOnly, roAllowOnlySetValue);
   
     TmEditingPanel = class;
  
positive.code: 
      property EditorKind : TmEditorLineKind read FEditorKind write FEditorKind;
      property DataType : TmEditorLineDataType read FDataType write FDataType;
      property DataProvider : IVDDataProvider read FDataProvider write FDataProvider;
  
      property Caption: String read FCaption write FCaption;
  
negative.code:   FAllowFreeTypedText := true;
    FFractionalPartDigits:= 0;
    FDisplayFormat:= '';
    FTimeMaxDistanceInMonths:= 0;
  end;
  
  destructor TmEditorLineConfiguration.Destroy;
  