git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@25631
c3d73ce0-8a6f-49c7-b76d-
6d57e0e08775
- // Set the old object temporarily, in case the assignment deletes an object
- // that's not yet selected out.
- if (m_oldPen)
- {
- ::SelectObject(GetHdc(), (HPEN) m_oldPen);
- m_oldPen = 0;
- }
-
- m_pen = pen;
+ if ( pen == m_pen )
+ return;
- if (m_oldPen)
- ::SelectObject(GetHdc(), (HPEN) m_oldPen);
- m_oldPen = 0;
- }
+ HGDIOBJ hpen = ::SelectObject(GetHdc(), GetHpenOf(pen));
+ if ( hpen == HGDI_ERROR )
+ {
+ wxLogLastError(_T("SelectObject(pen)"));
+ }
+ else // selected ok
+ {
+ if ( !m_oldPen )
+ m_oldPen = (WXHPEN)hpen;
+ m_pen = pen;
+ }
+ }
+ else // invalid pen, reset the current pen
- if (m_pen.GetResourceHandle())
- HPEN p = (HPEN) ::SelectObject(GetHdc(), (HPEN)m_pen.GetResourceHandle());
- if (!m_oldPen)
- m_oldPen = (WXHPEN) p;
+ if ( ::SelectObject(GetHdc(), (HPEN) m_oldPen) == HGDI_ERROR )
+ {
+ wxLogLastError(_T("SelectObject(old pen)"));
+ }
+
+ m_oldPen = NULL;