1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Object CustomMenu is a FloatingPopupMenu
    // these get added to the existing items
    On_Item "Dokumente auswählen                " Send dokumente
    On_Item "Dokumente in Bearbeitung auswählen " Send dokumenteb
    On_Item "Dokumente selektieren              " Send dokumentes
    send Add_Item msg_None ''  // spacer
    send Add_Item msg_cut          "Ausschneiden"
    send Add_Item msg_copy         "Kopieren"
    send Add_Item msg_paste        "Einfuegen"
    send Add_Item msg_undo         "Rueckgaengig"
//                        On_Item "" Send None
    Procedure popup
      integer li_flcol li_flzellep
      Get Base_Item  to li_flzellep
      get current_col to li_flcol
      if li_flcol eq 0 begin   //Datum
          Set Shadow_State item 0 to False
      end
      if li_flcol eq 1 begin   //Datum
          Set Shadow_State item 0 to true
      end
      Forward Send Popup
    End_Procedure
End_Object  // CustomMenu
set Floating_Menu_Object to (CustomMenu(Self))