Copy Behavior (Ctrl + C)

 

Compatibilities:

This item has not yet been rated

From Technote #14130 from 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 = "c") : clipboardCopy me     end case   else     pass   end if end on clipboardCopy me   if pMemberType = #text then     if pWhichMember.selectedText.text <> "" then       put pWhichMember.selectedText.text into member("clipboard temp")       copyToClipboard member "clipboard temp"     else       beep     end if   end if   if pMemberType = #field then     if the selStart <> the selEnd then       a = the selStart       b = the selEnd       put char a + 1 to b of the text of member pWhichMember into member("clipboard temp")       copyToClipboard member "clipboard temp"     end if   end if end

Upload Provided by ABCUpload ASP