bb.donnay-software.com

Code: Select all

FUNCTION TaskBarMenu()
******************************************************************
LOCAL GetList[0], oMenu, aRef[2]

oTaskBar := TaskBarIcon():New( xbeP_User + 30 ):Create()
oTaskBar:AddIcon( 1, ICON_SYNC , "UNIFLEX SYNC" + Chr(13) + 'Rechts Click für das Menü' )

DCSUBMENU oMenu PROMPT 'Taskbar Menü' PARENT oTaskBar

DCMENUITEM 'Change Icon'           PARENT oMenu ACTION {||oTaskbar:changeicon(ICON_SYNC2),dc_getrefresh(getlist)} // ???????
DCMENUITEM 'Exit'                       PARENT oMenu ACTION {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList)}

DCREAD GUI PARENT oTaskBar ;
   EVAL {||aRef[1] := oMenu, aRef[2] := oTaskBar} ;
   HANDLER taskBarHandler REFERENCE @aRef

oTaskBar:remAllIcons()
QUIT

Code: Select all

oTaskBar:ChangeIcon( 1, ICON_SYNC2 , "UNIFLEX SYNC2" + Chr(13) + 'Rechts Click für das Menü' )