anchor.diff:  end;
   
   
  -function TFormDummy.DoEvent(AIdControl: integer; const ACallback, AInfo: string): string;
  +function TFormDummy.DoEvent(AIdControl: integer; const ACallback, AData: string): string;
   var
     Params: array of string;
   begin
  
positive.code:     procedure DoOnTreeviewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
      procedure DoOnTreeviewCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
      procedure DoOnControlMenu(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
      function DoEvent(AIdControl: integer; const ACallback, AInfo: string): string;
      procedure DoEmulatedModalShow;
      procedure DoEmulatedModalClose;
      function FindControlByOurName(const AName: string): TControl;
  
negative.code:   Params[0]:= 'id_dlg='+IntToStr(PtrInt(Self));
    Params[1]:= 'id_ctl='+IntToStr(AIdControl);
  
    if AData<>'' then
    begin
      SetLength(Params, Length(Params)+1);
      Params[Length(Params)-1]:= 'data='+AData;
    end;
  
    Result:= CustomDialog_DoPyCallback(ACallback, Params);
  