Clarion Community Help

PENSTYLE( )

The PENSTYLE procedure returns the current line draw style set by SETPENSTYLE. This procedure is valid in Clarion Win32 Windows, and also for REPORT structures in both Clarion Win32 and Clarion#.

EQUATE statements for the pen styles are contained in the EQUATES.CLW file. The following list is a representative sample of these (see EQUATES.CLW for the complete list):

Return Data Type:     SIGNED

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

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

Proc2                     !Call another procedure

Proc2   PROCEDURE

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

          !window controls

         END

ColorNow LONG

StyleNow LONG

CODE

ColorNow = PENCOLOR()        !Get current pen color

StyleNow = PENSTYLE()        !Get current pen style

OPEN(MDIChild2)

SETPENCOLOR(ColorNow)        !Set same pen color

SETPENSTYLE(StyleNow)        !Set same pen style

SETPENWIDTH(2)               !Set two dialog unit thickness

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

See Also:

SETPENSTYLE