anchor.diff:      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;
  +    function DoEvent(AIdControl: integer; const ACallback, AData: string): string;
       procedure DoEmulatedModalShow;
       procedure DoEmulatedModalClose;
       function FindControlByOurName(const AName: string): TControl;
  
positive.code: end;
  
  
  function TFormDummy.DoEvent(AIdControl: integer; const ACallback, AInfo: string): string;
  var
    Params: array of string;
  begin
  
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);
  