Add(MainForm,2953706,133,133)
{
 Point(onMouseDown)
 link(onMouseDown,14673963:doPopupHere,[])
}
Add(PopupMenuEx,14673963,224,154)
{
 Menu=#5:-1111|5:-2222|5:-3333|5:-4444|5:-5555|
 Bitmaps=[]
 Point(onCheckItems)
 Point(doCheckItems)
 Point(Count)
 link(MenuItemIdx,6680754:doEvent1,[])
 link(onCheckItems,11367230:doAdd,[(291,167)(291,188)])
}
Add(Hub,6680754,301,154)
{
 link(onEvent1,11367230:doClear,[(333,160)(333,195)])
 link(onEvent2,14673963:doCheckItems,[(326,167)(326,146)(214,146)(214,181)])
}
Add(ListBox,11367230,364,182)
{
 Left=10
 Top=10
 Width=130
 Height=175
 TabOrder=-1
}

procedure TXPMenu._work_doCheckItems;
var   i: Integer;
begin
   if Menu.Count > 0 then
      for i:=0 to Menu.Count-1 do
         if (Menu.ItemText[i] <> ') and Menu.ItemChecked[i] then
            _hi_onEvent(_event_onCheckItems,i);
end;