WINPRINT-GRAPH-BRUSH

Usage

CALL "WIN$PRINTER"
    USING WINPRINT-GRAPH-BRUSH, WINPRINT-DATA
    GIVING RESULT

Parameters

01 WINPRINT-DATA.
   03 WPRTDATA-SET-STD-FONT.
   03  WPRTDATA-BRUSH REDEFINES
   WPRTDATA-SET-STD-FONT.
      05  WPRTDATA-BRUSH-STYLE        UNSIGNED-SHORT.
      05  WPRTDATA-BRUSH-COLOR        PIC 9(9) COMP-5

Return Values

This operation returns the style and color of the brush used by WINPRINT-GRAPH-DRAW.

Description

The printer must be open to perform this operation. It must be called prior to WINPRINT-GRAPH-DRAW. Once executed, the brush specified will apply to all graphic operations until a new call is executed. The selected brush is released when the printer is closed and will not affect subsequent print jobs. WPRTDATA-BRUSH must be initialized before use. There is no limit to the number of times this operation may be called.

WINPRINT-GRAPH-BRUSH has the following values:

• WPRTDATA-BRUSH-COLOR - Specifies the color used to fill the shape drawn with WINPRINT-GRAPH-DRAW. The color resolution (COLORREF) is a combination of Red, Green, and Blue (RGB). The intensity of each color in the mix is determined by a number between 0 and 255. The default color (0,0,0) is black.
  Note: See your Windows API documentation for more information about RGB colors and COLORREF values.
• WPRTDATA-BRUSH-STYLE - Specifies the pattern used to fill the shape drawn with WINPRINT-GRAPH-DRAW. It may be set to one of the following values:

  WPRT-BRUSH-SOLID	Selects a solid brush that fills the shape with the color selected in WPRTDATA-BRUSH-COLOR.
  WPRT-BRUSH-NULL (default)	The shape is not filled, and the background layer will show through.
  WPRT-BRUSH-BDIAGONAL	Fills the shape with a pattern of lines angled at 45-degrees. (//////)
  WPRT-BRUSH-CROSS	Fills the shape with a pattern of crosses. (++++++)
  WPRT-BRUSH-DIAGCROSS	Fills the shape with a pattern of diagonal crosses. (xxxxxx)
  WPRT-BRUSH-FDIAGONAL	Fills the shape with a pattern of lines angled at –45-degrees. (\\\\\\)
  WPRT-BRUSH-HORIZONTAL	Fills the shape with a pattern of dashes. (------)
  WPRT-BRUSH-VERTICAL	Fills the shape with a pattern of vertical bars. (||||||)
  WPRT-BRUSH-DKGRAY	Fills the shape with solid dark gray. If color is specified, it is ignored.
  WPRT-BRUSH-GRAY	Fills the shape with solid gray. If color is specified, it is ignored.
  WPRT-BRUSH-LTGRAY	Fills the shape with solid light gray. If color is specified, it is ignored.

Example

See graphprn.cbl for examples of printing graphics. This example will fill the shapes drawn with solid gray:

INITIALIZE WPRTDATA-BRUSH.
MOVE WPRT-BRUSH-GRAY  TO  WPRTDATA-BRUSH-STYLE.

CALL "WIN$PRINTER"
    USING WINPRINT-GRAPH-BRUSH, WINPRINT-DATA
    GIVING CALL-RESULT.