anchor.diff:    else if FValueType = efUppercaseString then
       aFilter.Value := Uppercase(VarToStr(FCurrentValue))
     else
  +  if FValueType = efUniqueIdentifier then
  +  begin
  +    if IsUniqueIdentifier(trim(FCurrentValue)) then
  +      aFilter.Value := trim(FCurrentValue)
  +    else
  +      aFilter.Value := null;
  +    aFilter.DataType:= fdtString;
  +  end;
     if FValueType = efInteger then
     begin
       if VarIsNumeric(FCurrentValue) then
  
positive.code: begin
    FEdit.OnEditingDone:= nil;
    try
      if FValueType = efInteger then
      begin
        if not IsNumeric(FEdit.Text, false) then
  
negative.code:   FFilterOperator:=AValue;
    UpdateCurrentOperatorCheck;
    Self.SetFilterCaption(FCaption);
  end;
  
  procedure TmFilterConditionPanel.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
  begin
    Self.Width := Round(Self.Width * AXProportion);
    Self.Height:= Round(Self.Height * AYProportion);
  end;
  
  
  