| Navigation: Language Reference > 13 - Built-in Functions >====== SETPENCOLOR (set line draw color) ====== |    |
SETPENCOLOR( [color] )
| SETPENCOLOR | Sets the current pen color. |
| Color | A LONG integer constant, constant EQUATE, or variable containing the red, green, and blue components that create the color in the three low-order bytes (bytes 0, 1, and 2) or an EQUATE for a standard Windows color value. If omitted, the Windows system color for window text is set. |
The SETPENCOLOR procedure sets the current pen color for use by all graphics procedures. The default color is the Windows system color for window text. This procedure is valid in Clarion Win32 Windows, and also for REPORT structures in both Clarion Win32 and Clarion#.
Every window has its own current pen color. Therefore, to consistently use the same pen (which does not use the default color setting) across multiple windows, the SETPENCOLOR statement should be issued for each window.
Example:
MDIChild WINDOW('Child One'),AT(0,0,320,200),MDI,MAX,HVSCROLL
!window controls
END
CODE
OPEN(MDIChild)
SETPENCOLOR(000000FFh) !Set blue pen color
ROUNDBOX(100,50,100,50,00FF0000h) !Red round-cornered box with blue border
See Also: