|
ProcessMessage
|
|
| --Example 01:
|
| SET VAR vPauseMessage TEXT = ((CHAR(013))+'Computing - Please Wait ......')
|
| CLS
|
| PAUSE 3 USING .vPauseMessage +
|
| CAPTION ' Pause 3 with ProcessMessage' +
|
| OPTION ICON_FILE Hourglass.GIF +
|
| |BACK_COLOR WHITE +
|
| |MESSAGE_COLOR WHITE +
|
| |MESSAGE_FONT_NAME VERDANA +
|
| |MESSAGE_FONT_COLOR RED +
|
| |MESSAGE_FONT_SIZE 10 +
|
| |THEMENAME R:BASE Rocks!
|
| SET VAR vCounter INT = 1
|
| WHILE vCounter < 2500000 THEN
|
| SET VAR vCounter = (.vCounter + 1)
|
| ProcessMessage
|
| ENDWHILE
|
| CLEAR VARIABLE vPauseMessage,vCounter
|
| CLS
|
| RETURN
|
|
|
| --Example 02:
|
| CLS
|
| PAUSE 3 USING ' Calculating ... Please Stand By ...' +
|
| CAPTION ' Pause 3 with Gauge + ProcessMessage' ICON APP +
|
| OPTION GAUGE_VISIBLE ON +
|
| |GAUGE_COLOR [R218,G228,B246] +
|
| |GAUGE_INTERVAL 10 +
|
| |MESSAGE_FONT_NAME VERDANA +
|
| |MESSAGE_FONT_SIZE 10 +
|
| |MESSAGE_FONT_COLOR BLUE +
|
| |THEMENAME Razzmatazz
|
| SET VAR vCounter INTEGER = 1
|
| WHILE vCounter < 2500000 THEN
|
| SET VAR vCounter = (.vCounter + 1)
|
| ProcessMessage
|
| ENDWHILE
|
| CLEAR VARIABLE vCounter
|
| CLS
|
| RETURN
|
|
|
| --Example 03:
|
| CLS
|
| PAUSE 3 USING ' Calculating ... Please Stand By ...' +
|
| CAPTION ' Pause 3 with Gauge + ProcessMessage' ICON APP +
|
| OPTION GAUGE_VISIBLE ON +
|
| |GAUGE_COLOR 2708091 +
|
| |GAUGE_INTERVAL 10 +
|
| |MESSAGE_FONT_NAME VERDANA +
|
| |MESSAGE_FONT_SIZE 10 +
|
| |MESSAGE_FONT_COLOR RED +
|
| |THEMENAME R:BASE Rocks!
|
| SET VAR vCounter INTEGER = 1
|
| WHILE vCounter < 2500000 THEN
|
| SET VAR vCounter = (.vCounter + 1)
|
| ProcessMessage
|
| ENDWHILE
|
| CLEAR VARIABLE vCounter
|
| CLS
|
| RETURN
|
|
|
| --Example 04:
|
| CLS
|
| PAUSE 3 USING ' Calculating ... Please Stand By ...' +
|
| CAPTION ' Pause 3 with Gauge + PM' +
|
| ICON WINDOWS +
|
| OPTION GAUGE_VISIBLE ON +
|
| |GAUGE_COLOR RED +
|
| |GAUGE_INTERVAL 10 +
|
| |MESSAGE_FONT_NAME VERDANA +
|
| |MESSAGE_FONT_SIZE 10 +
|
| |MESSAGE_FONT_COLOR WHITE +
|
| |THEMENAME Steel Blue
|
| SET VAR vCounter INTEGER = 1
|
| WHILE vCounter < 2500000 THEN
|
| SET VAR vCounter = (.vCounter + 1)
|
| ProcessMessage
|
| ENDWHILE
|
| CLEAR VARIABLE vCounter
|
| CLS
|
| RETURN
|