User Tools

Site Tools


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

PENSTYLE( )

blk2blue.jpg

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):

PEN:solid Solid line
PEN:dash Dashed line
PEN:dot Dotted line
PEN:dashdot Mixed dashes and dots

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

penstyle_return_line_draw_style_.htm.txt · Last modified: 2021/04/15 15:57 by 127.0.0.1