anchor.diff:      Props:= TAppControlProps((Sender as TControl).Tag);
       IdControl:= FindControlIndexByOurObject(Sender);
       DoEvent(IdControl, Props.FEventOnSelect,
  -      Format('(%d, %s)', [Item.Index, cBool[Selected] ])
  +      Format('(%d, %s)', [Item.Index, cPyFalseTrue[Selected] ])
         );
     finally
       BlockedOnSelect_Listview:= false;
  
positive.code:   IdControl:= FindControlIndexByOurObject(Sender);
    if DoEvent(IdControl, Props.FEventOnEditorKeyDown,
      Format('(%d, "%s")', [Key, ConvertShiftStateToString(Shift)])
      ) = 'False' then
     Key:= 0;
  end;
  
  
negative.code: 
  implementation
  
  const
    cPyFalse = 'False';
    cPyTrue = 'True';
    cPyFalseTrue: array[boolean] of string = ('False', 'True');
  
  
  procedure DoForm_SetupFilters(F: TFormDummy);
  const
    cPrefix = 'f_';
  