REVO7000stProgressField003 @~\ WArialU Arial,unicodeU Arial,unicode U(Message),unicode U(Text),unicode cREVGeometryCache stackID cREVGeneral breakpointstates breakpointsbreakpointconditionsscripteditorselection0scripteditorvscroll scalefactor?cProgressField POlocal backC="255,204,0" local sChunkMD,sCurText on mouserelease if the short name of the target is "fCommentProgressbar" then if sCurText is a number then set the backgroundcolor of sChunkMD to empty end if if "<" is in sCurText then set the backgroundcolor of word 2 of fld "fCommentProgressbar" to empty end if if ">" is in sCurText then set the backgroundcolor of word -2 of fld "fCommentProgressbar" to empty end if end if end mouserelease on mousedown if the short name of the target is "fCommentProgressbar" then put the clicktext into sCurText put the clickchunk into sChunkMD if sCurText is a number then set the backgroundcolor of sChunkMD to backC else if "<" is in sCurText then put backC & cr & "empty" into tColors end if if ">" is in sCurText then put "empty" & cr & backC into tColors end if set the backgroundcolor of word 2 of fld "fCommentProgressbar" to (the value of line 1 of tColors) set the backgroundcolor of word -2 of fld "fCommentProgressbar" to (the value of line 2 of tColors) end if end if end mousedown on mouseup if the short name of the target is "fCommentProgressbar" then put fld "fQuickProgress" into tQuickProgress get the clicktext if it is a number then put it into tCurNum set thumbpos of sb "sbCurElement" to the clicktext end if if "<" is in sCurText then put max(1,fld "fCurElement" - tQuickProgress) into tCurNum end if if ">" is in sCurText then put min(fld "fCurElement" + tQuickProgress,fld "fNumElement") into tCurNum end if set thumbpos of sb "sbCurElement" to tCurNum else pass mouseUp end if end mouseup on scrollbardrag pV lock screen; lock messages put trunc(pV) into x put x into fld "fCurElement" put setNumElementBar (x,fld "fNumElement") into fld "fCommentProgressbar" setColorCurNumP x unlock screen; unlock messages end scrollbardrag function setNumElementBar x, mx if mx <= 10 then return word 1 to mx of "1 2 3 4 5 6 7 8 9 10" put max(1,x-1) into x0 put min(mx,x+1) into x1 put x0 into m repeat with i=x0+1 to x1 put space & i after m end repeat if x0 > 2 then put "1 << " before m else if x0 > 1 then put "1 " before m if x1 < mx-1 then put " >> " & mx after m else if x1 < mx then put " " & mx after m return m end setNumElementBar on textchanged put the short name of the target into tName if tName is among the items of "fNumElement,fCurElement,fQuickProgress" then put target into tText if tText is not a number then put 1 into the target else if tText is not an integer then put round(tText) into the target else if tText <= 0 then put 1 into the target else if tName is "fCurElement" and tText > fld "fNumElement" then put fld "fNumElement" into the target else if tName is "fQuickProgress" and tText > fld "fNumElement" then put fld "fNumElement" into the target end if set the endvalue of sb "sbCurElement" to (fld "fNumElement") scrollbardrag fld "fCurElement" end if pass textChanged end textchanged on returnInField put the short name of the target into tName if tName is "fCurElement" then scrollbardrag fld "fCurElement" else if tName is "fNumElement" then put min(fld "fNumElement",fld "fCurElement") into fld "fCurElement" else if tName is "fQuickProgress" then put min(fld "fNumElement",fld "fQuickProgress") into fld "fQuickProgress" set the endvalue of sb "sbCurElement" to (fld "fNumElement") scrollbardrag fld "fCurElement" else pass returnInField end returnInField on setColorCurNumP pNb get wordoffset(pnb ,fld "fCommentProgressbar") set the textstyle of word 1 to -1 of fld fCommentProgressbar to "plain" set the textstyle of word it of fld fCommentProgressbar to "box" set the backgroundcolor of word it of fld fCommentProgressbar to backC end setColorCurNumP [ cREVGeometryCacheIDs 1501344918103 1500547753114 1498301173815 1500569304195 1501344918105 1501344918104 1500569217494 1501344918102 1501344514550 1501344514551cREVGeometrycache total order  cREVGeneral scripteditorvscrollscripteditorselection1492 grNbPageProgressBarW@O -{  cREVGeneral  revUniqueIDpYuBscripteditorvscrollscripteditorselection0 fCommentProgressbar blackff@Z  y  cREVGeneral  revUniqueID`uBscripteditorvscrollscripteditorselection0 cREVTable  currentview1 2 3 4 5 ... 18  1 << 157 158 159 >> 1520 # # #  1 … 1110 1111 1112 … 1123 # # # grProgressBari)on mouseup deGrProgressMU end mouseup S*~  cREVGeneral  revUniqueIDIuBscripteditorvscrollscripteditorselection28  fLabNbElement aE  cREVGeneral  revUniqueIDpuBtablefalse cRevTable  cellFormatfalsemaxColumnCountcellEditfalse Max value ' fLabCurElement ah  cREVGeneral  revUniqueID`RuBtablefalse cRevTable  cellFormatfalsemaxColumnCountcellEditfalse Current value '  fNumElement-p E<  cRevTable  cellFormatfalsemaxColumnCountcellEditfalse cREVGeneral scripteditorselection0tablefalse revUniqueIDuBscripteditorvscroll  1520 '  1123 '  fCurElement-ph<y  cREVGeneral  revUniqueID0guBtablefalsescripteditorselection70scripteditorvscroll cRevTable  cellFormatfalsemaxColumnCountcellEditfalse  158 '  700 ' sbCurElementqG))  y++11520  focusBorderendval5 cREVGeneral scripteditorvscrollscripteditorselection0 revUniqueIDuB fLabQuickProgress I  cREVGeneral  revUniqueID`uBtablefalse cRevTable  cellFormatfalsemaxColumnCountcellEditfalse Quick progress (<< >>) ', fQuickProgress-p<}  cREVGeneral  revUniqueIDpuBtablefalsescripteditorselection70scripteditorvscroll cRevTable  cellFormatfalsemaxColumnCountcellEditfalse  4 ' revOnline | RunRev