CreatePen

Previous  Top  Next

Sintaxis:

CreatePen( <nEstilo>, <nGrosor>, <nColor> ) -> nLapiz

Argumentos:

<nEstilo> es el del lápiz.

<nGrosor> es el grosor del lápiz.

<nColor> es el color del lápiz.

Devuelve:

El valor numérico que identifica el lápiz.

   CreatePen() crea un lápiz para dibujar en un dispositivo de contexto. Después de su uso hay que destruirlo con la función DeleteObject().


Ejemplo:

   hPen := CreatePen( PS_SOLID, 5, clRed )
   hOldPen := SelectObject( hDC, hPen )
   DrawText( hDC, "Mi texto", -1, { 0, 0, 40, 25 }, DT_CENTER )
   SelectObject( hDC, hOldPen )
   DeleteObject( hPen )