The LINESTYLE message is used to change the style, thickness, and color of the lines that are used by the RECT, POLYGON, POLYLINE, LINE, and ELLIPSE messages.
| Parameter | Description of Fields | Comments | Default | |
|---|---|---|---|---|
| Parm1 - Style | <1> Style | See OIPRINT_EQUATES | PS_SOLID | |
| | <2> Thickness | In point sizes. 0-128 | | |
| | <3> Color | COLORREF | 0 - black |
|
See the OIPRINT_EQUATES in the SYSPROCS table for more information on line styles. The Thickness is measured in points, and a Thickness of 0 is the thinnest line. If you set the Units with the INIT message to Twips, then the Thickness is measured in twips for better control over the thickness. The Using Colors section describes how to set the color for the LINESTYLE message.
Note: When the Style is not set to PS_SOLID the Thickness parameter is ignored. When printing lines that are not solid, the system sets the thickness to 1.
/*The following example shows how to use the LINESTYLE message to print a bold line under the page header.*/
declare function Set_Printer
$insert OIPRINT_EQUATES
stat = Set_Printer("INIT") ;* Start printing
stat = Set_Printer("HEADER", "Test Header")
* Set line style to 5 point
stat = Set_Printer("LINESTYLE", PS_SOLID:@fm:5)
* Print line at top of the page
stat = Set_Printer("LINE", 0:@fm:1:@fm:7.5:@fm:1, 1)
stat = Set_Printer("TERM") ;* End printing