| **Navigation:**  [[introduction.htm|Language Reference]] > 13 - Built-in Functions >====== PENSTYLE (return line draw style) ====== | [[pencolor  return line draw color .htm|{{btn_prev_n.gif|Previous page}}]][[introduction.htm|{{btn_home_n.gif|Return to chapter overview}}]][[penwidth  return line draw thickness .htm|{{btn_next_n.gif|Next page}}]] |
|  ||

**PENSTYLE(** **)**

{{blk2blue.jpg|blk2blue.jpg}}

The **PENSTYLE** procedure returns the current line draw style set by SETPENSTYLE. This procedure is valid in Clarion Win32 Windows, and also for REPORT structures in both Clarion Win32 and Clarion#.

EQUATE statements for the pen styles are contained in the EQUATES.CLW file. The following list is a representative sample of these (see [[commonly used equates.htm#penequates|EQUATES.CLW]] for the complete list):

|  | PEN:solid | Solid line |
|  | PEN:dash | Dashed line |
|  | PEN:dot | Dotted line |
|  | PEN:dashdot | Mixed dashes and dots |

**Return Data Type:     **SIGNED

**Example:**

**Proc1   PROCEDURE**

**MDIChild1 WINDOW('Child One'),AT(0,0,320,200),MDI,MAX,HVSCROLL**

**           !window controls**

**          END**

** CODE**

** OPEN(MDIChild1)**

** SETPENCOLOR(000000FFh)    !Set blue pen color**

** SETPENSTYLE(PEN:dash)     !Set dashes for line style**

** Proc2                     !Call another procedure**

**Proc2   PROCEDURE**

**MDIChild2 WINDOW('Child Two'),AT(0,0,320,200),MDI,MAX,HVSCROLL**

**           !window controls**

**          END**

**ColorNow LONG**

**StyleNow LONG**

** CODE**

** ColorNow = PENCOLOR()        !Get current pen color**

** StyleNow = ****PENSTYLE****()        !Get current pen style**

** OPEN(MDIChild2)**

** SETPENCOLOR(ColorNow)        !Set same pen color**

** SETPENSTYLE(StyleNow)        !Set same pen style**

** SETPENWIDTH(2)               !Set two dialog unit thickness**

** BOX(100,50,100,50,00FF0000h) !Red box with thick blue dashed border**

**See Also:**

[[setpenstyle  set line draw style .htm|SETPENSTYLE]]