Thanks to Malte for his initial work. I just tweaked. -= Mike
On Jul 10, 2013, at 8:10 AM, Tiemo Hollmann TB <toolb...@kestner.de> wrote: > Thanks Michael! > Your code works perfect! > Tiemo > > >> -----Ursprüngliche Nachricht----- >> Von: use-livecode [mailto:use-livecode-boun...@lists.runrev.com] Im > Auftrag >> von Michael Doub >> Gesendet: Dienstag, 9. Juli 2013 22:09 >> An: How to use LiveCode >> Betreff: Re: How to increase the textsize of HTMLtext proportional? >> >> A bit more suitable for easy reuse..... >> >> >> on textdown >> BumpText the long id of field "test", -1 end textdown >> >> on textup >> BumpText the long id of field "test", 1 end textup >> >> >> on BumpText theObject theDirection >> if theDirection is not among the lines of "1" & return & "-1" then >> throw "Need 1 or -1 for theDirection" >> put the htmlText of fld 1 into theHtml >> 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 itemCount >> repeat for each item theItem in theHTML >> add 1 to itemCount >> if itemCount=1 then >> put theItem into newHTML >> next repeat >> end if >> put 1 into counter >> put offset (">", theItem) into tClose >> put offset ("<" , theItem) into tOpen >> if tClose <> 0 then -- found it >> if tOpen <> 0 and tOpen > tClose then-- found "<" and after >> ">" whis is ok >> repeat forever >> add 1 to counter >> if char counter of theItem=quote then exit repeat >> end repeat >> put char 1 to counter-1 of theItem into theSize >> put theSize + theDirection into theSize >> put theSize into char 1 to counter-1 of theItem >> end if >> end if >> put quote&theItem after newHTML >> end repeat >> set the htmlText of theObject to newHTML >> end if >> set the textSize of theObject to \ >> the effective textSize of theObject + theDirection end BumpText >> >> _______________________________________________ >> use-livecode mailing list >> use-livecode@lists.runrev.com >> Please visit this url to subscribe, unsubscribe and manage your >> subscription preferences: >> http://lists.runrev.com/mailman/listinfo/use-livecode > > > _______________________________________________ > use-livecode mailing list > use-livecode@lists.runrev.com > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
