browse.p
| 1 |
// Simple BROWSE #5937-21 |
|---|---|
| 2 |
// Create a browse with one editable column |
| 3 |
|
| 4 |
// 1. Crease a BROWSE widget with a column and one line |
| 5 |
DEFINE TEMP-TABLE tt FIELD col1 AS CHARACTER. |
| 6 |
CREATE tt. tt.col1 = "value1". |
| 7 |
DEFINE QUERY q FOR tt SCROLLING. |
| 8 |
OPEN QUERY q FOR EACH tt. |
| 9 |
DEFINE BROWSE hBrowse QUERY q |
| 10 |
DISPLAY tt ENABLE ALL |
| 11 |
WITH SIZE-CHARS 65 BY 10 TITLE "Simple BROWSE". |
| 12 |
|
| 13 |
DEFINE FRAME fr |
| 14 |
hBrowse |
| 15 |
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS . |
| 16 |
|
| 17 |
ENABLE ALL WITH FRAME fr. |
| 18 |
|
| 19 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |