anchor.diff:  begin
     if BorderStyle<>bsSizeable then exit;
     if not IsFormShownAlready then exit;
  -  DoEvent(-1, '"on_resize"', '');
  +  DoEvent(-1, '"on_resize"', '', false);
   end;
   
   procedure TFormDummy.DoOnCloseQuery(Sender: TObject; var CanClose: boolean);
   var
     Str: string;
   begin
  -  Str:= DoEvent(-1, '"on_close_query"', '');
  +  Str:= DoEvent(-1, '"on_close_query"', '', false);
     CanClose:= Str<>'False';
   end;
   
  
positive.code:     procedure DoOnListviewChange(Sender: TObject; Item: TListItem; Change: TItemChange);
      procedure DoOnListviewSelect(Sender: TObject; Item: TListItem; Selected: Boolean);
      procedure DoOnTreeviewChange(Sender: TObject; Node: TTreeNode);
      function DoEvent(AIdControl: integer; const AEvent, AInfo: string): string;
      procedure DoEmulatedModalShow;
      procedure DoEmulatedModalClose;
      function FindControlByOurName(const AName: string): TControl;
  
negative.code: var
    Str: string;
  begin
    Str:= DoEvent(Key, '"on_key_down"', '', false);
    if Str='False' then
    begin
      Key:= 0;
  