Joe Wilkins asked:

>3.) I need to implement an About Box with a auto-scroll field.
>I recall this having been a subject on the list in recently


Joe:

This auto-scroller works in FBII (it does stall background events 
while running), but will not scroll the text in FB^3. (Create a 
"Scroll.rsrc" resource with a TEXT No. 128 and plug a few paragraphs 
of code into it for this demo.) Anyone have ideas on how to fix it 
for FB^3?

Ken

'----- Auto scrolls text in FBII, but not FB^3------

RESOURCES "Scroll.rsrc"

LOCAL FN initialize
   WINDOW 1, "Text Scroller",(0,0)-(200,200),_docNoGrow  + _noAutoClip
   EDIT FIELD 1,%128,(10,10)-(190,190),_statNoFramed
END FN

LOCAL FN doScroll
   teH& = TEHANDLE(1)
   FOR x = 1 TO 500
     CALL TEPINSCROLL (0,-1,teH&)
     DELAY 20
   NEXT x
END FN

FN initialize
FN doScroll

DO
HANDLEEVENTS
UNTIL FN BUTTON
END