1 /////////////////////////////////////////////////////////////////////////////
2 // Name: msw/tbar95.cpp
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
12 // ============================================================================
14 // ============================================================================
16 // ----------------------------------------------------------------------------
18 // ----------------------------------------------------------------------------
21 #pragma implementation "tbar95.h"
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
35 #include "wx/dynarray.h"
36 #include "wx/settings.h"
37 #include "wx/bitmap.h"
40 #if wxUSE_TOOLBAR && defined(__WIN95__) && wxUSE_TOOLBAR_NATIVE
42 #include "wx/toolbar.h"
44 #if !defined(__GNUWIN32__) && !defined(__SALFORDC__)
48 #include "wx/msw/private.h"
52 #ifdef __GNUWIN32_OLD__
53 #include "wx/msw/gnuwin32/extra.h"
60 #include "wx/msw/dib.h"
61 #include "wx/app.h" // for GetComCtl32Version
63 // ----------------------------------------------------------------------------
65 // ----------------------------------------------------------------------------
67 // these standard constants are not always defined in compilers headers
71 #define TBSTYLE_LIST 0x1000
72 #define TBSTYLE_FLAT 0x0800
73 #define TBSTYLE_TRANSPARENT 0x8000
75 // use TBSTYLE_TRANSPARENT if you use TBSTYLE_FLAT
79 #define TB_SETSTYLE (WM_USER + 56)
80 #define TB_GETSTYLE (WM_USER + 57)
84 #define TB_HITTEST (WM_USER + 69)
87 // these values correspond to those used by comctl32.dll
88 #define DEFAULTBITMAPX 16
89 #define DEFAULTBITMAPY 15
90 #define DEFAULTBUTTONX 24
91 #define DEFAULTBUTTONY 24
92 #define DEFAULTBARHEIGHT 27
94 // ----------------------------------------------------------------------------
95 // private function prototypes
96 // ----------------------------------------------------------------------------
98 static void wxMapBitmap(HBITMAP hBitmap
, int width
, int height
);
100 // ----------------------------------------------------------------------------
102 // ----------------------------------------------------------------------------
104 IMPLEMENT_DYNAMIC_CLASS(wxToolBar
, wxControl
)
106 BEGIN_EVENT_TABLE(wxToolBar
, wxToolBarBase
)
107 EVT_MOUSE_EVENTS(wxToolBar::OnMouseEvent
)
108 EVT_SYS_COLOUR_CHANGED(wxToolBar::OnSysColourChanged
)
111 // ----------------------------------------------------------------------------
113 // ----------------------------------------------------------------------------
115 class wxToolBarTool
: public wxToolBarToolBase
118 wxToolBarTool(wxToolBar
*tbar
,
120 const wxBitmap
& bitmap1
,
121 const wxBitmap
& bitmap2
,
123 wxObject
*clientData
,
124 const wxString
& shortHelpString
,
125 const wxString
& longHelpString
)
126 : wxToolBarToolBase(tbar
, id
, bitmap1
, bitmap2
, toggle
,
127 clientData
, shortHelpString
, longHelpString
)
132 wxToolBarTool(wxToolBar
*tbar
, wxControl
*control
)
133 : wxToolBarToolBase(tbar
, control
)
138 // set/get the number of separators which we use to cover the space used by
139 // a control in the toolbar
140 void SetSeparatorsCount(size_t count
) { m_nSepCount
= count
; }
141 size_t GetSeparatorsCount() const { return m_nSepCount
; }
148 // ============================================================================
150 // ============================================================================
152 // ----------------------------------------------------------------------------
154 // ----------------------------------------------------------------------------
156 wxToolBarToolBase
*wxToolBar::CreateTool(int id
,
157 const wxBitmap
& bitmap1
,
158 const wxBitmap
& bitmap2
,
160 wxObject
*clientData
,
161 const wxString
& shortHelpString
,
162 const wxString
& longHelpString
)
164 return new wxToolBarTool(this, id
, bitmap1
, bitmap2
, toggle
,
165 clientData
, shortHelpString
, longHelpString
);
168 wxToolBarToolBase
*wxToolBar::CreateTool(wxControl
*control
)
170 return new wxToolBarTool(this, control
);
173 // ----------------------------------------------------------------------------
174 // wxToolBar construction
175 // ----------------------------------------------------------------------------
177 void wxToolBar::Init()
183 m_defaultWidth
= DEFAULTBITMAPX
;
184 m_defaultHeight
= DEFAULTBITMAPY
;
187 bool wxToolBar::Create(wxWindow
*parent
,
192 const wxString
& name
)
194 // common initialisation
195 if ( !CreateControl(parent
, id
, pos
, size
, style
, wxDefaultValidator
, name
) )
199 DWORD msflags
= 0; // WS_VISIBLE | WS_CHILD always included
200 if (style
& wxBORDER
)
201 msflags
|= WS_BORDER
;
203 #ifdef TBSTYLE_TOOLTIPS
204 msflags
|= TBSTYLE_TOOLTIPS
;
207 if (style
& wxTB_FLAT
)
209 if (wxTheApp
->GetComCtl32Version() > 400)
210 msflags
|= TBSTYLE_FLAT
;
213 // MSW-specific initialisation
214 if ( !wxControl::MSWCreateControl(TOOLBARCLASSNAME
, msflags
) )
217 // toolbar-specific post initialisation
218 ::SendMessage(GetHwnd(), TB_BUTTONSTRUCTSIZE
, sizeof(TBBUTTON
), 0);
220 // set up the colors and fonts
221 wxRGBToColour(m_backgroundColour
, GetSysColor(COLOR_BTNFACE
));
222 m_foregroundColour
= *wxBLACK
;
224 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT
));
235 height
= m_defaultHeight
;
241 SetSize(x
, y
, width
, height
);
246 wxToolBar::~wxToolBar()
250 ::DeleteObject((HBITMAP
) m_hBitmap
);
254 // ----------------------------------------------------------------------------
255 // adding/removing tools
256 // ----------------------------------------------------------------------------
258 bool wxToolBar::DoInsertTool(size_t WXUNUSED(pos
),
259 wxToolBarToolBase
*tool
)
261 // nothing special to do here - we really create the toolbar buttons in
268 bool wxToolBar::DoDeleteTool(size_t pos
, wxToolBarToolBase
*tool
)
270 // normally, we only delete one button, but we use several separators to
271 // cover the space used by one control sometimes (with old comctl32.dll)
272 size_t nButtonsToDelete
= 1;
274 // get the size of the button we're going to delete
276 if ( !::SendMessage(GetHwnd(), TB_GETITEMRECT
, pos
, (LPARAM
)&r
) )
278 wxLogLastError(_T("TB_GETITEMRECT"));
281 int width
= r
.right
- r
.left
;
283 if ( tool
->IsControl() )
285 nButtonsToDelete
= ((wxToolBarTool
*)tool
)->GetSeparatorsCount();
287 width
*= nButtonsToDelete
;
290 while ( nButtonsToDelete
-- > 0 )
292 if ( !::SendMessage(GetHwnd(), TB_DELETEBUTTON
, pos
, 0) )
294 wxLogLastError("TB_DELETEBUTTON");
302 m_nButtons
-= nButtonsToDelete
;
304 // reposition all the controls after this button
305 wxToolBarToolsList::Node
*node
= m_tools
.Item(pos
);
306 for ( node
= node
->GetNext(); node
; node
= node
->GetNext() )
308 wxToolBarToolBase
*tool2
= node
->GetData();
309 if ( tool2
->IsControl() )
312 wxControl
*control
= tool2
->GetControl();
313 control
->GetPosition(&x
, NULL
);
314 control
->Move(x
- width
, -1);
321 bool wxToolBar::Realize()
323 size_t nTools
= GetToolsCount();
330 bool isVertical
= (GetWindowStyle() & wxTB_VERTICAL
) != 0;
332 // First, add the bitmap: we use one bitmap for all toolbar buttons
333 // ----------------------------------------------------------------
335 // if we already have a bitmap, we'll replace the existing one - otherwise
336 // we'll install a new one
337 HBITMAP oldToolBarBitmap
= (HBITMAP
)m_hBitmap
;
339 int totalBitmapWidth
= (int)(m_defaultWidth
* nTools
);
340 int totalBitmapHeight
= (int)m_defaultHeight
;
342 // Create a bitmap for all the tool bitmaps
343 HBITMAP hBitmap
= ::CreateCompatibleBitmap(ScreenHDC(),
348 wxLogLastError(_T("CreateCompatibleBitmap"));
353 m_hBitmap
= (WXHBITMAP
)hBitmap
;
355 // Now blit all the tools onto this bitmap
356 HDC memoryDC
= ::CreateCompatibleDC(NULL
);
357 HBITMAP oldBitmap
= (HBITMAP
) ::SelectObject(memoryDC
, hBitmap
);
359 HDC memoryDC2
= ::CreateCompatibleDC(NULL
);
361 // the button position
364 // the number of buttons (not separators)
367 wxToolBarToolsList::Node
*node
= m_tools
.GetFirst();
370 wxToolBarToolBase
*tool
= node
->GetData();
371 if ( tool
->IsButton() )
373 HBITMAP hbmp
= GetHbitmapOf(tool
->GetBitmap1());
376 HBITMAP oldBitmap2
= (HBITMAP
)::SelectObject(memoryDC2
, hbmp
);
377 if ( !BitBlt(memoryDC
, x
, 0, m_defaultWidth
, m_defaultHeight
,
378 memoryDC2
, 0, 0, SRCCOPY
) )
380 wxLogLastError("BitBlt");
383 ::SelectObject(memoryDC2
, oldBitmap2
);
387 wxFAIL_MSG( _T("invalid tool button bitmap") );
390 // still inc width and number of buttons because otherwise the
391 // subsequent buttons will all be shifted which is rather confusing
392 // (and like this you'd see immediately which bitmap was bad)
397 node
= node
->GetNext();
400 ::SelectObject(memoryDC
, oldBitmap
);
401 ::DeleteDC(memoryDC
);
402 ::DeleteDC(memoryDC2
);
404 // Map to system colours
405 wxMapBitmap(hBitmap
, totalBitmapWidth
, totalBitmapHeight
);
409 bool addBitmap
= TRUE
;
411 if ( oldToolBarBitmap
)
413 #ifdef TB_REPLACEBITMAP
414 if ( wxTheApp
->GetComCtl32Version() >= 400 )
416 TBREPLACEBITMAP replaceBitmap
;
417 replaceBitmap
.hInstOld
= NULL
;
418 replaceBitmap
.hInstNew
= NULL
;
419 replaceBitmap
.nIDOld
= (UINT
) oldToolBarBitmap
;
420 replaceBitmap
.nIDNew
= (UINT
) hBitmap
;
421 replaceBitmap
.nButtons
= nButtons
;
422 if ( !::SendMessage(GetHwnd(), TB_REPLACEBITMAP
,
423 0, (LPARAM
) &replaceBitmap
) )
425 wxFAIL_MSG(wxT("Could not replace the old bitmap"));
428 ::DeleteObject(oldToolBarBitmap
);
434 #endif // TB_REPLACEBITMAP
436 // we can't replace the old bitmap, so we will add another one
437 // (awfully inefficient, but what else to do?) and shift the bitmap
438 // indices accordingly
441 bitmapId
= m_nButtons
;
444 // Now delete all the buttons
445 for ( size_t pos
= 0; pos
< m_nButtons
; pos
++ )
447 if ( !::SendMessage(GetHwnd(), TB_DELETEBUTTON
, 0, 0) )
449 wxLogLastError("TB_DELETEBUTTON");
455 if ( addBitmap
) // no old bitmap or we can't replace it
457 TBADDBITMAP addBitmap
;
459 addBitmap
.nID
= (UINT
) hBitmap
;
460 if ( ::SendMessage(GetHwnd(), TB_ADDBITMAP
,
461 (WPARAM
) nButtons
, (LPARAM
)&addBitmap
) == -1 )
463 wxFAIL_MSG(wxT("Could not add bitmap to toolbar"));
467 // Next add the buttons and separators
468 // -----------------------------------
470 TBBUTTON
*buttons
= new TBBUTTON
[nTools
];
472 // this array will hold the indices of all controls in the toolbar
473 wxArrayInt controlIds
;
476 for ( node
= m_tools
.GetFirst(); node
; node
= node
->GetNext() )
478 wxToolBarToolBase
*tool
= node
->GetData();
480 // don't add separators to the vertical toolbar - looks ugly
481 if ( isVertical
&& tool
->IsSeparator() )
484 TBBUTTON
& button
= buttons
[i
];
486 wxZeroMemory(button
);
488 switch ( tool
->GetStyle() )
490 case wxTOOL_STYLE_CONTROL
:
491 button
.idCommand
= tool
->GetId();
492 // fall through: create just a separator too
494 case wxTOOL_STYLE_SEPARATOR
:
495 button
.fsState
= TBSTATE_ENABLED
;
496 button
.fsStyle
= TBSTYLE_SEP
;
499 case wxTOOL_STYLE_BUTTON
:
500 button
.iBitmap
= bitmapId
;
501 button
.idCommand
= tool
->GetId();
503 if ( tool
->IsEnabled() )
504 button
.fsState
|= TBSTATE_ENABLED
;
505 if ( tool
->IsToggled() )
506 button
.fsState
|= TBSTATE_CHECKED
;
508 button
.fsStyle
= tool
->CanBeToggled() ? TBSTYLE_CHECK
518 if ( !::SendMessage(GetHwnd(), TB_ADDBUTTONS
,
519 (WPARAM
)i
, (LPARAM
)buttons
) )
521 wxLogLastError("TB_ADDBUTTONS");
526 // Deal with the controls finally
527 // ------------------------------
529 // adjust the controls size to fit nicely in the toolbar
531 for ( node
= m_tools
.GetFirst(); node
; node
= node
->GetNext(), index
++ )
533 wxToolBarToolBase
*tool
= node
->GetData();
534 if ( !tool
->IsControl() )
537 wxControl
*control
= tool
->GetControl();
539 wxSize size
= control
->GetSize();
541 // the position of the leftmost controls corner
544 // note that we use TB_GETITEMRECT and not TB_GETRECT because the
545 // latter only appeared in v4.70 of comctl32.dll
547 if ( !SendMessage(GetHwnd(), TB_GETITEMRECT
,
548 index
, (LPARAM
)(LPRECT
)&r
) )
550 wxLogLastError("TB_GETITEMRECT");
553 // TB_SETBUTTONINFO message is only supported by comctl32.dll 4.71+
554 #if defined(_WIN32_IE) && (_WIN32_IE >= 0x400 )
555 // available in headers, now check whether it is available now
557 if ( wxTheApp
->GetComCtl32Version() >= 471 )
559 // set the (underlying) separators width to be that of the
562 tbbi
.cbSize
= sizeof(tbbi
);
563 tbbi
.dwMask
= TBIF_SIZE
;
565 if ( !SendMessage(GetHwnd(), TB_SETBUTTONINFO
,
566 tool
->GetId(), (LPARAM
)&tbbi
) )
568 // the id is probably invalid?
569 wxLogLastError("TB_SETBUTTONINFO");
574 #endif // comctl32.dll 4.71
575 // TB_SETBUTTONINFO unavailable
577 // try adding several separators to fit the controls width
578 int widthSep
= r
.right
- r
.left
;
584 tbb
.fsState
= TBSTATE_ENABLED
;
585 tbb
.fsStyle
= TBSTYLE_SEP
;
587 size_t nSeparators
= size
.x
/ widthSep
;
588 for ( size_t nSep
= 0; nSep
< nSeparators
; nSep
++ )
590 if ( !SendMessage(GetHwnd(), TB_INSERTBUTTON
,
591 index
, (LPARAM
)&tbb
) )
593 wxLogLastError("TB_INSERTBUTTON");
599 // remember the number of separators we used - we'd have to
600 // delete all of them later
601 ((wxToolBarTool
*)tool
)->SetSeparatorsCount(nSeparators
);
603 // adjust the controls width to exactly cover the separators
604 control
->SetSize((nSeparators
+ 1)*widthSep
, -1);
607 // and position the control itself correctly vertically
608 int height
= r
.bottom
- r
.top
;
609 int diff
= height
- size
.y
;
612 // the control is too high, resize to fit
613 control
->SetSize(-1, height
- 2);
618 control
->Move(left
== -1 ? r
.left
: left
, r
.top
+ (diff
+ 1) / 2);
621 // the max index is the "real" number of buttons - i.e. counting even the
622 // separators which we added just for aligning the controls
627 if ( m_maxRows
== 0 )
629 // if not set yet, only one row
633 else if ( m_nButtons
> 0 ) // vertical non empty toolbar
635 if ( m_maxRows
== 0 )
637 // if not set yet, have one column
645 // ----------------------------------------------------------------------------
647 // ----------------------------------------------------------------------------
649 bool wxToolBar::MSWCommand(WXUINT cmd
, WXWORD id
)
651 wxToolBarToolBase
*tool
= FindById((int)id
);
655 if ( tool
->CanBeToggled() )
657 LRESULT state
= ::SendMessage(GetHwnd(), TB_GETSTATE
, id
, 0);
658 tool
->Toggle((state
& TBSTATE_CHECKED
) != 0);
661 bool toggled
= tool
->IsToggled();
663 // OnLeftClick() can veto the button state change - for buttons which may
664 // be toggled only, of couse
665 if ( !OnLeftClick((int)id
, toggled
) && tool
->CanBeToggled() )
669 tool
->SetToggle(toggled
);
671 ::SendMessage(GetHwnd(), TB_CHECKBUTTON
, id
, MAKELONG(toggled
, 0));
677 bool wxToolBar::MSWOnNotify(int WXUNUSED(idCtrl
),
681 // First check if this applies to us
682 NMHDR
*hdr
= (NMHDR
*)lParam
;
684 // the tooltips control created by the toolbar is sometimes Unicode, even
685 // in an ANSI application - this seems to be a bug in comctl32.dll v5
686 int code
= (int)hdr
->code
;
687 if ( (code
!= TTN_NEEDTEXTA
) && (code
!= TTN_NEEDTEXTW
) )
690 HWND toolTipWnd
= (HWND
)::SendMessage((HWND
)GetHWND(), TB_GETTOOLTIPS
, 0, 0);
691 if ( toolTipWnd
!= hdr
->hwndFrom
)
694 LPTOOLTIPTEXT ttText
= (LPTOOLTIPTEXT
)lParam
;
695 int id
= (int)ttText
->hdr
.idFrom
;
697 wxToolBarToolBase
*tool
= FindById(id
);
701 const wxString
& help
= tool
->GetShortHelp();
703 if ( !help
.IsEmpty() )
705 if ( code
== TTN_NEEDTEXTA
)
707 ttText
->lpszText
= (wxChar
*)help
.c_str();
709 #if (_WIN32_IE >= 0x0300)
712 // FIXME this is a temp hack only until I understand better what
713 // must be done in both ANSI and Unicode builds
715 size_t lenAnsi
= help
.Len();
717 // MetroWerks doesn't like calling mbstowcs with NULL argument
718 size_t lenUnicode
= 2*lenAnsi
;
720 size_t lenUnicode
= mbstowcs(NULL
, help
, lenAnsi
);
723 // using the pointer of right type avoids us doing all sorts of
724 // pointer arithmetics ourselves
725 wchar_t *dst
= (wchar_t *)ttText
->szText
,
726 *pwz
= new wchar_t[lenUnicode
+ 1];
727 mbstowcs(pwz
, help
, lenAnsi
+ 1);
728 memcpy(dst
, pwz
, lenUnicode
*sizeof(wchar_t));
730 // put the terminating _wide_ NUL
735 #endif // _WIN32_IE >= 0x0300
738 // For backward compatibility...
739 OnMouseEnter(tool
->GetId());
744 // ----------------------------------------------------------------------------
746 // ----------------------------------------------------------------------------
748 void wxToolBar::SetToolBitmapSize(const wxSize
& size
)
750 wxToolBarBase::SetToolBitmapSize(size
);
752 ::SendMessage(GetHwnd(), TB_SETBITMAPSIZE
, 0, MAKELONG(size
.x
, size
.y
));
755 void wxToolBar::SetRows(int nRows
)
757 if ( nRows
== m_maxRows
)
759 // avoid resizing the frame uselessly
763 // TRUE in wParam means to create at least as many rows, FALSE -
766 ::SendMessage(GetHwnd(), TB_SETROWS
,
767 MAKEWPARAM(nRows
, !(GetWindowStyle() & wxTB_VERTICAL
)),
775 // The button size is bigger than the bitmap size
776 wxSize
wxToolBar::GetToolSize() const
778 // TB_GETBUTTONSIZE is supported from version 4.70
779 #if defined(_WIN32_IE) && (_WIN32_IE >= 0x300 )
780 if ( wxTheApp
->GetComCtl32Version() >= 470 )
782 DWORD dw
= ::SendMessage(GetHwnd(), TB_GETBUTTONSIZE
, 0, 0);
784 return wxSize(LOWORD(dw
), HIWORD(dw
));
787 #endif // comctl32.dll 4.70+
790 return wxSize(m_defaultWidth
+ 8, m_defaultHeight
+ 7);
794 wxToolBarToolBase
*wxToolBar::FindToolForPosition(wxCoord x
, wxCoord y
) const
799 int index
= (int)::SendMessage(GetHwnd(), TB_HITTEST
, 0, (LPARAM
)&pt
);
802 // it's a separator or there is no tool at all there
803 return (wxToolBarToolBase
*)NULL
;
806 return m_tools
.Item((size_t)index
)->GetData();
809 void wxToolBar::UpdateSize()
811 // we must refresh the frame after the toolbar size (possibly) changed
812 wxFrame
*frame
= wxDynamicCast(GetParent(), wxFrame
);
815 // don't change the size, we just need to generate a WM_SIZE
817 if ( !GetWindowRect(GetHwndOf(frame
), &r
) )
819 wxLogLastError(_T("GetWindowRect"));
822 (void)::SendMessage(GetHwndOf(frame
), WM_SIZE
, SIZE_RESTORED
,
823 MAKELPARAM(r
.right
- r
.left
, r
.bottom
- r
.top
));
828 // ----------------------------------------------------------------------------
830 // ----------------------------------------------------------------------------
832 void wxToolBar::DoEnableTool(wxToolBarToolBase
*tool
, bool enable
)
834 ::SendMessage(GetHwnd(), TB_ENABLEBUTTON
,
835 (WPARAM
)tool
->GetId(), (LPARAM
)MAKELONG(enable
, 0));
838 void wxToolBar::DoToggleTool(wxToolBarToolBase
*tool
, bool toggle
)
840 ::SendMessage(GetHwnd(), TB_CHECKBUTTON
,
841 (WPARAM
)tool
->GetId(), (LPARAM
)MAKELONG(toggle
, 0));
844 void wxToolBar::DoSetToggle(wxToolBarToolBase
*tool
, bool toggle
)
846 // VZ: AFAIK, the button has to be created either with TBSTYLE_CHECK or
847 // without, so we really need to delete the button and recreate it here
848 wxFAIL_MSG( _T("not implemented") );
851 // ----------------------------------------------------------------------------
853 // ----------------------------------------------------------------------------
855 // Responds to colour changes, and passes event on to children.
856 void wxToolBar::OnSysColourChanged(wxSysColourChangedEvent
& event
)
858 m_backgroundColour
= wxColour(GetRValue(GetSysColor(COLOR_BTNFACE
)),
859 GetGValue(GetSysColor(COLOR_BTNFACE
)), GetBValue(GetSysColor(COLOR_BTNFACE
)));
866 // Propagate the event to the non-top-level children
867 wxWindow::OnSysColourChanged(event
);
870 void wxToolBar::OnMouseEvent(wxMouseEvent
& event
)
872 if (event
.RightDown())
874 // For now, we don't have an id. Later we could
875 // try finding the tool.
876 OnRightClick((int)-1, event
.GetX(), event
.GetY());
884 long wxToolBar::MSWWindowProc(WXUINT nMsg
, WXWPARAM wParam
, WXLPARAM lParam
)
886 if ( nMsg
== WM_SIZE
)
888 // calculate our minor dimenstion ourselves - we're confusing the
889 // standard logic (TB_AUTOSIZE) with our horizontal toolbars and other
892 if ( ::SendMessage(GetHwnd(), TB_GETITEMRECT
, 0, (LPARAM
)&r
) )
896 if ( GetWindowStyle() & wxTB_VERTICAL
)
898 w
= r
.right
- r
.left
;
901 w
*= (m_nButtons
+ m_maxRows
- 1)/m_maxRows
;
908 h
= r
.bottom
- r
.top
;
911 h
+= 6; // FIXME: this is the separator line height...
916 if ( MAKELPARAM(w
, h
) != lParam
)
918 // size really changed
927 return wxControl::MSWWindowProc(nMsg
, wParam
, lParam
);
930 // ----------------------------------------------------------------------------
932 // ----------------------------------------------------------------------------
934 // These are the default colors used to map the bitmap colors to the current
935 // system colors. Note that they are in BGR format because this is what Windows
936 // wants (and not RGB)
938 #define BGR_BUTTONTEXT (RGB(000,000,000)) // black
939 #define BGR_BUTTONSHADOW (RGB(128,128,128)) // dark grey
940 #define BGR_BUTTONFACE (RGB(192,192,192)) // bright grey
941 #define BGR_BUTTONHILIGHT (RGB(255,255,255)) // white
942 #define BGR_BACKGROUNDSEL (RGB(000,000,255)) // blue
943 #define BGR_BACKGROUND (RGB(255,000,255)) // magenta
945 void wxMapBitmap(HBITMAP hBitmap
, int width
, int height
)
947 COLORMAP ColorMap
[] =
949 {BGR_BUTTONTEXT
, COLOR_BTNTEXT
}, // black
950 {BGR_BUTTONSHADOW
, COLOR_BTNSHADOW
}, // dark grey
951 {BGR_BUTTONFACE
, COLOR_BTNFACE
}, // bright grey
952 {BGR_BUTTONHILIGHT
, COLOR_BTNHIGHLIGHT
},// white
953 {BGR_BACKGROUNDSEL
, COLOR_HIGHLIGHT
}, // blue
954 {BGR_BACKGROUND
, COLOR_WINDOW
} // magenta
957 int NUM_MAPS
= (sizeof(ColorMap
)/sizeof(COLORMAP
));
959 for ( n
= 0; n
< NUM_MAPS
; n
++)
961 ColorMap
[n
].to
= ::GetSysColor(ColorMap
[n
].to
);
965 HDC hdcMem
= CreateCompatibleDC(NULL
);
969 hbmOld
= (HBITMAP
) SelectObject(hdcMem
, hBitmap
);
972 for ( i
= 0; i
< width
; i
++)
974 for ( j
= 0; j
< height
; j
++)
976 COLORREF pixel
= ::GetPixel(hdcMem
, i
, j
);
978 BYTE red = GetRValue(pixel);
979 BYTE green = GetGValue(pixel);
980 BYTE blue = GetBValue(pixel);
983 for ( k
= 0; k
< NUM_MAPS
; k
++)
985 if ( ColorMap
[k
].from
== pixel
)
987 /* COLORREF actualPixel = */ ::SetPixel(hdcMem
, i
, j
, ColorMap
[k
].to
);
995 SelectObject(hdcMem
, hbmOld
);
996 DeleteObject(hdcMem
);
1001 // Some experiments...
1003 // What we want to do is create another bitmap which has a depth of 4,
1004 // and set the bits. So probably we want to convert this HBITMAP into a
1005 // DIB, then call SetDIBits.
1006 // AAAGH. The stupid thing is that if newBitmap has a depth of 4 (less than that of
1007 // the screen), then SetDIBits fails.
1008 HBITMAP newBitmap
= ::CreateBitmap(totalBitmapWidth
, totalBitmapHeight
, 1, 4, NULL
);
1009 HANDLE newDIB
= ::BitmapToDIB((HBITMAP
) m_hBitmap
, NULL
);
1010 LPBITMAPINFOHEADER lpbmi
= (LPBITMAPINFOHEADER
) GlobalLock(newDIB
);
1013 // LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER) newDIB;
1015 int result
= ::SetDIBits(dc
, newBitmap
, 0, lpbmi
->biHeight
, FindDIBBits((LPSTR
)lpbmi
), (LPBITMAPINFO
)lpbmi
,
1017 DWORD err
= GetLastError();
1019 ::ReleaseDC(NULL
, dc
);
1022 GlobalUnlock (newDIB
);
1023 GlobalFree (newDIB
);
1025 // WXHBITMAP hBitmap2 = wxCreateMappedBitmap((WXHINSTANCE) wxGetInstance(), (WXHBITMAP) m_hBitmap);
1026 // Substitute our new bitmap for the old one
1027 ::DeleteObject((HBITMAP
) m_hBitmap
);
1028 m_hBitmap
= (WXHBITMAP
) newBitmap
;
1032 #endif // wxUSE_TOOLBAR && Win95