AW: How to increase the textsize of HTMLtext proportional?

Tiemo Hollmann TB toolbook at kestner.de
Wed Jul 10 08:10:26 EDT 2013


Thanks Michael!
Your code works perfect!
Tiemo


> -----Ursprüngliche Nachricht-----
> Von: use-livecode [mailto:use-livecode-bounces at 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="&quote 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 at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode





More information about the use-livecode mailing list