ENVI^  Forcelocal=1
@ LOGS * D:\X.LOG
CALL @WIN1
_SUB WIN1,W303H257,新窗口1,
    SET &p=20
    PBAR PBAR1,L12T13W70H16,20,完成%&p%%%
    TIME  ,1000, CALL OnTimer1
    ITEM ITEM1,L24T37W60H30,窗口颜色, ENVI @this.bkcolor=%BTCLR%,
    ITEM ITEM2,L97T37W60H30,按钮颜色,@TEAM ENVI @ITEM1.bkcolor=%BTCLR%| ENVI @RADI1.bkcolor=%BTCLR%| ENVI @CHEK2.bkcolor=%BTCLR%,
    ITEM ITEM3,L177T35W60H30,进度条颜色, ENVI @PBAR1.bkcolor=%BTCLR%,
    EDIT -vcenter BTCLR,L24T87W60H30,0xFF0000,,
    RADI RADI1,L95T88W60H30,RADI1,,,
    CHEK CHEK2,L174T88W60H30,CHEK2,,
   // @TEAM ENVI @ITEM1.bkcolor=%BTCLR%| ENVI @RADI1.bkcolor=%BTCLR%| ENVI @CHEK2.bkcolor=%BTCLR%
_END
_SUB OnTimer1
    CALC #&p=%&p% + 5
    IFEX $%&p%>100, SET p=0
    envi @PBAR1=  %&p%.923;完成%&p%%%        //进度
_END

