#include "wx/os2/private.h"
#include "assert.h"
+IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)
+
wxPenRefData::wxPenRefData()
{
- m_style = wxSOLID;
- m_width = 1;
- m_join = wxJOIN_ROUND ;
- m_cap = wxCAP_ROUND ;
- m_nbDash = 0 ;
- m_dash = 0 ;
- m_hPen = 0;
-}
-
-wxPenRefData::wxPenRefData(const wxPenRefData& data)
+ m_nStyle = wxSOLID;
+ m_nWidth = 1;
+ m_nJoin = wxJOIN_ROUND ;
+ m_nCap = wxCAP_ROUND ;
+ m_hPen = 0L;
+} // end of wxPenRefData::wxPenRefData
+
+wxPenRefData::wxPenRefData(
+ const wxPenRefData& rData
+)
{
- m_style = data.m_style;
- m_width = data.m_width;
- m_join = data.m_join;
- m_cap = data.m_cap;
- m_nbDash = data.m_nbDash;
- m_dash = data.m_dash;
- m_colour = data.m_colour;
-/* TODO: null data
- m_hPen = 0;
-*/
-}
+ m_nStyle = rData.m_nStyle;
+ m_nWidth = rData.m_nWidth;
+ m_nJoin = rData.m_nJoin;
+ m_nCap = rData.m_nCap;
+ m_vColour = rData.m_vColour;
+ m_hPen = 0L;
+} // end of wxPenRefData::wxPenRefData
wxPenRefData::~wxPenRefData()
{
- // TODO: delete data
-}
+} // end of wxPenRefData::~wxPenRefData
+//
// Pens
-
+//
wxPen::wxPen()
{
if ( wxThePenList )
wxThePenList->AddPen(this);
-}
+} // end of wxPen::wxPen
wxPen::~wxPen()
{
if (wxThePenList)
wxThePenList->RemovePen(this);
-}
+} // end of wxPen::wxPen
// Should implement Create
-wxPen::wxPen(const wxColour& col, int Width, int Style)
+wxPen::wxPen(
+ const wxColour& rColour
+, int nWidth
+, int nStyle
+)
{
m_refData = new wxPenRefData;
- M_PENDATA->m_colour = col;
-// M_PENDATA->m_stipple = NULL;
- M_PENDATA->m_width = Width;
- M_PENDATA->m_style = Style;
- M_PENDATA->m_join = wxJOIN_ROUND ;
- M_PENDATA->m_cap = wxCAP_ROUND ;
- M_PENDATA->m_nbDash = 0 ;
- M_PENDATA->m_dash = 0 ;
- M_PENDATA->m_hPen = 0 ;
-
-// TODO:
-/*
- if ((Style == wxDOT) || (Style == wxLONG_DASH) ||
- (Style == wxSHORT_DASH) || (Style == wxDOT_DASH) ||
- (Style == wxUSER_DASH))
- M_PENDATA->m_width = 1;
-*/
+ M_PENDATA->m_vColour = rColour;
+ M_PENDATA->m_nWidth = nWidth;
+ M_PENDATA->m_nStyle = nStyle;
+ M_PENDATA->m_nJoin = wxJOIN_ROUND ;
+ M_PENDATA->m_nCap = wxCAP_ROUND ;
+ M_PENDATA->m_hPen = 0L;
+
RealizeResource();
if ( wxThePenList )
wxThePenList->AddPen(this);
-}
+} // end of wxPen::wxPen
-wxPen::wxPen(const wxBitmap& stipple, int Width)
+wxPen::wxPen(
+ const wxBitmap& rStipple
+, int nWidth
+)
{
m_refData = new wxPenRefData;
- M_PENDATA->m_stipple = stipple;
- M_PENDATA->m_width = Width;
- M_PENDATA->m_style = wxSTIPPLE;
- M_PENDATA->m_join = wxJOIN_ROUND ;
- M_PENDATA->m_cap = wxCAP_ROUND ;
- M_PENDATA->m_nbDash = 0 ;
- M_PENDATA->m_dash = 0 ;
- M_PENDATA->m_hPen = 0 ;
+ M_PENDATA->m_vStipple = rStipple;
+ M_PENDATA->m_nWidth = nWidth;
+ M_PENDATA->m_nStyle = wxSTIPPLE;
+ M_PENDATA->m_nJoin = wxJOIN_ROUND ;
+ M_PENDATA->m_nCap = wxCAP_ROUND ;
+ M_PENDATA->m_hPen = 0;
RealizeResource();
if ( wxThePenList )
wxThePenList->AddPen(this);
-}
+} // end of wxPen::wxPen
bool wxPen::RealizeResource()
{
- // TODO: create actual pen
+ BOOL bOk;
+ ERRORID vError;
+ wxString sError;
+
+ if (M_PENDATA && M_PENDATA->m_hPen == 0L)
+ {
+ SIZEL vSize = {0, 0};
+ DEVOPENSTRUC vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
+ HDC hDC = ::DevOpenDC( vHabmain
+ ,OD_MEMORY
+ ,"*"
+ ,5L
+ ,(PDEVOPENDATA)&vDop
+ ,NULLHANDLE
+ );
+ M_PENDATA->m_hPen = (WXHPEN)::GpiCreatePS( vHabmain
+ ,hDC
+ ,&vSize
+ ,PU_PELS | GPIT_MICRO | GPIA_ASSOC
+ );
+ }
+ if (M_PENDATA)
+ {
+ //
+ // Set the color table to RGB mode
+ //
+ if (!::GpiCreateLogColorTable( (HPS)M_PENDATA->m_hPen
+ ,0L
+ ,LCOLF_RGB
+ ,0L
+ ,0L
+ ,NULL
+ ))
+ {
+ vError = ::WinGetLastError(vHabmain);
+ sError = wxPMErrorToStr(vError);
+ wxLogError("Unable to set current color table to RGB mode. Error: %s\n", sError);
+ return FALSE;
+ }
+ if (M_PENDATA->m_nStyle == wxTRANSPARENT)
+ {
+ return TRUE;
+ }
+
+ COLORREF vPmColour = 0L;
+ USHORT uLineType = wx2os2PenStyle(M_PENDATA->m_nStyle);
+
+ vPmColour = M_PENDATA->m_vColour.GetPixel();
+
+ USHORT uJoin = 0L;
+
+ switch(M_PENDATA->m_nJoin)
+ {
+ case wxJOIN_BEVEL:
+ uJoin = LINEJOIN_BEVEL;
+ break;
+
+ case wxJOIN_MITER:
+ uJoin = LINEJOIN_MITRE;
+ break;
+
+ case wxJOIN_ROUND:
+ uJoin = LINEJOIN_ROUND;
+ break;
+ }
+
+ USHORT uCap = 0L;
+
+ switch(M_PENDATA->m_nCap)
+ {
+ case wxCAP_PROJECTING:
+ uCap = LINEEND_SQUARE;
+ break;
+
+ case wxCAP_BUTT:
+ uCap = LINEEND_FLAT;
+ break;
+
+ case wxCAP_ROUND:
+ uCap = LINEEND_ROUND;
+ break;
+ }
+ m_vLineBundle.lColor = (LONG)vPmColour;
+ m_vLineBundle.usMixMode = FM_OVERPAINT;
+ m_vLineBundle.fxWidth = M_PENDATA->m_nWidth;
+ m_vLineBundle.lGeomWidth = M_PENDATA->m_nWidth;
+ m_vLineBundle.usType = uLineType;
+ m_vLineBundle.usEnd = uCap;
+ m_vLineBundle.usJoin = uJoin;
+
+ bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
+ ,PRIM_LINE
+ ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE | LBB_END | LBB_JOIN
+ ,0L
+ ,&m_vLineBundle
+ );
+ if (!bOk)
+ {
+ vError = ::WinGetLastError(vHabmain);
+ sError = wxPMErrorToStr(vError);
+ wxLogError("Can't set Gpi attributes for a LINEBUNDLE. Error: %s\n", sError);
+ return FALSE;
+ }
+
+ switch(M_PENDATA->m_nStyle)
+ {
+ case wxSTIPPLE:
+ ::GpiSetBitmapId( M_PENDATA->m_hPen
+ ,(USHORT)M_PENDATA->m_vStipple.GetHBITMAP()
+ ,(USHORT)M_PENDATA->m_vStipple.GetId()
+ );
+ ::GpiSetPatternSet( M_PENDATA->m_hPen
+ ,(USHORT)M_PENDATA->m_vStipple.GetId()
+ );
+ break;
+
+ case wxBDIAGONAL_HATCH:
+ m_vAreaBundle.usSymbol = PATSYM_DIAG3;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+
+ case wxCROSSDIAG_HATCH:
+ m_vAreaBundle.usSymbol = PATSYM_DIAGHATCH;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+
+ case wxFDIAGONAL_HATCH:
+ m_vAreaBundle.usSymbol = PATSYM_DIAG1;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+
+ case wxCROSS_HATCH:
+ m_vAreaBundle.usSymbol = PATSYM_HATCH;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+
+ case wxHORIZONTAL_HATCH:
+ m_vAreaBundle.usSymbol = PATSYM_HORIZ;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+
+ case wxVERTICAL_HATCH:
+ m_vAreaBundle.usSymbol = PATSYM_VERT;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+
+ default:
+ m_vAreaBundle.usSymbol = PATSYM_SOLID;
+ m_vAreaBundle.usSet = LCID_DEFAULT;
+ break;
+ }
+
+ m_vAreaBundle.lColor = vPmColour;
+ m_vAreaBundle.lBackColor = RGB_WHITE;
+ m_vAreaBundle.usMixMode = FM_OVERPAINT;
+ m_vAreaBundle.usBackMixMode = BM_OVERPAINT;
+
+ bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
+ ,PRIM_AREA
+ ,ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE |
+ ABB_SET | ABB_SYMBOL
+ ,ABB_REF_POINT
+ ,&m_vAreaBundle
+ );
+ if (!bOk)
+ {
+ vError = ::WinGetLastError(vHabmain);
+ sError = wxPMErrorToStr(vError);
+ wxLogError("Can't set Gpi attributes for an AREABUNDLE. Error: %s\n", sError);
+ }
+ return bOk;
+ }
return FALSE;
-}
+} // end of wxPen::RealizeResource
WXHANDLE wxPen::GetResourceHandle()
{
- if ( !M_PENDATA )
+ if (!M_PENDATA)
return 0;
else
return (WXHANDLE)M_PENDATA->m_hPen;
-}
+} // end of wxPen::GetResourceHandle
-bool wxPen::FreeResource(bool force)
+bool wxPen::FreeResource(
+ bool bForce
+)
{
if (M_PENDATA && (M_PENDATA->m_hPen != 0))
{
-// TODO: DeleteObject((HPEN) M_PENDATA->m_hPen);
M_PENDATA->m_hPen = 0;
return TRUE;
}
else return FALSE;
+} // end of wxPen::FreeResource
+
+bool wxPen::IsFree() const
+{
+ return (M_PENDATA && M_PENDATA->m_hPen == 0);
}
void wxPen::Unshare()
UnRef();
m_refData = ref;
}
-}
+} // end of wxPen::Unshare
-void wxPen::SetColour(const wxColour& col)
+void wxPen::SetColour(
+ const wxColour& rColour
+)
{
Unshare();
-
- M_PENDATA->m_colour = col;
-
+ M_PENDATA->m_vColour = rColour;
RealizeResource();
-}
+} // end of wxPen::SetColour
-void wxPen::SetColour(unsigned char r, unsigned char g, unsigned char b)
+void wxPen::SetColour(
+ unsigned char cRed
+, unsigned char cGreen
+, unsigned char cBlue
+)
{
Unshare();
-
- M_PENDATA->m_colour.Set(r, g, b);
-
+ M_PENDATA->m_vColour.Set(cRed, cGreen, cBlue);
RealizeResource();
-}
+} // end of wxPen::SetColour
-void wxPen::SetWidth(int Width)
+void wxPen::SetPS(
+ HPS hPS
+)
{
Unshare();
-
- M_PENDATA->m_width = Width;
-
+ if (M_PENDATA->m_hPen)
+ ::GpiDestroyPS(M_PENDATA->m_hPen);
+ M_PENDATA->m_hPen = hPS;
RealizeResource();
-}
+} // end of WxWinGdi_CPen::SetPS
-void wxPen::SetStyle(int Style)
+void wxPen::SetWidth(
+ int nWidth
+)
{
Unshare();
-
- M_PENDATA->m_style = Style;
-
+ M_PENDATA->m_nWidth = nWidth;
RealizeResource();
-}
+} // end of wxPen::SetWidth
-void wxPen::SetStipple(const wxBitmap& Stipple)
+void wxPen::SetStyle(
+ int nStyle
+)
{
Unshare();
-
- M_PENDATA->m_stipple = Stipple;
- M_PENDATA->m_style = wxSTIPPLE;
-
+ M_PENDATA->m_nStyle = nStyle;
RealizeResource();
-}
+} // end of wxPen::SetStyle
-void wxPen::SetDashes(int nb_dashes, const wxDash *Dash)
+void wxPen::SetStipple(
+ const wxBitmap& rStipple
+)
{
Unshare();
-
- M_PENDATA->m_nbDash = nb_dashes;
- M_PENDATA->m_dash = (wxDash *)Dash;
-
+ M_PENDATA->m_vStipple = rStipple;
+ M_PENDATA->m_nStyle = wxSTIPPLE;
RealizeResource();
-}
+} // end of wxPen::SetStipple
-void wxPen::SetJoin(int Join)
+void wxPen::SetDashes(
+ int nNbDashes
+, const wxDash* pDash
+)
+{
+ //
+ // Does nothing under OS/2
+ //
+} // end of wxPen::SetDashes
+
+void wxPen::SetJoin(
+ int nJoin
+)
{
Unshare();
-
- M_PENDATA->m_join = Join;
-
+ M_PENDATA->m_nJoin = nJoin;
RealizeResource();
-}
+} // end of wxPen::SetJoin
-void wxPen::SetCap(int Cap)
+void wxPen::SetCap(
+ int nCap
+)
{
Unshare();
-
- M_PENDATA->m_cap = Cap;
-
+ M_PENDATA->m_nCap = nCap;
RealizeResource();
-}
+} // end of wxPen::SetCap
-int wx2os2PenStyle(int wx_style)
+int wx2os2PenStyle(
+ int nWxStyle
+)
{
- int cstyle;
-// TODO:
-/*
- switch (wx_style)
+ int nPMStyle = 0;
+
+ switch (nWxStyle)
{
- case wxDOT:
- cstyle = PS_DOT;
- break;
-
- case wxDOT_DASH:
- cstyle = PS_DASHDOT;
- break;
-
- case wxSHORT_DASH:
- case wxLONG_DASH:
- cstyle = PS_DASH;
- break;
-
- case wxTRANSPARENT:
- cstyle = PS_NULL;
- break;
-
- case wxUSER_DASH:
-#ifdef __WIN32__
- // Win32s doesn't have PS_USERSTYLE
- if (wxGetOsVersion()==wxWINDOWS_NT || wxGetOsVersion()==wxWIN95)
- cstyle = PS_USERSTYLE;
- else
- cstyle = PS_DOT; // We must make a choice... This is mine!
-#else
- cstyle = PS_DASH;
-#endif
- break;
- case wxSOLID:
- default:
- cstyle = PS_SOLID;
- break;
- }
-*/
- return cstyle;
-}
+ case wxDOT:
+ nPMStyle = LINETYPE_DOT;
+ break;
+
+ case wxDOT_DASH:
+ nPMStyle = LINETYPE_DASHDOT;
+ break;
+
+ case wxSHORT_DASH:
+ nPMStyle = LINETYPE_SHORTDASH;
+ break;
+
+ case wxLONG_DASH:
+ nPMStyle = LINETYPE_LONGDASH;
+ break;
+
+ case wxTRANSPARENT:
+ nPMStyle = LINETYPE_INVISIBLE;
+ break;
+
+ case wxUSER_DASH:
+ nPMStyle = LINETYPE_DASHDOUBLEDOT; // We must make a choice... This is mine!
+ break;
+
+ case wxSOLID:
+ default:
+ nPMStyle = LINETYPE_SOLID;
+ break;
+ }
+ return nPMStyle;
+} // end of wx2os2PenStyle
projects / wxWidgets.git / blobdiff