Hi,
Mark, could you please test this script against yours? My machine is
too slow to get a representative result. Sometimes yours is faster,
sometimes mine. :-)
on changeSize myChange
put the htmlText of fld "test" into theHtml
set the textSize of fld "test" to \
the effective textSize of fld "test"+1
replace "size=""e with "size="&numToChar(1500) in theHTML
set the itemdel to numToChar(1500)
if the number of items of theHTML<>1 then
put 0 into testItem
repeat for each item theItem in theHTML
add 1 to testItem
if testItem<>1 then
put offset(quote,theitem) into counter
put char 1 to counter-1 of theItem into theSize
put theSize+myChange into theSize
put theSize into char 1 to counter-1 of theItem
put quote&theItem after newHTML
else
put theItem into newHTML
next repeat
end if
end repeat
set the htmlText of fld "test" to newHTML
end if
end ChangeSize
Both scripts round about 750 msec on my slobo G4-400 MHz for 10000
chars with different styles, colors, sizes and fonts in about 600 chars.
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
