anchor.diff:      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;
  
positive.code:     if LCtlName = 'btn_menu' then
      begin
        pMenu := CMenuWnd.CppCreate(Handle, PaintManagerUI);
        point := msg.ptMouse;
        ClientToScreen(Handle, point);
        pMenu.Init(nil, 'menutest.xml', '', point);
  
negative.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;
  
  procedure TFrameWindowWnd.OnMenuPopup(Sender: TObject; pm: CPaintManagerUI);
  var
    LCtl: CSliderUI;
    LCtl2: CControlUI;
  begin
  
    Writeln('¼');
    LCtl := CSliderUI(pm.FindControl('alpha_controlor'));
    Writeln('LCtl=nil: ', LCtl = nil);
    if LCtl <> nil then
      LCtl.Value := 100;
    LCtl2 := pm.FindControl('test2');
    Writeln('Find Test2 = nil: ', LCtl2 = nil);
    if LCtl2 <> nil then
      LCtl2.Enabled := False;
    LCtl2 := pm.FindControl('test5');
    if LCtl2 <> nil then
      LCtl2.Enabled := True;
  end;
  
  var
  