brws-resize-move.p
1 |
DEF TEMP-TABLE tt FIELD f1 AS INTEGER column-label "Test" format "$ >>>>9" |
---|---|
2 |
FIELD f2 AS character format "x(30)" |
3 |
FIELD f3 AS LOGICAL |
4 |
field f4 as character. |
5 |
|
6 |
def var i as integer. |
7 |
repeat i = 1 to 200: |
8 |
CREATE tt. tt.f1 = i * 100. |
9 |
tt.f2 = "second " + string(i). |
10 |
tt.f3 = IF i MOD 2 = 1 THEN YES ELSE NO. |
11 |
tt.f4 = "text". |
12 |
end. |
13 |
|
14 |
DEFINE QUERY q FOR tt SCROLLING. |
15 |
OPEN QUERY q FOR EACH tt. |
16 |
|
17 |
DEF BROWSE br QUERY q |
18 |
DISPLAY |
19 |
tt.f1 |
20 |
tt.f2 width 5 |
21 |
tt.f3 |
22 |
tt.f4 |
23 |
WITH size-chars 50 by 10 TITLE "Static browse" separators. |
24 |
|
25 |
DEF FRAME fr br |
26 |
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS. |
27 |
|
28 |
|
29 |
browse br:column-movable = true. |
30 |
browse br:column-resizable = true. |
31 |
browse br:row-resizable = true. |
32 |
|
33 |
ENABLE ALL WITH FRAME fr. |
34 |
|
35 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |
36 |
|
37 |
|
38 |
|
39 |
|
40 |
|