Or, check out Razzak's "From The Edge" Pub:
http://www.razzak.com/fte/ "Using PAUSE 3 with OPTION GAUGE and ProcessMessage" As a sample using the ProcessMessage Example 12: -- Start -- PAUSE3_With_Gauge_SteelBlue_WHILELOOP_ProcessMessage.RMD -- Steel Blue 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 -- End Brad Davidson -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Alastair Burr Sent: Tuesday, July 08, 2008 10:14 AM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: GaUgE & MeTeR Clearly we're both going mad, Fred, because lifting your code directly to the R:> works fine for me but put into a file the gauge does nothing... until the file ends when it starts to move again! This is the code that I used (just after 6pm!): cls PAUSE 3 USING 'Calculating ... Please Stand By' + CAPTION 'Pause 3 with Gauge' 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 while #time < 18:02:00 then beep endwhile return However this worked: cls while #time < 18:07:00 then PAUSE 3 USING 'Calculating ... Please Stand By' + CAPTION 'Pause 3 with Gauge' 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 beep endwhile pause 4 using ' ' option gauge_visible off cls return but it didn't clear the display without the CLS. What really surprised me was that the the gauge didn't keep going back to its start position in the loop as the command was being called after every beep. Regards, Alastair. ----- Original Message ----- From: Fred C Kopp <mailto:[EMAIL PROTECTED]> To: RBASE-L Mailing List <mailto:[email protected]> Sent: Tuesday, July 08, 2008 4:51 PM Subject: [RBASE-L] - Re: GaUgE & MeTeR Alistair here is the code lifted from RBase Help. It runs and moves fine by itself, but won't budge when I place it at the head of my file. It appears but doesn't move, then disappears when the file hits the CLS near the end. GAUGE_VISIBLE OFF simply makes the "gauge" disappear. I don't know why it won't move. --Fred PAUSE 3 USING 'Calculating ... Please Stand By' + CAPTION 'Pause 3 with Gauge' + 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 ----- Original Message ----- From: Alastair <mailto:[EMAIL PROTECTED]> Burr To: RBASE-L Mailing List <mailto:[email protected]> Sent: Tuesday, July 08, 2008 11:11 AM Subject: [RBASE-L] - Re: GaUgE & MeTeR Fred, PAUSE 4 USING ' ' OPTION METER_VISIBLE OFF PAUSE 4 USING ' ' OPTION GAUGE_VISIBLE OFF Should do it for you. Regards, Alastair. ----- Original Message ----- From: Fred C Kopp <mailto:[EMAIL PROTECTED]> To: RBASE-L Mailing List <mailto:[email protected]> Sent: Tuesday, July 08, 2008 3:24 PM Subject: [RBASE-L] - GaUgE & MeTeR I can get my PAUSE 3 GAUGEs and METERs to display on screen but I can't get them to MOVE. What am I not doing? Also can't get rid of them without a well-placed CLS in the file right before completion. Is that kosher? They're much cooler than a static "One moment please..." so I'd like to figure this out. Thanks, Fred Fred C. Kopp Authorized R:Base Developer 19 Teri Lane Washington, PA 15301 P 724-222-7376 F 724-222-7376 C 724-413-5534 E <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.4.6/1539 - Release Date: 07/07/2008 18:35 No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.4.6/1539 - Release Date: 07/07/2008 18:35
