anchor.diff:  var
     i : integer;
   begin
  -  if Assigned(FOperatorsMenu) then
  -  begin
  -    for i := 0 to FOperatorsMenu.Items.Count - 1 do
  -      FOperatorsMenu.Items[i].Checked:= FOperatorsMenu.Items[i].Tag = PtrInt(FFilterOperator);
  +  if Assigned(FFilterMenu) then
  +  begin
  +    for i := 0 to FOperatorsMenuItems.Count - 1 do
  +      TMenuItem(FOperatorsMenuItems.Items[i]).Checked:= TMenuItem(FOperatorsMenuItems.Items[i]).Tag = PtrInt(FFilterOperator);
     end;
   end;
   
  
positive.code:   inherited ExportToFilter(aFilter);
    aFilter.Value:= FCurrentValue;
    aFilter.DataType:= fdtString;
  
  (*
    if FComboBox.ItemIndex < 0 then
      aFilter.Value := Null
    else
      aFilter.Value := (FComboBox.Items.Objects[FComboBox.ItemIndex] as TVariantObject).Value;
    aFilter.DataType:= fdtString;*)
  end;
  
  procedure TmCheckListFilterConditionPanel.AddItem(aValue: String);
  
negative.code:     destructor Destroy; override;
      procedure SetFilterCaption (aValue : String); override;
      procedure ExportToFilter (aFilter : TmFilter); override;
      procedure ImportFromFilter (const aFilter: TmFilter); override;
      procedure AddItem (aValue : String); overload;
      procedure AddItem (aLabel : String; aValue : Variant); overload;
      procedure ClearItems;
  