Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Mare/SHAREDM.CST/03036_Script_3036

Text File | 1997-09-15 | 2KB | 45 lines

on gestione_cursore_articolo
  global ss,valore,lungh_barra,righe_scroll_testo,pezzetto
  set righe_scroll_testo to the linecount of member "articolo" -10
  set pezzetto to lungh_barra/righe_scroll_testo

  set a to the mousev
  if a > 66 and a <= 444 then
    set unita to pezzetto
    set the locv of sprite 16 to a
    if ss < integer((a-64) / unita) then
      global qrighe_rimane
      if voidp (qrighe_rimane) then set qrighe_rimane to 1
      if the scrolltop of member 700 < (the lineCount of member "articolo" * valore)-(valore*qrighe_rimane+1) then
        set the scrollTop of member "articolo" to the scrolltop of member "articolo" + (valore * (integer((a-64) / unita)-ss))
        set  ss to integer((a-64) / unita)
        put ss,a,unita
      end if
      -- scrollbyline member "articolo",  integer((a-64) / unita)-ss
    end if
    if ss > integer((a-64) / unita) then
      if the scrolltop of member 700 > 1 then
        set the scrollTop of member "articolo" to the scrolltop of member "articolo" + (valore * (integer((a-64) / unita)-ss))
        -- scrollbyline member "articolo",  integer((a-64) / unita) - ss
        set ss to integer((a-64) / unita)
      end if
    end if
    updatestage
  else
    if the mousev <= 66 then
      set the scrolltop of member 700 to 1
      set the locv of sprite 16 to 64
      set ss to 1
      updatestage
    else
      global qrighe_rimane

      set the scrolltop of member 700 to (righe_scroll_testo * valore)-valore
      set the locv of sprite 16 to 444
      set ss to (righe_scroll_testo)
      updatestage
    end if
  end if

end