anchor.diff:  end;
   
   
  -constructor TmLookupFilterConditionPanel.Create(TheOwner: TComponent);
  +constructor TmBaseLookupFilterConditionPanel.Create(TheOwner: TComponent);
   begin
     inherited Create(TheOwner);
     FCurrentValue:= null;
  
positive.code:   FEdit.Text := aFilter.DisplayValue;
  end;
  
  procedure TmLookupFilterConditionPanel.SetFilterValue(const aValue : Variant; const aDescription: String);
  begin
    if VarIsNull(aValue) then
      Self.Clear
  
negative.code:     aFilter.Value := FCurrentValue;
  end;
  
  procedure TmBaseLookupFilterConditionPanel.ImportFromFilter(const aFilter: TmFilter);
  begin
    Self.Clear;
    inherited ImportFromFilter(aFilter);
  