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