src/os2/pen.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        pen.cpp
   3 // Purpose:     wxPen
   4 // Author:      David Webster
   5 // Modified by:
   6 // Created:     10/10/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) David Webster
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifndef WX_PRECOMP
  16 #include <stdio.h>
  17 #include "wx/setup.h"
  18 #include "wx/list.h"
  19 #include "wx/utils.h"
  20 #include "wx/app.h"
  21 #include "wx/pen.h"
  22 #endif
  23
  24 #include "wx/os2/private.h"
  25 #include "assert.h"
  26
  27 IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)
  28
  29 wxPenRefData::wxPenRefData()
  30 {
  31     m_nStyle  = wxSOLID;
  32     m_nWidth  = 1;
  33     m_nJoin   = wxJOIN_ROUND ;
  34     m_nCap    = wxCAP_ROUND ;
  35     m_hPen    = 0L;
  36 } // end of wxPenRefData::wxPenRefData
  37
  38 wxPenRefData::wxPenRefData(
  39   const wxPenRefData&               rData
  40 )
  41 {
  42     m_nStyle  = rData.m_nStyle;
  43     m_nWidth  = rData.m_nWidth;
  44     m_nJoin   = rData.m_nJoin;
  45     m_nCap    = rData.m_nCap;
  46     m_vColour = rData.m_vColour;
  47     m_hPen    = 0L;
  48 } // end of wxPenRefData::wxPenRefData
  49
  50 wxPenRefData::~wxPenRefData()
  51 {
  52 } // end of wxPenRefData::~wxPenRefData
  53
  54 //
  55 // Pens
  56 //
  57 wxPen::wxPen()
  58 {
  59     if ( wxThePenList )
  60         wxThePenList->AddPen(this);
  61 } // end of wxPen::wxPen
  62
  63 wxPen::~wxPen()
  64 {
  65     if (wxThePenList)
  66         wxThePenList->RemovePen(this);
  67 } // end of wxPen::wxPen
  68
  69 // Should implement Create
  70 wxPen::wxPen(
  71   const wxColour&                   rColour
  72 , int                               nWidth
  73 , int                               nStyle
  74 )
  75 {
  76     m_refData = new wxPenRefData;
  77
  78     M_PENDATA->m_vColour = rColour;
  79     M_PENDATA->m_nWidth  = nWidth;
  80     M_PENDATA->m_nStyle  = nStyle;
  81     M_PENDATA->m_nJoin   = wxJOIN_ROUND ;
  82     M_PENDATA->m_nCap    = wxCAP_ROUND ;
  83     M_PENDATA->m_hPen    = 0L;
  84
  85     RealizeResource();
  86
  87     if ( wxThePenList )
  88         wxThePenList->AddPen(this);
  89 } // end of wxPen::wxPen
  90
  91 wxPen::wxPen(
  92   const wxBitmap&                   rStipple
  93 , int                               nWidth
  94 )
  95 {
  96     m_refData = new wxPenRefData;
  97
  98     M_PENDATA->m_vStipple = rStipple;
  99     M_PENDATA->m_nWidth   = nWidth;
 100     M_PENDATA->m_nStyle   = wxSTIPPLE;
 101     M_PENDATA->m_nJoin    = wxJOIN_ROUND ;
 102     M_PENDATA->m_nCap     = wxCAP_ROUND ;
 103     M_PENDATA->m_hPen     = 0;
 104
 105     RealizeResource();
 106
 107     if ( wxThePenList )
 108         wxThePenList->AddPen(this);
 109 } // end of wxPen::wxPen
 110
 111 bool wxPen::RealizeResource()
 112 {
 113     BOOL                            bOk;
 114     ERRORID                         vError;
 115     wxString                        sError;
 116
 117     if (M_PENDATA && M_PENDATA->m_hPen == 0L)
 118     {
 119         SIZEL                   vSize = {0, 0};
 120         DEVOPENSTRUC            vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
 121         HDC                     hDC = ::DevOpenDC( vHabmain
 122                                                   ,OD_MEMORY
 123                                                   ,"*"
 124                                                   ,5L
 125                                                   ,(PDEVOPENDATA)&vDop
 126                                                   ,NULLHANDLE
 127                                                  );
 128         M_PENDATA->m_hPen = (WXHPEN)::GpiCreatePS( vHabmain
 129                                                   ,hDC
 130                                                   ,&vSize
 131                                                   ,PU_PELS | GPIT_MICRO | GPIA_ASSOC
 132                                                  );
 133     }
 134     if (M_PENDATA)
 135     {
 136         //
 137         // Set the color table to RGB mode
 138         //
 139         if (!::GpiCreateLogColorTable( (HPS)M_PENDATA->m_hPen
 140                                       ,0L
 141                                       ,LCOLF_RGB
 142                                       ,0L
 143                                       ,0L
 144                                       ,NULL
 145                                      ))
 146         {
 147             vError = ::WinGetLastError(vHabmain);
 148             sError = wxPMErrorToStr(vError);
 149             wxLogError("Unable to set current color table to RGB mode. Error: %s\n", sError);
 150             return FALSE;
 151         }
 152         if (M_PENDATA->m_nStyle == wxTRANSPARENT)
 153         {
 154             return TRUE;
 155         }
 156
 157         COLORREF                    vPmColour = 0L;
 158         USHORT                      uLineType = wx2os2PenStyle(M_PENDATA->m_nStyle);
 159
 160         vPmColour = M_PENDATA->m_vColour.GetPixel();
 161
 162         USHORT                      uJoin = 0L;
 163
 164         switch(M_PENDATA->m_nJoin)
 165         {
 166             case wxJOIN_BEVEL:
 167                 uJoin = LINEJOIN_BEVEL;
 168                 break;
 169
 170             case wxJOIN_MITER:
 171                 uJoin = LINEJOIN_MITRE;
 172                 break;
 173
 174             case wxJOIN_ROUND:
 175                 uJoin = LINEJOIN_ROUND;
 176                 break;
 177         }
 178
 179         USHORT                      uCap = 0L;
 180
 181         switch(M_PENDATA->m_nCap)
 182         {
 183             case wxCAP_PROJECTING:
 184                 uCap = LINEEND_SQUARE;
 185                 break;
 186
 187             case wxCAP_BUTT:
 188                 uCap = LINEEND_FLAT;
 189                 break;
 190
 191             case wxCAP_ROUND:
 192                 uCap = LINEEND_ROUND;
 193                 break;
 194         }
 195         m_vLineBundle.lColor     = (LONG)vPmColour;
 196         m_vLineBundle.usMixMode  = FM_OVERPAINT;
 197         m_vLineBundle.fxWidth    = M_PENDATA->m_nWidth;
 198         m_vLineBundle.lGeomWidth = M_PENDATA->m_nWidth;
 199         m_vLineBundle.usType     = uLineType;
 200         m_vLineBundle.usEnd      = uCap;
 201         m_vLineBundle.usJoin     = uJoin;
 202
 203         bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
 204                             ,PRIM_LINE
 205                             ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE | LBB_END | LBB_JOIN
 206                             ,0L
 207                             ,&m_vLineBundle
 208                            );
 209         if (!bOk)
 210         {
 211             vError = ::WinGetLastError(vHabmain);
 212             sError = wxPMErrorToStr(vError);
 213             wxLogError("Can't set Gpi attributes for a LINEBUNDLE. Error: %s\n", sError);
 214             return FALSE;
 215         }
 216
 217         switch(M_PENDATA->m_nStyle)
 218         {
 219             case wxSTIPPLE:
 220                 ::GpiSetBitmapId( M_PENDATA->m_hPen
 221                                  ,(USHORT)M_PENDATA->m_vStipple.GetHBITMAP()
 222                                  ,(USHORT)M_PENDATA->m_vStipple.GetId()
 223                                 );
 224                 ::GpiSetPatternSet( M_PENDATA->m_hPen
 225                                    ,(USHORT)M_PENDATA->m_vStipple.GetId()
 226                                   );
 227                 break;
 228
 229             case wxBDIAGONAL_HATCH:
 230                 m_vAreaBundle.usSymbol = PATSYM_DIAG3;
 231                 m_vAreaBundle.usSet = LCID_DEFAULT;
 232                 break;
 233
 234             case wxCROSSDIAG_HATCH:
 235                 m_vAreaBundle.usSymbol = PATSYM_DIAGHATCH;
 236                 m_vAreaBundle.usSet = LCID_DEFAULT;
 237                 break;
 238
 239             case wxFDIAGONAL_HATCH:
 240                 m_vAreaBundle.usSymbol = PATSYM_DIAG1;
 241                 m_vAreaBundle.usSet = LCID_DEFAULT;
 242                 break;
 243
 244             case wxCROSS_HATCH:
 245                 m_vAreaBundle.usSymbol = PATSYM_HATCH;
 246                 m_vAreaBundle.usSet = LCID_DEFAULT;
 247                 break;
 248
 249             case wxHORIZONTAL_HATCH:
 250                 m_vAreaBundle.usSymbol = PATSYM_HORIZ;
 251                 m_vAreaBundle.usSet = LCID_DEFAULT;
 252                 break;
 253
 254             case wxVERTICAL_HATCH:
 255                 m_vAreaBundle.usSymbol = PATSYM_VERT;
 256                 m_vAreaBundle.usSet = LCID_DEFAULT;
 257                 break;
 258
 259             default:
 260                 m_vAreaBundle.usSymbol = PATSYM_SOLID;
 261                 m_vAreaBundle.usSet = LCID_DEFAULT;
 262                 break;
 263         }
 264
 265         m_vAreaBundle.lColor        = vPmColour;
 266         m_vAreaBundle.lBackColor    = CLR_DEFAULT;
 267         m_vAreaBundle.usMixMode     = FM_OVERPAINT;
 268         m_vAreaBundle.usBackMixMode = BM_OVERPAINT;
 269
 270         bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
 271                             ,PRIM_AREA
 272                             ,ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE |
 273                              ABB_SET | ABB_SYMBOL
 274                             ,ABB_REF_POINT
 275                             ,&m_vAreaBundle
 276                            );
 277         if (!bOk)
 278         {
 279             vError = ::WinGetLastError(vHabmain);
 280             sError = wxPMErrorToStr(vError);
 281             wxLogError("Can't set Gpi attributes for an AREABUNDLE. Error: %s\n", sError);
 282         }
 283         return bOk;
 284     }
 285     return FALSE;
 286 } // end of wxPen::RealizeResource
 287
 288 WXHANDLE wxPen::GetResourceHandle()
 289 {
 290     if (!M_PENDATA)
 291         return 0;
 292     else
 293         return (WXHANDLE)M_PENDATA->m_hPen;
 294 } // end of wxPen::GetResourceHandle
 295
 296 bool wxPen::FreeResource(
 297   bool                              bForce
 298 )
 299 {
 300     if (M_PENDATA && (M_PENDATA->m_hPen != 0))
 301     {
 302         M_PENDATA->m_hPen = 0;
 303         return TRUE;
 304     }
 305     else return FALSE;
 306 } // end of wxPen::FreeResource
 307
 308 bool wxPen::IsFree() const
 309 {
 310     return (M_PENDATA && M_PENDATA->m_hPen == 0);
 311 }
 312
 313 void wxPen::Unshare()
 314 {
 315     // Don't change shared data
 316     if (!m_refData)
 317     {
 318         m_refData = new wxPenRefData();
 319     }
 320     else
 321     {
 322         wxPenRefData* ref = new wxPenRefData(*(wxPenRefData*)m_refData);
 323         UnRef();
 324         m_refData = ref;
 325     }
 326 } // end of wxPen::Unshare
 327
 328 void wxPen::SetColour(
 329   const wxColour&                   rColour
 330 )
 331 {
 332     Unshare();
 333     M_PENDATA->m_vColour = rColour;
 334     RealizeResource();
 335 } // end of wxPen::SetColour
 336
 337 void wxPen::SetColour(
 338   unsigned char                     cRed
 339 , unsigned char                     cGreen
 340 , unsigned char                     cBlue
 341 )
 342 {
 343     Unshare();
 344     M_PENDATA->m_vColour.Set(cRed, cGreen, cBlue);
 345     RealizeResource();
 346 } // end of wxPen::SetColour
 347
 348 void wxPen::SetPS(
 349   HPS                               hPS
 350 )
 351 {
 352     Unshare();
 353     if (M_PENDATA->m_hPen)
 354         ::GpiDestroyPS(M_PENDATA->m_hPen);
 355     M_PENDATA->m_hPen = hPS;
 356     RealizeResource();
 357 } // end of WxWinGdi_CPen::SetPS
 358
 359 void wxPen::SetWidth(
 360   int                               nWidth
 361 )
 362 {
 363     Unshare();
 364     M_PENDATA->m_nWidth = nWidth;
 365     RealizeResource();
 366 } // end of wxPen::SetWidth
 367
 368 void wxPen::SetStyle(
 369   int                               nStyle
 370 )
 371 {
 372     Unshare();
 373     M_PENDATA->m_nStyle = nStyle;
 374     RealizeResource();
 375 } // end of wxPen::SetStyle
 376
 377 void wxPen::SetStipple(
 378   const wxBitmap&                   rStipple
 379 )
 380 {
 381     Unshare();
 382     M_PENDATA->m_vStipple = rStipple;
 383     M_PENDATA->m_nStyle = wxSTIPPLE;
 384     RealizeResource();
 385 } // end of wxPen::SetStipple
 386
 387 void wxPen::SetDashes(
 388   int                               nNbDashes
 389 , const wxDash*                     pDash
 390 )
 391 {
 392     //
 393     // Does nothing under OS/2
 394     //
 395 } // end of wxPen::SetDashes
 396
 397 void wxPen::SetJoin(
 398   int                               nJoin
 399 )
 400 {
 401     Unshare();
 402     M_PENDATA->m_nJoin = nJoin;
 403     RealizeResource();
 404 } // end of wxPen::SetJoin
 405
 406 void wxPen::SetCap(
 407   int                               nCap
 408 )
 409 {
 410     Unshare();
 411     M_PENDATA->m_nCap = nCap;
 412     RealizeResource();
 413 } // end of wxPen::SetCap
 414
 415 int wx2os2PenStyle(
 416   int                               nWxStyle
 417 )
 418 {
 419     int                             nPMStyle = 0;
 420
 421     switch (nWxStyle)
 422     {
 423         case wxDOT:
 424             nPMStyle = LINETYPE_DOT;
 425             break;
 426
 427         case wxDOT_DASH:
 428             nPMStyle = LINETYPE_DASHDOT;
 429             break;
 430
 431         case wxSHORT_DASH:
 432             nPMStyle = LINETYPE_SHORTDASH;
 433             break;
 434
 435         case wxLONG_DASH:
 436             nPMStyle = LINETYPE_LONGDASH;
 437             break;
 438
 439         case wxTRANSPARENT:
 440             nPMStyle = LINETYPE_INVISIBLE;
 441             break;
 442
 443         case wxUSER_DASH:
 444             nPMStyle = LINETYPE_DASHDOUBLEDOT; // We must make a choice... This is mine!
 445             break;
 446
 447         case wxSOLID:
 448         default:
 449             nPMStyle = LINETYPE_SOLID;
 450             break;
 451     }
 452     return nPMStyle;
 453 } // end of wx2os2PenStyle
 454
 455