--  关闭Flash全屏播放
property mysprite
property oldname
property MySwfSpri

on beginsprite me
  mysprite=sprite(me.spritenum)
  mysprite.visible=false
  oldname=mysprite.member.name
end

on mouseenter me
  mysprite.cursor=280
  mysprite.member=member(oldname&"h","con_hwk")
end

on mouseleave me
  mysprite.cursor=-1
  mysprite.member=member(oldname,"con_hwk")
end

on mouseup me
  mysprite.cursor=-1
  sprite(MySwfSpri).locz=3
  sprite(MySwfSpri).width=640
  sprite(MySwfSpri).height=480
  sprite(MySwfSpri).loc=point(455, 287)
  mysprite.visible=false
end

on endsprite me
  mysprite.visible=true
end

on getPropertyDescriptionList me
  ----自动获取通道上Flash精灵的编号
  set SwfSprites=[]
  ----遍历 1 到 20 号精灵通道，寻找Flash精灵
  repeat with spritenum=1 to 100
    case sprite(spritenum).member.type of
      (#flash):
        append SwfSprites,spritenum
    end case
  end repeat
  ----------------------------
  pro=[:]
  setaprop pro,#MySwfSpri,[ #comment: "受控制的flash精灵的定位:",#format:#integer,#default: 1, #range:SwfSprites]
  return pro 
end getPropertyDescriptionList