Code: Alles auswählen
oSubMenu := XbpImageMenu() :new( oTabP ) :create()
oDruMenu := XbpImageMenu() :new( oTabP ) :create()
oDruMenu:title := "~Drucken "
oDruMenu:addItem( { "~Preisliste YIU ", { || tumal() },,;
XBPMENUBAR_MIA_OWNERDRAW }, 1010)
...
oSubMenu:addItem( { "~Neu " , { || tumehr() },,;
XBPMENUBAR_MIA_OWNERDRAW }, 2010 )
...
oSubMenu:addItem( { oDruMenu,,,;
XBPMENUBAR_MIA_OWNERDRAW }, 2013 )
...
oSubMenu:PopUp( ,aPos, ;
1, XBPMENU_PU_DEFAULT +;
XBPMENU_PU_MOUSE_RBDOWN )
Code: Alles auswählen
oDruMenu:PopUp( ,aPos, ;
1, XBPMENU_PU_DEFAULT +;
XBPMENU_PU_MOUSE_RBDOWN )