no-cursor.p
1 |
DEF TEMP-TABLE tt FIELD f1 AS character format "x(20)". |
---|---|
2 |
|
3 |
CREATE tt. tt.f1 = "xxxxxxxxxxxxx". |
4 |
CREATE tt. tt.f1 = "xxxxxxxxxxxxx". |
5 |
CREATE tt. tt.f1 = "xxxxxxxxxxxxx". |
6 |
CREATE tt. tt.f1 = "xxxxxxxxxxxxx". |
7 |
|
8 |
|
9 |
DEFINE QUERY q FOR tt SCROLLING. |
10 |
OPEN QUERY q FOR EACH tt. |
11 |
|
12 |
DEF BROWSE br QUERY q |
13 |
DISPLAY |
14 |
tt.f1 |
15 |
enable all |
16 |
WITH size-chars 50 by 10 TITLE "Static browse" separators. |
17 |
|
18 |
DEF FRAME fr br |
19 |
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS. |
20 |
|
21 |
ENABLE ALL WITH FRAME fr. |
22 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |
23 |
|
24 |
|
25 |
|