src/os2/pen.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/os2/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/list.h"
  18     #include "wx/utils.h"
  19     #include "wx/app.h"
  20     #include "wx/pen.h"
  21     #include "wx/log.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 int wx2os2PenStyle(
 112   int                               nWxStyle
 113 );
 114
 115 bool wxPen::RealizeResource()
 116 {
 117     BOOL                            bOk;
 118     ERRORID                         vError;
 119     wxString                        sError;
 120
 121     if (M_PENDATA && M_PENDATA->m_hPen == 0L)
 122     {
 123         SIZEL                   vSize = {0, 0};
 124         DEVOPENSTRUC            vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
 125         HDC                     hDC = ::DevOpenDC( vHabmain
 126                                                   ,OD_MEMORY
 127                                                   ,"*"
 128                                                   ,5L
 129                                                   ,(PDEVOPENDATA)&vDop
 130                                                   ,NULLHANDLE
 131                                                  );
 132         M_PENDATA->m_hPen = (WXHPEN)::GpiCreatePS( vHabmain
 133                                                   ,hDC
 134                                                   ,&vSize
 135                                                   ,PU_PELS | GPIT_MICRO | GPIA_ASSOC
 136                                                  );
 137     }
 138     if (M_PENDATA)
 139     {
 140         //
 141         // Set the color table to RGB mode
 142         //
 143         if (!::GpiCreateLogColorTable( (HPS)M_PENDATA->m_hPen
 144                                       ,0L
 145                                       ,LCOLF_RGB
 146                                       ,0L
 147                                       ,0L
 148                                       ,NULL
 149                                      ))
 150         {
 151             vError = ::WinGetLastError(vHabmain);
 152             sError = wxPMErrorToStr(vError);
 153             wxLogError(_T("Unable to set current color table to RGB mode. Error: %s\n"), sError.c_str());
 154             return false;
 155         }
 156         if (M_PENDATA->m_nStyle == wxTRANSPARENT)
 157         {
 158             return true;
 159         }
 160
 161         COLORREF vPmColour = 0L;
 162         USHORT   uLineType = (USHORT)wx2os2PenStyle(M_PENDATA->m_nStyle);
 163
 164         vPmColour = M_PENDATA->m_vColour.GetPixel();
 165
 166         USHORT                      uJoin = 0L;
 167
 168         switch(M_PENDATA->m_nJoin)
 169         {
 170             case wxJOIN_BEVEL:
 171                 uJoin = LINEJOIN_BEVEL;
 172                 break;
 173
 174             case wxJOIN_MITER:
 175                 uJoin = LINEJOIN_MITRE;
 176                 break;
 177
 178             case wxJOIN_ROUND:
 179                 uJoin = LINEJOIN_ROUND;
 180                 break;
 181         }
 182
 183         USHORT                      uCap = 0L;
 184
 185         switch(M_PENDATA->m_nCap)
 186         {
 187             case wxCAP_PROJECTING:
 188                 uCap = LINEEND_SQUARE;
 189                 break;
 190
 191             case wxCAP_BUTT:
 192                 uCap = LINEEND_FLAT;
 193                 break;
 194
 195             case wxCAP_ROUND:
 196                 uCap = LINEEND_ROUND;
 197                 break;
 198         }
 199         m_vLineBundle.lColor     = (LONG)vPmColour;
 200         m_vLineBundle.usMixMode  = FM_OVERPAINT;
 201         m_vLineBundle.fxWidth    = M_PENDATA->m_nWidth;
 202         m_vLineBundle.lGeomWidth = M_PENDATA->m_nWidth;
 203         m_vLineBundle.usType     = uLineType;
 204         m_vLineBundle.usEnd      = uCap;
 205         m_vLineBundle.usJoin     = uJoin;
 206
 207         bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
 208                             ,PRIM_LINE
 209                             ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE | LBB_END | LBB_JOIN
 210                             ,0L
 211                             ,&m_vLineBundle
 212                            );
 213         if (!bOk)
 214         {
 215             vError = ::WinGetLastError(vHabmain);
 216             sError = wxPMErrorToStr(vError);
 217             wxLogError(_T("Can't set Gpi attributes for a LINEBUNDLE. Error: %s\n"), sError.c_str());
 218             return false;
 219         }
 220
 221         ULONG                           flAttrMask = 0L;
 222         ULONG                           flDefMask = 0L;
 223         switch(M_PENDATA->m_nStyle)
 224         {
 225             case wxSTIPPLE:
 226                 ::GpiSetBitmapId( M_PENDATA->m_hPen
 227                                  ,(USHORT)M_PENDATA->m_vStipple.GetHBITMAP()
 228                                  ,(USHORT)M_PENDATA->m_vStipple.GetId()
 229                                 );
 230                 ::GpiSetPatternSet( M_PENDATA->m_hPen
 231                                    ,(USHORT)M_PENDATA->m_vStipple.GetId()
 232                                   );
 233                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SET | ABB_SYMBOL;
 234                 flDefMask = ABB_REF_POINT;
 235                 break;
 236
 237             case wxBDIAGONAL_HATCH:
 238                 m_vAreaBundle.usSymbol = PATSYM_DIAG3;
 239                 m_vAreaBundle.usSet = LCID_DEFAULT;
 240                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 241                 flDefMask = ABB_SET | ABB_REF_POINT;
 242                 break;
 243
 244             case wxCROSSDIAG_HATCH:
 245                 m_vAreaBundle.usSymbol = PATSYM_DIAGHATCH;
 246                 m_vAreaBundle.usSet = LCID_DEFAULT;
 247                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 248                 flDefMask = ABB_SET | ABB_REF_POINT;
 249                 break;
 250
 251             case wxFDIAGONAL_HATCH:
 252                 m_vAreaBundle.usSymbol = PATSYM_DIAG1;
 253                 m_vAreaBundle.usSet = LCID_DEFAULT;
 254                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 255                 flDefMask = ABB_SET | ABB_REF_POINT;
 256                 break;
 257
 258             case wxCROSS_HATCH:
 259                 m_vAreaBundle.usSymbol = PATSYM_HATCH;
 260                 m_vAreaBundle.usSet = LCID_DEFAULT;
 261                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 262                 flDefMask = ABB_SET | ABB_REF_POINT;
 263                 break;
 264
 265             case wxHORIZONTAL_HATCH:
 266                 m_vAreaBundle.usSymbol = PATSYM_HORIZ;
 267                 m_vAreaBundle.usSet = LCID_DEFAULT;
 268                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 269                 flDefMask = ABB_SET | ABB_REF_POINT;
 270                 break;
 271
 272             case wxVERTICAL_HATCH:
 273                 m_vAreaBundle.usSymbol = PATSYM_VERT;
 274                 m_vAreaBundle.usSet = LCID_DEFAULT;
 275                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 276                 flDefMask = ABB_SET | ABB_REF_POINT;
 277                 break;
 278
 279             default:
 280                 m_vAreaBundle.usSymbol = PATSYM_SOLID;
 281                 m_vAreaBundle.usSet = LCID_DEFAULT;
 282                 flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
 283                 flDefMask = ABB_SET | ABB_REF_POINT;
 284                 break;
 285         }
 286
 287         m_vAreaBundle.lColor        = vPmColour;
 288         m_vAreaBundle.lBackColor    = RGB_WHITE;
 289         m_vAreaBundle.usMixMode     = FM_OVERPAINT;
 290         m_vAreaBundle.usBackMixMode = BM_OVERPAINT;
 291
 292         bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
 293                             ,PRIM_AREA
 294                             ,flAttrMask
 295                             ,flDefMask
 296                             ,&m_vAreaBundle
 297                            );
 298         if (!bOk)
 299         {
 300             vError = ::WinGetLastError(vHabmain);
 301             sError = wxPMErrorToStr(vError);
 302             wxLogError(_T("Can't set Gpi attributes for an AREABUNDLE. Error: %s\n"), sError.c_str());
 303         }
 304
 305         return (bool)bOk;
 306     }
 307     return false;
 308 } // end of wxPen::RealizeResource
 309
 310 WXHANDLE wxPen::GetResourceHandle()
 311 {
 312     if (!M_PENDATA)
 313         return 0;
 314     else
 315         return (WXHANDLE)M_PENDATA->m_hPen;
 316 } // end of wxPen::GetResourceHandle
 317
 318 bool wxPen::FreeResource( bool WXUNUSED(bForce) )
 319 {
 320     if (M_PENDATA && (M_PENDATA->m_hPen != 0))
 321     {
 322         M_PENDATA->m_hPen = 0;
 323         return true;
 324     }
 325     else return false;
 326 } // end of wxPen::FreeResource
 327
 328 bool wxPen::IsFree() const
 329 {
 330     return (M_PENDATA && M_PENDATA->m_hPen == 0);
 331 }
 332
 333 void wxPen::Unshare()
 334 {
 335     // Don't change shared data
 336     if (!m_refData)
 337     {
 338         m_refData = new wxPenRefData();
 339     }
 340     else
 341     {
 342         wxPenRefData* ref = new wxPenRefData(*(wxPenRefData*)m_refData);
 343         UnRef();
 344         m_refData = ref;
 345     }
 346 } // end of wxPen::Unshare
 347
 348 void wxPen::SetColour( const wxColour& rColour )
 349 {
 350     Unshare();
 351     M_PENDATA->m_vColour = rColour;
 352     RealizeResource();
 353 } // end of wxPen::SetColour
 354
 355 void wxPen::SetColour( unsigned char cRed, unsigned char cGreen, unsigned char cBlue)
 356 {
 357     Unshare();
 358     M_PENDATA->m_vColour.Set(cRed, cGreen, cBlue);
 359     RealizeResource();
 360 } // end of wxPen::SetColour
 361
 362 void wxPen::SetPS( HPS hPS )
 363 {
 364     Unshare();
 365     if (M_PENDATA->m_hPen)
 366         ::GpiDestroyPS(M_PENDATA->m_hPen);
 367     M_PENDATA->m_hPen = hPS;
 368     RealizeResource();
 369 } // end of WxWinGdi_CPen::SetPS
 370
 371 void wxPen::SetWidth(
 372   int                               nWidth
 373 )
 374 {
 375     Unshare();
 376     M_PENDATA->m_nWidth = nWidth;
 377     RealizeResource();
 378 } // end of wxPen::SetWidth
 379
 380 void wxPen::SetStyle(
 381   int                               nStyle
 382 )
 383 {
 384     Unshare();
 385     M_PENDATA->m_nStyle = nStyle;
 386     RealizeResource();
 387 } // end of wxPen::SetStyle
 388
 389 void wxPen::SetStipple(
 390   const wxBitmap&                   rStipple
 391 )
 392 {
 393     Unshare();
 394     M_PENDATA->m_vStipple = rStipple;
 395     M_PENDATA->m_nStyle = wxSTIPPLE;
 396     RealizeResource();
 397 } // end of wxPen::SetStipple
 398
 399 void wxPen::SetDashes( int WXUNUSED(nNbDashes),
 400                        const wxDash* WXUNUSED(pDash) )
 401 {
 402     //
 403     // Does nothing under OS/2
 404     //
 405 } // end of wxPen::SetDashes
 406
 407 int wxPen::GetDashes( wxDash **ptr ) const
 408 {
 409      // TODO
 410      *ptr = (wxDash*) NULL;
 411      return 0;
 412 }
 413
 414 int wxPen::GetDashCount() const
 415 {
 416      // TODO
 417     return 0;
 418 }
 419
 420 wxDash* wxPen::GetDash() const
 421 {
 422      // TODO
 423     return NULL;
 424 }
 425
 426 void wxPen::SetJoin(
 427   int                               nJoin
 428 )
 429 {
 430     Unshare();
 431     M_PENDATA->m_nJoin = nJoin;
 432     RealizeResource();
 433 } // end of wxPen::SetJoin
 434
 435 void wxPen::SetCap(
 436   int                               nCap
 437 )
 438 {
 439     Unshare();
 440     M_PENDATA->m_nCap = nCap;
 441     RealizeResource();
 442 } // end of wxPen::SetCap
 443
 444 int wx2os2PenStyle(
 445   int                               nWxStyle
 446 )
 447 {
 448     int                             nPMStyle = 0;
 449
 450     switch (nWxStyle)
 451     {
 452         case wxDOT:
 453             nPMStyle = LINETYPE_DOT;
 454             break;
 455
 456         case wxDOT_DASH:
 457             nPMStyle = LINETYPE_DASHDOT;
 458             break;
 459
 460         case wxSHORT_DASH:
 461             nPMStyle = LINETYPE_SHORTDASH;
 462             break;
 463
 464         case wxLONG_DASH:
 465             nPMStyle = LINETYPE_LONGDASH;
 466             break;
 467
 468         case wxTRANSPARENT:
 469             nPMStyle = LINETYPE_INVISIBLE;
 470             break;
 471
 472         case wxUSER_DASH:
 473             nPMStyle = LINETYPE_DASHDOUBLEDOT; // We must make a choice... This is mine!
 474             break;
 475
 476         case wxSOLID:
 477         default:
 478             nPMStyle = LINETYPE_SOLID;
 479             break;
 480     }
 481     return nPMStyle;
 482 } // end of wx2os2PenStyle