src/msw/pen.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        msw/pen.cpp
   3 // Purpose:     wxPen
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
  13 #pragma implementation "pen.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __BORLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24 #include <stdio.h>
  25 #include "wx/setup.h"
  26 #include "wx/list.h"
  27 #include "wx/utils.h"
  28 #include "wx/app.h"
  29 #include "wx/pen.h"
  30 #endif
  31
  32 #include "wx/msw/private.h"
  33
  34 IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)
  35
  36 wxPenRefData::wxPenRefData()
  37 {
  38   m_style = wxSOLID;
  39   m_width = 1;
  40   m_join = wxJOIN_ROUND ;
  41   m_cap = wxCAP_ROUND ;
  42   m_nbDash = 0 ;
  43   m_dash = (wxDash*)NULL;
  44   m_hPen = 0;
  45 }
  46
  47 wxPenRefData::wxPenRefData(const wxPenRefData& data)
  48 {
  49     m_style = data.m_style;
  50     m_width = data.m_width;
  51     m_join = data.m_join;
  52     m_cap = data.m_cap;
  53     m_nbDash = data.m_nbDash;
  54     m_dash = data.m_dash;
  55     m_colour = data.m_colour;
  56     m_hPen = 0;
  57 }
  58
  59 wxPenRefData::~wxPenRefData()
  60 {
  61         if ( m_hPen )
  62                 ::DeleteObject((HPEN) m_hPen);
  63 }
  64
  65 // Pens
  66
  67 wxPen::wxPen()
  68 {
  69 }
  70
  71 wxPen::~wxPen()
  72 {
  73 }
  74
  75 // Should implement Create
  76 wxPen::wxPen(const wxColour& col, int Width, int Style)
  77 {
  78   m_refData = new wxPenRefData;
  79
  80   M_PENDATA->m_colour = col;
  81 //  M_PENDATA->m_stipple = NULL;
  82   M_PENDATA->m_width = Width;
  83   M_PENDATA->m_style = Style;
  84   M_PENDATA->m_join = wxJOIN_ROUND ;
  85   M_PENDATA->m_cap = wxCAP_ROUND ;
  86   M_PENDATA->m_nbDash = 0 ;
  87   M_PENDATA->m_dash = (wxDash*)NULL;
  88   M_PENDATA->m_hPen = 0 ;
  89
  90 #ifndef __WIN32__
  91   // In Windows, only a pen of width = 1 can be dotted or dashed!
  92   if ((Style == wxDOT) || (Style == wxLONG_DASH) ||
  93       (Style == wxSHORT_DASH) || (Style == wxDOT_DASH) ||
  94       (Style == wxUSER_DASH))
  95     M_PENDATA->m_width = 1;
  96 #else
  97 /***
  98   DWORD vers = GetVersion() ;
  99   WORD  high = HIWORD(vers) ; // high bit=0 for NT, 1 for Win32s
 100   // Win32s doesn't support wide dashed pens
 101
 102   if ((high&0x8000)!=0)
 103 ***/
 104   if (wxGetOsVersion()==wxWIN32S)
 105   {
 106     // In Windows, only a pen of width = 1 can be dotted or dashed!
 107     if ((Style == wxDOT) || (Style == wxLONG_DASH) ||
 108         (Style == wxSHORT_DASH) || (Style == wxDOT_DASH) ||
 109         (Style == wxUSER_DASH))
 110       M_PENDATA->m_width = 1;
 111   }
 112 #endif
 113   RealizeResource();
 114
 115 }
 116
 117 wxPen::wxPen(const wxBitmap& stipple, int Width)
 118 {
 119     m_refData = new wxPenRefData;
 120
 121 //  M_PENDATA->m_colour = col;
 122     M_PENDATA->m_stipple = stipple;
 123     M_PENDATA->m_width = Width;
 124     M_PENDATA->m_style = wxSTIPPLE;
 125     M_PENDATA->m_join = wxJOIN_ROUND ;
 126     M_PENDATA->m_cap = wxCAP_ROUND ;
 127     M_PENDATA->m_nbDash = 0 ;
 128     M_PENDATA->m_dash = (wxDash*)NULL;
 129     M_PENDATA->m_hPen = 0 ;
 130
 131     RealizeResource();
 132
 133 }
 134
 135 bool wxPen::RealizeResource()
 136 {
 137    if (M_PENDATA && (M_PENDATA->m_hPen == 0))
 138    {
 139        if (M_PENDATA->m_style==wxTRANSPARENT)
 140        {
 141            M_PENDATA->m_hPen = (WXHPEN) ::GetStockObject(NULL_PEN);
 142            return TRUE;
 143        }
 144
 145        COLORREF ms_colour = M_PENDATA->m_colour.GetPixel();
 146
 147        // Join style, Cap style, Pen Stippling only on Win32.
 148        // Currently no time to find equivalent on Win3.1, sorry
 149        // [if such equiv exist!!]
 150 #if defined(__WIN32__) && !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
 151        if (M_PENDATA->m_join==wxJOIN_ROUND        &&
 152            M_PENDATA->m_cap==wxCAP_ROUND          &&
 153            M_PENDATA->m_style!=wxUSER_DASH        &&
 154            M_PENDATA->m_style!=wxSTIPPLE          &&
 155            M_PENDATA->m_width <= 1)
 156        {
 157            M_PENDATA->m_hPen =
 158              (WXHPEN) CreatePen( wx2msPenStyle(M_PENDATA->m_style),
 159                                  M_PENDATA->m_width,
 160                                  ms_colour );
 161        }
 162        else
 163        {
 164            DWORD ms_style = PS_GEOMETRIC | wx2msPenStyle(M_PENDATA->m_style);
 165
 166            switch(M_PENDATA->m_join)
 167            {
 168                case wxJOIN_BEVEL: ms_style |= PS_JOIN_BEVEL; break;
 169                case wxJOIN_MITER: ms_style |= PS_JOIN_MITER; break;
 170                default:
 171                case wxJOIN_ROUND: ms_style |= PS_JOIN_ROUND; break;
 172            }
 173
 174            switch(M_PENDATA->m_cap)
 175            {
 176                case wxCAP_PROJECTING: ms_style |= PS_ENDCAP_SQUARE;  break;
 177                case wxCAP_BUTT:       ms_style |= PS_ENDCAP_FLAT;    break;
 178                default:
 179                case wxCAP_ROUND:      ms_style |= PS_ENDCAP_ROUND;   break;
 180            }
 181
 182            LOGBRUSH logb;
 183
 184            switch(M_PENDATA->m_style)
 185            {
 186                case wxSTIPPLE:
 187                    logb.lbStyle = BS_PATTERN ;
 188                    if (M_PENDATA->m_stipple.Ok())
 189                        logb.lbHatch = (LONG)M_PENDATA->m_stipple.GetHBITMAP();
 190                    else
 191                        logb.lbHatch = (LONG)0;
 192                    break;
 193                case wxBDIAGONAL_HATCH:
 194                    logb.lbStyle = BS_HATCHED;
 195                    logb.lbHatch = HS_BDIAGONAL;
 196                    break;
 197                case wxCROSSDIAG_HATCH:
 198                    logb.lbStyle = BS_HATCHED;
 199                    logb.lbHatch = HS_DIAGCROSS;
 200                    break;
 201                case wxFDIAGONAL_HATCH:
 202                    logb.lbStyle = BS_HATCHED;
 203                    logb.lbHatch = HS_FDIAGONAL;
 204                    break;
 205                case wxCROSS_HATCH:
 206                    logb.lbStyle = BS_HATCHED;
 207                    logb.lbHatch = HS_CROSS;
 208                    break;
 209                case wxHORIZONTAL_HATCH:
 210                    logb.lbStyle = BS_HATCHED;
 211                    logb.lbHatch = HS_HORIZONTAL;
 212                    break;
 213                case wxVERTICAL_HATCH:
 214                    logb.lbStyle = BS_HATCHED;
 215                    logb.lbHatch = HS_VERTICAL;
 216                    break;
 217                default:
 218                    logb.lbStyle = BS_SOLID;
 219 #ifdef __WXDEBUG__
 220                    // this should be unnecessary (it's unused) but suppresses the Purigy
 221                    // messages about uninitialized memory read
 222                    logb.lbHatch = 0;
 223 #endif
 224                    break;
 225            }
 226
 227            logb.lbColor = ms_colour;
 228
 229            wxMSWDash *real_dash;
 230            if (M_PENDATA->m_style==wxUSER_DASH && M_PENDATA->m_nbDash && M_PENDATA->m_dash)
 231            {
 232                real_dash = new wxMSWDash[M_PENDATA->m_nbDash];
 233                int rw = M_PENDATA->m_width > 1 ? M_PENDATA->m_width : 1;
 234                for ( int i = 0; i < M_PENDATA->m_nbDash; i++ )
 235                    real_dash[i] = M_PENDATA->m_dash[i] * rw;
 236            }
 237            else
 238            {
 239                real_dash = (wxMSWDash*)NULL;
 240            }
 241
 242            // Win32s doesn't have ExtCreatePen function...
 243            if (wxGetOsVersion()==wxWINDOWS_NT || wxGetOsVersion()==wxWIN95)
 244            {
 245                M_PENDATA->m_hPen =
 246                  (WXHPEN) ExtCreatePen( ms_style,
 247                                         M_PENDATA->m_width,
 248                                         &logb,
 249                                         M_PENDATA->m_style == wxUSER_DASH
 250                                           ? M_PENDATA->m_nbDash
 251                                           : 0,
 252                                         (LPDWORD)real_dash );
 253            }
 254            else
 255            {
 256                M_PENDATA->m_hPen =
 257                   (WXHPEN) CreatePen( wx2msPenStyle(M_PENDATA->m_style),
 258                                       M_PENDATA->m_width,
 259                                       ms_colour );
 260            }
 261
 262            if (real_dash)
 263                delete [] real_dash;
 264        }
 265 #else
 266        M_PENDATA->m_hPen =
 267          (WXHPEN) CreatePen( wx2msPenStyle(M_PENDATA->m_style),
 268                              M_PENDATA->m_width,
 269                              ms_colour );
 270 #endif
 271 #ifdef WXDEBUG_CREATE
 272        if (M_PENDATA->m_hPen==0)
 273            wxError("Cannot create pen","Internal error") ;
 274 #endif
 275        return TRUE;
 276     }
 277     return FALSE;
 278 }
 279
 280 WXHANDLE wxPen::GetResourceHandle() const
 281 {
 282         if ( !M_PENDATA )
 283                 return 0;
 284         else
 285                 return (WXHANDLE)M_PENDATA->m_hPen;
 286 }
 287
 288 bool wxPen::FreeResource(bool WXUNUSED(force))
 289 {
 290   if (M_PENDATA && (M_PENDATA->m_hPen != 0))
 291   {
 292     DeleteObject((HPEN) M_PENDATA->m_hPen);
 293     M_PENDATA->m_hPen = 0;
 294     return TRUE;
 295   }
 296   else return FALSE;
 297 }
 298
 299 bool wxPen::IsFree() const
 300 {
 301   return (M_PENDATA && M_PENDATA->m_hPen == 0);
 302 }
 303
 304 void wxPen::Unshare()
 305 {
 306         // Don't change shared data
 307         if (!m_refData)
 308     {
 309                 m_refData = new wxPenRefData();
 310         }
 311     else
 312     {
 313                 wxPenRefData* ref = new wxPenRefData(*(wxPenRefData*)m_refData);
 314                 UnRef();
 315                 m_refData = ref;
 316         }
 317 }
 318
 319 void wxPen::SetColour(const wxColour& col)
 320 {
 321     Unshare();
 322
 323     M_PENDATA->m_colour = col;
 324
 325     RealizeResource();
 326 }
 327
 328 void wxPen::SetColour(unsigned char r, unsigned char g, unsigned char b)
 329 {
 330     Unshare();
 331
 332     M_PENDATA->m_colour.Set(r, g, b);
 333
 334     RealizeResource();
 335 }
 336
 337 void wxPen::SetWidth(int Width)
 338 {
 339     Unshare();
 340
 341     M_PENDATA->m_width = Width;
 342
 343     RealizeResource();
 344 }
 345
 346 void wxPen::SetStyle(int Style)
 347 {
 348     Unshare();
 349
 350     M_PENDATA->m_style = Style;
 351
 352     RealizeResource();
 353 }
 354
 355 void wxPen::SetStipple(const wxBitmap& Stipple)
 356 {
 357     Unshare();
 358
 359     M_PENDATA->m_stipple = Stipple;
 360     M_PENDATA->m_style = wxSTIPPLE;
 361
 362     RealizeResource();
 363 }
 364
 365 void wxPen::SetDashes(int nb_dashes, const wxDash *Dash)
 366 {
 367     Unshare();
 368
 369     M_PENDATA->m_nbDash = nb_dashes;
 370     M_PENDATA->m_dash = (wxDash *)Dash;
 371
 372     RealizeResource();
 373 }
 374
 375 void wxPen::SetJoin(int Join)
 376 {
 377     Unshare();
 378
 379     M_PENDATA->m_join = Join;
 380
 381     RealizeResource();
 382 }
 383
 384 void wxPen::SetCap(int Cap)
 385 {
 386     Unshare();
 387
 388     M_PENDATA->m_cap = Cap;
 389
 390     RealizeResource();
 391 }
 392
 393 int wx2msPenStyle(int wx_style)
 394 {
 395     int cstyle;
 396     switch (wx_style)
 397     {
 398 #if !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
 399        case wxDOT:
 400            cstyle = PS_DOT;
 401            break;
 402
 403        case wxDOT_DASH:
 404            cstyle = PS_DASHDOT;
 405            break;
 406
 407        case wxSHORT_DASH:
 408        case wxLONG_DASH:
 409            cstyle = PS_DASH;
 410            break;
 411
 412        case wxTRANSPARENT:
 413            cstyle = PS_NULL;
 414            break;
 415 #endif
 416
 417        case wxUSER_DASH:
 418 #if !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
 419 #ifdef __WIN32__
 420            // Win32s doesn't have PS_USERSTYLE
 421            if (wxGetOsVersion()==wxWINDOWS_NT || wxGetOsVersion()==wxWIN95)
 422                cstyle = PS_USERSTYLE;
 423            else
 424                cstyle = PS_DOT; // We must make a choice... This is mine!
 425 #else
 426            cstyle = PS_DASH;
 427 #endif
 428 #endif
 429            break;
 430        case wxSOLID:
 431        default:
 432            cstyle = PS_SOLID;
 433            break;
 434    }
 435    return cstyle;
 436 }
 437