objects/pen.c

   1 /*
   2  * GDI pen objects
   3  *
   4  * Copyright 1993 Alexandre Julliard
   5  */
   6
   7 #include <string.h>
   8 #include "pen.h"
   9 #include "debugtools.h"
  10
  11 DEFAULT_DEBUG_CHANNEL(gdi)
  12
  13
  14
  15 /***********************************************************************
  16  *           CreatePen16    (GDI.61)
  17  */
  18 HPEN16 WINAPI CreatePen16( INT16 style, INT16 width, COLORREF color )
  19 {
  20     LOGPEN logpen;
  21
  22     TRACE("%d %d %06lx\n", style, width, color );
  23
  24     logpen.lopnStyle = style;
  25     logpen.lopnWidth.x = width;
  26     logpen.lopnWidth.y = 0;
  27     logpen.lopnColor = color;
  28
  29     return CreatePenIndirect( &logpen );
  30 }
  31
  32
  33 /***********************************************************************
  34  *           CreatePen    (GDI32.55)
  35  */
  36 HPEN WINAPI CreatePen( INT style, INT width, COLORREF color )
  37 {
  38     LOGPEN logpen;
  39
  40     TRACE("%d %d %06lx\n", style, width, color );
  41
  42     logpen.lopnStyle = style;
  43     logpen.lopnWidth.x = width;
  44     logpen.lopnWidth.y = 0;
  45     logpen.lopnColor = color;
  46
  47     return CreatePenIndirect( &logpen );
  48 }
  49
  50
  51 /***********************************************************************
  52  *           CreatePenIndirect16    (GDI.62)
  53  */
  54 HPEN16 WINAPI CreatePenIndirect16( const LOGPEN16 * pen )
  55 {
  56     PENOBJ * penPtr;
  57     HPEN hpen;
  58
  59     if (pen->lopnStyle > PS_INSIDEFRAME) return 0;
  60     if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, &hpen ))) return 0;
  61     penPtr->logpen.lopnStyle = pen->lopnStyle;
  62     penPtr->logpen.lopnColor = pen->lopnColor;
  63     CONV_POINT16TO32( &pen->lopnWidth, &penPtr->logpen.lopnWidth );
  64     GDI_ReleaseObj( hpen );
  65     return hpen;
  66 }
  67
  68
  69 /***********************************************************************
  70  *           CreatePenIndirect    (GDI32.56)
  71  */
  72 HPEN WINAPI CreatePenIndirect( const LOGPEN * pen )
  73 {
  74     PENOBJ * penPtr;
  75     HPEN hpen;
  76
  77     if (pen->lopnStyle > PS_INSIDEFRAME) return 0;
  78     if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, &hpen ))) return 0;
  79     penPtr->logpen.lopnStyle = pen->lopnStyle;
  80     penPtr->logpen.lopnWidth = pen->lopnWidth;
  81     penPtr->logpen.lopnColor = pen->lopnColor;
  82     GDI_ReleaseObj( hpen );
  83     return hpen;
  84 }
  85
  86 /***********************************************************************
  87  *           ExtCreatePen    (GDI32.93)
  88  *
  89  * FIXME: PS_USERSTYLE not handled
  90  */
  91
  92 HPEN WINAPI ExtCreatePen( DWORD style, DWORD width,
  93                               const LOGBRUSH * brush, DWORD style_count,
  94                               const DWORD *style_bits )
  95 {
  96     PENOBJ * penPtr;
  97     HPEN hpen;
  98
  99     if ((style & PS_STYLE_MASK) == PS_USERSTYLE)
 100         FIXME("PS_USERSTYLE not handled\n");
 101     if ((style & PS_TYPE_MASK) == PS_GEOMETRIC)
 102         if (brush->lbHatch)
 103             FIXME("Hatches not implemented\n");
 104
 105     if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, &hpen ))) return 0;
 106     penPtr->logpen.lopnStyle = style & ~PS_TYPE_MASK;
 107
 108     /* PS_USERSTYLE and PS_ALTERNATE workaround */
 109     if((penPtr->logpen.lopnStyle & PS_STYLE_MASK) > PS_INSIDEFRAME)
 110        penPtr->logpen.lopnStyle =
 111          (penPtr->logpen.lopnStyle & ~PS_STYLE_MASK) | PS_SOLID;
 112
 113     penPtr->logpen.lopnWidth.x = (style & PS_GEOMETRIC) ? width : 1;
 114     penPtr->logpen.lopnWidth.y = 0;
 115     penPtr->logpen.lopnColor = brush->lbColor;
 116     GDI_ReleaseObj( hpen );
 117
 118     return hpen;
 119 }
 120
 121 /***********************************************************************
 122  *           PEN_GetObject16
 123  */
 124 INT16 PEN_GetObject16( PENOBJ * pen, INT16 count, LPSTR buffer )
 125 {
 126     LOGPEN16 logpen;
 127     logpen.lopnStyle = pen->logpen.lopnStyle;
 128     logpen.lopnColor = pen->logpen.lopnColor;
 129     CONV_POINT32TO16( &pen->logpen.lopnWidth, &logpen.lopnWidth );
 130     if (count > sizeof(logpen)) count = sizeof(logpen);
 131     memcpy( buffer, &logpen, count );
 132     return count;
 133 }
 134
 135
 136 /***********************************************************************
 137  *           PEN_GetObject
 138  */
 139 INT PEN_GetObject( PENOBJ * pen, INT count, LPSTR buffer )
 140 {
 141     if (count > sizeof(pen->logpen)) count = sizeof(pen->logpen);
 142     memcpy( buffer, &pen->logpen, count );
 143     return count;
 144 }
 145