src/msw/tbar95.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        tbar95.cpp
   3 // Purpose:     wxToolBar95
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart and Markus Holzem
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "tbar95.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __BORLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24 #include "wx/wx.h"
  25 #endif
  26
  27 #if wxUSE_BUTTONBAR && wxUSE_TOOLBAR && defined(__WIN95__)
  28
  29 #if !defined(__GNUWIN32__) && !defined(__SALFORDC__)
  30 #include "malloc.h"
  31 #endif
  32
  33 #include <windows.h>
  34
  35 #if (defined(__WIN95__) && !defined(__GNUWIN32__)) || defined(__TWIN32__)
  36 #include <commctrl.h>
  37 #endif
  38
  39 #ifndef __TWIN32__
  40 #ifdef __GNUWIN32__
  41 #include "wx/msw/gnuwin32/extra.h"
  42 #endif
  43 #endif
  44
  45 #include "wx/msw/dib.h"
  46 #include "wx/tbar95.h"
  47 #include "wx/app.h"
  48 #include "wx/msw/private.h"
  49
  50 // Styles
  51 #ifndef TBSTYLE_FLAT
  52 #define TBSTYLE_LIST            0x1000
  53 #define TBSTYLE_FLAT            0x0800
  54 #define TBSTYLE_TRANSPARENT     0x8000
  55 #endif
  56  // use TBSTYLE_TRANSPARENT if you use TBSTYLE_FLAT
  57
  58 // Messages
  59 #ifndef TB_GETSTYLE
  60 #define TB_GETSTYLE             (WM_USER + 57)
  61 #define TB_SETSTYLE             (WM_USER + 56)
  62 #endif
  63
  64 /* Hint from a newsgroup for custom flatbar drawing:
  65 Set the TBSTYLE_CUSTOMERASE style, then handle the
  66 NM_CUSTOMDRAW message and do your custom drawing.
  67 */
  68
  69 #define DEFAULTBITMAPX   16
  70 #define DEFAULTBITMAPY   15
  71 #define DEFAULTBUTTONX   24
  72 #define DEFAULTBUTTONY   24
  73 #define DEFAULTBARHEIGHT 27
  74
  75 #if !USE_SHARED_LIBRARY
  76 IMPLEMENT_DYNAMIC_CLASS(wxToolBar95, wxToolBarBase)
  77 #endif
  78
  79 BEGIN_EVENT_TABLE(wxToolBar95, wxToolBarBase)
  80     EVT_SIZE(wxToolBar95::OnSize)
  81     EVT_PAINT(wxToolBar95::OnPaint)
  82     EVT_MOUSE_EVENTS(wxToolBar95::OnMouseEvent)
  83     EVT_KILL_FOCUS(wxToolBar95::OnKillFocus)
  84     EVT_SYS_COLOUR_CHANGED(wxToolBar95::OnSysColourChanged)
  85 END_EVENT_TABLE()
  86
  87 static void wxMapBitmap(HBITMAP hBitmap, int width, int height);
  88
  89 wxToolBar95::wxToolBar95()
  90 {
  91   m_maxWidth = -1;
  92   m_maxHeight = -1;
  93   m_hBitmap = 0;
  94   m_defaultWidth = DEFAULTBITMAPX;
  95   m_defaultHeight = DEFAULTBITMAPY;
  96 }
  97
  98 bool wxToolBar95::Create(wxWindow *parent,
  99                          wxWindowID id,
 100                          const wxPoint& pos,
 101                          const wxSize& size,
 102                          long style,
 103                          const wxString& name)
 104 {
 105   m_backgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
 106                                 GetGValue(GetSysColor(COLOR_BTNFACE)),
 107                                 GetBValue(GetSysColor(COLOR_BTNFACE)));
 108   m_foregroundColour = *wxBLACK ;
 109
 110   wxASSERT_MSG( (style & wxTB_VERTICAL) == 0,
 111                 "Sorry, wxToolBar95 under Windows 95 only "
 112                 "supports horizontal orientation." );
 113
 114   m_maxWidth = -1;
 115   m_maxHeight = -1;
 116
 117   m_hBitmap = 0;
 118
 119   m_defaultWidth = DEFAULTBITMAPX;
 120   m_defaultHeight = DEFAULTBITMAPY;
 121   SetName(name);
 122
 123   m_windowStyle = style;
 124
 125   SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
 126   SetParent(parent);
 127
 128   int x = pos.x;
 129   int y = pos.y;
 130   int width = size.x;
 131   int height = size.y;
 132
 133   if (width <= 0)
 134     width = 100;
 135   if (height <= 0)
 136     height = 30;
 137   if (x < 0)
 138     x = 0;
 139   if (y < 0)
 140     y = 0;
 141
 142   m_windowId = (id < 0 ? NewControlId() : id);
 143   DWORD msflags = 0;
 144   if (style & wxBORDER)
 145     msflags |= WS_BORDER;
 146   msflags |= WS_CHILD | WS_VISIBLE | TBSTYLE_TOOLTIPS;
 147
 148   if (style & wxTB_FLAT)
 149   {
 150     if (wxTheApp->GetComCtl32Version() > 400)
 151         msflags |= TBSTYLE_FLAT;
 152   }
 153
 154   // Create the toolbar control.
 155   HWND hWndToolbar = CreateWindowEx
 156                      (
 157                       0L,                       // No extended styles.
 158                       TOOLBARCLASSNAME,         // Class name for the toolbar.
 159                       "",                       // No default text.
 160                       msflags,                  // Styles
 161                       x, y, width, height,      // Standard toolbar size and position.
 162                       (HWND) parent->GetHWND(), // Parent window of the toolbar.
 163                       (HMENU)m_windowId,        // Toolbar ID.
 164                       wxGetInstance(),          // Current instance.
 165                       NULL                      // No class data.
 166                      );
 167
 168   wxCHECK_MSG( hWndToolbar, FALSE, "Toolbar creation failed" );
 169
 170   // Toolbar-specific initialisation
 171   ::SendMessage(hWndToolbar, TB_BUTTONSTRUCTSIZE,
 172                 (WPARAM)sizeof(TBBUTTON), (LPARAM)0);
 173
 174   m_hWnd = (WXHWND) hWndToolbar;
 175   if (parent)
 176       parent->AddChild(this);
 177
 178   SubclassWin((WXHWND)hWndToolbar);
 179
 180   return TRUE;
 181 }
 182
 183 wxToolBar95::~wxToolBar95()
 184 {
 185   UnsubclassWin();
 186
 187   if (m_hBitmap)
 188   {
 189     ::DeleteObject((HBITMAP) m_hBitmap);
 190     m_hBitmap = 0;
 191   }
 192 }
 193
 194 bool wxToolBar95::CreateTools()
 195 {
 196   if (m_tools.Number() == 0)
 197     return FALSE;
 198
 199   HBITMAP oldToolBarBitmap = (HBITMAP) m_hBitmap;
 200
 201   int totalBitmapWidth = (int)(m_defaultWidth * m_tools.Number());
 202   int totalBitmapHeight = (int)m_defaultHeight;
 203
 204   // Create a bitmap for all the tool bitmaps
 205   HDC dc = ::GetDC(NULL);
 206   m_hBitmap = (WXHBITMAP) ::CreateCompatibleBitmap(dc, totalBitmapWidth, totalBitmapHeight);
 207   ::ReleaseDC(NULL, dc);
 208
 209   // Now blit all the tools onto this bitmap
 210   HDC memoryDC = ::CreateCompatibleDC(NULL);
 211   HBITMAP oldBitmap = (HBITMAP) ::SelectObject(memoryDC, (HBITMAP) m_hBitmap);
 212
 213   HDC memoryDC2 = ::CreateCompatibleDC(NULL);
 214   int x = 0;
 215   wxNode *node = m_tools.First();
 216   int noButtons = 0;
 217   while (node)
 218   {
 219     wxToolBarTool *tool = (wxToolBarTool *)node->Data();
 220     if ((tool->m_toolStyle != wxTOOL_STYLE_SEPARATOR) && tool->m_bitmap1.Ok() && tool->m_bitmap1.GetHBITMAP())
 221     {
 222 //      wxPalette *palette = tool->m_bitmap1->GetPalette();
 223
 224       HBITMAP oldBitmap2 = (HBITMAP) ::SelectObject(memoryDC2, (HBITMAP) tool->m_bitmap1.GetHBITMAP());
 225       /* int bltResult = */
 226       BitBlt(memoryDC, x, 0, (int) m_defaultWidth, (int) m_defaultHeight, memoryDC2,
 227                         0, 0, SRCCOPY);
 228       ::SelectObject(memoryDC2, oldBitmap2);
 229       x += (int)m_defaultWidth;
 230       noButtons ++;
 231     }
 232     node = node->Next();
 233   }
 234   ::SelectObject(memoryDC, oldBitmap);
 235   ::DeleteDC(memoryDC);
 236   ::DeleteDC(memoryDC2);
 237
 238   // Map to system colours
 239   wxMapBitmap((HBITMAP) m_hBitmap, totalBitmapWidth, totalBitmapHeight);
 240
 241   if ( oldToolBarBitmap )
 242   {
 243     TBREPLACEBITMAP replaceBitmap;
 244     replaceBitmap.hInstOld = NULL;
 245     replaceBitmap.hInstNew = NULL;
 246     replaceBitmap.nIDOld = (UINT) oldToolBarBitmap;
 247     replaceBitmap.nIDNew = (UINT) (HBITMAP) m_hBitmap;
 248     replaceBitmap.nButtons = noButtons;
 249     if (::SendMessage((HWND) GetHWND(), TB_REPLACEBITMAP, (WPARAM) 0, (LPARAM) &replaceBitmap) == -1)
 250       wxMessageBox("Could not add bitmap to toolbar");
 251
 252     ::DeleteObject((HBITMAP) oldToolBarBitmap);
 253
 254     // Now delete all the buttons
 255     int i = 0;
 256     while ( TRUE )
 257     {
 258         // TODO: What about separators???? They don't have an id!
 259         if ( ! ::SendMessage( (HWND) GetHWND(), TB_DELETEBUTTON, i, 0 ) )
 260             break;
 261     }
 262   }
 263   else
 264   {
 265     TBADDBITMAP addBitmap;
 266     addBitmap.hInst = 0;
 267     addBitmap.nID = (UINT)m_hBitmap;
 268     if (::SendMessage((HWND) GetHWND(), TB_ADDBITMAP, (WPARAM) noButtons, (LPARAM) &addBitmap) == -1)
 269       wxMessageBox("Could not add bitmap to toolbar");
 270   }
 271
 272   // Now add the buttons.
 273   TBBUTTON buttons[50];
 274
 275   node = m_tools.First();
 276   int i = 0;
 277   int bitmapId = 0;
 278   while (node)
 279   {
 280     wxToolBarTool *tool = (wxToolBarTool *)node->Data();
 281     if (tool->m_toolStyle == wxTOOL_STYLE_SEPARATOR)
 282     {
 283       buttons[i].iBitmap = 0;
 284       buttons[i].idCommand = 0;
 285
 286       buttons[i].fsState = TBSTATE_ENABLED;
 287       buttons[i].fsStyle = TBSTYLE_SEP;
 288       buttons[i].dwData = 0L;
 289       buttons[i].iString = 0;
 290     }
 291     else
 292     {
 293       buttons[i].iBitmap = bitmapId;
 294       buttons[i].idCommand = tool->m_index;
 295
 296       buttons[i].fsState = 0;
 297       if (tool->m_enabled)
 298         buttons[i].fsState |= TBSTATE_ENABLED;
 299       if (tool->m_toggleState)
 300         buttons[i].fsState |= TBSTATE_CHECKED;
 301       buttons[i].fsStyle = tool->m_isToggle ? TBSTYLE_CHECK : TBSTYLE_BUTTON;
 302       buttons[i].dwData = 0L;
 303       buttons[i].iString = 0;
 304
 305       bitmapId ++;
 306     }
 307
 308     i ++;
 309     node = node->Next();
 310   }
 311
 312   long rc = ::SendMessage((HWND) GetHWND(), TB_ADDBUTTONS, (WPARAM)i, (LPARAM)& buttons);
 313
 314   wxCHECK_MSG( rc, FALSE, "failed to add buttons to the toolbar" );
 315
 316   (void)::SendMessage((HWND) GetHWND(), TB_AUTOSIZE, (WPARAM)0, (LPARAM) 0);
 317
 318   SetRows(m_maxRows);
 319
 320   return TRUE;
 321 }
 322
 323 bool wxToolBar95::MSWCommand(WXUINT cmd, WXWORD id)
 324 {
 325   wxNode *node = m_tools.Find((long)id);
 326   if (!node)
 327     return FALSE;
 328   wxToolBarTool *tool = (wxToolBarTool *)node->Data();
 329   if (tool->m_isToggle)
 330     tool->m_toggleState = (1 == (1 & (int)::SendMessage((HWND) GetHWND(), TB_GETSTATE, (WPARAM) id, (LPARAM) 0)));
 331
 332   BOOL ret = OnLeftClick((int)id, tool->m_toggleState);
 333   if (ret == FALSE && tool->m_isToggle)
 334   {
 335     tool->m_toggleState = !tool->m_toggleState;
 336     ::SendMessage((HWND) GetHWND(), TB_CHECKBUTTON, (WPARAM)id, (LPARAM)MAKELONG(tool->m_toggleState, 0));
 337   }
 338   return TRUE;
 339 }
 340
 341 bool wxToolBar95::MSWNotify(WXWPARAM WXUNUSED(wParam),
 342                             WXLPARAM lParam,
 343                             WXLPARAM *result)
 344 {
 345     // First check if this applies to us
 346     NMHDR *hdr = (NMHDR *)lParam;
 347
 348     // the tooltips control created by the toolbar is sometimes Unicode, even in
 349     // an ANSI application
 350     if ( (hdr->code != TTN_NEEDTEXTA) && (hdr->code != TTN_NEEDTEXTW) )
 351         return FALSE;
 352
 353     HWND toolTipWnd = (HWND)::SendMessage((HWND)GetHWND(), TB_GETTOOLTIPS, 0, 0);
 354     if ( toolTipWnd != hdr->hwndFrom )
 355         return FALSE;
 356
 357     LPTOOLTIPTEXT ttText = (LPTOOLTIPTEXT)lParam;
 358     int id = (int)ttText->hdr.idFrom;
 359     wxNode *node = m_tools.Find((long)id);
 360     if (!node)
 361         return FALSE;
 362
 363     wxToolBarTool *tool = (wxToolBarTool *)node->Data();
 364
 365     if ( tool->m_shortHelpString != "" )
 366     {
 367         if ( hdr->code == TTN_NEEDTEXTA )
 368         {
 369             ttText->lpszText = (char *)(const char *)tool->m_shortHelpString;
 370         }
 371 #if (_WIN32_IE >= 0x0300)
 372         else
 373         {
 374             // FIXME this is a temp hack only until I understand better what
 375             //       must be done in both ANSI and Unicode builds
 376             size_t lenAnsi = tool->m_shortHelpString.Len();
 377             #ifdef __MWERKS__
 378             wchar_t *pwz = new wchar_t[lenAnsi * 2 + 1];
 379             #else
 380             size_t lenUnicode = mbstowcs(NULL, tool->m_shortHelpString, lenAnsi);
 381             wchar_t *pwz = new wchar_t[lenUnicode + 1];
 382             #endif
 383             mbstowcs(pwz, tool->m_shortHelpString, lenAnsi + 1);
 384             memcpy(ttText->szText, pwz,
 385                    (sizeof(ttText->szText) - 1)/sizeof(ttText->szText[0]));
 386             ttText->szText[WXSIZEOF(ttText->szText)] = 0;
 387
 388             delete [] pwz;
 389         }
 390 #endif // _WIN32_IE >= 0x0300
 391     }
 392
 393     // For backward compatibility...
 394     OnMouseEnter(tool->m_index);
 395
 396     return TRUE;
 397 }
 398
 399 void wxToolBar95::SetToolBitmapSize(const wxSize& size)
 400 {
 401   m_defaultWidth = size.x;
 402   m_defaultHeight = size.y;
 403   ::SendMessage((HWND) GetHWND(), TB_SETBITMAPSIZE, 0, (LPARAM) MAKELONG ((int)size.x, (int)size.y));
 404 }
 405
 406 void wxToolBar95::SetRows(int nRows)
 407 {
 408   RECT rect;
 409   ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(nRows, TRUE), (LPARAM) & rect);
 410   m_maxWidth = (rect.right - rect.left + 2);
 411   m_maxHeight = (rect.bottom - rect.top + 2);
 412 }
 413
 414 wxSize wxToolBar95::GetMaxSize() const
 415 {
 416   if ((m_maxWidth == -1) || (m_maxHeight == -1))
 417   {
 418     RECT rect;
 419     ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(m_maxRows, TRUE), (LPARAM) & rect);
 420     ((wxToolBar95 *)this)->m_maxWidth = (rect.right - rect.left + 2); // ???
 421     ((wxToolBar95 *)this)->m_maxHeight = (rect.bottom - rect.top + 2); // ???
 422   }
 423   return wxSize(m_maxWidth, m_maxHeight);
 424 }
 425
 426 void wxToolBar95::GetSize(int *w, int *h) const
 427 {
 428   wxWindow::GetSize(w, h);
 429   // For some reason, the returned height is several pixels bigger than that
 430   // displayed!
 431   *h -= 2;
 432 }
 433
 434 // The button size is bigger than the bitmap size
 435 wxSize wxToolBar95::GetToolSize() const
 436 {
 437   return wxSize(m_defaultWidth + 8, m_defaultHeight + 7);
 438 }
 439
 440 void wxToolBar95::EnableTool(int toolIndex, bool enable)
 441 {
 442   wxNode *node = m_tools.Find((long)toolIndex);
 443   if (node)
 444   {
 445     wxToolBarTool *tool = (wxToolBarTool *)node->Data();
 446     tool->m_enabled = enable;
 447     ::SendMessage((HWND) GetHWND(), TB_ENABLEBUTTON, (WPARAM)toolIndex, (LPARAM)MAKELONG(enable, 0));
 448   }
 449 }
 450
 451 void wxToolBar95::ToggleTool(int toolIndex, bool toggle)
 452 {
 453   wxNode *node = m_tools.Find((long)toolIndex);
 454   if (node)
 455   {
 456     wxToolBarTool *tool = (wxToolBarTool *)node->Data();
 457     if (tool->m_isToggle)
 458     {
 459       tool->m_toggleState = toggle;
 460       ::SendMessage((HWND) GetHWND(), TB_CHECKBUTTON, (WPARAM)toolIndex, (LPARAM)MAKELONG(toggle, 0));
 461     }
 462   }
 463 }
 464
 465 bool wxToolBar95::GetToolState(int toolIndex) const
 466 {
 467     return (::SendMessage((HWND) GetHWND(), TB_ISBUTTONCHECKED, (WPARAM)toolIndex, (LPARAM)0) != 0);
 468 }
 469
 470 void wxToolBar95::ClearTools()
 471 {
 472   // TODO: Don't know how to reset the toolbar bitmap, as yet.
 473   // But adding tools and calling CreateTools should probably
 474   // recreate a buttonbar OK.
 475   wxToolBarBase::ClearTools();
 476 }
 477
 478 // If pushedBitmap is NULL, a reversed version of bitmap is
 479 // created and used as the pushed/toggled image.
 480 // If toggle is TRUE, the button toggles between the two states.
 481 wxToolBarTool *wxToolBar95::AddTool(int index, const wxBitmap& bitmap, const wxBitmap& pushedBitmap,
 482              bool toggle, long xPos, long yPos, wxObject *clientData, const wxString& helpString1, const wxString& helpString2)
 483 {
 484   wxToolBarTool *tool = new wxToolBarTool(index, bitmap, wxNullBitmap, toggle, xPos, yPos, helpString1, helpString2);
 485   tool->m_clientData = clientData;
 486
 487   if (xPos > -1)
 488     tool->m_x = xPos;
 489   else
 490     tool->m_x = m_xMargin;
 491
 492   if (yPos > -1)
 493     tool->m_y = yPos;
 494   else
 495     tool->m_y = m_yMargin;
 496
 497   tool->SetSize(GetToolSize().x, GetToolSize().y);
 498
 499   m_tools.Append((long)index, tool);
 500   return tool;
 501 }
 502
 503 // Responds to colour changes, and passes event on to children.
 504 void wxToolBar95::OnSysColourChanged(wxSysColourChangedEvent& event)
 505 {
 506     m_backgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
 507           GetGValue(GetSysColor(COLOR_BTNFACE)), GetBValue(GetSysColor(COLOR_BTNFACE)));
 508
 509     // Remap the buttons
 510     CreateTools();
 511
 512     Default();
 513
 514     Refresh();
 515
 516     // Propagate the event to the non-top-level children
 517     wxWindow::OnSysColourChanged(event);
 518 }
 519
 520 void wxToolBar95::OnMouseEvent(wxMouseEvent& event)
 521 {
 522     if (event.RightDown())
 523     {
 524         // For now, we don't have an id. Later we could
 525         // try finding the tool.
 526         OnRightClick((int)-1, event.GetX(), event.GetY());
 527     }
 528     else
 529     {
 530         Default();
 531     }
 532 }
 533
 534 // These are the default colors used to map the bitmap colors
 535 // to the current system colors
 536
 537 #define BGR_BUTTONTEXT      (RGB(000,000,000))  // black
 538 #define BGR_BUTTONSHADOW    (RGB(128,128,128))  // dark grey
 539 #define BGR_BUTTONFACE      (RGB(192,192,192))  // bright grey
 540 #define BGR_BUTTONHILIGHT   (RGB(255,255,255))  // white
 541 #define BGR_BACKGROUNDSEL   (RGB(255,000,000))  // blue
 542 #define BGR_BACKGROUND      (RGB(255,000,255))  // magenta
 543
 544 void wxMapBitmap(HBITMAP hBitmap, int width, int height)
 545 {
 546   COLORMAP ColorMap[] = {
 547     {BGR_BUTTONTEXT,    COLOR_BTNTEXT},     // black
 548     {BGR_BUTTONSHADOW,  COLOR_BTNSHADOW},   // dark grey
 549     {BGR_BUTTONFACE,    COLOR_BTNFACE},     // bright grey
 550     {BGR_BUTTONHILIGHT, COLOR_BTNHIGHLIGHT},// white
 551     {BGR_BACKGROUNDSEL, COLOR_HIGHLIGHT},   // blue
 552     {BGR_BACKGROUND,    COLOR_WINDOW}       // magenta
 553   };
 554
 555   int NUM_MAPS = (sizeof(ColorMap)/sizeof(COLORMAP));
 556   int n;
 557   for ( n = 0; n < NUM_MAPS; n++)
 558   {
 559     ColorMap[n].to = ::GetSysColor(ColorMap[n].to);
 560   }
 561
 562   HBITMAP hbmOld;
 563   HDC hdcMem = CreateCompatibleDC(NULL);
 564
 565   if (hdcMem)
 566   {
 567     hbmOld = (HBITMAP) SelectObject(hdcMem, hBitmap);
 568
 569     int i, j, k;
 570     for ( i = 0; i < width; i++)
 571     {
 572         for ( j = 0; j < height; j++)
 573         {
 574             COLORREF pixel = ::GetPixel(hdcMem, i, j);
 575 /*
 576             BYTE red = GetRValue(pixel);
 577             BYTE green = GetGValue(pixel);
 578             BYTE blue = GetBValue(pixel);
 579 */
 580
 581             for ( k = 0; k < NUM_MAPS; k ++)
 582             {
 583                 if ( ColorMap[k].from == pixel )
 584                 {
 585                     /* COLORREF actualPixel = */ ::SetPixel(hdcMem, i, j, ColorMap[k].to);
 586                     break;
 587                 }
 588             }
 589         }
 590     }
 591
 592
 593     SelectObject(hdcMem, hbmOld);
 594     DeleteObject(hdcMem);
 595   }
 596
 597 }
 598
 599 // Some experiments...
 600 #if 0
 601   // What we want to do is create another bitmap which has a depth of 4,
 602   // and set the bits. So probably we want to convert this HBITMAP into a
 603   // DIB, then call SetDIBits.
 604   // AAAGH. The stupid thing is that if newBitmap has a depth of 4 (less than that of
 605   // the screen), then SetDIBits fails.
 606   HBITMAP newBitmap = ::CreateBitmap(totalBitmapWidth, totalBitmapHeight, 1, 4, NULL);
 607   HANDLE newDIB = ::BitmapToDIB((HBITMAP) m_hBitmap, NULL);
 608   LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) GlobalLock(newDIB);
 609
 610   dc = ::GetDC(NULL);
 611 //  LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) newDIB;
 612
 613   int result = ::SetDIBits(dc, newBitmap, 0, lpbmi->biHeight, FindDIBBits((LPSTR)lpbmi), (LPBITMAPINFO)lpbmi,
 614     DIB_PAL_COLORS);
 615   DWORD err = GetLastError();
 616
 617   ::ReleaseDC(NULL, dc);
 618
 619   // Delete the DIB
 620   GlobalUnlock (newDIB);
 621   GlobalFree (newDIB);
 622
 623 //  WXHBITMAP hBitmap2 = wxCreateMappedBitmap((WXHINSTANCE) wxGetInstance(), (WXHBITMAP) m_hBitmap);
 624   // Substitute our new bitmap for the old one
 625   ::DeleteObject((HBITMAP) m_hBitmap);
 626   m_hBitmap = (WXHBITMAP) newBitmap;
 627 #endif
 628
 629
 630 #endif