Kbase P4880: How to display a blinking message while a GUI application sort process is underway
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
15/09/2008 |
|
Solution ID: P4880
GOAL:
How to display a blinking message while a GUI application sort process is underway.
FIX:
This sample code demonstrates how to display a blinking message while a lengthy process, such as a sort, is completing.
/* r-colphr.p */
DEFINE VARIABLE hilite AS CHARACTER EXTENT 3.
DEFINE VARIABLE loop AS INTEGER.
hilite[1] = "NORMAL".
hilite[2] = "INPUT".
hilite[3] = "MESSAGES".
REPEAT WHILE loop <= 10:
FORM bar AS CHARACTER WITH ROW 3 COLUMN 5
NO-BOX NO-LABELS FRAME bursts.
COLOR DISPLAY VALUE(hilite[RANDOM(1,3)]) bar WITH FRAME bursts.
DISPLAY FILL("*",RANDOM(1,8)) @ bar WITH FRAME bursts.
PAUSE 1 NO-MESSAGE.
HIDE FRAME bursts NO-PAUSE.
loop = loop + 1.
END.