]> git.saurik.com Git - wxWidgets.git/blob - src/msw/tbar95.cpp
toolbar tooltips fix
[wxWidgets.git] / 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.h"
25 #endif
26
27 #if wxUSE_BUTTONBAR && wxUSE_TOOLBAR && defined(__WIN95__)
28
29 #ifndef __GNUWIN32__
30 #include "malloc.h"
31 #endif
32
33 #include <windows.h>
34
35 #ifndef __GNUWIN32__
36 #include <commctrl.h>
37 #endif
38
39 #ifdef __GNUWIN32__
40 #include "wx/msw/gnuwin32/extra.h"
41 #endif
42
43 #include "wx/msw/dib.h"
44 #include "wx/tbar95.h"
45 #include "wx/app.h"
46 #include "wx/msw/private.h"
47
48 // Styles
49 #ifndef TBSTYLE_FLAT
50 #define TBSTYLE_LIST 0x1000
51 #define TBSTYLE_FLAT 0x0800
52 #define TBSTYLE_TRANSPARENT 0x8000
53 #endif
54 // use TBSTYLE_TRANSPARENT if you use TBSTYLE_FLAT
55
56 // Messages
57 #ifndef TB_GETSTYLE
58 #define TB_GETSTYLE (WM_USER + 57)
59 #define TB_SETSTYLE (WM_USER + 56)
60 #endif
61
62 /* Hint from a newsgroup for custom flatbar drawing:
63 Set the TBSTYLE_CUSTOMERASE style, then handle the
64 NM_CUSTOMDRAW message and do your custom drawing.
65 */
66
67 #define DEFAULTBITMAPX 16
68 #define DEFAULTBITMAPY 15
69 #define DEFAULTBUTTONX 24
70 #define DEFAULTBUTTONY 24
71 #define DEFAULTBARHEIGHT 27
72
73 #if !USE_SHARED_LIBRARY
74 IMPLEMENT_DYNAMIC_CLASS(wxToolBar95, wxToolBarBase)
75 #endif
76
77 BEGIN_EVENT_TABLE(wxToolBar95, wxToolBarBase)
78 #if 0 // it seems like none of these functions does anything anyhow
79 EVT_SIZE(wxToolBar95::OnSize)
80 EVT_PAINT(wxToolBar95::OnPaint)
81 EVT_KILL_FOCUS(wxToolBar95::OnKillFocus)
82 EVT_MOUSE_EVENTS(wxToolBar95::OnMouseEvent)
83 #endif // 0
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 size_t lenUnicode = mbstowcs(NULL, tool->m_shortHelpString, lenAnsi);
378 wchar_t *pwz = new wchar_t[lenUnicode + 1];
379 mbstowcs(pwz, tool->m_shortHelpString, lenAnsi + 1);
380 memcpy(ttText->szText, pwz,
381 (sizeof(ttText->szText) - 1)/sizeof(ttText->szText[0]));
382 ttText->szText[WXSIZEOF(ttText->szText)] = 0;
383
384 delete [] pwz;
385 }
386 #endif // _WIN32_IE >= 0x0300
387 }
388
389 // For backward compatibility...
390 OnMouseEnter(tool->m_index);
391
392 return TRUE;
393 }
394
395 void wxToolBar95::SetToolBitmapSize(const wxSize& size)
396 {
397 m_defaultWidth = size.x;
398 m_defaultHeight = size.y;
399 ::SendMessage((HWND) GetHWND(), TB_SETBITMAPSIZE, 0, (LPARAM) MAKELONG ((int)size.x, (int)size.y));
400 }
401
402 void wxToolBar95::SetRows(int nRows)
403 {
404 RECT rect;
405 ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(nRows, TRUE), (LPARAM) & rect);
406 m_maxWidth = (rect.right - rect.left + 2);
407 m_maxHeight = (rect.bottom - rect.top + 2);
408 }
409
410 wxSize wxToolBar95::GetMaxSize() const
411 {
412 if ((m_maxWidth == -1) || (m_maxHeight == -1))
413 {
414 RECT rect;
415 ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(m_maxRows, TRUE), (LPARAM) & rect);
416 ((wxToolBar95 *)this)->m_maxWidth = (rect.right - rect.left + 2); // ???
417 ((wxToolBar95 *)this)->m_maxHeight = (rect.bottom - rect.top + 2); // ???
418 }
419 return wxSize(m_maxWidth, m_maxHeight);
420 }
421
422 void wxToolBar95::GetSize(int *w, int *h) const
423 {
424 wxWindow::GetSize(w, h);
425 // For some reason, the returned height is several pixels bigger than that
426 // displayed!
427 *h -= 2;
428 }
429
430 // The button size is bigger than the bitmap size
431 wxSize wxToolBar95::GetToolSize() const
432 {
433 return wxSize(m_defaultWidth + 8, m_defaultHeight + 7);
434 }
435
436 void wxToolBar95::EnableTool(int toolIndex, bool enable)
437 {
438 wxNode *node = m_tools.Find((long)toolIndex);
439 if (node)
440 {
441 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
442 tool->m_enabled = enable;
443 ::SendMessage((HWND) GetHWND(), TB_ENABLEBUTTON, (WPARAM)toolIndex, (LPARAM)MAKELONG(enable, 0));
444 }
445 }
446
447 void wxToolBar95::ToggleTool(int toolIndex, bool toggle)
448 {
449 wxNode *node = m_tools.Find((long)toolIndex);
450 if (node)
451 {
452 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
453 if (tool->m_isToggle)
454 {
455 tool->m_toggleState = toggle;
456 ::SendMessage((HWND) GetHWND(), TB_CHECKBUTTON, (WPARAM)toolIndex, (LPARAM)MAKELONG(toggle, 0));
457 }
458 }
459 }
460
461 bool wxToolBar95::GetToolState(int toolIndex) const
462 {
463 return (::SendMessage((HWND) GetHWND(), TB_ISBUTTONCHECKED, (WPARAM)toolIndex, (LPARAM)0) != 0);
464 }
465
466 void wxToolBar95::ClearTools()
467 {
468 // TODO: Don't know how to reset the toolbar bitmap, as yet.
469 // But adding tools and calling CreateTools should probably
470 // recreate a buttonbar OK.
471 wxToolBarBase::ClearTools();
472 }
473
474 // If pushedBitmap is NULL, a reversed version of bitmap is
475 // created and used as the pushed/toggled image.
476 // If toggle is TRUE, the button toggles between the two states.
477 wxToolBarTool *wxToolBar95::AddTool(int index, const wxBitmap& bitmap, const wxBitmap& pushedBitmap,
478 bool toggle, long xPos, long yPos, wxObject *clientData, const wxString& helpString1, const wxString& helpString2)
479 {
480 wxToolBarTool *tool = new wxToolBarTool(index, bitmap, wxNullBitmap, toggle, xPos, yPos, helpString1, helpString2);
481 tool->m_clientData = clientData;
482
483 if (xPos > -1)
484 tool->m_x = xPos;
485 else
486 tool->m_x = m_xMargin;
487
488 if (yPos > -1)
489 tool->m_y = yPos;
490 else
491 tool->m_y = m_yMargin;
492
493 tool->SetSize(GetDefaultButtonWidth(), GetDefaultButtonHeight());
494
495 m_tools.Append((long)index, tool);
496 return tool;
497 }
498
499 // Responds to colour changes, and passes event on to children.
500 void wxToolBar95::OnSysColourChanged(wxSysColourChangedEvent& event)
501 {
502 m_backgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
503 GetGValue(GetSysColor(COLOR_BTNFACE)), GetBValue(GetSysColor(COLOR_BTNFACE)));
504
505 // Remap the buttons
506 CreateTools();
507
508 Default();
509
510 Refresh();
511
512 // Propagate the event to the non-top-level children
513 wxWindow::OnSysColourChanged(event);
514 }
515
516 // These are the default colors used to map the bitmap colors
517 // to the current system colors
518
519 #define BGR_BUTTONTEXT (RGB(000,000,000)) // black
520 #define BGR_BUTTONSHADOW (RGB(128,128,128)) // dark grey
521 #define BGR_BUTTONFACE (RGB(192,192,192)) // bright grey
522 #define BGR_BUTTONHILIGHT (RGB(255,255,255)) // white
523 #define BGR_BACKGROUNDSEL (RGB(255,000,000)) // blue
524 #define BGR_BACKGROUND (RGB(255,000,255)) // magenta
525
526 void wxMapBitmap(HBITMAP hBitmap, int width, int height)
527 {
528 COLORMAP ColorMap[] = {
529 {BGR_BUTTONTEXT, COLOR_BTNTEXT}, // black
530 {BGR_BUTTONSHADOW, COLOR_BTNSHADOW}, // dark grey
531 {BGR_BUTTONFACE, COLOR_BTNFACE}, // bright grey
532 {BGR_BUTTONHILIGHT, COLOR_BTNHIGHLIGHT},// white
533 {BGR_BACKGROUNDSEL, COLOR_HIGHLIGHT}, // blue
534 {BGR_BACKGROUND, COLOR_WINDOW} // magenta
535 };
536
537 int NUM_MAPS = (sizeof(ColorMap)/sizeof(COLORMAP));
538 int n;
539 for ( n = 0; n < NUM_MAPS; n++)
540 {
541 ColorMap[n].to = ::GetSysColor(ColorMap[n].to);
542 }
543
544 HBITMAP hbmOld;
545 HDC hdcMem = CreateCompatibleDC(NULL);
546
547 if (hdcMem)
548 {
549 hbmOld = (HBITMAP) SelectObject(hdcMem, hBitmap);
550
551 int i, j, k;
552 for ( i = 0; i < width; i++)
553 {
554 for ( j = 0; j < height; j++)
555 {
556 COLORREF pixel = ::GetPixel(hdcMem, i, j);
557 /*
558 BYTE red = GetRValue(pixel);
559 BYTE green = GetGValue(pixel);
560 BYTE blue = GetBValue(pixel);
561 */
562
563 for ( k = 0; k < NUM_MAPS; k ++)
564 {
565 if ( ColorMap[k].from == pixel )
566 {
567 /* COLORREF actualPixel = */ ::SetPixel(hdcMem, i, j, ColorMap[k].to);
568 break;
569 }
570 }
571 }
572 }
573
574
575 SelectObject(hdcMem, hbmOld);
576 DeleteObject(hdcMem);
577 }
578
579 }
580
581 // Some experiments...
582 #if 0
583 // What we want to do is create another bitmap which has a depth of 4,
584 // and set the bits. So probably we want to convert this HBITMAP into a
585 // DIB, then call SetDIBits.
586 // AAAGH. The stupid thing is that if newBitmap has a depth of 4 (less than that of
587 // the screen), then SetDIBits fails.
588 HBITMAP newBitmap = ::CreateBitmap(totalBitmapWidth, totalBitmapHeight, 1, 4, NULL);
589 HANDLE newDIB = ::BitmapToDIB((HBITMAP) m_hBitmap, NULL);
590 LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) GlobalLock(newDIB);
591
592 dc = ::GetDC(NULL);
593 // LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) newDIB;
594
595 int result = ::SetDIBits(dc, newBitmap, 0, lpbmi->biHeight, FindDIBBits((LPSTR)lpbmi), (LPBITMAPINFO)lpbmi,
596 DIB_PAL_COLORS);
597 DWORD err = GetLastError();
598
599 ::ReleaseDC(NULL, dc);
600
601 // Delete the DIB
602 GlobalUnlock (newDIB);
603 GlobalFree (newDIB);
604
605 // WXHBITMAP hBitmap2 = wxCreateMappedBitmap((WXHINSTANCE) wxGetInstance(), (WXHBITMAP) m_hBitmap);
606 // Substitute our new bitmap for the old one
607 ::DeleteObject((HBITMAP) m_hBitmap);
608 m_hBitmap = (WXHBITMAP) newBitmap;
609 #endif
610
611
612 #endif