anchor.diff:    IdControl:= FindControlIndexByOurObject(Sender);
     if DoEvent(IdControl, Props.FEventOnEditorKeyUp,
       Format('(%d, "%s")', [Key, ConvertShiftStateToString(Shift)])
  -    ) = 'False' then
  +    ) = cPyFalse then
      Key:= 0;
   end;
   
  
positive.code:   IdControl:= FindControlIndexByOurObject(Sender);
    if DoEvent(IdControl, Props.FEventOnEditorPaste,
      Format('{ "keep_caret": %s, "sel_then": %s }', [
        cBool[AKeepCaret],
        cBool[ASelectThen]
      ])) = 'False' then
      AHandled:= true;
  end;
  
  
negative.code:   Str: string;
  begin
    Str:= DoEvent(-1, FEventOnCloseQuery, '');
    CanClose:= Str<>cPyFalse;
  end;
  
  procedure TFormDummy.DoOnControlMenu(Sender: TObject; MousePos: TPoint;
  