Navigation: Language Reference > 13 - Built-in Functions >====== PENCOLOR (return line draw color) ====== | |
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: