home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 51 / Mobiclic51.iso / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00270_Script_GESTION_PISTE_VIDEO_AVEC_ZOOM < prev    next >
Text File  |  2003-01-30  |  2KB  |  73 lines
  1. global gpiste_Video, gDuree_QT
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur, petat, ploc, p_mainW, p_mainH, p_zoomable
  3. ---------------------------------
  4. on getPropertyDescriptionList me
  5.   return [#p_zoomable:[#comment: "zoomable:",#format:  #boolean, #default: false ]]
  6. end getPropertyDescriptionList
  7. -----------------------------
  8. on beginSprite me
  9.   p_Nodepiste = me.spriteNum
  10.   p_cettePiste  = sprite(p_Nodepiste)
  11.   gpiste_Video = p_Nodepiste
  12.   p_nom_Acteur = p_cettePiste.member.name
  13.   gDuree_QT = p_cettePiste.member.duration
  14.   petat = 1
  15.   ploc = p_cettePiste.loc
  16.   p_mainW = p_cettePiste.width
  17.   p_mainH = p_cettePiste.height
  18. end
  19. --------------------------------  
  20. on mouseUp
  21.   if the pauseState then exit
  22.   if p_zoomable  = 0 then exit
  23.   p_cettePiste .visible = 0
  24.   case(petat) of
  25.     1:
  26.       petat = 2
  27.       p_cettePiste.loc = point(320,240)
  28.       p_cettePiste.width = 520
  29.       p_cettePiste.height = 390
  30.       puppetTransition(9)
  31.     2:
  32.       petat = 3
  33.       p_cettePiste.loc = point(320,240)
  34.       p_cettePiste.width = 640
  35.       p_cettePiste.height = 480
  36.       puppetTransition(9)
  37.     3:
  38.       petat = 1
  39.       p_cettePiste.loc = ploc
  40.       p_cettePiste.width = p_mainW
  41.       p_cettePiste.height = p_mainH
  42.       puppetTransition(10)
  43.   end case
  44.   p_cettePiste .visible = 1
  45. end
  46. -----------------------------------
  47. on mouseWithin
  48.   if the pauseState then exit
  49.   if p_zoomable = 0 then exit
  50.   case(petat) of
  51.     1,2:
  52.       cursor 302
  53.    3:
  54.       cursor 303
  55.   end case
  56.   
  57. end
  58. ---------------
  59. on mouseEnter
  60.   stopEvent
  61. end
  62. -------------
  63. on mouseLeave
  64.   cursor  -1
  65.   stopEvent
  66. end
  67. -------------
  68. on mouseDown
  69.   stopEvent
  70. end
  71. -------------
  72.  
  73.