select-focused-mult.p
1 |
def temp-table tt field f1 as integer |
---|---|
2 |
field f2 as char. |
3 |
|
4 |
def var i as integer. |
5 |
repeat i = 1 to 20: |
6 |
create tt. tt.f1 = i. |
7 |
end. |
8 |
|
9 |
open query q for each tt. |
10 |
|
11 |
DEF BROWSE br QUERY q |
12 |
DISPLAY tt |
13 |
WITH size-chars 65 by 10 TITLE "Static browse" multiple. |
14 |
|
15 |
DEF FRAME fr br |
16 |
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS. |
17 |
|
18 |
on "f" anywhere |
19 |
do: |
20 |
release tt. |
21 |
browse br:select-focused-row(). |
22 |
run pr. |
23 |
end. |
24 |
|
25 |
on "a" anywhere |
26 |
do: |
27 |
release tt. |
28 |
browse br:select-all(). |
29 |
run pr. |
30 |
end. |
31 |
|
32 |
on "n" anywhere |
33 |
do: |
34 |
release tt. |
35 |
browse br:select-next-row(). |
36 |
run pr. |
37 |
end. |
38 |
|
39 |
on "p" anywhere |
40 |
do: |
41 |
release tt. |
42 |
browse br:select-prev-row(). |
43 |
run pr. |
44 |
end. |
45 |
|
46 |
on "s" anywhere |
47 |
do: |
48 |
release tt. |
49 |
browse br:select-row(3). |
50 |
run pr. |
51 |
end. |
52 |
|
53 |
procedure pr: |
54 |
if not avail(tt) then message "N/A". |
55 |
else message tt.f1. |
56 |
|
57 |
message CURRENT-RESULT-ROW("q"). |
58 |
end. |
59 |
|
60 |
ENABLE ALL WITH FRAME fr. |
61 |
|
62 |
message "F to check select focused, N - select-next-row, P - select-prev-row". |
63 |
message "S - select-row 3, A - select-all". |
64 |
|
65 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |
66 |
|