PENWIDTH (return line draw thickness)

Top  Previous  Next

 

PENWIDTH( )

The PENWIDTH procedure returns the current line draw thickness set by SETPENWIDTH. The return value is in dialog units (unless overridden by the THOUS, MM, or POINTS attributes on a REPORT).

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

SETPENWIDTH(2)                 !Set two dialog unit thickness

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

WidthNow LONG

CODE

ColorNow = PENCOLOR()          !Get current pen color

StyleNow = PENSTYLE()          !Get current pen style

WidthNow = PENWIDTH()          !Get current pen width

OPEN(MDIChild2)

SETPENCOLOR(ColorNow)          !Set same pen color

SETPENSTYLE(StyleNow)          !Set same pen style

SETPENWIDTH(WidthNow)          !Set same pen width

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

 

See Also:

SETPENWIDTH