Select All Behavior (Ctrl + A)

 

Compatibilities:

This item has not yet been rated

From Technote #14130 at Macromedia.com

property spriteNum, pWhichSprite, pWhichMember, pMemberType on beginSprite me   pWhichSprite = sprite(me.spriteNum)   pWhichMember = pWhichSprite.member   pMemberType = pWhichMember.type end on keyDown me   if (the commandDown) then     case (TRUE) of       (the commandDown AND the keyPressed = "a") : selectAll me     end case   else     pass   end if end on selectAll me   if pMemberType = #text then     num = member(pWhichMember).text.char.count     set the keyBoardFocusSprite = -1   end if   if pMemberType = #field then     set the keyBoardFocusSprite = -1     hilite member pWhichMember   end if   end

Upload Provided by ABCUpload ASP