User Tools

Site Tools


pencolor_return_line_draw_color_.htm
Navigation:  Language Reference > 13 - Built-in Functions >====== PENCOLOR (return line draw color) ====== Previous pageReturn to chapter overviewNext page

PENCOLOR( )

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

pencolor_return_line_draw_color_.htm.txt · Last modified: 2021/04/15 15:57 (external edit)