bb.donnay-software.com

Code: Select all

LOCAL GetList[0], oMenu, aRef[2],oMenu1,oMenu2,oMenu3,oMenu4,oMenu5,oMenu6
//return .t.
if valtype(oTaskBar) = "O"
     piep(1)
     return .f.
endif

oTaskBar := TaskBarIcon():New( xbeP_User + 30 ):Create()
oTaskBar:AddIcon( 1, ICON_APP , "CT-PEN FormCommander" + Chr(13) + 'Rechts Click für das Menü' )
oFCSys:lStatTaskbar := .t.


DCSUBMENU oMenu PROMPT lmessage(1836,"Taskbar Menü") PARENT oTaskBar BARTEXT "FormCommander" OWNERDRAW BGCOLOR MENU_BARCOLOR BARFONT "10.Arial"
* 

    DCMENUITEM 'FormCommander'                       PARENT oMenu ACTION {||Thread():new():start({||formcommander()})}            BITMAP addpath(al_path,"\img\notes.gif") when 

DCREAD GUI PARENT oTaskBar EVAL {||aRef[1] := oMenu, aRef[2] := oTaskBar,formcommander()} HANDLER taskBarHandler REFERENCE @aRef
RETURN nil

Code: Select all

  IF Valtype(oXbp) == 'O'
    IF !oGetList:IsDesignOn .OR. oParentDlg == NIL .OR. oXbp == oParentDlg
wtl oXbp, nEvent, mp1, mp2  // <<<<<<<<<<<<< add this to write to debug.log
      oXbp:handleEvent( nEvent, mp1, mp2 )
    ENDIF
  ELSE
    BREAK
  ENDIF

Code: Select all

  IF Valtype(oXbp) == 'O'
    IF !oGetList:IsDesignOn .OR. oParentDlg == NIL .OR. oXbp == oParentDlg
      IF nEvent == xbeP_Quit    // <<<<<<<<<<<<<<<<
         QUIT    // <<<<<<<<<<<<<<<
      ENDIF   // <<<<<<<<<<<<<<<
      oXbp:handleEvent( nEvent, mp1, mp2 )
    ENDIF
  ELSE
    BREAK
  ENDIF