src/msw/pen.cpp

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