1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: wxToolBar95
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "tbar95.h"
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
27 #if USE_BUTTONBAR && USE_TOOLBAR && defined(__WIN95__)
40 #include "wx/msw/gnuwin32/extra.h"
43 #include "wx/msw/dib.h"
44 #include "wx/tbar95.h"
46 #include "wx/msw/private.h"
50 #define TBSTYLE_LIST 0x1000
51 #define TBSTYLE_FLAT 0x0800
52 #define TBSTYLE_TRANSPARENT 0x8000
54 // use TBSTYLE_TRANSPARENT if you use TBSTYLE_FLAT
58 #define TB_GETSTYLE (WM_USER + 57)
59 #define TB_SETSTYLE (WM_USER + 56)
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.
67 #define DEFAULTBITMAPX 16
68 #define DEFAULTBITMAPY 15
69 #define DEFAULTBUTTONX 24
70 #define DEFAULTBUTTONY 24
71 #define DEFAULTBARHEIGHT 27
73 #if !USE_SHARED_LIBRARY
74 IMPLEMENT_DYNAMIC_CLASS(wxToolBar95
, wxToolBarBase
)
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
)
85 void wxMapBitmap(HBITMAP hBitmap
, int width
, int height
);
87 wxToolBar95::wxToolBar95(void)
92 m_defaultWidth
= DEFAULTBITMAPX
;
93 m_defaultHeight
= DEFAULTBITMAPY
;
96 bool wxToolBar95::Create(wxWindow
*parent
, wxWindowID id
, const wxPoint
& pos
, const wxSize
& size
,
97 long style
, const wxString
& name
)
99 m_backgroundColour
= wxColour(GetRValue(GetSysColor(COLOR_BTNFACE
)),
100 GetGValue(GetSysColor(COLOR_BTNFACE
)), GetBValue(GetSysColor(COLOR_BTNFACE
)));
101 m_foregroundColour
= *wxBLACK
;
103 m_defaultForegroundColour
= *wxBLACK
;
104 m_defaultBackgroundColour
= wxColour(GetRValue(GetSysColor(COLOR_BTNFACE
)),
105 GetGValue(GetSysColor(COLOR_BTNFACE
)), GetBValue(GetSysColor(COLOR_BTNFACE
)));
107 if (style
& wxTB_VERTICAL
)
108 wxMessageBox("Sorry, wxToolBar95 under Windows 95 only supports vertical tiling.", "wxToolBar95 usage", wxOK
);
114 m_defaultWidth
= DEFAULTBITMAPX
;
115 m_defaultHeight
= DEFAULTBITMAPY
;
123 m_windowStyle
= style
;
125 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT
));
130 if (style
& wxBORDER
)
131 msflags
|= WS_BORDER
;
132 msflags
|= WS_CHILD
| WS_VISIBLE
;
143 m_windowId
= (id
< 0 ? NewControlId() : id
);
144 DWORD msStyle
= WS_CHILD
| WS_BORDER
| WS_VISIBLE
| TBSTYLE_TOOLTIPS
;
146 if (style
& wxTB_FLAT
)
148 if (wxTheApp
->GetComCtl32Version() > 400)
149 msStyle
|= TBSTYLE_FLAT
;
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.
163 // Toolbar-specific initialisation
164 ::SendMessage(hWndToolbar
, TB_BUTTONSTRUCTSIZE
, (WPARAM
)sizeof(TBBUTTON
), (LPARAM
)0);
166 m_hWnd
= (WXHWND
) hWndToolbar
;
167 if (parent
) parent
->AddChild(this);
169 SubclassWin((WXHWND
) hWndToolbar
);
174 wxToolBar95::~wxToolBar95(void)
180 ::DeleteObject((HBITMAP
) m_hBitmap
);
185 bool wxToolBar95::CreateTools(void)
187 if (m_tools
.Number() == 0)
190 HBITMAP oldToolBarBitmap
= (HBITMAP
) m_hBitmap
;
192 int totalBitmapWidth
= (int)(m_defaultWidth
* m_tools
.Number());
193 int totalBitmapHeight
= (int)m_defaultHeight
;
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
);
200 // Now blit all the tools onto this bitmap
201 HDC memoryDC
= ::CreateCompatibleDC(NULL
);
202 HBITMAP oldBitmap
= (HBITMAP
) ::SelectObject(memoryDC
, (HBITMAP
) m_hBitmap
);
204 HDC memoryDC2
= ::CreateCompatibleDC(NULL
);
206 wxNode
*node
= m_tools
.First();
210 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
211 if ((tool
->m_toolStyle
!= wxTOOL_STYLE_SEPARATOR
) && tool
->m_bitmap1
.Ok() && tool
->m_bitmap1
.GetHBITMAP())
213 // wxPalette *palette = tool->m_bitmap1->GetPalette();
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
,
219 ::SelectObject(memoryDC2
, oldBitmap2
);
220 x
+= (int)m_defaultWidth
;
225 ::SelectObject(memoryDC
, oldBitmap
);
226 ::DeleteDC(memoryDC
);
227 ::DeleteDC(memoryDC2
);
229 // Map to system colours
230 wxMapBitmap((HBITMAP
) m_hBitmap
, totalBitmapWidth
, totalBitmapHeight
);
232 if ( oldToolBarBitmap
)
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");
243 ::DeleteObject((HBITMAP
) oldToolBarBitmap
);
245 // Now delete all the buttons
249 // TODO: What about separators???? They don't have an id!
250 if ( ! ::SendMessage( (HWND
) GetHWND(), TB_DELETEBUTTON
, i
, 0 ) )
256 TBADDBITMAP addBitmap
;
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");
263 // Now add the buttons.
264 TBBUTTON buttons
[50];
266 node
= m_tools
.First();
271 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
272 if (tool
->m_toolStyle
== wxTOOL_STYLE_SEPARATOR
)
274 buttons
[i
].iBitmap
= 0;
275 buttons
[i
].idCommand
= 0;
277 buttons
[i
].fsState
= TBSTATE_ENABLED
;
278 buttons
[i
].fsStyle
= TBSTYLE_SEP
;
279 buttons
[i
].dwData
= 0L;
280 buttons
[i
].iString
= 0;
284 buttons
[i
].iBitmap
= bitmapId
;
285 buttons
[i
].idCommand
= tool
->m_index
;
287 buttons
[i
].fsState
= 0;
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;
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);
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);
314 bool wxToolBar95::MSWCommand(WXUINT cmd
, WXWORD id
)
316 wxNode
*node
= m_tools
.Find((long)id
);
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)));
323 BOOL ret
= OnLeftClick((int)id
, tool
->m_toggleState
);
324 if (ret
== FALSE
&& tool
->m_isToggle
)
326 tool
->m_toggleState
= !tool
->m_toggleState
;
327 ::SendMessage((HWND
) GetHWND(), TB_CHECKBUTTON
, (WPARAM
)id
, (LPARAM
)MAKELONG(tool
->m_toggleState
, 0));
332 bool wxToolBar95::MSWNotify(WXWPARAM
WXUNUSED(wParam
), WXLPARAM lParam
)
334 // First check if this applies to us
335 NMHDR
*hdr
= (NMHDR
*)lParam
;
336 if (hdr
->code
!= TTN_NEEDTEXT
)
339 HWND toolTipWnd
= (HWND
) ::SendMessage((HWND
) GetHWND(), TB_GETTOOLTIPS
, 0, 0);
340 if ( toolTipWnd
!= hdr
->hwndFrom
)
343 LPTOOLTIPTEXT ttText
= (LPTOOLTIPTEXT
) lParam
;
344 int id
= (int)ttText
->hdr
.idFrom
;
345 wxNode
*node
= m_tools
.Find((long)id
);
349 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
351 switch (ttText
->hdr
.code
)
355 if (tool
->m_shortHelpString
!= "")
356 ttText
->lpszText
= (char *) (const char *)tool
->m_shortHelpString
;
358 // For backward compatibility...
359 OnMouseEnter(tool
->m_index
);
370 void wxToolBar95::SetToolBitmapSize(const wxSize
& size
)
372 m_defaultWidth
= size
.x
; m_defaultHeight
= size
.y
;
373 ::SendMessage((HWND
) GetHWND(), TB_SETBITMAPSIZE
, 0, (LPARAM
) MAKELONG ((int)size
.x
, (int)size
.y
));
376 void wxToolBar95::SetRows(int nRows
)
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);
384 wxSize
wxToolBar95::GetMaxSize(void) const
386 if (m_maxWidth
== -1 | m_maxHeight
== -1)
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); // ???
393 return wxSize(m_maxWidth
, m_maxHeight
);
396 void wxToolBar95::GetSize(int *w
, int *h
) const
398 wxWindow::GetSize(w
, h
);
399 // For some reason, the returned height is several pixels bigger than that
404 // The button size is bigger than the bitmap size
405 wxSize
wxToolBar95::GetToolSize(void) const
407 return wxSize(m_defaultWidth
+ 8, m_defaultHeight
+ 7);
410 void wxToolBar95::EnableTool(int toolIndex
, bool enable
)
412 wxNode
*node
= m_tools
.Find((long)toolIndex
);
415 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
416 tool
->m_enabled
= enable
;
417 ::SendMessage((HWND
) GetHWND(), TB_ENABLEBUTTON
, (WPARAM
)toolIndex
, (LPARAM
)MAKELONG(enable
, 0));
421 void wxToolBar95::ToggleTool(int toolIndex
, bool toggle
)
423 wxNode
*node
= m_tools
.Find((long)toolIndex
);
426 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
427 if (tool
->m_isToggle
)
429 tool
->m_toggleState
= toggle
;
430 ::SendMessage((HWND
) GetHWND(), TB_CHECKBUTTON
, (WPARAM
)toolIndex
, (LPARAM
)MAKELONG(toggle
, 0));
435 void wxToolBar95::ClearTools(void)
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();
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
)
449 wxToolBarTool
*tool
= new wxToolBarTool(index
, bitmap
, (wxBitmap
*)NULL
, toggle
, xPos
, yPos
, helpString1
, helpString2
);
450 tool
->m_clientData
= clientData
;
455 tool
->m_x
= m_xMargin
;
460 tool
->m_y
= m_yMargin
;
462 tool
->SetSize(GetDefaultButtonWidth(), GetDefaultButtonHeight());
464 m_tools
.Append((long)index
, tool
);
468 // Responds to colour changes, and passes event on to children.
469 void wxToolBar95::OnSysColourChanged(wxSysColourChangedEvent
& event
)
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
)));
483 // Propagate the event to the non-top-level children
484 wxWindow::OnSysColourChanged(event
);
487 // These are the default colors used to map the bitmap colors
488 // to the current system colors
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
497 void wxMapBitmap(HBITMAP hBitmap
, int width
, int height
)
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
508 int NUM_MAPS
= (sizeof(ColorMap
)/sizeof(COLORMAP
));
510 for ( n
= 0; n
< NUM_MAPS
; n
++)
512 ColorMap
[n
].to
= ::GetSysColor(ColorMap
[n
].to
);
516 HDC hdcMem
= CreateCompatibleDC(NULL
);
520 hbmOld
= (HBITMAP
) SelectObject(hdcMem
, hBitmap
);
523 for ( i
= 0; i
< width
; i
++)
525 for ( j
= 0; j
< height
; j
++)
527 COLORREF pixel
= ::GetPixel(hdcMem
, i
, j
);
529 BYTE red = GetRValue(pixel);
530 BYTE green = GetGValue(pixel);
531 BYTE blue = GetBValue(pixel);
534 for ( k
= 0; k
< NUM_MAPS
; k
++)
536 if ( ColorMap
[k
].from
== pixel
)
538 /* COLORREF actualPixel = */ ::SetPixel(hdcMem
, i
, j
, ColorMap
[k
].to
);
546 SelectObject(hdcMem
, hbmOld
);
547 DeleteObject(hdcMem
);
552 // Some experiments...
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
);
564 // LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) newDIB;
566 int result
= ::SetDIBits(dc
, newBitmap
, 0, lpbmi
->biHeight
, FindDIBBits((LPSTR
)lpbmi
), (LPBITMAPINFO
)lpbmi
,
568 DWORD err
= GetLastError();
570 ::ReleaseDC(NULL
, dc
);
573 GlobalUnlock (newDIB
);
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
;