anchor.diff:  procedure Delphi_MenuWnd_OnFinalMessage(Handle: CMenuWnd; hWnd: HWND); cdecl;
   function Delphi_MenuWnd_HandleMessage(Handle: CMenuWnd; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; cdecl;
   function Delphi_MenuWnd_Receive(Handle: CMenuWnd; param: ContextMenuParam): BOOL; cdecl;
  +procedure Delphi_MenuWnd_SetOnMenuPopup(Handle: CMenuWnd; m: TMenuPopupEvent); cdecl;
   
   //================================CMenuElementUI============================
   
  
positive.code:   PContextMenuParam = ^TContextMenuParam;
    TContextMenuParam = ContextMenuParam;
  
  
    CMenuUI = class(CListUI)
    public
  
negative.code:     procedure OnFinalMessage(hWnd: HWND);
      function HandleMessage(uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
      function Receive(param: ContextMenuParam): BOOL;
      procedure SetOnMenuPopup(m: TMenuPopupEvent);
    end;
  
    CMenuElementUI = class(CListContainerElementUI)
  