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

**PENWIDTH(** **)**

{{blk2blue.jpg|blk2blue.jpg}}

The **PENWIDTH** procedure returns the current line draw thickness set by SETPENWIDTH. The return value is in dialog units (unless overridden by the THOUS, MM, or POINTS attributes on a REPORT).

**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**

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

** 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**

**WidthNow LONG**

** CODE**

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

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

** WidthNow = ****PENWIDTH****()          !Get current pen width**

** OPEN(MDIChild2)**

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

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

** SETPENWIDTH(WidthNow)          !Set same pen width**

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

**See Also:**

[[setpenwidth  set line draw thickness .htm|SETPENWIDTH]]