1
|
define temp-table clr
|
2
|
field fgR as integer
|
3
|
field fgG as integer
|
4
|
field fgB as integer
|
5
|
field bgR as integer
|
6
|
field bgG as integer
|
7
|
field bgB as integer
|
8
|
.
|
9
|
|
10
|
create clr. assign
|
11
|
clr.fgR=0 clr.fgG=0 clr.fgB=0 clr.bgR=0 clr.bgG=31 clr.bgB=32.
|
12
|
create clr. assign
|
13
|
clr.fgR=0 clr.fgG=0 clr.fgB=0 clr.bgR=63 clr.bgG=64 clr.bgB=95.
|
14
|
create clr. assign
|
15
|
clr.fgR=0 clr.fgG=0 clr.fgB=0 clr.bgR=96 clr.bgG=127 clr.bgB=128.
|
16
|
create clr. assign
|
17
|
clr.fgR=0 clr.fgG=0 clr.fgB=0 clr.bgR=159 clr.bgG=160 clr.bgB=191.
|
18
|
create clr. assign
|
19
|
clr.fgR=0 clr.fgG=0 clr.fgB=0 clr.bgR=192 clr.bgG=223 clr.bgB=224.
|
20
|
create clr. assign
|
21
|
clr.fgR=0 clr.fgG=31 clr.fgB=31 clr.bgR=255 clr.bgG=0 clr.bgB=31.
|
22
|
create clr. assign
|
23
|
clr.fgR=31 clr.fgG=31 clr.fgB=31 clr.bgR=32 clr.bgG=63 clr.bgB=64.
|
24
|
create clr. assign
|
25
|
clr.fgR=31 clr.fgG=31 clr.fgB=31 clr.bgR=95 clr.bgG=96 clr.bgB=127.
|
26
|
create clr. assign
|
27
|
clr.fgR=31 clr.fgG=31 clr.fgB=31 clr.bgR=128 clr.bgG=159 clr.bgB=160.
|
28
|
create clr. assign
|
29
|
clr.fgR=31 clr.fgG=31 clr.fgB=31 clr.bgR=191 clr.bgG=192 clr.bgB=223.
|
30
|
create clr. assign
|
31
|
clr.fgR=31 clr.fgG=31 clr.fgB=32 clr.bgR=224 clr.bgG=255 clr.bgB=0.
|
32
|
create clr. assign
|
33
|
clr.fgR=32 clr.fgG=32 clr.fgB=32 clr.bgR=31 clr.bgG=32 clr.bgB=63.
|
34
|
create clr. assign
|
35
|
clr.fgR=32 clr.fgG=32 clr.fgB=32 clr.bgR=64 clr.bgG=95 clr.bgB=96.
|
36
|
create clr. assign
|
37
|
clr.fgR=32 clr.fgG=32 clr.fgB=32 clr.bgR=127 clr.bgG=128 clr.bgB=159.
|
38
|
create clr. assign
|
39
|
clr.fgR=32 clr.fgG=32 clr.fgB=32 clr.bgR=160 clr.bgG=191 clr.bgB=192.
|
40
|
create clr. assign
|
41
|
clr.fgR=32 clr.fgG=32 clr.fgB=32 clr.bgR=223 clr.bgG=224 clr.bgB=255.
|
42
|
create clr. assign
|
43
|
clr.fgR=63 clr.fgG=63 clr.fgB=63 clr.bgR=0 clr.bgG=31 clr.bgB=32.
|
44
|
create clr. assign
|
45
|
clr.fgR=63 clr.fgG=63 clr.fgB=63 clr.bgR=63 clr.bgG=64 clr.bgB=95.
|
46
|
create clr. assign
|
47
|
clr.fgR=63 clr.fgG=63 clr.fgB=63 clr.bgR=96 clr.bgG=127 clr.bgB=128.
|
48
|
create clr. assign
|
49
|
clr.fgR=63 clr.fgG=63 clr.fgB=63 clr.bgR=159 clr.bgG=160 clr.bgB=191.
|
50
|
create clr. assign
|
51
|
clr.fgR=63 clr.fgG=63 clr.fgB=63 clr.bgR=192 clr.bgG=223 clr.bgB=224.
|
52
|
create clr. assign
|
53
|
clr.fgR=63 clr.fgG=64 clr.fgB=64 clr.bgR=255 clr.bgG=0 clr.bgB=31.
|
54
|
create clr. assign
|
55
|
clr.fgR=64 clr.fgG=64 clr.fgB=64 clr.bgR=32 clr.bgG=63 clr.bgB=64.
|
56
|
create clr. assign
|
57
|
clr.fgR=64 clr.fgG=64 clr.fgB=64 clr.bgR=95 clr.bgG=96 clr.bgB=127.
|
58
|
create clr. assign
|
59
|
clr.fgR=64 clr.fgG=64 clr.fgB=64 clr.bgR=128 clr.bgG=159 clr.bgB=160.
|
60
|
create clr. assign
|
61
|
clr.fgR=64 clr.fgG=64 clr.fgB=64 clr.bgR=191 clr.bgG=192 clr.bgB=223.
|
62
|
create clr. assign
|
63
|
clr.fgR=64 clr.fgG=64 clr.fgB=95 clr.bgR=224 clr.bgG=255 clr.bgB=0.
|
64
|
create clr. assign
|
65
|
clr.fgR=95 clr.fgG=95 clr.fgB=95 clr.bgR=31 clr.bgG=32 clr.bgB=63.
|
66
|
create clr. assign
|
67
|
clr.fgR=95 clr.fgG=95 clr.fgB=95 clr.bgR=64 clr.bgG=95 clr.bgB=96.
|
68
|
create clr. assign
|
69
|
clr.fgR=95 clr.fgG=95 clr.fgB=95 clr.bgR=127 clr.bgG=128 clr.bgB=159.
|
70
|
create clr. assign
|
71
|
clr.fgR=95 clr.fgG=95 clr.fgB=95 clr.bgR=160 clr.bgG=191 clr.bgB=192.
|
72
|
create clr. assign
|
73
|
clr.fgR=95 clr.fgG=95 clr.fgB=95 clr.bgR=223 clr.bgG=224 clr.bgB=255.
|
74
|
create clr. assign
|
75
|
clr.fgR=96 clr.fgG=96 clr.fgB=96 clr.bgR=0 clr.bgG=31 clr.bgB=32.
|
76
|
create clr. assign
|
77
|
clr.fgR=96 clr.fgG=96 clr.fgB=96 clr.bgR=63 clr.bgG=64 clr.bgB=95.
|
78
|
create clr. assign
|
79
|
clr.fgR=96 clr.fgG=96 clr.fgB=96 clr.bgR=96 clr.bgG=127 clr.bgB=128.
|
80
|
create clr. assign
|
81
|
clr.fgR=96 clr.fgG=96 clr.fgB=96 clr.bgR=159 clr.bgG=160 clr.bgB=191.
|
82
|
create clr. assign
|
83
|
clr.fgR=96 clr.fgG=96 clr.fgB=96 clr.bgR=192 clr.bgG=223 clr.bgB=224.
|
84
|
create clr. assign
|
85
|
clr.fgR=96 clr.fgG=127 clr.fgB=127 clr.bgR=255 clr.bgG=0 clr.bgB=31.
|
86
|
create clr. assign
|
87
|
clr.fgR=127 clr.fgG=127 clr.fgB=127 clr.bgR=32 clr.bgG=63 clr.bgB=64.
|
88
|
create clr. assign
|
89
|
clr.fgR=127 clr.fgG=127 clr.fgB=127 clr.bgR=95 clr.bgG=96 clr.bgB=127.
|
90
|
create clr. assign
|
91
|
clr.fgR=127 clr.fgG=127 clr.fgB=127 clr.bgR=128 clr.bgG=159 clr.bgB=160.
|
92
|
create clr. assign
|
93
|
clr.fgR=127 clr.fgG=127 clr.fgB=127 clr.bgR=191 clr.bgG=192 clr.bgB=223.
|
94
|
create clr. assign
|
95
|
clr.fgR=127 clr.fgG=127 clr.fgB=128 clr.bgR=224 clr.bgG=255 clr.bgB=0.
|
96
|
create clr. assign
|
97
|
clr.fgR=128 clr.fgG=128 clr.fgB=128 clr.bgR=31 clr.bgG=32 clr.bgB=63.
|
98
|
create clr. assign
|
99
|
clr.fgR=128 clr.fgG=128 clr.fgB=128 clr.bgR=64 clr.bgG=95 clr.bgB=96.
|
100
|
create clr. assign
|
101
|
clr.fgR=128 clr.fgG=128 clr.fgB=128 clr.bgR=127 clr.bgG=128 clr.bgB=159.
|
102
|
create clr. assign
|
103
|
clr.fgR=128 clr.fgG=128 clr.fgB=128 clr.bgR=160 clr.bgG=191 clr.bgB=192.
|
104
|
create clr. assign
|
105
|
clr.fgR=128 clr.fgG=128 clr.fgB=128 clr.bgR=223 clr.bgG=224 clr.bgB=255.
|
106
|
create clr. assign
|
107
|
clr.fgR=159 clr.fgG=159 clr.fgB=159 clr.bgR=0 clr.bgG=31 clr.bgB=32.
|
108
|
create clr. assign
|
109
|
clr.fgR=159 clr.fgG=159 clr.fgB=159 clr.bgR=63 clr.bgG=64 clr.bgB=95.
|
110
|
create clr. assign
|
111
|
clr.fgR=159 clr.fgG=159 clr.fgB=159 clr.bgR=96 clr.bgG=127 clr.bgB=128.
|
112
|
create clr. assign
|
113
|
clr.fgR=159 clr.fgG=159 clr.fgB=159 clr.bgR=159 clr.bgG=160 clr.bgB=191.
|
114
|
create clr. assign
|
115
|
clr.fgR=159 clr.fgG=159 clr.fgB=159 clr.bgR=192 clr.bgG=223 clr.bgB=224.
|
116
|
create clr. assign
|
117
|
clr.fgR=159 clr.fgG=160 clr.fgB=160 clr.bgR=255 clr.bgG=0 clr.bgB=31.
|
118
|
create clr. assign
|
119
|
clr.fgR=160 clr.fgG=160 clr.fgB=160 clr.bgR=32 clr.bgG=63 clr.bgB=64.
|
120
|
create clr. assign
|
121
|
clr.fgR=160 clr.fgG=160 clr.fgB=160 clr.bgR=95 clr.bgG=96 clr.bgB=127.
|
122
|
create clr. assign
|
123
|
clr.fgR=160 clr.fgG=160 clr.fgB=160 clr.bgR=128 clr.bgG=159 clr.bgB=160.
|
124
|
create clr. assign
|
125
|
clr.fgR=160 clr.fgG=160 clr.fgB=160 clr.bgR=191 clr.bgG=192 clr.bgB=223.
|
126
|
create clr. assign
|
127
|
clr.fgR=160 clr.fgG=160 clr.fgB=191 clr.bgR=224 clr.bgG=255 clr.bgB=0.
|
128
|
create clr. assign
|
129
|
clr.fgR=191 clr.fgG=191 clr.fgB=191 clr.bgR=31 clr.bgG=32 clr.bgB=63.
|
130
|
create clr. assign
|
131
|
clr.fgR=191 clr.fgG=191 clr.fgB=191 clr.bgR=64 clr.bgG=95 clr.bgB=96.
|
132
|
create clr. assign
|
133
|
clr.fgR=191 clr.fgG=191 clr.fgB=191 clr.bgR=127 clr.bgG=128 clr.bgB=159.
|
134
|
create clr. assign
|
135
|
clr.fgR=191 clr.fgG=191 clr.fgB=191 clr.bgR=160 clr.bgG=191 clr.bgB=192.
|
136
|
create clr. assign
|
137
|
clr.fgR=191 clr.fgG=191 clr.fgB=191 clr.bgR=223 clr.bgG=224 clr.bgB=255.
|
138
|
create clr. assign
|
139
|
clr.fgR=192 clr.fgG=192 clr.fgB=192 clr.bgR=0 clr.bgG=31 clr.bgB=32.
|
140
|
create clr. assign
|
141
|
clr.fgR=192 clr.fgG=192 clr.fgB=192 clr.bgR=63 clr.bgG=64 clr.bgB=95.
|
142
|
create clr. assign
|
143
|
clr.fgR=192 clr.fgG=192 clr.fgB=192 clr.bgR=96 clr.bgG=127 clr.bgB=128.
|
144
|
create clr. assign
|
145
|
clr.fgR=192 clr.fgG=192 clr.fgB=192 clr.bgR=159 clr.bgG=160 clr.bgB=191.
|
146
|
create clr. assign
|
147
|
clr.fgR=192 clr.fgG=192 clr.fgB=192 clr.bgR=192 clr.bgG=223 clr.bgB=224.
|
148
|
create clr. assign
|
149
|
clr.fgR=192 clr.fgG=223 clr.fgB=223 clr.bgR=255 clr.bgG=0 clr.bgB=31.
|
150
|
create clr. assign
|
151
|
clr.fgR=223 clr.fgG=223 clr.fgB=223 clr.bgR=32 clr.bgG=63 clr.bgB=64.
|
152
|
create clr. assign
|
153
|
clr.fgR=223 clr.fgG=223 clr.fgB=223 clr.bgR=95 clr.bgG=96 clr.bgB=127.
|
154
|
create clr. assign
|
155
|
clr.fgR=223 clr.fgG=223 clr.fgB=223 clr.bgR=128 clr.bgG=159 clr.bgB=160.
|
156
|
create clr. assign
|
157
|
clr.fgR=223 clr.fgG=223 clr.fgB=223 clr.bgR=191 clr.bgG=192 clr.bgB=223.
|
158
|
create clr. assign
|
159
|
clr.fgR=223 clr.fgG=223 clr.fgB=224 clr.bgR=224 clr.bgG=255 clr.bgB=0.
|
160
|
create clr. assign
|
161
|
clr.fgR=224 clr.fgG=224 clr.fgB=224 clr.bgR=31 clr.bgG=32 clr.bgB=63.
|
162
|
create clr. assign
|
163
|
clr.fgR=224 clr.fgG=224 clr.fgB=224 clr.bgR=64 clr.bgG=95 clr.bgB=96.
|
164
|
create clr. assign
|
165
|
clr.fgR=224 clr.fgG=224 clr.fgB=224 clr.bgR=127 clr.bgG=128 clr.bgB=159.
|
166
|
create clr. assign
|
167
|
clr.fgR=224 clr.fgG=224 clr.fgB=224 clr.bgR=160 clr.bgG=191 clr.bgB=192.
|
168
|
create clr. assign
|
169
|
clr.fgR=224 clr.fgG=224 clr.fgB=224 clr.bgR=223 clr.bgG=224 clr.bgB=255.
|
170
|
create clr. assign
|
171
|
clr.fgR=255 clr.fgG=255 clr.fgB=255 clr.bgR=0 clr.bgG=31 clr.bgB=32.
|
172
|
create clr. assign
|
173
|
clr.fgR=255 clr.fgG=255 clr.fgB=255 clr.bgR=63 clr.bgG=64 clr.bgB=95.
|
174
|
create clr. assign
|
175
|
clr.fgR=255 clr.fgG=255 clr.fgB=255 clr.bgR=96 clr.bgG=127 clr.bgB=128.
|
176
|
create clr. assign
|
177
|
clr.fgR=255 clr.fgG=255 clr.fgB=255 clr.bgR=159 clr.bgG=160 clr.bgB=191.
|
178
|
create clr. assign
|
179
|
clr.fgR=255 clr.fgG=255 clr.fgB=255 clr.bgR=192 clr.bgG=223 clr.bgB=224.
|
180
|
create clr. assign
|
181
|
clr.fgR=255 clr.fgG=0 clr.fgB=0 clr.bgR=255 clr.bgG=0 clr.bgB=0.
|
182
|
|
183
|
def button exit_btn label "exit".
|
184
|
def frame f skip exit_btn skip.
|
185
|
frame f:height-pixels = 450.
|
186
|
frame f:width-pixels = 360.
|
187
|
|
188
|
def var h as handle.
|
189
|
|
190
|
/* add doubled (fg and bg) colors to color table */
|
191
|
def var clrNum as int.
|
192
|
clrNum = color-table:num-entries.
|
193
|
color-table:num-entries = clrNum + 86 * 2.
|
194
|
|
195
|
def var j as int init 2.
|
196
|
def var p as int init 0.
|
197
|
def var pageSize as int init 20.
|
198
|
def var rowNum as int.
|
199
|
|
200
|
for each clr:
|
201
|
color-table:set-dynamic(clrNum, true).
|
202
|
color-table:set-rgb-value(clrNum, rgb-value(clr.bgR, clr.bgG, clr.bgB)).
|
203
|
|
204
|
color-table:set-dynamic(clrNum + 1, true).
|
205
|
color-table:set-rgb-value(clrNum + 1, rgb-value(clr.fgR, clr.fgG, clr.fgB)).
|
206
|
|
207
|
p = truncate (j / pageSize, 0).
|
208
|
|
209
|
create toggle-box h
|
210
|
assign
|
211
|
label = "tbx" + string(j - 1)
|
212
|
visible = true
|
213
|
bgcolor = clrNum
|
214
|
fgcolor = clrNum + 1
|
215
|
row = (j modulo pageSize) + 1
|
216
|
column = p * 14
|
217
|
frame = frame f:handle.
|
218
|
|
219
|
j = j + 1.
|
220
|
clrNum = clrNum + 2.
|
221
|
end.
|
222
|
|
223
|
enable all with frame f.
|
224
|
wait-for choose of exit_btn.
|
225
|
|
226
|
|