| **Navigation:**  [[introduction.htm|Language Reference]] > 13 - Built-in Functions >====== PENCOLOR (return line draw color) ====== | [[peek  read memory address .htm|{{btn_prev_n.gif|Previous page}}]][[introduction.htm|{{btn_home_n.gif|Return to chapter overview}}]][[penstyle  return line draw style .htm|{{btn_next_n.gif|Next page}}]] |
|  ||

**PENCOLOR(** **)**

{{blk2blue.jpg|blk2blue.jpg}}

The **PENCOLOR** procedure returns the current pen color set by SETPENCOLOR. This procedure is valid in Clarion Win32 Windows, and also for REPORT structures in both Clarion Win32 and Clarion#.

**Return Data Type:     **LONG

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

** Proc2                          !Call another procedure**

**Proc2    PROCEDURE**

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

**          !window controls**

**          END**

**ColorNow   LONG**

** CODE**

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

** OPEN(MDIChild2)**

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

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

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

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

**See Also:**

[[setpencolor  set line draw color .htm|SETPENCOLOR]]