CTRL+B, CTRL+I, CTRL+U

 

Compatibilities:

This item has not yet been rated

Allows the user to format text fields using CTRL+B (bold), CTRL+I (italic) and CTRL+U (underline). A behavior with the same functionality has been contributed before (http://www.mediamacros.com/item/item-959358086/) but mine is a bit different using the selectedText property instead of the selection function. Drag and drop onto a text member or attach by script using textFormat = script("textFormat").new(me.spriteNum) sprite(me.spriteNum).scriptInstanceList.add(textFormat)

property spriteNum, sNum, sMem, k on new me, s   if ilk(s) = #integer then me.spriteNum = s   me.sNum = sprite(me.spriteNum)   me.sMem = me.sNum.member   return me end on enterFrame me   if the controlDown and the clickOn = me.spriteNum and me.sMem.editable = 1 then     s = member(me.sMem).selectedText     t = member(me.sMem).text     if keyPressed("b") and me.k = 0 then       me.k = 1       member(me.sMem).selectedText.fontStyle = me.setStyle(s, "bold")     else if keyPressed("i") and me.k = 0 then       me.k = 1       member(me.sMem).selectedText.fontStyle = me.setStyle(s, "italic")     else if keyPressed("u") and me.k = 0 then       me.k = 1       member(me.sMem).selectedText.fontStyle = me.setStyle(s, "underline")     end if     if the keyPressed = "" then       me.k = 0     end if     else     me.k = 0   end if end on setStyle me, sel, sty   if ilk(sty) <> #symbol then sty = symbol(sty)   s = sel.fontStyle   if s.getOne(#plain) <> 0 then s = []   if s.getOne(sty) <> 0 then     s.deleteOne(sty)   else     s.add(sty)       end if   return s end

Upload Provided by ABCUpload ASP