bgnd.p
| 1 |
DEF VAR f1 AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN. |
|---|---|
| 2 |
|
| 3 |
DEFINE RECTANGLE vline1 SIZE .4 BY 5 EDGE-PIXELS 2. |
| 4 |
DEFINE RECTANGLE vline2 LIKE vline1. |
| 5 |
DEFINE RECTANGLE vline3 LIKE vline1. |
| 6 |
DEFINE RECTANGLE vline4 LIKE vline1. |
| 7 |
DEFINE RECTANGLE vline5 LIKE vline1. |
| 8 |
DEFINE RECTANGLE vline6 LIKE vline1. |
| 9 |
|
| 10 |
DEFINE RECTANGLE hline SIZE 78 BY .1 EDGE-PIXELS 2. |
| 11 |
|
| 12 |
|
| 13 |
DEF FRAME fr1 |
| 14 |
f1 |
| 15 |
BACKGROUND SKIP(1) hline |
| 16 |
vline1 AT 9 |
| 17 |
vline2 AT 25 |
| 18 |
vline3 AT 33 |
| 19 |
vline4 AT 42 |
| 20 |
vline5 AT 51 |
| 21 |
vline6 AT 65 |
| 22 |
WITH TITLE "fr1" SIZE 40 BY 10 |
| 23 |
. |
| 24 |
|
| 25 |
DEF VAR h AS HANDLE. |
| 26 |
h = FRAME fr1:HANDLE. |
| 27 |
|
| 28 |
ENABLE ALL WITH FRAME fr1. |
| 29 |
|
| 30 |
MESSAGE h:BACKGROUND:TYPE. |
| 31 |
|
| 32 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 33 |
|