idl进度条

pro xxx
envi_report_init, ['数据加载中......'], title='进度条演示', base=base
n=10000
envi_report_inc, base, n
FOR i=1,n DO BEGIN
   envi_report_stat, base, i, n
ENDFOR
envi_report_init, base=base, /finish
end

用了For循环就出这问题（右下角不动)
难道要写死？


坛子里的高手帮我改好了，无限感激：
pro xxx
envi_report_init, ['数据加载中......'], title='进度条演示', base=base

n=10000
envi_report_inc, base, n

FOR i=1,n DO BEGIN
   envi_report_stat, base, i, n
   envi_report_inc, base,float(n)/i
ENDFOR

envi_report_init, base=base, /finish
end