home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / 0_wclub.dir / 00013_Script_FieldArrowScroll < prev    next >
Text File  |  2000-11-16  |  2KB  |  64 lines
  1. ---------------------------------------
  2. --         HTML ScrollArrows         --
  3. --                                   --
  4. --  Behavior per scrollare un field  --
  5. --  Html verso l'alto o il basso.    --
  6. --  Applicalo alle freccie.          --
  7. ---------------------------------------
  8.  
  9.  
  10. property htmlMember, scrollQuantum, scrollDirection, thumbSN
  11.  
  12. global gNStesto
  13.  
  14. on mouseDown
  15.   if the frame = marker("hilited") then
  16.     go to frame (marker(-1) + 1)
  17.   end if
  18.   
  19.   set st = the scrollTop of member the member of sprite gNStesto
  20.   
  21.   repeat while the stillDown
  22.     if scrollDirection = #Up then
  23.       set st = st - scrollQuantum
  24.       if st < 0 then
  25.         set st = 0
  26.       end if
  27.     else
  28.       set st = st + scrollQuantum
  29.       set massimo = the height of member the member of sprite gNStesto - the PageHeight of member the member of sprite gNStesto
  30.       if massimo < 0 then
  31.         set massimo = 0
  32.       end if
  33.       if st > massimo then
  34.         set st = massimo
  35.       end if
  36.     end if
  37.     
  38.     set the scrollTop of member the member of sprite gNStesto to st
  39.     sendSprite thumbSN,#trackArrowScroll
  40.     updateStage
  41.   end repeat
  42.   
  43. end
  44.  
  45.  
  46. on getPropertyDescriptionList
  47.   set p_list = [#htmlMember: [#comment:"Nome del campo HTML:",¼
  48.                 #format: #string, #default: "testo"],¼
  49.                 #scrollQuantum:[#comment:"ScrollQuantum in pixel:",¼
  50.                 #format: #integer, #default: 3],¼
  51.                 #scrollDirection:[#comment:"Direzione di scroll:",¼
  52.                 #format: #string, #default: #Down, #range: [#Up, #Down]],¼
  53.                 #thumbSN:[#comment:"N╛ sprite del thumb:",¼
  54.                 #format: #integer, #default: 1, #range: [#min:1,#max:120]]]
  55.   
  56.   return p_list
  57. end
  58.  
  59.  
  60. on getBehaviorDescription
  61.   set descr = "Behavior per scrollare un field Html verso l'alto o il basso."
  62.   set descr = descr & RETURN & "Applicalo alle freccie."
  63.   return descr
  64. end