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 wxUSE_BUTTONBAR && wxUSE_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 if (style
& wxTB_VERTICAL
)
104 wxMessageBox("Sorry, wxToolBar95 under Windows 95 only supports horizontal orientation.", "wxToolBar95 usage", wxOK
);
110 m_defaultWidth
= DEFAULTBITMAPX
;
111 m_defaultHeight
= DEFAULTBITMAPY
;
119 m_windowStyle
= style
;
121 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT
));
126 if (style
& wxBORDER
)
127 msflags
|= WS_BORDER
;
128 msflags
|= WS_CHILD
| WS_VISIBLE
;
139 m_windowId
= (id
< 0 ? NewControlId() : id
);
140 DWORD msStyle
= WS_CHILD
| WS_BORDER
| WS_VISIBLE
| TBSTYLE_TOOLTIPS
;
142 if (style
& wxTB_FLAT
)
144 if (wxTheApp
->GetComCtl32Version() > 400)
145 msStyle
|= TBSTYLE_FLAT
;
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.
159 // Toolbar-specific initialisation
160 ::SendMessage(hWndToolbar
, TB_BUTTONSTRUCTSIZE
, (WPARAM
)sizeof(TBBUTTON
), (LPARAM
)0);
162 m_hWnd
= (WXHWND
) hWndToolbar
;
163 if (parent
) parent
->AddChild(this);
165 SubclassWin((WXHWND
) hWndToolbar
);
170 wxToolBar95::~wxToolBar95(void)
176 ::DeleteObject((HBITMAP
) m_hBitmap
);
181 bool wxToolBar95::CreateTools(void)
183 if (m_tools
.Number() == 0)
186 HBITMAP oldToolBarBitmap
= (HBITMAP
) m_hBitmap
;
188 int totalBitmapWidth
= (int)(m_defaultWidth
* m_tools
.Number());
189 int totalBitmapHeight
= (int)m_defaultHeight
;
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
);
196 // Now blit all the tools onto this bitmap
197 HDC memoryDC
= ::CreateCompatibleDC(NULL
);
198 HBITMAP oldBitmap
= (HBITMAP
) ::SelectObject(memoryDC
, (HBITMAP
) m_hBitmap
);
200 HDC memoryDC2
= ::CreateCompatibleDC(NULL
);
202 wxNode
*node
= m_tools
.First();
206 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
207 if ((tool
->m_toolStyle
!= wxTOOL_STYLE_SEPARATOR
) && tool
->m_bitmap1
.Ok() && tool
->m_bitmap1
.GetHBITMAP())
209 // wxPalette *palette = tool->m_bitmap1->GetPalette();
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
,
215 ::SelectObject(memoryDC2
, oldBitmap2
);
216 x
+= (int)m_defaultWidth
;
221 ::SelectObject(memoryDC
, oldBitmap
);
222 ::DeleteDC(memoryDC
);
223 ::DeleteDC(memoryDC2
);
225 // Map to system colours
226 wxMapBitmap((HBITMAP
) m_hBitmap
, totalBitmapWidth
, totalBitmapHeight
);
228 if ( oldToolBarBitmap
)
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");
239 ::DeleteObject((HBITMAP
) oldToolBarBitmap
);
241 // Now delete all the buttons
245 // TODO: What about separators???? They don't have an id!
246 if ( ! ::SendMessage( (HWND
) GetHWND(), TB_DELETEBUTTON
, i
, 0 ) )
252 TBADDBITMAP addBitmap
;
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");
259 // Now add the buttons.
260 TBBUTTON buttons
[50];
262 node
= m_tools
.First();
267 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
268 if (tool
->m_toolStyle
== wxTOOL_STYLE_SEPARATOR
)
270 buttons
[i
].iBitmap
= 0;
271 buttons
[i
].idCommand
= 0;
273 buttons
[i
].fsState
= TBSTATE_ENABLED
;
274 buttons
[i
].fsStyle
= TBSTYLE_SEP
;
275 buttons
[i
].dwData
= 0L;
276 buttons
[i
].iString
= 0;
280 buttons
[i
].iBitmap
= bitmapId
;
281 buttons
[i
].idCommand
= tool
->m_index
;
283 buttons
[i
].fsState
= 0;
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;
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);
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);
310 bool wxToolBar95::MSWCommand(WXUINT cmd
, WXWORD id
)
312 wxNode
*node
= m_tools
.Find((long)id
);
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)));
319 BOOL ret
= OnLeftClick((int)id
, tool
->m_toggleState
);
320 if (ret
== FALSE
&& tool
->m_isToggle
)
322 tool
->m_toggleState
= !tool
->m_toggleState
;
323 ::SendMessage((HWND
) GetHWND(), TB_CHECKBUTTON
, (WPARAM
)id
, (LPARAM
)MAKELONG(tool
->m_toggleState
, 0));
328 bool wxToolBar95::MSWNotify(WXWPARAM
WXUNUSED(wParam
), WXLPARAM lParam
)
330 // First check if this applies to us
331 NMHDR
*hdr
= (NMHDR
*)lParam
;
332 if (hdr
->code
!= TTN_NEEDTEXT
)
335 HWND toolTipWnd
= (HWND
) ::SendMessage((HWND
) GetHWND(), TB_GETTOOLTIPS
, 0, 0);
336 if ( toolTipWnd
!= hdr
->hwndFrom
)
339 LPTOOLTIPTEXT ttText
= (LPTOOLTIPTEXT
) lParam
;
340 int id
= (int)ttText
->hdr
.idFrom
;
341 wxNode
*node
= m_tools
.Find((long)id
);
345 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
347 switch (ttText
->hdr
.code
)
351 if (tool
->m_shortHelpString
!= "")
352 ttText
->lpszText
= (char *) (const char *)tool
->m_shortHelpString
;
354 // For backward compatibility...
355 OnMouseEnter(tool
->m_index
);
366 void wxToolBar95::SetToolBitmapSize(const wxSize
& size
)
368 m_defaultWidth
= size
.x
; m_defaultHeight
= size
.y
;
369 ::SendMessage((HWND
) GetHWND(), TB_SETBITMAPSIZE
, 0, (LPARAM
) MAKELONG ((int)size
.x
, (int)size
.y
));
372 void wxToolBar95::SetRows(int nRows
)
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);
380 wxSize
wxToolBar95::GetMaxSize(void) const
382 if ((m_maxWidth
== -1) || (m_maxHeight
== -1))
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); // ???
389 return wxSize(m_maxWidth
, m_maxHeight
);
392 void wxToolBar95::GetSize(int *w
, int *h
) const
394 wxWindow::GetSize(w
, h
);
395 // For some reason, the returned height is several pixels bigger than that
400 // The button size is bigger than the bitmap size
401 wxSize
wxToolBar95::GetToolSize(void) const
403 return wxSize(m_defaultWidth
+ 8, m_defaultHeight
+ 7);
406 void wxToolBar95::EnableTool(int toolIndex
, bool enable
)
408 wxNode
*node
= m_tools
.Find((long)toolIndex
);
411 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
412 tool
->m_enabled
= enable
;
413 ::SendMessage((HWND
) GetHWND(), TB_ENABLEBUTTON
, (WPARAM
)toolIndex
, (LPARAM
)MAKELONG(enable
, 0));
417 void wxToolBar95::ToggleTool(int toolIndex
, bool toggle
)
419 wxNode
*node
= m_tools
.Find((long)toolIndex
);
422 wxToolBarTool
*tool
= (wxToolBarTool
*)node
->Data();
423 if (tool
->m_isToggle
)
425 tool
->m_toggleState
= toggle
;
426 ::SendMessage((HWND
) GetHWND(), TB_CHECKBUTTON
, (WPARAM
)toolIndex
, (LPARAM
)MAKELONG(toggle
, 0));
431 bool wxToolBar95::GetToolState(int toolIndex
) const
433 return (::SendMessage((HWND
) GetHWND(), TB_ISBUTTONCHECKED
, (WPARAM
)toolIndex
, (LPARAM
)0) != 0);
436 void wxToolBar95::ClearTools(void)
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();
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
)
450 wxToolBarTool
*tool
= new wxToolBarTool(index
, bitmap
, wxNullBitmap
, toggle
, xPos
, yPos
, helpString1
, helpString2
);
451 tool
->m_clientData
= clientData
;
456 tool
->m_x
= m_xMargin
;
461 tool
->m_y
= m_yMargin
;
463 tool
->SetSize(GetDefaultButtonWidth(), GetDefaultButtonHeight());
465 m_tools
.Append((long)index
, tool
);
469 // Responds to colour changes, and passes event on to children.
470 void wxToolBar95::OnSysColourChanged(wxSysColourChangedEvent
& event
)
472 m_backgroundColour
= wxColour(GetRValue(GetSysColor(COLOR_BTNFACE
)),
473 GetGValue(GetSysColor(COLOR_BTNFACE
)), GetBValue(GetSysColor(COLOR_BTNFACE
)));
482 // Propagate the event to the non-top-level children
483 wxWindow::OnSysColourChanged(event
);
486 // These are the default colors used to map the bitmap colors
487 // to the current system colors
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
496 void wxMapBitmap(HBITMAP hBitmap
, int width
, int height
)
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
507 int NUM_MAPS
= (sizeof(ColorMap
)/sizeof(COLORMAP
));
509 for ( n
= 0; n
< NUM_MAPS
; n
++)
511 ColorMap
[n
].to
= ::GetSysColor(ColorMap
[n
].to
);
515 HDC hdcMem
= CreateCompatibleDC(NULL
);
519 hbmOld
= (HBITMAP
) SelectObject(hdcMem
, hBitmap
);
522 for ( i
= 0; i
< width
; i
++)
524 for ( j
= 0; j
< height
; j
++)
526 COLORREF pixel
= ::GetPixel(hdcMem
, i
, j
);
528 BYTE red = GetRValue(pixel);
529 BYTE green = GetGValue(pixel);
530 BYTE blue = GetBValue(pixel);
533 for ( k
= 0; k
< NUM_MAPS
; k
++)
535 if ( ColorMap
[k
].from
== pixel
)
537 /* COLORREF actualPixel = */ ::SetPixel(hdcMem
, i
, j
, ColorMap
[k
].to
);
545 SelectObject(hdcMem
, hbmOld
);
546 DeleteObject(hdcMem
);
551 // Some experiments...
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
);
563 // LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) newDIB;
565 int result
= ::SetDIBits(dc
, newBitmap
, 0, lpbmi
->biHeight
, FindDIBBits((LPSTR
)lpbmi
), (LPBITMAPINFO
)lpbmi
,
567 DWORD err
= GetLastError();
569 ::ReleaseDC(NULL
, dc
);
572 GlobalUnlock (newDIB
);
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
;