anchor.diff:  procedure Delphi_MenuWnd_OnFinalMessage; external DuiLibdll name 'Delphi_MenuWnd_OnFinalMessage';
   function Delphi_MenuWnd_HandleMessage; external DuiLibdll name 'Delphi_MenuWnd_HandleMessage';
   function Delphi_MenuWnd_Receive; external DuiLibdll name 'Delphi_MenuWnd_Receive';
  +procedure Delphi_MenuWnd_SetOnMenuPopup; external DuiLibdll name 'Delphi_MenuWnd_SetOnMenuPopup';
   
   //================================CMenuElementUI============================
   
  
positive.code:   PContextMenuParam = ^TContextMenuParam;
    TContextMenuParam = ContextMenuParam;
  
  
    CMenuUI = class(CListUI)
    public
  
negative.code: function CMenuWnd.Receive(param: ContextMenuParam): BOOL;
  begin
    Result := Delphi_MenuWnd_Receive(Self, param);
  end;
  
  procedure CMenuWnd.SetOnMenuPopup(m: TMenuPopupEvent);
  begin
    Delphi_MenuWnd_SetOnMenuPopup(Self, m);
  end;
  
  { CMenuElementUI }
  