anchor.diff:      if LCtlName = 'btn_menu' then
       begin
         pMenu := CMenuWnd.CppCreate(Handle, PaintManagerUI);
  +      pMenu.SetOnMenuPopup(OnMenuPopup);
         point := msg.ptMouse;
         ClientToScreen(Handle, point);
         pMenu.Init(nil, 'menutest.xml', '', point);
  
positive.code:   end else if LType = DUI_MSGTYPE_MENUITEMCHILDVALUECHANGED then
      Writeln(Format('Ŀֵı Type=%s, Name=%s, Text=%s, value=%d',
        [LType, LCtlName, Msg.pSender.Text, CSliderUI(Msg.pSender).Value]));
  end;
  
  var
  
negative.code:     procedure DoInitWindow; override;
      procedure DoNotify(var Msg: TNotifyUI); override;
      procedure DoHandleMessage(var Msg: TMessage; var bHandled: BOOL); override;
      procedure OnMenuPopup(Sender: TObject; pm: CPaintManagerUI);
    public
      constructor Create;
      destructor Destroy; override;
  