redbug1;i;k
© Why is ScrollCaret ineffective unless the RichEdit control has the Focus?
© 24 Jun 2006  Rex Swain, Independent Consultant, www.rexswain.com

© APL version 5.2.10
© Windows XP Professional
© RichEdit msversion = 3

Œwself„'fm' Œwi 'Create' 'Form'
   Œwi 'caption' 'RichEdit Bug'
   Œwi 'size' 8 52
   Œwi 'Focus' 

Œwself„'.red' Œwi 'Create' 'RichEdit'
   Œwi 'where' 0.5 1
   Œwi 'size' 7 50
   Œwi 'style' 4 16 32 64 4096 16384 32768

   Œ„Œwi Œ„'msversion' 

   Œwi 'seltext' ('No scrolling despite ScrollCaret:',Œtcnl)
   :for i :in 100+¼12
      k„Œdl 0.4
      Œwi 'seltext' ('Line ',(•i),Œtcnl)
      Œwi 'ScrollCaret'
   :end   

   k„Œdl 5

   Œwi 'Focus' 

   Œwi 'seltext' ('Now scrolling works:',Œtcnl)
   :for i :in 200+¼12
      k„Œdl 0.4
      Œwi 'seltext' ('Line ',(•i),Œtcnl)
      Œwi 'ScrollCaret'
   :end