Click above to get retro games delivered to your door ever month!

hpIGrayBar()*

Draw a gray shaded bar, one line high, with one of several different border
types, coordinates specified in inches


Syntax

hpIGrayBar(<nRow>, <nCol>, <nLength> [,<nBorder> [,<nShade>]])


Parameters

<nRow>
The vertical distance from the top margin to print the
gray bar. <nRow> is specified in inches.

<nCol>
The horizontal distance from the left margin to begin
printing the bar.  <nCol> is specified in inches.

<nLength>
The length of the bar.  <nLength> is specified in inches,
and is accurate up to two decimal places.

<nBorder>
The line type used for the border.  Defaults to 1.  Values can be:
0       No border
1       Single line
2       Double line
3       Dotted line
4       Hairline
5       0.5 point
6       1 point
7       2 point
8       3 point
9       4 point
10      6 point
11      8 point

<nShade>
The percent of gray shading used to fill the bar with.
There are eight shading levels.  To specify a shade use
any value from 1 to 100.  If omitted, <nShade> will
default to 10.  See "Appendix B - Shades and Fill
Patterns" for a description of the different shading
levels.


Returns

0
Successful.

-12
Wrong number of parameters passed.


Remarks

hpIGrayBar() is included for compatibility with earlier versions of
Escape!. The use of hpIGrayBar() is not recomended because it can be
functionally replaced by hpGrayBar() with 'I' (for Inches) passed as the
<cUnits> parameter.

Just like hpGrayBar(), hpIGrayBar() can be used to perform tasks such
as simulating continuous green bar paper.  Use hpIGrayBar() together
with other Escape! functions such as hpIAtSay() to create attractive and
easy to read reports.


Support By

All HP Laserjet Printers except the original HP Laserjet


Example

hpIGrayBar() along with the other Escape! functions which specify
position in inches can be very useful when printing with proportional
fonts:

hpConfig('LEGAL')
hpSetFont('TMSRMN 12', 'S2')
nLine := 1
hpIAtSay(hpL2I(nLine), 1, Field1)
hpIAtSay(hpL2I(nLine), 3, Field2)
hpIAtSay(hpL2I(nLine), 5, Field3)

* highlight the above line
hpIGrayBar(hpL2I(nLine), 1, 5 + hpS2I(Field3), 0, 10)