anchor.diff:      function IsEmpty : boolean; override;
   
       property DefaultItemIndex : integer read FDefaultItemIndex write SetDefaultItemIndex;
  +    property ValueType : TmComboCheckLookupFilterValueType read FValueType write FValueType;
     end;
   
     { TmCheckListFilterConditionPanel }
  
positive.code: begin
    inherited ExportToFilter(aFilter);
    aFilter.Value:= FCurrentValue;
    aFilter.DataType:= fdtString;
    aFilter.DisplayValue:= FEdit.Text;
  end;
  
  procedure TmCheckListFilterConditionPanel.ImportFromFilter(const aFilter: TmFilter);
  
negative.code:     else
        aFilter.Value := null;
      aFilter.DataType:= fdtFloat;
    end
    else if (FValueType = efDateTime) then
    begin
      if TryToUnderstandDateString(FEdit.Text, tmpDateTime) then
        aFilter.Value:= tmpDateTime
      else
        aFilter.Value:= null;
      aFilter.DataType:= fdtDateTime;
    end
    else if (FValueType = efDate) then
    begin
      if TryToUnderstandDateString(FEdit.Text, tmpDateTime) then
        aFilter.Value:= trunc(tmpDateTime)
      else
        aFilter.Value:= null;
      aFilter.DataType:= fdtDate;
    end
    else
      aFilter.Value := FEdit.Text;
  