browse-simple.p
| 1 |
define temp-table tt |
|---|---|
| 2 |
field tt-int as integer |
| 3 |
field tt-char as char format "x(20)" |
| 4 |
field tt-char2 as char format "x(20)". |
| 5 |
|
| 6 |
def var i as integer. |
| 7 |
repeat i = 1 to 20: |
| 8 |
create tt. |
| 9 |
tt.tt-int = i. |
| 10 |
tt.tt-char = "WWWWWWWW". |
| 11 |
tt.tt-char2 = tt.tt-char. |
| 12 |
end. |
| 13 |
|
| 14 |
define query myqr for tt scrolling. |
| 15 |
|
| 16 |
define browse mybr query myqr |
| 17 |
display |
| 18 |
tt.tt-int width 10 |
| 19 |
tt.tt-char width 25 |
| 20 |
tt.tt-char2 width 25 |
| 21 |
with 5 down separators. |
| 22 |
|
| 23 |
define frame myfr |
| 24 |
mybr |
| 25 |
with |
| 26 |
centered no-label width 80 overlay |
| 27 |
title "Title". |
| 28 |
|
| 29 |
|
| 30 |
browse mybr:row-resizable = true. |
| 31 |
browse mybr:column-resizable = true. |
| 32 |
browse mybr:column-movable = true. |
| 33 |
open query myqr for each tt. |
| 34 |
|
| 35 |
enable all with frame myfr. |
| 36 |
|
| 37 |
wait-for close of current-window. |