Clarion Community Help

PENCOLOR( )

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