]> git.saurik.com Git - wxWidgets.git/blob - src/msw/tbar95.cpp
the modal dialogs restore the focus to the control which had it before the
[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 USE_BUTTONBAR && USE_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
76 BEGIN_EVENT_TABLE(wxToolBar95, wxToolBarBase)
77 EVT_SIZE(wxToolBar95::OnSize)
78 EVT_PAINT(wxToolBar95::OnPaint)
79 EVT_KILL_FOCUS(wxToolBar95::OnKillFocus)
80 EVT_MOUSE_EVENTS(wxToolBar95::OnMouseEvent)
81 EVT_SYS_COLOUR_CHANGED(wxToolBar95::OnSysColourChanged)
82 END_EVENT_TABLE()
83 #endif
84
85 void wxMapBitmap(HBITMAP hBitmap, int width, int height);
86
87 wxToolBar95::wxToolBar95(void)
88 {
89 m_maxWidth = -1;
90 m_maxHeight = -1;
91 m_hBitmap = 0;
92 m_defaultWidth = DEFAULTBITMAPX;
93 m_defaultHeight = DEFAULTBITMAPY;
94 }
95
96 bool wxToolBar95::Create(wxWindow *parent, wxWindowID id, const wxPoint& pos, const wxSize& size,
97 long style, const wxString& name)
98 {
99 m_backgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
100 GetGValue(GetSysColor(COLOR_BTNFACE)), GetBValue(GetSysColor(COLOR_BTNFACE)));
101 m_foregroundColour = *wxBLACK ;
102
103 m_defaultForegroundColour = *wxBLACK ;
104 m_defaultBackgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
105 GetGValue(GetSysColor(COLOR_BTNFACE)), GetBValue(GetSysColor(COLOR_BTNFACE)));
106
107 if (style & wxTB_VERTICAL)
108 wxMessageBox("Sorry, wxToolBar95 under Windows 95 only supports horizontal orientation.", "wxToolBar95 usage", wxOK);
109 m_maxWidth = -1;
110 m_maxHeight = -1;
111
112 m_hBitmap = 0;
113
114 m_defaultWidth = DEFAULTBITMAPX;
115 m_defaultHeight = DEFAULTBITMAPY;
116 SetName(name);
117
118 int x = pos.x;
119 int y = pos.y;
120 int width = size.x;
121 int height = size.y;
122
123 m_windowStyle = style;
124
125 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
126
127 SetParent(parent);
128
129 DWORD msflags = 0;
130 if (style & wxBORDER)
131 msflags |= WS_BORDER;
132 msflags |= WS_CHILD | WS_VISIBLE;
133
134 if (width <= 0)
135 width = 100;
136 if (height <= 0)
137 height = 30;
138 if (x < 0)
139 x = 0;
140 if (y < 0)
141 y = 0;
142
143 m_windowId = (id < 0 ? NewControlId() : id);
144 DWORD msStyle = WS_CHILD | WS_BORDER | WS_VISIBLE | TBSTYLE_TOOLTIPS;
145
146 if (style & wxTB_FLAT)
147 {
148 if (wxTheApp->GetComCtl32Version() > 400)
149 msStyle |= TBSTYLE_FLAT;
150 }
151
152 // Create the toolbar control.
153 HWND hWndToolbar = CreateWindowEx(0L, // No extended styles.
154 TOOLBARCLASSNAME, // Class name for the toolbar.
155 "", // No default text.
156 msStyle, // Styles and defaults.
157 x, y, width, height, // Standard toolbar size and position.
158 (HWND) parent->GetHWND(), // Parent window of the toolbar.
159 (HMENU)m_windowId, // Toolbar ID.
160 wxGetInstance(), // Current instance.
161 NULL ); // No class data.
162
163 // Toolbar-specific initialisation
164 ::SendMessage(hWndToolbar, TB_BUTTONSTRUCTSIZE, (WPARAM)sizeof(TBBUTTON), (LPARAM)0);
165
166 m_hWnd = (WXHWND) hWndToolbar;
167 if (parent) parent->AddChild(this);
168
169 SubclassWin((WXHWND) hWndToolbar);
170
171 return TRUE;
172 }
173
174 wxToolBar95::~wxToolBar95(void)
175 {
176 UnsubclassWin();
177
178 if (m_hBitmap)
179 {
180 ::DeleteObject((HBITMAP) m_hBitmap);
181 m_hBitmap = 0;
182 }
183 }
184
185 bool wxToolBar95::CreateTools(void)
186 {
187 if (m_tools.Number() == 0)
188 return FALSE;
189
190 HBITMAP oldToolBarBitmap = (HBITMAP) m_hBitmap;
191
192 int totalBitmapWidth = (int)(m_defaultWidth * m_tools.Number());
193 int totalBitmapHeight = (int)m_defaultHeight;
194
195 // Create a bitmap for all the tool bitmaps
196 HDC dc = ::GetDC(NULL);
197 m_hBitmap = (WXHBITMAP) ::CreateCompatibleBitmap(dc, totalBitmapWidth, totalBitmapHeight);
198 ::ReleaseDC(NULL, dc);
199
200 // Now blit all the tools onto this bitmap
201 HDC memoryDC = ::CreateCompatibleDC(NULL);
202 HBITMAP oldBitmap = (HBITMAP) ::SelectObject(memoryDC, (HBITMAP) m_hBitmap);
203
204 HDC memoryDC2 = ::CreateCompatibleDC(NULL);
205 int x = 0;
206 wxNode *node = m_tools.First();
207 int noButtons = 0;
208 while (node)
209 {
210 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
211 if ((tool->m_toolStyle != wxTOOL_STYLE_SEPARATOR) && tool->m_bitmap1.Ok() && tool->m_bitmap1.GetHBITMAP())
212 {
213 // wxPalette *palette = tool->m_bitmap1->GetPalette();
214
215 HBITMAP oldBitmap2 = (HBITMAP) ::SelectObject(memoryDC2, (HBITMAP) tool->m_bitmap1.GetHBITMAP());
216 /* int bltResult = */
217 BitBlt(memoryDC, x, 0, (int) m_defaultWidth, (int) m_defaultHeight, memoryDC2,
218 0, 0, SRCCOPY);
219 ::SelectObject(memoryDC2, oldBitmap2);
220 x += (int)m_defaultWidth;
221 noButtons ++;
222 }
223 node = node->Next();
224 }
225 ::SelectObject(memoryDC, oldBitmap);
226 ::DeleteDC(memoryDC);
227 ::DeleteDC(memoryDC2);
228
229 // Map to system colours
230 wxMapBitmap((HBITMAP) m_hBitmap, totalBitmapWidth, totalBitmapHeight);
231
232 if ( oldToolBarBitmap )
233 {
234 TBREPLACEBITMAP replaceBitmap;
235 replaceBitmap.hInstOld = NULL;
236 replaceBitmap.hInstNew = NULL;
237 replaceBitmap.nIDOld = (UINT) oldToolBarBitmap;
238 replaceBitmap.nIDNew = (UINT) (HBITMAP) m_hBitmap;
239 replaceBitmap.nButtons = noButtons;
240 if (::SendMessage((HWND) GetHWND(), TB_REPLACEBITMAP, (WPARAM) 0, (LPARAM) &replaceBitmap) == -1)
241 wxMessageBox("Could not add bitmap to toolbar");
242
243 ::DeleteObject((HBITMAP) oldToolBarBitmap);
244
245 // Now delete all the buttons
246 int i = 0;
247 while ( TRUE )
248 {
249 // TODO: What about separators???? They don't have an id!
250 if ( ! ::SendMessage( (HWND) GetHWND(), TB_DELETEBUTTON, i, 0 ) )
251 break;
252 }
253 }
254 else
255 {
256 TBADDBITMAP addBitmap;
257 addBitmap.hInst = 0;
258 addBitmap.nID = (UINT)m_hBitmap;
259 if (::SendMessage((HWND) GetHWND(), TB_ADDBITMAP, (WPARAM) noButtons, (LPARAM) &addBitmap) == -1)
260 wxMessageBox("Could not add bitmap to toolbar");
261 }
262
263 // Now add the buttons.
264 TBBUTTON buttons[50];
265
266 node = m_tools.First();
267 int i = 0;
268 int bitmapId = 0;
269 while (node)
270 {
271 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
272 if (tool->m_toolStyle == wxTOOL_STYLE_SEPARATOR)
273 {
274 buttons[i].iBitmap = 0;
275 buttons[i].idCommand = 0;
276
277 buttons[i].fsState = TBSTATE_ENABLED;
278 buttons[i].fsStyle = TBSTYLE_SEP;
279 buttons[i].dwData = 0L;
280 buttons[i].iString = 0;
281 }
282 else
283 {
284 buttons[i].iBitmap = bitmapId;
285 buttons[i].idCommand = tool->m_index;
286
287 buttons[i].fsState = 0;
288 if (tool->m_enabled)
289 buttons[i].fsState |= TBSTATE_ENABLED;
290 if (tool->m_toggleState)
291 buttons[i].fsState |= TBSTATE_CHECKED;
292 buttons[i].fsStyle = tool->m_isToggle ? TBSTYLE_CHECK : TBSTYLE_BUTTON;
293 buttons[i].dwData = 0L;
294 buttons[i].iString = 0;
295
296 bitmapId ++;
297 }
298
299 i ++;
300 node = node->Next();
301 }
302
303 int ans = (int)::SendMessage((HWND) GetHWND(), TB_ADDBUTTONS, (WPARAM)i, (LPARAM)& buttons);
304 ans = (int)::SendMessage((HWND) GetHWND(), TB_AUTOSIZE, (WPARAM)0, (LPARAM) 0);
305
306 RECT rect;
307 ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(m_maxRows, TRUE), (LPARAM) & rect);
308 m_maxWidth = (rect.right - rect.left + 2);
309 m_maxHeight = (rect.bottom - rect.top + 2);
310
311 return TRUE;
312 }
313
314 bool wxToolBar95::MSWCommand(WXUINT cmd, WXWORD id)
315 {
316 wxNode *node = m_tools.Find((long)id);
317 if (!node)
318 return FALSE;
319 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
320 if (tool->m_isToggle)
321 tool->m_toggleState = (1 == (1 & (int)::SendMessage((HWND) GetHWND(), TB_GETSTATE, (WPARAM) id, (LPARAM) 0)));
322
323 BOOL ret = OnLeftClick((int)id, tool->m_toggleState);
324 if (ret == FALSE && tool->m_isToggle)
325 {
326 tool->m_toggleState = !tool->m_toggleState;
327 ::SendMessage((HWND) GetHWND(), TB_CHECKBUTTON, (WPARAM)id, (LPARAM)MAKELONG(tool->m_toggleState, 0));
328 }
329 return TRUE;
330 }
331
332 bool wxToolBar95::MSWNotify(WXWPARAM WXUNUSED(wParam), WXLPARAM lParam)
333 {
334 // First check if this applies to us
335 NMHDR *hdr = (NMHDR *)lParam;
336 if (hdr->code != TTN_NEEDTEXT)
337 return FALSE;
338
339 HWND toolTipWnd = (HWND) ::SendMessage((HWND) GetHWND(), TB_GETTOOLTIPS, 0, 0);
340 if ( toolTipWnd != hdr->hwndFrom )
341 return FALSE;
342
343 LPTOOLTIPTEXT ttText = (LPTOOLTIPTEXT) lParam;
344 int id = (int)ttText->hdr.idFrom;
345 wxNode *node = m_tools.Find((long)id);
346 if (!node)
347 return FALSE;
348
349 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
350
351 switch (ttText->hdr.code)
352 {
353 case TTN_NEEDTEXT:
354 {
355 if (tool->m_shortHelpString != "")
356 ttText->lpszText = (char *) (const char *)tool->m_shortHelpString;
357
358 // For backward compatibility...
359 OnMouseEnter(tool->m_index);
360 break;
361 }
362 default:
363 return FALSE;
364 break;
365 }
366
367 return TRUE;
368 }
369
370 void wxToolBar95::SetToolBitmapSize(const wxSize& size)
371 {
372 m_defaultWidth = size.x; m_defaultHeight = size.y;
373 ::SendMessage((HWND) GetHWND(), TB_SETBITMAPSIZE, 0, (LPARAM) MAKELONG ((int)size.x, (int)size.y));
374 }
375
376 void wxToolBar95::SetRows(int nRows)
377 {
378 RECT rect;
379 ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(nRows, TRUE), (LPARAM) & rect);
380 m_maxWidth = (rect.right - rect.left + 2);
381 m_maxHeight = (rect.bottom - rect.top + 2);
382 }
383
384 wxSize wxToolBar95::GetMaxSize(void) const
385 {
386 if (m_maxWidth == -1 | m_maxHeight == -1)
387 {
388 RECT rect;
389 ::SendMessage((HWND) GetHWND(), TB_SETROWS, MAKEWPARAM(m_maxRows, TRUE), (LPARAM) & rect);
390 ((wxToolBar95 *)this)->m_maxWidth = (rect.right - rect.left + 2); // ???
391 ((wxToolBar95 *)this)->m_maxHeight = (rect.bottom - rect.top + 2); // ???
392 }
393 return wxSize(m_maxWidth, m_maxHeight);
394 }
395
396 void wxToolBar95::GetSize(int *w, int *h) const
397 {
398 wxWindow::GetSize(w, h);
399 // For some reason, the returned height is several pixels bigger than that
400 // displayed!
401 *h -= 2;
402 }
403
404 // The button size is bigger than the bitmap size
405 wxSize wxToolBar95::GetToolSize(void) const
406 {
407 return wxSize(m_defaultWidth + 8, m_defaultHeight + 7);
408 }
409
410 void wxToolBar95::EnableTool(int toolIndex, bool enable)
411 {
412 wxNode *node = m_tools.Find((long)toolIndex);
413 if (node)
414 {
415 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
416 tool->m_enabled = enable;
417 ::SendMessage((HWND) GetHWND(), TB_ENABLEBUTTON, (WPARAM)toolIndex, (LPARAM)MAKELONG(enable, 0));
418 }
419 }
420
421 void wxToolBar95::ToggleTool(int toolIndex, bool toggle)
422 {
423 wxNode *node = m_tools.Find((long)toolIndex);
424 if (node)
425 {
426 wxToolBarTool *tool = (wxToolBarTool *)node->Data();
427 if (tool->m_isToggle)
428 {
429 tool->m_toggleState = toggle;
430 ::SendMessage((HWND) GetHWND(), TB_CHECKBUTTON, (WPARAM)toolIndex, (LPARAM)MAKELONG(toggle, 0));
431 }
432 }
433 }
434
435 void wxToolBar95::ClearTools(void)
436 {
437 // TODO: Don't know how to reset the toolbar bitmap, as yet.
438 // But adding tools and calling CreateTools should probably
439 // recreate a buttonbar OK.
440 wxToolBarBase::ClearTools();
441 }
442
443 // If pushedBitmap is NULL, a reversed version of bitmap is
444 // created and used as the pushed/toggled image.
445 // If toggle is TRUE, the button toggles between the two states.
446 wxToolBarTool *wxToolBar95::AddTool(int index, const wxBitmap& bitmap, const wxBitmap& pushedBitmap,
447 bool toggle, long xPos, long yPos, wxObject *clientData, const wxString& helpString1, const wxString& helpString2)
448 {
449 wxToolBarTool *tool = new wxToolBarTool(index, bitmap, (wxBitmap *)NULL, toggle, xPos, yPos, helpString1, helpString2);
450 tool->m_clientData = clientData;
451
452 if (xPos > -1)
453 tool->m_x = xPos;
454 else
455 tool->m_x = m_xMargin;
456
457 if (yPos > -1)
458 tool->m_y = yPos;
459 else
460 tool->m_y = m_yMargin;
461
462 tool->SetSize(GetDefaultButtonWidth(), GetDefaultButtonHeight());
463
464 m_tools.Append((long)index, tool);
465 return tool;
466 }
467
468 // Responds to colour changes, and passes event on to children.
469 void wxToolBar95::OnSysColourChanged(wxSysColourChangedEvent& event)
470 {
471 m_backgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
472 GetGValue(GetSysColor(COLOR_BTNFACE)), GetBValue(GetSysColor(COLOR_BTNFACE)));
473 m_defaultBackgroundColour = wxColour(GetRValue(GetSysColor(COLOR_BTNFACE)),
474 GetGValue(GetSysColor(COLOR_BTNFACE)), GetBValue(GetSysColor(COLOR_BTNFACE)));
475
476 // Remap the buttons
477 CreateTools();
478
479 Default();
480
481 Refresh();
482
483 // Propagate the event to the non-top-level children
484 wxWindow::OnSysColourChanged(event);
485 }
486
487 // These are the default colors used to map the bitmap colors
488 // to the current system colors
489
490 #define BGR_BUTTONTEXT (RGB(000,000,000)) // black
491 #define BGR_BUTTONSHADOW (RGB(128,128,128)) // dark grey
492 #define BGR_BUTTONFACE (RGB(192,192,192)) // bright grey
493 #define BGR_BUTTONHILIGHT (RGB(255,255,255)) // white
494 #define BGR_BACKGROUNDSEL (RGB(255,000,000)) // blue
495 #define BGR_BACKGROUND (RGB(255,000,255)) // magenta
496
497 void wxMapBitmap(HBITMAP hBitmap, int width, int height)
498 {
499 COLORMAP ColorMap[] = {
500 {BGR_BUTTONTEXT, COLOR_BTNTEXT}, // black
501 {BGR_BUTTONSHADOW, COLOR_BTNSHADOW}, // dark grey
502 {BGR_BUTTONFACE, COLOR_BTNFACE}, // bright grey
503 {BGR_BUTTONHILIGHT, COLOR_BTNHIGHLIGHT},// white
504 {BGR_BACKGROUNDSEL, COLOR_HIGHLIGHT}, // blue
505 {BGR_BACKGROUND, COLOR_WINDOW} // magenta
506 };
507
508 int NUM_MAPS = (sizeof(ColorMap)/sizeof(COLORMAP));
509 int n;
510 for ( n = 0; n < NUM_MAPS; n++)
511 {
512 ColorMap[n].to = ::GetSysColor(ColorMap[n].to);
513 }
514
515 HBITMAP hbmOld;
516 HDC hdcMem = CreateCompatibleDC(NULL);
517
518 if (hdcMem)
519 {
520 hbmOld = (HBITMAP) SelectObject(hdcMem, hBitmap);
521
522 int i, j, k;
523 for ( i = 0; i < width; i++)
524 {
525 for ( j = 0; j < height; j++)
526 {
527 COLORREF pixel = ::GetPixel(hdcMem, i, j);
528 /*
529 BYTE red = GetRValue(pixel);
530 BYTE green = GetGValue(pixel);
531 BYTE blue = GetBValue(pixel);
532 */
533
534 for ( k = 0; k < NUM_MAPS; k ++)
535 {
536 if ( ColorMap[k].from == pixel )
537 {
538 /* COLORREF actualPixel = */ ::SetPixel(hdcMem, i, j, ColorMap[k].to);
539 break;
540 }
541 }
542 }
543 }
544
545
546 SelectObject(hdcMem, hbmOld);
547 DeleteObject(hdcMem);
548 }
549
550 }
551
552 // Some experiments...
553 #if 0
554 // What we want to do is create another bitmap which has a depth of 4,
555 // and set the bits. So probably we want to convert this HBITMAP into a
556 // DIB, then call SetDIBits.
557 // AAAGH. The stupid thing is that if newBitmap has a depth of 4 (less than that of
558 // the screen), then SetDIBits fails.
559 HBITMAP newBitmap = ::CreateBitmap(totalBitmapWidth, totalBitmapHeight, 1, 4, NULL);
560 HANDLE newDIB = ::BitmapToDIB((HBITMAP) m_hBitmap, NULL);
561 LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) GlobalLock(newDIB);
562
563 dc = ::GetDC(NULL);
564 // LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) newDIB;
565
566 int result = ::SetDIBits(dc, newBitmap, 0, lpbmi->biHeight, FindDIBBits((LPSTR)lpbmi), (LPBITMAPINFO)lpbmi,
567 DIB_PAL_COLORS);
568 DWORD err = GetLastError();
569
570 ::ReleaseDC(NULL, dc);
571
572 // Delete the DIB
573 GlobalUnlock (newDIB);
574 GlobalFree (newDIB);
575
576 // WXHBITMAP hBitmap2 = wxCreateMappedBitmap((WXHINSTANCE) wxGetInstance(), (WXHBITMAP) m_hBitmap);
577 // Substitute our new bitmap for the old one
578 ::DeleteObject((HBITMAP) m_hBitmap);
579 m_hBitmap = (WXHBITMAP) newBitmap;
580 #endif
581
582
583 #endif