I have 9 parallel scrolling fields that make up a spreadsheet. Can anyone 
make the following button script that scrolls the lines of all 9 fields 
simultaneously work better without the screen flashing?
1. script of top button in scroll column of last field
on mouseDown
  put the textheight of field id 9 into b
  repeat while the mouse is down
    set lockScreen to true
    get the scroll of field id 9
    subtract (1*b) from it
    if it < 1 then put 1 into it
    repeat with x = 1 to 9
      set the scroll of bg field id x to it
    end repeat
    set lockScreen to false
  end repeat
end mouseDown

2. script of bottom button in scroll column of last field
on mouseDown
  put the textheight of field id 9 into b
  repeat while the mouse is down
    set lockScreen to true
    get the scroll of field id 1
    add (1*b) to it
    repeat with x = 1 to 9
      set the scroll of bg field id x to it
    end repeat
    set lockScreen to false
  end repeat
end mouseDown
mike
[EMAIL PROTECTED]

Archives: http://www.mail-archive.com/[email protected]/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.

Reply via email to