6580 

  6581     "Modified: / 30-10-2007 / 15:06:02 / cg"

  7437 !

  7438 

  7439 createTrayWindowFor:aView

  7440         icon:wicon iconMask:wiconMaskArg

  7441         toolTipMessage:toolTipMessageArg

  7442 

  7443     |windowId wiconId wiconMask invertedWiconMask wiconMaskId 

  7444      wiconWidth wiconHeight toolTipMessage|

  7445 

  7446     "/ the toolTop string cannot be longer than 64 characters including the NULL terminator 

  7447     toolTipMessageArg size > 63 ifTrue:[

  7448         toolTipMessage := toolTipMessageArg copyTo:63

  7449     ] ifFalse:[

  7450         toolTipMessage := toolTipMessageArg.

  7451     ].

  7452 

  7453     windowId := aView id.

  7454 

  7455     wicon notNil ifTrue:[

  7456         wiconId := wicon id.

  7457         wiconHeight := wicon height.

  7458         wiconWidth  := wicon width.

  7459         wiconMask := wiconMaskArg.

  7460         wiconMask isNil ifTrue:[

  7461             wiconMask := wicon mask.

  7462         ].

  7463         wiconMask notNil ifTrue:[

  7464             "/ WIN32's mask has zeros for opaque pixels

  7465             invertedWiconMask := wiconMask copy.

  7466             invertedWiconMask bits invert.

  7467             invertedWiconMask := invertedWiconMask onDevice:self.

  7468             wiconMaskId := invertedWiconMask id

  7469         ].

  7470     ].

  7471 

  7472 %{  /* STACK: 16000 */

  7473 #ifndef WM_TRAY_MESSAGE 

  7474 # define WM_TRAY_MESSAGE (WM_USER+0x0200)

  7475 #endif

  7476     HBITMAP        xBitMap, maskBitmap;

  7477     HICON          xIcon = (HICON)0;

  7478     ICONINFO       iconInfo;

  7479     NOTIFYICONDATA nid;

  7480     unsigned char fastBits[10000];

  7481 

  7482     /* get bitmap for icon */

  7483     if ( __isExternalAddress(wiconId) ) {

  7484         xBitMap = _HBITMAPVAL( wiconId );

  7485         if ( xBitMap != 0 ) {

  7486             BITMAP bm;

  7487 

  7488             if (GetObject(xBitMap, sizeof(bm), (LPSTR)&bm)) {

  7489                 int d = bm.bmPlanes * bm.bmBitsPixel;

  7490                 BYTE *ep;

  7491                 int height, width;

  7492                 int nBytes;

  7493                 unsigned char *allocatedBits = 0;

  7494                 int privateMask = 0;

  7495 

  7496                 if ( __isExternalAddress(wiconMaskId) ) {

  7497                     maskBitmap = _HBITMAPVAL( wiconMaskId );

  7498                 } else {

  7499                     if (wiconMaskId != nil) {

  7500                         PRINTF(("WinWorkstat [warning]: wiconMaskId is not an external address\n"));

  7501                     }

  7502                     maskBitmap = 0;

  7503                 }

  7504 

  7505                 /*

  7506                  * if there is no mask, generate one

  7507                  */

  7508                 if (maskBitmap == 0) {

  7509                     DPRINTF(("Bitmap w:%d h:%d p:%d d:%d\n",bm.bmWidth,bm.bmHeight,bm.bmPlanes,bm.bmBitsPixel));

  7510                     height = __intVal( wiconHeight );

  7511                     width  = __intVal( wiconWidth  );

  7512                     nBytes = ( width + 15 ) / 8;

  7513                     nBytes = height * nBytes;

  7514                     if (nBytes < sizeof(fastBits)) {

  7515                         ep = fastBits;

  7516                     } else {

  7517                         ep = allocatedBits = (unsigned char *) malloc(nBytes);

  7518                     }

  7519                     if ( ep == 0 ) {

  7520                         PRINTF(( "WinWorkstat [warning]: malloc failed\n" ));

  7521                     } else {

  7522                         memset(ep, 0, nBytes);

  7523                         maskBitmap = CreateBitmap(width, height, 1, 1, ep );

  7524                         if ( maskBitmap == NULL ) {

  7525                             PRINTF(( "WinWorkstat [warning]: mask CREATION failed\n" ));

  7526                         } else {

  7527                             privateMask = 1;

  7528                         }

  7529                     }

  7530                 }

  7531                 if ( maskBitmap != NULL ) {

  7532                     DPRINTF(( "BITMAP mask CREATED!!!\n" ));

  7533                     iconInfo.fIcon = TRUE;

  7534                     iconInfo.hbmMask  = maskBitmap;

  7535                     iconInfo.hbmColor = xBitMap;

  7536                     xIcon = CreateIconIndirect( &iconInfo );

  7537                     if (privateMask) {

  7538                         DeleteObject( maskBitmap );

  7539                     }

  7540                 } else {

  7541                     PRINTF(( "WinWorkstat [warning]: no mask for icon !\n" ));

  7542                 }

  7543 

  7544                 if (allocatedBits) {

  7545                     free(allocatedBits);

  7546                 }

  7547             }

  7548         } else {

  7549             DPRINTF(("WinWorkstat [warning]: xBitMap is zero \n" ));

  7550         }

  7551     } else {

  7552         if (wiconId != nil) {

  7553             PRINTF(("WinWorkstat [warning]: wiconId is not an external address\n"));

  7554         }

  7555     }

  7556 

  7557     ZeroMemory(&nid, sizeof(NOTIFYICONDATA));

  7558     nid.cbSize = sizeof(NOTIFYICONDATA);

  7559 

  7560     if (__isExternalAddress(windowId)) {

  7561         HWND hwnd = _HWNDVal(windowId);

  7562 

  7563 

  7564         if (hwnd && IsWindow(hwnd)) {

  7565             nid.hWnd = hwnd; //the hWnd and uID members allow the OS to uniquely identify your icon. 

  7566                              // One window (the hWnd) can have more than one icon, as long as they have unique uIDs.

  7567             nid.uFlags = 

  7568                 NIF_ICON        //we're adding an icon

  7569                 | NIF_MESSAGE   //we want the tray to send a message to the window identified by hWnd when something happens to our icon (see uCallbackMesage member below).

  7570                 | NIF_TIP;      //our icon has a tooltip.

  7571 

  7572             nid.uCallbackMessage = WM_TRAY_MESSAGE; //this message must be handled in hwnd's window procedure. more info below.

  7573             if (xIcon) {

  7574                 nid.hIcon   = xIcon;

  7575                 /* wc.hIconSm = wiconId; In 4.x there are large and small icons */

  7576             } else {

  7577                 nid.hIcon = NULL;        /* THIS MUST BE NULL TO DELETE ICONS */

  7578             }

  7579             if (__isString(toolTipMessage)) {

  7580                 strcpy(nid.szTip, __stringVal(toolTipMessage));

  7581             }

  7582             Shell_NotifyIcon(NIM_ADD, &nid); 

  7583         }

  7584     }

  7585 %}

  7586 

  7587     "Created: / 30-10-2007 / 16:28:30 / cg"