|
CALL @WIN2
_SUB WIN2,W500H100,新窗口2,,,
SCRN &ScrW,&ScrH
ENVI &&ItemStr=第一个|第二个|第三个|第四个|第五个|第六个|第七个|第八个|第九个
SED &ItemStr=0,|,\r\n,%&ItemStr%
ENVI &&ItemL=0
ENVI &&WinW=0
ENVI &&WinH=100
ENVI &&行数=0
ENVI &&次数=0
FORX *NL &ItemStr,&&ItemStrLen,
{
CALC #&临时行数=%&次数%/4
FIND $%&临时行数%>%&行数%,TEAM ENVI &行数=%&临时行数%|ENVI &ItemL=0|CALC &WinH=%&WinH%+120
CALC &ItemT=%&行数%*120
^ITEM ITEM%&次数%,L%&ItemL%T%&ItemT%W150H100,%&ItemStrLen%,MESS %ITEM%&次数%%,
CALC &WinWTEMP=%&ItemL%+150
FIND $%&WinWTEMP%>%&WinW%,ENVI &WinW=%&WinWTEMP%
CALC #&WinT=(%&ScrH%-%&WinH%)/2
CALC #&WinL=(%&ScrW%-%&WinW%)/2
ENVI @this.POS=%&WinL%:%&WinT%:%&WinW%:%&WinH%
CALC &ItemL=%&ItemL%+170
CALC &次数=%&次数%+1
}
_END
|
|