ObjectTypePopMenu.Initialize(Activity, Me, labelTypeObjectFilter, Consts.ColorMain, Colors.White, Consts.ColorSub, True, False)
For i=0 To TypeObjectsList.Size-1
Dim bt As ObjectTypes = TypeObjectsList.Get(i)
ObjectTypePopMenu.AddMenuItem(bt.title, "ObjectTypePopMenu")
Next