Kbase P13272: How do I draw rectangles on printers from the 4GL
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
16/10/2008 |
|
Status: Unverified
GOAL:
How do I draw rectangles on printers from the 4GL
FIX:
Rectangles cannot be drawn directly on a printer via the 4GL.
Usually applications resort to a table where the printer model is the key, then the fields contain the special characters and/or escape sequences to draw the 4 corners, and horizontal bar and the vertical bar. Then the application uses some code like the following:
FIND printerTable WHERE printerTable.printerName = .... NO-LOCK.
PUT CONTROL printerTable.G2 + FILL(printerTable.HOR, 20) + printerTable.G1 SKIP.
DO i = 1 TO 10:
PUT CONTROL printerTable.VERT + FILL(' ', 20) + printerTable.VERT SKIP.
END.
PUT CONTROL printerTable.G3 + FILL(printerTable.HOR, 20) + printerTable.G4 SKIP.
This would draw a box 22 characters wide and 12 row high.