PC_PRINTER_DRAW_RECTANGLE

Draws an outline or filled rectangle at position start-x, start-y to end-x, end-y.
Restriction: This routine is not currently supported on UNIX platforms.

Syntax:

call "PC_PRINTER_DRAW_RECTANGLE" using 
                                 printer-handle
                                 by value draw-rectangle-options
                                 by value box-style
                                 by value start-x
                                 by value start-y
                                 by value end-x
                                 by value end-y
end-call

Parameters:

  Using call prototype (see Key) Picture
printer-handle cblt-x4-comp5 pic x(4) comp-5
draw-rectangle-options cblt-x4-comp5 pic x(4) comp-5
box-style cblt-x4-comp5 pic x(4) comp-5
start-x, start-y cblt-x4-comp5 pic x(4) comp-5
end-x, end-y cblt-x4-comp5 pic x(4) comp-5

On Entry:

printer-handle
The printer handle returned when the printer was opened; see PC_PRINTER_OPEN.
draw-rectangle-options
The options to apply to the rectangle. The valid options are:
Value Meaning
0 Use logical units of measurement
box-style
The style of rectangle to be drawn.
Value Meaning
0 outline
1 filled
start-x, start-y
The starting point of the rectangle along the x-axis and y-axis.
end-x, end-y
The ending point of the rectangle along the x-axis and y-axis.

Comments:

Drawing the resulting rectangle does not change the logical position on the page used by other printer routines.

Use PC_PRINTER_SET_PEN to set the color used to draw and fill the rectangle. If box-style is set to 1 (filled) and PC_PRINTER_SET_PEN is not set, the box is filled solid black.