Thanks Dave, I've been looking at the scrolling code you mentioned, and also
worked up a test that somewhat replicates scrolling.
Here is the code. I'm still trying to figure out how to use a timer control
to slow down the scan rather than the "for endfor".
***m_formprop
mtime = 2500000
Thisform.r_out6 = 0
Thisform.r_out5 = 0
Thisform.r_out4 = 0
Thisform.r_out3 = 0
Thisform.r_out2 = 0
Thisform.r_out1 = 0
lcfile1 = Sys(2015)
Select Val(stnhorse.hip_no) As hip_no From stnhorse Left Join stnpaper On
stnhorse.arr_no = stnpaper.arr_no ;
WHERE ;
stnpaper.out <> ' ' ;
ORDER By ;
stnhorse.hip_no Into Cursor lcfile1
Scan
If Thisform.r_out1 = 0
Thisform.r_out1 = hip_no
Else
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Endif
Thisform.Refresh
i = 1
For i = 1 To mtime
i = i + 1
Endfor
Skip
If Eof()
Locate
Endif
If Thisform.r_out2 = 0
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Else
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Endif
i = 1
For i = 1 To mtime
i = i + 1
Endfor
Thisform.Refresh
Skip
If Eof()
Locate
Endif
If Thisform.r_out3 = 0
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Else
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Endif
i = 1
For i = 1 To mtime
i = i + 1
Endfor
Thisform.Refresh
Skip
If Eof()
Locate
Endif
If Thisform.r_out4 = 0
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Else
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Endif
i = 1
For i = 1 To mtime
i = i + 1
Endfor
Thisform.Refresh
Skip
If Eof()
Locate
Endif
If Thisform.r_out5 = 0
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Else
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Endif
i = 1
For i = 1 To mtime
i = i + 1
Endfor
Thisform.Refresh
Skip
If Eof()
Locate
Endif
If Thisform.r_out6 = 0
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Else
Thisform.r_out6 = Thisform.r_out5
Thisform.r_out5 = Thisform.r_out4
Thisform.r_out4 = Thisform.r_out3
Thisform.r_out3 = Thisform.r_out2
Thisform.r_out2 = Thisform.r_out1
Thisform.r_out1 = hip_no
Endif
i = 1
For i = 1 To mtime
i = i + 1
Endfor
Thisform.Refresh
If Eof()
Locate
Endif
Endscan
James E Harvey
Corresponding Officer/M.I.S.
Hanover Shoe Farms, Inc.
www.hanoverpa.com
office: 717-637-8931
cell: 717-887-2565
fax: 717-637-6766
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf
Of Dave Crozier
Sent: Tuesday, May 22, 2012 8:29 AM
To: ProFox Email List
Subject: RE: how best to scroll results
and finally ... honest!! a link to a vertical scroller container:
http://stackoverflow.com/questions/114946/vertical-scrolling-marquee-for-fox
pro
Gives you some ideas for design despite it being vertical scroll
That's it.... definitely the end!
Dave
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
