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