Posted by Grant Foraker on December 26, 2007 at 12:16:07:
Progress Bar and Odometer don't move unless I have a PAUSE. What else might work to force the dialog to display?
IF FPT(1.0000 * CCOUNT / DCOUNT) EQ 0
cosCtlId = IDC.PROG.BAR ! DISPLAY CURRENT %
cosValue = INT((1.0000 * CCOUNT / TOTREC) * 100.0000) + 1
Gosub COS.Progress.SetPos
LET cosCtlID = IDC.RECORD.ID
cosCtlText$ = "Printing Customer # " + STRIP(CNBR$)
GOSUB COS.SetDlgItemText
PAUSE (1)
ENDIF