anchor.diff:  begin
     FEdit.OnEditingDone:= nil;
     try
  +    if FValueType = efUniqueIdentifier then
  +    begin
  +      if not IsUniqueIdentifier(FEdit.Text) then
  +        FEdit.Text := '';
  +    end
  +    else
       if FValueType = efInteger then
       begin
         if not IsNumeric(FEdit.Text, false) then
  
positive.code:   Self.BevelInner:= bvNone;
    Self.BevelOuter:= bvNone;
    Self.FFlex := 2;
    Self.Width := Self.FFlex * DEFAULT_FLEX_WIDTH;
    Self.Caption := '';
    Self.Height := 40;
    Self.FFilterOperator:= foUnknown;
    Self.FAllowedOperators:= [];
    FOperatorsMenuItems := TList.Create;
  end;
  
  destructor TmFilterConditionPanel.Destroy;
  
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;
  
  
  