Xiaoma's Home

property psprite            --自己
property pZoomRate          --放大倍数
property pMemberMag         --放大镜图片
property pMemberMagMask     --镜片部分的掩码图片
property pMemberMagFull     --放大镜的全图
property pZoomMember        --放置放大图片的演员
property pSouRect        --需要放大区域的矩形 
property pSourPic        --原始角色的图片
property pZoomX             --放大点的x坐标
property pZoomY             --放大点的y坐标
property pZoomSprite        --放置需要放大图片的sprite
property pZoomSpriteNum
然后用getPropertyDescriptionList函数来生成行为参数对话框
on getPropertyDescriptionList me
  mylist =[#pZoomRate:[#comment:"放大倍数",#format: #integer,#default:2 ],\
--设置放大倍数
      #pMemberMag:[#comment:"放大镜图片成员",#format: #member,#default:"放大镜上的圆"],\
--对应演员表中的“放大镜上的圆”
      #pMemberMagMask:[#comment:"放大镜掩码图片",#format: #member,#default:"放大镜遮板"],\
--对应演员表中的“放大镜遮板”
      #pMemberMagFull:[#comment:"放大镜底图",#format: #member,#default:"放大镜底图"],\
--对应演员表中的“放大镜底图”
      #pZoomMember:[#comment: "显示放大图的演员",#format: #member,#default:"放大层"],\
--对应演员表中的“放大层”
      #pZoomSpriteNum:[#comment:"放大图所在的通道",#format: #integer,#default:20]]
--设置放大层所在的通道号
  return mylist
end getPropertyDescriptionList

on ProcessZoom me
  cursor(200)
--隐藏光标
  pSourStagePic=(the Stage).image
--将舞台图像保存在pSourStagePic中
  pZoomPoint=the clickloc
--将当前鼠标的位置保存在pZoomPoint
  pZoomX=(pMemberMag.image.width+pZoomRate)/pZoomRate
  pZoomY=(pMemberMag.image.Height+pZoomRate)/pZoomRate
  pSouRect=rect(pZoompoint-point(pZoomx,pZoomY)/2,pZoomPoint+point(pZoomX,pZoomY)/2)
--设置需要放大的区域，其大小为放大镜显示区域大小除以放大倍数，位置在当前鼠标点
  tmpSouPic=pMemberMag.image.duplicate()
  tmpSouPic.copypixels(pSourStagePic,tmpSouPic.rect,pSouRect)
--从pSourStagePic中复制pSouRect区域的图像到tmpSouPic中，并放大到tmpSouPic.rect
  tmpSouPic.copypixels(pMemberMagMask.image,tmpSouPic.rect,tmpSouPic.rect,[ink:3])
--注意此处放大镜遮板的作用，其圆圈周围都是黑色
  tmpAllPic = pMemberMagFull.image.duplicate()
  tmpAllPic.copypixels(tmpSouPic,tmpSouPic.rect,tmpSouPic.rect,[#ink:1])
--ink 1效果为透明效果，此处是将tmpSouPic中的图片原大小保存在tmpAllPic中，然后加上了透明
--效果，实质是复制了放大镜中的圆形区域
  pZoomSprite.member.image=tmpAllPic
--将tmpAllPic中保存的图像附给pZoomSprite的演员
  pZoomSprite.locH=pZoomPoint.locH 
  pZoomSprite.locV=pZoomPoint.locV 
--设置pZoomSprite的位置
  pZoomSprite.visible=TRUE
--设置pZoomSprite为可见
  updatestage
end

on UnZoom me,aSprite
  pZoomSprite.Visible=FALSE
--设置pZoomSprite为不可见
  cursor(0)
--将光标设置为箭头
end

on BeginSprite me
--初始化
  pSprite = sprite(me.spriteNum)
  pZoomSprite =sprite(pZoomSpriteNum)
--pSprite为要放大图片精灵，pZoomSprite为显示放大图片效果的精灵
  pZoomSprite.visible=FALSE
--将pZoomSprite设置为不可见
end

on mouseenter me
  cursor(302)
--当鼠标滑入时，将光标换成放大光标
end

on mouseleave me
  cursor(0)
--当鼠标滑出时，将光标换成正常箭头光标
end

on MouseDown me
  ProcessZoom me
--按下鼠标时，调用放大效果函数ProcessZoom()，实现图片的放大效果
end

on MouseUp me
  unZoom(me,pSprite)
  cursor(302)
--在要放大图片区域内释放鼠标时，调用复原函数unZoom()，然后将光标换成放大光标
end

on MouseUpOutSide me
  unZoom(me,pSprite)
  cursor(0)
--在要放大图片区域外释放鼠标时，调用复原函数unZoom()，然后将光标换成箭头光标
end