home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD1.ISO / ejv8-cd1 / somm.dxr / 00119_ZoomSoft.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  786 b   |  37 lines
  1. property zoom
  2.  
  3. on getBehaviorTooltip me
  4.   return "Zoom sur les images"
  5. end
  6.  
  7. on getPropertyDescriptionList
  8.   description = [:]
  9.   addProp(description, #zoom, [#default: 1, #format: #boolean, #comment: "Active / D├⌐sactive le zoom sur les images"])
  10.   return description
  11. end
  12.  
  13. on mouseDown
  14.   if zoom = 1 then
  15.     forget(window("zoom"))
  16.     window("zoom").windowType = 1
  17.     resolX = getAt(dosGetDisplay(), 1)
  18.     resolY = getAt(dosGetDisplay(), 2)
  19.     window("zoom").rect = rect((resolX / 2) - (640 / 2), (resolY / 2) - (480 / 2), (resolX / 2) - (640 / 2) + 640, (resolY / 2) - (480 / 2) + 480)
  20.     open(window("zoom"))
  21.     tell window("zoom")
  22.       go(1)
  23.     end tell
  24.   end if
  25.   cursor(-1)
  26. end
  27.  
  28. on mouseWithin
  29.   if zoom = 1 then
  30.     cursor(302)
  31.   end if
  32. end
  33.  
  34. on mouseLeave
  35.   cursor(-1)
  36. end
  37.