When I use the progressbar for a loop during about 3 minutes the program is showing the progressbar nice but when I click another program and then click the program with the progressbar it says: '<title> (doesn't react)' and the screen turns white and shows only the hourglass.
Is there a way to make the progressbar (and the rest) visible again?
See little example:
Code: Select all
#include "hmg.ch"
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE 'Progressbar ' ;
MAIN
@ 10,10 BUTTON bt_1 CAPTION 'Progress_1' ACTION Progress_1() WIDTH 150 HEIGHT 20 FONT "Arial" SIZE 10 FLAT
@ 100,10 PROGRESSBAR Progress_1 ;
RANGE 0 , 65535 ;
WIDTH 200 ;
HEIGHT 30
END WINDOW
Setproperty('Form_1','Progress_1','Visible', .F. )
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
RETURN
function Progress_1()
Setproperty('Form_1','Progress_1','Visible', .T. )
Setproperty('Form_1','Progress_1','Value', 0 )
Setproperty('Form_1','Progress_1','RangeMax', 65535 )
FOR A = 1 TO 65535
Setproperty('Form_1','Progress_1','Value', A )
FOR B = 1 TO 10000
NEXT B
NEXT A
RETURN
Serge